Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-02 - 43,50145/dascr.smp
There are 2 other files named dascr.smp in the archive. Click here to see a list.
C                                                                       DASC  10
C     ..................................................................DASC  20
C                                                                       DASC  30
C        SAMPLE MAIN PROGRAM FOR DATA SCREENING - DASCR                 DASC  40
C                                                                       DASC  50
C        PURPOSE                                                        DASC  60
C           PERFORM DATA SCREENING CALCULATIONS ON A SET OF OBSERVATIONSDASC  70
C                                                                       DASC  80
C        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED                  DASC  90
C           SUBST                                                       DASC 100
C           TAB1                                                        DASC 110
C           LOC                                                         DASC 120
C           BOOL                                                        DASC 130
C           HIST                                                        DASC 140
C           MATIN                                                       DASC 150
C                                                                       DASC 160
C        METHOD                                                         DASC 170
C           DERIVE A SUBSET OF OBSERVATIONS SATISFYING CERTAIN          DASC 180
C           CONDITIONS ON THE VARIABLES. FOR THIS SUBSET, THE FREQUENCY DASC 190
C           OF A SELECTED VARIABLE OVER GIVEN CLASS INTERVALS IS        DASC 200
C           OBTAINED. THIS IS PLOTTED IN THE FORM OF A HISTOGRAM.       DASC 210
C           TOTAL, AVERAGE, STANDARD DEVIATION, MINIMUM, AND MAXIMUM    DASC 220
C           ARE ALSO CALCULATED.                                        DASC 230
C                                                                       DASC 240
C     ..................................................................DASC 250
C                                                                       DASC 260
      DIMENSION A(1000),C(63),UBO(3),S(200),R(21),FREQ(20),             DASC 270
     1PCT(20),STATS(5)                                                  DASC 280
      EXTERNAL BOOL                                                     DASC 290
   10 FORMAT(1H1,22HDATA SCREENING PROBLEM,I3)                          DASC 300
   11 FORMAT(1H0,44HDIMENSIONED AREA TOO SMALL FOR INPUT MATRIX ,I4)    DASC 310
   12 FORMAT(1H0,20HEXECUTION TERMINATED)                               DASC 320
   13 FORMAT(1H0,42HINCORRECT NUMBER OF DATA CARDS FOR MATRIX ,I4)      DASC 330
   14 FORMAT(1H0,18HGO ON TO NEXT CASE)                                 DASC 340
   15 FORMAT(1H0,11HEND OF CASE)                                        DASC 350
   16 FORMAT(7(F2.0,F1.0,F7.0))                                         DASC 360
   17 FORMAT(3F10.0)                                                    DASC 370
   18 FORMAT(1H0,13HSUBSET VECTOR,///)                                  DASC 380
   19 FORMAT(1H ,I3,F5.0)                                               DASC 390
   20 FORMAT(1H1,32HSUMMARY STATISTICS FOR VARIABLE ,I3)                DASC 400
   21 FORMAT(1H0,7HTOTAL =,F10.3,2X,9HAVERAGE =,F10.3,2X,20HSTANDARD DEVDASC 410
     1IATION =,F10.3,2X,9HMINIMUM =,F10.3,2X,9HMAXIMUM =,F10.3)         DASC 420
   22 FORMAT(2I2)                                                       DASC 430
C                                                                       DASC 440
      KC=0                                                              DASC 450
   24 KC=KC+1                                                           DASC 460
      CALL MATIN(ICOD,A,1000,NO,NV,MS,IER)                              DASC 470
      IF(NO) 25,50,25                                                   DASC 480
   25 IF(IER-1) 40,30,35                                                DASC 490
   30 WRITE(6,11) ICOD                                                  DASC 500
      WRITE(6,14)                                                       DASC 510
      GO TO 24                                                          DASC 520
   35 WRITE(6,13)                                                       DASC 530
      WRITE(6,12)                                                       DASC 540
      GO TO 50                                                          DASC 550
   40 READ(5,22)NC,NOVAR                                                DASC 560
      JC=NC*3                                                           DASC 570
      READ(5,16)(C(I),I=1,JC)                                           DASC 580
      READ(5,17)(UBO(I),I=1,3)                                          DASC 590
      CALL SUBST(A,C,R,BOOL,S,NO,NV,NC)                                 DASC 600
      WRITE(6,10)KC                                                     DASC 610
      WRITE(6,18)                                                       DASC 620
      WRITE(6,19) (I,S(I),I=1,NO)                                       DASC 630
      CALL TAB1(A,S,NOVAR,UBO,FREQ,PCT,STATS,NO,NV)                     DASC 640
      WRITE(6,20) NOVAR                                                 DASC 650
      WRITE(6,21)(STATS(I),I=1,5)                                       DASC 660
      JZ=UBO(2)                                                         DASC 670
      CALL HIST(KC,FREQ,JZ)                                             DASC 680
      WRITE(6,15)                                                       DASC 690
      GO TO 24                                                          DASC 700
   50 RETURN                                                            DASC 710
      END                                                               DASC 720