From: Cezary Czaplewski <czarek@chem.univ.gda.pl>
Date: Wed, 9 May 2012 12:21:21 +0000 (+0200)
Subject: compilation of DFA/CSA code
X-Git-Tag: v.3.3.0~5^2~274
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=commitdiff_plain;h=aa40279614f313ccfc4fc41dd028f8c3ac76d975;p=unres.git

compilation of DFA/CSA code
---

diff --git a/source/unres/src_CSA/readrtns_csa.F b/source/unres/src_CSA/readrtns_csa.F
index 44709ce..df144f4 100644
--- a/source/unres/src_CSA/readrtns_csa.F
+++ b/source/unres/src_CSA/readrtns_csa.F
@@ -577,7 +577,7 @@ C     Juyong:READ read_info
 C     READ fragment information!!
 C     both routines should be in dfa.F file!!
 
-      if (.not. (wdfa_dist.eq.0.0 .and. wdfa_tor.eq.0.0
+      if (.not. (wdfa_dist.eq.0.0 .and. wdfa_tor.eq.0.0 .and.
      &            wdfa_nei.eq.0.0 .and. wdfa_beta.eq.0.0)) then
        call init_dfa_vars
        print*, 'init_dfa_vars finished!'