PDP-10 Archive: decus/20-0137/bmd/bmd02d.exe from decuslib20-05

Trailing-Edge - PDP-10 Archives - decuslib20-05 - decus/20-0137/bmd/bmd02d.exe

There is 1 other file named bmd02d.exe in the archive. Click here to see a list.

?p0`00 ?hX?x "

<++A2	`~ 7OXAU2P(TRNGEN    PROBLM    **   V    NO   PLOTSL    FINISH    ('1BMD02D CORRELATION WITH TRANSGENERATION',' - REVISED MAY 5, 1969'/40H HEALTH SCIENCES COMPUTING FACILITY,UCLA//14H PROBLEM CODE A6,/21H NUMBER OF VARIABLES I3,/17H NUMBER OF CASES I5,//)(' PROGRAM EXPECTED PROBLM OR FINISH CARD INSTEAD READ THE FOLLOWING'/1X,2A6)(' DATA INPUT CANNOT BE FROM LOGICAL TAPES 1,5, OR 6.')(' NUMBER OF VARIABLES CANNOT EXCEED 135')(' NUMBER OF CASES MUST BE GREATER THAN 1.')(' NUMBER OF VARIABLES AFTER TRANSGENERATION CANNOT EXCEED 135')(' NUMBER OF CASE SELECTION CARDS MUST BE 9 OR LESS')(' NUMBER OF TRANSGENERATION CARDS CANNOT EXCEED 150')(' PROGRAM EXPECTED TRNGEN CARD INSTEAD READ THE FOLLOWING'/1X,A6)(' NUMBER OF PLOT SELECTION CARDS INCORRECTLY SPECIFIED')(2X,F3.0)(F6.0)(' VARIABLE FORMAT CARD(S)'/10(1X,18A4/))(2I10)(20A4)(2A6,I3,I5,I2,I4,I2,3A2,31X,I3,2I2)(18A4)(5H0SUMS//)(1H 8F14.4)(25H0CROSS PRODUCT DEVIATIONS)(6H0MEANS//)(20H0STANDARD DEVIATIONS//)(27H0VARIANCE-COVARIANCE MATRIX//)(19H0CORRELATION MATRIX//)(A6,I3,I2,20I3)(1H06X,23HTRANS GENERATOR CARD(S))(46H0CARD    NEW     TRANS    ORIG.   ORIG. VAR(B)/45H  NO. VARIABLE   CODE    VAR(A)   OR CONSTANT)(A6,I3,I2,I3,F6.0)(//21H CASE SELECTION CARDS//)(4(3X,I3,1X,A2,A6,1X,A2))(22H A CASE IS ACCEPTED IF)(6H (VAR(,I3,2H) ,A2,1X,A6,2H) ,A2)(A6)(F6.0)(2X,F3.0)(1H ,I3,I8,2I9,F14.4)(23H0REMAINING SAMPLE SIZE=I5)(18H0NO CASES ACCEPTED)(45H0CONTROL CARDS INCORRECTLY ORDERED OR PUNCHED)(A1)(13A6,A2)(115H0THE STANDARD DEVIATIONS, VARIANCE-COVARIANCE MATRIX AND CORRELATION MATRIX ARE UNDEFINED FOR A SAMPLE SIZE OF ONE.)(97H0INCORRECT TRANSGENERATION CODE ON CARD ABOVE. PROGRAM WILL PROCEED WITHOUT THIS TRANSGENERATION.)(1H023X71HNUMBER OF VARIABLE FORMAT CARDS INCORRECTLY SPECIFIED, ASSUMED TO BE 1.)Pp(RPdBMD02D    + -<4Y@dC $ DX $ DE </,4X <0, <3,
+* <:, <=, _DOZD= = <@,
:=; O+#, <A, <D, <G,
 <N,>3DQ2FR7+33DC2FD7+H <Q, <T,
 <V,, X1d+5 <Y, <,7* <,4r <[,,+1 <^,,+1 <a,,+1 <d,,+1 <g,,+1 <j,,+1 <m, <p,
+1 <r,,+1 <3DE+7 <-,2^ &D/>"$.>$4d9 G1d+; >.Z".(D"&.$4f=#R0d+? I0d0d+W+Y $ DI <u,, <x, <{,
 W0dK+A4$A4Dq <},, <,,"W $ DY <, Y <,
>3H92J9+C <
, <
 E/(4Hp5hm Y"E.($E5hp <,, Y (1 HE:Y8&b7@R+#R( DK <,, <,"K $ FN DY Y Y( <,
:Y; N+x, <,,"K $ DY Y DB <, Y( <",
3I+:Y8&"B $@h.$8&"B $ FK DY <%, <(,( <+,
 <,, </, <2,
 <3, L2DA+ <6, Y( <9,
 Y & F+ <:, Y( <=,
:Y; K+ <?, R$W4$*5d(7$W+A5d&6@R+$ $ DF++ $ DF@dB++ $ DF++ $ DF@dB++ $ DF@dB <A,@dG D: G D] >.Z D\"\ $ FJ DY  FJ"J F8@f1 Fu"\ $ ($.Y@j <.$8&6:Y; J+2@dD@d@ $	$dI <D,"I $ FY DY Y <G,
:Y; Y+?, <H,"I $ FX DY Y <K,
:Y; X+F, G DA A&$  D:5DN A F:": $ FV DM <M,"> $ FV DY Y <P,
:Y; V+S,6bF0b+[+X4r4[4a4d4k <),>6bN0b+`+]44`4 43:B+r <%,3'6 :+r@d:+ <!,3'7 :+c <,>6bN0b+k+h44`4 43 <,>6bN0b+p+m44p4 43:B <,3'7 :+c!$d@@f;"@3F+w$} @ F;"\ $ FU DY:D1d+ <Q, _DUZDE E <S,
:E; U+}, $ DD D Y 6 H| 83$6 6 D8 J2d6 6 DJ 6D1 Du7D@+

"1@Du u; DF"Y $ &$.Y 
u
FJ<.$8(:Y; U+y:M; V+P":.dA5dJ"\ $ FS DY Y$&.Y < Fu"Y $ ($Y. *$
.
Y 
(< J <.$8&:Y; S+ <U, _D`ZDE E <W,
:E; `+%,6bF0b+-+*424-4/4-40 B DG+2 ] DG+2"G.].B DG \ D> <X, <[,
6`G+= <],,7`T+"T $ <`, <c,
.$8&:+ <d, <g, <i,, <l,"> $ F^ DY Y <o,
:Y; ^+D, <q,,dG DS"> $ 1S H6.$8&K <t,"> $ F\ DY Y <w,
:Y; \+P, P3DH+X <x,, <,>!$2$S+ <{,,"> $!*}
S u H6 (6 H <,5^ @6.$8&\ <~,"> $ F[ DY Y <,
:Y; [+e,"> $ F@ DY"> $ ($.Y!,}

S 
 <
 J <.$8&k:Y; @+j P3DW+v <,, <,> <,,"> $ F= DY"> $ Y7H 6+}6H6+ ($.Y!*F J <+ ($.Y 
Y

(6

6 
 <
 J <.$8&z:Y; =+y <,>@dZ7$T+F4D <,/H+ <	,,+ <,

`>GTCx>x>x	x>H>WG]:GMPNBQCPXPNBQCPXH>WG]:GMH>WG]:GMPNBQCPXh<X;xX10>0_$>$G$T$Z$R(H(W(;$W$<$I`EXEs(6`EXE10>0_$>$G$T$Z$R(H(W(;$W$<$I`EXs0>0_Xn`XX{XXX
XXX0>X"XX`0_$>$GXHXK
XU0>$z$E$([Xf$Y$z$E$([X
XWXZ$&(80/(/(XEs(A`EXE(0/XE)0/`E`
X4({X*({XX|Z(6h
(|h
(|Xh$GXkXF0>`
`
X5X7(1X;X7(6X8X=X7(6X@XCXt

GT   GE   LT   LE   EQ   NE   OR   AN   (' FINISH CARD ENCOUNTERED')(13A6,A2)(31H1ILLEGAL OPERATOR OR RELATION  ,A2,58H  IN CASE SELECTION CARD. PROGRAM SKIPPED TO NEXT PROBLEM.)PG>}@ \; p @ p @

p)p+"

+$*F+D, &6F++=ZD(,,83H+T ,(/,7 H

  6 D6b0b+Y+U4Y4[4^4`4c4e + 63d+i+g + 62$+g+i + 62$+i+g + 63d+g+i + 62D+i+g + 63D+i , & F+j ,@f:,; +F  D"$.

2D4dy"+$:D,8,7+x , + $ D+ , 8 D*+ , 
 $3$++ + D <#, <_DZD

 <&,
:

;F+, 73&3D2F7+ 7 &3D $ D+ <', $ D+ <*,, ;  Ap,~X0
(*X/(6`+X,(1H I3,F11.4,7F14.4)(1H08X,4HCOL.7(10X,4HCOL.),/8X,I3,7(11X,I3),/4H ROW//)a&N  \= p @. $ D4@f0 D. $2d. . D5 $.d02$.+G:4+D"4 $ F3 D2 $/..5 D/@d-"&../5 .:- D 1.$8&M <h,"/ $ F2 D1 1 <k,
:1; 2+R,". $ <m, <p,
"*.
./
5 . J0 H/ ($/. <q,
:/; 0+\,.$8&W $.5 D..$ D52d. . D5:2; 3+I =,~X7$1X5$( <+    .         PLOTSL    1    (2I10)(A6,I3,I2,20I3)('0ERROR ON PLOT SELECTION CARD',I4,2X,A6,I3,I2,20I3)(' PLOTSL CARD',I4,'DESIGNATES AN INCORRECT CROSS-PLOT SELECTION IN POSITION',I4,'SHOULDN''NT EXCEED',I4)(11H1  VARIABLE48X,8HVARIABLEI3/I7/2X,F15.3,5F20.3/7X,5F20.3/13X,101A1,51(/1X,F10.3,1X,103A1,F10.3)/13X,101A1/2X,F15.3,5F20.3/7X,5F20.3)p!yyX~`|h(a3.@ \/A p @ p B/ p B/ p Bx .$ Dy" $ F D/ $J D/A / $8 D/B / $J D/B / $8 D/C <0},1L /"JF8:/; +/P $ D/ <1,@dw"/ $ F D:x <1, <1,
 /F_DZD/ / <1	,
:/; +/b, y/t$t4d/jt3D/2F/7+/r <1
, <1
 /F_DZD  <1,
:; +/n,+0w"&
 $ D/ /".$5(/ <1, <1,
 /F_DZD  <1,
:; +/y, <1, <1,
+0w /7`+0:w /   Hz t HE:/8&/s"&2.w //$4$0w w Ds@dv:v /G_D~ZD/ /F &$&./ | Hj*d0

:/; ~+0 v z F} E F/ & Fz"/ $ F/ Du" $:z1h+0 <1, /D_H/ZHz z <1!,
:z; /+0,(Hz3z||[H[.$8&0H}@D//|F|"[J8&$|./ $j D/A <0{,2J:u; /+0 <1", /F { F|*d06"&
H$y*H|.$8&08}vD/F/D|J(Fv 8&	  F /G v F
"& $ F/ Dw w <1*,
 $.dw; /+0L"& $ Fs Dw w <1+,
 $.dw; s+0R /F_D/ ZDw w <1-,
:w; / +0W /G_D/ZD/ / <1.,
 /F_D/ZDw w$$./ <10,
:w; /+0^ / <12,
:/; /+0[ /F_D/ZDw w <14,
:w; /+0g"& $ F/ Dw w <15,
 $.dw; /+0l"& $ F/ Dw w <17,
 $.dw; /+0q, s2dv+0	@dw:; +/^ /A x Ap,~p//AH	/A	/B/E{	/B	/Cx`
X/!0t$t$w$X/#$x0t$t$w$X/#$x0t$t$w$X/(
$x$/$h
( |`
X/3$|$/((|(0286PXp1t2~!!!40c=tz8]!|-1gD1B 1;$	  D1;:1B1d+1e!$	 D1; $ D1B 1B"1C1B4D1j5d1b 1B 1C1; D1@+1s 1B 1A1C F1<F F1>f F19"1<19#3d1J+1h 1B 1C1; D1@ 191A1@18D1K D1@D D1:5$1{d1: D1<3D1@+1{"$.D1:d1: D1? 1@D1?181? D1C"1C192f1A+1b 1B 1C1; D1= 191A1=18D1K D1=D D1H5$2
d1H D1:3D1=+2
"&.F1Hd1H D1; 1=D1;181; D1?"1?192f1A+2 1; F1? D1C 1= D1@ 1H D1: 18$	  D1B1ID D1< 1@$	 18 D1@ 1?1@D D1>6 1:+2"$.D1> 1>$1<.1</1: D1> D1< 1I 1< Ap 1? Ap 1C Ap 1@ Ap,~p1J1>x1B     2    3    4    5    6    7    8    9    A    B    C    D    E    F    G    H    I    J    K    L    M    N    O    P    Q    R    S    T    U    V    W    X    Y    Z    -    -    -    -    -    -    +    +    +    +    +    +    *    *    *    *    *    *    *    $    $    $    $    $    $    $    $    /    /    |M?T@ p @2) p @2(3@2'+2U 2IZD2) 2) 2)2H2(+2R 2* H2(+2V*d2N 2I3D2(+2V 2* D2(+2V 2) D2( 2( Ap,~NO   (25H ERROR ON TAPE ASSIGNMENT)iC<@ \2] p @2Y p B2Z p B2X4 2o5`2d $ D2Y 2Y3D2Z+2h 2Z1D+2i <2w, $3D2Y+2m $3D2Y+2o 2Y3D2X+2m <2y, 2Y D2Z+2r <2|,, <2v,7* <2v,4r 2] 2Y Ap 2Z Ap,~`2Z`2YX2Z(30H0THE INSTRUCTIONS INDICATED ON/25H TRANS GENERATOR CARD NO.I2,4H RE-/29H SULTED IN THE VIOLATION OF A/31H RESTRICTION FOR THIS TRANSFOR-/31H MATION. THE VIOLATION OCCURRED/27H FOR THE CASE LISTED BELOW./)(9H CASE NO.I5)(45H0THIS CASE WILL BE DELETED FOR ALL VARIABLES ) 9~jiJty7 \3$ p @3 p @3 p @3 p @2 p @3 p @3+37CNp,> p @3 3"$ D3% <4J,5^ 3 D3$ <4K,5C,^,~ 3 D3d3 D3"3 $ F3 D3 z F3 E F3  H3 [ H21f+3AH H3 3 6 D3"$.34D4$5d4)6b30b+3O+3F43O43T43^43a43d43m4444
44

44444444444444!7$3+4+5d3R 3@f6+4) 3 <4I,5^ @6+4)7$3+4+5d3X 3!& F6+4) 3!&3 F3% <4H,5^ @ <4G,5^ @6+4)7d3+4+ 3 <4F,6m @6+4) 3 <4E,6O @6+4)7$3+4+4D3P!$}34$3i5d4+ 3 3& F6+4) <4D,5^ @3 3 <4C,3/ @6+4)!&3 3 D3!(3!&3 F34$4+5d3y7$3+4+4D3P 3 <4A,5^ @3% <4B,3/ @6+4)7$3+4+5d3 3 <4?,5^ @3% <4@,3/ @6+4) <4>,5^ @3 <4=,5^ @3 3 <4<,3/ @ <4;,3/ @6+4)7D3+4+ 3!&3 F6+4) 3 23 F6+4) 3 23 F6+4)7D3+3P 3 <49,5q @6+4) 3 3 63 F6+4) 3 3"63 F6+4) 3 3 63 F6+4) 37F6+4+ 3 36 H6+4) 23d3+3V+3P 3 63d3+3V+3P6D3+4)!$	 #7 3"d5$4) 3 2 F6:3; 3+3;+45"$s D2 33D3+40 3 D3 <4L, <4O,
 <4P, <4S,
 <4U,,"$.D3 3$ 3 Ap 2 Ap 3 Ap,~p32x3x3x3x3x3x3%x3x3%x3x3x3x3x3x3%x3x3%x3$X3$3X3$3X3kN

y1,~	`Z(X^. >X.~(3~+4]	~+4iZ. \x <x*<x .ez+4d!"	b+  "4f	b+Z`.Z. h+ggM?}
&4k	b+4Y,
?NO CORE AVAILABLE - CAN NOT PROCEED
a.3@1,>7,O@5-+4tgR~@1,>7,@@5-,>,>@6 w+5"5.0B+4|!"A`X#p5@4y/#p!"X#p+5\p+5a.9'1,>7,,>,>O@5-+5,>
6+ _4`5	"`Q@,> <5/,,^,> <52,
,^*b5+5,> <53,,^7@5-+5,> <56,
,^+5,> <58,
,^Z5"5,> <59,
,^,7@5-,

,> <5;,,^,,> <5>,,^,> <5A,
,^(@qd1@,,

1@#+5"0@*+5,>5<5B,,^+5,^,^,^,~('eTypeGtohContinue,Xto Exit,TTotrace.'/2H*,$)(A1)(1H@14A5/)(1HA5,1X,O6)PAUSESTOP.pX5*pX5+p5,pj5-p,X5$X~5)pxCR4B5k+P4j0

5m#p+5`  ,~>attempt to take SQRT of negative argKc3@ p p+5|Kc3K  ,5|

,~Kc3J  ,5| ,~Kc3I  ,5| ,~Kc3H4B65@65"6+D4j0
5U ,~,>,># $)D/$@,>4d6	X $(F) + 6	5F6	5"6"` ,6)+6#  ,> <6,6t,^@,> <6,6O,^5&6+P4j06,^,^,^,~! ,~xxAttempt to raise negative single precision number to non-integer powerKc#@ p p+6)Kc#K  ,6) @,~Kc#J  ,6) @,~Kc#I  ,6) @,~Kc#H4B6L5@6,5"66+D4j0
6+U ,~ D6L!$ @6K B6K5"63#`+ 6H,63!"B,~+ 67(BdB+ 675B62  6L,~ +7`6K+6?`d +D4j06;+D4j0
6;U `d @6 6K+66 6K`B"`+66/6Mid +6B+D4j06;#6K,> <6N,6t,^ @`6K@,> <6N,6O,^+6<U",636K+ 67+60! ,~xKc1,>7, p3"6k+6U3b6j+6W+D4j0
6TU ,~+D4j06V  ,~ D6k F6l@@6l%"j"%6i)/;`:XD6e5f6^aF+6^.&@(|h&f6l 6h6i 6h 6l6gD6j@ 6k 6l,~!t0_'"S'qf!um.	.#Y% !vyO^	RXC2|t(1,>7, p4@7
 @6s,> <7,6t,^6s,~{e^bC2|p1,>7, p5`6x4@7
+P4j07#p3@7

27+6~3`7+6~@@77(|h"7777,~+D4j0
7 7,~  ,~ 0_i/X3 6P'Ms!hhyI^ *Vh P `@ 6P'M P'M]oxx6sAttempt to take log of negative argS1e,>_({5(7(hd(~)w27 "`,^,~g:9e4(7$`jmH+7( 
A7),~(`jmH+7("
K7),~",~`KbN@1,>7,,

,~7-Y\7.Q<X\7/*+67/6`7/S	YVBG97/G97.
GJ7,GK/K7,7*)?K@7*9jV7(9jV7$9jU7(	07

;-96s[7
J7F7(P6Y6sD7797977/86xK6t
f6mK|6m6W~Z6Oc	6eb&6lb%6lb%6kz6k06j/6j/6i.6i.6h-6h-6gRMSQv6^~Z|p6ONX:GYXpX26LpX26KpX16K
~J66'G66
~J65
~I63
~I62S	YVBSo&B	WG6,.G6.F6#.E6&.D6).V6)	WG6PU7RMSQTE/86B~IzP6NR:JYX05qG
5kae5`TvF5iaZ5eaY5daj5^P3?K~5^B5]5\5\DA5EDR5CI;5WI:5U]5X]5WDR|p5CkoYUlrBKYX<:4r

Y]@5-

Y?4t

\!5{-^5{-X4|{-O5{-N5"{-N5{-M5{-M5	VBSo&BTE)|4o\6.AwBP@VKV4PbXlVkBI

YPbKYYYh[|ggMA
JTUR/}F
/|N	@\:T(q5vX_<F

zR(TsT	`u6
(J"4j
&*

 R	WJ

>
_Bb
_2v	^,6RW	`
K^
2b
2RYmtL(bIz4Y)	G4X[4X	qG4XZzR4XZzR 4Xh053%
4D-3P4CA3R4Ao%3;44B

a3O'4?

u3V;4@%4!c4=ta3=

494L3i4OuE3?bA3E&!4$b}4%,3m=3tc4'Q3y@4+zA44]4?4Jq4S4K&	3

_3;a4&	%3

s3;	qG3B<[|/Ry399330K3$:IuU2
3178{y} E33#IA3NaBVU 0g[|Y5=3OM9&0?E3

3&Kw3

J93,
EPhJP<2lA2o

a2cu2Z2h)2kQ2m32vG2r!2r[2bo2w2y2|	qG2ZY2ZY2Y0K2]2(UJ2'
M2J
M~2J51cI1e

a2]1h

u2%a1S1x1z"(2tU1bti1jt}1s
2u%1[1So1Z2&2%+2
	qG1I31H1CmM1Cg1B	1BE@h1A;.31A]f1@1@m h1?0K1Irp1?J1>
1>71=E'z1=!1<1<1;r O1;
1:K1:E?M1919E(O18sJ1LsJy@1Kh06/Ch05/Bh05/Bh04/A

a/#'1'0L

u/(;1+0L,1*

!0w&	0G1
,O1+133/m,w0W/n-1-31-0[?1/[G/s-30[[/s21.o1230^PA/W12G0^c%0	/y2[10

A0w+/y2o123/d?130fG/oS130g[/{?13+14o0S03?0k!00Ng03S0l0S{0

8?15+0X 08S0q2!0)?0d #08g0q/ 250/S0a 708{17VU04

_0h K1-E0

s0mK0	qG/P]/P]/P^/P^/P//PH/PI/PI/4/9-/PJ/PJ/.P7~0K/AP8~:IuW U2
}-}UJ||178/zy&yeXQxs1xu=7
w

w+\(vuv0PhJtCt0sP\s3r;/H3r;g/H

aW%ae53TG^og@H+I?MSh

_R

sR	qG5l2%5<z|	40*&4P43P53P52V!21P61P60.00K=:IuU2
/178{y}U0g[|(M9EeOM9

.|[-PhJC-)>)x>)u]tu}tAxu	u&EKbAygbUo{|{zzAjyL3

_p

sp	qG,<z|	,
+o+*J~)0*&
8~P4.3P5P5P6.0K;:IuU2
178{y}U90g[|:YVD~

u=7

|[PhJR>Rt=(Rh04FV}H	iMruC
Mf3-JsOw`P}]WMp	nurq6PAt;!%{?S

aK'G'?W)

u^;N+"?k]q$qM
"'q'	%aUcT,'
@!K$qa?	u#%uX	u)$&	stU
[,c(zgSP$vu"	uQ&d-/{#wg	vy\	v5db}kom236{Q#	{!kcM0?W3?

sG{ca2Su3Ajzi1[A	|pk	|-T{5g}3S6W	hUq	|A{%7{8?DkU/	hi^	|Uc+'{98 b8S?%C]I	h}H?E #b8g?%WyY*VA-	iK/{a;SR 78{GWkyVU3	i%g{u=

_f
id K9H*zVi1	i9Ua@
}e

s _
9#E'X}	qG`P]`P?_P]^P^^+\/]P^]	\P_\P_[P`[<z|+;Z/6Z	YPHYoXPIX&]W`WPIVPJVPJUPKUPKT0'WTPLSLSkXR0*&J~Q8~P$HPP4OP5O.3NP5NP6MM]LP6LP7K.KP7JP8J:IuI.I.IU2&]H
HG178{y} 0'G)F

9 FU 0g[|:YVyzE{9E/D(M9ED~CeOM9XQCEBzB':A

-A	@Pp@u=7Pq?;j?>09j>
=Pq=Pr<@o<hJ

-:>~9P\8RM>0ORM>!0(RO \B:/\>X\>5'\7N+\2g'r'I(\)8*\)7\	\	)\+,\6.\.,[rO.O[mNO[mO[m	O[l|[l{&O[l+O[kO[kO[j]O[jRO[i%r%H([Z[X%[Qgr%0[Ms/[M"-[M	+[L,[FG[@v*r#eOD^w'dw]!+{0