Merge branch 'devel' into AFM

[unres.git] / source / wham / src-NEWSC-NEWCORR / arcos.f

diff --git a/source/wham/src-NEWSC-NEWCORR/arcos.f b/source/wham/src-NEWSC-NEWCORR/arcos.f
new file mode 100644 (file)
index 0000000..69810ea
--- /dev/null
+++ b/source/wham/src-NEWSC-NEWCORR/arcos.f
@@ -0,0 +1,9 @@
+      FUNCTION ARCOS(X)
+      implicit real*8 (a-h,o-z)
+      include 'COMMON.GEO'
+      IF (DABS(X).LT.1.0D0) GOTO 1
+      ARCOS=0.5D0*(PI+DSIGN(1.0D0,X)*PI)
+      RETURN
+    1 ARCOS=DACOS(X)
+      RETURN
+      END