X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA_DiL%2Ftogether.F;h=e4c042a32523cea8bb29ee12496ffecef57443e3;hb=866c6bb3445c32af6d43b6eea1c565ae7d78e7f2;hp=8bc9d7a4b7215c336513a58ef6ba42cabdedb696;hpb=c6cc12f77df252d56c9480ce4822c58fc8981c32;p=unres.git

diff --git a/source/unres/src_CSA_DiL/together.F b/source/unres/src_CSA_DiL/together.F
index 8bc9d7a..e4c042a 100644
--- a/source/unres/src_CSA_DiL/together.F
+++ b/source/unres/src_CSA_DiL/together.F
@@ -756,6 +756,7 @@ cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
         call mpi_abort(mpi_comm_world,ierror,ierrcode)
       endif
       do n=1,nconf
+        print*,"n=",n
 c  pull out external and internal variables for next start
         call putx(xin,n,rad)
 !        write (iout,*) 'XIN from FEEDIN N=',n
@@ -813,6 +814,7 @@ c  retrieve latest results
          if(iw_pdb.gt.0) 
      &        call write_csa_pdb(xout,eout,nft,ind(1),iw_pdb)
         endif
+        print *,"koniec petli n=",n
       enddo
 cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
 c  no more input