Google
 

Trailing-Edge - PDP-10 Archives - BB-D480F-SB_FORTRAN10_V10 - 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 
"dkl30<$ *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	 ~	 	 cW@P ASSIGNMENTSbP IF@STFN OR AR	 RAY ASSIGNMENTXcP DO]#P DO` END STATEMENT FUNCTIONRaP IFRcP	   IFP SUBSTRING ASSIGNMENTArgumentAn arrayA@X PUNCHeH DATA	 )A@X PRINT0 SAVE	E SUBROUTINEX OPEN0 INTEGER0	 1 LOGICAL IMPLICIT8 INTRINSICC@X FINDMX REWIND=@P CALL	 :X INQUIRE  PARAMETERP ELSEAPX REREAD<P GOTO	 BE( DIMENSIONP PAUSEP RETURN0 DOUBLEPRECISION FORM	 KATh INCLUDEX BACK	Cp ENTRY%( EQUIVALENCEJPX DECODE	 SEH NAMELISTAPX ACCEPT BLOCKDATA?PX READMX UNLOAD	E	 \ FUNCTIONP ENDDOX CLOSEMX ENDFILE0 REALP ENDIF	 dX SKIP?@X WRITE8 EXTERNAL
%( COMMON0 CHARACTERJ@X	 m ENCODE0 COMPLEXP CONTINUE:@P ASSIGNA@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