diff --git a/src/prec/psb_dbaseprc_bld.f90 b/src/prec/psb_dbaseprc_bld.f90 index 1f29032a..3d317f52 100644 --- a/src/prec/psb_dbaseprc_bld.f90 +++ b/src/prec/psb_dbaseprc_bld.f90 @@ -46,7 +46,8 @@ subroutine psb_dbaseprc_bld(a,desc_a,p,info,upd) use psb_psblas_mod use psb_error_mod use psb_penv_mod - use psb_prec_mod + use psb_prec_mod, only: psb_diagsc_bld, psb_ilu_bld, & + & psb_slu_bld,psb_umf_bld Implicit None diff --git a/src/prec/psb_dilu_bld.f90 b/src/prec/psb_dilu_bld.f90 index c01e714c..4db804ac 100644 --- a/src/prec/psb_dilu_bld.f90 +++ b/src/prec/psb_dilu_bld.f90 @@ -60,7 +60,7 @@ subroutine psb_dilu_bld(a,desc_a,p,upd,info) use psb_error_mod use psb_realloc_mod use psb_penv_mod - use psb_prec_mod + use psb_prec_mod, only : psb_as_matbld, psb_ilu_fct implicit none ! ! .. Scalar Arguments .. diff --git a/src/prec/psb_dmlprc_bld.f90 b/src/prec/psb_dmlprc_bld.f90 index 715d43c8..0db7582b 100644 --- a/src/prec/psb_dmlprc_bld.f90 +++ b/src/prec/psb_dmlprc_bld.f90 @@ -43,7 +43,7 @@ subroutine psb_dmlprc_bld(a,desc_a,p,info) use psb_const_mod use psb_error_mod use psb_penv_mod - use psb_prec_mod + use psb_prec_mod, only : psb_genaggrmap, psb_bldaggrmat, psb_baseprc_bld implicit none type(psb_dspmat_type), intent(in), target :: a diff --git a/src/prec/psb_dprc_aply.f90 b/src/prec/psb_dprc_aply.f90 index 9f972241..e80fb261 100644 --- a/src/prec/psb_dprc_aply.f90 +++ b/src/prec/psb_dprc_aply.f90 @@ -43,7 +43,7 @@ subroutine psb_dprc_aply(prec,x,y,desc_data,info,trans, work) use psb_const_mod use psb_error_mod use psb_penv_mod - use psb_prec_mod + use psb_prec_mod, only: psb_mlprc_aply, psb_baseprc_aply implicit none type(psb_desc_type),intent(in) :: desc_data @@ -166,9 +166,22 @@ subroutine psb_dprc_aply1(prec,x,desc_data,info,trans) use psb_const_mod use psb_error_mod use psb_penv_mod - use psb_prec_mod implicit none - + interface psb_prc_aply + subroutine psb_dprc_aply(prec,x,y,desc_data,info,trans, work) + use psb_serial_mod + use psb_descriptor_type + use psb_prec_type + implicit none + + type(psb_desc_type),intent(in) :: desc_data + type(psb_dprec_type), intent(in) :: prec + real(kind(0.d0)),intent(inout) :: x(:), y(:) + integer, intent(out) :: info + character(len=1), optional :: trans + real(kind(0.d0)), optional, target :: work(:) + end subroutine psb_dprc_aply + end interface type(psb_desc_type),intent(in) :: desc_data type(psb_dprec_type), intent(in) :: prec real(kind(0.d0)),intent(inout) :: x(:) diff --git a/src/prec/psb_dprecbld.f90 b/src/prec/psb_dprecbld.f90 index 3fd1a130..08388629 100644 --- a/src/prec/psb_dprecbld.f90 +++ b/src/prec/psb_dprecbld.f90 @@ -46,7 +46,7 @@ subroutine psb_dprecbld(a,desc_a,p,info,upd) use psb_psblas_mod use psb_error_mod use psb_penv_mod - use psb_prec_mod + use psb_prec_mod, only: psb_mlprc_bld, psb_baseprc_bld Implicit None type(psb_dspmat_type), target :: a diff --git a/src/prec/psb_dslu_bld.f90 b/src/prec/psb_dslu_bld.f90 index ad09e579..1879e910 100644 --- a/src/prec/psb_dslu_bld.f90 +++ b/src/prec/psb_dslu_bld.f90 @@ -41,7 +41,7 @@ subroutine psb_dslu_bld(a,desc_a,p,info) use psb_tools_mod use psb_const_mod use psb_penv_mod - use psb_prec_mod + use psb_prec_mod, only: psb_as_matbld implicit none type(psb_dspmat_type), intent(inout) :: a diff --git a/src/prec/psb_dumf_bld.f90 b/src/prec/psb_dumf_bld.f90 index f3426b16..c86c523b 100644 --- a/src/prec/psb_dumf_bld.f90 +++ b/src/prec/psb_dumf_bld.f90 @@ -41,7 +41,7 @@ subroutine psb_dumf_bld(a,desc_a,p,info) use psb_tools_mod use psb_const_mod use psb_penv_mod - use psb_prec_mod + use psb_prec_mod, only: psb_as_matbld implicit none type(psb_dspmat_type), intent(inout) :: a diff --git a/src/prec/psb_zbaseprc_bld.f90 b/src/prec/psb_zbaseprc_bld.f90 index 1d5973d1..ed7a04c3 100644 --- a/src/prec/psb_zbaseprc_bld.f90 +++ b/src/prec/psb_zbaseprc_bld.f90 @@ -46,7 +46,8 @@ subroutine psb_zbaseprc_bld(a,desc_a,p,info,upd) use psb_psblas_mod use psb_error_mod use psb_penv_mod - use psb_prec_mod + use psb_prec_mod, only: psb_diagsc_bld, psb_ilu_bld, & + & psb_slu_bld,psb_umf_bld Implicit None type(psb_zspmat_type), target :: a diff --git a/src/prec/psb_zilu_bld.f90 b/src/prec/psb_zilu_bld.f90 index 409cf66e..f0b42124 100644 --- a/src/prec/psb_zilu_bld.f90 +++ b/src/prec/psb_zilu_bld.f90 @@ -60,7 +60,7 @@ subroutine psb_zilu_bld(a,desc_a,p,upd,info) use psb_error_mod use psb_realloc_mod use psb_penv_mod - use psb_prec_mod + use psb_prec_mod, only : psb_as_matbld, psb_ilu_fct implicit none ! ! .. Scalar Arguments .. diff --git a/src/prec/psb_zmlprc_bld.f90 b/src/prec/psb_zmlprc_bld.f90 index b817a72d..b3a9eb38 100644 --- a/src/prec/psb_zmlprc_bld.f90 +++ b/src/prec/psb_zmlprc_bld.f90 @@ -43,7 +43,7 @@ subroutine psb_zmlprc_bld(a,desc_a,p,info) use psb_const_mod use psb_error_mod use psb_penv_mod - use psb_prec_mod + use psb_prec_mod, only : psb_genaggrmap, psb_bldaggrmat, psb_baseprc_bld implicit none type(psb_zspmat_type), intent(in), target :: a diff --git a/src/prec/psb_zprc_aply.f90 b/src/prec/psb_zprc_aply.f90 index b07df5c0..20b9b0a5 100644 --- a/src/prec/psb_zprc_aply.f90 +++ b/src/prec/psb_zprc_aply.f90 @@ -43,7 +43,7 @@ subroutine psb_zprc_aply(prec,x,y,desc_data,info,trans, work) use psb_const_mod use psb_error_mod use psb_penv_mod - use psb_prec_mod + use psb_prec_mod, only: psb_mlprc_aply, psb_baseprc_aply implicit none type(psb_desc_type),intent(in) :: desc_data @@ -166,9 +166,22 @@ subroutine psb_zprc_aply1(prec,x,desc_data,info,trans) use psb_const_mod use psb_error_mod use psb_penv_mod - use psb_prec_mod implicit none - + interface psb_prc_aply + subroutine psb_zprc_aply(prec,x,y,desc_data,info,trans, work) + use psb_serial_mod + use psb_descriptor_type + use psb_prec_type + implicit none + + type(psb_desc_type),intent(in) :: desc_data + type(psb_zprec_type), intent(in) :: prec + complex(kind(0.d0)),intent(inout) :: x(:), y(:) + integer, intent(out) :: info + character(len=1), optional :: trans + complex(kind(0.d0)), optional, target :: work(:) + end subroutine psb_zprc_aply + end interface type(psb_desc_type),intent(in) :: desc_data type(psb_zprec_type), intent(in) :: prec complex(kind(0.d0)),intent(inout) :: x(:) diff --git a/src/prec/psb_zprecbld.f90 b/src/prec/psb_zprecbld.f90 index 45362be9..bcf5a3fc 100644 --- a/src/prec/psb_zprecbld.f90 +++ b/src/prec/psb_zprecbld.f90 @@ -46,7 +46,7 @@ subroutine psb_zprecbld(a,desc_a,p,info,upd) use psb_psblas_mod use psb_error_mod use psb_penv_mod - use psb_prec_mod + use psb_prec_mod, only: psb_mlprc_bld, psb_baseprc_bld Implicit None type(psb_zspmat_type), target :: a diff --git a/src/prec/psb_zslu_bld.f90 b/src/prec/psb_zslu_bld.f90 index 66c8defc..563e1f49 100644 --- a/src/prec/psb_zslu_bld.f90 +++ b/src/prec/psb_zslu_bld.f90 @@ -41,7 +41,7 @@ subroutine psb_zslu_bld(a,desc_a,p,info) use psb_tools_mod use psb_const_mod use psb_penv_mod - use psb_prec_mod + use psb_prec_mod, only: psb_as_matbld implicit none type(psb_zspmat_type), intent(inout) :: a diff --git a/src/prec/psb_zumf_bld.f90 b/src/prec/psb_zumf_bld.f90 index b54d7f00..c0c1ab4b 100644 --- a/src/prec/psb_zumf_bld.f90 +++ b/src/prec/psb_zumf_bld.f90 @@ -41,7 +41,7 @@ subroutine psb_zumf_bld(a,desc_a,p,info) use psb_tools_mod use psb_const_mod use psb_penv_mod - use psb_prec_mod + use psb_prec_mod, only: psb_as_matbld implicit none type(psb_zspmat_type), intent(inout) :: a diff --git a/src/tools/psb_cdall.f90 b/src/tools/psb_cdall.f90 index 96327f79..d63055a0 100644 --- a/src/tools/psb_cdall.f90 +++ b/src/tools/psb_cdall.f90 @@ -384,7 +384,7 @@ subroutine psb_cdall(m, n, parts, ictxt, desc_a, info) call psb_errpush(err,name) Goto 9999 endif - ! At this point overlap is OK. + ! At this point overlap_elem is OK. desc_a%matrix_data(psb_ovl_state_) = psb_cd_ovl_asb_ ! set fields in desc_a%MATRIX_DATA....