X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Fchainbuild.F;h=c528ea596257632b367b67ecbabdc427b91064cc;hb=fbad69b401dd3265da402f76b365aa80f6a99135;hp=766e14a6861e27db3fdb50d1f7be7c04d6a3183e;hpb=845b24e5c8d81526cc47f5f95982661aa6eddcfa;p=unres.git diff --git a/source/unres/src_MD-M/chainbuild.F b/source/unres/src_MD-M/chainbuild.F index 766e14a..c528ea5 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