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

psblas3:

Browse Source 
prec/impl/psb_c_bjacprec_impl.f90
 prec/impl/psb_c_diagprec_impl.f90
 prec/impl/psb_cprecbld.f90
 prec/impl/psb_d_bjacprec_impl.f90
 prec/impl/psb_d_diagprec_impl.f90
 prec/impl/psb_dprecbld.f90
 prec/impl/psb_s_bjacprec_impl.f90
 prec/impl/psb_s_diagprec_impl.f90
 prec/impl/psb_sprecbld.f90
 prec/impl/psb_z_bjacprec_impl.f90
 prec/impl/psb_z_diagprec_impl.f90
 prec/impl/psb_zprecbld.f90
 prec/psb_c_bjacprec.f90
 prec/psb_c_diagprec.f90
 prec/psb_c_nullprec.f90
 prec/psb_c_prec_type.f90
 prec/psb_d_bjacprec.f90
 prec/psb_d_diagprec.f90
 prec/psb_d_nullprec.f90
 prec/psb_d_prec_type.f90
 prec/psb_s_bjacprec.f90
 prec/psb_s_diagprec.f90
 prec/psb_s_nullprec.f90
 prec/psb_s_prec_type.f90
 prec/psb_z_bjacprec.f90
 prec/psb_z_diagprec.f90
 prec/psb_z_nullprec.f90
 prec/psb_z_prec_type.f90

Fix intent in precbld
trunk
Salvatore Filippone 8 years ago
parent fe60efe3c5
commit fcef134b1c
28 changed files with 28 additions and 28 deletions
Show Stats Download Patch File Download Diff File

2
prec/impl/psb_c_bjacprec_impl.f90
Unescape Escape View File

@ -415,7 +415,7 @@ subroutine psb_c_bjac_precbld(a,desc_a,prec,info,amold,vmold,imold)
Implicit None Implicit None
type(psb_cspmat_type), intent(in), target :: a 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_bjac_prec_type),intent(inout) :: prec class(psb_c_bjac_prec_type),intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_c_base_sparse_mat), intent(in), optional :: amold class(psb_c_base_sparse_mat), intent(in), optional :: amold

2
prec/impl/psb_c_diagprec_impl.f90
Unescape Escape View File

@ -232,7 +232,7 @@ subroutine psb_c_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
Implicit None Implicit None
type(psb_cspmat_type), intent(in), target :: a 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_diag_prec_type),intent(inout) :: prec class(psb_c_diag_prec_type),intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_c_base_sparse_mat), intent(in), optional :: amold class(psb_c_base_sparse_mat), intent(in), optional :: amold

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

@ -36,7 +36,7 @@ subroutine psb_cprecbld(a,desc_a,p,info,amold,vmold,imold)
Implicit None Implicit None
type(psb_cspmat_type), intent(in), target :: a 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_cprec_type),intent(inout) :: p class(psb_cprec_type),intent(inout) :: p
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_c_base_sparse_mat), intent(in), optional :: amold class(psb_c_base_sparse_mat), intent(in), optional :: amold

2
prec/impl/psb_d_bjacprec_impl.f90
Unescape Escape View File

@ -415,7 +415,7 @@ subroutine psb_d_bjac_precbld(a,desc_a,prec,info,amold,vmold,imold)
Implicit None Implicit None
type(psb_dspmat_type), intent(in), target :: a 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_bjac_prec_type),intent(inout) :: prec class(psb_d_bjac_prec_type),intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_d_base_sparse_mat), intent(in), optional :: amold class(psb_d_base_sparse_mat), intent(in), optional :: amold

2
prec/impl/psb_d_diagprec_impl.f90
Unescape Escape View File

@ -232,7 +232,7 @@ subroutine psb_d_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
Implicit None Implicit None
type(psb_dspmat_type), intent(in), target :: a 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_diag_prec_type),intent(inout) :: prec class(psb_d_diag_prec_type),intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_d_base_sparse_mat), intent(in), optional :: amold class(psb_d_base_sparse_mat), intent(in), optional :: amold

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

@ -36,7 +36,7 @@ subroutine psb_dprecbld(a,desc_a,p,info,amold,vmold,imold)
Implicit None Implicit None
type(psb_dspmat_type), intent(in), target :: a 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_dprec_type),intent(inout) :: p class(psb_dprec_type),intent(inout) :: p
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_d_base_sparse_mat), intent(in), optional :: amold class(psb_d_base_sparse_mat), intent(in), optional :: amold

2
prec/impl/psb_s_bjacprec_impl.f90
Unescape Escape View File

@ -415,7 +415,7 @@ subroutine psb_s_bjac_precbld(a,desc_a,prec,info,amold,vmold,imold)
Implicit None Implicit None
type(psb_sspmat_type), intent(in), target :: a 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_bjac_prec_type),intent(inout) :: prec class(psb_s_bjac_prec_type),intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_s_base_sparse_mat), intent(in), optional :: amold class(psb_s_base_sparse_mat), intent(in), optional :: amold

2
prec/impl/psb_s_diagprec_impl.f90
Unescape Escape View File

@ -232,7 +232,7 @@ subroutine psb_s_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
Implicit None Implicit None
type(psb_sspmat_type), intent(in), target :: a 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_diag_prec_type),intent(inout) :: prec class(psb_s_diag_prec_type),intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_s_base_sparse_mat), intent(in), optional :: amold class(psb_s_base_sparse_mat), intent(in), optional :: amold

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

@ -36,7 +36,7 @@ subroutine psb_sprecbld(a,desc_a,p,info,amold,vmold,imold)
Implicit None Implicit None
type(psb_sspmat_type), intent(in), target :: a 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_sprec_type),intent(inout) :: p class(psb_sprec_type),intent(inout) :: p
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_s_base_sparse_mat), intent(in), optional :: amold class(psb_s_base_sparse_mat), intent(in), optional :: amold

2
prec/impl/psb_z_bjacprec_impl.f90
Unescape Escape View File

@ -415,7 +415,7 @@ subroutine psb_z_bjac_precbld(a,desc_a,prec,info,amold,vmold,imold)
Implicit None Implicit None
type(psb_zspmat_type), intent(in), target :: a 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_bjac_prec_type),intent(inout) :: prec class(psb_z_bjac_prec_type),intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_z_base_sparse_mat), intent(in), optional :: amold class(psb_z_base_sparse_mat), intent(in), optional :: amold

2
prec/impl/psb_z_diagprec_impl.f90
Unescape Escape View File

@ -232,7 +232,7 @@ subroutine psb_z_diag_precbld(a,desc_a,prec,info,amold,vmold,imold)
Implicit None Implicit None
type(psb_zspmat_type), intent(in), target :: a 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_diag_prec_type),intent(inout) :: prec class(psb_z_diag_prec_type),intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_z_base_sparse_mat), intent(in), optional :: amold class(psb_z_base_sparse_mat), intent(in), optional :: amold

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

@ -36,7 +36,7 @@ subroutine psb_zprecbld(a,desc_a,p,info,amold,vmold,imold)
Implicit None Implicit None
type(psb_zspmat_type), intent(in), target :: a 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_zprec_type),intent(inout) :: p class(psb_zprec_type),intent(inout) :: p
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_z_base_sparse_mat), intent(in), optional :: amold class(psb_z_base_sparse_mat), intent(in), optional :: amold

2
prec/psb_c_bjacprec.f90
Unescape Escape View File

@ -111,7 +111,7 @@ module psb_c_bjacprec
& psb_cspmat_type, psb_c_base_sparse_mat, psb_c_base_vect_type, & & psb_cspmat_type, psb_c_base_sparse_mat, psb_c_base_vect_type, &
& psb_i_base_vect_type & psb_i_base_vect_type
type(psb_cspmat_type), intent(in), target :: a 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_bjac_prec_type),intent(inout) :: prec class(psb_c_bjac_prec_type),intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_c_base_sparse_mat), intent(in), optional :: amold class(psb_c_base_sparse_mat), intent(in), optional :: amold

2
prec/psb_c_diagprec.f90
Unescape Escape View File

@ -89,7 +89,7 @@ module psb_c_diagprec
& psb_cspmat_type, psb_c_base_sparse_mat, psb_c_base_vect_type, & & psb_cspmat_type, psb_c_base_sparse_mat, psb_c_base_vect_type, &
& psb_i_base_vect_type & psb_i_base_vect_type
type(psb_cspmat_type), intent(in), target :: a 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_diag_prec_type),intent(inout) :: prec class(psb_c_diag_prec_type),intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_c_base_sparse_mat), intent(in), optional :: amold class(psb_c_base_sparse_mat), intent(in), optional :: amold

2
prec/psb_c_nullprec.f90
Unescape Escape View File

@ -109,7 +109,7 @@ contains
Implicit None Implicit None
type(psb_cspmat_type), intent(in), target :: a 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_null_prec_type),intent(inout) :: prec class(psb_c_null_prec_type),intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_c_base_sparse_mat), intent(in), optional :: amold class(psb_c_base_sparse_mat), intent(in), optional :: amold

2
prec/psb_c_prec_type.f90
Unescape Escape View File

@ -76,7 +76,7 @@ module psb_c_prec_type
& psb_cprec_type, psb_i_base_vect_type & psb_cprec_type, psb_i_base_vect_type
implicit none implicit none
type(psb_cspmat_type), intent(in), target :: a 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_cprec_type), intent(inout), target :: prec class(psb_cprec_type), intent(inout), target :: prec
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_c_base_sparse_mat), intent(in), optional :: amold class(psb_c_base_sparse_mat), intent(in), optional :: amold

2
prec/psb_d_bjacprec.f90
Unescape Escape View File

@ -111,7 +111,7 @@ module psb_d_bjacprec
& psb_dspmat_type, psb_d_base_sparse_mat, psb_d_base_vect_type, & & psb_dspmat_type, psb_d_base_sparse_mat, psb_d_base_vect_type, &
& psb_i_base_vect_type & psb_i_base_vect_type
type(psb_dspmat_type), intent(in), target :: a 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_bjac_prec_type),intent(inout) :: prec class(psb_d_bjac_prec_type),intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_d_base_sparse_mat), intent(in), optional :: amold class(psb_d_base_sparse_mat), intent(in), optional :: amold

2
prec/psb_d_diagprec.f90
Unescape Escape View File

@ -89,7 +89,7 @@ module psb_d_diagprec
& psb_dspmat_type, psb_d_base_sparse_mat, psb_d_base_vect_type, & & psb_dspmat_type, psb_d_base_sparse_mat, psb_d_base_vect_type, &
& psb_i_base_vect_type & psb_i_base_vect_type
type(psb_dspmat_type), intent(in), target :: a 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_diag_prec_type),intent(inout) :: prec class(psb_d_diag_prec_type),intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_d_base_sparse_mat), intent(in), optional :: amold class(psb_d_base_sparse_mat), intent(in), optional :: amold

2
prec/psb_d_nullprec.f90
Unescape Escape View File

@ -109,7 +109,7 @@ contains
Implicit None Implicit None
type(psb_dspmat_type), intent(in), target :: a 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_null_prec_type),intent(inout) :: prec class(psb_d_null_prec_type),intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_d_base_sparse_mat), intent(in), optional :: amold class(psb_d_base_sparse_mat), intent(in), optional :: amold

2
prec/psb_d_prec_type.f90
Unescape Escape View File

@ -76,7 +76,7 @@ module psb_d_prec_type
& psb_dprec_type, psb_i_base_vect_type & psb_dprec_type, psb_i_base_vect_type
implicit none implicit none
type(psb_dspmat_type), intent(in), target :: a 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_dprec_type), intent(inout), target :: prec class(psb_dprec_type), intent(inout), target :: prec
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_d_base_sparse_mat), intent(in), optional :: amold class(psb_d_base_sparse_mat), intent(in), optional :: amold

2
prec/psb_s_bjacprec.f90
Unescape Escape View File

@ -111,7 +111,7 @@ module psb_s_bjacprec
& psb_sspmat_type, psb_s_base_sparse_mat, psb_s_base_vect_type, & & psb_sspmat_type, psb_s_base_sparse_mat, psb_s_base_vect_type, &
& psb_i_base_vect_type & psb_i_base_vect_type
type(psb_sspmat_type), intent(in), target :: a 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_bjac_prec_type),intent(inout) :: prec class(psb_s_bjac_prec_type),intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_s_base_sparse_mat), intent(in), optional :: amold class(psb_s_base_sparse_mat), intent(in), optional :: amold

2
prec/psb_s_diagprec.f90
Unescape Escape View File

@ -89,7 +89,7 @@ module psb_s_diagprec
& psb_sspmat_type, psb_s_base_sparse_mat, psb_s_base_vect_type, & & psb_sspmat_type, psb_s_base_sparse_mat, psb_s_base_vect_type, &
& psb_i_base_vect_type & psb_i_base_vect_type
type(psb_sspmat_type), intent(in), target :: a 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_diag_prec_type),intent(inout) :: prec class(psb_s_diag_prec_type),intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_s_base_sparse_mat), intent(in), optional :: amold class(psb_s_base_sparse_mat), intent(in), optional :: amold

2
prec/psb_s_nullprec.f90
Unescape Escape View File

@ -109,7 +109,7 @@ contains
Implicit None Implicit None
type(psb_sspmat_type), intent(in), target :: a 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_null_prec_type),intent(inout) :: prec class(psb_s_null_prec_type),intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_s_base_sparse_mat), intent(in), optional :: amold class(psb_s_base_sparse_mat), intent(in), optional :: amold

2
prec/psb_s_prec_type.f90
Unescape Escape View File

@ -76,7 +76,7 @@ module psb_s_prec_type
& psb_sprec_type, psb_i_base_vect_type & psb_sprec_type, psb_i_base_vect_type
implicit none implicit none
type(psb_sspmat_type), intent(in), target :: a 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_sprec_type), intent(inout), target :: prec class(psb_sprec_type), intent(inout), target :: prec
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_s_base_sparse_mat), intent(in), optional :: amold class(psb_s_base_sparse_mat), intent(in), optional :: amold

2
prec/psb_z_bjacprec.f90
Unescape Escape View File

@ -111,7 +111,7 @@ module psb_z_bjacprec
& psb_zspmat_type, psb_z_base_sparse_mat, psb_z_base_vect_type, & & psb_zspmat_type, psb_z_base_sparse_mat, psb_z_base_vect_type, &
& psb_i_base_vect_type & psb_i_base_vect_type
type(psb_zspmat_type), intent(in), target :: a 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_bjac_prec_type),intent(inout) :: prec class(psb_z_bjac_prec_type),intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_z_base_sparse_mat), intent(in), optional :: amold class(psb_z_base_sparse_mat), intent(in), optional :: amold

2
prec/psb_z_diagprec.f90
Unescape Escape View File

@ -89,7 +89,7 @@ module psb_z_diagprec
& psb_zspmat_type, psb_z_base_sparse_mat, psb_z_base_vect_type, & & psb_zspmat_type, psb_z_base_sparse_mat, psb_z_base_vect_type, &
& psb_i_base_vect_type & psb_i_base_vect_type
type(psb_zspmat_type), intent(in), target :: a 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_diag_prec_type),intent(inout) :: prec class(psb_z_diag_prec_type),intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_z_base_sparse_mat), intent(in), optional :: amold class(psb_z_base_sparse_mat), intent(in), optional :: amold

2
prec/psb_z_nullprec.f90
Unescape Escape View File

@ -109,7 +109,7 @@ contains
Implicit None Implicit None
type(psb_zspmat_type), intent(in), target :: a 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_null_prec_type),intent(inout) :: prec class(psb_z_null_prec_type),intent(inout) :: prec
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_z_base_sparse_mat), intent(in), optional :: amold class(psb_z_base_sparse_mat), intent(in), optional :: amold

2
prec/psb_z_prec_type.f90
Unescape Escape View File

@ -76,7 +76,7 @@ module psb_z_prec_type
& psb_zprec_type, psb_i_base_vect_type & psb_zprec_type, psb_i_base_vect_type
implicit none implicit none
type(psb_zspmat_type), intent(in), target :: a 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_zprec_type), intent(inout), target :: prec class(psb_zprec_type), intent(inout), target :: prec
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info
class(psb_z_base_sparse_mat), intent(in), optional :: amold class(psb_z_base_sparse_mat), intent(in), optional :: amold

Write Preview
Loading…
Cancel
Save