Google
 

Trailing-Edge - PDP-10 Archives - BB-4157F-BM_1983 - fortran/compiler/codeta.rel
There are 12 other files named codeta.rel in the archive. Click here to see a list.
0LnV0 @	
LnDS4xk!4y
A4y&Bb
LnH_
"e;l
"dkl930<$?*Ln=bLnQZLn=
v-
w9
wU0
v
vj-
v}G	+o1r2P)Q-VVpSBbLnQ]VVpS,Yr*}7t
b%6#*M,a	bLnQZM,*HF^bLnQZHF-4v;SUbLnQ]4v;S+VpKObLnQ[VpK*gY|F>bLnQZgY|F	*eD%;bLnQZeD%*gY]C:bLnQZgY]C*gZ&*/bLnQZgZ&*+^}'bLnQ[^},(Q$s$	bLnQ\(Q$s+^}:3#bLnQ[^}:3-KQsbLnQ]KQs*0KbLnQZ0K*ubLnQZu	*gZ<bLnQZgZ<*gY{&bLnQZgY{&*gY{+bLnQZgY{+-NpKbLnQ]NpK*gZ<	bLnQZgZ<*gYcGbLnQZgYcG*gZS
bLnQXD*gZ9e	bLnQZgZ9e -0 w&(A 7V`j+
 w(N. Nw2NX+Z`j+7V`i	*gY{%bLnQZgY{%*gYK,bLnQZgYK,
J~VbLnQ@bLnO@bLnQ@bLnQ@	(+
 
X2Jw+
Z`i+@+
@	` AP	 	 PP X((
((	 !((((
(
((	(000000	 )00((
88888888	 288888888888888888	 :8(@@@@@@@@@@	 C@@@@@@@@@@@@@@@@	 KPHHHC	 T	 \	 e	 m	 v	 ~	 	 cV P ASSIGNMENTRBP IF@STFN OR AR	 RAY ASSIGNMENTWCP DO\P DO` END STATEMENT FUNCTIONQAP IFQCP	   IFP SUBSTRING ASSIGNMENTArgumentAn array@ X PUNCHeH DATA	 )@ X PRINT%0 SAVE	E SUBROUTINEX OPEN0 INTEGER0	 1 LOGICAL IMPLICIT8 INTRINSICB X FINDK`X REWIND< P CALL	 :X INQUIRE  PARAMETERP ELSE@0X REREAD:`P GOTO	 BE( DIMENSIONP PAUSEP RETURN0 DOUBLEPRECISION FORM	 KATh INCLUDEX BACK	Cp ENTRY%( EQUIVALENCEI0X DECODE	 SeH NAMELIST@0X ACCEPT BLOCKDATA>0X READK`X UNLOAD	E	 \ FUNCTIONP ENDDOX CLOSEK`X ENDFILE0 REALP ENDIF	 dX SKIP> X WRITE8 EXTERNAL
%( COMMON0 CHARACTERI X	 m ENCODE0 COMPLEXP CONTINUE9 P ASSIGN@ X TYPEP STOP	 u PROGRAMA ~	D"bLnQ@	JLnE
LnO
LnQxbLnQ@ybLnQ@|bLnQ@~bLnQ@	 !"$%' )*,-	D"bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@
bLnQ@
bLnQ@	 /12457 9:=	D"bLnQ@
bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@	 >@ACEFHI K	D"bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@ MNPQSTVWY	D"bLnQ@bLnQ@ bLnQ@ bLnQ@!bLnQ@!bLnQ@"bLnQ@#bLnQ@#bLnQ@$	 %Z\]ab -deg	D"bLnQ@%bLnQ@&bLnQ@&bLnQ@'bLnQ@'bLnQ@(bLnQ@.bLnQ@0bLnQ@0 1h	D"bLnQ@4e
sueVZqterv3rbZ3qbM@obM-nb}RslbHFSj	D"bM3ic6N3gf7feQdb}
'3ce4v<ab}
S`bKs^b}
]	D"cu5s[fjsZe4v
Xb2dsVbXd3UdQ3Sb_BsRbq3Pb})SN	D"b2IMc^\@Kc(|3JbeD%SGe53Fe{/sDba`3Bc.a|sAe5*3?	D"b|3>etQ3<c^x$3:bD8:9e5!%37cK|6c^}S4c^'b2d(Q%31	D"c^}.3/dr:`S.eW[S,eKR3*e
hS)b\|E3'e5s&eWq2!b2dM 	D"d(Q"ib}
e}f0y<be3,!eV?[tby
1bZ@ge%gm!%((9