From 84c4a56472e80e5e2bb2d5682dc614952ca0671e Mon Sep 17 00:00:00 2001 From: nscolonna Date: Thu, 29 Feb 2024 15:43:38 +0100 Subject: [PATCH] Use stdout for printing --- CPV/pseudopot_sub.f90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/CPV/pseudopot_sub.f90 b/CPV/pseudopot_sub.f90 index 95c6d2cf..49284053 100644 --- a/CPV/pseudopot_sub.f90 +++ b/CPV/pseudopot_sub.f90 @@ -234,6 +234,7 @@ SUBROUTINE build_pstab_x( ) USE pseudopotential, ONLY : vps_sp, dvps_sp, xgtab USE local_pseudo, ONLY : vps0 USE betax, ONLY : mmx + USE io_global, ONLY : stdout IMPLICIT NONE @@ -279,7 +280,7 @@ SUBROUTINE build_pstab_x( ) !IF ( upf(is)%tcoulombp .and. .not.allocated(upf(is)%vloc) ) then ! NsC: Not sure about the IF condition on the ASSOCIATED statement... IF ( upf(is)%tcoulombp .AND. .NOT. ASSOCIATED(upf(is)%vloc) ) then - WRITE(*, '(3x, "COULOMB PSEUDO Z/r; Z =",I4 )') INT(zv(is)) + WRITE(stdout, '(3x, "COULOMB PSEUDO Z/r; Z =",I4 )') INT(zv(is)) ! ugly workaround for 1/r potentials ALLOCATE(upf(is)%vloc(rgrid(is)%mesh)) upf(is)%vloc(:) = - 2.0_dp* zv(is) / rgrid(is)%r(:)