Expanded description
Topic |
Description |
Name |
showfmt |
Synopsis |
/infobank/programs/util/showfmt/showfmt.for |
Description |
Program to list standard DRS formats.
|
Comments |
Uses DRS$DOC:DATACODES.TXT (hard coded input) and
formats input by DICTIONARY subroutine.
|
Prompts |
Enter output file name:
|
Subroutines |
openem (external shareable)
dictionary (external shareable)
stringlen (external shareable)
|
Author |
Clint Steele .for 2/13/85
changed pmg$doc:datacodes.kep to pmgdoc:datacodes.kep, CDegnan, 3/15/95
|
Opens |
open (unit = 89,
* file = '/infobank/programs/keep/datacodes.keep',
* status = 'OLD',
* iostat = ErrorFlag)
|
Reads |
read (89, '(q,a)', iostat=ErrorFlag, end=99)
* Length, ALine(1:Length)
|
Writes |
write (90, '(a)') ALine(1:Length)
write (90, '(1x)')
write (90, '(1x)')
write (90, 1)
* (FileType * 10), Description(FileType)(1:Length)
write (90, 2)
* (FileType * 10), Description(FileType)(1:Length)
write (90, '(a)') ComponentName(FileType)(1:Length)
write (90, '(a)') Mnemonic(FileType)(1:Length)
write (90, '(a)') Fortran(FileType)(1:Length)
write (90, '(a)') C(FileType)(1:Length)
write (90, '(1x)')
|
Calls |
call openem (0,-1)
call dictionary ( Description, Mnemonic, Fortran,
* C, ComponentName)
call stringlen (Description(FileType), Length)
call stringlen (ComponentName(FileType), Length)
call stringlen (Mnemonic(FileType), Length)
call stringlen (Fortran(FileType), Length)
call stringlen (C(FileType), Length)
|
|