Expanded Description
| Topic |
Description |
| Name |
itemize |
| Synopsis |
/infobank/programs/dbase/itemize/itemize.for |
| Description |
Program to convert .item files to a tab-delimited table.
|
| AUTHOR |
Clint Steele 12/22/2004
|
| Reads |
read (90, '(q,a)', end = 90)
* collength(colcount),
* colname(colcount)(1:collength(colcount))
read (92, '(q,a)', end = 92)
* inlength, infile(1:inlength)
read (93, '(q,a)', end = 93)
* alength, aline(1:alength)
|
| Writes |
write (blank, '(80x)')
write (outline, '(2048x)')
write (91, '(a)') 'Item #'//char(9)//outline(1:outlength)
write (outline, '(2048x)')
write (colvalue(colloop), '(2048x)')
write (aline, '(2048x)')
write (outline, '(2048x)')
write (91, '(i7.7,a)')
* itemcount,char(9)//outline(1:outlength)
write (colvalue(colloop), '(2048x)')
write (outline, '(2048x)')
write (91, '(i7.7,a)')
* itemcount,char(9)//outline(1:outlength)
write (colvalue(colloop), '(2048x)')
write (outline, '(2048x)')
write (91, '(i7.7,a)')
* itemcount,char(9)//outline(1:outlength)
|
| Opens |
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'old',
* name = '/infobank/programs/dbase/itemize/columns.keep')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/programs/keep/itemstable.keep')
open (unit = 92,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/programs/dbase/itemize/itemlist.keep')
open (unit = 93,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = infile(1:inlength))
|
| Calls |
call stringlen (aline, alength)
call stringlen (colvalue(colloop), vlength(colloop))
call stringlen
* (colvalue(colloop), vlength(colloop))
call stringlen (aline(1:hyphens-1), endtitle)
call stringlen (colvalue(1), vlength(1))
call stringlen (colvalue(colloop),
* vlength(colloop))
|
|
