Adasko's dir

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

diff --git a/source/cluster/wham/src-NEWSC/arcos.f b/source/cluster/wham/src-NEWSC/arcos.f
new file mode 100644 (file)
index 0000000..052a1e4
--- /dev/null
+++ b/source/cluster/wham/src-NEWSC/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(X,1.0D0)*PI)
+      RETURN
+    1 ARCOS=DACOS(X)
+      RETURN
+      END