Expanded description
| Topic |
Description |
| Name |
automerge |
| Synopsis |
/infobank/programs/edit/automerge/automerge.for |
| Description |
Program to automatically merge navigation to a data file.
|
| Comments |
Based on MERGEIT
Data that occurs before the navigation starts are not preserved.
Data that occurs after the navigation ends are not preserved.
When data time and navigation time are identical, navigation is added.
When data time has no corresponding navigation time,
navigation is linearly interpolated from the surrounding 2 fixes.
Output is:
YYYYDDDHHMMSST LAT.ITUDE LONG.ITUDE TENTHSEC.S ORIGINAL_DATA.......
(i4.4,i3.3,3i2.2,i1.1, 1x,f9.5, 1x,f10.5, 1x,f10.1, 1x,a) or
(i4.4,i3.3,3i2.2,i1.1,t16,f9.5,t26,f10.5,t37,f10.1,t48,a)
|
| Author |
Clint Steele .for 10/9/98
|
| Prompts |
Enter data file name:
Enter navigation file name:
|
| Subroutines |
converttime (external shareable)
openem (external shareable)
|
| Reads |
read (90, 90, err = 99, end = 98)
* DataYr, DataDay, DataHour, DataMin, DataSec, DataTen,
* DataLineLength, DataLine(1:DataLineLength)
read (91, 91, err = 97, end = 96)
* NavYr, NavDay, NavHour, NavMin, NavSec, NavTen,
* NavLat, NavLong
|
| Writes |
write (92, 701)
write (92, 92)
* DataYr, DataDay, DataHour, DataMin, DataSec, DataTen,
* NavLat, NavLong, DeltaTime/10.0,
* DataLine(1:DataLineLength)
write (92, 92)
* DataYr, DataDay, DataHour, DataMin, DataSec, DataTen,
* Latitude, Longitude, DeltaTime/10.0,
* DataLine(1:DataLineLength)
write (92, 92)
* DataYr, DataDay, DataHour, DataMin, DataSec, DataTen,
* InterpLat, InterpLong, DeltaTime/10.0,
* DataLine(1:DataLineLength)
|
| Calls |
call openem (2, 1)
call converttime ('COMPRESS', DataDay, DataHour, DataMin,
* DataSec, DataTen, DataTime, ErrorFlag)
call converttime ('COMPRESS', NavDay, NavHour, NavMin,
* NavSec, NavTen, NavTime, ErrorFlag)
call converttime ('COMPRESS', DataDay, DataHour, DataMin,
* DataSec, DataTen, DataTime, ErrorFlag)
call converttime ('COMPRESS', NavDay, NavHour, NavMin,
* NavSec, NavTen, NavTime, ErrorFlag)
|
|
