Expanded description
| Topic |
Description |
| Name |
entities |
| Synopsis |
/infobank/programs/html/makefmeta/entities.for |
| Description |
Subroutine to construct ENTITIES AND ATtrIBUTES formal metadata.
|
| Opens |
open (unit = TempUnit,
* file = PathName//'/'//
* DataType//'/'//
* LongID//'.best_'//DataType//'_file',
* access = 'sequential',
* form = 'formatted',
* status = 'old')
open (unit = TempUnit,
* file = '/infobank/programs/keep/dictionary.keep',
* access = 'sequential',
* form = 'formatted',
* status = 'old')
open (unit = TempUnit,
* file = PathName//'/meta/'//
* LongID//'.analog',
* access = 'sequential',
* form = 'formatted',
* status = 'old')
|
| Reads |
read (TempUnit, '(a)') DataFile
read (TempUnit, '(a)', end = 199) ALine
|
| Writes |
write (OutUnit, '(1x)')
write (ALine, '(1024x)')
write (OutUnit, 503) Description(Loop)(1:ALineLength)
write (OutUnit, 1) Mnemonic(Loop)(1:ALineLength)
write (OutUnit, 2) Fortran(Loop)(1:ALineLength)
write (OutUnit, 3) C(Loop)(1:ALineLength)
write (OutUnit, 4) ComponentName(Loop)(1:ALineLength)
write (OutUnit, '(t51, a)')
* ALine(1:ALineLength)
|
| Calls |
call head (2, OutUnit,
* 'Overview_Description:')
call value2 (3, OutUnit,
* 'Entity_and_Attribute_Overview: ',
* DataText,
* ''//DataText//'')
call stringlen (DataFile, Length)
call dictionary (Description, Mnemonic, Fortran,
* C, ComponentName)
call stringlen (ComponentName(Loop), ALineLength)
call stringlen (ComponentName(Loop), ALineLength)
call stringlen (Description(Loop), ALineLength)
call stringlen (Mnemonic(Loop), ALineLength)
call stringlen (Fortran(Loop), ALineLength)
call stringlen (C(Loop), ALineLength)
call stringlen (ComponentName(Loop), ALineLength)
call stringlen (ALine, ALineLength)
|
|