fdurastante
/
psblas3
mirror of https://github.com/sfilippone/psblas3.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix intent in precbld to align with AMG

Browse Source
remap-coarse
sfilippone 2 months ago
parent d0e3ac4166
commit ca458870b1
12 changed files with 20 additions and 28 deletions
Show Stats Download Patch File Download Diff File

2
base/modules/serial/psb_c_base_vect_mod.F90
Unescape Escape View File

@ -426,8 +426,6 @@ contains
integer(psb_ipk_), intent(out) :: info
logical, intent(in), optional :: clear
logical :: clear_
info = 0
if (present(clear)) then
clear_ = clear

2
base/modules/serial/psb_d_base_vect_mod.F90
Unescape Escape View File

@ -434,8 +434,6 @@ contains
logical, intent(in), optional :: clear
logical :: clear_
info = 0
if (present(clear)) then
clear_ = clear
else

2
base/modules/serial/psb_s_base_vect_mod.F90
Unescape Escape View File

@ -434,8 +434,6 @@ contains
logical, intent(in), optional :: clear
logical :: clear_
info = 0
if (present(clear)) then
clear_ = clear
else

2
base/modules/serial/psb_z_base_vect_mod.F90
Unescape Escape View File

@ -427,8 +427,6 @@ contains
logical, intent(in), optional :: clear
logical :: clear_
info = 0
if (present(clear)) then
clear_ = clear
else

8
prec/impl/psb_cprecbld.f90
Unescape Escape View File

@ -35,10 +35,10 @@ subroutine psb_cprecbld(a,desc_a,p,info,amold,vmold,imold)
use psb_c_prec_type, psb_protect_name => psb_cprecbld
Implicit None
type(psb_cspmat_type), intent(in), target :: a
type(psb_desc_type), intent(inout), target :: desc_a
class(psb_cprec_type),intent(inout), target :: p
integer(psb_ipk_), intent(out) :: info
type(psb_cspmat_type), intent(inout), target :: a
type(psb_desc_type), intent(inout), target :: desc_a
class(psb_cprec_type),intent(inout), target :: p
integer(psb_ipk_), intent(out) :: info
class(psb_c_base_sparse_mat), intent(in), optional :: amold
class(psb_c_base_vect_type), intent(in), optional :: vmold
class(psb_i_base_vect_type), intent(in), optional :: imold

8
prec/impl/psb_dprecbld.f90
Unescape Escape View File

@ -35,10 +35,10 @@ subroutine psb_dprecbld(a,desc_a,p,info,amold,vmold,imold)
use psb_d_prec_type, psb_protect_name => psb_dprecbld
Implicit None
type(psb_dspmat_type), intent(in), target :: a
type(psb_desc_type), intent(inout), target :: desc_a
class(psb_dprec_type),intent(inout), target :: p
integer(psb_ipk_), intent(out) :: info
type(psb_dspmat_type), intent(inout), target :: a
type(psb_desc_type), intent(inout), target :: desc_a
class(psb_dprec_type),intent(inout), target :: p
integer(psb_ipk_), intent(out) :: info
class(psb_d_base_sparse_mat), intent(in), optional :: amold
class(psb_d_base_vect_type), intent(in), optional :: vmold
class(psb_i_base_vect_type), intent(in), optional :: imold

8
prec/impl/psb_sprecbld.f90
Unescape Escape View File

@ -35,10 +35,10 @@ subroutine psb_sprecbld(a,desc_a,p,info,amold,vmold,imold)
use psb_s_prec_type, psb_protect_name => psb_sprecbld
Implicit None
type(psb_sspmat_type), intent(in), target :: a
type(psb_desc_type), intent(inout), target :: desc_a
class(psb_sprec_type),intent(inout), target :: p
integer(psb_ipk_), intent(out) :: info
type(psb_sspmat_type), intent(inout), target :: a
type(psb_desc_type), intent(inout), target :: desc_a
class(psb_sprec_type),intent(inout), target :: p
integer(psb_ipk_), intent(out) :: info
class(psb_s_base_sparse_mat), intent(in), optional :: amold
class(psb_s_base_vect_type), intent(in), optional :: vmold
class(psb_i_base_vect_type), intent(in), optional :: imold

8
prec/impl/psb_zprecbld.f90
Unescape Escape View File

@ -35,10 +35,10 @@ subroutine psb_zprecbld(a,desc_a,p,info,amold,vmold,imold)
use psb_z_prec_type, psb_protect_name => psb_zprecbld
Implicit None
type(psb_zspmat_type), intent(in), target :: a
type(psb_desc_type), intent(inout), target :: desc_a
class(psb_zprec_type),intent(inout), target :: p
integer(psb_ipk_), intent(out) :: info
type(psb_zspmat_type), intent(inout), target :: a
type(psb_desc_type), intent(inout), target :: desc_a
class(psb_zprec_type),intent(inout), target :: p
integer(psb_ipk_), intent(out) :: info
class(psb_z_base_sparse_mat), intent(in), optional :: amold
class(psb_z_base_vect_type), intent(in), optional :: vmold
class(psb_i_base_vect_type), intent(in), optional :: imold

2
prec/psb_c_prec_type.f90
Unescape Escape View File

@ -85,7 +85,7 @@ module psb_c_prec_type
& psb_c_base_sparse_mat, psb_spk_, psb_c_base_vect_type, &
& psb_cprec_type, psb_i_base_vect_type
implicit none
type(psb_cspmat_type), intent(in), target :: a
type(psb_cspmat_type), intent(inout), target :: a
type(psb_desc_type), intent(inout), target :: desc_a
class(psb_cprec_type), intent(inout), target :: prec
integer(psb_ipk_), intent(out) :: info

2
prec/psb_d_prec_type.f90
Unescape Escape View File

@ -85,7 +85,7 @@ module psb_d_prec_type
& psb_d_base_sparse_mat, psb_dpk_, psb_d_base_vect_type, &
& psb_dprec_type, psb_i_base_vect_type
implicit none
type(psb_dspmat_type), intent(in), target :: a
type(psb_dspmat_type), intent(inout), target :: a
type(psb_desc_type), intent(inout), target :: desc_a
class(psb_dprec_type), intent(inout), target :: prec
integer(psb_ipk_), intent(out) :: info

2
prec/psb_s_prec_type.f90
Unescape Escape View File

@ -85,7 +85,7 @@ module psb_s_prec_type
& psb_s_base_sparse_mat, psb_spk_, psb_s_base_vect_type, &
& psb_sprec_type, psb_i_base_vect_type
implicit none
type(psb_sspmat_type), intent(in), target :: a
type(psb_sspmat_type), intent(inout), target :: a
type(psb_desc_type), intent(inout), target :: desc_a
class(psb_sprec_type), intent(inout), target :: prec
integer(psb_ipk_), intent(out) :: info

2
prec/psb_z_prec_type.f90
Unescape Escape View File

@ -85,7 +85,7 @@ module psb_z_prec_type
& psb_z_base_sparse_mat, psb_dpk_, psb_z_base_vect_type, &
& psb_zprec_type, psb_i_base_vect_type
implicit none
type(psb_zspmat_type), intent(in), target :: a
type(psb_zspmat_type), intent(inout), target :: a
type(psb_desc_type), intent(inout), target :: desc_a
class(psb_zprec_type), intent(inout), target :: prec
integer(psb_ipk_), intent(out) :: info

Write Preview
Loading…
Cancel
Save