arcos = 0.5D0*(PI-DSIGN(1.0D0,X)*PI)
[unres.git] / source / wham / src-M / arcos.f
2016-03-18 Cezary Czaplewskiarcos = 0.5D0*(PI-DSIGN(1.0D0,X)*PI)
2012-02-25 Dawid Jagiełaadded source code v.3.0