CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C                                                                   C
C                                                                   C
C     CLUSPAC:  Computer Programs for Mixture-Model Clustering      C
C                                                                   C
C               COPYRIGHT  1991  STANLEY LOUIS SCLOVE.              C
C                                                                   C
C                                                                   C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C          CMS DSN = ISDT1 ISOPAC
C
C
C          PROGRAM  ISDT1
C          FOR CLUSTERING UNIVARIATE DATA (CLUSTERING ON THE LINE).
C          MANUAL MODE:  NUMBER OF CLUSTERS AND INITIAL MEANS ARE
C          INPUT.  USE PROGRAM ISDT1A FOR AUTOMATIC SETTING OF
C          NUMBER OF CLUSTERS AND INITIAL MEANS.
C
C
C          PROGRAMMED BY
C              DR. STANLEY L. SCLOVE                 312/996-2681
C              DEPARTMENT OF
C              INFORMATION & DECISION SCIENCES       312/996-2676
C              COLLEGE OF BUSINESS ADMINISTRATION
C              UNIVERSITY OF ILLINOIS AT CHICAGO
C              BOX 4348, CHICAGO, IL  60680-4348
C
C
C          LAST UPDATE:  VERSION 2.5   9-JUN-87
C          NEXT-TO-LAST UPDATE:  VERSION 2.4   1-AUG-83
C
C               COPYRIGHT  1991  STANLEY LOUIS SCLOVE.
C
C
C     RESEARCH SUPPORTED IN PART BY:
C     ONR CONTRACT N00014-80-C-0408, TASK NR042-443
C     ARO CONTRACT DAAG29-82-K-0155
C
C          RESTRICTIONS (CAN BE MODIFIED):
C     N, SAMPLE SIZE, AT MOST 9999;
C     K, NUMBER OF CLUSTERS, AT MOST 9;
C     ITER, MAXIMUM NUMBER OF ITERATIONS, 20.
C
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C
C
C     CONTROL CARDS:
C
C     DATASET TITLE
C     N, IN FORMAT (2X,I4)
C     FMT, IN FORMAT (18A4), E.G., (1X,F4.1)
C       ALLOW AT LEAST ONE BLANK IN FMT:  IT WILL ALSO BE USED
C       FOR OUTPUT.
C     DATA, IN FORMAT SPECIFIED BY FMT
C     K, NUMBER OF CLUSTERS, IN FORMAT (2X,I1)
C     K INITIAL MEANS, IN FORMAT SPECIFIED BY FMT
C
C
C
C     WRITE PROGRAM INFORMATION.
C
C
C     READ SAMPLE SIZE, N.
C
C     READ DATA FORMAT.
C
C     READ DATA.
C
C
C
C       READ K, NUMBER OF CLUSTERS.
C
C       READ INITIAL MEANS
C
C
C     SET CONSTANTS.
C     COMMENCE DISTANCE COMPUTATIONS.
C
C
C
C
C
C
C     B(IG) IS BOUNDARY BETWEEN G-TH AND G+1-ST CLASSES.
C
C
C
C     VARHAT  IS MLE OF VARIANCE.
C
C
C
C     COMPUTE MODEL-SELECTION CRITERIA:
C
C
C
C
C