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
|
| 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))
|
| 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'
|
| Calls |
call openem (1,-1)
call changecase ('SMALLS', ID(1:IDLength))
call getdistance
* (Lat1, Long1, Lat2, Long2, Meters)
|
|
