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