The same modifications like in @matrix, but there are problem

[unres.git] / source / unres / src_CSA_DiL / together.F

diff --git a/source/unres/src_CSA_DiL/together.F b/source/unres/src_CSA_DiL/together.F
index 8bc9d7a..e4c042a 100644 (file)
--- 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