multichain cleaning output
[unres.git] / source / unres / src_MD / unres.F
index 5731d5a..e50438e 100644 (file)
@@ -287,7 +287,7 @@ crc overlap test
 #endif
       if (outpdb) call pdbout(etot,titel(:32),ipdb)
       if (outmol2) call mol2out(etot,titel(:32))
-      if (iretcode.ne.4) call check_ecartint
+      if (minim .and. iretcode.ne.4) call check_ecartint
       return
       end
 c---------------------------------------------------------------------------