adam's update

[unres.git] / source / unres / src-HCD-5D / energy_split-sep.F

diff --git a/source/unres/src-HCD-5D/energy_split-sep.F b/source/unres/src-HCD-5D/energy_split-sep.F
index 4b4711c..c4f6dd4 100644 (file)
--- a/source/unres/src-HCD-5D/energy_split-sep.F
+++ b/source/unres/src-HCD-5D/energy_split-sep.F
@@ -190,6 +190,7 @@ C
       else
         call escp_soft_sphere(evdw2,evdw2_14)
       endif
+#ifdef FOURBODY
 C 
 C 12/1/95 Multi-body terms
 C
@@ -209,6 +210,7 @@ c     &" ecorr",ecorr," ecorr5",ecorr5," ecorr6",ecorr6," eturn6",eturn6
       if ((wcorr4.eq.0.0d0 .and. wcorr.gt.0.0d0) .and. ipot.lt.6) then
          call multibody_hb(ecorr,ecorr5,ecorr6,n_corr,n_corr1)
       endif
+#endif
 C 
 C If performing constraint dynamics, call the constraint energy
 C  after the equilibration time