- if (out_int) call briefout(0,etot)
- if (out_cart) then
- cartname=prefix(:ilen(prefix))//'.x'
- potE=etot
- call cartoutx(0.0d0)
- endif
- if (refstr) call rms_nac_nnc(rms,frac,frac_nn,co,.true.)
+#ifdef LBFGS
+ write (iout,'(a,a9)') 'LBFGS return code:',status
+ write (iout,'(a,i20)') '# of energy evaluations:',nfun+1
+ write (iout,'(a,f16.3)')'# of energy evaluations/sec:',evals
+#else