X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Frefsys.f;h=86b0524a25ba5a3a77df83f9466490f5d5d7f5cb;hb=40f0efa4001306152d5c1f00d3b9e754c60b7694;hp=ec620dffb26beb6d36102b07ccf17022876f2cfb;hpb=c092a8655963478b90eb630150c75ff5775f45f0;p=unres.git

diff --git a/source/unres/src_MD-M/refsys.f b/source/unres/src_MD-M/refsys.f
index ec620df..86b0524 100644
--- a/source/unres/src_MD-M/refsys.f
+++ b/source/unres/src_MD-M/refsys.f
@@ -9,10 +9,11 @@ c form a linear fragment. Returns vectors e1, e2, and e3.
       implicit real*8 (a-h,o-z)
       include 'DIMENSIONS'
       logical fail
+      double precision e1(3),e2(3),e3(3)
+      double precision u(3),z(3)
       include 'COMMON.IOUNITS'
       include 'COMMON.CHAIN'
-      include 'COMMON.REFSYS'
-      double precision coinc/1.0D-4/,align /1.0D-7/
+      double precision coinc/1.0D-13/,align /1.0D-13/
       fail=.false.
       s1=0.0
       s2=0.0