integer nspmx,np,ntabmx parameter(nspmx=@nspecies@,np=4000,ntabmx=200000)