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

mld2p4-299:

Browse Source 
mlprec/impl/mld_cmlprec_bld.f90
 mlprec/impl/mld_cprecbld.f90
 mlprec/impl/mld_dmlprec_bld.f90
 mlprec/impl/mld_dprecbld.f90
 mlprec/impl/mld_smlprec_bld.f90
 mlprec/impl/mld_sprecbld.f90
 mlprec/impl/mld_zmlprec_bld.f90
 mlprec/impl/mld_zprecbld.f90
 mlprec/impl/smoother/mld_c_as_smoother_bld.f90
 mlprec/impl/smoother/mld_c_base_smoother_bld.f90
 mlprec/impl/smoother/mld_c_jac_smoother_bld.f90
 mlprec/impl/smoother/mld_d_as_smoother_bld.f90
 mlprec/impl/smoother/mld_d_base_smoother_bld.f90
 mlprec/impl/smoother/mld_d_jac_smoother_bld.f90
 mlprec/impl/smoother/mld_s_as_smoother_bld.f90
 mlprec/impl/smoother/mld_s_base_smoother_bld.f90
 mlprec/impl/smoother/mld_s_jac_smoother_bld.f90
 mlprec/impl/smoother/mld_z_as_smoother_bld.f90
 mlprec/impl/smoother/mld_z_base_smoother_bld.f90
 mlprec/impl/smoother/mld_z_jac_smoother_bld.f90
 mlprec/mld_c_as_smoother.f90
 mlprec/mld_c_base_smoother_mod.f90
 mlprec/mld_c_inner_mod.f90
 mlprec/mld_c_jac_smoother.f90
 mlprec/mld_c_prec_mod.f90
 mlprec/mld_d_as_smoother.f90
 mlprec/mld_d_base_smoother_mod.f90
 mlprec/mld_d_inner_mod.f90
 mlprec/mld_d_jac_smoother.f90
 mlprec/mld_d_prec_mod.f90
 mlprec/mld_d_prec_type.f90
 mlprec/mld_s_as_smoother.f90
 mlprec/mld_s_base_smoother_mod.f90
 mlprec/mld_s_inner_mod.f90
 mlprec/mld_s_jac_smoother.f90
 mlprec/mld_s_prec_mod.f90
 mlprec/mld_z_as_smoother.f90
 mlprec/mld_z_base_smoother_mod.f90
 mlprec/mld_z_inner_mod.f90
 mlprec/mld_z_jac_smoother.f90
 mlprec/mld_z_prec_mod.f90

Interface fixes intent of DESC_A in multiple places.
stopcriterion
Salvatore Filippone 11 years ago
parent 11519d3468
commit 4ee40c1577
41 changed files with 41 additions and 40 deletions
Show Stats Download Patch File Download Diff File

2
mlprec/impl/mld_cmlprec_bld.f90
Unescape Escape View File

@ -84,7 +84,7 @@ subroutine mld_cmlprec_bld(a,desc_a,p,info,amold,vmold)
! Arguments ! Arguments
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
type(mld_cprec_type),intent(inout),target :: p type(mld_cprec_type),intent(inout),target :: 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
mlprec/impl/mld_cprecbld.f90
Unescape Escape View File

@ -68,7 +68,7 @@ subroutine mld_cprecbld(a,desc_a,p,info,amold,vmold)
! Arguments ! Arguments
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
type(mld_cprec_type),intent(inout), target :: p type(mld_cprec_type),intent(inout), target :: 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
mlprec/impl/mld_dmlprec_bld.f90
Unescape Escape View File

@ -84,7 +84,7 @@ subroutine mld_dmlprec_bld(a,desc_a,p,info,amold,vmold)
! Arguments ! Arguments
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
type(mld_dprec_type),intent(inout),target :: p type(mld_dprec_type),intent(inout),target :: 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
mlprec/impl/mld_dprecbld.f90
Unescape Escape View File

@ -68,7 +68,7 @@ subroutine mld_dprecbld(a,desc_a,p,info,amold,vmold)
! Arguments ! Arguments
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
type(mld_dprec_type),intent(inout), target :: p type(mld_dprec_type),intent(inout), target :: 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
mlprec/impl/mld_smlprec_bld.f90
Unescape Escape View File

@ -84,7 +84,7 @@ subroutine mld_smlprec_bld(a,desc_a,p,info,amold,vmold)
! Arguments ! Arguments
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
type(mld_sprec_type),intent(inout),target :: p type(mld_sprec_type),intent(inout),target :: 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
mlprec/impl/mld_sprecbld.f90
Unescape Escape View File

@ -68,7 +68,7 @@ subroutine mld_sprecbld(a,desc_a,p,info,amold,vmold)
! Arguments ! Arguments
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
type(mld_sprec_type),intent(inout), target :: p type(mld_sprec_type),intent(inout), target :: 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
mlprec/impl/mld_zmlprec_bld.f90
Unescape Escape View File

@ -84,7 +84,7 @@ subroutine mld_zmlprec_bld(a,desc_a,p,info,amold,vmold)
! Arguments ! Arguments
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
type(mld_zprec_type),intent(inout),target :: p type(mld_zprec_type),intent(inout),target :: 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
mlprec/impl/mld_zprecbld.f90
Unescape Escape View File

@ -68,7 +68,7 @@ subroutine mld_zprecbld(a,desc_a,p,info,amold,vmold)
! Arguments ! Arguments
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
type(mld_zprec_type),intent(inout), target :: p type(mld_zprec_type),intent(inout), target :: 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
mlprec/impl/smoother/mld_c_as_smoother_bld.f90
Unescape Escape View File

@ -44,7 +44,7 @@ subroutine mld_c_as_smoother_bld(a,desc_a,sm,upd,info,amold,vmold)
! Arguments ! Arguments
type(psb_cspmat_type), intent(in), target :: a type(psb_cspmat_type), intent(in), target :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(inout) :: desc_a
class(mld_c_as_smoother_type), intent(inout) :: sm class(mld_c_as_smoother_type), intent(inout) :: sm
character, intent(in) :: upd character, intent(in) :: upd
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info

2
mlprec/impl/smoother/mld_c_base_smoother_bld.f90
Unescape Escape View File

@ -44,7 +44,7 @@ subroutine mld_c_base_smoother_bld(a,desc_a,sm,upd,info,amold,vmold)
! Arguments ! Arguments
type(psb_cspmat_type), intent(in), target :: a type(psb_cspmat_type), intent(in), target :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(inout) :: desc_a
class(mld_c_base_smoother_type), intent(inout) :: sm class(mld_c_base_smoother_type), intent(inout) :: sm
character, intent(in) :: upd character, intent(in) :: upd
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info

2
mlprec/impl/smoother/mld_c_jac_smoother_bld.f90
Unescape Escape View File

@ -45,7 +45,7 @@ subroutine mld_c_jac_smoother_bld(a,desc_a,sm,upd,info,amold,vmold)
! Arguments ! Arguments
type(psb_cspmat_type), intent(in), target :: a type(psb_cspmat_type), intent(in), target :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(inout) :: desc_a
class(mld_c_jac_smoother_type), intent(inout) :: sm class(mld_c_jac_smoother_type), intent(inout) :: sm
character, intent(in) :: upd character, intent(in) :: upd
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info

2
mlprec/impl/smoother/mld_d_as_smoother_bld.f90
Unescape Escape View File

@ -44,7 +44,7 @@ subroutine mld_d_as_smoother_bld(a,desc_a,sm,upd,info,amold,vmold)
! Arguments ! Arguments
type(psb_dspmat_type), intent(in), target :: a type(psb_dspmat_type), intent(in), target :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(inout) :: desc_a
class(mld_d_as_smoother_type), intent(inout) :: sm class(mld_d_as_smoother_type), intent(inout) :: sm
character, intent(in) :: upd character, intent(in) :: upd
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info

2
mlprec/impl/smoother/mld_d_base_smoother_bld.f90
Unescape Escape View File

@ -44,7 +44,7 @@ subroutine mld_d_base_smoother_bld(a,desc_a,sm,upd,info,amold,vmold)
! Arguments ! Arguments
type(psb_dspmat_type), intent(in), target :: a type(psb_dspmat_type), intent(in), target :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(inout) :: desc_a
class(mld_d_base_smoother_type), intent(inout) :: sm class(mld_d_base_smoother_type), intent(inout) :: sm
character, intent(in) :: upd character, intent(in) :: upd
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info

2
mlprec/impl/smoother/mld_d_jac_smoother_bld.f90
Unescape Escape View File

@ -45,7 +45,7 @@ subroutine mld_d_jac_smoother_bld(a,desc_a,sm,upd,info,amold,vmold)
! Arguments ! Arguments
type(psb_dspmat_type), intent(in), target :: a type(psb_dspmat_type), intent(in), target :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(inout) :: desc_a
class(mld_d_jac_smoother_type), intent(inout) :: sm class(mld_d_jac_smoother_type), intent(inout) :: sm
character, intent(in) :: upd character, intent(in) :: upd
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info

2
mlprec/impl/smoother/mld_s_as_smoother_bld.f90
Unescape Escape View File

@ -44,7 +44,7 @@ subroutine mld_s_as_smoother_bld(a,desc_a,sm,upd,info,amold,vmold)
! Arguments ! Arguments
type(psb_sspmat_type), intent(in), target :: a type(psb_sspmat_type), intent(in), target :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(inout) :: desc_a
class(mld_s_as_smoother_type), intent(inout) :: sm class(mld_s_as_smoother_type), intent(inout) :: sm
character, intent(in) :: upd character, intent(in) :: upd
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info

2
mlprec/impl/smoother/mld_s_base_smoother_bld.f90
Unescape Escape View File

@ -44,7 +44,7 @@ subroutine mld_s_base_smoother_bld(a,desc_a,sm,upd,info,amold,vmold)
! Arguments ! Arguments
type(psb_sspmat_type), intent(in), target :: a type(psb_sspmat_type), intent(in), target :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(inout) :: desc_a
class(mld_s_base_smoother_type), intent(inout) :: sm class(mld_s_base_smoother_type), intent(inout) :: sm
character, intent(in) :: upd character, intent(in) :: upd
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info

2
mlprec/impl/smoother/mld_s_jac_smoother_bld.f90
Unescape Escape View File

@ -45,7 +45,7 @@ subroutine mld_s_jac_smoother_bld(a,desc_a,sm,upd,info,amold,vmold)
! Arguments ! Arguments
type(psb_sspmat_type), intent(in), target :: a type(psb_sspmat_type), intent(in), target :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(inout) :: desc_a
class(mld_s_jac_smoother_type), intent(inout) :: sm class(mld_s_jac_smoother_type), intent(inout) :: sm
character, intent(in) :: upd character, intent(in) :: upd
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info

2
mlprec/impl/smoother/mld_z_as_smoother_bld.f90
Unescape Escape View File

@ -44,7 +44,7 @@ subroutine mld_z_as_smoother_bld(a,desc_a,sm,upd,info,amold,vmold)
! Arguments ! Arguments
type(psb_zspmat_type), intent(in), target :: a type(psb_zspmat_type), intent(in), target :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(inout) :: desc_a
class(mld_z_as_smoother_type), intent(inout) :: sm class(mld_z_as_smoother_type), intent(inout) :: sm
character, intent(in) :: upd character, intent(in) :: upd
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info

2
mlprec/impl/smoother/mld_z_base_smoother_bld.f90
Unescape Escape View File

@ -44,7 +44,7 @@ subroutine mld_z_base_smoother_bld(a,desc_a,sm,upd,info,amold,vmold)
! Arguments ! Arguments
type(psb_zspmat_type), intent(in), target :: a type(psb_zspmat_type), intent(in), target :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(inout) :: desc_a
class(mld_z_base_smoother_type), intent(inout) :: sm class(mld_z_base_smoother_type), intent(inout) :: sm
character, intent(in) :: upd character, intent(in) :: upd
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info

2
mlprec/impl/smoother/mld_z_jac_smoother_bld.f90
Unescape Escape View File

@ -45,7 +45,7 @@ subroutine mld_z_jac_smoother_bld(a,desc_a,sm,upd,info,amold,vmold)
! Arguments ! Arguments
type(psb_zspmat_type), intent(in), target :: a type(psb_zspmat_type), intent(in), target :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(inout) :: desc_a
class(mld_z_jac_smoother_type), intent(inout) :: sm class(mld_z_jac_smoother_type), intent(inout) :: sm
character, intent(in) :: upd character, intent(in) :: upd
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info

2
mlprec/mld_c_as_smoother.f90
Unescape Escape View File

@ -135,7 +135,7 @@ module mld_c_as_smoother
& psb_desc_type, psb_c_base_sparse_mat, psb_ipk_ & psb_desc_type, psb_c_base_sparse_mat, psb_ipk_
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) :: desc_a Type(psb_desc_type), Intent(inout) :: desc_a
class(mld_c_as_smoother_type), intent(inout) :: sm class(mld_c_as_smoother_type), intent(inout) :: sm
character, intent(in) :: upd character, intent(in) :: upd
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info

2
mlprec/mld_c_base_smoother_mod.f90
Unescape Escape View File

@ -250,7 +250,7 @@ module mld_c_base_smoother_mod
& mld_c_base_smoother_type, psb_ipk_ & mld_c_base_smoother_type, psb_ipk_
! Arguments ! Arguments
type(psb_cspmat_type), intent(in), target :: a type(psb_cspmat_type), intent(in), target :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(inout) :: desc_a
class(mld_c_base_smoother_type), intent(inout) :: sm class(mld_c_base_smoother_type), intent(inout) :: sm
character, intent(in) :: upd character, intent(in) :: upd
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info

2
mlprec/mld_c_inner_mod.f90
Unescape Escape View File

@ -54,7 +54,7 @@ module mld_c_inner_mod
use mld_c_prec_type, only : mld_cprec_type use mld_c_prec_type, only : mld_cprec_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
type(mld_cprec_type), intent(inout), target :: prec type(mld_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
mlprec/mld_c_jac_smoother.f90
Unescape Escape View File

@ -109,7 +109,7 @@ module mld_c_jac_smoother
import :: psb_desc_type, mld_c_jac_smoother_type, psb_c_vect_type, psb_spk_, & import :: psb_desc_type, mld_c_jac_smoother_type, psb_c_vect_type, psb_spk_, &
& psb_cspmat_type, psb_c_base_sparse_mat, psb_c_base_vect_type, psb_ipk_ & psb_cspmat_type, psb_c_base_sparse_mat, psb_c_base_vect_type, psb_ipk_
type(psb_cspmat_type), intent(in), target :: a type(psb_cspmat_type), intent(in), target :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(inout) :: desc_a
class(mld_c_jac_smoother_type), intent(inout) :: sm class(mld_c_jac_smoother_type), intent(inout) :: sm
character, intent(in) :: upd character, intent(in) :: upd
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info

2
mlprec/mld_c_prec_mod.f90
Unescape Escape View File

@ -78,7 +78,7 @@ module mld_c_prec_mod
& mld_cprec_type, psb_ipk_ & mld_cprec_type, psb_ipk_
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
type(mld_cprec_type), intent(inout), target :: prec type(mld_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
mlprec/mld_d_as_smoother.f90
Unescape Escape View File

@ -135,7 +135,7 @@ module mld_d_as_smoother
& psb_desc_type, psb_d_base_sparse_mat, psb_ipk_ & psb_desc_type, psb_d_base_sparse_mat, psb_ipk_
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) :: desc_a Type(psb_desc_type), Intent(inout) :: desc_a
class(mld_d_as_smoother_type), intent(inout) :: sm class(mld_d_as_smoother_type), intent(inout) :: sm
character, intent(in) :: upd character, intent(in) :: upd
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info

2
mlprec/mld_d_base_smoother_mod.f90
Unescape Escape View File

@ -250,7 +250,7 @@ module mld_d_base_smoother_mod
& mld_d_base_smoother_type, psb_ipk_ & mld_d_base_smoother_type, psb_ipk_
! Arguments ! Arguments
type(psb_dspmat_type), intent(in), target :: a type(psb_dspmat_type), intent(in), target :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(inout) :: desc_a
class(mld_d_base_smoother_type), intent(inout) :: sm class(mld_d_base_smoother_type), intent(inout) :: sm
character, intent(in) :: upd character, intent(in) :: upd
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info

2
mlprec/mld_d_inner_mod.f90
Unescape Escape View File

@ -54,7 +54,7 @@ module mld_d_inner_mod
use mld_d_prec_type, only : mld_dprec_type use mld_d_prec_type, only : mld_dprec_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
type(mld_dprec_type), intent(inout), target :: prec type(mld_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
mlprec/mld_d_jac_smoother.f90
Unescape Escape View File

@ -109,7 +109,7 @@ module mld_d_jac_smoother
import :: psb_desc_type, mld_d_jac_smoother_type, psb_d_vect_type, psb_dpk_, & import :: psb_desc_type, mld_d_jac_smoother_type, psb_d_vect_type, psb_dpk_, &
& psb_dspmat_type, psb_d_base_sparse_mat, psb_d_base_vect_type, psb_ipk_ & psb_dspmat_type, psb_d_base_sparse_mat, psb_d_base_vect_type, psb_ipk_
type(psb_dspmat_type), intent(in), target :: a type(psb_dspmat_type), intent(in), target :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(inout) :: desc_a
class(mld_d_jac_smoother_type), intent(inout) :: sm class(mld_d_jac_smoother_type), intent(inout) :: sm
character, intent(in) :: upd character, intent(in) :: upd
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info

2
mlprec/mld_d_prec_mod.f90
Unescape Escape View File

@ -78,7 +78,7 @@ module mld_d_prec_mod
& mld_dprec_type, psb_ipk_ & mld_dprec_type, psb_ipk_
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
type(mld_dprec_type), intent(inout), target :: prec type(mld_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

1
mlprec/mld_d_prec_type.f90
Unescape Escape View File

@ -439,6 +439,7 @@ contains
root_ = psb_root_ root_ = psb_root_
end if end if
if (root_ == -1) root_ = me if (root_ == -1) root_ = me
! !
! The preconditioner description is printed by processor psb_root_. ! The preconditioner description is printed by processor psb_root_.
! This agrees with the fact that all the parameters defining the ! This agrees with the fact that all the parameters defining the

2
mlprec/mld_s_as_smoother.f90
Unescape Escape View File

@ -135,7 +135,7 @@ module mld_s_as_smoother
& psb_desc_type, psb_s_base_sparse_mat, psb_ipk_ & psb_desc_type, psb_s_base_sparse_mat, psb_ipk_
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) :: desc_a Type(psb_desc_type), Intent(inout) :: desc_a
class(mld_s_as_smoother_type), intent(inout) :: sm class(mld_s_as_smoother_type), intent(inout) :: sm
character, intent(in) :: upd character, intent(in) :: upd
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info

2
mlprec/mld_s_base_smoother_mod.f90
Unescape Escape View File

@ -250,7 +250,7 @@ module mld_s_base_smoother_mod
& mld_s_base_smoother_type, psb_ipk_ & mld_s_base_smoother_type, psb_ipk_
! Arguments ! Arguments
type(psb_sspmat_type), intent(in), target :: a type(psb_sspmat_type), intent(in), target :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(inout) :: desc_a
class(mld_s_base_smoother_type), intent(inout) :: sm class(mld_s_base_smoother_type), intent(inout) :: sm
character, intent(in) :: upd character, intent(in) :: upd
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info

2
mlprec/mld_s_inner_mod.f90
Unescape Escape View File

@ -54,7 +54,7 @@ module mld_s_inner_mod
use mld_s_prec_type, only : mld_sprec_type use mld_s_prec_type, only : mld_sprec_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
type(mld_sprec_type), intent(inout), target :: prec type(mld_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
mlprec/mld_s_jac_smoother.f90
Unescape Escape View File

@ -109,7 +109,7 @@ module mld_s_jac_smoother
import :: psb_desc_type, mld_s_jac_smoother_type, psb_s_vect_type, psb_spk_, & import :: psb_desc_type, mld_s_jac_smoother_type, psb_s_vect_type, psb_spk_, &
& psb_sspmat_type, psb_s_base_sparse_mat, psb_s_base_vect_type, psb_ipk_ & psb_sspmat_type, psb_s_base_sparse_mat, psb_s_base_vect_type, psb_ipk_
type(psb_sspmat_type), intent(in), target :: a type(psb_sspmat_type), intent(in), target :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(inout) :: desc_a
class(mld_s_jac_smoother_type), intent(inout) :: sm class(mld_s_jac_smoother_type), intent(inout) :: sm
character, intent(in) :: upd character, intent(in) :: upd
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info

2
mlprec/mld_s_prec_mod.f90
Unescape Escape View File

@ -78,7 +78,7 @@ module mld_s_prec_mod
& mld_sprec_type, psb_ipk_ & mld_sprec_type, psb_ipk_
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
type(mld_sprec_type), intent(inout), target :: prec type(mld_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
mlprec/mld_z_as_smoother.f90
Unescape Escape View File

@ -135,7 +135,7 @@ module mld_z_as_smoother
& psb_desc_type, psb_z_base_sparse_mat, psb_ipk_ & psb_desc_type, psb_z_base_sparse_mat, psb_ipk_
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) :: desc_a Type(psb_desc_type), Intent(inout) :: desc_a
class(mld_z_as_smoother_type), intent(inout) :: sm class(mld_z_as_smoother_type), intent(inout) :: sm
character, intent(in) :: upd character, intent(in) :: upd
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info

2
mlprec/mld_z_base_smoother_mod.f90
Unescape Escape View File

@ -250,7 +250,7 @@ module mld_z_base_smoother_mod
& mld_z_base_smoother_type, psb_ipk_ & mld_z_base_smoother_type, psb_ipk_
! Arguments ! Arguments
type(psb_zspmat_type), intent(in), target :: a type(psb_zspmat_type), intent(in), target :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(inout) :: desc_a
class(mld_z_base_smoother_type), intent(inout) :: sm class(mld_z_base_smoother_type), intent(inout) :: sm
character, intent(in) :: upd character, intent(in) :: upd
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info

2
mlprec/mld_z_inner_mod.f90
Unescape Escape View File

@ -54,7 +54,7 @@ module mld_z_inner_mod
use mld_z_prec_type, only : mld_zprec_type use mld_z_prec_type, only : mld_zprec_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
type(mld_zprec_type), intent(inout), target :: prec type(mld_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

2
mlprec/mld_z_jac_smoother.f90
Unescape Escape View File

@ -109,7 +109,7 @@ module mld_z_jac_smoother
import :: psb_desc_type, mld_z_jac_smoother_type, psb_z_vect_type, psb_dpk_, & import :: psb_desc_type, mld_z_jac_smoother_type, psb_z_vect_type, psb_dpk_, &
& psb_zspmat_type, psb_z_base_sparse_mat, psb_z_base_vect_type, psb_ipk_ & psb_zspmat_type, psb_z_base_sparse_mat, psb_z_base_vect_type, psb_ipk_
type(psb_zspmat_type), intent(in), target :: a type(psb_zspmat_type), intent(in), target :: a
Type(psb_desc_type), Intent(in) :: desc_a Type(psb_desc_type), Intent(inout) :: desc_a
class(mld_z_jac_smoother_type), intent(inout) :: sm class(mld_z_jac_smoother_type), intent(inout) :: sm
character, intent(in) :: upd character, intent(in) :: upd
integer(psb_ipk_), intent(out) :: info integer(psb_ipk_), intent(out) :: info

2
mlprec/mld_z_prec_mod.f90
Unescape Escape View File

@ -78,7 +78,7 @@ module mld_z_prec_mod
& mld_zprec_type, psb_ipk_ & mld_zprec_type, psb_ipk_
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
type(mld_zprec_type), intent(inout), target :: prec type(mld_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