X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA%2Freadrtns_csa.F;h=d9c1695fc80b53f17c14b1433f9ed85e538a02e3;hb=d2820032977a452e246daf616d04f0da25cb6e51;hp=44709cea108ddaf5ca8b93717fe0831aad931e6d;hpb=68923111d906210c48e2e03a97598fecd3ebd240;p=unres.git

diff --git a/source/unres/src_CSA/readrtns_csa.F b/source/unres/src_CSA/readrtns_csa.F
index 44709ce..d9c1695 100644
--- a/source/unres/src_CSA/readrtns_csa.F
+++ b/source/unres/src_CSA/readrtns_csa.F
@@ -578,7 +578,7 @@ 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
-     &            wdfa_nei.eq.0.0 .and. wdfa_beta.eq.0.0)) then
+     &      .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