integer ntmx,nsmx parameter (ntmx=100000,nsmx=@nspecies@)