SUBROUTINE PLACE()
C Subroutine to change first tab in columns 1-6 to blanks and
C to left-justify columns of line past column 6 in column 7.
* Location: fpret2.f,1-100
* Commons: /LINE/:SR
END SUBROUTINE
CROSS REFERENCE FOR SUBROUTINE PLACE() - Primary File Only - [HELP]
----------------------------------------------------------------------------
Name Class Type Location(s) in fpret2.f
----------------------------------------------------------------------------
ADD_COLUMNS VAR INT4 7T 63= 65 68 69
COMPARE() FUNCT LOG4 12T 34
COPY_POINTER VAR INT4 6T 93= 95= 96 98
I VAR int4 36t= 37 40 41 43 47
48 50 61= 62 63 64
69 83= 84 94
IN_LENGTH, /LINE/ VAR INT4 16d 18T 35 36 41= 42
48= 49 60 64 68= 75
83 94 98=
J VAR int4 42t= 43 44 49= 50 51
55= 56 64= 65 66 69=
70 94= 96
K VAR int4 43t= 44 50= 51 65= 66
LETTER_C VAR CH*1 22T 24d= 34
LINEIN, /LINE/ VAR CH*132 16d 17T 34 37 44= 51=
56= 62 66= 70= 79 84
96=
[LINEOUT, /LINE/] VAR CH*132 16d 17T
LOOP_END VAR INT4 7T 60= 61
MIN() INTRN over 60
[OUT_LENGTH, /LINE/] VAR INT4 16d 18T
SPACE() FUNCT LOG4 11T 37 79 84
TAB VAR CH*1 23T 25d= 62
To