C     =======================================
      subroutine mbzes(BMuon1,BMuon2,BMmmtrk)
C     =======================================

      implicit none

#include "mbxysg.inc"
#include "mbts.inc"
#include "partap.inc"

      integer i,BMuon1,BMuon2
      real    pmax,BMmmtrk
c
        BMuon1 = CouTab(mbxysg)
        If( BMuon1.Gt.3 )BMuon1=3
        BMuon2 = CouTab(mbts)
        If( BMuon2.Gt.7 )BMuon2=7
        BMmmtrk = 0.
        pmax = 0.
        If (CouTab(MBXYSG).gt.0) Then
           Do i = 1, CouTab(MBXYSG)
              Call fettab(MBXYSG,id,i)
              If (MBXYSG_InvP.ne.rnull) then
                if(abs(1./MBXYSG_InvP).gt.pmax)then
                  pmax=abs(1./MBXYSG_InvP)
                  BMmmtrk = 1./MBXYSG_InvP
                endif
              endif
           End Do
        End If
c
        end