Expanded description
| Topic |
Description |
| Name |
seeline |
| Synopsis |
/infobank/programs/util/seeline/seeline.for |
| Description |
Program to extract all lines that are exactly a specified length.
|
| Author |
Clint Steele 1/7/2008
|
| Reads |
read (5, '(i)') SearchLength
read (90, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (91, '(a,5x,i8)') ALine(1:ALineLength),
* LineCount
|
| Calls |
call openem (1, -1)
|
|