else
print *,'refstr=',refstr
if (refstr) call rms_nac_nnc(rms,frac,frac_nn,co,.true.)
+ print *,"after rms_nac_ncc"
call briefout(0,etot)
endif
if (outpdb) call pdbout(etot,titel(:32),ipdb)
if (outmol2) call mol2out(etot,titel(:32))
-!elwrite(iout,*) "after exec_eeval_or_minim"
+ write(iout,*) "after exec_eeval_or_minim"
return
end subroutine exec_eeval_or_minim
!-----------------------------------------------------------------------------