integer Npmx integer Nmol_mx integer Nchar_mx parameter(Npmx=1000000) parameter(Nmol_mx=50) parameter(Nchar_mx=1000)