Expanded description
| Topic |
Description |
| Name |
refmtcurrent |
| Synopsis |
/infobank/programs/refmt/refmtcurrent/refmtcurrent.for |
| Description |
Program to reformat NODC Current Meter Data to DAPS format.
|
| Author |
Clint Steele 1/13/97
|
| Reads |
read (90, '(a)', end = 99) ARecord
read (ARecord(10:10), '(i1)') RecordType
read (ARecord, 2)
* NODCFileNumber, MeterNumber, Text
read (ARecord, 3)
* NODCFileNumber, MeterNumber,
* LatD, LatM, LatH, LongD, LongM, LongH,
* MasterOther
read (ARecord, 4)
* NODCFileNumber, MeterNumber,
* Year1, Month1, Day1, Hour1, Minutes1, Detail1Other
read (ARecord, 5)
* NODCFileNumber, MeterNumber,
* Year2, Month2, Day2, Hour2, Minutes2, Detail2Other
|
| Writes |
write (ARecord, '(60x)')
write (91, 101)
* NODCFileNumber, MeterNumber, Text
write (92, 102)
* Latitude, Longitude,
* NODCFileNumber, MeterNumber, MasterOther
write (93, 11)
* Year1, JulianDay1, Hour1, Minute1, Seconds1,
* Tenths1, Latitude, Longitude,
* NODCFileNumber, MeterNumber, Detail1Other
write (94, 12)
* Year2, JulianDay2, Hour2, Minute2, Seconds2,
* Tenths2, Latitude, Longitude,
* NODCFileNumber, MeterNumber, Detail2Other
|
| Calls |
call openem (1,-4)
call getcentury (Year1, Century)
call julianday ("JULIAN", JulianDay1, Year1, Month1, Day1)
call getcentury (Year2, Century)
call julianday ("JULIAN", JulianDay2, Year2, Month2, Day2)
|
|
