H A D | scan_driver.f90 | 49 real(wp) :: etot,efix local 90 & egap,etemp,maxiter,maxcycle,etot,g,sigma,optlevel,pr,.true.,fail) 94 write(env%unit,'(" current energy:",1x,f20.8)') etot 96 write(env%unit,'("unbiased energy:",1x,f20.8)') etot-efix 98 call writeMolecule(mol, ilog, fileType%xyz, energy=etot-efix) 121 & egap,etemp,maxiter,maxcycle,etot,g,sigma,optlevel,pr,.true.,fail) 125 write(env%unit,'(" current energy:",1x,f20.8)') etot 127 write(env%unit,'("unbiased energy:",1x,f20.8)') etot-efix 129 call writeMolecule(mol, ilog, fileType%xyz, energy=etot-efix)
|