arcos = 0.5D0*(PI-DSIGN(1.0D0,X)*PI)
[unres.git] / source / wham / src / COMMON.PROT
1       integer ntot(maxslice),isampl(max_parm),nslice
2       common /protein/ ntot,isampl,nslice