      parameter(mnx=402 ,mny=402,mlsour=600,mnmat=20)
      parameter(mngx=402, mngy=402)
      parameter(ntstep=10000,mnrec=150,mtsnap=10)
