Trailing-Edge
-
PDP-10 Archives
-
BB-4157E-BM
-
fortran-ots-debugger/fordbl.rlr
There is 1 other file named fordbl.rlr in the archive. Click here to see a list.
0 (A; H P [h P [|Pb K
V;/ VK P @ g[@v g[Qg `r%H g[j] g[k g[l{ g[l| g[m g[m g\6 g\+ g\ g\)7 g\)8 `r'I g\2g g\7N g\B: ( [s" 0 [s" H ([s" b\\vX[s"b\\v ( \V( 0 \V( H (\V( b\z|RX\V(b\z|R ( \\v\z|R 0 \z|R H @ 4 QU* I |gZ @ + I G@@ p 5 3 A+ 2@ A+ 4B 3 A+ 3@ A * @ 4B , BU O ,~ ,> ,> ,> ,> "
Z( .
S$ @ $ D " (* ,> C< J, ,^ @ J + ,> ,> ,> ,>
J 3 <+ % D"* D ;H :H 9H 8H 7 D 6 5D 4D *P
P " 3D 2D d D
6@ + + , =7!p ,^ ,^ ,^ ,^ D *,~ 7!p + / , =,^ ,^ ,^ ,^ ,~ , ?,^ ,^ ,^ ,^ ,~ ^DPjJ 3</V;G!\M)f VR5^,tj%IA{!'ladN+_iZI!O6z]k<Ox #`gM": buaa]H
:J^pa"o %Hq_ ;^HEr3gAC~_| 9~j!40F Y~j!40F 9~j!40F 0 " B ,> B, % Y& DASIN or DACOS; ABS(arg) > one; result = +infinity x ( J D" = ] > H ? q @
\\v
\z|R bguaj Y0 D" +$ c(J" C !|I .b g + /PE / A
4 3
5 3 6 X Y Y " Z Z [ ;-9 k6q <LA$5C CZB ( ( K \|DA 0 \|DA H *\|DA b\}NZ\|DAb\}N ( \[( 0 \[( H (\[( b\|DRX\[(b\|DR ( \|DR\}N 0 \|DR H @ ( I$G,> ,> ,> ,> ,> p @ 1 2 3+ @ 3`2+
)D " ) [ \F \1` 1& & 3f2+ F
+J
,J (D
-J
.J
/J
0F F k7` ,^ ,^ ,^ ,^ ,^ ,~ 1` $ +
I$I,> ,> ,> ,> ,> p ap + 8 (
" 1& & 2&3+ 5@ 3f2+ 3)D ) [ ,> ,> p 1 ( A * p 1& &
@
. J \N \
J \ ` ,^ " 3,^ 7!p .$ +
!p ap #@ $ 7!p $ +
7Ap + <5@ >6!p , 5 { (Q @ ;+ ?6Ap + >, :@` + z7!p + 0 0 D @ @ @ P P P ` ` p p p L 0 0 0 @ @ @ @ @ P P P P P U P ` ` ` ` ` ` ` ` ` ` ` ` ` :@ ] P?@ S@ X~@ _| s}@ xz s o@ f `@ 2\@ :) TH@ u8 :rc(*< & P3v61$ O
Sj}) n%Cj00 XVbb:n }KeZ7c)<? O8;;#)n5NOoQA^KO9'ZL" ?L2'r H.hm<2(
j"<_(47+ 5<7j_(iPrX0]_)$p97~9(_)kXn"yI-V_*H=p*Z}4Q_+>h))m:8#_,JNH?20T:_-c1828 az_/6?SU _@w O
A_Cu ee_Fo;^KO9 p%rk57Bos9Ugm rGZgx _)-sb)} G"H?Jp"p Jd KG9aLe(P-v)Ie(*u,]5|oJm|-3] xoM Dq ?_QKp[Wh
Q''FD=j
+N1
T TYy] X|i2 J]8L3
no'3Lu(xfYbcQ"Nex
. hoDoU=%Fjo#.%(ro#WmS,4y<q?O j !o yWof;E .OpYLf3H]`
U*U*U*lC 0 W ] ( 2 9.q!' + 3| ,>4,>5, % Y& DATAN2: result underflow ,>5 ( ;, 6% Y& DATAN2: both arguments are zero, result=0.0 D" 6q k 7D z
\|DR
\}N aqD < av 2 VwY 8c(J" ; D" tM 5 t] -@ 3 -pQ 2 q {AWD\ AXLh l/W[ @ @" 1 24: > Z [ [ \ \ / g W1 \g{@ ? H @ @ @x H @ @ @ ( ( A `2m 0 `2m H (`2m b^rX`2mb^r ( ^r 0 ^r H @< E*U I~:p 5 3 "+ 3` + 3 + 2@ + 3" + U O , $ "D
" ,~ ! ,> C< ), ,^ "@ + ,~ ,> C< ), E ,^ @,~ 3` #+ ,> ,> ,> ,> ,> C< ), ,^ S( @
h @,^ ,^ ,^ ,^ ,~ S @ ,~ 0 !v yN!v_/Qg^5_iho . "e !6 0 " # ,> #, % Y& DCOSH: result overflow x D" J 1E R "
^r m `d^Z o5 Y7 c(J" $ !|H ;\1 #pfPY "LA$5C d[1 d[ ( ( ) 0 H ( `d^ZX `d^Z ( d^Z 0 d^Z H @4 U*U( IF@p 2` *+ 2@ *+ 3" *+ 3 ++ 2@ ++ 3b ++ , 9U U" " ,~ , = " ,~ 4@ B,> ,> ,> ,> # 2$ ,+ @ H + " P" D ,D d & H h * D D / & D 0 T Q # 2$ .+ -@+ %H H 3 2H 1@ H 7 6 "( "H 5H 4( ` 4 H .( @ ,^ ,^ ,^ ,^ ,~ ^ RX *0>F9l!v yObvW v` 7
Ql\ | 0 0 _ih h 2Pl p ?R~ 3"PJK PEQ.4H< J
~g}2 TWC FS>gXa(*' " 8 ,> 8, % Y& DEXP: result#overflow ,> 8, 9% Y& DEXP:result un Aderflow ! ,~ D"; 0k!1 +0k" +a0
1 . XH 1 XI 2 XI 3 X\ 4 X] 5 X] 6 X^ 7 ( ( C =G 0 =G H @t H"D IFG,> ,> ,> # p 4H p 5D + DEXP2: result o P verflow ,> , % Y& DEXP2: result underflow D" B% XdK Xfx LtB L; Mj XK X:
=G c(J" Z ( ( =G" 0 =G" H @T ( IFg,> ,> p p @@ 5` 4@ ,> ,> ,> ,> 5( ( @
U )L /, <)H0 `h O@ )H 5J *P ,~ ,> ,> ,> ,> 5F 5D + u3D+ u,> ,> (r/( @A (U(U( G ! * 2`+ 2@+ 2b+ .* 2`,
+ !2@,
+ !2b, + !.* 2`, *T"A "+ %2@,+ $2b, + %.* J
, ,/* (
,` @
L "D * P ~ }P |P {P P
P (
(
/ D 3h @
H~ 5$ 6
(
r1, K+ :0L K+ =@ + ?/, >@ 5, < "Q
;@ + @A 4%+ ?0, ]+ ?/, LA4!5$ @
$ D + L + ( DH + + 3` z+ I, DU U"+ t2 {+ P, H@ @ ,^ " L,^ ,^ ,^ ,^ ,^ ,^ ,^ ,~ @ #
(r/0 >50 T@
+ VA
D% ( E U5d V, $ #
@ (
r/, >5, [@ + \A 4%5( \ (
@ ]#
@
(
r/, >5, a@ + cA4%5$ c( @ @ $ 4d f$ y A " f.
5* h.* (
~4 i.* ( / ( D D D (D"@ nD D D @ @$ $@( ,^ ,^ 6@ ,^ ,^ w,^ ,^ ,^ ,^ ,~ 0 !` ]oq 5*U**U
YLf3p6 <<?;4WpPb |*G2
p/p^ '7<91% ^\B1gr ul C8 3 /Qg^ 0 R+t*$C3 ,]&
f{*J8"yt'sVNZ^ b$0* B V9("U6[PE>X Fo)IPD5/?A#
oJD?66Ct>oDLQzf@!:D> unBgo@~[1 WY\Jn!*<_ !` p x | ~ @ ` p x | ~ @ ` p x *| ~ @ ` p x | ~ @`px|~ 2 " 3 ,>3, % Y& DEXP3: negative ** non-integer; ABS(base) used instead of b "@ ;ase ,>3, 4% Y& DEXP3: base is 0 and exponent is le 0; result = infinity * P D,>3, <% Y& DEXP3: result overflow ,>3, D% Y& DEXP3: result underf Llow D" ] Jh Ji Ji Jj Jj Jk Jk Jl D" E E
E
E E
E
E] D" E E E E E E E 1D z D R
c=G" Y0 P U P V P V
NvU T D"
NvU V
Nv} <
Nv} @ "ZU [ "ZU \ d a o5 c l[$ &&4 i D" t] = -?. %fE @fE ! ..E &>EH *>EI +>EI + D">EJ ,>EJ ,>EK ->EK ->EL .>EL .>EM / ..E &>E\ / D">E] 0>E] 0>E^ 1>E^ 1>E 2>E 2 ..F ' ..F ' ..G ( D" ..G ( ..H ) ..H ) ..I * 0B h 0I 0I % 0I ! E @" E ! F $
} 3
~N`T ? D R ; {R ; :Y a y X Y Y Z Z [ D"$B f R I AYE P ( X> E(O EN I ETB 6 ( ( M cN4H 0 cN4H H bc>f *cN4H bc>fZcN4H ( 9< 0 9< H ( 9< `q{X 9<`q{ ( c>f q{ 0 q{ H @< "D* I2|t(@@ + I2|s@O@ p 5` 5@ , 5S Z" ,~ , < ,> ,> ,> *U ,> (r/$ @ A 4G 42h 3+ 2H 3+ 2j 3+ /$ d D 2 Q@ H 1+ d D 0H 1d H /H . "U"
H - @ , +@ *` @ @ + & D ' * ( "H ( 7@ @ ),^ ,^ ,^ ,^ ,~ bd{t9wM/ {e^b7 2^| *b)K<!01D5?Y _f]zI
J ."]'z ,?> v AGb'P p 3 P'L'yo "
5 ,> 5, % Y& DLOG or DLOG10: zero arg; result = -infinity ,> 5, 6% =Y& DLOG or DLOG10: negative arg; result = LOG(ABS(arg)) D" \ * ] + ] , H o` p - q . q / r 0 D" ' ( )
c>f q{ uL fc +$ gG Dc(J" < #\ 1 q 3
D X Y Y Z Z [ ( ( C ?[ 0 ?[ H ( ?[ `stJX ?[`stJ ( stJ 0 stJ H @T "T I6|C@
p 1 p 1$ $ 3` +
@ ( $ @
$ p + 20 "+ #R !0| $L H D "U U 1 3 + 3` 2" + 7!p
,~ 3@ 3" + "A / + 4L !@@ p A "L H Y D Z @ ?+ @` + P ") ` A "+ D N stJ i3 .'; <*9 v R 24K D" d( 0 d( H ( d( `,RX d(`,R ( `2v ,R 0 ,R H @
$ *@
I~3@p ,> S$ 5 O@ 8+ INMc@p ,> S$ @@ 5 "U* S$} D 3 I+ 2@ I+
3" J+ , K " ,^ ,~ ,> ,> ,> *A 6@ @ 9+ 3` F+ (r/( ^(
(" .( ( aJ + ( " G(
.* + (
+ @
` " `J "` 6@ H @ ;$ "@"P " H <@ =$ $ 5$ &$ 2$ :+ *7 ,^ ,^ ,^ ,^ ,~ D(Q *D >D ?D @ D A BD CD DD d ( 3 ED D 7a ,^ ,^ ,^ ,^ ,~ 9~j!40F t/L
+$ D c(J" K FB &
Nv * "; +^2 g 1EQ 9 G D" D D 3
C 3
B 3 A 8 X Y Y Z Z D" [ i6 F C (,I bgevzX,Ibgevz ( gevz 0 gevz H @l
T INMjp ,> S* 5 "
2` :+ 3` <+ "5* ,> ,> ,> (
U( D 9H 8H 7 D 6 5D 4D 3d D (
U* D ,^ ,^ ,^ ,^ ,~ 3 >+ (3` :+ $3 ;+ 2@ ;+ 3" ;+ D
( U O 5j , ?,^ ,~ < ,> C< D, ,^ =@ *
"+ 5* # ,^ ,~ ,> C< D, ,^ @+ ",> ,> ,> ,> * *C< D, &,^ $ J S( @
h @,^ ,^ ,^ 7 ,^ ,~ 3$u<Dj%P1U#VJpV) R :"<,8-yh "9w~ 5QZ/rL/t
cZD$Td;2{ 0 !v yN!v ;/Qg^5P iho . e !6 " > ,> >, % Y& DSINH: result overflow x D" J ( 1E : R = m `d^Z +
gevz e o5 $ Y7 @" c(J" ? !|H ? 3 3 4 3 5 @ 3
6N`g@ X Y Y Z Z [ ;-9 @" pfPY >pz
1 <LA$5C CZB d[1 ;d[ ; ( ( D _ 0 _ H (_ bguajX_ bguaj ( guaj 0 guaj H @< T IO-p 5` 4@ , ,> ,> ,> ,> (Fdf + . "@ &+
. &T H D & h D` @,^ ,^ ,^ ,^ ,~ ,> , % Y& DSQRT: negative arg; result = SQRT(ABS(arg)) > D"
guaj guaY guaZ
guaZ guae c(J" Z [ ( ( ^w( 0 ^w( H *^w( b^y2Z^w(b^y2 ( + i( 0 i( H ( i( ` tRX i(` tR ( ^y2 tR 0 tR H @ d "U I~H7,> ,> @@ p 5* + 3 L+ 2@ L+ 5B , RUU"5( ? * ,^ ,^ ,~ IR QU 3 H H GH FH EH P 6@ + ;aD + = + > " ;aD + > h + ?` ,^ ,^ ,^ ,^ ,~ `.6T1RKI 0
)FU1cAc DNp\'7!B<d`pTb4.{ |U%L3hxbEK+b&z56Gd 9~H 9~j pZ#$ f.\4 L P (~j!40FP ~j /L
Q ,> Q, % Y& DCOTAN: ABS(arg) too large; result = zero ,> Q, R% ZY& DTAN or DCOTAN: result underflow D" H I J K ;
^y2 M, = tR M L D" Y1 Y1 +$ (N 8c(J" Y FB +
b8K % $v N D" z #
/S & l . g ! 0' > P H4|k 1; ? 2g " X Y Y Z Z [ i6 QpyUQ O XI A XI B XJ C D" XJ D CZB [p M[p M ^^ ( ( ^ tI 0 tI H ( tI bh$6zX tIbh$6z ( h$6z 0 h$6z H @d ( IR
5 3` )+ S @ 5* ,^ ,~ ,> ,> ,> * ( 3` *+ @ ,> C< -, ,^ ,S${ @ d ,5* ! ,^ " ,^ ,^ ,^ ,~ 2 *+ 5* ! ,^ ,^ ,^ ,^ ,~ 5* @ "
( (D 'D & H % $H #@ ` @ ,^ ,^ ",^ ,^ ,~ ]eF$O^bK$-
g_auf"b#2t
4tZ%U#9biCe>!|j< __t~!6`;[ ] * IzO 0 " -x D" J J L R *`d^Z
h$6z #\ + 'h* ) @"
<+ & ' ( 1; ! 7:9 D 3 # 3 $ 3 % X Y Y Z Z [ ;-9 LA$5C CZB ( ( . + r^ 0 r^ H ( r^ `[mVX r^`[mV ( [mV 0 [mV H @ , @ I3@p 5 ,~ @ [mV [mU
dz Y Z LA$5C ( ( sPA 0 sPA H (sPA bd:XsPAbd: ( d: 0 d: H @ I6Md',> ,> Rwp + C%p 3 + 2@ + 2b .< *f ,^ ,^ ,~ D de de df
d: Y Z LA$5C ( ( +@ 0 +@ H (+@ bgeLX+@bgeL ( geL 0 geL H @ D INL{Gp 7!p 4 6!p 5 ,~
geL ! t 0 t H *t bt
Z_t b_t
( _t
0 _t
H @ Iex: p 5 @ `f$
_t
[S5 X ( ( hVO 0 hVO H ( hVO cX[jX hVOcX[j ( X[j 0 X[j H @ SMmp 5 D e| ` hEd X[j [S5 X ( ( z? 0 z? H ( z? `^#~X z?`^#~ ( ^#~ 0 ^#~ H @ $ I
dS@ p @ ,~ ^#~ 9j 0 9j H ( 9j@ ` -jX 9j ` -j ( f -j 0 -j H @ g:=C@p 5 [S5 ` 0 -j X ( ( 0 (A* H ( f$ 0 f$ H @ D Iad " ) |h F ,~ f$
|h,F
,~ f' 0 tcH H @ D Iad( 2 )|h0F ,~
tcH tcI 0 tcI H @ D Iad) 6 )|h4F ,~
tcI tcJ 0 tcJ H @ D Iad* : )|h8F ,~
tcJ hEd 0 hEd H @ l S1d ,> ( {5$ $ h d$~ ) w2`| " ,^ ,~ @ hEd XUlW
w2`| "
,^ ,~ @ hEg XUlW H @ l " S1d(,> ` ( {50 0 h d0~ )w2`| " ,^ ,~ @ XUgH XUlW
,~ " ,~ ` D
0 0 0 H @, " g:9d@4$ `f mD ,~ A ,~ $ `f mD + " K
,~ " ,~ ` D
0 0 0 H @, " g:9e 4( `j mH ,~
A ,~ ( `j mH + "
K
,~ " ,~ ` D
0 0 0 H @, " g:9e@4, `n mL ,~ A
,~ , `n mL + " K
,~ "
,~ ` D ( (
RwH 0 RwH H @, " g:9d(40 `r mP ,~ A ,~ 0 `r mP + " K
,~ " ,~ ` D
RwI 0 RwI H @, " g:9d)44 `v mT ,~ A ,~ 4 `v mT + " K
,~ " ,~ ` D
RwJ 0 RwJ H @, " g:9d*48 `z mX ,~ A ,~ 8 `z mX + " K
,~ " ,~ ` D
G 0 G H @ ( G `b>X G`b> ( ( H b> 0 b> H ` @ | IMS@,> ,> p p 3@ 2" 3 + ,^ ,^ ,~ @` + " b> [ (D{1d @+ 0$ +
) !" ) _7!p ,^ ,~ p + @` + D PC lj L
Y Y G
( (
uJO 0 uJO H @ (uJO bd_(jXuJObd_(j ( ( d_(j 0 d_(j H @l @ I:Mmp 5@ ,~ ,> 1 a` +
[ (D{0$ !+ " ) 7!p ,^ ,~ p +
@` +
D PC
d_(j L
Y Y G
( ( yv{ 0 yv{ H @ (yv{ bf
fJ .;' XdJO 0 XdJO H @ cXdJR +XdJO cXdJR[XdJO ( ( XdJR 0 XdJR H @4 @@ SuZp 5@ ,~ 1 a` +
,> {0d Q+ d ~ ) 27!p A " ,^ ,~ @ ,~ , U 7!p S + ,> , % Y& IDNIN T: result overflow D PC L c(J" XdJR
Y G
( (