C
C     SET CONSTANTS.
C       XJ(IC,K), K=1 TO 9, IC = 1 TO K
C       OPTIMAL CLASS PROBABILITIES - NORMAL DISTRIBUTION
C       JOHARI & SCLOVE (1975). "PARTITIONING A DISTRIBUTION."
C       COMMUNICATIONS IN STATISTICS.
      XJ(1,2)=.5
      XJ(2,2)=.5
      XJ(1,3)=.2703
      XJ(2,3)=.4594
      XJ(3,3)=.2703
      XJ(1,4)=.1631
      XJ(2,4)=.3369
      XJ(3,4)=.3369
      XJ(4,4)=.1631
      XJ(1,5)=.1068
      XJ(2,5)=.2444
      XJ(3,5)=.2976
      XJ(4,5)=.2444
      XJ(5,5)=.1068
      XJ(1,6)=.0739
      XJ(2,6)=.1810
      XJ(3,6)=.2451
      XJ(4,6)=.2451
      XJ(5,6)=.1810
      XJ(6,6)=.0739
      XJ(1,7)=.0536
      XJ(2,7)=.1375
      XJ(3,7)=.1986
      XJ(4,7)=.2106
      XJ(5,7)=.1986
      XJ(6,7)=.1375
      XJ(7,7)=.0536
      XJ(1,8)=.0402
      XJ(2,8)=.1067
      XJ(3,8)=.1613
      XJ(4,8)=.1918
      XJ(5,8)=.1918
      XJ(6,8)=.1613
      XJ(7,8)=.1067
      XJ(8,8)=.0402
      XJ(1,9)=.0310
      XJ(2,9)=.0845
      XJ(3,9)=.1324
      XJ(4,9)=.1643
      XJ(5,9)=.1756
      XJ(6,9)=.1643
      XJ(7,9)=.1324
      XJ(8,9)=.0845
      XJ(9,9)=.0310
C
C       SET INITIAL VALUES OF PRIOR PROBABILITIES EQUAL TO THE
C     OPTIMAL VALUES FOR A NORMAL DISTRIBUTION:
C
      P(IC) = XJ(IC,K)
C
C       TO SET INITIAL VALUES OF PRIOR PROBABILITIES EQUAL TO
C     BINOMIAL(X=IC-1;N=K-1,P=1/2).
C     FOR IC = 1,2,...,K,
C     REMOVE THE "C" FROM CC1 OF THE NEXT LINE:
C     P(IC) = GAMMA(XK)/(GAMMA(XC)*GAMMA(XK-XC+1)*(2**K))
C
C       FOR EQUAL INITIAL VALUES OF PRIOR PROBABILITIES,
C     REMOVE THE "C" FROM CC1 OF THE NEXT LINE:
C     P(IC) = 1.0/K .
C