Expanded description
| Topic |
Description |
| Name |
rosenbaur2daps |
| Synopsis |
/infobank/programs/refmt/rosenbauer2daps/rosenbauer2daps.for |
| Description |
Program to convert Bob Rosenbauer's standard excel spreadsheet
to DAPS.
|
| Author |
Clint Steele 11/16/2007
|
| Reads |
read (5, '(q,a)') IDLength, ID(1:IDLength)
read (90, '(q,a)', end=99) ALineLength, ALine(1:ALineLength)
read (ALine(Tab(2)+1:Slash1-1), '(i)') Month
read (ALine(Slash1+1:Slash2-1), '(i)') Day
read (ALine(Slash2+1:Tab(3)-1), '(i)') Year
read (ALine(Tab(3)+1:Colon-1), '(i)') Hour
read (ALine(Colon+1:Colon+2), '(i)') Minute
read (ALine(Tab(4)+3:Tab(4)+4), '(i)', err=9) LatDeg
read (ALine(Tab(5)-7:Tab(5)-2), '(f)') LatMin
read (ALine(Tab(5)+3:Tab(5)+5), '(i)') LongDeg
read (ALine(Tab(6)-7:Tab(6)-2), '(f)') LongMin
|
| Writes |
write (91, 3) Year, DayOfYear, ZuluHour, Minute,
* Latitude, Longitude, ID(1:IDLength),
* ALine(1:Tab(1)-1),
* ALine(Tab(1)+1:Tab(2)-1),
* ALine(Tab(6)+1:Tab(7)-1)
|
| Calls |
call openem (1,1)
call changecase ('CAPITALS', ID(1:IDLength))
call julianday ('JULIAN', DayOfYear, Year, Month, Day)
|
|
