*
*=== Bptecm ===========================================================*
*
*----------------------------------------------------------------------*
*                                                                      *
*     Copyright (C) 2003-2019:  CERN & INFN                            *
*     All Rights Reserved.                                             *
*                                                                      *
*     Created on  25 February 1998 by    Alfredo Ferrari & Paola Sala  *
*                                                   Infn - Milan       *
*                                                                      *
*----------------------------------------------------------------------*
*
      PARAMETER ( MXPRCN = 100 )
      PARAMETER ( MXALPH =  25 )
      PARAMETER ( MXBETA =  25 )
*  If Mxprcn is 100, then the prob of the last-1 percentiles
*  is 1 - 1/100, Mxdcds is giving Eps up to 1 - 1/10^(2+Mxdcds)
*  or more generally, up to 1 - 1/(Mxprcn x 10^Mxdcds)
      PARAMETER ( MXDCDS =  6 )
*  Epsepi must be smaller than the minimum probability left
*  by Mxdcds:
      PARAMETER ( EPSEPI = 1.D-09 )
*
      COMMON / BPTECM / ALNAL0, ALNAL1, DLNALP, ALNBE0, ALNBE1, DLNBET,
     &                  EPSPER (0:MXPRCN,0:MXALPH,0:MXBETA),
     &                  EPSDCD (0:MXDCDS,0:MXALPH,0:MXBETA),
     &                  EPSOMN (0:MXALPH,0:MXBETA),
     &                  PRCOOF (0:MXALPH,0:MXBETA),
     &                  PRCOTN (0:MXALPH,0:MXBETA),
     &                  PRCHLF (0:MXALPH,0:MXBETA),
     &                  PRCHPI (0:MXALPH,0:MXBETA)
      SAVE / BPTECM /