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

diff --git a/source/unres/src_CSA/readrtns_csa.F b/source/unres/src_CSA/readrtns_csa.F
index a00df40..44709ce 100644
--- a/source/unres/src_CSA/readrtns_csa.F
+++ b/source/unres/src_CSA/readrtns_csa.F
@@ -287,10 +287,10 @@ C Read weights of the subsequent energy terms.
        call reada(weightcard,'WANG',wang,1.0D0)
        call reada(weightcard,'WSCLOC',wscloc,1.0D0)
 C     Juyong
-       call reada(weightcard,'WDFAD',wdfa_dist,1.0d0)
-       call reada(weightcard,'WDFAT',wdfa_tor,1.0d0)
-       call reada(weightcard,'WDFAN',wdfa_nei,1.0d0)
-       call reada(weightcard,'WDFAB',wdfa_beta,1.0d0)
+       call reada(weightcard,'WDFAD',wdfa_dist,0.0d0)
+       call reada(weightcard,'WDFAT',wdfa_tor,0.0d0)
+       call reada(weightcard,'WDFAN',wdfa_nei,0.0d0)
+       call reada(weightcard,'WDFAB',wdfa_beta,0.0d0)
 C       
        call reada(weightcard,'SCAL14',scal14,0.4D0)
        call reada(weightcard,'SCALSCP',scalscp,1.0d0)
@@ -577,10 +577,13 @@ C     Juyong:READ read_info
 C     READ fragment information!!
 C     both routines should be in dfa.F file!!
 
-      call init_dfa_vars
-      print*, 'init_dfa_vars finished!'
-      call read_dfa_info
-      print*, 'read_dfa_info finished!'
+      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
+       call init_dfa_vars
+       print*, 'init_dfa_vars finished!'
+       call read_dfa_info
+       print*, 'read_dfa_info finished!'
+      endif
 C
 C