comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-28 22:25:48 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

changed format

Browse source
This commit is contained in:
Edoardo Apra 2003-05-05 17:45:44 +00:00
parent 8fb9b9e047
commit 5428eaaf5d
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/nwdft/scf_dft/dft_densm.F
View file

@ -4,7 +4,7 @@
, iter,search0,
. fon, nel_fon,nmo_fon,
. spinset)
C$Id: dft_densm.F,v 1.34 2002-07-14 05:15:44 edo Exp $
C$Id: dft_densm.F,v 1.35 2003-05-05 17:45:44 edo Exp $
implicit none
#include "bas.fh"
#include "geom.fh"
@ -149,7 +149,7 @@ c
write(LuOut,1688) ssmear,
, efermi(1),tdots,(i,ntot(i),i=1,ipol)
1688 format(' sigma= ',d7.2,
, ' eFermi= ',f8.5,' T*S= ',f9.6,
, ' eFermi= ',f8.5,' T*S= ',1p,e9.2,
, 2(' nel(',i1,')=',f8.2)/)
C write(LuOut,1723) (focc(i),i=1,nbf*ipol)
C 1723 format(' Foccs ',(