X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA%2Fenergy_p_new_barrier.F;fp=source%2Funres%2Fsrc_CSA%2Fenergy_p_new_barrier.F;h=a46c47d8e854b05ea4a19c78f383794ef431087c;hb=8fe766bfa1844f41b8350fa5666190090275c86b;hp=11bd00707df3ecffb50ff68b6cd84f931f9792a6;hpb=deb02dfebfe0faeb2b03fbb9221bbbc85d4d269a;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 11bd007..a46c47d 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