PDP-10 Archive: fortran-ots-debugger/fordbl.rlr from BB-4157E-BM

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 [hP [|PbK

V;/VKP@g[@vg[Qg`r%H	g[j]g[kg[l{g[l|g[m	g[mg\6g\+g\	g\)7g\)8`r'Ig\2gg\7Ng\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|R0\z|RH @	4	 QU*I|gZ  @+IG@@p5  3 A+2@A+4B3 A+3@A	*@4B,BU O,~,>,>,>,>"
Z(.
S$@$D	"(*,>C<J,,^@  J+,>,>,>,> 
 J3 <+%	 D"*D;H:H9H8H7D65D4D	*P
P"3D2DdD 
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 = +infinityx(J	D"=]>H ?q@
\\v
\z|RbguajY0		D"+$c(J"C!|I.bg+/PE/ A
43
536XYY"ZZ[;-9k6q<LA$5C CZB((K \|DA0\|DAH*\|DAb\}NZ\|DAb\}N(  \[(0\[(H(\[(b\|DRX\[(b\|DR(  \|DR\}N0\|DRH @	 (I$G,>,>,>,>,>p @1  2 3+@3`2+

 )D	 ")[ \F\1`1&&3f2+F
+J
,J	(D 
-J
.J
/J
0FFk7` ,^,^,^	 ,^,^,~ 1` $+

I$I,>,>,>,>,>pap+ 8	(
"1&&2&3+5@3f2+3)D)[,>,>p1  	(A *p1&& 
@

.J\N\  
J\`,^	  "3,^7!p.$+

!pap#@ $7!p $+

7Ap+<5@>6!p,5 {	(Q @;+?6Ap+>,:@`+z7!p +  00	 D@@@PPP``ppp	 L    000@@@@@PPPPP	 UP`````````````:@	 ]P?@S@X~@_|s}@xzs o@	 f `@ 2\@ :) TH@ u8:rc(*<&P3v61$O

Sj})	n%Cj00XVbb: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;^KO9p%rk57Bos9UgmrGZgx_)-sb)}G"H?Jp"p	 JdKG9aLe(P-v)Ie(*u,]5|oJm|-3]xoMDq ?_QKp[Wh
Q''FD=j
+N1
TTYy]	 X|i2J]8L3
no'3Lu(xfYbcQ"Nex
.hoDoU=%Fjo#.%(ro#WmS,4y<q?O	j!o	yWof;E.OpYLf3H]`
U*U*U*lC 0W	]	 (29.q!'+3|,>4,>5,%Y&DATAN2: result underflow,>5(;,6%Y&DATAN2: both arguments are zero, result=0.0	D"6qk7Dz

\|DR
\}NaqD<av2	VwY8c(J";	D"tM5t]-@3-pQ2q{AWD\AXLhl/W[@	@"124:>Z[[\\/gW1\g{@?H @@ @xH @@ @((A `2m0`2mH(`2mb^rX`2mb^r(  ^r0^rH @<	 E*U I~:p5  3 "+3`+3  +	2@ +3" +	U O,$	"D
",~!,>C<),,^"@+ ,~,>C<),	 E,^@,~3`#+,>,>,>,>,>C<),,^S(@
	 h@,^,^,^,^,~S @,~ 0!vyN!v_/Qg^5_iho . "e !60 "#,>#,%Y&DCOSH: result overflowx	D"J1ER"
^rm`d^Zo5Y7c(J"$	!|H	;\1#pfPY"LA$5C d[1 d[ (() 0H(`d^ZX`d^Z(  d^Z0d^ZH @4	 U*U(IF@p2`*+2@*+	3"*+	3 ++2@++3b++,9U U"	",~,=   ",~4@B,>,>,>,>#2$,+@ H+	"P"D,Dd &Hh *  DD/  &D0	 T Q#2$.+-@+%HH32H1@H76	"("H5H4(`4 H.(@ ,^,^,^,^,~^	RX	 *0>F9l!vyObvWv` 7
Ql\| 00_ihh2Plp?R~ 3"PJKPEQ.4H<  J
~g}2TWCFS>gXa(*'	"8,>8,%Y&DEXP:result#overflow,>8,9%Y&DEXP:resultun Aderflow! ,~	D";0k!1+0k"+a0
1.XH1XI2XI3X\4X]5X]6X^7((C=G0=GH@t	H"DIFG,>,>,>#	p4Hp5D+DEXP2: result o Pverflow,>,%Y&DEXP2: result underflow	D"B%XdKXfxLtBL;MjXKX:
=Gc(J"Z(( =G"0=G"H @T	 ( IFg,>,>pp@@5`4@,>,>,>,>5(( @

	 
U)L/,<)H0`hO@)H5J	 *P,~,>,>,>,>5F5D+u3D+u,>,> (r/(@A 	(U(U(G! *2`+2@+2b+.*2`,
+!2@,
+!2b,+!.*2`,	*T"A"+%2@,+$2b,	+%.* J

, ,/*(
 ,`@

L	"D *P~}P|P{PP

P( 
(
/	 D 3h@
H~5$6

r1,K+:0LK+=@+?/,>@5,<	"Q
;@+@A4%+?0,]+?/,LA4!5$@

$D+ L+ 	 ( DH+ + 3`z+I,DU U"+t2 {+P,H@@,^	 "L,^,^,^,^,^,^,^,~@#

 (r/0>50T@

+VA

D%	(E U5dV,$#

@(

r/,>5,[@+\A4%5(\ (	 
@]#

@
(

r/,>5,a@+cA4%5$c(@@$4df$y	 A"f.  
5*h.*(
~4 i.* (/(DDD	(D"@ nDDD@@$$@(,^,^6@ ,^,^	 w,^,^,^,^,~0!`]oq5*U**U

YLf3p6	<<?;4WpPb	 |*G2
p/p^'7<91%^\B1grulC83 /Qg^ 0	  R+t*$C3 ,]&

f{*J8"yt'sVNZ^b$0*BV9("U6[PE>XFo)IPD5/?A#
oJD?66Ct>oDLQzf@!:D>	unBgo@~[1 WY\Jn!*<_ 	 !`px|~@`px|~@`px	 *|~@`px|~@`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	*PD,>3,<%Y&DEXP3: result overflow,>3,D%Y&DEXP3: result underf Llow	D"]JhJiJiJjJjJkJkJl	D"E	E
	E

EE

E]	D"EEEEEE E 1Dz	D R
c=G"Y0PUPVPV
NvUT	D"
NvUV
Nv}<
Nv}@"ZU["ZU\dao5cl[$&&4i	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>E2>E2..F'..F'..G(	D"..G(..H)..H)..I*0Bh0I0I%0I!E	@"E!F$
}3
~N`T?	DR;{R;	:YayXYYZZ[	D"$BfRIAYEP(X>E(OENIETB6((M cN4H0cN4HHbc>f*cN4Hbc>fZcN4H(  9<09<H(9<`q{X9<`q{(  c>fq{0q{H @<	"D*I2|t(@@+I2|s@O@p5`5@,5S Z",~,< ,>,>,>	 *U,> (r/$@A4G42h3+2H3+2j3+/$d D2	 Q@H1+d D0H1dH/H.	"U"
H-@,+@*`@@+   &D'  *	("H(7@@),^,^,^,^,~ bd{t9wM/{e^b72^|	 *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/r0	D"'()
c>fq{uLfc +$gG	Dc(J"<#\ 1q3

	DXYYZZ[((C ?[0?[H(?[`stJX?[`stJ(  stJ0stJH @T	"T I6|C@

p1  p1$$3`+

@	 ($ @
$p+ 20"+#R!0|$L H D 	"U U1 3 +3`2"+7!p

,~3@3"+	"A/+4L!@@pA"LHYDZ@?+@`+P")`A"+	DNstJi3.';<*9vR24K	D" d(0d(H(d(`,RXd(`,R(  `2v,R0,RH @
$	 *@
I~3@p,>S$5  O@8+	INMc@p,>S$@@5 	 	"U*S$} D3 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@DABDCDDDd	(3EDD7a,^,^,^,^,~ 9~j!40Ft/L

 +$	D c(J"K FB&
Nv*";+^2g1EQ9G	D"D	D 3
C3
B3A8XYYZZD"[i6FC(,IbgevzX,Ibgevz(  gevz0gevzH @l	 
TINMjp,>S*5 "
 2`:+3`<+"5* ,>,>,>	(
U( D9H8H7D65D4D3dD	(
U*D,^,^,^,^,~3 >+(3`:+$3 ;+2@;+3";+	 D
(U O5j ,?,^,~<,>C<D,,^=@	*
"+ 5*# ,^,~,>C<D,,^@+",>,>,>,>	* *C<D,&,^$ JS(@
h@,^,^,^7  ,^,~	 3$u<Dj%P1U#VJpV) R:"<,8-yh "9w~ 5QZ/rL/t

cZD$Td;2{ 0!vyN!v ;/Qg^5Piho .e !6 ">,>>,%Y&DSINH: result overflowx	D"J(1E:R=m`d^Z+
gevze	o5$Y7	@"c(J"?!|H?33	43	5	@3
6N`g@XYYZZ[;-9@"pfPY>pz
1<LA$5C CZBd[1;d[;((D _0_H(_bguajX_bguaj(  guaj0guajH @<	 TIO-p5`4@, ,>,>,>,>   (Fdf+	.	"@&+
.&THD &hD`	 @,^,^,^,^,~,>,%Y&DSQRT: negative arg; result =  SQRT(ABS(arg))>	D"
guajguaY	guaZ
guaZguaec(J"Z[(( ^w(0^w(H*^w(b^y2Z^w(b^y2(+i(0i(H(i(`	tRXi(`	tR( ^y2	tR0	tRH@d	"UI~H7,>,>@@p5*+3L+2@L+5B,RUU"5(?	*,^,^,~IR QU3HHGHFHEHP 6@+;aD+= +>	";aD+> h+?`,^,^,^,^,~`.6T1RKI0
)FU1cAc	DNp\'7!B<d`pTb4.{|U%L3hxbEK+b&z56Gd	9~H 9~jpZ#$f.\4 LP(~j!40FP ~j /L
Q,>Q,%Y&DCOTAN: ABS(arg) too large; result = zero,>Q,R% ZY&DTAN or DCOTAN: result underflow	D"H IJK;
^y2M,=	tRML	D"Y1Y1 +$(N8c(J"Y FB+
b8K%$vN	D"z#

/S&l.g!0'>PH4|k1;?2g"XY	YZZ[i6QpyUQOXIAXIBXJCD"XJDCZB[p	M[p	M^^((^ 	tI0	tIH(	tIbh$6zX	tIbh$6z(  h$6z0h$6zH @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"JJLR*`d^Z
h$6z#\+'h*)	@"
<+&'(1;!7:9	D3#3	$3	%XYYZZ[;-9LA$5C	CZB((.+r^0r^H(r^`[mVXr^`[mV([mV0[mVH @, @I3@p5  ,~@[mV[mU
dzYZLA$5C ((	 sPA0sPAH(sPAbd:XsPAbd:(  d:0d:H @	 I6Md',>,>Rwp+C%p3 +2@+2b.<*f,^,^ ,~	D dededf
d:YZLA$5C ((	 +@0+@H(+@bgeLX+@bgeL(  geL0geLH @D INL{Gp7!p4 6!p5  ,~
geL! t0tH*tbt
Z_tb_t
(  _t
0_t
H @ Iex: p5@`f$
_t
[S5X(( hVO0hVOH(hVOcX[jXhVOcX[j(  X[j0X[jH @ SMmp5De|	`hEdX[j[S5X(( z?0z?H(z?`^#~Xz?`^#~(  ^#~0^#~H @$ I
dS@p@,~^#~9j09jH(9j@`	-jX9j`	-j(f	-j0	-jH @ g:=C@p5 [S5`	0	-jX(( 0(A*H(  f$0f$H @D Iad ")|h F,~f$

|h,F

,~f'0tcHH @D Iad( 2)|h0F,~
tcH tcI0tcIH @D Iad) 6)|h4F,~
tcI tcJ0tcJH @D Iad* :)|h8F,~
tcJ hEd0hEdH @l S1d,>({5$$hd$~)w2`|",^,~@hEdXUlW

w2`|"

,^,~@hEgXUlWH @l"S1d(,>`({500hd0~)w2`|",^,~@XUgHXUlW
,~",~`D 
 	00	0H @,	" g:9d@4$`fmD,~ A	,~$`fmD+"K
,~",~`D 
 	00	0H @,	" g:9e4(`jmH,~ 
A	,~(`jmH+"
K
,~",~`D 
 	00	0H @,	" g:9e@4,`nmL,~ A

,~,`nmL+"K

,~ "

,~`D((
 RwH0RwHH @,	" g:9d(40`rmP,~ A	,~0`rmP+"K
,~",~`D 
 RwI0RwIH @,	" g:9d)44`vmT,~ A	,~4`vmT+"K
,~",~`D 
 RwJ0RwJH @,	" g:9d*48`zmX,~ A	,~8`zmX+"K
,~",~`D 
G0GH@(G`b>XG`b>((Hb>0b>H`@|IMS@,>,>pp3@2"3+,^,^,~@`+	"b> [(D{1d@+0$+
)!")_7!p   ,^,~p+	@`+		DPC	ljL

YYG
((

 uJO0uJOH @(uJObd_(jXuJObd_(j(( d_(j0d_(jH @l	 @ I:Mmp5@,~,>1  a`+

[(D{0$!+")7!p ,^,~p+
@`+
 	DPC

d_(jL
YYG

((yv{0yv{H@(yv{bf
fJ.;' XdJO0XdJOH @cXdJR+XdJOcXdJR[XdJO(( XdJR0XdJRH @4	 @@ SuZp5@,~1  a`+
,>{0dQ+d ~)27!p	 A",^,~@,~,U 7!pS +	 ,>,%Y&IDNIN T: result overflow	D PC	Lc(J"XdJR
YG

((