Expanded description
| Topic |
Description |
| Name |
lamont2daps |
| Synopsis |
/infobank/programs/refmt/lamont2daps/lamont2daps.for |
| Description |
Program to reformat Lamont data to DAPS format.
|
| Author |
CDegnan, 8/23/01, modified for /we/ray/larse/e-15-94-sc.nav input
CDegnan, 8/10/94, modified processnoshdb.for to DAPS standard
CSteele & CDegnan, 3/12/2002, renamed to lamont2daps.for
now handles all Lamont data types
|
| Reads |
read (InputUnit, '(q,a)', iostat = ErrorFlag)
* TheLineLength, TheLine(1:TheLineLength)
read (TheLine(1:TheLineLength), 400, iostat = ErrorFlag)
* iYr,iDa,iHr,iMin,iSec,iTen,iThou,
* NS,iLatDeg,rLatMin,
* EW,iLonDeg,rLonMin
read (TheLine(1:TheLineLength), 401, iostat = ErrorFlag)
* iYr,iDa,iHr,iMin,iSec,iTen,iThou
read (TheLine(iNSPosition+1:TheLineLength), 402,
* iostat = ErrorFlag)
* NS, iLatDeg, rLatMin,
* EW, iLonDeg, rLonMin
|
| Writes |
write (aShot , '(9x)')
write (OutputUnit, 500)
* iYr+iCentury,iDa,iHr,iMin,iSec,iTen,
* rLat,rLon,
* TheLine(48:TheLineLength),
* TheLine(1:TheLineLength)
write (OutputUnit, 501)
* iYr+iCentury,iDa,iHr,iMin,iSec,iTen,
* rLat,rLon,
* aShot,
* TheLine(iNSPosition+28:TheLineLength),
* TheLine(1:TheLineLength)
|
| Calls |
call openem (1, 1)
call getcentury (iYr, iCentury)
call forerror (ErrorFlag)
|
|
