Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- desamtime

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
desamtime
Synopsis
/infobank/programs/dsmpl/desamtime/desamtime.for
Description
  Program to desample data to every Nth seconds. 

       
COMMENTS
  Assumes time is in integer tenths of a second format.

    
PROMPTS
  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:
    
SUBROUTINES
  vesc         (external include)

  openem       (external shareable)
  howlong      (external shareable)
  converttime  (external shareable)
  forerror     (external shareable)
    
AUTHOR
  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.

    
Reads
          read (90, 12, iostat = ErrorNumber, end = 99) Year,
     *          Day, Hour, Minute, Second, Tenths, Length, 
     *          ALine(1:Length)
Writes
                  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
Opens
Calls
      call openem  (1, -1)
              call forerror (ErrorNumber)
              call converttime ('COMPRESS', Day, Hour, Minute, Second, 
     *                          Tenths, PresentTime, ErrorFlag)
                      call forerror (ErrorNumber)
                      call forerror (ErrorNumber)

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/dsmpl/desamtime/desamtime.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:38:14 PDT 2013  (chd)