double precision energy(0:n_ene)
double precision energy_long(0:n_ene),energy_short(0:n_ene)
double precision varia(maxvar)
+ integer nharp,iharp(4,maxres/3)
if (indpdb.eq.0) call chainbuild
#ifdef MPI
time00=MPI_Wtime()
#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---------------------------------------------------------------------------