Expanded description
| Topic |
Description |
| Name |
fix180 |
| Synopsis |
/infobank/programs/nav/fix180/fix180.for |
| Description |
Program to correct longitudes that are greater than +180.00000
|
| Author |
Clint Steele 10/27/2000
|
| Opens |
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = AFile(1:AFileLength))
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/tmp/fix180.temp')
|
| Reads |
read (90, '(q,a)', end = 99)
* AFileLength, AFile(1:AFileLength)
read (91, '(q,a)', end = 98)
* ALineLength, ALine(1:ALineLength)
read (ALine(26:35), '(f10.5)', iostat = ErrorFlag,
* err = 3) Longitude
|
| Writes |
write (92, '(a)') ALine(1:ALineLength)
write (92, '(a,f10.5,a)')
* ALine(1:25),
* Longitude - 360.0,
* ALine(36:ALineLength)
write (92, '(a,f10.5,a)')
* ALine(1:25),
* Longitude + 360.0,
* ALine(36:ALineLength)
write (92, '(a)') ALine(1:ALineLength)
|
| Calls |
call openem (1,0)
call forerror (ErrorFlag)
call system ('/bin/mv /tmp/fix180.temp '//
* AFile(1:AFileLength))
call system ('/bin/rm /tmp/fix180.temp')
|
|
