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

Incorrect format

This commit is contained in:
Paolo Giannozzi 2021-08-27 15:40:18 +02:00
parent ecb65132bb
commit ca4e918d22
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
CPV/src/chargedensity.f90
View File

@ -1099,7 +1099,7 @@ SUBROUTINE rhov(rhovan,rhog,rhor)
CALL fftx_add_threed2oned_gamma( dfftp, v, rhog(:,isup), rhog(:,isdw) )
!
IF( iverbosity > 1 ) THEN
WRITE( stdout,'(a,2f12.8,/,a,2f12.8)') &
WRITE( stdout,'(a,f12.8,/,a,f12.8)') &
& ' rhov: n_v(g=0) up = ',omega*DBLE (rhog(1,isup)), &
& ' rhov: n_v(g=0) down = ',omega*DBLE(rhog(1,isdw))
END IF