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

psblas3:

Browse Source 
prec/psb_c_base_prec_mod.f90
 prec/psb_d_base_prec_mod.f90
 prec/psb_s_base_prec_mod.f90
 prec/psb_z_base_prec_mod.f90

Fix intent in precbld
This commit is contained in:
Salvatore Filippone
2017-04-07 15:39:20 +00:00
parent fcef134b1c
commit a2632b0317
4 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
prec/psb_c_base_prec_mod.f90
+1 -1
View File
@@ -131,7 +131,7 @@ module psb_c_base_prec_mod
Implicit None
type(psb_cspmat_type), intent(in), target :: a
type(psb_desc_type), intent(in), target :: desc_a
type(psb_desc_type), intent(inout), target :: desc_a
class(psb_c_base_prec_type),intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info
class(psb_c_base_sparse_mat), intent(in), optional :: amold
prec/psb_d_base_prec_mod.f90
+1 -1
View File
@@ -131,7 +131,7 @@ module psb_d_base_prec_mod
Implicit None
type(psb_dspmat_type), intent(in), target :: a
type(psb_desc_type), intent(in), target :: desc_a
type(psb_desc_type), intent(inout), target :: desc_a
class(psb_d_base_prec_type),intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info
class(psb_d_base_sparse_mat), intent(in), optional :: amold
prec/psb_s_base_prec_mod.f90
+1 -1
View File
@@ -131,7 +131,7 @@ module psb_s_base_prec_mod
Implicit None
type(psb_sspmat_type), intent(in), target :: a
type(psb_desc_type), intent(in), target :: desc_a
type(psb_desc_type), intent(inout), target :: desc_a
class(psb_s_base_prec_type),intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info
class(psb_s_base_sparse_mat), intent(in), optional :: amold
prec/psb_z_base_prec_mod.f90
+1 -1
View File
@@ -131,7 +131,7 @@ module psb_z_base_prec_mod
Implicit None
type(psb_zspmat_type), intent(in), target :: a
type(psb_desc_type), intent(in), target :: desc_a
type(psb_desc_type), intent(inout), target :: desc_a
class(psb_z_base_prec_type),intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info
class(psb_z_base_sparse_mat), intent(in), optional :: amold