USGS InfoBank program -- desamtime

desamtime

  Program to desample data to every Nth seconds. 

       

  Assumes time is in integer tenths of a second format.

    

  Enter input file name:   (up to 255 characters per record,

                  with integer time at the beginning of each record.)
  Enter output file name:  (desampled input to every ?? seconds)
  Enter desampling time interval in integer seconds:
    

  vesc         (external include)

  openem       (external shareable)
  howlong      (external shareable)
  converttime  (external shareable)
  forerror     (external shareable)
    

  Clint Steele    11/5/84             .for

  Ed Maple        1/16/85   Changed to expect only integer tenths of 
                              a second time. Desample time expected in 
                              integer seconds.
  Ed Maple        6/10/85   Added counter for number of records written 
                              to output. Modified to please MAT.    
  Clint Steele    10/27/88  Added ability to handle negative time jumps.

    

          read (90, 12, iostat = ErrorNumber, end = 99) Year,
     *          Day, Hour, Minute, Second, Tenths, Length, 
     *          ALine(1:Length)

                  write (91, 13, iostat = ErrorNumber) Year,
     *                   Day, Hour, Minute, Second, Tenths, 
     *                   ALine(1:Length)
                  write (91, 13, iostat = ErrorNumber) Year,
     *                   Day, Hour, Minute, Second, Tenths, ALine

      call openem  (1, -1)
              call forerror (ErrorNumber)
              call converttime ('COMPRESS', Day, Hour, Minute, Second, 
     *                          Tenths, PresentTime, ErrorFlag)
                      call forerror (ErrorNumber)
                      call forerror (ErrorNumber)