Expanded description
| Topic |
Description |
| Name |
dig2depths |
| Synopsis |
/infobank/programs/refmt/dig2depths/dig2depths.for |
| Description |
Program to convert digitized depths to DAPS standard format.
|
| Author |
Clint Steele 5/14/98
|
| Opens |
open (unit = 92,
* access = 'append',
* form = 'formatted',
* status = 'unknown',
* name = OutName(1:OutLength)//'.header')
open (unit = 91,
* access = 'append',
* form = 'formatted',
* status = 'unknown',
* name = OutName(1:OutLength)//'.310_'//
* Horizon(1:HorizonLength))
|
| Reads |
read (5, '(i4)', end = 99) Year
read (5, '(q,a)', end = 99) OutLength, OutName
read (90, '(q,a)', end = 99) Length, ALine(1:Length)
read (ALine(8:Length), '(a)') Horizon
read (ALine(1:Length), 2)
* Day, Hour, Minute, Second, Depth
|
| Writes |
write (ALine, '(512x)')
write (Horizon, '(80x)')
write (91, 3) Year, Day, Hour, Minute, Second,
* Depth, Horizon(1:HorizonLength)
write (92, 4) ALine(1:Length)
|
| Calls |
call openem (1,0)
call stringlen (Horizon, HorizonLength)
|
|
