double precision zz_pdb,resol
      integer npoint_pdb,npoint_pdb_all,npdbtor,incr_theta,incr_gam,
     & n_calka,istart_calka,iend_calka,ipdbtyp
      common /pdbstat/ zz_pdb(3,maxpoint),resol(maxpoint),npoint_pdb,
     & npoint_pdb_all,npdbtor(-ntyp:ntyp,-ntyp:ntyp),
     & ipdbtyp(2,maxpoint),
     & incr_theta,incr_gam,n_calka,istart_calka,iend_calka