Expanded description
| Topic |
Description |
| Name |
facs2navigation |
| Synopsis |
/infobank/programs/refmt/facs2navigation/facs2navigation.for |
| Description |
Program to convert a .navigation_log file
to a .navigation file.
|
| Author |
Clint Steele 12/7/2000
|
| Promts |
'Enter non-hyphenated ActivityID'
|
| Input |
(Day, Hour, Min, Sec,
LatDeg, LatMin, LatSec,
LongDeg, LongMin, LongSec, Comment)
(i,t,i,t,i,t,i,t,f,t,f,t,f,t,f,t,f,t,f,t,a)
|
| Output |
(Year, Day, Hour, Min, Sec, Tenths, Lat, Long, Comment)
(i4.4, i3.3, 3i2.2, i1.1, t16, f9.5, t26, f10.5, t37, a)
|
| Opens |
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = InFile(1:InFileLength),
* err = 2)
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = OutFile(1:OutFileLength))
|
| Reads |
read (5, '(q,a)', end=999)
* IDLength, ID(1:IDLength)
read (90, '(q,a)', end = 199)
* ALineLength, ALine(1:ALineLength)
read (ID(3:4), '(i2)') Year
read (ID(4:5), '(i2)') Year
read (90, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
read (TempDay(1:Slash1-1), '(i)') CMonth
read (TempDay(Slash1+1:Slash2-1), '(i)') CDay
read (ALine(1:Tabs(1)-1), '(i)') Day
read (ALine(Tabs(1)+1:Tabs(2)-1), '(i)') Hour
read (ALine(Tabs(2)+1:Tabs(3)-1), '(i)') Minute
read (ALine(Tabs(3)+1:Tabs(4)-1), '(i)') Second
read (ALine(Tabs(4)+1:Tabs(5)-1), '(i)') ILatDeg
read (ALine(Tabs(4)+1:Tabs(5)-1), '(f)') LatDeg
read (ALine(Tabs(5)+1:Tabs(6)-1), '(i)') ILatMin
read (ALine(Tabs(5)+1:Tabs(6)-1), '(f)') LatMin
read (ALine(Tabs(6)+1:Tabs(7)-1), '(i)') ILatSec
read (ALine(Tabs(6)+1:Tabs(7)-1), '(f)') LatSec
read (ALine(Tabs(7)+1:Tabs(8)-1), '(i)') ILongDeg
read (ALine(Tabs(7)+1:Tabs(8)-1), '(f)') LongDeg
read (ALine(Tabs(8)+1:Tabs(9)-1), '(i)') ILongMin
read (ALine(Tabs(8)+1:Tabs(9)-1), '(f)') LongMin
read (ALine(Tabs(9)+1:Tabs(10)-1), '(i)') ILongSec
read (ALine(Tabs(9)+1:Tabs(10)-1), '(f)') LongSec
|
| Writes |
write (BigID, '(10x)')
write (InFile, '(1024x)')
write (OutFile, '(1024x)')
write (Comment, '(1024x)')
write (91, 8) Year, Day, Hour, Minute, Second,
* Latitude, Longitude
write (91, 9) Year, Day, Hour, Minute, Second,
* Latitude, Longitude, Comment(1:CommentLength)
|
| Calls |
call changecase ('SMALLS', ID(1:IDLength))
call changecase ('CAPITALS', BigID(1:IDLength))
call stringlen (InFile, InFileLength)
call stringlen (OutFile, OutFileLength)
call getcentury (Year, Century)
call changecase ('SMALLS', ALine(1:ALineLength))
call stringlen (TempDay, Slash2)
call julianday ('JULIAN', Day, Year, CMonth, CDay)
call stringlen (Comment, CommentLength)
|
|
