Expanded Description
| Topic |
Description |
| Name |
equipgroups |
| Synopsis |
/infobank/programs/gaz/equipgroups/equipgroups.for |
| Description |
Program to create lists of equipment groups.
|
| EXECUTION_TIME |
1 second
|
| AUTHOR |
Clint Steele 4/28/2004
|
| Reads |
read (90, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
read (90, '(q,a)', end = 98)
* ALineLength, ALine(1:ALineLength)
read (90, '(q,a)', end = 98)
* ALineLength, ALine(1:ALineLength)
read (90, '(q,a)', end = 97)
* ALineLength, ALine(1:ALineLength)
read (90, '(q,a)', end = 97)
* ALineLength, ALine(1:ALineLength)
read (90, '(q,a)', end = 96)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (91, '(a)') ALine(1:ALineLength)
write (91, '(a)') ALine(3:ALineLength)
write (91, '(a)') ALine(5:ALineLength)
|
| Opens |
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/programs/keep/equiptypes.keep')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/gazette/equipment/regions.list')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/gazette/equipment/'//
* ALine(1:ALineLength)//'.list')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/gazette/equipment/'//
* ALine(3:ALineLength)//'.list')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/gazette/equipment/'//
* ALine(5:ALineLength)//'.list')
|
| Calls |
call system ('/bin/rm /infobank/gazette/equipment/*.list')
|
|
