Expanded Description
| Topic |
Description |
| Name |
equipids4area |
| Synopsis |
/infobank/programs/gaz/equipids4area/equipids4area.for |
| Description |
Program to create .ids lists by area for each equipment type.
|
| EXECUTION_TIME |
3 minutes
|
| AUTHOR |
Clint Steele 4/19/2004
|
| Reads |
read (90, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (EquipType, '(39x)')
write (91, '(a)') ALine(1:ALineLength)
|
| Opens |
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name =
* '/infobank/programs/gaz/atlaskeepfiles/equip.sorted.keep')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/gazette/ids/'//
* EquipType(1:EquipTypeLength)//'/'//
* Area(1:AreaLength)//'.ids')
|
| Calls |
call stringlen (ALine(1:ALineLength), ALineLength)
call system ('/bin/mkdir '//
* '/infobank/gazette/ids/'//
* ALine(20:ALineLength)//
* ';/bin/cp /infobank/gazette/index.html '//
* '/infobank/gazette/ids/'//
* ALine(20:ALineLength)//'/index.html')
call system ('/bin/mkdir '//
* '/infobank/gazette/jpg/'//
* ALine(20:ALineLength)//
* ';/bin/cp /infobank/gazette/index.html '//
* '/infobank/gazette/jpg/'//
* ALine(20:ALineLength)//'/index.html')
call system ('/bin/mkdir '//
* '/infobank/gazette/html/'//
* ALine(20:ALineLength)//
* ';/bin/cp /infobank/gazette/index.html '//
* '/infobank/gazette/html/'//
* ALine(20:ALineLength)//'/index.html')
call system ('/bin/mkdir '//
* '/infobank/gazette/htmlids/'//
* ALine(20:ALineLength)//
* ';/bin/cp /infobank/gazette/index.html '//
* '/infobank/gazette/htmlids/'//
* ALine(20:ALineLength)//'/index.html')
call stringlen (EquipType, EquipTypeLength)
call stringlen (Area, AreaLength)
|
|
