X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Fchainbuild.F;h=c528ea596257632b367b67ecbabdc427b91064cc;hb=4ca1e88a5f4f23619f7eaa7edcc35d5c4aca9b8c;hp=c4970d37dc1370f0977da443354c7190502afb77;hpb=0bb81c1c3180a2079d70af7dd534295e1e0b1e4c;p=unres.git

diff --git a/source/unres/src_MD-M/chainbuild.F b/source/unres/src_MD-M/chainbuild.F
index c4970d3..c528ea5 100644
--- a/source/unres/src_MD-M/chainbuild.F
+++ b/source/unres/src_MD-M/chainbuild.F
@@ -18,7 +18,12 @@ C Set lprn=.true. for debugging
       lprn = .false.
       perbox=.false.
       fail=.false.
-       if (perbox) then
+      print *, 'enter chainbuild' 
+      call chainbuild_cart
+      return
+      end
+#ifdef DEBUG
+      if (perbox) then
       cost=dcos(theta(3))
       sint=dsin(theta(3))
       print *,'before refsys'
@@ -174,6 +179,7 @@ C
       endif
       return
       end
+#endif
 c-------------------------------------------------------------------------
       subroutine orig_frame
 C