Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- processing

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
processing
Synopsis
/infobank/programs/html/makefmeta/processing.for
Description
  Subroutine to construct PROCESSING_STEPS for formal metadata.


       
Reads
          read (TempUnit, '(a)') DataFile
          read (TempUnit, '(a)', end=99) ALine
                  read (TempUnit, '(a)', end=99) ALine
          read (TempUnit, '(a)') ALine
          read (ALine(Position+5:Position+6), '(i2)') Day
          read (SystemDateTime(21:24), '(i)') SystemYear
              read (ALine(Position+9:Position+12), '(i4)') Year
                  read (SystemDateTime(9:10), '(i2)') SystemDay
Writes
          write (OutUnit, '(1x)')
          write (OutUnit, 237) DataText
          write (ALine, '(1024x)')
                          write (OutUnit, 4) ALine(3:ALineLength)
                          write (OutUnit, 2) ALine(3:ALineLength)
                  write (ALine, '(1024x)')
              write (OutUnit, 3)
          write (OutUnit, 220) Year, Month, Day
          write (OutUnit, '(1x)')
Opens
          open (unit = TempUnit,
     *          file = PathName//'/'//
     *                 DataType//'/'//
     *                 LongID//'.best_'//DataType//'_file',
     *          access = 'sequential',
     *          form = 'formatted',
     *          status = 'old')
          open (unit = TempUnit,
     *          file = DataFile(1:Length),
     *          access = 'sequential',
     *          form = 'formatted',
     *          status = 'old')
          open (unit   = TempUnit,
     *          file   = '/infobank/tmp/fmeta.filedate.temp',
     *          access = 'sequential',
     *          form   = 'formatted',
     *          status = 'old')
Calls
          call stringlen (DataFile, Length)
          call head (3, OutUnit, 
     *            'Process_Step:')
          call stringlen (ALine, ALineLength)
          call stringlen (ALine, ALineLength)
                  call stringlen (ALine, ALineLength)
          call system ('ls -l '//DataFile(1:Length)//
     *                 ' > /infobank/tmp/fmeta.filedate.tem
          call stringlen (ALine, ALineLength)
                  call julianday ('JULIAN', CurrentDay, 
     *                SystemYear, SystemMonth, SystemDay)
                  call julianday ('JULIAN', PastDay,
     *                SystemYear, Month, Day)
          call head (4, OutUnit, 
     *                'Process_Contact:')
          call contact (5, OutUnit)

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/makefmeta/processing.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Nov 4 03:40:42 PST 2013  (chd)