Subroutine MFMPAR
C    ===================
C
C Initialize internal parameters and the control card values, then
C
      Implicit None
C
#include "mfcuts.inc"
#include "mfflg.inc"
c
c -- ctd tracks requirements
      zhmax=100.
      pgevcmin=0.1
      dhmax=20.
      chi2max=100.
c
      Chi2Cut(1)=50.
      Chi2Cut(2)=50.
c
      CalMipCall=1
      Mdebug=0
c-- initialize MC flag. Then it is set internally after 1st call.
      montecarlo=-1
c
      End
c