Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- checkeot

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
checkeot
Synopsis
/infobank/programs/nav/checkeot/checkeot.for
Description
  Program to check for excessive EOTVOS values (over |200|).

       
NOTES
  If any EOTVOS value over 200 is found, a record is written to the

  output log file with the input record number and the EOTVOS value.
  A record is also written if an error occurs reading the input file.
  Input file is expected to be a standard EOTCSSP format file, with
  EOTVOS being (t33, f8.2).
    
RECOMMENDED_USAGE
  Use this program to look for faulty navigation. A large EOTVOS value

  may indicate a bad fix. Using the output log file, examine the 
  indicated records in the input file and edit the records as needed.
  Editing will usually mean deleting the bad record out of the input 
  file.
    
PROMPTS
  NOTE: Output file is the program log file.

    
  Enter input file name:
  Enter output file name:
    
SUBROUTINES
  percentage (external shareable)

  openem     (external shareable)
    
AUTHOR
  Clint Steele                 2/6/84          .for

  modified for new formats and MAT    Clint Steele     3/4/85
  added output header line      5/9/86      Clint Steele
  changed output log file format to output record numbers rather than
  record times, modified code to eliminate unecessary 'goto''s.
       Ed Maple   4/14/88

    
Reads
          read (90, '(a1)') comment
          read (90, '(t37, f8.2)', end = 900, iostat = ierr) eotvos
Writes
      write (91, '('' checkeot for file '', a80, /)' ) aname
              write (91, '(i6, '' Input file read error.'')' ) incount
              write (91, '(i6, 1x, f8.2)' ) incount, eotvos
Opens
Calls
      call openem (1, -1)
          call percentage (90)
      call percentage (0)

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