X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Farcos.f;h=1e355ecad7feb955e9eb2e21432b0a5829ff26f8;hb=7d64cc3ff0edffb6aa37e309e4375f58bd5875a2;hp=f054118a1022be3f84f9a3a80bc64c15caebfbc7;hpb=7f26ead9a8f9804b8426debe2d931dab4763fc3f;p=unres.git

diff --git a/source/unres/src_MD-M/arcos.f b/source/unres/src_MD-M/arcos.f
index f054118..1e355ec 100644
--- 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