From 356bdba5c7b46119bfb956e6f5b3ebfe314c4394 Mon Sep 17 00:00:00 2001 From: sfilippone Date: Fri, 13 Mar 2026 14:07:57 +0100 Subject: [PATCH] Fix intent on base_vect%reinit --- base/modules/serial/psb_c_base_vect_mod.F90 | 2 +- base/modules/serial/psb_d_base_vect_mod.F90 | 2 +- base/modules/serial/psb_i_base_vect_mod.F90 | 2 +- base/modules/serial/psb_l_base_vect_mod.F90 | 2 +- base/modules/serial/psb_s_base_vect_mod.F90 | 2 +- base/modules/serial/psb_z_base_vect_mod.F90 | 2 +- 6 files changed, 6 insertions(+), 6 deletions(-) diff --git a/base/modules/serial/psb_c_base_vect_mod.F90 b/base/modules/serial/psb_c_base_vect_mod.F90 index a30e2547..3fc0b87b 100644 --- a/base/modules/serial/psb_c_base_vect_mod.F90 +++ b/base/modules/serial/psb_c_base_vect_mod.F90 @@ -422,7 +422,7 @@ contains use psi_serial_mod use psb_realloc_mod implicit none - class(psb_c_base_vect_type), intent(out) :: x + class(psb_c_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: clear logical :: clear_ diff --git a/base/modules/serial/psb_d_base_vect_mod.F90 b/base/modules/serial/psb_d_base_vect_mod.F90 index 1e6f4575..22e57cd8 100644 --- a/base/modules/serial/psb_d_base_vect_mod.F90 +++ b/base/modules/serial/psb_d_base_vect_mod.F90 @@ -429,7 +429,7 @@ contains use psi_serial_mod use psb_realloc_mod implicit none - class(psb_d_base_vect_type), intent(out) :: x + class(psb_d_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: clear logical :: clear_ diff --git a/base/modules/serial/psb_i_base_vect_mod.F90 b/base/modules/serial/psb_i_base_vect_mod.F90 index 21413168..e4e19a9d 100644 --- a/base/modules/serial/psb_i_base_vect_mod.F90 +++ b/base/modules/serial/psb_i_base_vect_mod.F90 @@ -355,7 +355,7 @@ contains use psi_serial_mod use psb_realloc_mod implicit none - class(psb_i_base_vect_type), intent(out) :: x + class(psb_i_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: clear logical :: clear_ diff --git a/base/modules/serial/psb_l_base_vect_mod.F90 b/base/modules/serial/psb_l_base_vect_mod.F90 index 874c097c..91ed2968 100644 --- a/base/modules/serial/psb_l_base_vect_mod.F90 +++ b/base/modules/serial/psb_l_base_vect_mod.F90 @@ -356,7 +356,7 @@ contains use psi_serial_mod use psb_realloc_mod implicit none - class(psb_l_base_vect_type), intent(out) :: x + class(psb_l_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: clear logical :: clear_ diff --git a/base/modules/serial/psb_s_base_vect_mod.F90 b/base/modules/serial/psb_s_base_vect_mod.F90 index ef35fc8a..b448d54e 100644 --- a/base/modules/serial/psb_s_base_vect_mod.F90 +++ b/base/modules/serial/psb_s_base_vect_mod.F90 @@ -429,7 +429,7 @@ contains use psi_serial_mod use psb_realloc_mod implicit none - class(psb_s_base_vect_type), intent(out) :: x + class(psb_s_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: clear logical :: clear_ diff --git a/base/modules/serial/psb_z_base_vect_mod.F90 b/base/modules/serial/psb_z_base_vect_mod.F90 index 14197408..79d45a9c 100644 --- a/base/modules/serial/psb_z_base_vect_mod.F90 +++ b/base/modules/serial/psb_z_base_vect_mod.F90 @@ -422,7 +422,7 @@ contains use psi_serial_mod use psb_realloc_mod implicit none - class(psb_z_base_vect_type), intent(out) :: x + class(psb_z_base_vect_type), intent(inout) :: x integer(psb_ipk_), intent(out) :: info logical, intent(in), optional :: clear logical :: clear_