From ca4e918d227c4253a151d31d311a087ac3633b95 Mon Sep 17 00:00:00 2001 From: Paolo Giannozzi Date: Fri, 27 Aug 2021 15:40:18 +0200 Subject: [PATCH] Incorrect format --- CPV/src/chargedensity.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/CPV/src/chargedensity.f90 b/CPV/src/chargedensity.f90 index f0fe8eddf..e0ff9d7d3 100644 --- a/CPV/src/chargedensity.f90 +++ b/CPV/src/chargedensity.f90 @@ -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