Trailing-Edge
-
PDP-10 Archives
-
decuslib10-09
-
43,50466/ilano.chn
There are no other files named ilano.chn in the archive.
/e D /f /f D /g /e D /g@@ H : Z /h MX@ . " .%B hW : Z /h $ $ . /h 1: 9 . /hZ /h R : Z /i /i1: 9 .! /h + .((A1,19A1,A1,I9,12A4,A2) NX@ .) " .4b /hW : Z /h & $ . /h 1: 9 .+ /hZ R : Z /i /i1: 9 .1 + .8(1X,A1,19A1,A1,I9,12A4,A2) /g2D + .f H5d .> /h D H /g2D + .F"` H+ .F NX@ .? " .@b + .E('0ERROR - TWO REPLICATION FACTORS') -\ *f4 /b"$ . /h D /i /i4d .W : Z /j /h W /i2DW+ .V NX@ .M " .Ob /hW + .U('0ERROR - TWO FACTORS HAVE THE SAME NAME',1X,A1) -\ *f4 /b /j3: /i9 .I V /h3DZ+ .f /f /h3DZ+ .f NX@ .] " ._b /hW + .e('0ERROR - FACTOR ',A1,' IS OF ILLEGAL TYPE - NOT F OR R') -\ *f4 /b /h3: L9 . : Z /j : Z /h $ $ /j. @@ 3: L9 .j /j3: L9 .h : Z /j : Z /h T & $ . /j3D + / : Z /h hW & $ /h. /j2D + .z $ $ /j. /h & F + / /h3: L9 .t $ . /h D /k NX@ . " /b /k /j $ $ /h. /j + /('0ERROR ON FACTOR SPEC. CARD - COLUMN',I3,' FOR FACTOR ', I3,' IS ',A1/' WHICH IS NOT THE LETTER FOR ANY FACTOR') -\ *f4 /b /h1: 9 .p /j3: L9 .o : Z /h & $ . 4d /# NX@ / " /b /hW + /"('0ERROR IN NESTING FOR FACTOR ',A1,', WHICH IS NESTED WITHIN ITSELF') -\ *f4 /b $ $ /h. /h & F /h3: L9 / : Z /h"$ .hR5$ /2 NX@ /+ " /,b + /1('0ERROR - SOME NUMBER OF LEVELS IS LESS THAN 2') -\ *f4 /b /h3: L9 /' H4D /^-\ 64 H @ /k : Z /h"$ & $ /k. . 4D /J3: L9 /7 NX@ /= " />b + /I('0ERROR IN FACTOR SPECIFICATION CARDS - THE REPLICATION FACTOR IS NOT NESTED IN ANY OTHER FACTOR.'/) -\ *f4 /b : Z /j"$ & $ . /k. 5D /] NX@ /O " /Pb + /\('0ERROR IN FACTOR SPECIFICATION CARDS - SOME FACTOR IS NESTED IN THE REPLICATION FACTOR WHICH IS ILLEGAL'/) -\ *f4 /b /j3: L9 /J+ /a4 Z /c \ /c+ . /c /c-|p F UNWE REPL L D O@@ I-\ 2I P4d 0 : Z 0 : Z 0 O. 0 D 0 $ $ 0. ( $ 0. F 3: L9 /q 03: P9 /o P.D O O/ K4d 0 NX@ /} " /b O K + 0('0THE NUMBER OF LEGAL SOURCES,NS1, = ',I5,' EXCEEDING PROGRAM LIMITS (',I5,')')-\ *f4 0-\ *}4 I4 04 04 0+ /m O D N+ 04 Z 0 \ 0+ /l 0 0-|p 2 LOOP LEGA : Z 04 : Z 05 V2DhZ+ 0 "$ & $ 04. 05. 4$ 0( $ $ 04. 05 & F+ 0+"$ & $ 04. 05. 4$ 0(4D 0% $ $ 04. 05@@+ 0+ $ $ 04. 05 & F+ 0+ $ $ 04. 05 05 R F 053: L9 0 043: N9 0+ 014 Z 02 \ 03+ 0 02 03-|p : Z 1D : Z 1D . 1A 4d 0< & $ 1D. 1D 4d 0? 1D3: L9 07 1D & Fu+ 0@ 1D@@u 1D3: N9 06 : Z 1D : Z 1E $ $ . 1D 1C. T H }1: 9 0D 1D3: L9 0B $ D 1E : Z 1D hu4d 0q : Z 1D . 1A 5D 0\"$ & $ 1D. 1D.4$ 0q5d 0W $ $ 1E. 1D 1C. T H }+ 0_ $ $ 1E. 1D 1C.
1D (W H }+ 0_ $ $ 1E. 1D 1C. T H } 1D3: L9 0M 1E/ J4d 0n NX@ 0d " 0fb 1A 1E + 0m('0TOO MANY SIGMA-SQUARED TERMS IN E(MS) FOR SOURCE',I5 ,' ICON =',I5)-\ *f4 1> 1E. 1B 1D F: 1E+ 0q 1D3: N9 0K"$ . 1E5d 1 NX@ 0v " 0wb 1A + 1('0ERROR IN SUBROUTINE EMS, NO SIGMA-SQUARED TERMS INCLUDED IN E(MS<) FOR SOURCE ',I3) -\ *f4 1?"$ . 1E D 1B : Z 1E" 1A . 1B. 4D 13: 1B9 1 NX@ 1 " 1b 1A : Z 1E . 1B 3: 1B9 1 + 1('0ERROR IN EMS - SOURCE',I5,' DOES NOT CONTAIN A SIGMA-SQUARED FOR ITSELF, ITS SIGMA-SQUARED TERMS ARE '/1X,10I12)-\ *f4 1? 1E/ 1B5$ 16"$ . 1B D 1E : Z 1D & $ 1E. 1C. '} Dh1F3: L9 1 1E Z 1F . 1B F : Z 1D $ $ 1F . 1C.
' J'}3: L9 1( 1F3: 1E9 1$ 1B. 1B 1A F : Z 1D $ $ 1B. 1C. h1F H }3: L9 11+ 1;4 Z 1? \ 1@ 1@,!p , p ,!p , p , p + 05 1? 1@\ 1C/ ,Ap -|p @@ P"$ . O D 2O : Z 2P $ . D 2P 2P Z 2Q : Z 2Q"$ & $ 2P. . 4D 1T5d 1V 2Q@@\+ 1X 2Q & F\+ 1X 2Q & F\"$ & $ 2Q. 2Q. 4$ 1g5d 1a"$ 2Q.\5d 1_ 2Q & F\+ 1g 2Q & F\+ 1g"$ 2Q.\4D 1e 2Q & F\+ 1g 2Q & F\ 2Q3: L9 1O : Z 2R : Z 2Q & $ 2R. 5d 1o 2Q \4d 1p+ 1r 2Q \4d 1r 2Q3: L9 1j+ 2; 2R3: O9 1i P4d 2 : Z 2R : Z 2Q & $ 2R. 5d 1{ 2Q \4d 1}+ 1 2Q \4d 1 2Q3: L9 1v+ 2; 2R3: P9 1u : Z 2Q"$ .h\5$ 23: L9 2+ 24 NX@ 2 " 2
b 2P 2Q 2P : Z 2Q $ $ 2P. 3: L9 2 + 2('0THE INTERACTION OF TWO SOURCES(',I5,' ',I5,') PRODUCES A NEW SOURCE WHICH HAS A SUBSCRIPT BOTH LIVE AND DEAD'// 'ISUBSC(IF,',I5,')'/1X,20I5) NX@ 2 " 2"b 2Q : Z 2Q $ $ 2Q. 3: L9 2 + 2&('0ISUBSC(IF,',I5,')'/1X,20I5) NX@ 2' " 2+b : Z 2Q \3: L9 2( + 2.('0ITEMPS(IF)'/1X,20I5) NX@ 20 " 21b + 23('0CHECK THIS')-\ *f4 2M: P"$ . P4d 27> P+ 2> : Z 2Q $ $ P. h\ F3: L9 28 2Q3: O9 1N 2P3: 2O9 1K $ 2D G+ 2C NX@ 2A " 2Cb P + 2I(1H0,I5,' NEW SOURCES FOUND ON THIS ENTRY TO NEWS') + 2K4 Z 2M \ 2N+ 1I 2M 2N-|p "$ . 3$ D 3&@@ 3% : Z 3& / 3"4D 3 3& 3&/_5D 3 : Z 3' . 3# & $ 3&. /
5D 33: 3&9 2Y : Z 3' : Z 3' & $ 3' .
3$.
/} * $
3&.
2D(:+ 2j3: L9 2` 3'3: 3&9 2_+ 3 NX@ 2k " 2mb 3" 3& + 3('0SOURCE',I5,' WOULD HAVE SOURCE',I5,' AS A DENOMINATOR EXCEPT THAT SIGMA-SQUARED TERMS HAVE NON-MATCHING COEFFICIENTS' /' THIS INDICATES POSSIBLE TROUBLE IN YOUR DESIGN BUT I HAVE CARRIED ON REGARDLESS)') -\ *f4 3 3%4d 3 NX@ 3 " 3 b 3" 3% 3& + 3('0ERROR IN FINDING DENOMINATOR OF SOURCE',I5/' TWO DENOMINATORS HAVE BEEN FOUND,NAMELY,'I5,' AND',I5) -\ *f4 3 3& D 3% 3&3: N9 2U+ 3 4 Z 3! \ 3! 3",!p , p , p , p ,!p ,!p + 2R 3! 3!\ 3%,Ap -|p 4$ D 4% NX@ 3* " 3+b + 32('0SOURCE AND NESTING',20X,'EXPECTED VALUE OF MEAN SQUARE'/) : Z 4% : Z 4& S Dh S DhX1: B9 34 W D $ D 4& & $ 4% $ XD 3<-\ + 4 4 4&4 3<4 4! $ .D 4& & $ 4% $ XD 3B-\ + 4 4 4&4 3B4 4" $ D 4& 4% _ D 4& : Z 4'"$ 2. 4&4d 3Y NX@ 3I " 3Qb : Z 4' 1: B9 3J : Z 4' X 4'1: B9 3M + 3S(1H /(133A1)) : Z 4' S Dh S DhX1: B9 3T W D $ D 4& : Z 4( S & $ 4% ( $ 4'. . 3D:+ 3e 4& U F: 4& 4& ( $ 4% * $
4'.
4(. : FX: 4& 4(3: L9 3Y 4& 4% F: 4& & $ 4%. 4'
D 4' : Z 4("$ & $ 4'. . 5D 3r 4& 4( W FX: 4& 4(3: L9 3l: 4& 4& U F $ .D 4& 4'3: 4&9 3F"$ .D 4& 4& S F NX@ 3| " 3Qb : Z 4' 1: B9 3} : Z 4' X 4'1: B9 4 4%3: N9 32 NX@ 4 " 4b + 4 (1H0/'0 NOTE 1) IN THE ABOVE TABLE ALL PERIODS (.) SHOULD BE REPLACED BY SIGMA-SQUARED WITH THE SUBSCRIPT GIVEN'//9X, '2) N WITH A SUBSCRIPT LETTER IS THE NUMBER OF LEVELS OF THE FACTOR LABELED BY THAT LETTER') + 4 4 Z 4" \ 4#+ 3( 4" 4#-|p . @@ K : Z 5f h4d 45 K5d 4/ $ D K 5f D C+ 45 : Z 5g 5f".hC4D 453: K9 4/: K K 5f FC 5f3: N9 4) K5d 4Z NX@ 49 " 4;b K + 4Y('0ERROR IN SORT, THE NUMBER OF DENOMINATORS = ',I10/' THIS VIOLATES THE CONDITION THAT THERE BE SOME DENOMINATORS IN THE SUMMARY TABLE. THIS ERROR IS MOST LIKELY PRODUCED BY ALL' /' FACTORS BEING SPECIFIED AS FIXED. AT LEAST ONE FACTOR MUST BE RANDOM FOR THERE TO BE A DENOMINATOR TERM.'/) -\ *f4 5`@@ S : Z 5f h5D 4b : Z 5g 5f/hC4D 4b3: K9 4]: S S 5f Fo 5f3: N9 4[@@ Q@@ Q : Z 5g hC D 5g 5g 4d 5 Q4d 4m : Z 5h 5g C/h'4D 53: Q9 4i 5g C D F@@ 5h-\ *}4 5h4 5a4 5d4 5e-\ 5x4 F4 G4 H"$ . H5D 4v G D F+ 4o@@ M@@ I F 4d 5 Q4d 4} : Z 5h F/h'4D 53: Q9 4z-\ *}4 I4 5a4 5e4 5f-\ 6
4 F4 Q4 Y4 M: Q Q F F' F39D F+ 4w. 5g3: K9 4e@@ R@@ R : 4Z 5g hC D 5g 5g.5D 5 : Z 5f" 5g.h5D 5: R4 R 5f F= 5f3: N9 5k 5k ho FY3: S9 5#" N. P4D 5\5d 5: NX@ 5* " 5+b + 59('0NUMBER OF SOURCES IN SUMMARY TABLE IS LESS THAN TOTAL NUMBER - AN ERROR, BUT TABLE IS PRINTED NEVERTHELESS'//' CHECK THIS'//) -\ *f4 5a+ 5\ P/ K5d 5N NX@ 5= " 5>b + 5L('0NUMBER OF SOURCES IN SUMMARY TABLE IS GREATER THAN TOTAL NUMBER - AN ERROR, BUT TABLE IS PRINTED NEVERTHELESS'/ ' CHECK THIS'//) -\ *f4 5a+ 5\ NX@ 5O " 5Qb P + 5[('0ERROR IN SUBROUTINE SORT, NUMBER OF SOURCES TO GO IN SUMMARY TABLE IS',I5,' WHICH IS TOO MANY') -\ *f4 5b+ 54 Z 5b \ 5c+ 4( 5b 5c-|p LOOP LOOP SORT SORT : Z 6 h D 6" 6. 6 5D 5u : Z 6 6/hC4D 5s3: K9 5o+ 5u 6 D 6 $ D 6+ 5| 63: N9 5l@@ 6+ 5|4 Z 5 \ 5 6 ,!p ,!p ,!p + 5k 5 5\ 6,Ap ,Ap -|p : Z 6" 6.h5D 6
6/ 64D 6
: 6 6. 6 6 F 63: N9 6+ 64 Z 6 \ 6 6,!p ,!p , p ,!p + 6 6 6\ 6/ ,Ap -|p C 1 ,> .#p ,~ S0 1 ,> .#p +" 6 ,~ U ,~ $ d D #! $ D D #" H5$ ."` H!$ D (:+ .@@ (: H4d .2 : Z /$ : Z /%" H. 4D .% /$/ /%4D ." & $ /%. /$ 4D .-+ .2"$ & $ /%. /$. 4D .-+ .2 /$/ /%4D .*"$ & $ /%. /$. 4D .-+ .2"$ & $ /%. /$. 5D .2 /%3: L9 . /$3: L9 . $ D #)+ .3 $ D #) : Z /$ $ Dh#@3: L9 .4 H4d .T@@ #" : Z /$"$ & $ H. . 5D .?: #" /$ & F#B /$ & F#E+ .A /$@@#B /$@@#E /$3: L9 .8 $ . #" D ## H & F#E"$ . #)5D .T"$ . L/ #"4D .T NX@ .K " .Lb #" + .S('0ERROR, DESIGN IS COMPLETELY CROSSED WITH REPS BUT NA =', I6) -\ *f4 /!"$ . #)5d .] $ D #$ : Z /$ H3D + .Z hR$D #$3: L9 .X #$ D #%@@ #%+ .m H4d .h $ D #$ $ D #% : Z /$ hR$D #$ $ 2Dh#B+ .e hR$D #%3: L9 .a #% H$R D #%+ .m $ D #$ : Z /$ hR$D #$3: L9 .j@@ #%@@ #% #$. #%. #% D #& NX@ .q " .rb + .{(1H0,20X,'STORAGE LOCATIONS NEEDED FOR DATA, MEANS AND CELL NUMBERS'/21X,57(1H-)) " #". #&4d /
NX@ .~ " / b #& #" + / ('0ERROR, NUMBER OF STORAGE LOCATIONS IN X MATRIX NEEDED =',I6,' EXCEEDING LIMITS =',I6) -\ *f4 /" NX@ /
" /b #& #" + /(1H0,I6,' STORAGE LOCATIONS IN X MATRIX NEEDED (MAXIMUM SPACE =',I6,1H)) MX@ / " /B : Z /% (/1: 9 / + / (16A5) -\ 0 + / 4 Z /" \ /#+ . /" /#-|p OX@ /' 0& D 0' 0' D 0( U5d /, M D U+ /- $ D U U/ #!4d /< NX@ /0 " /2b U #! + /;('0ERROR - TOO MANY DEPENDENT VARIABLES (',I6,') EXCEEDING MAXIMUM ALLOWED (',I6,')')-\ *f4 0# F D 0( U/ M4D /R 0(5d /R NX@ /A " /Bb 0( + /Q('0ERROR - NCDF =',I6/' THIS NUMBER MUST BE POSITIVE - IT IS THE NUMBER OF CARDS PER SUBJECT - CORRECT THE PARAMETER CARD AND RESUBMIT') -\ *f4 0# : Z 0)@@h&g@@h% 3: U9 /S@@ #* U/ M4D /Y+ /o+ /Y(20A4) "$ . V4D /d UX@ /\ " (0Q" B : Z 0) #83: L9 /] : Z 0) V 0)3: U9 /` + /n UX@ /f " (0Q" B : Z 0) V3: U9 /g : Z 0) #8 0)3: L9 /j #94d 0+ /x UX@ /q " /WB : Z 0* #G1:
9 /r 0'2D #H+ /x 0(3D #H+ 0 : Z 0) 0) VD&g!$ 0)D% 0)3: U9 /x U. L0d @+ 0 OX@ 0 ` : Z 0) #83: L9 0 : Z 0) V 0)3: U9 0 : #*+ /U OX@ 0
` .: 4Z 0)@ #83: L9 0 .$ @/ L'D 0$,: 2Z 0)3 V 0)3: 0$9 0 OX@ 0` 4$ . 0) .Z 0* V3: U9 0@ : #*+ /U : -Z 0)4h&g h% XDh&3: U9 04 OX@ 0 + 0!4 "Z 0$9\ 0%+ /&5 0$( 0%-|p END1tDATAH . OX@ 0, -\ <4 O@@ 1s@@ #)@@ #-@@ #-5: Z 1t+hR` "@h#.3: L9 00 : Z 1t@@hV3: #&9 04-\ *f4 1nL$ RD 1u L. U1d @+ 0: $ D 1u : Z 1u6b 1u0b 7 +0=4 0>4 0G OX@ 0?@ .: Z 1t #83: L9 0@.: Z 1v5 'KX 1v3: U9 0C: + 0W OX@ 0H@ 3: 9Z 1t #83: L9 0I $ @/ L D 1p : Z 1v 'K9 1v3: 1p9 0N$ OX@ 0R@ @$ . 1v@ @Z 1v 'K3: U9 0Td #& 'K&2D #.+ H4d 17"$ . #)5D 0e-\ 244 #94 #C @ # . #. # DV #.D #- #. D #-3 # . #$ D #'!$ #'DV+ 1>+: (Z 1t h#8NDh#;3: L9 0f-\ 244 #94 #CO #$. HD #'Z #'RV@ N@ #$T #$4d 0~I: NZ 1wB HRZ#;-\ *f4 1o #$. #%-\ 244 #;4 #E. +D #(-\ *f4 1n+ #("$VXD 0x-\ =m4 0x H"#8. 4D 0|3: #$9 0o+ 0~4 H4 1w4F#8+ 17: #$ #$. H/R4d 1+"$ 3d 1s+ 1>5 NX@ 1:" 1b : /Z 1t5 W. #83: L9 1: + 1*('0ERROR3-@THEMAXIMUM NUMBEROF LEVELSFOR3THE REPLICATION FACTOR, GIVEN ONDTHE3FACTOR SPECIFICATIONCARD,HAS:BEENZEXCEEDED.'/'BTHE3FIRST CARDFOUND.WHICHDPRODUCES.THIS4EXCESS NUMBER;OF REPLICATIONS HASTHE#SUBSCRIPT4SET GIVEN4BELOW.'/'#CORRECTTHE4FACTOR SPECIFICATIONbCARDORTHE DATA4CARD ANDRERUN.'/10(1X,A1,+1H#,I5,1H,))8,-\ *f4 1o3 #'` #$ @V H #$4F#;-\ *f4 1o #$. #%-\ 244 #;4 #E. 4D #(-\ *f4 1n #(@ H #8` "@V. H5 #$:F#8-\ 244 #94 #@ @ #( #.4D 1<9 #( #.XFV+ 1= #(@@V #.D #- 1u3: #*9 0;-\ *f4 1o OX@ 1B F$ 2D #)+ 1D+ 1m H4d 1G-\ 4{4 4 43@V+ 3F $ D 4-\ *}4 44 J4 44 4 : Z 4 $ . L/ D 4"$ 4.#B5D 3R 4: #= 4 #=/R5d 3R $ . 4 D 4+ 3 43: L9 3I"$ . #)4D 4
45d 3\ (:5d 3\ $ D #) H@@#.-\ =k4 #% #, H"@#W+ 4
$ D #) # 4 H D#. NX@ 3a " 3cb H#. + 3g(1H0,20X,'HARMONIC MEAN =',E16.8/) -\ =k4 #% #, H"@#W+ 4
$ D #) H # F#." 4 #-\ =k4 #% H @#W NX@ 3q " 3sb # + 3v(17X,F10.0,5X,9HALL CELLS) " 4 #5d 4
NX@ 3y " 3zb + 4 ('0NO CELL HAS MORE THAN ONE REPLICATION - HENCE ANALYSIS CANNOT BE PERFORMED - EITHER ADD REPLICATIONS OR DELETE REPLICATION'/' FACTOR FROM DESIGN AND RERUN.') $ D #)+ 44 Z 4 \ 4+ 2I 4 4-|p 0 LOOP CELL LOOP CELL H. 4X 4D 4 !$ D 4Y+ 4M : Z 4Z . 4X 4d 4% . 4X Dh#83: L9 4!@@ 4[@@ #@@ 4[ $ D 4\" L. 4\5d 41 4\ Z 4Z"$ .h#B5D 40 4Z. 4X 5D 40 4Z & F#8 4Z3: L9 4*-\ 244 #94 #C #$. D 4\ 4\ VD 4[!$ D #-\ *}4 4[4 J4 4Y4 4Z : Z 4] $ . L/ D 4Z"$ 4Z.#B5D 4E 4Z. 4X 5D 4E 4Z: #8 4Z #8/R5d 4E $ . 4Z D 4\+ 4( 4]3: L9 4: 4[ # D 4Y+ 4M4 4QQ * 4W Z 4W \ 4X 4X, p + 4 !< 4QX< *< 4W 4X 4Y-|p LOOP ENME $ L, <^ D 61 : Z 62@@h#G3: 619 4` : Z 62 : Z 63 & $ 62. Dh#83: L9 4d@@ #+@@ 63@@ ## : Z 63"$ .h#84D 4o5d 4r 63@@#6 63@@#1: ##+ 4u 63 & F#6 63 & F#1+ 4u 63@@#6 63 & F#1 633: L9 4i@@ # $ D # " L. # 5d 4| # Z 63 h#6 Dh#33: L9 4z H4d 5 "$ . #)5D 5 "$ H.#85D 5 H #35D 5 $ D 64 : Z 63 $ /h#3 Dh#=3: L9 5-\ 7w4 #> @ 64+ 5
-\ 7w4 #49@ 64@@ #* : Z 63 h#35D 5
@@ 64 64 #G5D 5z"$ . #)5D 5 : Z 63"$ .h#35D 53: L9 5 64 #- F#G+ 5z@@ # @@ #, $ D # " L. # 5d 5# # Z 63 h#34d 5 633D H+ 5 63 & F#;+ 5! 63@@#; 633: L9 5 H4d 5, H #34d 5,-\ 244 #;4 #C #$. D 65 65 V@ @ 65 H & F#;-\ 8|4 #; @ 66 645d 50 66 D #,+ 56-\ 244 #;4 #C #$. D #' 66 #' VD #, 645d 5Z : Z 63 h#;4D 5:3: L9 57+ 5Z 66 #&& D 66-\ 9$4 #;4 #9 H4d 5R"$ . #)5D 5R H #;5D 5R : Z 63"$ .h#B5D 5F 63 #;4D 5H 633: L9 5B+ 5R NX@ 5I " 5Nb 66 : Z 63 #83: L9 5K + 5Q(1X,10HUNWEIGHTED,E16.8,10I5) + 5Z NX@ 5S " 5Xb 66 : Z 63 #83: L9 5U + 5Z(11X,E16.8,10I5) -\ *}4 # 4 J4 6/4 60 H4d 5c H #34d 5c" 65 H.#;5$ 5c H: #;+ 5, : Z 62 $ . L/ D 63 63 #34d 5n 63/ H4D 5n 63: #; 63 #;/R5d 5n $ . 63 D # + 5 623: L9 5c!$ D #+ : Z 63 h#35D 5v 644d 5u 63/ H4D 5v 63 #. D #+ 633: L9 5q #, #+ 64 D#G 64 #G D 67 632$ 67+ 5~ 67 D 63" ##. #*" 6,
, <| 67H #+ G4d 6 NX@ 6 " 6 b #, 67 : Z 63 #33: L9 6 + 6 (1X,2E20.8,10I6) -\ *}4 # 4 J4 604 61 : Z 62 $ . L/ D 63 63: #3 63"#1.#35d 6 $ . 63 D # + 4x 623: L9 6 62 #+ F$m 63 #+ D 6.-\ =u4 6. @ 67 674d 6$-\ =F4 67 ` 62"@(= 62 (=5d 6" 62@@(=" 6, 62(=4d 6% 62!&` F(= 623: N9 4b@ 66 @ 68+ 6*4 Z 6- \ 6-+ 4] 6- 6--|p 0 | LOOP SSEQ LOOP SSEQ $ L, <^ D 7d : Z 7e@@h#G3: 7d9 6; : Z 7e : Z 7f & $ 7e. Dh#83: L9 6?@@ #+@@ 7f@@ ## : Z 7f"$ .h#84D 6J5d 6M 7f@@#6 7f@@#1: ##+ 6P 7f & F#6 7f & F#1+ 6P 7f@@#6 7f & F#1 7f3: L9 6D@@ # $ D # " L. # 5d 6W # Z 7f h#6 Dh#33: L9 6U-\ 7w4 #4 @ 7g@@ #* : Z 7f h#35D 6\: #*3: L9 6Z 7g #G5D 7,"$ . #)5D 6e : Z 7f"$ .h#35D 6e3: L9 6` 7g #- F#G+ 7,@@ # @@ #, $ D # " L. # 5d 6q # Z 7f h#34d 6n 7f3D H+ 6n 7f & F#;+ 6o 7f@@#; 7f3: L9 6i H4d 6z H #34d 6z-\ 244 #;4 #C #$. D 7g 7g V@ @ 7h H & F#;-\ 8|4 #; @ 7h 7h -\ 4I4 #; @ #, : Z 7f h#;4D 73: L9 6+ 7 7h #&& D 7i-\ 9$4 #;4 #9 NX@ 7 " 7 b 7i : Z 7f #83: L9 7 + 7(11X,E16.8,10I5) -\ *}4 # 4 J4 7b4 7c H4d 7 H #34d 7" 7h H.#;5$ 7 H: #;+ 6z : Z 7e $ . L/ D 7f 7f #34d 7! 7f/ H4D 7! 7f: #; 7f #;/R5d 7! $ . 7f D # + 6g 7e3: L9 7!$ D #+ : Z 7f h#35D 7) 7f3D H+ 7) 7f #. D #+ 7f3: L9 7$ #, #+ 7g D#G 7g #G D 7i 7f2$ 7i+ 70 7i D 7f G4d 78 NX@ 73 " 78b #, 7i : Z 7f #33: L9 75 + 7:(1X,2E20.8,10I6) " ##. #*" 7_
, <| 7iH #+-\ *}4 # 4 J4 7c4 7d : Z 7e $ . L/ D 7f 7f: #3 7f"#1.#35d 7H $ . 7f D # + 6S 7e3: L9 7A 7e #+ F$m 7f #+ D 7a-\ =u4 7a @ 7j 7j5d 7Q 7e!&` F(=+ 7Z-\ =F4 7j ` 7e"@(= 7e (=5$ 7V 7e@@(=!$` 7e2$(=+ 7Z 7e!&` F(= 7e3: N9 6=+ 7^4 Z 7` \ 7`+ 68 7` 7`-|p 0 LOOP SSEQ LOOP SSEQ $ L. 8 . D 8 $ D 8"$ . L D L : Z 8 L/ D 8 $ $D 8 8 8. 8 $ .D 83: L9 7p+ 7{4 D 7~ F 7~ Z 7 \ 7 8 , p + 7j 7~ 7~ 7 7 8-|p H4d 8 H. 9
4d 8 : Z 9"$ .h#B5D 8 9. 9
5d 8 NX@ 8
" 8b H 9 : Z 9 . 9
3: L9 8 + 8('0ERROR IN XMEAN, IR #',I5,' IS NOT DOTTED BUT IF #',I5, ' IS DOTTED'/(1X,10I12)) -\ *f4 9 93: L9 8"$ . #)5D 8/ H. 9
4D 8/ NX@ 8" " 8'b #) : Z 9 . 9
3: L9 8# + 8.('0ERROR IN XMEAN, NTYPE1 #',I5,' BUT IR IS NOT DOTTED' /(1X,10I12)) -\ *f4 9 : Z 9 . 9
4d 84 . 9
Dh#83: L9 80@@ #.@@ #@@ # $ D # " L. # 5d 8A # Z 9 . 9
5D 8? H3D 9+ 8? 9 & F#8 93: L9 8:"$ . #)5D 8O-\ 244 #94 #C @ 9 9. #$ D 9"$ . #)4D 8K 9 VD #. 9 VD #+ 8k 9 V 9 VD #.!$ D #+ 8k H4d 8f H. 9
4 5D 8f-\ 244 #94 #C/ #$. D 9. 9 V@ @ 9@@ 9@@ 9 : Z 9 H Z#8-\ 244 #94 #@ @ 9 9 VD 9!$ D 93: 99 8X"$ . #)4D 8c 9D #. 9D #+ 8k 9 9D #.!$ D #+ 8k-\ 244 #94 #@ @ 9 9 VD #.!$ D #-\ *}4 # 4 J4 9
+ 5D 8y" H. 94D 8y 9: #8 9 #8/R5d 8y $ . 9 D # + 88 93: L9 8n #. # D 9
9
, p + 8!< 9X< *< 9 9
- 9 LOOP XMEA : Z 9, / H5D 9 9,. 9+ 4d 9 #$. #% 9+XF 9-\ 244 94 #E. D #' 9,. 9+ #' V@ @+ 9" 9,. 9+ 9,. 9+ ' F 9,3: L9 9+ 9'4 Z 9) \ 9* 9*, p , p + 9 9) 9*\ 9+-|p : Z 9X / H4D 9C 9X!& F#W : Z 9X"$ & $ 9X. . 4$ 9A5d 9; H4d 98"$ 9X.#B4D 9A 9X #. 9X D#W+ 9A" H. 9X4D 9?" 9U 9X#. 9X D#W+ 9A H #W 9X D#W 9X3: L9 91 9X3: N9 9- : Z 9X h$m h#W Dh$;3: N9 9E : Z 9X h D 9Y 9Y5d 9M 9X" 9U F$ + 9O 9X $; 9Y $; D$ 9X3: N9 9H+ 9S4 Z 9V \ 9V+ 9- 9V 9V-|p 0 !y NX@ 9[ " 9b : Z ;4 1: 9 9\ #& + 9}(1H1,20X,16A5/1H0,30X,'ANALYSIS OF VARIANCE SUMMARY TABLE FOR DEPENDENT VARIABLE',I6/31X,63(1H-)//' SOURCE',13X,'NESTING', 12X,'DENOMINATOR',8X,'DEGREES OF FREEDOM',3X,'SUM OF SQUARES',7X, 'MEAN SQUARE',10X,'F RATIO'/1H0,61X,'NUM',5X,'DEN',16X,'*SIGNIFICANT* '/92X,'*DIGITS*'/92X,'*IN SS*'/) @@ ;4 : Z ;5 hY D ;5 ;5 D ;6 ;43D ;6+ : ;64d : NX@ : " :
b + : ;65d :
NX@ : " :
b + : (1H ) ;6 D ;4-\ ;g4 ;54 ;6 ;53: P9 9~ H5d :" NX@ : " :b + :"('0THE DESIGN IS BALANCED AND HAS NO REPLICATION FACTOR - HENCE THE ANALYSIS OF VARIANCE IS EXACT'/' EXCEPT FOR TRUNCATION AND ROUNDING ERRORS')+ ;."$ . #)4D :C5d :l NX@ :& " :(b HWW + :B('0FACTOR',1X,A1,' IS THE REPLICATION FACTOR AND',1X,A1, ' HAS AN EQUAL NUMBER OF LEVELS FOR EACH COMBINATION OF LEVELS'/ ' OF THE FACTORS IN WHICH IT IS NESTED'/'0HENCE THE DESIGN IS BALANCED. THE ANALYSIS OF VARIANCE IS EXACT EXCEPT FOR TRUNCATION') + ;. NX@ :D " :Gb HWW + :X('0FACTOR',1X,A1,' IS THE REPLICATION FACTOR AND',1X,A1,' HAS AN UNEQUAL NUMBER OF LEVELS FOR EACH COMBINATION OF LEVELS OF THE FACTORS IN'/' WHICH IT IS NESTED') NX@ :Y " :Zb + :k('0HOWEVER THE NUMBER OF LEVELS ARE PROPORTIONAL AND HENCE THE DESIGN IS BALANCE.'/' THE ANALYSIS OF VARIANCE IS EXACT EXCEPT FOR TRUNCATION AND ROUNDING ERRORS') + ;. NX@ :m " :Gb HWW (:4d ; NX@ :r " :sb + ;('0HOWEVER, THE NUMBER OF LEVELS ARE PROPORTIONAL AND HENCE THE DESIGN IS BALANCED. NEVERTHERLESS THE APPROPXIMATE METHOD OF UNWEIGHTED'/' MEANS HAS BEEN USED DUE TO AN INPUT OVERRIDE. SEE, FOR EXAMPLE, WINER PAGES 224-227, 241-244 OR SCHEFFE PAGES 362-363') + ;. NX@ ; " ;b + ;.('0THE DESIGN IS NOT BALANCED AND THE ANALYSIS OF VARIANCE IS ONLY APPROXIMATE,'/' (EVEN IF THERE WERE NO TRUNCATION AND ROUNDING ERRORS)'//' THE APPROXIMATE METHOD OF UNWEIGHTED MEANS HAS BEEN USED.',2X, 'SEE, FOR EXAMPLE, WINER PAGES 224-227,241-244 OR SCHEFFE PAGES 362-363') + ;04 Z ;2 \ ;2+ 9Y ;2 ;2-|p : Z ;q ;p Dh1: 9 ;7 $ D ;q & $ ;o $ XD ;>-\ + 4 4 ;q4 ;>4 ;l $
D ;q & $ ;o $ XD ;C-\ + 4 4 ;q4 ;C4 ;m ;o4d ;Z $ D ;q & $ ;o $ XD ;J-\ + 4 4 ;q4 ;J4 ;l NX@ ;L " ;Tb : Z ;q 1: 9 ;M ;o#W ;o#W$m(=$;$ + ;Y(1H ,57A1,2F8.0,E19.8,1X,F3.0,E17.8,E18.8) + ;g NX@ ;[ " ;bb : Z ;q 1: 9 ;\ ;o#W$m(=$; + ;g(1H ,38A1,19X,F8.0,8X,E19.8,1X,F3.0,E17.8) + ;k4 Z ;m \ ;n ;n,!p ,!p + ;6 ;m ;n-|p !* <** ,^ ,~ * x ,> < <*< < p Z@ <@@ <@@ < <G`|+ ;zP w,~ "p h a`~ + < h ``~ + <$ <H!<d <H/"+ ;{P ,~ @ @ @ @ @0 @x @@ @` edX91 ,> .,> Zp @ <\` < < <, ,^ ,~ SMI 1 ,> ., ;s <J B<+ <*_MI 1 ,> ., ;s <K B<+ <*I5R1 ,> ., ;s <M B<*\ <57Ap X" <M B</& p d"~ l" B<*\ <5/& p d"~ l" $ B<*\ <5/& p d"~ l"
B<*\ <5Sp *\ <5/&Xp B <@@ < <N B<*\ <5/& p d"~ l" B<RF < < <, + ;qEV4i91 ,> .+ <BS ,i@1 ,> .+ <B_ ,i@1 ,> .+ <BK>2 1 ,> .+ <BK>40 1 ,> .+ <B[<I71 ,> .
& <O w @ )@ .
" 5B <D
& <U,~ ` .
.4 SEQIN ^ <ISEQOUT ^ <JRANDOM ^ <LSEQINOUT <
%0 THE FOLLOWING ROUTINE IS NOT IMPLEMENTED IN FOROTS:
Kc@ p p + <aKcK , <a @ ,~ KcJ , <a @ ,~ KcI , <a @ ,~ KcH4B <q5@ <d5" <m+D ,40
<cU ,~ 4" <s,> $ D <q5` <jaB + <jL@ <q+ <j$ +" <n(BdB $ +" <n5b <i ,^ ,~ , <b6 <q+ <m"` / + <m ,~ aB #` 0@ 3@ <r,~ ,~ Kc#@ p p + =Kc#K , = @ ,~ Kc#J , = @ ,~ Kc#I , = @ ,~ Kc#H4B =%5@ =5" =+D ,40
=U ,~ D =%!$ @ =$ B =$5" =
#` + =!, =
!" B ,~ + =(BdB + =5B = =%,~ +7` =$+ =`d +D ,40=+D ,40
=U `d @ 6 =$+ = =$`B "` + =/ =&id + =+D ,40=# =$,> < =', =M,^ @ ` =$ @ ,> < =', =(,^ + =U", =
=$+ =+ = ! ,~ x Kc 1 ,> . p 3" =D+ =.3b =C+ =0+D ,40
=-U ,~ +D ,40=/ ,~ D =D F =E@@ =E%" j" % =B)/;` : XD =>5f =7aF + =7.& @(|h& f =E =A =B =A =E =@ D =C@ =D =E,~ !t0 _' "S'qf!um. .#Y% !v yO^ RX C2|t(1 ,> . p 4@ =] @ =L,> < =f, =M,^ =L,~ {e^b C2|p 1 ,> . p 5` =Q4@ =]+P ,40=f#p 3@ =`+ =_) r. !@ =d! n@ =d(|h" =a =a B =e =b =b =c =e =d =c,~ +D ,40
=^ =d,~ ,~ 0 _i/X3 6P'M 5( bB W
R `@ x =LATTEMPT TO TAKE LOG OF NEGATIVE ARG M2| 1 ,> . p + =rS; 1 ,> .+ =pSO 1 ,> . p + =sM3!d ` ,~ SAd @ ,~ C 1 ,> .#p ,~ S0 1 ,> .#p +" =z,~ U ,~ C&v@ 1 ,> . p # 2 >+ = > >7 "` ,~ &p