X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA%2Freadrtns_csa.F;h=17b2165cfa18c1d89b2ba66fdb4ff93790fac0ff;hb=555c3604b70e0fdefa1eb8c8692f25705200fec2;hp=a070596f0447ce54ad406861a48af9cd937964dc;hpb=862af3cfd0ee00d51a4f901d8141b05ba17a822d;p=unres.git

diff --git a/source/unres/src_CSA/readrtns_csa.F b/source/unres/src_CSA/readrtns_csa.F
index a070596..17b2165 100644
--- a/source/unres/src_CSA/readrtns_csa.F
+++ b/source/unres/src_CSA/readrtns_csa.F
@@ -577,8 +577,8 @@ 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
-     &      .and. wdfa_nei.eq.0.0 .and. wdfa_beta.eq.0.0)) then
+      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!'
        call read_dfa_info