| Opens |
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/programs/gaz/atlaskeepfiles/'//
* 'atlas.files.keep')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/programs/gaz/atlaskeepfiles/'//
* 'pairs.keep')
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/programs/gaz/atlaskeepfiles/'//
* 'nopairs.keep')
|
| Reads |
read (90, '(12x,q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
|