X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Farcos.f;h=1e355ecad7feb955e9eb2e21432b0a5829ff26f8;hb=0d079e7aa471dbcbaed6a9cc98880425c0132437;hp=f054118a1022be3f84f9a3a80bc64c15caebfbc7;hpb=90108059af40475602784720a7b8fa3dc6869696;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