arcos = 0.5D0*(PI-DSIGN(1.0D0,X)*PI)

[unres.git] / source / wham / src / COMMON.PEPTCONT

      integer ncont_pept_ref,icont_pept_ref,ncont_frag_ref,
     & icont_frag_ref,isec_ref
      common /peptcont/ ncont_pept_ref,
     & icont_pept_ref(2,maxcont),
     & ncont_frag_ref(mmaxfrag),
     & icont_frag_ref(2,maxcont,mmaxfrag),
     & isec_ref(maxres)