Merge branch 'lipid' of mmka.chem.univ.gda.pl:unres into lipid

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

diff --git a/source/unres/src_MD-M/arcos.f b/source/unres/src_MD-M/arcos.f
index f054118..1e355ec 100644 (file)
--- a/source/unres/src_MD-M/arcos.f
+++ b/source/unres/src_MD-M/arcos.f
@@ -1,4 +1,4 @@
-      FUNCTION ARCOS(X)
+      double precision FUNCTION ARCOS(X)
       implicit real*8 (a-h,o-z)
       include 'COMMON.GEO'
       IF (DABS(X).LT.1.0D0) GOTO 1