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