Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- timegaps

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
timegaps
Synopsis
/infobank/programs/time/timegaps/timegaps.for
Description
  Program to summarize all time gaps. 

       
PROMPTS
  Enter input file  name:

  Enter output file name:
       Output file contains program generated report.
    
OUTPUT_REPORT
  The program generates a report showing:

  the number of each time gap detected from 0 to 599 seconds,
  the total number of gaps detected per minute,
  the number of time gaps > 599 seconds detect
  and the number of time gaps < 0 seconds detect
  The full pathname of the input file
  from which the report was generated is also listed.
    
SUBROUTINES
  openem       (external shareable)

  forerror     (external shareable)
  converttime  (external shareable)
    
AUTHOR
  Clint Steele and Ed Maple             12/17/84                .for


    
Reads
          read (90, 400, iostat = ierr, end = 900)
     *        iday, ihr, imin, isec, iten
Writes
      write (91, 500, iostat = ierr) aname, (inum, inum = 0, 9)
          write (91, 510, iostat = ierr) 0, izero,
     *                                  (igapcnt (i), i = 60, 540, 60)
              write (91, 550, iostat = ierr)
     *            igapsec, (igapcnt (i),
     *                               i = igapsec, (540 + igapsec), 60)
      write (91, 530, iostat = ierr) (igaptot (j), j = 1, 10)
      write (91, 540, iostat = ierr) ibig, ineg
Opens
Calls
      call openem (1, -1)
              call forerror (ierr)
              call converttime ('COMPRESS', iday, ihr, imin, isec, 
     *                          0, itemp, ErrorFlag)
          call forerror (ierr)
              call forerror (ierr)
                  call forerror (ierr)
          call forerror (ierr)
          call forerror (ierr)

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