From aa40279614f313ccfc4fc41dd028f8c3ac76d975 Mon Sep 17 00:00:00 2001 From: Cezary Czaplewski Date: Wed, 9 May 2012 14:21:21 +0200 Subject: [PATCH] compilation of DFA/CSA code --- source/unres/src_CSA/readrtns_csa.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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!' -- 1.7.9.5