Mini-Unix/usr/source/fort/f1/f1o.a
ef11.o k +8 l 0 % \
w w w w _ w hU 34 4 w b w ZBw Rx Dw @w :w 2w .*w $l w w subroutine function blockdata external dimension common equivalence data format implicit Input file?
_
) X 9 h 9 y Y hY I h h h h ) H 8HXhx symsize @linsize namsize smblsize intcon realcon logcon log1con int1con int2con dblcon dcplxcon cplxcon data ibuf obuf tbuf line eline ifno efno errp errb eerrb symtab esymtab esymp symtp namebuf enamebuf namep symbuf esymbuf ch ch1 progt holquo nxtaloc imptab nerror temp functm edata dsize pass1 " fptrap getline flush perror lookup getype ssubr sfunc sbloc sextr sdime scomm sequi sdata sform simpl stype isagn ptemp funok signoff fopen fcreat lookid tfil1 tfil2 tfildiag mes2 \emes2 hblankc hscan1 stmtab sublst f12.o k ?8 &Bw h w w ! E w E S w w w $ ( w function Bw logical*1 logical integer*1 integer*2 integer doublecomplex doubleprecision complex real*8 real ) 9 ) symsize @linsize namsize smblsize intcon realcon logcon log1con int1con int2con dblcon dcplxcon cplxcon data ibuf obuf tbuf line eline ifno efno errp errb eerrb symtab esymtab esymp symtp namebuf enamebuf namep symbuf esymbuf ch ch1 progt holquo nxtaloc imptab nerror temp functm edata dsize stype " getype " r typtab " sfunc1 lookup getsym error sdime1 funtab h tvaltab f13.o k V8 X w w w w w $ ( w 58 w E8 U &
w w & w l $ " w \ V
P
L
7>3 symsize @linsize namsize smblsize intcon realcon logcon log1con int1con int2con dblcon dcplxcon cplxcon data ibuf obuf tbuf line eline ifno efno errp errb eerrb symtab esymtab esymp symtp namebuf enamebuf namep symbuf esymbuf ch ch1 progt holquo nxtaloc imptab nerror temp functm edata dsize sdime " sdime1 " : getsym error geti dimu f14.o k l8 d fw K
W/
w w >w U w 2w .w w w 5 w &@ U@ $ ( w V
symsize @linsize namsize smblsize intcon realcon logcon log1con int1con int2con dblcon dcplxcon cplxcon data ibuf obuf tbuf line eline ifno efno errp errb eerrb symtab esymtab esymp symtp namebuf enamebuf namep symbuf esymbuf ch ch1 progt holquo nxtaloc imptab nerror temp functm edata dsize scomm " getsym sdime1 error getid lookid ncom f15.o k 8 d
w e &w w w ( &
e w U w $ " w | ( nw j w ` ( w T
9 9 9 ) ) 9 ) ) symsize @linsize namsize smblsize intcon realcon logcon log1con int1con int2con dblcon dcplxcon cplxcon data ibuf obuf tbuf line eline ifno efno errp errb eerrb symtab esymtab esymp symtp namebuf enamebuf namep symbuf esymbuf ch ch1 progt holquo nxtaloc imptab nerror temp functm edata dsize ssubr " sfunc " sbloc " sfunc1 " funok # getsym error f16.o k 8 @ X w 58 w U w $ ( w w e H symsize @linsize namsize smblsize intcon realcon logcon log1con int1con int2con dblcon dcplxcon cplxcon data ibuf obuf tbuf line eline ifno efno errp errb eerrb symtab esymtab esymp symtp namebuf enamebuf namep symbuf esymbuf ch ch1 progt holquo nxtaloc imptab nerror temp functm edata dsize sextr " sequi " 4 getsym putc error ptemp f17.o k 8 ` @ w =&@ ( / 3@ .a B- B a
~e @ , ) / ɋ w | h symsize @linsize namsize smblsize intcon realcon logcon log1con int1con int2con dblcon dcplxcon cplxcon data ibuf obuf tbuf line eline ifno efno errp errb eerrb symtab esymtab esymp symtp namebuf enamebuf namep symbuf esymbuf ch ch1 progt holquo nxtaloc imptab nerror temp functm edata dsize simpl " getype chrtab error