Merge branch 'devel' into AFM

[unres.git] / source / unres / src_MD-M-newcorr / arcos.f

diff --git a/source/unres/src_MD-M-newcorr/arcos.f b/source/unres/src_MD-M-newcorr/arcos.f
new file mode 100644 (file)
index 0000000..f054118
--- /dev/null
+++ b/source/unres/src_MD-M-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=PIPOL*(1.0d0-DSIGN(1.0D0,X))
+      RETURN
+    1 ARCOS=DACOS(X)
+      RETURN
+      END