Expanded Description
| Topic |
Description |
| Name |
titleline |
| Synopsis |
/infobank/programs/html/makefmeta/titleline.for |
| Description |
Subroutine to create title sentence for formal metadata.
|
| Reads |
read (MetaUnit, '(q,a)', end = 105)
* ALineLength, ALine(1:ALineLength)
read (MetaUnit, '(q,a)', end = 104)
* ALineLength, ALine(1:ALineLength)
read (MetaUnit, '(q,a)', end = 102)
* ALineLength, ALine(1:ALineLength)
read (MetaUnit, '(q,a)', end = 103)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (Title, '(4096x)')
write (Title(TitleLength+1:), '(a)')
* ALine(10:ALineLength)
write (Title(TitleLength+1:), '(a)') ', '
write (Title(TitleLength+1:), '(a)')
* ALine(1:ALineLength)
write (Title(TitleLength+1:), '(a)') ' data'
write (Title(TitleLength+1:), '(a)') ' Data'
write (Title(TitleLength+1:), '(a)') '('
write (Title(TitleLength+1:), '(a)') ','
write (Title(TitleLength+1:), '(a)')
* ALine(10:Tab-1)
write (Title(TitleLength+1:), '(a)') ')'
write (Currency, '(10x)')
write (Title(TitleLength:), '(a)')
* ' of field activity'
write (Title(TitleLength:), '(a)')
* ' of planned field activity'
write (Title(TitleLength:), '(a)')
* ' of ongoing (in work) field activity'
write (Title(TitleLength+1:), '(a)')
* Aka(1:AkaLength)
write (Title(TitleLength+1:), '(a)')
* CapLongID(1:IDLength+3)
write (Title(TitleLength+1:), '(a)')
* ' in '//ALine(10:ALineLength)
write (Title(TitleLength+1:), '(a)')
* ALine(1:ALineLength)
write (Title(TitleLength+1:), '(a)')
* ' from '//ALine(10:19)//' to '//ALine(34:44)
write (76, '(a)') Title(1:TitleLength)
|
| Opens |
open (unit = MetaUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/'//ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.activitytype')
open (unit = MetaUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/'//ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.equipmentused')
open (unit = MetaUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/'//ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.operationarea')
open (unit = MetaUnit,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/'//ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.dates')
open (unit = 76,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/'//ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.title')
|
| Calls |
call changecase ('CAPITAL', ALine(10:10))
call stringlen (Title, TitleLength)
call stringlen (Title, TitleLength)
call stringlen (Title, TitleLength)
call stringlen (Title, TitleLength)
call stringlen (Title, TitleLength)
call stringlen (Title, TitleLength)
call stringlen (Title, TitleLength)
call stringlen (Aka, AkaLength)
call stringlen (Title, TitleLength)
call stringlen (Title, TitleLength)
call stringlen (Title, TitleLength)
call stringlen (Title, TitleLength)
|
|
