Expanded description
| Topic |
Description |
| Name |
ewingnav2daps |
| Synopsis |
/infobank/programs/refmt/ewingnav2daps/ewingnav2daps.for |
| Description |
Program to reformat Ewing navigation to DAPS format.
|
| Author |
Clint Steele 2/9/05
|
| Reads |
read (90, '(q,a)') ALineLength, ALine(1:ALineLength)
read (90, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
read (ALine(1:2), '(i2)') Year
read (ALine(4:19), '(i3,1x,i2,1x,i2,1x,i2,1x,i3)')
* Day, Hour, Minute, Second, Tenths
read (ALine(21:25), '(i)') Shot
read (ALine(29:38), '(i2,1x,f7.4)') Lat, LatDD
read (ALine(42:52), '(i3,1x, f7.4)') Long, LongDD
read (90, 2, end = 99)
* Year, Month, Day, Hour, Minute, Second,
* Longitude, Latitude
|
| Writes |
write (91, '(i4.4,i3.3,3i2.2,i1.1,t16,f9.5,t26,f10.5,
* t37,a,t50,i5.5)')
* Year, Day, Hour, Minute, Second, Tenths,
* Latitude, Longitude, ALine(54:ALineLength), Shot
write (91, 3)
* Year, JDay, Hour, Minute, Second,
* Latitude, Longitude-360.0
|
| Calls |
call openem (1,1)
call getcentury (Year, Century)
call julianday ('JULIAN', JDay, Year, Month, Day)
|
|
