| Reads |
read(80, '(q,a)')ALineLength, ALine
read (ScratchUnit, '(q,a)',end=99)
* AbstractLength,Abstract(1:AbstractLength)
|
| Writes |
write (OutUnit, '(4x,a)') '<t
write (OutUnit, '(6x,a)') '<
write (OutUnit, '(6x,a)') ALine(9 : FirstComma -1)
write (OutUnit, '(6x,a)') '</
write (OutUnit, '(6x,a)') '<
write (OutUnit, '(6x,a)') ALine(9 : ALineLength)
write (OutUnit, '(6x,a)') '</
write (OutUnit, '(1x,a)') '<br
write (Abstract, '(1024x)')
write (OutUnit, '(6x,a)') Abstract(1:AbstractLength)//' '
write (OutUnit, '(6x,a)') '[no abstract available]'
write (OutUnit, '(4x,a)') '</t
|
| Opens |
open (unit = 80,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/'//ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.operationarea')
open (unit = ScratchUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/'//ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//
* '.abstract')
|
