Expanded Description
| Topic |
Description |
| Name |
sed2samples |
| Synopsis |
/infobank/programs/edit/sed2samples/sed2samples.for |
| Description |
Program to convert paragraph delimited sediment data to text files.
|
| AUTHOR |
Clint Steele 6/18/97
|
| Reads |
read (90, '(//////)')
read (90, '(q,a)', end = 99)
* LatLineLength, LatLine(1:LatLineLength)
read (LatLine(1:LatLineLength), '(i2,1x,f4.1)')
* LatDeg, LatMin
read (90, '(q,a)', end = 99)
* LongLineLength, LongLine(1:LongLineLength)
read (LongLine(1:LongLineLength), '(i3,1x,f4.1)')
* LongDeg, LongMin
read (90, '(q,a)') DepthLength, Depth(1:DepthLength)
read (90, '(q,a)') JunkLength, Junk(1:JunkLength)
read (90, '(q,a)') ALineLength, ALine(1:ALineLength)
read (90, '(q,a)') ALineLength, ALine(1:ALineLength)
read (90, '(q,a)') SampleTypeLength,
* SampleType(1:SampleTypeLength)
read (90, '(q,a)') JunkLength, Junk(1:JunkLength)
read (90, '(q,a)') SampleNumberLength,
* SampleNumber(1:SampleNumberLength)
read (90, '(q,a)') JunkLength, Junk(1:JunkLength)
|
| Writes |
write (LatLine, '(80x)')
write (LongLine, '(80x)')
write (Depth, '(80x)')
write (Description, '(1024x)')
write (Age, '(1024x)')
write (SampleNumber, 333) NullCount
write (SampleNumber(SampleNumberLength+1:), 334)
* DuplicateCount
write (91, 10) SampleNumber(1:SampleNumberLength)
write (91, 11)
write (91, 32)
write (91, 12) SampleType(1:SampleTypeLength)
write (91, 13) Latitude, Longitude
write (ALine, '(1024x)')
write (ALine, 345) LatLine(1:LatLineLength),
* LongLine(1:LongLineLength)
write (91, 14) Depth(1:DepthLength)
write (91, 115)
write (OutputUnit, '(a)') String(First:Last)
|
| Opens |
open (unit = 91,
* form = 'formatted',
* status = 'new',
* access = 'sequential',
* file = SampleNumber(1:SampleNumberLength)//
* '.sample',
* err = 999,
* iostat = ErrorFlag)
|
| Calls |
call openem (1,0)
call stringlen (Depth, DepthLength)
call splitit (91, Description, DescriptionLength)
call stringlen (Description, DescriptionLength)
call stringlen (Description, DescriptionLength)
call stringlen (Description, DescriptionLength)
call splitit (91, Age, AgeLength)
call stringlen (Age, AgeLength)
call stringlen (Age, AgeLength)
call stringlen (Age, AgeLength)
call stringlen (SampleNumber, SampleNumberLength)
call stringlen (SampleNumber, SampleNumberLength)
call stringlen (ALine, ALineLength)
call splitit (91, ALine, ALineLength)
call splitit (91, Description, DescriptionLength)
call splitit (91, Age, AgeLength)
call stringlen (String, Length)
call stringlen (String, Length)
|
|
