           implicit real*8 (a-h,o-z)
      parameter (natmax=100000,neimax=150,ngrid=5010,ngridar=5010,
     1     ntable=10000,
     1     nelmax=3,natcmax=500,icmax=30,icmay=30,icmaz=30,neimx=3000)

