X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA_DiL%2Frefsys.f;fp=source%2Funres%2Fsrc_CSA_DiL%2Frefsys.f;h=b57c201f2740c7316e88694d7eeb5c3b5d2b3464;hb=fe9e3a2f1191191edd529c64aba73f2b98723a47;hp=8efc1ea84a1d1c2e7090364bc7fb072e5ba6c402;hpb=c89d7d207940ebb57e0042cb35ab65d0f8a4b55e;p=unres.git

diff --git a/source/unres/src_CSA_DiL/refsys.f b/source/unres/src_CSA_DiL/refsys.f
index 8efc1ea..b57c201 100644
--- a/source/unres/src_CSA_DiL/refsys.f
+++ b/source/unres/src_CSA_DiL/refsys.f
@@ -11,6 +11,7 @@ c form a linear fragment. returns vectors e1, e2, and e3.
       logical fail
       double precision e1(3),e2(3),e3(3)
       double precision u(3),z(3)
+      include 'COMMON.IOUNITS'
       include "COMMON.CHAIN"
       data coinc /1.0d-13/,align /1.0d-13/
       fail=.false.