Expanded description
| Topic |
Description |
| Name |
maketable |
| Synopsis |
/infobank/programs/dbase/maketable/maketable.for |
| Description |
Program to generate a tab-separated list that can be converted
into a tab-delimited table.
|
| Author |
Clint Steele 11/11/2004
|
| Opens |
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/'//InLine(1:1)//'/'//
* ShortID(1:IDLength)//'/meta/'//
* LongID(1:IDLength+3)//'.'//
* MetaType(Loop)(1:MetaTypeLength(Loop)))
|
| Reads |
read (5, '(a)', end = 99)
* MetaType(MetaTypeCount+1)
read (90, '(q,a)', end = 99)
* InLength, InLine(1:InLength)
read (92, '(t10,q,a)', end = 97)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (91, '(a)') InLine(1:IDLength)
write (91, '(a)') InLine(Tab+1:InLength)
write (91, '(a)') ALine(1:ALineLength)
write (91, '(a)') ', '//ALine(1:ALineLength)
if (OutCount .eq. 0) write (91, '(1x)')
write (91, '(1x)')
|
| Calls |
call openem (1,-1)
call stringlen (MetaType(MetaTypeCount+1),
* MetaTypeLength(MetaTypeCount+1))
|
|
