X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_CSA_DiL%2Ftogether.F;h=e4c042a32523cea8bb29ee12496ffecef57443e3;hb=05283f438be84bc574c0d6aad77f39de1303d679;hp=8bc9d7a4b7215c336513a58ef6ba42cabdedb696;hpb=6c23f8d4f1fe8f0479fb8c6b16ff17e6c59c03d2;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