Expanded description
| Topic |
Description |
| Name |
logbook2dafe |
| Synopsis |
/infobank/programs/refmt/logbook2dafe/logbook2dafe.for |
| Description |
Program to extract and reformat data from Yonav logbook
files to a more DAFE format.
|
| Author |
Clint Steele 08/30/95
|
| Opens |
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* file = FileName(Bracket:Dot) // '.lines',
* status = 'new')
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* file = FileName(Bracket:Dot) // '.nav',
* status = 'new')
open (unit = 93,
* access = 'sequential',
* form = 'formatted',
* file = FileName(Bracket:Dot) // '.bath',
* status = 'new')
open (unit = 94,
* access = 'sequential',
* form = 'formatted',
* file = FileName(Bracket:Dot) // '.seis',
* status = 'new')
open (unit = 95,
* access = 'sequential',
* form = 'formatted',
* file = FileName(Bracket:Dot) // '.stations',
* status = 'new')
open (unit = 96,
* access = 'sequential',
* form = 'formatted',
* file = FileName(Bracket:Dot) // '.other',
* status = 'new')
|
| Reads |
read (90, '(q,a)', end = 99) ALength, ALine(1:ALength)
read (Time, '(i3,1x,i2,1x,i2,1x,i2,1x,i3)')
* day, hour, minute, second, tenths
read (NewLine(IStarts+9:),
* '(i2,2x,f8.5,2x,a1,1x,i3,2x,f8.5,2x,a1)')
* Lat, Latm, NS, Long, Longm, EW
read (NewLine(IStops+9:),
* '(i2,2x,f8.5,2x,a1,1x,i3,2x,f8.5,2x,a1)')
* Lat, Latm, NS, Long, Longm, EW
read (NewLine(ISite+7:),
* '(i2,2x,f8.5,2x,a1,1x,i3,2x,f8.5,2x,a1)')
* Lat, Latm, NS, Long, Longm, EW
read (Comment(1:), '(f7.1)', err = 944) Depth
read (Position, '(i2,2x,f8.5,2x,a1,1x,i3,2x,f8.5,2x,a1)')
* Lat, Latm, NS, Long, Longm, EW
|
| Writes |
write (LastLine, '(255x)')
write (ALine, '(255x)')
write (Time, '(16x)')
write (RecordType, '(10x)')
write (Comment, '(255x)')
write (Position, '(21x)')
write (NewLine, '(255x)')
write (OutLine, '(255x)')
write (OutLine, 333) NewLine(IName+9:INum-1),
* LatStarts, LongStarts, LatStops, LongStops,
* NewLine(IRange+9:IBearing-1),
* NewLine(IBearing+9:OLength)
write (95, 339) LatStarts, LongStarts,
* NewLine(IName+7:ISite-1)
write (Comment(CLength-8:CLength), '(9x)')
write (93, 930)
* day, hour, minute, second, tenths,
* -Depth
write (Comment(CLength-8:CLength), '(9x)')
write (OutputUnit, '(i3.3,3i2.2,i1.1,t12,a)')
* day, hour, minute, second, tenths,
* Comment(1:CLength)
write (91, '(i3.3,3i2.2,i1.1,t12,a)')
* day, hour, minute, second, tenths,
* Comment(1:CLength)
write (96, '(i3.3,3i2.2,i1.1,t12,a)')
* day, hour, minute, second, tenths,
* Comment(1:CLength)
write (92, '(i3.3,3i2.2,i1.1,t12,a)')
* day, hour, minute, second, tenths, OutLine(1:OLength)
write (93, '(i3.3,3i2.2,i1.1,t12,a)')
* day, hour, minute, second, tenths, OutLine(1:OLength)
write (92, '(i3.3,3i2.2,i1.1,t12,a)')
* day, hour, minute, second, tenths, OutLine(1:OLength)
write (96, '(i3.3,3i2.2,i1.1,t12,a)')
* day, hour, minute, second, tenths, OutLine(1:OLength)
|
| Calls |
call openem (1,0)
call stringlen (ALine, ALength)
call stringlen (ALine, ALength)
call stringlen (NewLine, OLength)
call stringlen (OutLine, OLength)
call stringlen (Comment, CLength)
call stringlen (Comment, CLength)
call stringlen (Comment, CLength)
call stringlen (Position, PLength)
call stringlen (Comment, CLength)
call stringlen (Comment, CLength)
call stringlen (Comment, CLength)
call stringlen (Comment, CLength)
call stringlen (OutLine, OLength)
|
|
