USGS InfoBank program -- getevents

getevents

  Subroutine to ndle on/off EVENTS for formal metadata.

    

     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')

    

     read (TempUnit, '(a)', end=999) DataFile
         read (BestUnit, 2, end = 99) 
*                           YearStart, DayStart, TimeStart,
*                           YearEnd, DayEnd, TimeEnd

    

     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)
    

     call stringlen (DataFile, Length)
         call julianday ("YMD", DayStart, YearStart, 
*                               MonthStart, DayOfMonthStart)

         call julianday ("YMD", DayEnd, YearEnd, 
*                               MonthEnd, DayOfMonthEnd)