Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- fieldplancheck

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
fieldplancheck
Synopsis
/infobank/programs/html/fieldplancheck/fieldplancheck.for
Description
  Program to generate a MOPS-like field schedule

  based on InfoBank field activity information.
       
AUTHOR
  Clint Steele     8/12/2005


    
Reads
          read (90, '(q,a)', end = 99)
     *        ALineLength, ALine(1:ALineLength)
          read (90, '(q,a)', end = 98)
     *        ALineLength, ALine(1:ALineLength)
          read (90, '(q,a)', end = 97)
     *        ALineLength, ALine(1:ALineLength)
          read (90, '(q,a)', end = 96)
     *        ALineLength, ALine(1:ALineLength)
          read (90, '(q,a)', end = 95)
     *        ALineLength, ALine(1:ALineLength)
              read (92, '(t10,q,a)')
     *            ChiefLength, Chief(1:ChiefLength)
              read (92, '(t10,q,a)')
     *            ProjectLength, Project(1:ProjectLength)
              read (92, '(t10,q,a)')
     *            PlatformLength, Platform(1:PlatformLength)
              read (92, '(t10,q,a)')
     *            ActivityTypeLength, ActivityType(1:ActivityTypeLength)
              read (92, '(t10,q,a)')
     *            OrganizationLength, 
     *            Organization(1:OrganizationLength)
Writes
              write (91, '(a)') ALine(67:ALineLength-1)
              write (91, '(a)') ALine(67:ALineLength-1)
          write (ALine, '(1024x)')
          write (ALine, '(1024x)')
          write (ALine, '(1024x)')
          write (Chief, '(1024x)')
          write (Project, '(1024x)')
          write (Platform, '(1024x)')
          write (ActivityType, '(1024x)')
          write (Organization, '(1024x)')
          write (91, '(a)')
     *        char(9)//Chief(1:ChiefLength)//char(9)//char(9)//
     *        Project(1:ProjectLength)//char(9)//char(9)//
Opens
      open (unit = 90,
     *      access = "sequential",
     *      form = "formatted",
     *      status = "unknown",
     *      name = "/infobank/tmp/fieldplancheck.04s.temp")
      open (unit = 91,
     *      access = "sequential",
     *      form = "formatted",
     *      status = "unknown",
     *      name = "/infobank/tmp/fieldplancheck.04ids.temp")
      open (unit = 90,
     *      access = "sequential",
     *      form = "formatted",
     *      status = "unknown",
     *      name = "/infobank/tmp/fieldplancheck.05s.temp")
      open (unit = 91,
     *      access = "sequential",
     *      form = "formatted",
     *      status = "unknown",
     *      name = "/infobank/tmp/fieldplancheck.05ids.temp")
      open (unit = 90,
     *      access = "sequential",
     *      form = "formatted",
     *      status = "unknown",
     *      name = "/infobank/tmp/fieldplancheck.04ids.temp")
      open (unit = 90,
     *      access = "sequential",
     *      form = "formatted",
     *      status = "unknown",
     *      name = "/infobank/tmp/fieldplancheck.05ids.temp")
      open (unit = 90,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'unknown',
     *      name = '/infobank/tmp/fieldplancheck.dates.temp')
      open (unit = 91,
     *      access = 'sequential',
     *      form = 'formatted',
     *      status = 'unknown',
     *      name = '/infobank/tmp/fieldplancheck.all.temp')
              open (unit = 92,
     *              access = 'sequential',
     *              form = 'formatted',
     *              status = 'old',
     *              name = '/infobank/'//
     *                  ID(1:1)//'/'//
     *                  ID(1:IDLength)//'/meta/'//LongID(1:IDLength+3)//
     *                  '.chief')
              open (unit = 92,
     *              access = 'sequential',
     *              form = 'formatted',
     *              status = 'old',
     *              name = '/infobank/'//
     *                  ID(1:1)//'/'//
     *                  ID(1:IDLength)//'/meta/'//LongID(1:IDLength+3)//
     *                  '.project')
              open (unit = 92,
     *              access = 'sequential',
     *              form = 'formatted',
     *              status = 'old',
     *              name = '/infobank/'//
     *                  ID(1:1)//'/'//
     *                  ID(1:IDLength)//'/meta/'//LongID(1:IDLength+3)//
     *                  '.platform')
              open (unit = 92,
     *              access = 'sequential',
     *              form = 'formatted',
     *              status = 'old',
     *              name = '/infobank/'//
     *                  ID(1:1)//'/'//
     *                  ID(1:IDLength)//'/meta/'//LongID(1:IDLength+3)//
     *                  '.activitytype')
              open (unit = 92,
     *              access = 'sequential',
     *              form = 'formatted',
     *              status = 'old',
     *              name = '/infobank/'//
     *                  ID(1:1)//'/'//
     *                  ID(1:IDLength)//'/meta/'//LongID(1:IDLength+3)//
     *                  '.organization')
Calls
      call system ("/bin/ls -ld /infobank/?/*04*/ > 
     *             "/infobank/tmp/fieldplancheck.04s.temp")
      call system ("/bin/ls -ld /infobank/?/*05*/ > 
     *             "/infobank/tmp/fieldplancheck.05s.temp")
          call changecase ('SMALLS', ALine(1:ALineLength))
          call stringlen (ALine, ALineLength)
                  call system ('/bin/cat /infobank/'//
     *                ALine(1:1)//'/'//
     *                ALine(1:ALineLength)//'/meta/'//
     *                ALine(1:1)//'-'//ALine(2:2)//'-'//
     *                ALine(3:4)//'-'//ALine(5:6)//'.dates >&g
     *                '/infobank/tmp/fieldplancheck.04dates_all.temp')
                  call system ('/bin/cat /infobank/'//
     *                ALine(1:1)//'/'//
     *                ALine(1:ALineLength)//'/meta/'//
     *                ALine(1:1)//'-'//ALine(2:3)//'-'//
     *                ALine(4:5)//'-'//ALine(6:7)//'.dates >&g
     *                '/infobank/tmp/fieldplancheck.04dates_all.temp')
          call changecase ('SMALLS',ALine(1:ALineLength))
          call stringlen (ALine, ALineLength)
                  call system ('/bin/cat /infobank/'//
     *                ALine(1:1)//'/'//
     *                ALine(1:ALineLength)//'/meta/'//
     *                ALine(1:1)//'-'//ALine(2:2)//'-'//
     *                ALine(3:4)//'-'//ALine(5:6)//'.dates >&g
     *                '/infobank/tmp/fieldplancheck.05dates_all.temp')
                  call system ('/bin/cat /infobank/'//
     *                ALine(1:1)//'/'//
     *                ALine(1:ALineLength)//'/meta/'//
     *                ALine(1:1)//'-'//ALine(2:3)//'-'//
     *                ALine(4:5)//'-'//ALine(6:7)//'.dates >&g
     *                '/infobank/tmp/fieldplancheck.05dates_all.temp')
      call system ('/bin/grep " 10/" '//
     *    '/infobank/tmp/fieldplancheck.04dates_all.temp > 
     *    '/infobank/tmp/fieldplancheck.04dates_10.temp')
      call system ('/bin/grep " 11/" '//
     *    '/infobank/tmp/fieldplancheck.04dates_all.temp > 
     *    '/infobank/tmp/fieldplancheck.04dates_11.temp')
      call system ('/bin/grep " 12/" '//
     *    '/infobank/tmp/fieldplancheck.04dates_all.temp > 
     *    '/infobank/tmp/fieldplancheck.04dates_12.temp')
      call system ('/bin/cat '//
     *    '/infobank/tmp/fieldplancheck.04dates_10.temp '//
     *    '/infobank/tmp/fieldplancheck.04dates_11.temp '//
     *    '/infobank/tmp/fieldplancheck.04dates_12.temp '//
     *    ' | /bin/sort -k 2,2 -u > 
     *    '/infobank/tmp/fieldplancheck.04dates.temp')
      call system ('/bin/sort -k 2,2 -u '//
     *    '/infobank/tmp/fieldplancheck.05dates_all.temp > 
     *    '/infobank/tmp/fieldplancheck.05dates.temp')
      call system ('/bin/rm /infobank/tmp/fieldplancheck.*dates_*.temp')
      call system (
     *    '/bin/cat /infobank/tmp/fieldplancheck.??dates.temp > 
     *    '/infobank/tmp/fieldplancheck.dates.temp')
      call system ('/bin/rm /infobank/tmp/fieldplancheck.*ids.temp')
      call system ('/bin/rm /infobank/tmp/fieldplancheck.??dates.temp')
          call stringlen (ID, IDLength)
          call changecase ('SMALLS', ID(1:IDLength))
          call changecase ('CAPITALS', LongID)
      call system ('/bin/grep -v Woods '//
     *             '/infobank/tmp/fieldplancheck.all.temp > 
     *             '/infobank/programs/html/fieldplancheck/'//
     *             'fieldplancheck.results')
      call system ('/bin/rm /infobank/tmp/fieldplancheck.all.temp')

Skip footer navigational links

Coastal and Marine Science Centers:  Pacific   St. Petersburg   Woods Hole  
InfoBank   Coastal and Marine Geology Program   Geologic Information   Ask-A-Geologist   USGS Disclaimer  


Accessibility FOIA Privacy Policies and Notices

Take Pride in America logo USA.gov logo U.S. Department of the Interior | U.S. Geological Survey
URL: http://walrus.wr.usgs.gov/infobank/programs/html/fieldplancheck/fieldplancheck.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Nov 4 03:40:51 PST 2013  (chd)