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