| Opens |
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = InFile(1:InFileLength)//'_events')
|
| Reads |
read (90, '(q,a)', end = 99)
* InFileLength, InFile(1:InFileLength)
read (92, '(q,a)', end = 98)
* ThisLineLength, ThisLine(1:ThisLineLength)
|