C Parameters of the virtual-bond-angle probability distribution
      common /thetas/ a0thet(ntyp),athet(2,ntyp),bthet(2,ntyp),
     &  polthet(0:3,ntyp),gthet(3,ntyp),theta0(ntyp),sig0(ntyp),
     &  sigc0(ntyp)
C Parameters of the side-chain probability distribution
      common /sclocal/ dsc(ntyp1),dsc_inv(ntyp1),bsc(maxlob,ntyp),
     &  censc(3,maxlob,ntyp),gaussc(3,3,maxlob,ntyp),dsc0(ntyp1),
     &    nlob(ntyp1)
C Virtual-bond lenghts
      common /peptbond/ vbl,vblinv,vblinv2,vbl_cis,vbl0
      common /indices/ loc_start,loc_end,ithet_start,ithet_end,
     &                 iphi_start,iphi_end