arcos = 0.5D0*(PI-DSIGN(1.0D0,X)*PI)
[unres.git] / source / cluster / wham / src / COMMON.TEMPFAC
1       double precision tempfac(2,maxres)
2       common /factemp/ tempfac