Google
 

Trailing-Edge - PDP-10 Archives - BB-4157E-BM - fortran-ots-debugger/forcdx.rlr
There is 1 other file named forcdx.rlr in the archive. Click here to see a list.
 0(;IH	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:(  B^0B^H(B^bF
mVXB^bF
mV(  F
mV0F
mVH @4	 G
,g,>,>C%p5  5$$3`+**4D`+ 	* 3`+@,>C<,,^@+ ,^,^,~1@+, ,^,^,~ 00 "x,>,>,%Y&CDABS: result overflow	D HN
F
mVbguaj
c(J"G24KZ;-9pz
1LA$5C CZBETB(( _0_H(_bF^ZX_bF^Z(  F^Z0F^ZH @	 
*G/
,>,>,>C%p5$$3$H+2DH+3fH+,L	 *@@@@C)p  ,^,^,^,~,>2`J+2@J+	*" 2"J+@@@@+A,>C<U,,^,>C<U,,^	*U*Q3hK+<7@+53(I+2HI+)2jI+)H,>C<V,,^	"@U "D5$$$U(O
h2d+)2D++3f++U$O,W	(E*Q"*++D7 $ 3(I+02HI+52jI+5@5 2 2`+5	*P(@32@+73b+7U O,_+7@7  C)p  ,^,^,^	 E*;,^,~,>C<g,!,^D+ @+ 5DC7@+C,h5@D,o DC)p  ,^,^,^,^,~(9~j6t^"yObvW^	RX0>F9l!vyO 	"K,>K,%Y&entry CDEXP; DIMAG(arg) too large in absolute value; result=	 (T(0.0,0.0)xx,>K,L%Y&entry CDEXP; DREAL(arg) too large; 	  \DIMAG(result)=+infinity,>K,W%Y&entry CDEXP; DREAL(arg) too large; DREAL	 (e(result)=+infinityx,>K,_%Y&entry CDEXP; underflow has occurred	 m; DIMAG(result)=0.0,>K,h%Y&entry CDEXP; underflow has occurred; DREAL(re vsult)=0.0	D"H <
F^Z+``2v`2uYY7`d^Z=d^Y`,R	D ,QY05Y1c(J"pP [hP [|P
8k!|A+	D"7/P=J/P?JR0)XYYZZ[	D"@=I@?IK~2?fB$g[m	g[mg\6g\+g\	g\)7g\)8`r'Ig\2gg\7Ng\B:((w 	<0	<H @	 
Gey`,>,>,>C%p4DP4@U,>5  5$$	*E(@
AdAd/2$e+:3$e+@,>C<r,,^C)p 2(	( +**
 (Br/"@4b/""HD(BHD2hh	*U
+!3(h+!5B& B bbHcH+( (Dr	 "/$@"H.2(h+&H.""BH(cbhH	(D(D
*nHmHl@kj@i`@@+ d5D3	( 3+7@HqDp@p,^,^,^,^,~,>C<t	 Q*;,,^g7 $h+ K+F,>C<u,;,^@@7 f	(TE*D7 $h+ JH+ KH+ K+L5DK,v5@L,{C)p	 
(L  ,^,^,^,^,^4@]5 R f,>C<,A,^+Z	"A
Ug5 W $,>C<,S,^C)p  ,^,^,^,~	(],U OC)p  ,^,^,^,~ 0 P?`x	 f Y~j!40F 9~j!40F P'M 6P'M^|b)K<!01D5?Y_f]zI
J."]'z,?>v	 D"n	AGb'P bd{t9wM/pxx,>u,	 Pw%Y&CDLOG: Imaginary part underflow,>u,v%Y&CDLOG: Real part und	 erflowx,>u,|%Y&CDLOG: arg is (0.0,0.0); result=(+infinity,0. 0)
	D"\i]j]kplqmqnroN:0j6Z	D"pq	<U1fb\}N
8k('(&?1e-?.d#G[(.W!	Dl@MbYZZ	D"[@@@@@`c=^K=^JLA$5C D":&3<]D<Ub":ETBWF<P(( 4(04(H(4(bF0,RX4(bF0,R(  Q"0Q"H(Q"bF2vXQ"bF2v(  F2vF0,R0F0,RH @|	 "G|`,> *+G@,>@*,>,>,>C%p5&&2fd+
	*T2Fd+3hd+,m@ @@$@C)p  ,^,^,^,^,~	"DA*,>C<v,,^,>C<v,,^4J$**	*E*U(5d$3$c+2Dc+:2fc+:3da+[3$e+%,>C<v	 @(P
",,^eh @+2$,>C<v,",^DlD	*U*E *kDj@ih@g@f`$@@	*
35(4$@D+ aC)p  ,^,^,^,^,~4@H5`<	"
U(; ,>C<v,,^b3 c+D2@c+B3bc+D,wU O	*"UD+G,>C<v,',^7  7H+Y 
5(K(,>C<v	(*P(L,=,^b3$c+S2Dc+Q3fc+S,U$O+V,>C<v	("*U,F,^ F5(]$+]@@+]D+ aC)p	 ]  ,^,^,^,^,~,	P_iho .!J!vyObvW(9~jX,9r 0 f$u<Dj%P1U#VJpV) R:"<,8-yh "9w~ 5QZ/rL/4
cZD$Td;2{ 	"m,>m,%Y&CDSIN or CDCOS; DABS(DREAL(arg)) too large; result = (0.0,0.	 Tu0)x,>m,n%Y&CDSIN or CDCOS; DABS(DIMAG(arg)) too large; DREAL(	 ~result) = infinity,>m,w%Y&CDSIN or CDCOS; DABS(DIMAG(arg)) too large; D	 *IMAG(result) = infinity,>],>	,%Y&CDSIN or CDCOS: imaginary part  underflow	D"u
M4*2
F2v
F0,RM>HDM?!SVS	D"``2v`d^ZU`q{L`,Ro5[Y1
Y1BY2Qc(J"
	"P [hP [|P
8k";Hym4YzkGa4K:3f3	g3	h3
i9Y)G9Y*V:U	*B<XYYZZ[;-9;rBK	D"pz
1aW1cXcCZB^^4	DETBgKghF#g[@vg[Qg`r%Hg[j]g[kg[l{	g[l|g[m	g[mg\6g\+g\	g\)7g\)8`r'Ig\2gg\7Ng\B:(( F00F0H*F0bF0JZF0bF0J(  F0J0F0JH @d	 DGZ,>,>C%p,>,>4D64@<5 (,>,>,>	(@ 
5$
0Z,2(+
@
p+ P+ I,>	("A
C<K,,^4LI@,>C<K,,^,>C<K,,^	"(
@+"1(+&@~H5  @~+ ,>C<K,,^	"(P"@5$#$d+ FD+ F+-@50(0P,>C<K	((*,!,^@h6 +/**7 $C)p  ,^,^	 ""3,^,^,^,^,^,~4@B 5 8 ,>C<K,*,^5hB*	""A;*+B 5$>$D,>C<K,9,^5hB$C)p   (@D,^,^,^,^,~7 ,L,R@d+- 0 6P'L'yo 	"Kx,>H,>L,%Y&CDSQRT: real part underflow,>R,M S%Y&CDSQRT: imaginary part underflow	D"
F0(JLBbguaj@\`
8kPU	"PVPV7~/I209"Z	D"[;-9~gRH%:FzF(
C#	LA$5C X>(CZB	D";gE	ETB
gKgkYG&"_D<3wG6g[@vg[Qg	`r%Hg[j]g[kg[l{g[l|g[m	g[mg\6g\+g\	g\)7g\)8`r'Ig\2gg\7Ng\B:((X