Expanded description
| Topic |
Description |
| Name |
refmtthales |
| Synopsis |
/infobank/programs/nav/refmtthales/refmtthales.for |
| Description |
Program to convert Thales GeoSolutions, Inc. navigation (.dat) files
to DAPS standard format
|
| Author |
Clint Steele 1/30/2002
|
| Reads |
read (90, '(q,a)', end = 99) ALineLength, ALine
read (ALine,
* '(6(i2,1x),i1,1x,a1,i2,1x,f7.4,1x,a1,i3,1x,f7.4)')
* Month, Day, Year, Hour, Minute, Seconds, Tenth,
* NSHemisphere, LatDeg, LatMin,
* EWHemisphere, LongDeg, LongMin
|
| Writes |
write (InName, '(255x)')
write (91,
* '(i4.4,i3.3,3i2.2,i1.1,t16,f9.5,t26,f10.5,1x,a)')
* Year+Century, JDay, Hour, Minute, Seconds, Tenth,
* Latitude, Longitude, InName(Slash:Dat-1)
|
| Calls |
call openem (1,-1)
call stringlen (InName, InNameLength)
call getcentury (Year, Century)
call julianday ('JULIAN', JDay, Year+Century, Month, Day)
|
|
