X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Fchainbuild.F;fp=source%2Funres%2Fsrc_MD-M%2Fchainbuild.F;h=157baa92d394fc399c4a47c70193133ec987c813;hb=8df996bdc4bc56846b3799e9a2d47c24a9273125;hp=0721b7277ada48c6944548149d18a624ad3b4f37;hpb=ad2687da4ea0c0ddde6c400a60c4817a689b3dff;p=unres.git

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