Google
 

Trailing-Edge - PDP-10 Archives - fortv11 - 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$\
"dkl$	,30<$$	1*Ln=bLnQZLn=
v-
w9
wU0
v
vj-
v}G	+o1r2P)Q-VVpSBbLnQ]VVpS,Yr*}7t
b%6#*HFh	bLnQZHF-4v;S\bLnQ]4v;S*M,FbLnQZM,*gZ&*AbLnQZgZ&*-KQs>bLnQ]KQs	,(Q$s8bLnQ\(Q$s+VpK2bLnQ[VpK+^}/bLnQ[^}+^}:3,bLnQ[^}:3*gY|F#	bLnQZgY|F*eD%bLnQZeD%*gY]CbLnQZgY]C*0KbLnQZ0K*ubLnQZu	*gZ<bLnQZgZ<*gY{&bLnQZgY{&*gY{+bLnQZgY{+-NpKbLnQ]NpK*gZ<	bLnQZgZ<*gYcGbLnQZgYcG*gZS
bLnQXD*gZ9e	bLnQZgZ9e	 -0 w&(M 7V`m+ w(N. Nw2NX+Z`m+@+@ 	`	*gY{%bLnQZgY{%*gYK,bLnQZgYK,
J~VbLnQ@bLnO@bLnQ@JLnE		 	 AP	 PP	  X((
((((((
(
((	(	 "000000000((
8	 +88888888888888888	 388888888((@@@	 <@@@@@@@@@@@@@@@@@	 D@@@@@@PHHHC	 M	 U	 ^	 f	 o	 w	 	 fW@P ASSI	 GNMENTSbP IF@STFN OR ARRAY ASSIGNMENTXcP DO]#P DO` END	  STATEMENT FUNCTIONRaP IFRcP IFP SUBSTRING ASSIGNMENTArgumentAn ar	 "rayMX REWIND0 DOUBLEPRECISIONX UNLOE( DIMENSION?@X	 * REWRITEP ELSEh INCLUDEX CLOSEP PAUSEP STOP	 3 BLOCKDATA0 INTEGERJPX DECODE8 INTRINSIC=@P CALL	 ;	E FUNCTION FORMAT:@P ASSIGNP ENDDO0 LOGICALMX ENDF	 DILEP ENDIFP CONTINUE0 SAVE IMPLICIT  PARAMETER	 L
%( COMMON8 EXTERNAL0 COMPLEXP RETURNC@X FINDJ@X ENCO	 UDEX SKIPEH NAMELISTC@X DELETE PROGRAM?PX READA@X	 ] TYPE%( EQUIVALENCE	E SUBROUTINEeH DATAA@X PRINT0	 f REALX OPEN	Cp ENTRYX INQUIREAPX ACCEPTAPX REREAD	 n?@X WRITE<P GOTO0 CHARACTERX BACKA@X PUNCHM w "#	D"
LnO	
LnQ	bLnQ@xbLnQ@ybLnQ@ybLnQ@{bLnQ@}bLnQ@}bLnQ@~	 ~%&()+ -.02	D"bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@
bLnQ@bLnQ@35689 ;<>?	D"bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@bLnQ@	 ACDFG 'IJLM	D"bLnQ@bLnQ@#bLnQ@$bLnQ@%bLnQ@%bLnQ@'bLnQ@'bLnQ@(bLnQ@(	 )OPRSUWYZ\	D"bLnQ@*bLnQ@+bLnQ@-bLnQ@-bLnQ@.bLnQ@/bLnQ@/bLnQ@0bLnQ@1	 1]`bc :efhj	D"bLnQ@2bLnQ@3bLnQ@3bLnQ@4bLnQ@7bLnQ@:bLnQ@;bLnQ@=bLnQ@> ?k	D"bLnQ@Ce5sub2IsbHFSqc.a|spf7ne5*3mbXd3kc^x$3j	D"b})Shdr:`Sge4v<ee
hSdb\|E3beW[S`bq3^erv3]e4v
[	D"e
sZb_%N3XdQ3WeQUb}RsTcK|Re53QbM-Oc6N3N	D"bM3LetQ3Jc^'bIeKR3GbM@Fb}
'3Db}
SCd(Q%3Ab}
@	D"bZ3>c(|3=cu5s;bD8::c^}S8b_Bs6c^}.35b2ds3eVZq1	D"e{/s0bKs.c^\@-b|3+e5!]S*ba`3(fjs&beD%S$e5!%3"	D"eWq2b2dMd(Q"ib}
e}f0y<be3,!eV?[tby
1bZ@D"ge%gm!%((D