X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;ds=sidebyside;f=source%2Funres%2Fsrc_CSA%2Fenergy_p_new_barrier.F;h=f0f93efaafb2c780093e11eb5db75bdbe459c9fc;hb=5748cbbce5967bc99ce16ac1c862b261a5478280;hp=1a9044f046888738cb52b870264c24f86b979554;hpb=5d3ddac6dac9a886e7d58891564e0495be9f7fe8;p=unres.git

diff --git a/source/unres/src_CSA/energy_p_new_barrier.F b/source/unres/src_CSA/energy_p_new_barrier.F
index 1a9044f..f0f93ef 100644
--- a/source/unres/src_CSA/energy_p_new_barrier.F
+++ b/source/unres/src_CSA/energy_p_new_barrier.F
@@ -125,13 +125,13 @@ C
   107 continue
       
 C     JUYONG for dfa test!
-      call edfad(edfadis)
+      if (wdfa_dist.gt.0) call edfad(edfadis)
 c      print*, 'edfad is finished!', edfadis
-      call edfat(edfator)
+      if (wdfa_tor.gt.0) call edfat(edfator)
 c      print*, 'edfat is finished!', edfator
-      call edfan(edfanei)
+      if (wdfa_nei.gt.0) call edfan(edfanei)
 c      print*, 'edfan is finished!', edfanei
-      call edfab(edfabet)
+      if (wdfa_beta.gt.0) call edfab(edfabet)
 c      print*, 'edfab is finished!', edfabet
 C      stop
 C     JUYONG