USGS InfoBank program -- eventchecker

eventchecker

   Program to check _events files 

   from a list of .onoff. files 
   that contain start/end information.
       

   Clint Steele      9/20/2001


    

          read (90, '(q,a)', end = 99)
     *        InFileLength, InFile(1:InFileLength)
              read (92, '(q,a)', end = 98)
     *            ThisLineLength, ThisLine(1:ThisLineLength)

                  write (91, '(a)') 
     *                InFile(1:InFileLength)//'_events'

          open (unit = 92,
     *          access = 'sequential',
     *          form = 'formatted',
     *          status = 'old',
     *          name = InFile(1:InFileLength)//'_events')

      call openem (1,-1)