integer Npmx
       integer Nmol_mx
       integer Nchar_mx

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