Expanded description
| Topic |
Description |
| Name |
doopareainfo |
| Synopsis |
/infobank/programs/html/ongoing/doopareainfo.for |
| Description |
Subroutine to read .operationarea file information
|
| Author |
Clint Steele 3/24/2008
|
| Opens |
open (unit = ScratchUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/'//ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//
* '.operationarea')
|
| Reads |
read (ScratchUnit, '(q,a)', end=99)
* OpAreaLength,OpArea(1:OpAreaLength)
|
| Writes |
write (OutUnit, '(4x,a)') '<td>'
write (OpArea, '(1024x)')
write (OutUnit, '(6x,a)') OpArea(OutStart:OpAreaLength)
write (OutUnit, '(6x,a)') '[no operation area listed]'
write (OutUnit, '(4x,a)') '</td>'
|
| Calls |
call stringlen (OpArea(1:OpAreaLength), OpAreaLength)
|
|
