INTEGER    MN,MN5,MN6
      PARAMETER (MN=4005,MN5=MN+5,MN6=MN+6)
      INTEGER    MNX
      PARAMETER (MNX=4005)