C--------------------------------------------------------------C
C  subroutine  BDB12 returns 1-side quantile based on 
C                    the Bonferroni inequality
C                    (12 for 1st order, 2-sided)
C  INPUT VARIABLES:                                            C
C    KK = NUMBER OF inferences (e.g. K-1 in MCB or MCC)
C    CC = CONFIDENCE LEVEL                                     C
C    NU = DEGREES OF FREEDOM                                   C
C  OUTPUT VARIABLES:                                           C
C    DHALL = UPPER BOUND OF CRITICAL VALUE                     C
C    DLALL = LOWER BOUND OF CRITICAL VALUE                     C
C  LAST REVISION: 03/10/92 by jch                              C
C--------------------------------------------------------------C
      SUBROUTINE BDB12(KK,CC,NU,DNU,DHALL,DLALL)
      IMPLICIT DOUBLEPRECISION (A-H,O-Z)
C6    IMPLICIT REAL*8 (A-H,O-Z)
      COMMON/LIST5/DINFNU
C
      IF (DNU.LE.DINFNU) GOTO 63
C       ---------------------------
C       INFINITE D.F. (NORMAL) CASE
C       ---------------------------
        CUMU=CC
        DLALL=FINVN(CUMU,IFAULT)
C       -----------------------------------------------
C       OBTAIN UPPER BOUND BY the Bonferroni inequality
C       -----------------------------------------------
        CUMU=1.0D0-(0.5D0*(1.0D0-CC)/DBLE(FLOAT(KK)))
        DHALL=FINVN(CUMU,IFAULT)
        GOTO 65
C
C     ---------------------------------
C     FINITE D.F. (T DISTRIBUTION) CASE
C     ---------------------------------
   63 TAIL=1.0D0*(1.0D0-CC)
      DLALL=FINVT(TAIL,NU)
C     -----------------------------------------------
C     OBTAIN UPPER BOUND BY the Bonferroni inequality
C     -----------------------------------------------
      TAIL=1.0D0*((1.0D0-CC)/DBLE(FLOAT(KK)))
      DHALL=FINVT(TAIL,NU)
C  
   65 CONTINUE
      RETURN
      END
C