#include "ntparam.inc"

      INTEGER MAXNUMOFHIS
      PARAMETER (MAXNUMOFHIS=3000)

      INTEGER UNIT_IN,UNIT_OUT,UNIT_CHECK

      INTEGER OUTPUT_FORM,BINLEVEL,EVENTFLAG,USENUMOFENTRIES,PARAMFLAG
     &  ,NBIN1,NBIN2,MATCHFLAG,FITFLAG,NBINFIT,FITFUNC,SMOOTHFLAG
     &  ,SMOOTHFUNC,SMOOTHFUNCERR,NEVT,NHIST,FITOK,PARPOINTER,SMFUNCFLAG
     &  ,IENERGY,ITHETA,USEPAR

      REAL EVENTCUT,B1MIN,B1MAX,B2MIN,B2MAX,RANGESCALECUT,SCALEFRAC
     &  ,FITMEAN,FITSIGMA,FITCHI2,SMOOTHPAR,FITHEIGHT,URANGE

      DOUBLE PRECISION COR

      CHARACTER*70 INPUT_FILE,OUTPUT_FILE_CHECK

      COMMON /CFPARI/ UNIT_IN,UNIT_OUT,UNIT_CHECK,OUTPUT_FORM,BINLEVEL
     &  ,EVENTFLAG,USENUMOFENTRIES,PARAMFLAG(0:MAXNUMOFPAR),NBIN1,NBIN2
     &  ,FITFLAG,NBINFIT,FITFUNC,MATCHFLAG,SMOOTHFLAG
     &  ,SMOOTHFUNC(5,MAXNUMOFPAR),SMOOTHFUNCERR(5,MAXNUMOFPAR)
     &  ,SCALEFRAC,NEVT,NHIST,FITOK(MAXNUMOFHIS),PARPOINTER,SMFUNCFLAG
     &  ,IENERGY,ITHETA,USEPAR(2,MAXNUMOFPAR)

      COMMON /CFPARR/ EVENTCUT,B1MIN(MAXNUMOFPAR),B1MAX(MAXNUMOFPAR)
     &  ,B2MIN(MAXNUMOFPAR),B2MAX(MAXNUMOFPAR),RANGESCALECUT
     &  ,FITMEAN(MAXNUMOFHIS,2),FITSIGMA(MAXNUMOFHIS,2)
     &  ,FITCHI2(MAXNUMOFHIS),SMOOTHPAR(30*6,2,2
     &  *5*(MAXNUMOFPAR+1)),FITHEIGHT(MAXNUMOFHIS,2),URANGE(2
     &  ,MAXNUMOFHIS)

      COMMON /CFPARD/ COR(25,25)

      COMMON /CFPARC/ INPUT_FILE,OUTPUT_FILE_CHECK

C=================================================================

      INTEGER HISTOFIT,OLI_NX,OLI_NY,OLI_NBIN

      COMMON /OLICOI/ HISTOFIT,OLI_NBIN,OLI_NX,OLI_NY

      REAL OLI_WX,OLI_WY,LLIM,ULIM
      
      COMMON /OLICOR/ OLI_WX,OLI_WY,LLIM,ULIM

      DOUBLE PRECISION DMEAN,DSIGMA,DDUMMY,DCONST,DCUBE,OLI_EPS,OLI_A
     &  ,OLI_B,NEVNT,DSLOPE

      COMMON /OLICOD/ DMEAN,DSIGMA,DDUMMY,DCONST,DCUBE,OLI_EPS,OLI_A
     &  ,OLI_B,NEVNT,DSLOPE