Expanded description
| Topic |
Description |
| Name |
alignseis |
| Synopsis |
/infobank/programs/seis/alignseis/alignseis.for |
| Description |
Program to right justify line, FFID, shot, and CDP values
for seismic data files.
|
| Author |
Clint Steele 5/30/2007
|
| Reads |
read (90, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (TempLine, '(11x)')
write (ALine(LineStart:LineEnd), '(11x)')
write (TempLine, '(11x)')
write (ALine(FFIDStart:FFIDEnd), '(9x)')
write (TempLine, '(11x)')
write (ALine(ShotStart:ShotEnd), '(9x)')
write (TempLine, '(11x)')
write (ALine(CDPStart:CDPEnd), '(9x)')
write (91, '(a)') ALine(1:ALineLength)
|
| Calls |
call openem (1, 1)
call stringlen (ALine(LineStart:LineEnd), TempLength)
call stringlen (ALine(FFIDStart:FFIDEnd), TempLength)
call stringlen (ALine(ShotStart:ShotEnd), TempLength)
call stringlen (ALine(CDPStart:CDPEnd), TempLength)
|
|
