| Opens |
open (unit = 89,
* form = 'formatted',
* access = 'sequential',
* status = 'old',
* file = '/infobank/programs/keep/cruises.keep')
|
| Reads |
read (5, '(q,a)') FileTypeLength,
* FileType(1:FileTypeLength)
read (89, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
|