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.
0 Ln V 0 @
Ln D S4xk!4y
A4y&Bb
Ln H _
"e;l
"dkl 3 0<$ *Ln = bLn QZLn =
v-
w9
wU0
v
vj-
v}G +o 1r2P ) Q -VVpS BbLn Q]VVpS ,Yr *}7t
b%6# *M , a bLn QZM ,*HF ^bLn QZHF-4v;S UbLn Q]4v;S+VpK ObLn Q[VpK*gY|F >bLn QZgY|F *eD% ;bLn QZeD%*gY]C :bLn QZgY]C*gZ&* /bLn QZgZ&*+^} 'bLn Q[^},(Q$s $ bLn Q\(Q$s+^}:3 #bLn Q[^}:3-KQs bLn Q]KQs* 0K bLn QZ 0K* u bLn QZ u *gZ< bLn QZgZ<*gY{& bLn QZgY{&*gY{+ bLn QZgY{+-NpK bLn Q]NpK*gZ< bLn QZgZ< *gYcG bLn QZgYcG*gZS
bLn QXD*gZ9e bLn QZgZ9e -0 w&( A 7V`j+
w(N . Nw2NX + Z`j+ 7V`i *gY{% bLn QZgY{%*gYK, bLn QZgYK,
J~V bLn Q@ bLn O@ bLn Q@ bLn Q@ ( +
X 2Jw+
Z`i+ @ +
@ ` A P P P X ( (
( ( ! ( ( ( (
(
( ( ( 0 0 0 0 0 0 ) 0 0 ( (
8 8 8 8 8 8 8 8 2 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 : 8 ( @ @ @ @ @ @ @ @ @ @ C @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ K P H H H C T \ e m v ~ cW@P ASSIGNMENT SbP IF @ STFN OR AR RAY ASSIGNMENT XcP DO ]#P DO ` END STATEMENT FUNCTION RaP IF RcP IF P SUBSTRING ASSIGNMENT Argument An array A@X PUNCH eH DATA )A@X PRINT 0 SAVE E SUBROUTINE X OPEN 0 INTEGER 0 1 LOGICAL IMPLICIT 8 INTRINSIC C@X FIND M X REWIND =@P CALL : X INQUIRE PARAMETER P ELSE APX REREAD < P GOTO BE( DIMENSION P PAUSE P RETURN 0 DOUBLEPRECISION FORM KAT h INCLUDE X BACK Cp ENTRY %( EQUIVALENCE JPX DECODE S EH NAMELIST APX ACCEPT BLOCKDATA ?PX READ M X UNLOAD E \ FUNCTION P ENDDO X CLOSE M X ENDFILE 0 REAL P ENDIF d X SKIP ?@X WRITE 8 EXTERNAL
%( COMMON 0 CHARACTER J@X m ENCODE 0 COMPLEX P CONTINUE :@P ASSIGN A@X TYPE P STOP u PROGRAM A ~ D"bLn Q@ JLn E
Ln O
Ln Q xbLn Q@ ybLn Q@ |bLn Q@ ~bLn Q@ ! " $ % ' ) * , - D"bLn Q@ bLn Q@ bLn Q@ bLn Q@ bLn Q@ bLn Q@ bLn Q@
bLn Q@
bLn Q@ / 1 2 4 5 7 9 : = D"bLn Q@
bLn Q@ bLn Q@ bLn Q@ bLn Q@ bLn Q@ bLn Q@ bLn Q@ > @ A C E F H I K D"bLn Q@ bLn Q@ bLn Q@ bLn Q@ bLn Q@ bLn Q@ bLn Q@ bLn Q@ bLn Q@ M N P Q S T V W Y D"bLn Q@ bLn Q@ bLn Q@ bLn Q@ !bLn Q@ !bLn Q@ "bLn Q@ #bLn Q@ #bLn Q@ $ % Z \ ] a b - d e g D"bLn Q@ %bLn Q@ &bLn Q@ &bLn Q@ 'bLn Q@ 'bLn Q@ (bLn Q@ .bLn Q@ 0bLn Q@ 0 1 h D"bLn Q@ 4e
s ueVZq terv3 rb Z 3 qbM@ obM - nb}Rs lbHFS j D"bM 3 ic6N3 gf7 feQ db}
'3 ce4v< ab}
S `bKs ^b}
] D"cu5s [fj s Ze4v
Xb2d s VbXd3 UdQ3 Sb_Bs Rbq3 Pb})S N D"b2 I Mc^\@ Kc(|3 JbeD%S Ge5 3 Fe{/s Dba`3 Bc.a|s Ae5*3 ? D"b| 3 >etQ3 <c^x$3 :bD8: 9e5!%3 7cK| 6c^}S 4c^'b 2d(Q%3 1 D"c^}.3 /dr:`S .eW[S ,eKR3 *e
hS )b\|E3 'e5s &eWq2 !b2d M D"d(Q"i b}
e} f0y< be3,! eV?[t b y
1 b Z@ g e% gm!% ( ( 9