Subroutine MAMINI(iopt,ierr)
*    ==============================
*
* Initialization, control cards and geometry (`hand coded') loading.
*
      Implicit None
*
#include "fwhmu.inc"
*
      Integer iopt,ierr
*
c--
      ierr=0
      Call GINIT
      Call ZeSaCa
      Call ZESMAF
c--
c
c parameters and control cards
      Call MFMPAR
c
      if(iopt.gt.0) then
c MFEAZE init
       Call MFINI(ierr)
      endif
c
c local geomety loading
      Call MFGELO
*
      End
*