Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-02 - 43,50145/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