Trailing-Edge
-
PDP-10 Archives
-
decuslib20-02
-
decus/20-0026/stout.sss
There are 2 other files named stout.sss in the archive. Click here to see a list.
C STOU 10
C ..................................................................STOU 20
C STOU 30
C SAMPLE OUTPUT SUBROUTINE STOUT STOU 40
C STOU 50
C PURPOSE STOU 60
C PRINT THE RESULT OF A STEP-WISE MULTIPLE REGRESSION. THIS STOU 70
C SUBROUTINE IS CALLED BY THE SUBROUTINE STPRG. STOU 80
C STOU 90
C USAGE STOU 100
C CALL STOUT (NSTEP,ANS,L,B,S,T,NSTOP) STOU 110
C STOU 120
C DESCRIPTION OF PARAMETERS STOU 130
C NSTEP - INPUT VECTOR OF LENGTH 5 CONTAINING THE FOLLOWING STOU 140
C INFORMATION.. STOU 150
C NSTEP(1) DEPENDENT VARIABLE STOU 160
C NSTEP(2) NUMBER OF VARIABLES FORCED TO ENTER STOU 170
C IN THE REGRESSION STOU 180
C NSTEP(3) NUMBER OF VARIABLES DELETED STOU 190
C NSTEP(4) THE LAST STEP NUMBER STOU 200
C NSTEP(5) THE LAST VARIABLE ENTERED STOU 210
C ANS - INPUT VECTOR OF LENGTH 11 CONTAINING THE FOLLOWING STOU 220
C INFORMATION FOR THE LAST STEP.. STOU 230
C ANS(1) SUM OF SQUARES REDUCED STOU 240
C ANS(2) PROPORTION REDUCED STOU 250
C ANS(3) CUMULATIVE SUM OF SQUARES REDUCED STOU 260
C ANS(4) CUMULATIVE PROPORTION REDUCED STOU 270
C ANS(5) SUM OF SQUARES OF THE DEPENDENT VARIABLE STOU 280
C ANS(6) MULTIPLE CORRELATION COEFFICIENT STOU 290
C ANS(7) F-VALUE FOR ANALYSIS VARIANCE (FOR THE STOU 300
C REGRESSION) STOU 310
C ANS(8) STANDARD ERROR OF ESTIMATE STOU 320
C ANS(9) INTERCEPT STOU 330
C ANS(10) ADJUSTED MULTIPLE R STOU 340
C ANS(11) ADJUSTED STANDARD ERROR OF ESTIMATE STOU 350
C L - INPUT VECTOR OF LENGTH K (K=M-NSTEP(3)-1) CONTAIN- STOU 360
C ING VARIABLES ENTERED IN THE REGRESSION. L(1)=FIRSTSTOU 370
C VARIABLE ENTERED, L(2)=SECOND VARIABLE ENTERED, ETC.STOU 380
C B - INPUT VECTOR OF LENGTH K (K=M-NSTEP(3)-1) CONTAIN- STOU 390
C ING REGRESSION COEFFICIENTS CORRESPONDING TO THE STOU 400
C VARIABLES IN VECTOR L STOU 410
C S - INPUT VECTOR OF LENGTH K (K=M-NSTEP(3)-1) CONTAIN- STOU 420
C ING STANDARD ERRORS OF REGRESSION COEFFICIENTS STOU 430
C CORRESPONDING TO THE VARIABLES IN VECTOR L STOU 440
C T - INPUT VECTOR OF LENGTH K (K=M-NSTEP(3)-1) CONTAIN- STOU 450
C ING COMPUTED T-VALUES CORRESPONDING TO THE VARIABLESSTOU 460
C IN VECTOR L STOU 470
C NSTOP - OUTPUT OPTION CODE TO STOP THE STEP-WISE REGRESSION STOU 480
C 1 - IF THE STEP-WISE REGRESSION IS TO BE TERMI- STOU 490
C NATED BY SOME CRITERIA OTHER THAN PROPORTION STOU 500
C OF SUM OF SQUARES, SUCH AS F-TEST AND SO ON, STOU 510
C THIS SUBROUTINE MAY BE MODIFIED TO PERFORM STOU 520
C DESIRED TESTS. WHEN IT BECOMES NO LONGER STOU 530
C NECESSARY TO CONTINUE THE STEP-WISE REGRES- STOU 540
C SION, SET NSTOP EQUAL TO 1. STOU 550
C 0 - IF THE STEP-WISE REGRESSION IS TO BE CONTINUEDSTOU 560
C STOU 570
C REMARKS STOU 580
C THE CONTENTS OF THE VECTORS NSTEP, ANS, L ARE REQUIRED IN STOU 590
C SUBSEQUENT STEPS AND MUST NOT BE DESTROYED. STOU 600
C STOU 610
C SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED STOU 620
C NONE STOU 630
C STOU 640
C STOU 650
C ..................................................................STOU 660
C STOU 670
SUBROUTINE STOUT (NSTEP,ANS,L,B,S,T,NSTOP) STOU 680
C STOU 690
DIMENSION NSTEP(1),ANS(1),L(1),B(1),S(1),T(1) STOU 700
C STOU 710
C ..................................................................STOU 720
C STOU 730
C IF A DOUBLE PRECISION VERSION OF THIS ROUTINE IS DESIRED, THE STOU 740
C C IN COLUMN 1 SHOULD BE REMOVED FROM THE DOUBLE PRECISION STOU 750
C STATEMENT WHICH FOLLOWS. STOU 760
C STOU 770
C DOUBLE PRECISION ANS,B,S,T STOU 780
C STOU 790
C THE C MUST ALSO BE REMOVED FROM DOUBLE PRECISION STATEMENTS STOU 800
C APPEARING IN OTHER ROUTINES USED IN CONJUNCTION WITH THIS STOU 810
C ROUTINE. STOU 820
C STOU 830
C ..................................................................STOU 840
C STOU 850
1 FORMAT(/5H1STEPI3) STOU 860
2 FORMAT(22H0VARIABLE ENTERED.....I2) STOU 870
3 FORMAT(40H0SUM OF SQUARES REDUCED IN THIS STEP....F13.3) STOU 880
4 FORMAT(40H PROPORTION REDUCED IN THIS STEP........F13.3) STOU 890
5 FORMAT(40H0CUMULATIVE SUM OF SQUARES REDUCED......F13.3) STOU 900
6 FORMAT(40H CUMULATIVE PROPORTION REDUCED..........F13.3,4H OFF13.STOU 910
13) STOU 920
7 FORMAT(4H0FORI3,18H VARIABLES ENTERED) STOU 930
8 FORMAT(38H MULTIPLE CORRELATION COEFFICIENT...F9.3) STOU 940
9 FORMAT(38H F-VALUE FOR ANALYSIS OF VARIANCE...F9.3) STOU 950
10 FORMAT(38H STANDARD ERROR OF ESTIMATE.........F9.3) STOU 960
11 FORMAT(/57H VARIABLE REGRESSION STD. ERROR OF COMPUTSTOU 970
1ED/56H NUMBER COEFFICIENT REG. COEFF. T-VALUE) STOU 980
12 FORMAT(5X,I3,F18.5,F16.5,F14.3) STOU 990
13 FORMAT(12H INTERCEPTF14.5) STOU1000
14 FORMAT(31H0DEPENDENT VARIABLE............I2) STOU1010
15 FORMAT(31H NUMBER OF VARIABLES FORCED....I2) STOU1020
16 FORMAT(31H NUMBER OF VARIABLES DELETED...I2) STOU1030
17 FORMAT(20H (FORCED VARIABLE)) STOU1040
18 FORMAT(38H (ADJUSTED FOR D.F.)...........F9.3) STOU1050
C STOU1060
C TEST WHETHER THIS IS THE FIRST STEP STOU1070
C STOU1080
IF(NSTEP(4)-1) 30, 30, 35 STOU1090
30 WRITE (6,14) NSTEP(1) STOU1100
WRITE (6,15) NSTEP(2) STOU1110
WRITE (6,16) NSTEP(3) STOU1120
C STOU1130
C PRINT THE RESULT OF A STEP STOU1140
C STOU1150
35 WRITE (6,1) NSTEP(4) STOU1160
WRITE (6,2) NSTEP(5) STOU1170
IF(NSTEP(4)-NSTEP(2)) 37, 37, 38 STOU1180
37 WRITE (6,17) STOU1190
38 WRITE (6,3) ANS(1) STOU1200
WRITE (6,4) ANS(2) STOU1210
WRITE (6,5) ANS(3) STOU1220
WRITE (6,6) ANS(4), ANS(5) STOU1230
WRITE (6,7) NSTEP(4) STOU1240
WRITE (6,8) ANS(6) STOU1250
WRITE(6,18)ANS(10) STOU1260
WRITE (6,9) ANS(7) STOU1270
WRITE (6,10) ANS(8) STOU1280
WRITE(6,18)ANS(11) STOU1290
WRITE (6,11) STOU1300
N=NSTEP(4) STOU1310
DO 40 I=1,N STOU1320
40 WRITE (6,12) L(I),B(I),S(I),T(I) STOU1330
WRITE (6,13) ANS(9) STOU1340
C STOU1350
NSTOP=0 STOU1360
RETURN STOU1370
END STOU1380