File ANOVA.FT (FORTRAN source file)

Directory of image this file is from
This file as a plain text file

C*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ2MNJ* B * B 6 N 7ACM+LCE3M	A7NB 3R
O3R7A2 ?F3RF 3N3A3Y	S3S> 7FZ 3A	R3AON+E6 2 ;A3OGV2MNJ2MNJ* B * B 6 B 7UCR3OWS2MNJ* B * B * B * " *1B)3RGE7DR +HCE3P?R3BWL7MB 3AGR7MSE+ECR7CKA3DZ +OCR3AGN7LOY+ICS+OCF7VKAI6-*JCC* B * B * B 2 ;A+C3E. J(2)N 3A3L2 T7EN 7UKB7OSU3IWN3SZ +OCR3TWH2 GC7LWC7LSA3I;O
 [O6 WSM7S*JCC* B * B * B 2 [O6 GS7UKA+E3S2 WD3GWR+ECS+OCF3FWR3E?D3MF +NCD3MGE7NN 3QGU+R3E2 ;AD*M+CB * B * B * B *(&36 KP7ISN2 GF3C?T3R2 3EWV+L3S6 KG3ASN2 WM+ACN3ASN2 ;A7A	L7SOI2 [O2 GV+R7I2MNJ* B * B * B 2 F 3NWC2 GT3BWL".*MC*M+CB * B * B 3R7E3A/RS*M+CB 
 B * B * B 3TWH6 KP7OKG+ACM3H;A3DWL3S> 7N	L2 ?C3M3P3EWT2 GF3C?T3RGI3LR 3E	S7GON*.B 3TWH+R7E2MNJ* B * B * B 2 Z 3OWR2,> 3TWH3RV 3XWP3R7I7ESN+ACL7DOE3I;G6 WM+SCT+BCE3RSE3UWC7DR 7OR 7HOI2 ?FR7M*JCC* B * B * B 6 KP7IKO2 ?T2 T7EV +SCE+OCF3TWH6 KP7OKG+A;M2MNJ2M
J* B * B 6 N 7UKB7OSU3IWN3SF +NCD3F;U3C	T+OCN3SKU3P?R3GGR+MCS7RGE7UKIE7D*JCC* B * B * B 6 [A7DSA2MNJ* B * B * B 2 F 3VGCL*M+CB * B * B * B 3MGEN7Q"J7C*JCC* B * B 2 WM3T?HD*M+CB * B * B * B 3TWH2 WM3T?H3D& 3SJ 3AWS3D> 7NR +HCE3TOE3H	N3QWU2 	D7SWC3SWS3DJ 3Y
 2.> ".*M+CB * B * B * B 7HKA3TWL3Y& +N^ 7MSA3H7E3A	T3C3A2 WM3T?H+DCS7FKO2 	D7GSI+ACL3C7O7PSU7EOR"	6,*JCC* B * B * B 2 SE3IWT3DJ 3YF 6.J 7AOL3T;O2 ;A3D" 6.^ 3I[L2,* 3O;H2 	W7L	E2 ;A7DN 7OON",*M+CB * B * B * B .1Z9*2B,3CGH3PWT/RJ "06."J7C*JCC* B * :.*.:.*.
.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M+CB * B 3TWH2 ?F3L?L3W;I3GR 3IWM3N	S+OCN7MOU3TJ 3E^ 3RGE7TKE2 T+ACN+OCR7EWQ+ACL+TCO3TWH2MNJ* B 2 N 7UWM7LSA3IWV6 KP7OWD+CCT+OCF3EOA3HZ 7ASC+OCR7L[E+ECL7PWL3S> +NCE2(WL3V3E
(	I*+&12MNJ* B 2 Z +OCR/IF=2 ?T* 3K2 W3EWR* CK+ICS3TWH6 WN3MWB3R> 3FZ 7ASC7OOR".6."J7C*JB * B * B 2 	D3M;E3S?I7N" .(B3*0&02MNJ2MNJ* B 6 R +HCE3F3O7L
O3I
N2 	D3M;E3S?I+NCS7MOU3TJ 3E^ 3RGE7TKE2 T+ACN+OCR7EWQ+ACL+TCO3TWH2MNJ* B 2 : 3UKM+ECR+OCF3FOA7TKO+S:.2MNJ*MBJ* B * B 2 R 3IWM3N	S+OCN3HGE/DZ(2)2,3EWV/LZ(2)&,3SWT/PZ(2).,3O;U/TZ(2)2,7ASS/SZ(")*MC*M+CB * B 3TWH2 ?F3L?L3W;I3GR 3IWM3N	S7OON6 WM+SCT+BCE3GWR3AWT
RR 3H;A6 KO6 GE3U3A2 ?T* B2T7O*JCC* B 2 T3E. 2-T2 ?P7WKE2 	M7NOU* 21* "(*2**+K6)*1:)".*MC*M* B * B * B 3D7I7EON3I;O6 WS7MGS.(N62):,+DF*6&32,7S3E;A.(N6")*MC*M+CB * B 3TWH2 ?F3L?L3W;I3GR 3IWM3N	S+OCN+ICS3UWS7DR 7OB 3R;I3TZ 7ASC+OCR3LKA7EOL2 ;I2 ;A7A	L7SOI2M
J* B 2 > 7FZ 3A	R3AON7ER 3A3B3EF +NCD+ICS7FI+E;D".*MC*M* B * B * B 3D7I7EON3I;O2 7F/TF("56)*JCC* B * :.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".*MC*M+CB * B * B +ICF3AR 3OKU+LCE3PWR7COI3I;O2 WV3R	S+OCN+OCF3T	H7
J 7OSU3IWN6 OI2 WD7SKI+E3D2 TE*M+CB * B * B 3C& 3NN 7OWL+MCN61N 7HWO+LCD+BCE3R7E3OWV3DZ 3R7O2 T3ER 3OKU+LCE3PWR7COI3I;O2MNJ* B * B 6 N 7TSA3EWM+NCT3W	H+CCH3F3O7L
OS6."J7C*JCC* B 2 ?D3U3B7EB 3ROE3I	S+OCN3X^,3MGE7NN,7UOM7QN,3MGE7NN,U7M"J7C*JCC* B * B 2 T3EN 6 WM+SCT7AOL3OJ 7EJ 3E?M3VSE6 KF+OCM7DWO3BWL6 KP3E	C3S?I7NN 7TSA3EWM7NOT2MNJ* B * B 2 F 3PWP3A	R+NCG+ICN3OT+ECR7RWO3T;I+ECS3UWS3D& 3NN 3O+N3UON3T?I7N^ 3IT2 TI7S*
CC* B * B 2 ?R3U	T+N;E2MNJ2MNJ* B * B * : *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.".6."J7C*JB . F 2 ?F3RGM3TF(24F,22&,22F,.4N,/XF,21F(21&,*4>).(GA.,SI.,GA.,SI.,GA.,SI.,GA.,SI.,GA.,SI")6)*JB . J 2 ?F3RGM/TJ(.6GH3AGN7
OY+ICS+OCF7VKA3I;A+C;E*.:...SA.,KA*/&/*MBJ* B 23Z 3O7R+AT21"820WL3V3E3S> 3FZ 7ASC7OOR./N(3XF,.1^,3X&,*4&)*MBJ* B 24Z 3O7R+AT.1CH./F/*1CH3GGR+NCD3MGE/NKF.0V.*/>/"/6)*JB . V 2 ?F3RGM/TF(.0CH7SWO3RWC2 [O61"82,"73S7U3S> /FB1/XF,20SH7EKG7EOE2 [O*93X247H3E;A./B
7HZ A*M* B . F 3RGI3T?I/N"1/X^,7HGS7UKA/EGS*13X27[H3RWE3D7O61"02,"77SWQ3AWR+S&/*MBJ* B 26Z 3O7R+AT*1CH21F521Z,*2:0.5F,*03X+I26/FB2*.&5*MBJ* B 27Z 3O7R+AT*6CH7TSO/AGL*03X/FB2*.2561"0.,[I")*M* B * B87FKO7MSA.(J1+F:6"06)"J	C3OWP+N" 3U	N/TV=2,R 3E	V/C7E2	SC+R
	2 OA7COE+S^=7SGE+I
N")*M3C>I3P;E6 V(7NSI*=262 WD3VOI+E^=7LSP*	B,3AOC7EOS6=N	3E?Q+U
T")*MC*M+CB * B *.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.*.:.2MNJ2MNJ* B 6 J 3ESA6 KP3O3B+ECM7PKA3AWM7TKE2 GCR7D"J7C2J2I3O	G3C3A2 ?EF*M2IGC+LCL3C/H3E[O2 V(+O	F*MBJ. B160J 3ESA. V(*,&16 KP6,KP21.,2,3B3A/N2,"(3ESA*
	I2,WL3V3E*(	I.,7I21.,")*M2I[I2 V(+O	F2 ?G+TCO.9&92MNJ* B * B 6 KP*.:.6.B.3RKO3L7E6 WN3MWB+R" 7M	A2 WB2 3A3PGH7MKE+I	C2MNJ* B * B 6 KP*1:.6.B.3RKO3L7E6 WN3MWB+R" 3C;O3T;I3USE")*M+CB * B 2 . *.:.*.:.3N7U7BKE2 [O2 GF3C?TR7S*JCC* B * B 3BGL+N;K2.3B3A/N2 	F3E
L2MNJ* B * B 2 WH+A;D2.Z.7ASC+OCR3LKA7EOL2MNJ* B * B 2 WL3V3E2.2.3EWV+LCS+OCF3FOA7TKOS*MC*M+CB * B 3P	R+NCT3P?R3BWL3M: 3UKM+ECR3ASN2 WL3V3E3S> 3FZ 7ASC7OOR2MNJ*MBJ* B 6 ^ 7RSI+E" .6J,6)B 7RB,R61*JB * B 6 KW3IWT. Z(*,&32 "(3ESA*(	I2,WL3V3E*(	I.,7I21.,")*MC
M+CB * B 3C3A3C3U3AWT2 ?T3T3A6 WN3MWB3R> 3FR 3AGT2MNJ*MBJ* B 2 : 2=WL3V3E*(&1*MBJ* B 2 R /OF *0B2/IJ=",7K*JB .1J0. 7N3N2*3EWV3L&(")*MC*M+CB * B 3RGE3DF +LCL7ICN+UCT7DSAA*MC*M* B * B 3RGE+D" .5",*)" 3X&(2)&,*=21N6)"J7C*JB * B 2 GC+LCL3ASV+ACT*(3K7L[E+E3L7N
,*,3L7ISS+E3P7KWO+N	T*MBJ* B 2 N 3A3L6 [A3C3A2 .(2,WL3V3E*,3X3L&,3SWT3P2,7ASSS6)*JB * B 2 GC+LCL3MGE+NCQ*(3K7L[E+E3L3X^,3MGE7NN,7UOM3Q:,+D3F3SWM+A3N7ISS+E3P7KWO+N3T7LOA+T	S2MNJ2MNJ* B 6 B 3R;I3T^ 3R;A3D6 3E;A2MNJ*MBJ* B 6 ^ 7RSI+E" .6R,2)^ 3MGEN*MC*M+CB *
B 3P	R+NCT3AGN7LOY+ICS+OCF7VKA3I;A+CCE3TKAL7E"J7C*JB * B 6 KW3IWT. Z(*,&5*MBJ* B 2 2 +L"=*2**+K6)"1*M* B * B 7ISS+EP.16)"1*M* B * B +DCO.1V0. 7I22.,*MBJ. B125& 3SWT3P&(.)B=*MBJ* B 2 R /OF *1B0/IF=.,V1*MBJ. F120Z +MT/I6)3BGLN7K*JB * B 2 ;N"=60*JB * B 6 WS/
B=".60*JB .1B22 ;N2=;N"+61*JB * B . 7L"0*M* B * B +DCO.1B4. 7I21.,*MBJ* B 2 Z +MT/I6)3BGLN7K*JB * B 2 [I6(OI7TCE*(	I.)F *320. R1*0B,.1B3*MBJ. N1202 *=/L"1*M* B * B 7FSM*(	L2=WH+ADI6)*JB .1B42 ?C3N	T3NWU*MBJ* B 6 ^ 7RSI+E" .6Z,*)" 7FSM*(	I.,7I.1F,*52)3S7U+
Q+N	N2,SN3F:(+N2)3SWM+AN+N	N*MBJ* B 6 N /U7M3S7U6+WS7MGS2(;N")*M* B * B +IF+N7N+L	L. R1*5B,.1B7.,F "760*JB .1V42 ?D. Z120& *=21K*M* B * B +IF7ISS+EP+I&). R1*7B,.1B5.,F "467*JB .1^46 OI7TCE*(	I"=60*JB * B 2 ?G2 ?T. Z1"0*M. F *5B07ISS+EP/I6)"1*M* B * B +GCO
TCO.1B2*MBJ. Z120N 7OSN7IWNE*M. F *7B03N:="-61*JB * B 6 KW3IWT. Z(*,&76 WS3M:,*MBJ* B 2 ^ 7OR /OF "060.J&969NI7TCO*MBJ* B 2 V N7D"JBZ"B"B"B"B"B"B

Note: Lines longer than 256 characters were wrapped



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search