Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- getevents

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
getevents
Synopsis
/infobank/programs/html/makefmeta/getevents.for
Description
  Subroutine to ndle on/off EVENTS for formal metadata.


       
Reads
          read (TempUnit, '(a)', end=999) DataFile
              read (BestUnit, 2, end = 99) 
     *                           YearStart, DayStart, TimeStart,
     *                           YearEnd, DayEnd, TimeEnd
Writes
          write (DataFile, '(255x)')
               write (OutUnit, 2009) DataText//' ('//
     *            DataFile(Slash+1:Length)//' [DRS])'
               write (OutUnit, 2009) DataText//' ('//
     *            DataFile(Slash+1:Length)//' [SINS])'
               write (OutUnit, 2009) DataText//' ('//
     *            DataFile(Slash+1:Length)//' [GPS])'
              write (OutUnit, 2009) DataText//' ('//
     *            DataFile(Slash+1:Length)//')'
          write (OutUnit, 4)
              write (OutUnit, 3) YearStart, MonthStart, 
     *                           DayOfMonthStart, TimeStart,
     *                           YearEnd, MonthEnd, 
     *                           DayOfMonthEnd, TimeEnd
          write (OutUnit, 4)
Opens
          open (unit = TempUnit,
     *          file = PathName//'/'//
     *                 DataType//'/'//
     *                 LongID//'.best_'//DataType//'_file',
     *          access = 'sequential',
     *          form = 'formatted',
     *          status = 'old')
          open (unit = BestUnit,
     *          file = DataFile(1:Length)//'_events',
     *          access = 'sequential',
     *          form = 'formatted',
     *          status = 'old',
     *          err = 20)
Calls
          call stringlen (DataFile, Length)
              call julianday ("YMD", DayStart, YearStart, 
     *                               MonthStart, DayOfMonthStart)
              call julianday ("YMD", DayEnd, YearEnd, 
     *                               MonthEnd, DayOfMonthEnd)

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