integer pn,pm_S,pr_S,pnelem,pne,pn_atm,pn_noy,pnzc,pmc_S,         &
     &     pne_atm,pne_noy,pndis,pnlist

      parameter (pn=810,pm_S=2,pr_S=1,pnelem=5,pne=6,pn_atm=20,         &
     &     pn_noy=50)
      parameter (pnzc=4,pmc_S=4,pne_atm=4,pne_noy=4,pndis=10)
      parameter (pnlist=10)