Expanded Description
| Topic |
Description |
| Name |
formwhnav |
| Synopsis |
/infobank/programs/kml/ongoing4kml/wh/formwhnav.for |
| Description |
Program to format Woods Hole navigation
|
| AUTHOR |
Clint Steele 4/14/2008
|
| Reads |
read (90, '(q,a)', end = 99)
* InFileLength, InFile(1:InFileLength)
read (92, '(q,a)', end = 98)
* ALineLength, ALine(1:ALineLength)
read (ALine(1:Blank-1), '(f)', err=3) Lat
read (ALine(Blank+1:ALineLength), '(f)', err=3) Long
|
| Writes |
write (91, '(1x)')
write (91, '(a)') '! '//ALine(1:ALineLength)
write (91, '(t16,f9.5,t26,f10.5)') Lat, Long
write (95, '(a)') InFile(1:InFileLength)
|
| Opens |
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = InFile(1:Underscore-1)//'.060')
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = InFile(1:InFileLength))
|
| Calls |
call openem (1,0)
|
|
