Expanded Description
| Topic |
Description |
| Name |
setup |
| Synopsis |
/infobank/programs/html/makefmeta/setup.for |
| Description |
Subroutine to set up variables for formal metadata routines.
Added variable ImageDisk to call setup, to call section52,
and to call section5. CDegnan, 8/23/2012
4 6 8-1-2 4 6 8-2-2 4 6 8-3-2 4 6 8-4-2 4 6 8-5-2 4 6 8-6-2 4 6 8-7-2
|
| Reads |
read (TempUnit, '(a)') ALine
read (TempUnit, '(a)') ALine
read (TempUnit, '(a)') ALine
|
| Writes |
write (LongID, '(10x)')
write (CapLongID, '(10x)')
write (Aka, '(30x)')
write (Aka, '(30x)')
|
| Opens |
open (unit = TempUnit,
* name = '/infobank/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.ids',
* status = 'old',
* access = 'sequential',
* form = 'formatted')
open (unit = TempUnit,
* name = '/infobank/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.navarea',
* status = 'old',
* access = 'sequential',
* form = 'formatted')
open (unit = TempUnit,
* name = '/infobank/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.dates',
* status = 'old',
* access = 'sequential',
* form = 'formatted')
open (unit = OutUnit,
* name = '/infobank/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.fmeta',
* status = 'unknown',
* access = 'sequential',
* form = 'formatted')
|
| Calls |
call changecase ('SMALL', ShortID(1:IDLength))
call changecase ('CAPITAL', CapLongID(1:IDLength+3))
call stringlen (ALine, ALineLength)
call stringlen (ALine(1:29), AkaLength)
call stringlen (Aka, AkaLength)
call stringlen (ALine, ALineLength)
call stringlen (ALine, ALineLength)
call themekeywords (ShortID(1:IDLength))
call place_keywords (ShortID(1:IDLength))
call system ('chmod 664 '//
* '/infobank/'//
* ShortID(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.fmeta')
|
|
