fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-06 22:55:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix intent on base_vect%reinit

Browse Source
This commit is contained in:
sfilippone
2026-03-13 14:07:57 +01:00
parent e8c5c0b8b0
commit 356bdba5c7
6 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/serial/psb_c_base_vect_mod.F90
+1 -1
View File
@@ -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_
base/modules/serial/psb_d_base_vect_mod.F90
+1 -1
View File
@@ -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_
base/modules/serial/psb_i_base_vect_mod.F90
+1 -1
View File
@@ -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_
base/modules/serial/psb_l_base_vect_mod.F90
+1 -1
View File
@@ -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_
base/modules/serial/psb_s_base_vect_mod.F90
+1 -1
View File
@@ -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_
base/modules/serial/psb_z_base_vect_mod.F90
+1 -1
View File
@@ -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_