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
|
| 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 )
|
|
