Expanded Description
| Topic |
Description |
| Name |
equipxatlas |
| Synopsis |
/infobank/programs/gaz/equipxatlas/equipxatlas.for |
| Description |
Program to cross .atlas files with equipment types,
filling in upper levels as necessary.
|
| EXECUTION_TIME |
10 seconds
|
| AUTHOR |
Clint Steele 4/19/2004
added handler when no .atlas file exists, CDegnan, 02/21/2012
|
| Reads |
read (90, '(q,a)', end = 99)
* EquipLineLength, EquipLine(1:EquipLineLength)
read (91, '(q,a)', end = 97)
* ALineLength, ALine(1:ALineLength)
read (94, '(a1,t10,a)', end = 98) Bang, AtlasArea
|
| Writes |
write (Level1, '(39x)')
write (Level2, '(39x)')
write (Level2, '(39x)')
write (Level1, '(39x)')
write (LastEquip, '(39x)')
write(93, '(a)') 'could not find ',
* ALine(1:ALineLength)
write (ShortID, '(7x)')
write (LongID, '(10x)')
write (AtlasArea, '(4x)')
write (92, '(a,t10,a,t20,a)')
* ALine(1:7), AtlasArea,
* Level(3,EquipValue)(1:EquipLength(EquipValue))
write (92, '(a,t10,a,t20,a)')
* ALine(1:7), AtlasArea,
* Level(2,EquipValue)(1:TempLength)
write (92, '(a,t10,a,t20,a)')
* ALine(1:7), AtlasArea,
* Level(1,EquipValue)(1:TempLength)
write (92, '(a,t10,a,t20,a)')
* ALine(1:7), AtlasArea,
* Level(2,EquipValue)(1:EquipLength(EquipValue))
write (92, '(a,t10,a,t20,a)')
* ALine(1:7), AtlasArea,
* Level(1,EquipValue)(1:TempLength)
write (92, '(a,t10,a,t20,a)')
* ALine(1:7), AtlasArea,
* Level(1,EquipValue)(1:EquipLength(EquipValue))
|
| 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/programs/gaz/atlaskeepfiles/equip.byid.keep')
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name =
* '/infobank/programs/gaz/atlaskeepfiles/idareaequip.keep')
open (unit = 93,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/programs/gaz/atlaskeepfiles/'//
* 'equiptype.errors.keep')
open (unit = 94,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.atlas',
* err = 20)
|
| Calls |
call stringlen (Level(1,Loop), LevelLength(1,Loop))
call stringlen (Level(2,Loop), LevelLength(2,Loop))
call stringlen (Level(3,Loop), LevelLength(3,Loop))
call stringlen (Equip(Loop), EquipLength(Loop))
call stringlen (ALine(1:ALineLength), ALineLength)
call stringlen (ALine(1:7), IDLength)
call changecase ('SMALLS', ShortID)
call changecase ('SMALLS', AtlasArea)
call changecase ('SMALLS', ALine(1:9))
call stringlen (Level(2,EquipValue), TempLength)
call stringlen (Level(1,EquipValue), TempLength)
call stringlen (Level(1,EquipValue), TempLength)
|
|
