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
|
| Calls |
call openem (1, -1)
call percentage (90)
call percentage (0)
|
