c mdims.inc
      common /mdims/ isweep,
     $    mi,mip1,mip2,mip3,mip4,mip5,mim1,mim2,mim3,mim4,
     $    mj,mjp1,mjp2,mjp3,mjp4,mjp5,mjm1,mjm2,mjm3,mjm4,
     $    mj2,mj2p1,mj2p2,mi2,mi2p1
	common/level/level3