Google
 

Trailing-Edge - PDP-10 Archives - BB-4157E-BM - fortran-ots-debugger/forcpx.rlr
There is 1 other file named forcpx.rlr in the archive. Click here to see a list.
 0(=9H	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:(  x^0x^H(x^`
+ @,>C< 
,,^+ ,^,~1@+
, ,^,~p "x@,>
,>,%Y&CABS: result overflow	DHN
@24K
`aj XY;-9pz

LA$5C (( 0H(`NZX`NZ(  NZ0NZH @
<	 T
GF@,>,>,>C#p   B#3b1+,3@@+/ @2 2	(*+
@@+,,>C<<,,^ @,>C<<,,^ @  3d2	(E"+&1B+"D2d2+ D,>C<=,,^ #U(1b	(QD+U",=+ 1("2d2+" #U&1`+#	"D
*"U ,B+$ 1$"+/ D,>C<=,,^ @ + 	((@*+ 0B+. 1D+.,G1@,L,^,^,^,~$bS7!vyO^	RX 	"3,>3,%Y&CEXP: AIMAG(arg) too large in absolute value; result=(0,0)	"
;x@x,>3,4%Y&CEXP: imaginary part overflow,>3,>%	 (DY&CEXP: real part overflow,>3,C%Y&CEXP: imaginary part underflow*L,>3,G%Y&CEXP: real part underflow	D"H &NZ`RvRuYY$Y0"`~Z'~Y	@c(J"M!|AP%u
@"#S-	2R9LQ:GXYYZZ;2D"LA$5C X>
;gE,E?M1^^gKg((Q NI0NIH(NIbGGXNIbGG(  NJ0NJH(NJbGG"XNJbGG"(  GGGG"0GG"H @7	"PT
GFG D F Hp p,+GFg D F Hpp5B
	 Q(U
U U"4F,B@`+,J+@+5F5H =@   	""",~ J@
 J J J@ @ + #2 >+'	*QT 3`?++,>C<T,,^+A5@'4($	,>C<V,,^	  E("D4HLd+q:5$7 "+7#2B=+2;5$*  	* "*+;5(.":5$/ +/`#3H=+1	+7 +;;	*UE
3 F H@@@@@@5$7 "	,>C<V, ,^+A	"U*;H+ >H+ >+AD4DD+l@+ WD+ R	 D*T D+ O5(G(3(=+I3h=2*>+j
,>C<W,,^	" (L,>C<W,,^+5@j@`D`+a5Dj#2(?+D@`	(**UD4H4D+a5@jD+ \#2(?+DD`+_5Dj	 ]D4H4D@4H4@S* J5 d J 	,>C<V	(P**f,9,^<@@+,WU  +7S  	*U*P n   @ D@+ D+ D +$+ 	"*"w5(x(3(=+{3h=2*>+j
,>C<W,K,^,>C<W,M	"@Q*,^+7@`D`+#2$?+w+
5@j	*UD+	+H4H4@	"E

S( H5   H	,>C<V,f,^<@@+7	*T*U*@+  D+ 1 + +Y5@+Y4$M+f5@#D	(U*P
!+ 1$+YD+ %+,4D,@LDL@DL	 *U**HLD 4 f+M6 +/6 +0+06 +0+f+M5D2+Y	*U*U*26 +56 +6+66 +6+M+f6 +:" @" @@	*P"U*;+ BD+ GD + ? + @+Y4@E4$M+f5@,D	(*UC+ FD + +Y5DI+Y5DI+YDLHLD 	*(EL+YU 7@+U5DR5FR@7 ",]+7 7 "7 	"
U*T"+X 7 "7 ",b+72`A+\2 A2bA+f7 +s	*
U*]2@+h,>C<g,,^@+ d
+,h+a,m	*""e+c,r@@+76$+j[* @$	,>C<V,,^6$	(T(U*n+p[* @ 	,>C<V,l,^+ ~3 @+w3`@	*U(Q
v2"@+2`A+z2$A3bA+,>C<y,,^7 
3`@2"@+2`A+
2 A3bA+,>C<y,{,^7  	*T
"
+4@4$,] @+,m@@
+ =@+
	(
4`bm@+(A+"+(`bm@+!A+$	"Q(*!"+(4@&,U+(4@&,Ul+(@,m+(   
,~ Y~j	 :!40F 9~j!40F"Q,G3]-fh 0(9~j0Pp!vyObvW^	RX0>F9l,>B	 
C,%Y&CEXP3: (0,0)**(0,0) is indeterminate, result = (0,0),>B,C%	 KY&CEXP3: (0,0)**(negative,any) is indeterminate, result = (infinity,infinity)	"D*Tpx	x
,>B,J%Y&CEXP3: Both parts indeterminat	"@\e,>B,X%Y&CEXP3: Real part overflow,>B,]%Y&CEXP3: Bot	 (eh parts overflowx,>B,b%Y&CEXP3: imaginary part underflow	*m,>B,h%Y&CEXP3: real part underflow,>B,n%Y&CEXP3:  real an	 
@vd imaginary parts underflowx,>B,s%Y&CEXP3: imaginary part ove P~rflow,>B,z%Y&CEXP3: real part overflow`	D"/Ux)[GJ 1J7J:AB	D"BGB@CF-h40F#-q!,-vB0Q-c1@	D"c@rqArDAXDYXEhXEsXFoUu=	D"ud>vItyE{4XN}%7GnG7H
46eD27HB6`	<	D"
GG
GG"w(W1``2v`d^Z`f&aR8`q{q	D"f
q`,R|^,,X	VwY.M	WJ>\	WJDM/%!U/%!R	D"/IGfc(J"
Nu7(TI<;X&P86X&Pi2X&Pi4%q&Dd^1N&&4-
{@	"&HI/5w6;
t<A*yW*zR*zO*{\	D"3W=q+	D"MEwSxdSyhD:O!;b-jb2p!*	D"4P8&4Pi"4Pi$77G
).5!
5!I5B77;	D"7c}7e>
7eD8Ge9@>7p4E@=`/2pZY	D"pZZpZZpZ[L!YZZ[KV=gSQ$LB*gh$e5h2A.	D"mc#
i7.>pz
n?pz
o?F%K@C/$2C/%1	+LA$5C @\	'G

(( ?<0?<H(?<`#kX?<`#k(  #k0#kH @T	 PE(G2|s@p4BH4@N,>,>##AVAV/2&V+13&W+:,>,>	 Q##
 @ B,>C<],,^ 2(+* (Dr/$@4d/$	 ("HJ(D+  B2bZ+3"Y+5D! W	(E W X+# (Hr/(@"B .2"Y+!B.$"	"@
" WW 
 Z[[J5D*+.	 * @bhH\,@ ,^,^,^,^,~#F,>	(3C<_,,^ Y5&6"+ E+ ED+ E+F#D	"A(";,>C<_,3,^@5$@ X5&@"+ D+ EF+E	*TE"D+F5BF,`5@F,e,^,^,~4@T5 J" X B @,>C<_,<	"EL,^ ,~  Y5 P"" @ B,>C<_,L,^ ,~,j	 UU ,~?`@|@ 0 P Y~j 9~j P'M 6P'Ms!hhyI^ *Vh _/Qg^5p	*]x,>_,%Y&CLOG: Imaginary part underflow,>_	(Pf,`%Y&CLOG: Real part underflow,>_,f%Y&entry CLOG; arg is ( n0.0,0.0); result=(+infinity,0.0)	D"`KRb4NN1#kU1XL-.c(J"k^
@('(!	D":Z:[;[?
W-?.V#G[#	D.W@M W

$B67:3*5}~F	D"7~BJ3YZF"UY#:R<`	0-XYY	"ZZ[@@@`X=^E=^DLA$5C*DB&3<TD<Nb":PF<H((r j(0j(H(j(`1RXj(`1R(  "0"H("`"vX"`"v(  "v1R01RH @
I	"@(D
2dI+!  IHHG+#"	 
U*"B  1&"+ )+C + )+C,T#	"DT(*1@+5 @,>C<S,,^F3`G+1,[U +4 @,>C<S	(E(P
3,,^7 "7B+C @#B,>C<S,-,^ F3bG+=	(Q U
;,`U"+@ B,>C<S,3,^   F5$C"+C ,^ D,^,^,^,~p_iho !vyOU*U*QDurjWR.} 0'~j 	"J,>J,%Y&CSIN or CCOS: ABS(REAL(arg)) too large; result = (0.0,0.0)	"Sx,>C,>T,K%Y&CSIN or CCOS: imaginary part overflow,>J	([,U%Y&CSIN or CCOS: real part overflow,>J,[%Y&CSIN or CCOS: i dmaginary part overflow	D"`K8u
*#"vM>H1M?!=`Rv1R1A	D"1ACVJo5'`~Z>c(J"a";5"W{!zkG)	D"
9Y)49Y*@UXYY"ZZ[pz

FCEMGLA$5C X>	gKg((f 1O01OH(1ObO@ajX1ObO@aj(  O@aj0O@ajH @	\	  GO-C#p  ,>4B,4@2#,>,>,>,>  
#@
2d	(A9
	*++:&F,>C<:,,^4L@#@,>	*(C<:,C<:,,^@#+ 8B+ 8+'#	""F F,>C<:,,^ @ 1(*1*",^,^,^	 
*,^,^,~4@7 #D,>C<:,$,^@5d7*,^,~ B(P 3#B,>C<:,.,^ 5d7",^,~1(,<,A 6P'M 	":x@ 0,>',>;,%Y&CEXP: real part underflow,>',>;(B,=%Y&CEXP: imaginary part underflow	D 
O@ajL7~	c(J"BPUP%u
@209=9`aj4XYYZZ[D;-9%:8C#	LA$5C E	kYG "D23wG,((G DGA]HGA]IGA]JEFG%[DKdMHKdMIKdMJ%[E%[F%[G0SkH @D	"D QGid*p,6,~G6id*p,6p,~Gid)	*D p,6,~G6id)p,6p,~Gid(	(D
p,6,~G6id(p,6p,~Gie@
	"(D
p,6
,~G6ie@
p,6p,~Giep	(A"(",6,~G6iep,6p,~Gid@p,6	"A*,~G6id@p,6p,~Gidp,6,~G6id	*
U(3p,6p,~,< @ *"@,<  	(U(";,~  + @+ e,~ 4@Ud+ FF5&H @	 Q
Q D /",q ,~4DCF5&M+C4DC @+ L@,~	*U
"L@+D+PR+,~,~	"U+\#3&v+X",~D at $1L"@w,>,>q,r%CCComplex underflow at $1L	D"TrIrIr]r]z<Sk6D0
GA]H	D"
GA]I
GA]JE(F G%[D3
KdMH
KdMI
KdMJ	D"%[E,%[F$%[G
g9R`)ipc(J"x|C^bAD	D l:
CFuC5@uC5euC6j>	DI!LI,lU>ukHU>vMXYYZ<VC\D"{&M'0(H @	"D QG!d*p,6,~Gid*p,6p,~G!d)	*D p,6,~Gid)p,6p,~G!d(	(D
p,6,~Gid(p,6p,~G!e@
	"(D
p,6
,~Gie@
p,6p,~G!ep	(A"(",6,~Giep,6p,~G!d@p,6	"A*,~Gid@p,6p,~G!dp,6,~Gid	*
U*3p,6p,~4@>4B;6@+A6@+A@`+o 	*U*U(; @ +o  @"+o+ O+ O+ O	*U"U*D @ + O + O+ O+ O @ + O 	(U*A(L+ OB+ O+o H ## (3`+T* D" 	**U##3`+X* D$( d+ + $ D + 	 *]@+ 1H"(.(6 "&7@",p @ @  3H)"	((U*f3H)"  + + + ,p5(m @+m @ 	(E
Un7  ,~###3$(+x3"(+w3 (+w+	"U**w+u2b(+}2`(+{3d(+B+ +3`(+{3d(+{	 Q
D(B+ B+ B+  @+ B+ B	*(( FF7`",~+ "   +  D4F"#2"*	(

+kF@@+ fFd+ +k FD J  	"A A#
3*(+#
2*(+@B+!B@d+!D@d 
	*T*A !+k @ B+ &+k /",++k 0 *,>,>*,%CCComplex underflow at $1L	D">:YjD7}rpD8*kEQxERwD3
F%=H
F%=I
	D"
F%=JE,F$GSg6M$0
G0H
G0I
G0J	D"M%(M& M'HXi@}>Z>d	
j;c(J",&D	D""KYPyGAYU{\YEiT\YEiX\YEsO(	D"!n209o!!!!`2`2vU=`2YYZZ[;-9EG&{"Pk((0 77G077GH(77G`).*X77G`).*(  ).*0).*H @ e
@mFLA$5C (( )S0)SH()SbMfX)SbMf(  Mf0MfH @$ G>u)gp",~
Mf(( %l	0%l	H(%l	bKibzX%l	bKibz(  Kibz0KibzH @$ G7N p p,~
Kibz(( Kic*0Kic*H @, G7CQ p p,~
Kic*(( Kic+0Kic+H @d G7CR,>,>p,p, ,^,^,~	"
Kic+XYYZ(( Kic-0Kic-H @< G7CT p p`b,~
Kic-((