Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- odometersum

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
odometersum
Synopsis
/infobank/programs/nav/odometersum/odometersum.for
Description
  Program to sum the odometer values for multiple activities.

       
INPUT
  A file containing a list of non-hyphenated activity IDs.

    
OUTPUT
  A file containing diagnostics and the cumulative distance in kms.

    
AUTHOR
  Clint Steele     11/22/2004


    
Reads
          read (90, '(q,a)', end = 99)
     *        IDLength, ID(1:IDLength)
              read (92, '(q,a)') 
     *            BestLength, BestNavFile(1:BestLength)
                      read (93, '(q,a)', end = 98)
     *                    ALength, ALine(1:ALength)
                      read (ALine(1:36), '(t16,f9.5,t26,f10.5)')
     *                    Lat1, Long1
                      read (93, '(q,a)', end = 98)
     *                    ALength, ALine(1:ALength)
                      read (ALine(1:36), '(t16,f9.5,t26,f10.5)')
     *                    Lat2, Long2
Writes
          write (ID, '(7x)')
          write (LongID, '(10x)')
              write (91, '(a)') 'No /nav/ for '//ID(1:IDLength)
              write (91, '(a)') 'No best nav file designated for '//
     *                 ID(1:IDLength)
                  write (91, '(a)') 'Could not find nav file for '//
     *                     ID(1:IDLength)
      write (91, '(f,a)') MeterSum/1000.0, ' kms'
Opens
              open (unit = 92,
     *              access = 'sequential',
     *              form = 'formatted',
     *              status = 'old',
     *              name = '/infobank/'//
     *                     ID(1:1)//'/'//
     *                     ID(1:IDLength)//'/nav/'//
     *                     LongID(1:IDLength+3)//'.best_nav_file')
                  open (unit = 93,
     *                  access = 'sequential',
     *                  form = 'formatted',
     *                  status = 'old',
     *                  name = BestNavFile(1:BestLength))
Calls
      call openem (1,-1)
          call changecase ('SMALLS', ID(1:IDLength))
                          call getdistance 
     *                       (Lat1, Long1, Lat2, Long2, Meters)

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