- if (outpdb) call pdbout(etot,titel(:50),ipdb)
- if (outmol2) call mol2out(etot,titel(:50))
+ potE=etot
+#ifdef NOXDR
+ if (outx) call cartout(0.0d0)
+#else
+ if (outx) call cartoutx(0.0d0)
+#endif
+ if (outpdb) call pdbout(etot,titel(:32),ipdb)
+ if (outmol2) call mol2out(etot,titel(:32))
+ if (minim .and. iretcode.ne.4) call check_ecartint