Expanded description
| Topic |
Description |
| Name |
tom2daps |
| Synopsis |
/infobank/programs/refmt/tom2daps/tom2daps.for |
| Description |
Program to convert GrafNav data from Tom Reiss to DAPS standard
format.
|
| Author |
Clint Steele 2/7/2008
|
| Reads |
read (90, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
read (ALine(45:46), '(i2)') Month
read (ALine(48:49), '(i2)') Day
read (ALine(51:54), '(i4)') Year
read (ALine(57:58), '(i2)') Hour
read (ALine(60:61), '(i2)') Minute
read (ALine(63:64), '(i2)') Second
read (ALine(66:66), '(i1)') Tenth
read (ALine(68:70), '(i3)') LatDeg
read (ALine(72:73), '(i2)') LatMin
read (ALine(75:82), '(f8.5)') LatSec
read (ALine(84:87), '(i4)') LongDeg
read (ALine(89:90), '(i2)') LongMin
read (ALine(92:99), '(f8.5)') LongSec
|
| Writes |
write (91, '(a)') ALine(1:ALineLength)
write (91, '(i4.4,i3.3,3i2.2,i1.1,t16,f9.5,t26,f10.5,
* t52,a,t80,a,t90,a)')
* Year, JDay, Hour, Minute, Second, Tenth,
* Latitude, Longitude,
* ALine(1:7), ALine(102:ALineLength)
|
| Calls |
call openem (1,1)
call julianday ("JULIAN", JDay, Year, Month, Day)
|
|
