Expanded description
| Topic |
Description |
| Name |
ray2daps |
| Synopsis |
/infobank/programs/refmt/ray2daps/ray2daps.for |
| Description |
Program to reformat data from Ray Sliter to DAPS.
|
| Author |
Clint Steele 9/16/96
|
| Reads |
read (90, '(q,a)', end = 99) Length, ALine(1:Length)
read (ALine(1:Length), 2) Latitude, Longitude,
* Month, Day, Year, Hour, Minute, Second
|
| Writes |
write (91, 3) Year, DayOfYear, Hour, Minute, Second,
* Latitude, Longitude
|
| Calls |
call openem (1,-1)
call getcentury (Year, Century)
call julianday ("JULIAN", DayOfYear, Year, Month, Day)
|
|
