scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

cleanup 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@995 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
cavazzon 2004-06-24 10:30:00 +00:00
parent 20b7d4642e
commit d2e97fbaa5
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Modules/energies.f90
View File

@ -137,16 +137,16 @@
IF( PRESENT ( edft ) ) THEN
IF( tsic ) THEN
WRITE( stdout,1) edft%ETOT, edft%EKIN, edft%EHT,&
edft%ESELF, edft%ESR, edft%EH, &
WRITE( stdout,1) edft%etot, edft%ekin, edft%eht, &
edft%eself, edft%esr, edft%eh, &
edft%ehte, edft%self_ehte, edft%ehti, &
edft%EPSEU, edft%ENL, edft%SXC, edft%self_SXC,&
edft%EVDW, edft%emkin, vxc, self_vxc
edft%epseu, edft%enl, edft%exc, edft%self_sxc, &
edft%evdw, edft%emkin, vxc, self_vxc
ELSE
WRITE( stdout,2) edft%ETOT, edft%EKIN, edft%EHT,&
edft%ESELF, edft%ESR, edft%EH, &
edft%ehte, edft%ehti, edft%EPSEU, edft%ENL, edft%SXC, &
edft%EVDW, edft%emkin
WRITE( stdout,2) edft%etot, edft%ekin, edft%eht, &
edft%eself, edft%esr, edft%eh, &
edft%ehte, edft%ehti, edft%epseu, edft%enl, edft%exc, &
edft%evdw, edft%emkin
END IF
ELSE
WRITE( stdout,1) ETOT, EKIN, EHT, ESELF, ESR, EPSEU, ENL, EXC, EVDW