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=77e744d05a05a68f4b66fd92a6705dcaf640a65d;hb=9ad5403ff42e00836e5821d625cb48bf67332064;hp=9ab45102c12aa482966d11726fe08d40fe94de89;hpb=3a3ee5013eef26f00c82b6948724fd9c54accc15;p=unres.git

diff --git a/source/unres/src_CSA/readrtns_csa.F b/source/unres/src_CSA/readrtns_csa.F
index 9ab4510..77e744d 100644
--- a/source/unres/src_CSA/readrtns_csa.F
+++ b/source/unres/src_CSA/readrtns_csa.F
@@ -808,9 +808,6 @@ c            call gen_rand_conf(itmp,*31)
 
       endif 
 C Generate distance constraints, if the PDB structure is to be regularized. 
-      if (nthread.gt.0) then
-        call read_threadbase
-      endif
       call setup_var
       if (me.eq.king .or. .not. out1file)
      & call intout