Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- odometer

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
odometer
Synopsis
/infobank/programs/nav/odometer/odometer.for
Description
  Program to calculate the number of kilometers of track lines skipped/saved.

       
NOTES
  Uses the SKIPNSAV control file and the output file from EOTCSSP.

  It reads distances traveled from the EOTCSSP file.
  It attributes distance to specific lines based
  on the line labels in the SKIPNSAV control file.
    
PROMPTS
  Input  file # 1 = SKIPNSAV control file

  Input  file # 2 = EOTCSSP  output  file
  Enter name of input  file # 1:
  Enter name of input  file # 2:
  Enter name of output file:
    
SUBROUTINES
  vesc        (external include)

  openem      (external shareable)
  howlong     (external shareable)
  converttime (external shareable)
  forerror    (external shareable)
    
AUTHOR
  Carolyn Degnan, 1/25/85

  modified to read larger distance field, CD, 4/17/86
  changed to new lines format & removed percentage, CD, 6/9/99

    
Reads
              read ( 90, 10, err = 20, end = 30, iostat = ierr )
     *         iyear, ida, ihr, imin, isec, iten, alinsav, acodsav
              read ( 90, 10, err = 21, end = 31, iostat = ierr )
     *         iyear, ida, ihr, imin, isec, iten, alinskp, acodskp
              read ( 91, 12, err = 22, end = 70, iostat = ierr )
     *         iyear, ida, ihr, imin, isec, iten, rdistm
Writes
                  write ( 92, 60 ) alinlst, rsubskp, rsubsav
      write ( 92, 60 ) alinsav, rsubskp, rsubsav
      write ( 92, 80 ) rtotskp, rtotsav
Opens
Calls
      call openem ( 2, 1 )
              call converttime ( 'COMPRESS', ida, ihr, imin, isec, 
     *                           iten, itmsav, ErrorFlag )
              call forerror ( ierr )
              call converttime ( 'COMPRESS', ida, ihr, imin, isec, 
     *                           iten, itmskp, ErrorFlag )
              call forerror ( ierr )
              call converttime ( 'COMPRESS', ida, ihr, imin, isec, 
     *                           iten, itmeotcsp, ErrorFlag )
              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/nav/odometer/odometer.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:38:50 PDT 2013  (chd)