Google
 

Trailing-Edge - PDP-10 Archives - BB-4157E-BM - fortran-ots-debugger/forsng.rlr
There is 1 other file named forsng.rlr in the archive. Click here to see a list.
 0)!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:(  /4H0/4HHbf*/4HbfZ/4H(  K<0K<H(K<`KXK<`K(  fK0KH @$	 Q"(C2|t( p4@ @,>C<#,,^,~C2|s@ p5`4@,$"3@	*U
@*+2!+)r. !"  @(|	 QD h"  B  B	(P,~,+  ,~  ,~{e^b 0i/X3s!hhyI^ *Vh `@ 6P'M P'M "]ox 	""x,>#,%Y&ALOG or ALOG10: negative arg; result=log(ABS(arg))"@+,>#,$%Y&ALOG or ALOG10: zero arg; result overflow	D"
fK/80J"c(J",lX;Q[0Q[H(Q[`	DJXQ[`	DJ(  	DJ0	DJH @,	"U(C6|C@#p#p3`+@b D@+ 
7D+
@@@D @?+ "@&p+	D 	DJNi3.';	<*9
vR24Kj
pX-XYYZ(("0"H("`vvX"`vv(;v(0v(H(v(`|RXv(`|R(vv|R0|RH@,	UC~3@,>*+CNMc@,>X*`p#3`%+2`%+#,>"@	D,> @,>C<*,,^,^"@+,>3 &+ ,>	  ,>  ''& )),^,^	"T(U #5j2d%(5"!"+!4""3d%(+! (2d%B,^ @",^,~,+U ,^,~ 0 U<c\ 	rE`e:8shQ Y~j 9~j [kc } 	"*x,>+,%Y&ASIN or ACOS: ABS(arg) > 1.0; result = +infinity	D"vvH |RDTv&, %R%U"U1(	DW=(Y0#c(J",+\P>;@
 )D)Z N	(DN"#3bw+ vvueU	(
7`",^,^,~!"}B $+
CR,>,> pp+ * @#	*"2&x+'@3fw+x)D)Z,>#p#p  AyNN	 A"#pN,^7!p.$+
"pp#@ $7!p $+
	"E"E*7Ap+.5@06!p,{"]+16Ap+0,@+]7!p"+	L3	 ;	 D	 L:@P?@S@X~@|s}@xzs o@ `@ 2\@ :) TH@	 U u8:rc(P3v6Sj} XVbc){Js.z we=J}Ke[ ?O n5N QA
{Mq<dWu->Ztv]Y*y1!ourDtygz.>`
U*XYLK3`-~->	 "@w}	;!9.q!' +%`|,>z,>z,%Y&ATAN2: result underf"@low,>z,|%Y&ATAN2: both arguments are zero, result=0.0	D"DR
4N6qU7Dez
aqD.avw	VwY*c(J"	D"tM't]-@x-pQwq]AWD\AXLhl/W[2	"24:0Ng{@1H @(@ @PH @(@ @p(( Rm0RmH(Rm`)rXRm`)r(  )r0)rH @4	 (A G?@ p#3b+2b+	 B,>C<,,^2"+!"	 T
@,~3"+
,U ,~ B,>C<,,^ ,~ ! ,~ !vyH!v`A9 #pp"x,>,%Y&COSH: result overflow	D"R)rav`~Z~U
c(J"lG;-9i6JCEMLA$5C #eM((c0cH(c`~ZXc`~Z(  ~Z0~ZH @|	 U @Kc` p3 +3`+,U ,~,#  ,~,>,>@ @	(A DD Dd@D  5$
Ql\{s/Qg^X1Kzl	",>,%Y&EXP:resultXoverflow,>,%Y&EXP:	resultundW&erflow	D"0 ~Z~Ic(J"#";"@B
5b`B 2D1D+@+$+ 
	 D
`B$+ 
(B5B,^,~5",U 6!p+ p`B! +",>,%Y&EXP1: result overflow	D"6oiTK
	
B	;	jo~*
	WFzc(J" 	WG0	WGH @\	 (AKc#@! #p4B
,>6Ep++
+ 
`B+ 
(B5B6!p+		  E!"B,^,~6#p++#p p3$"4",U 6!p+	`B	"D"+	,@+	 0,>,%Y&EXP2: result overflow,>(,%Y&EXP2: result underflow	D"<%p7dKp7fx
p942
	B	;		jpCKpL:
@	WGc(J" 	WG"0	WG"H @
	 Kc3@ p p@@5`4@
,>,>,># @)F/&<(D`dO@	 U*P (D#5D2@U++M,i+5bP4B,rU ,~,x@,~3@U	(*"+P,>,>,>3BU+M5B U+M,> (r/$@ D AbGb	"E
 *2dY+.*2d,W+.*2d,V+.* .&( ,U ,U	(("]H  RR Q (/	 *E**dD~@f@H+ 03(P+3,U +M5H2 U+N4(4+/	*D"*32(Q+5,@+M5(7 "/">5":@b,+FA
c5h?(	 @;@(,9"@F"+B@(,<@F 
5&C.&(~	 (D"D0*.& (/ UTTSSUU	 @L@,^6@",^,^,^,~!`]op|*G25*U(YN@ `^_o@5A[SXj-	 Uu1(b 0 R+t , 
f{t'sb$0V9(PE$P'M*UA{ vZo)IB?AN+9.ZV px|~@ f`px|~ 	"i,>i,%Y&EXP3: negative ** non-integer; ABS(base) used instead of bas	"@
qe,>i,j%Y&EXP3: 0.0 ** negative; result = infinity,>i,r%	 zY&EXP3: 0.0 ** 0.0 is undefined; result = 0.0,>i,y%Y&EXP3: result ov Perflow,>i,%Y&EXP3: result underflow6 	D"]UJhZJiZJi[Jj[Jj\Jk\Jk]Jl]	D"E	VE
VE
WEWEXE
XE
YE]^	D"E^EEE`E`E aE a1DPR	D"Y0	VwY0	WG"c(J"(Ts/B
NvU:
NvU?l[$	D"-?.cfEbfEb..Ec>EHh>EIh..Ed..Fd	D"..Fe..Ge..Gf..Hf..Hg..Ig0BC0I0I	D0I24:224K/5A`B7(
2QX>E(Ox@+:(( 0hK hMPlh00hH @<	 ET g&(7#pA1@  @,~ep %
' B! >	,~g6(7   Ap,~%h 	D"R
R	
j	
b
SrY((7N07 NH @T	 U ev0,>7B+@@ ,>C<,,^ @*d,>C<,,^%	* ' B,>C<,,^A"?." `@p   D,^,~x AS "xx	D"RR"	"	fB&.7
XYYLA$5C ((A U"0U"H(U"`RvXU"`Rv(  8(08(H(8(`9LRX8(`9LR(  Rk0RkH(Rk`)qJXRk`)qJ(  9LG09LGH(9LG`v*X9LG`v*(  Rv)qJ9LRv*09LRH @	,	 (G?C@,>,>,>#p@3 =+	$42$A+8Hd$=	*@<9) 4 (+g&tC@,>,>,>#p@b3 B+$42$A+8	 @(
Hd=7!ph@<+)G?`,>,>,>#p@3`9+	*@QD;2$B+8Hd$@D9l9):(+)g&q`,>,>,>	Q("#p@b3`:+(D;2$B+8Hd@D9D7!ph51+	A"*hab+-.l3A+5@@??	(3>`H",^,^,^,~  ,C+6 Y~j!40F 9~j!40F	 ;t/L
 @,>C< ,,^2 +	S"}	 @
@+,>  ,^	*Q(P +3 +,!U + @,>C< ,,^ 7!p" ,~ !vyH!v`U*U*QDurjWR.}A9 0#p "x,> ,%Y&SINH: result overflow	D"J
JRz	?av	D"`~Z~U	WJIc(J"!lG	(9`ajX9`aj(  aj0ajH @L	 @(PgGC@7cp+
(Bdb+.	  @,~4B
,#+SQ,~>,>tive arg; result = SQRT(ABS(arg))	"c(J"
aeX@YG

(()w(0)w(H()w(bM`;RX=(`;R(,M3d+	*T+,6@,^,~,>,>,>@3d,+D-H `H+h	 @ @
$D,`f.$l$+.(h@
(H,`j.(l(  	* A3$.+! 

 0/ 0

/?	B@"A&1&+%"".&3F+'S&f7%p",^,^,^,^	 *,~P&y~j~j~j!40Gl4/L zero	D"H JQy)Mi
MRav.M+(CQ-c(J"6	DG!/{m%?
'XYYZZ[@;RCEM+((= ;I0;IH(;I`>6zX;I`>6z(  >6z0>6zH @t	 UP(iu@#p2`+3 +,>  2d+
 	 +B B,>C<,,^ !"{" ,^7!p ",~! +!YP IzO_eQifa`Nr9 SbPg "x	D"QK"OM?1)Mi)Ms	 `~Z

XYY>6z;-9LA$5C (( 
0
H(
c8JX
c8J(  8J08JH @ M2| p5@8J`
=$[S5X((%u(zO`&(jXzO`&(j(  lL&(j0lLH @,"S;!`+SO@ p5D lLlL	`m*$&(j[S5X(( m*$0m*$H @ @,~m*$(( m*%0m*%H @ B,~m*%(( m*%0m*%H @ D,~m*%(( m*&0m*&H @ F,~m*&(( m*&0m*&H @ H,~m*&(( m*'0m*'H @ J,~m*'(( m*'0m*'H @ L,~m*'(( m*(0m*(H @ N,~m*((( ZH0ZHH @ P,~ZH(( ZI0ZIH @ R,~ZI(( ZI0ZIH @ T,~ZI(( ZJ0ZJH @ V,~ZJ(( ZJ0ZJH @ X,~ZJ(( ZK0ZKH @ Z,~ZK(( 
=$0
=$H @ `,~
=$(( 
=%0
=%H @ b,~
=%(( 
=%0
=%H @ d,~
=%(( 
=&0
=&H @ f,~
=&(( 
=&0
=&H @ h,~
=&(( 
='0
='H @ j,~
='(( 
='0
='H @ l,~
='(( 
=(0
=(H @ n,~
=(((CH0CHH@bp,~CH((CI0CIH@`r,~CI((CI0CIH @ t,~CI(( CJ0CJH @ v,~CJ(( CJ0CJH @ x,~CJ(( CK0CKH @ z,~CK(( F^0F^H(F^`
{@0
{@H(
{@canLX
{@canL(anLL0LH@T8g&=c@#p7!p",~SNL{G#p7!p",~anLT[UC&vC@#p2~+7!p",~&p@XjXY.9(  -@0-@H(-@`fX-@`f(  cfczfz0-@H @<	"C6',,~[B@,,~[B@,@,~C6,`,~,>Rw+	 3!p p.<*f,^,~	@"
cf
cz-@%%	fz	 AH(	 Abr:X	 Abr:(  -pA0-pAH(-pA`+:X-pA`+:(  	 @0	 @H(	 @br&X	 @br&(  -p@0-p@H(-p@`+&X-p@`+&(  r&r:+&+:0-pRH @<	"C6Md',,~[&r@,,~[&r@,@,~C6Md,`,~,>Rw+	 2ap p.<*f,^,~	@"
r&
r:-pR+e+e	+&+:OH @(Ob@(jXOb@(j(( @(j0@(jH @,	 A C:Mm#p5@,~a`+
[(B{0bM+	(@2"(@M7!p",~ g p,~ @ 
@(jL	
YG
((
 /jO0/jOH @(/jO`y(jX/jO`y(j(( y(j0y(jH @l	 D ]&vC@#p5@,~	[(B{0bQ+@7!p",~,
U 7!pS  ,~ ,>	,%Y&NINT: result overflow@"Lc(J"
y(j
Y((