text:       integer, parameter     :: nlt=33
        integer, parameter     :: npr=15
        integer, parameter     :: nhn=12
        integer, parameter     :: npar=npr
        integer, parameter     :: ncld=24
  !      data npst,npnd /3,17/
  