X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MIN%2Funres_min.F;fp=source%2Funres%2Fsrc_MIN%2Funres_min.F;h=3cdbeef76ccf87505a5bfec02cb7d008731b9ea5;hb=8893a1b93e875425e4b7ceb78242d488665af7b8;hp=1e97d6e02ccc3cead7fe9993a18557a1d25cba4e;hpb=0f73a6b9ef77a6dc304a7aa1251e4487f3dc233a;p=unres.git

diff --git a/source/unres/src_MIN/unres_min.F b/source/unres/src_MIN/unres_min.F
index 1e97d6e..3cdbeef 100644
--- a/source/unres/src_MIN/unres_min.F
+++ b/source/unres/src_MIN/unres_min.F
@@ -141,6 +141,18 @@ c      call hairpin(.true.,nharp,iharp)
 c      call secondary2(.true.)
       if (minim) then
 
+crc overlap test
+        if (overlapsc) then
+          print *, 'Calling OVERLAP_SC'
+          call overlap_sc(fail)
+        endif
+
+        if (searchsc) then
+          call sc_move(2,nres-1,10,1d10,nft_sc,etot)
+          print *,'SC_move',nft_sc,etot
+          write(iout,*) 'SC_move',nft_sc,etot
+        endif
+
         if (dccart) then
           print *, 'Calling MINIM_DC'
 #ifdef MPI