Use stdout for printing

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(:)