#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---------------------------------------------------------------------------