integer, parameter     :: nlt=33
      integer, parameter     :: npr=15
      integer, parameter     :: nhn=12
      integer, parameter     :: nh=200,nch=48,ncd=41
      integer, parameter     :: npar=npr
      data npst,npnd /3,17/