fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-21 05:12:13 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
base/Makefile
 base/comm/psb_cgather.f90
 base/comm/psb_chalo.f90
 base/comm/psb_covrl.f90
 base/comm/psb_cscatter.F90
 base/comm/psb_dgather.f90
 base/comm/psb_dhalo.f90
 base/comm/psb_dovrl.f90
 base/comm/psb_dscatter.F90
 base/comm/psb_igather.f90
 base/comm/psb_ihalo.f90
 base/comm/psb_iovrl.f90
 base/comm/psb_iscatter.F90
 base/comm/psb_sgather.f90
 base/comm/psb_shalo.f90
 base/comm/psb_sovrl.f90
 base/comm/psb_sscatter.F90
 base/comm/psb_zgather.f90
 base/comm/psb_zhalo.f90
 base/comm/psb_zovrl.f90
 base/comm/psb_zscatter.F90
 base/modules/Makefile
 base/modules/psb_serial_mod.f90
 base/modules/psb_sparse_mod.f90
 base/psblas/psb_camax.f90
 base/psblas/psb_casum.f90
 base/psblas/psb_caxpby.f90
 base/psblas/psb_cdot.f90
 base/psblas/psb_cnrmi.f90
 base/psblas/psb_cspmm.f90
 base/psblas/psb_cspsm.f90
 base/psblas/psb_damax.f90
 base/psblas/psb_dasum.f90
 base/psblas/psb_daxpby.f90
 base/psblas/psb_ddot.f90
 base/psblas/psb_dspmm.f90
 base/psblas/psb_dspnrm1.f90
 base/psblas/psb_dspsm.f90
 base/psblas/psb_samax.f90
 base/psblas/psb_sasum.f90
 base/psblas/psb_saxpby.f90
 base/psblas/psb_sdot.f90
 base/psblas/psb_sspmm.f90
 base/psblas/psb_sspsm.f90
 base/psblas/psb_sxdot.f90
 base/psblas/psb_zamax.f90
 base/psblas/psb_zasum.f90
 base/psblas/psb_zaxpby.f90
 base/psblas/psb_zdot.f90
 base/psblas/psb_zspmm.f90
 base/psblas/psb_zspsm.f90
 base/serial/psb_cnumbmm.f90
 base/serial/psb_crwextd.f90
 base/serial/psb_csymbmm.f90
 base/serial/psb_dnumbmm.f90
 base/serial/psb_drwextd.f90
 base/serial/psb_dsymbmm.f90
 base/serial/psb_snumbmm.f90
 base/serial/psb_srwextd.f90
 base/serial/psb_ssymbmm.f90
 base/serial/psb_znumbmm.f90
 base/serial/psb_zrwextd.f90
 base/serial/psb_zsymbmm.f90
 base/tools/psb_callc.f90
 base/tools/psb_casb.f90
 base/tools/psb_ccdbldext.F90
 base/tools/psb_cd_inloc.f90
 base/tools/psb_cd_lstext.f90
 base/tools/psb_cd_reinit.f90
 base/tools/psb_cd_set_bld.f90
 base/tools/psb_cd_switch_ovl_indxmap.f90
 base/tools/psb_cdals.f90
 base/tools/psb_cdalv.f90
 base/tools/psb_cdcpy.F90
 base/tools/psb_cdins.f90
 base/tools/psb_cdprt.f90
 base/tools/psb_cdren.f90
 base/tools/psb_cdrep.f90
 base/tools/psb_cfree.f90
 base/tools/psb_cins.f90
 base/tools/psb_cspalloc.f90
 base/tools/psb_cspasb.f90
 base/tools/psb_cspfree.f90
 base/tools/psb_csphalo.F90
 base/tools/psb_cspins.f90
 base/tools/psb_csprn.f90
 base/tools/psb_dallc.f90
 base/tools/psb_dasb.f90
 base/tools/psb_dcdbldext.F90
 base/tools/psb_dfree.f90
 base/tools/psb_dins.f90
 base/tools/psb_dspalloc.f90
 base/tools/psb_dspasb.f90
 base/tools/psb_dspfree.f90
 base/tools/psb_dsphalo.F90
 base/tools/psb_dspins.f90
 base/tools/psb_dsprn.f90
 base/tools/psb_get_overlap.f90
 base/tools/psb_glob_to_loc.f90
 base/tools/psb_ialloc.f90
 base/tools/psb_iasb.f90
 base/tools/psb_icdasb.F90
 base/tools/psb_ifree.f90
 base/tools/psb_iins.f90
 base/tools/psb_linmap.f90
 base/tools/psb_loc_to_glob.f90
 base/tools/psb_map.f90
 base/tools/psb_sallc.f90
 base/tools/psb_sasb.f90
 base/tools/psb_scdbldext.F90
 base/tools/psb_sfree.f90
 base/tools/psb_sins.f90
 base/tools/psb_sspalloc.f90
 base/tools/psb_sspasb.f90
 base/tools/psb_sspfree.f90
 base/tools/psb_ssphalo.F90
 base/tools/psb_sspins.f90
 base/tools/psb_ssprn.f90
 base/tools/psb_zallc.f90
 base/tools/psb_zasb.f90
 base/tools/psb_zcdbldext.F90
 base/tools/psb_zfree.f90
 base/tools/psb_zins.f90
 base/tools/psb_zspalloc.f90
 base/tools/psb_zspasb.f90
 base/tools/psb_zspfree.f90
 base/tools/psb_zsphalo.F90
 base/tools/psb_zspins.f90
 base/tools/psb_zsprn.f90
 krylov/Makefile
 krylov/psb_base_inner_krylov_mod.f90
 krylov/psb_c_inner_krylov_mod.f90
 krylov/psb_cbicg.f90
 krylov/psb_ccg.f90
 krylov/psb_ccgs.f90
 krylov/psb_ccgstab.f90
 krylov/psb_ccgstabl.f90
 krylov/psb_ckrylov.f90
 krylov/psb_crgmres.f90
 krylov/psb_d_inner_krylov_mod.f90
 krylov/psb_dbicg.f90
 krylov/psb_dcg.F90
 krylov/psb_dcgs.f90
 krylov/psb_dcgstab.F90
 krylov/psb_dcgstabl.f90
 krylov/psb_dkrylov.f90
 krylov/psb_drgmres.f90
 krylov/psb_krylov_mod.f90
 krylov/psb_s_inner_krylov_mod.f90
 krylov/psb_sbicg.f90
 krylov/psb_scg.F90
 krylov/psb_scgs.f90
 krylov/psb_scgstab.F90
 krylov/psb_scgstabl.f90
 krylov/psb_skrylov.f90
 krylov/psb_srgmres.f90
 krylov/psb_z_inner_krylov_mod.f90
 krylov/psb_zbicg.f90
 krylov/psb_zcg.F90
 krylov/psb_zcgs.f90
 krylov/psb_zcgstab.f90
 krylov/psb_zcgstabl.f90
 krylov/psb_zkrylov.f90
 krylov/psb_zrgmres.f90
 opt/psb_d_ell_impl.f90
 opt/psb_d_rsb_mat_mod.F90
 prec/Makefile
 prec/psb_c_base_prec_mod.f90
 prec/psb_c_bjacprec.f90
 prec/psb_c_diagprec.f90
 prec/psb_c_nullprec.f90
 prec/psb_c_prec_type.f90
 prec/psb_cilu_fct.f90
 prec/psb_cprecbld.f90
 prec/psb_cprecinit.f90
 prec/psb_cprecset.f90
 prec/psb_d_base_prec_mod.f90
 prec/psb_d_bjacprec.f90
 prec/psb_d_diagprec.f90
 prec/psb_d_nullprec.f90
 prec/psb_d_prec_type.f90
 prec/psb_dilu_fct.f90
 prec/psb_dprecbld.f90
 prec/psb_dprecinit.f90
 prec/psb_dprecset.f90
 prec/psb_prec_const_mod.f90
 prec/psb_prec_mod.f90
 prec/psb_s_base_prec_mod.f90
 prec/psb_s_bjacprec.f90
 prec/psb_s_diagprec.f90
 prec/psb_s_nullprec.f90
 prec/psb_s_prec_type.f90
 prec/psb_silu_fct.f90
 prec/psb_sprecbld.f90
 prec/psb_sprecinit.f90
 prec/psb_sprecset.f90
 prec/psb_z_base_prec_mod.f90
 prec/psb_z_bjacprec.f90
 prec/psb_z_diagprec.f90
 prec/psb_z_nullprec.f90
 prec/psb_z_prec_type.f90
 prec/psb_zilu_fct.f90
 prec/psb_zprecbld.f90
 prec/psb_zprecinit.f90
 prec/psb_zprecset.f90
 test/fileread/cf_sample.f90
 test/fileread/df_sample.f90
 test/fileread/getp.f90
 test/fileread/sf_sample.f90
 test/fileread/zf_sample.f90
 test/newfmt/ppde.F90
 test/newfmt/spde.f90
 test/pargen/ppde.f90
 test/pargen/spde.f90
 test/serial/d_coo_matgen.f90
 test/serial/d_matgen.f90
 test/serial/psb_d_cxx_impl.f90
 test/serial/psb_d_cyy_impl.f90
 test/torture/psb_c_mvsv_tester.f90
 test/torture/psb_d_mvsv_tester.f90
 test/torture/psb_s_mvsv_tester.f90
 test/torture/psb_z_mvsv_tester.f90
 test/torture/psbtf.f90
 test/util/dhb2mm.f90
 test/util/dmm2hb.f90
 test/util/zhb2mm.f90
 test/util/zmm2hb.f90
 util/psb_hbio_impl.f90
 util/psb_hbio_mod.f90
 util/psb_mat_dist_impl.f90
 util/psb_mat_dist_mod.f90
 util/psb_metispart_mod.F90
 util/psb_mmio_impl.f90
 util/psb_mmio_mod.f90


Changed psb_sparse_mod into psb_base_mod, added psb_csprt. This allows
the cbind stuff to be shared between version 2 and version 3.
This commit is contained in:
Salvatore Filippone
2011-03-21 15:54:31 +00:00
parent 9993b41288
commit 324830ef7b
234 changed files with 1031 additions and 923 deletions
Download Patch File Download Diff File Expand all files Collapse all files
prec/Makefile
+1 -1
View File
@@ -33,7 +33,7 @@ lib: $(OBJS)
/bin/cp -p $(HERE)/$(LIBNAME) $(LIBDIR)
/bin/cp -p $(LIBMOD) $(LOCAL_MODS) $(LIBDIR)
$(OBJS): $(LIBDIR)/psb_sparse_mod$(.mod)
$(OBJS): $(LIBDIR)/psb_base_mod$(.mod)
$(F90OBJS): $(MODOBJS)
prec/psb_c_base_prec_mod.f90
+10 -10
View File
@@ -36,7 +36,7 @@
module psb_c_base_prec_mod
! Reduces size of .mod file.
use psb_sparse_mod, only : psb_dpk_, psb_spk_, psb_long_int_k_,&
use psb_base_mod, only : psb_dpk_, psb_spk_, psb_long_int_k_,&
& psb_desc_type, psb_sizeof, psb_free, psb_cdfree,&
& psb_erractionsave, psb_erractionrestore, psb_error, psb_get_errstatus,&
& psb_cspmat_type
@@ -65,7 +65,7 @@ module psb_c_base_prec_mod
contains
subroutine psb_c_base_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
use psb_sparse_mod
use psb_base_mod
type(psb_desc_type),intent(in) :: desc_data
class(psb_c_base_prec_type), intent(in) :: prec
complex(psb_spk_),intent(in) :: alpha, beta
@@ -102,7 +102,7 @@ contains
subroutine psb_c_base_precinit(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_c_base_prec_type),intent(inout) :: prec
@@ -134,7 +134,7 @@ contains
subroutine psb_c_base_precbld(a,desc_a,prec,info,upd,mold,afmt)
use psb_sparse_mod
use psb_base_mod
Implicit None
type(psb_cspmat_type), intent(in), target :: a
@@ -171,7 +171,7 @@ contains
subroutine psb_c_base_precseti(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_c_base_prec_type),intent(inout) :: prec
@@ -205,7 +205,7 @@ contains
subroutine psb_c_base_precsetr(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_c_base_prec_type),intent(inout) :: prec
@@ -239,7 +239,7 @@ contains
subroutine psb_c_base_precsetc(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_c_base_prec_type),intent(inout) :: prec
@@ -273,7 +273,7 @@ contains
subroutine psb_c_base_precfree(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_c_base_prec_type), intent(inout) :: prec
@@ -308,7 +308,7 @@ contains
subroutine psb_c_base_precdescr(prec,iout)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_c_base_prec_type), intent(in) :: prec
@@ -342,7 +342,7 @@ contains
function psb_c_base_sizeof(prec) result(val)
use psb_sparse_mod
use psb_base_mod
class(psb_c_base_prec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val
prec/psb_c_bjacprec.f90
+9 -9
View File
@@ -31,7 +31,7 @@ contains
subroutine psb_c_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
use psb_sparse_mod
use psb_base_mod
type(psb_desc_type),intent(in) :: desc_data
class(psb_c_bjac_prec_type), intent(in) :: prec
complex(psb_spk_),intent(in) :: alpha,beta
@@ -178,7 +178,7 @@ contains
subroutine psb_c_bjac_precinit(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_c_bjac_prec_type),intent(inout) :: prec
@@ -217,7 +217,7 @@ contains
subroutine psb_c_bjac_precbld(a,desc_a,prec,info,upd,mold,afmt)
use psb_sparse_mod
use psb_base_mod
use psb_prec_mod
Implicit None
@@ -363,7 +363,7 @@ contains
subroutine psb_c_bjac_precseti(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_c_bjac_prec_type),intent(inout) :: prec
@@ -418,7 +418,7 @@ contains
subroutine psb_c_bjac_precsetr(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_c_bjac_prec_type),intent(inout) :: prec
@@ -446,7 +446,7 @@ contains
subroutine psb_c_bjac_precsetc(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_c_bjac_prec_type),intent(inout) :: prec
@@ -474,7 +474,7 @@ contains
subroutine psb_c_bjac_precfree(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_c_bjac_prec_type), intent(inout) :: prec
@@ -511,7 +511,7 @@ contains
subroutine psb_c_bjac_precdescr(prec,iout)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_c_bjac_prec_type), intent(in) :: prec
@@ -558,7 +558,7 @@ contains
end subroutine psb_c_bjac_precdescr
function psb_c_bjac_sizeof(prec) result(val)
use psb_sparse_mod
use psb_base_mod
class(psb_c_bjac_prec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val
prec/psb_c_diagprec.f90
+9 -9
View File
@@ -25,7 +25,7 @@ contains
subroutine psb_c_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
use psb_sparse_mod
use psb_base_mod
type(psb_desc_type),intent(in) :: desc_data
class(psb_c_diag_prec_type), intent(in) :: prec
complex(psb_spk_),intent(in) :: x(:)
@@ -127,7 +127,7 @@ contains
subroutine psb_c_diag_precinit(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_c_diag_prec_type),intent(inout) :: prec
@@ -155,7 +155,7 @@ contains
subroutine psb_c_diag_precbld(a,desc_a,prec,info,upd,mold,afmt)
use psb_sparse_mod
use psb_base_mod
Implicit None
type(psb_cspmat_type), intent(in), target :: a
@@ -215,7 +215,7 @@ contains
subroutine psb_c_diag_precseti(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_c_diag_prec_type),intent(inout) :: prec
@@ -243,7 +243,7 @@ contains
subroutine psb_c_diag_precsetr(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_c_diag_prec_type),intent(inout) :: prec
@@ -271,7 +271,7 @@ contains
subroutine psb_c_diag_precsetc(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_c_diag_prec_type),intent(inout) :: prec
@@ -299,7 +299,7 @@ contains
subroutine psb_c_diag_precfree(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_c_diag_prec_type), intent(inout) :: prec
@@ -328,7 +328,7 @@ contains
subroutine psb_c_diag_precdescr(prec,iout)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_c_diag_prec_type), intent(in) :: prec
@@ -369,7 +369,7 @@ contains
end subroutine psb_c_diag_precdescr
function psb_c_diag_sizeof(prec) result(val)
use psb_sparse_mod
use psb_base_mod
class(psb_c_diag_prec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val
prec/psb_c_nullprec.f90
+9 -9
View File
@@ -23,7 +23,7 @@ contains
subroutine psb_c_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
use psb_sparse_mod
use psb_base_mod
type(psb_desc_type),intent(in) :: desc_data
class(psb_c_null_prec_type), intent(in) :: prec
complex(psb_spk_),intent(in) :: x(:)
@@ -78,7 +78,7 @@ contains
subroutine psb_c_null_precinit(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_c_null_prec_type),intent(inout) :: prec
@@ -105,7 +105,7 @@ contains
subroutine psb_c_null_precbld(a,desc_a,prec,info,upd,mold,afmt)
use psb_sparse_mod
use psb_base_mod
Implicit None
type(psb_cspmat_type), intent(in), target :: a
@@ -137,7 +137,7 @@ contains
subroutine psb_c_null_precseti(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_c_null_prec_type),intent(inout) :: prec
@@ -165,7 +165,7 @@ contains
subroutine psb_c_null_precsetr(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_c_null_prec_type),intent(inout) :: prec
@@ -193,7 +193,7 @@ contains
subroutine psb_c_null_precsetc(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_c_null_prec_type),intent(inout) :: prec
@@ -221,7 +221,7 @@ contains
subroutine psb_c_null_precfree(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_c_null_prec_type), intent(inout) :: prec
@@ -250,7 +250,7 @@ contains
subroutine psb_c_null_precdescr(prec,iout)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_c_null_prec_type), intent(in) :: prec
@@ -286,7 +286,7 @@ contains
end subroutine psb_c_null_precdescr
function psb_c_null_sizeof(prec) result(val)
use psb_sparse_mod
use psb_base_mod
class(psb_c_null_prec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val
prec/psb_c_prec_type.f90
+8 -8
View File
@@ -36,7 +36,7 @@
module psb_c_prec_type
! Reduces size of .mod file.
use psb_sparse_mod, only : psb_dpk_, psb_spk_, psb_long_int_k_,&
use psb_base_mod, only : psb_dpk_, psb_spk_, psb_long_int_k_,&
& psb_desc_type, psb_sizeof, psb_free, psb_cdfree,&
& psb_erractionsave, psb_erractionrestore, psb_error, psb_get_errstatus,&
& psb_cspmat_type
@@ -70,7 +70,7 @@ module psb_c_prec_type
interface psb_precaply
subroutine psb_cprc_aply(prec,x,y,desc_data,info,trans,work)
use psb_sparse_mod, only : psb_desc_type, psb_spk_
use psb_base_mod, only : psb_desc_type, psb_spk_
import :: psb_cprec_type
type(psb_desc_type),intent(in) :: desc_data
type(psb_cprec_type), intent(in) :: prec
@@ -81,7 +81,7 @@ module psb_c_prec_type
complex(psb_spk_),intent(inout), optional, target :: work(:)
end subroutine psb_cprc_aply
subroutine psb_cprc_aply1(prec,x,desc_data,info,trans)
use psb_sparse_mod, only : psb_desc_type, psb_spk_
use psb_base_mod, only : psb_desc_type, psb_spk_
import :: psb_cprec_type
type(psb_desc_type),intent(in) :: desc_data
type(psb_cprec_type), intent(in) :: prec
@@ -96,7 +96,7 @@ contains
subroutine psb_cfile_prec_descr(p,iout)
use psb_sparse_mod
use psb_base_mod
type(psb_cprec_type), intent(in) :: p
integer, intent(in), optional :: iout
integer :: iout_,info
@@ -117,7 +117,7 @@ contains
end subroutine psb_cfile_prec_descr
subroutine psb_c_precfree(p,info)
use psb_sparse_mod
use psb_base_mod
type(psb_cprec_type), intent(inout) :: p
integer, intent(out) :: info
integer :: err_act,i
@@ -154,7 +154,7 @@ contains
end subroutine psb_nullify_cprec
function psb_cprec_sizeof(prec) result(val)
use psb_sparse_mod
use psb_base_mod
type(psb_cprec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val
integer :: i
@@ -167,7 +167,7 @@ contains
end function psb_cprec_sizeof
subroutine c_apply2v(prec,x,y,desc_data,info,trans,work)
use psb_sparse_mod
use psb_base_mod
type(psb_desc_type),intent(in) :: desc_data
class(psb_cprec_type), intent(in) :: prec
complex(psb_spk_),intent(inout) :: x(:)
@@ -236,7 +236,7 @@ contains
end subroutine c_apply2v
subroutine c_apply1v(prec,x,desc_data,info,trans)
use psb_sparse_mod
use psb_base_mod
type(psb_desc_type),intent(in) :: desc_data
class(psb_cprec_type), intent(in) :: prec
complex(psb_spk_),intent(inout) :: x(:)
prec/psb_cilu_fct.f90
+1 -1
View File
@@ -36,7 +36,7 @@ subroutine psb_cilu_fct(a,l,u,d,info,blck)
! into L/D/U.
!
!
use psb_sparse_mod
use psb_base_mod
implicit none
! .. Scalar Arguments ..
integer, intent(out) :: info
prec/psb_cprecbld.f90
+1 -1
View File
@@ -31,7 +31,7 @@
!!$
subroutine psb_cprecbld(a,desc_a,p,info,upd,mold,afmt)
use psb_sparse_mod
use psb_base_mod
use psb_prec_mod, psb_protect_name => psb_cprecbld
Implicit None
prec/psb_cprecinit.f90
+1 -1
View File
@@ -31,7 +31,7 @@
!!$
subroutine psb_cprecinit(p,ptype,info)
use psb_sparse_mod
use psb_base_mod
use psb_prec_mod, psb_protect_name => psb_cprecinit
use psb_c_nullprec
use psb_c_diagprec
prec/psb_cprecset.f90
+2 -2
View File
@@ -31,7 +31,7 @@
!!$
subroutine psb_cprecseti(p,what,val,info)
use psb_sparse_mod
use psb_base_mod
use psb_prec_mod, psb_protect_name => psb_cprecseti
implicit none
type(psb_cprec_type), intent(inout) :: p
@@ -56,7 +56,7 @@ end subroutine psb_cprecseti
subroutine psb_cprecsets(p,what,val,info)
use psb_sparse_mod
use psb_base_mod
use psb_prec_mod, psb_protect_name => psb_cprecsets
implicit none
type(psb_cprec_type), intent(inout) :: p
prec/psb_d_base_prec_mod.f90
+13 -13
View File
@@ -36,7 +36,7 @@
module psb_d_base_prec_mod
! Reduces size of .mod file.
use psb_sparse_mod, only : psb_dpk_, psb_spk_, psb_long_int_k_,&
use psb_base_mod, only : psb_dpk_, psb_spk_, psb_long_int_k_,&
& psb_desc_type, psb_sizeof, psb_free, psb_cdfree,&
& psb_erractionsave, psb_erractionrestore, psb_error, psb_get_errstatus,&
& psb_dspmat_type
@@ -71,7 +71,7 @@ module psb_d_base_prec_mod
contains
subroutine psb_d_base_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
use psb_sparse_mod
use psb_base_mod
type(psb_desc_type),intent(in) :: desc_data
class(psb_d_base_prec_type), intent(in) :: prec
real(psb_dpk_),intent(in) :: alpha, beta
@@ -108,7 +108,7 @@ contains
subroutine psb_d_base_precinit(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_d_base_prec_type),intent(inout) :: prec
@@ -140,7 +140,7 @@ contains
subroutine psb_d_base_precbld(a,desc_a,prec,info,upd,mold,afmt)
use psb_sparse_mod
use psb_base_mod
Implicit None
type(psb_dspmat_type), intent(in), target :: a
@@ -177,7 +177,7 @@ contains
subroutine psb_d_base_precseti(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_d_base_prec_type),intent(inout) :: prec
@@ -211,7 +211,7 @@ contains
subroutine psb_d_base_precsetr(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_d_base_prec_type),intent(inout) :: prec
@@ -245,7 +245,7 @@ contains
subroutine psb_d_base_precsetc(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_d_base_prec_type),intent(inout) :: prec
@@ -279,7 +279,7 @@ contains
subroutine psb_d_base_precfree(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_d_base_prec_type), intent(inout) :: prec
@@ -314,7 +314,7 @@ contains
subroutine psb_d_base_precdescr(prec,iout)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_d_base_prec_type), intent(in) :: prec
@@ -347,7 +347,7 @@ contains
end subroutine psb_d_base_precdescr
subroutine psb_d_base_precdump(prec,info,prefix,head)
use psb_sparse_mod
use psb_base_mod
implicit none
class(psb_d_base_prec_type), intent(in) :: prec
integer, intent(out) :: info
@@ -379,7 +379,7 @@ contains
end subroutine psb_d_base_precdump
subroutine psb_d_base_set_ctxt(prec,ictxt)
use psb_sparse_mod
use psb_base_mod
implicit none
class(psb_d_base_prec_type), intent(inout) :: prec
integer, intent(in) :: ictxt
@@ -389,7 +389,7 @@ contains
end subroutine psb_d_base_set_ctxt
function psb_d_base_sizeof(prec) result(val)
use psb_sparse_mod
use psb_base_mod
class(psb_d_base_prec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val
@@ -398,7 +398,7 @@ contains
end function psb_d_base_sizeof
function psb_d_base_get_ctxt(prec) result(val)
use psb_sparse_mod
use psb_base_mod
class(psb_d_base_prec_type), intent(in) :: prec
integer :: val
prec/psb_d_bjacprec.f90
+10 -10
View File
@@ -32,7 +32,7 @@ contains
subroutine psb_d_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
use psb_sparse_mod
use psb_base_mod
type(psb_desc_type),intent(in) :: desc_data
class(psb_d_bjac_prec_type), intent(in) :: prec
real(psb_dpk_),intent(in) :: alpha,beta
@@ -173,7 +173,7 @@ contains
subroutine psb_d_bjac_precinit(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_d_bjac_prec_type),intent(inout) :: prec
@@ -212,7 +212,7 @@ contains
subroutine psb_d_bjac_precbld(a,desc_a,prec,info,upd,mold,afmt)
use psb_sparse_mod
use psb_base_mod
use psb_prec_mod
Implicit None
@@ -360,7 +360,7 @@ contains
subroutine psb_d_bjac_precseti(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_d_bjac_prec_type),intent(inout) :: prec
@@ -415,7 +415,7 @@ contains
subroutine psb_d_bjac_precsetr(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_d_bjac_prec_type),intent(inout) :: prec
@@ -443,7 +443,7 @@ contains
subroutine psb_d_bjac_precsetc(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_d_bjac_prec_type),intent(inout) :: prec
@@ -471,7 +471,7 @@ contains
subroutine psb_d_bjac_precfree(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_d_bjac_prec_type), intent(inout) :: prec
@@ -508,7 +508,7 @@ contains
subroutine psb_d_bjac_precdescr(prec,iout)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_d_bjac_prec_type), intent(in) :: prec
@@ -556,7 +556,7 @@ contains
subroutine psb_d_bjac_dump(prec,info,prefix,head)
use psb_sparse_mod
use psb_base_mod
implicit none
class(psb_d_bjac_prec_type), intent(in) :: prec
integer, intent(out) :: info
@@ -595,7 +595,7 @@ contains
end subroutine psb_d_bjac_dump
function psb_d_bjac_sizeof(prec) result(val)
use psb_sparse_mod
use psb_base_mod
class(psb_d_bjac_prec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val
prec/psb_d_diagprec.f90
+9 -9
View File
@@ -25,7 +25,7 @@ contains
subroutine psb_d_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
use psb_sparse_mod
use psb_base_mod
type(psb_desc_type),intent(in) :: desc_data
class(psb_d_diag_prec_type), intent(in) :: prec
real(psb_dpk_),intent(in) :: x(:)
@@ -104,7 +104,7 @@ contains
subroutine psb_d_diag_precinit(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_d_diag_prec_type),intent(inout) :: prec
@@ -132,7 +132,7 @@ contains
subroutine psb_d_diag_precbld(a,desc_a,prec,info,upd,mold,afmt)
use psb_sparse_mod
use psb_base_mod
Implicit None
type(psb_dspmat_type), intent(in), target :: a
@@ -192,7 +192,7 @@ contains
subroutine psb_d_diag_precseti(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_d_diag_prec_type),intent(inout) :: prec
@@ -220,7 +220,7 @@ contains
subroutine psb_d_diag_precsetr(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_d_diag_prec_type),intent(inout) :: prec
@@ -248,7 +248,7 @@ contains
subroutine psb_d_diag_precsetc(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_d_diag_prec_type),intent(inout) :: prec
@@ -276,7 +276,7 @@ contains
subroutine psb_d_diag_precfree(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_d_diag_prec_type), intent(inout) :: prec
@@ -305,7 +305,7 @@ contains
subroutine psb_d_diag_precdescr(prec,iout)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_d_diag_prec_type), intent(in) :: prec
@@ -346,7 +346,7 @@ contains
end subroutine psb_d_diag_precdescr
function psb_d_diag_sizeof(prec) result(val)
use psb_sparse_mod
use psb_base_mod
class(psb_d_diag_prec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val
prec/psb_d_nullprec.f90
+9 -9
View File
@@ -23,7 +23,7 @@ contains
subroutine psb_d_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
use psb_sparse_mod
use psb_base_mod
type(psb_desc_type),intent(in) :: desc_data
class(psb_d_null_prec_type), intent(in) :: prec
real(psb_dpk_),intent(in) :: x(:)
@@ -78,7 +78,7 @@ contains
subroutine psb_d_null_precinit(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_d_null_prec_type),intent(inout) :: prec
@@ -105,7 +105,7 @@ contains
subroutine psb_d_null_precbld(a,desc_a,prec,info,upd,mold,afmt)
use psb_sparse_mod
use psb_base_mod
Implicit None
type(psb_dspmat_type), intent(in), target :: a
@@ -137,7 +137,7 @@ contains
subroutine psb_d_null_precseti(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_d_null_prec_type),intent(inout) :: prec
@@ -165,7 +165,7 @@ contains
subroutine psb_d_null_precsetr(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_d_null_prec_type),intent(inout) :: prec
@@ -193,7 +193,7 @@ contains
subroutine psb_d_null_precsetc(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_d_null_prec_type),intent(inout) :: prec
@@ -221,7 +221,7 @@ contains
subroutine psb_d_null_precfree(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_d_null_prec_type), intent(inout) :: prec
@@ -250,7 +250,7 @@ contains
subroutine psb_d_null_precdescr(prec,iout)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_d_null_prec_type), intent(in) :: prec
@@ -286,7 +286,7 @@ contains
end subroutine psb_d_null_precdescr
function psb_d_null_sizeof(prec) result(val)
use psb_sparse_mod
use psb_base_mod
class(psb_d_null_prec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val
prec/psb_d_prec_type.f90
+9 -9
View File
@@ -36,7 +36,7 @@
module psb_d_prec_type
! Reduces size of .mod file.
use psb_sparse_mod, only : psb_dpk_, psb_spk_, psb_long_int_k_,&
use psb_base_mod, only : psb_dpk_, psb_spk_, psb_long_int_k_,&
& psb_desc_type, psb_sizeof, psb_free, psb_cdfree,&
& psb_erractionsave, psb_erractionrestore, psb_error, psb_get_errstatus,&
& psb_dspmat_type
@@ -76,7 +76,7 @@ module psb_d_prec_type
interface psb_precaply
subroutine psb_dprc_aply(prec,x,y,desc_data,info,trans,work)
use psb_sparse_mod, only : psb_desc_type, psb_dpk_
use psb_base_mod, only : psb_desc_type, psb_dpk_
import :: psb_dprec_type
type(psb_desc_type),intent(in) :: desc_data
type(psb_dprec_type), intent(in) :: prec
@@ -87,7 +87,7 @@ module psb_d_prec_type
real(psb_dpk_),intent(inout), optional, target :: work(:)
end subroutine psb_dprc_aply
subroutine psb_dprc_aply1(prec,x,desc_data,info,trans)
use psb_sparse_mod, only : psb_desc_type, psb_dpk_
use psb_base_mod, only : psb_desc_type, psb_dpk_
import :: psb_dprec_type
type(psb_desc_type),intent(in) :: desc_data
type(psb_dprec_type), intent(in) :: prec
@@ -102,7 +102,7 @@ contains
subroutine psb_file_prec_descr(p,iout)
use psb_sparse_mod
use psb_base_mod
type(psb_dprec_type), intent(in) :: p
integer, intent(in), optional :: iout
integer :: iout_, info
@@ -124,7 +124,7 @@ contains
subroutine psb_d_prec_dump(prec,info,prefix,head)
use psb_sparse_mod
use psb_base_mod
implicit none
type(psb_dprec_type), intent(in) :: prec
integer, intent(out) :: info
@@ -146,7 +146,7 @@ contains
subroutine psb_d_precfree(p,info)
use psb_sparse_mod
use psb_base_mod
type(psb_dprec_type), intent(inout) :: p
integer, intent(out) :: info
integer :: me, err_act,i
@@ -185,7 +185,7 @@ contains
function psb_dprec_sizeof(prec) result(val)
use psb_sparse_mod
use psb_base_mod
type(psb_dprec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val
integer :: i
@@ -198,7 +198,7 @@ contains
subroutine d_apply2v(prec,x,y,desc_data,info,trans,work)
use psb_sparse_mod
use psb_base_mod
type(psb_desc_type),intent(in) :: desc_data
class(psb_dprec_type), intent(in) :: prec
real(psb_dpk_),intent(inout) :: x(:)
@@ -267,7 +267,7 @@ contains
end subroutine d_apply2v
subroutine d_apply1v(prec,x,desc_data,info,trans)
use psb_sparse_mod
use psb_base_mod
type(psb_desc_type),intent(in) :: desc_data
class(psb_dprec_type), intent(in) :: prec
real(psb_dpk_),intent(inout) :: x(:)
prec/psb_dilu_fct.f90
+1 -1
View File
@@ -36,7 +36,7 @@ subroutine psb_dilu_fct(a,l,u,d,info,blck)
! into L/D/U.
!
!
use psb_sparse_mod
use psb_base_mod
implicit none
! .. Scalar Arguments ..
integer, intent(out) :: info
prec/psb_dprecbld.f90
+1 -1
View File
@@ -31,7 +31,7 @@
!!$
subroutine psb_dprecbld(a,desc_a,p,info,upd,mold,afmt)
use psb_sparse_mod
use psb_base_mod
use psb_prec_mod, psb_protect_name => psb_dprecbld
Implicit None
prec/psb_dprecinit.f90
+1 -1
View File
@@ -31,7 +31,7 @@
!!$
subroutine psb_dprecinit(p,ptype,info)
use psb_sparse_mod
use psb_base_mod
use psb_prec_mod, psb_protect_name => psb_dprecinit
use psb_d_nullprec
use psb_d_diagprec
prec/psb_dprecset.f90
+2 -2
View File
@@ -31,7 +31,7 @@
!!$
subroutine psb_dprecseti(p,what,val,info)
use psb_sparse_mod
use psb_base_mod
use psb_prec_mod, psb_protect_name => psb_dprecseti
implicit none
type(psb_dprec_type), intent(inout) :: p
@@ -56,7 +56,7 @@ end subroutine psb_dprecseti
subroutine psb_dprecsetd(p,what,val,info)
use psb_sparse_mod
use psb_base_mod
use psb_prec_mod, psb_protect_name => psb_dprecsetd
implicit none
type(psb_dprec_type), intent(inout) :: p
prec/psb_prec_const_mod.f90
+1 -1
View File
@@ -35,7 +35,7 @@
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
module psb_prec_const_mod
use psb_sparse_mod, only : psb_dpk_, psb_spk_, psb_long_int_k_,&
use psb_base_mod, only : psb_dpk_, psb_spk_, psb_long_int_k_,&
& psb_err_unit, psb_inp_unit, psb_out_unit
integer, parameter :: psb_min_prec_=0, psb_noprec_=0, psb_diag_=1, &
prec/psb_prec_mod.f90
+20 -20
View File
@@ -35,7 +35,7 @@ module psb_prec_mod
interface psb_precbld
subroutine psb_sprecbld(a,desc_a,prec,info,upd,mold,afmt)
use psb_sparse_mod, only : psb_desc_type, psb_sspmat_type,&
use psb_base_mod, only : psb_desc_type, psb_sspmat_type,&
& psb_s_base_sparse_mat, psb_spk_
use psb_prec_type, only : psb_sprec_type
implicit none
@@ -48,7 +48,7 @@ module psb_prec_mod
class(psb_s_base_sparse_mat), intent(in), optional :: mold
end subroutine psb_sprecbld
subroutine psb_dprecbld(a,desc_a,prec,info,upd,mold,afmt)
use psb_sparse_mod, only : psb_desc_type, psb_dspmat_type,&
use psb_base_mod, only : psb_desc_type, psb_dspmat_type,&
& psb_d_base_sparse_mat, psb_dpk_
use psb_prec_type, only : psb_dprec_type
implicit none
@@ -61,7 +61,7 @@ module psb_prec_mod
class(psb_d_base_sparse_mat), intent(in), optional :: mold
end subroutine psb_dprecbld
subroutine psb_cprecbld(a,desc_a,prec,info,upd,mold,afmt)
use psb_sparse_mod, only : psb_desc_type, psb_cspmat_type,&
use psb_base_mod, only : psb_desc_type, psb_cspmat_type,&
& psb_c_base_sparse_mat, psb_spk_
use psb_prec_type, only : psb_cprec_type
implicit none
@@ -74,7 +74,7 @@ module psb_prec_mod
class(psb_c_base_sparse_mat), intent(in), optional :: mold
end subroutine psb_cprecbld
subroutine psb_zprecbld(a,desc_a,prec,info,upd,mold,afmt)
use psb_sparse_mod, only : psb_desc_type, psb_zspmat_type,&
use psb_base_mod, only : psb_desc_type, psb_zspmat_type,&
& psb_z_base_sparse_mat, psb_dpk_
use psb_prec_type, only : psb_zprec_type
implicit none
@@ -90,7 +90,7 @@ module psb_prec_mod
interface psb_precinit
subroutine psb_sprecinit(prec,ptype,info)
use psb_sparse_mod, only : psb_desc_type, psb_sspmat_type, psb_spk_
use psb_base_mod, only : psb_desc_type, psb_sspmat_type, psb_spk_
use psb_prec_type, only : psb_sprec_type
implicit none
type(psb_sprec_type), intent(inout) :: prec
@@ -98,7 +98,7 @@ module psb_prec_mod
integer, intent(out) :: info
end subroutine psb_sprecinit
subroutine psb_dprecinit(prec,ptype,info)
use psb_sparse_mod, only : psb_desc_type, psb_dpk_
use psb_base_mod, only : psb_desc_type, psb_dpk_
use psb_prec_type, only : psb_dprec_type
implicit none
type(psb_dprec_type), intent(inout) :: prec
@@ -106,7 +106,7 @@ module psb_prec_mod
integer, intent(out) :: info
end subroutine psb_dprecinit
subroutine psb_cprecinit(prec,ptype,info)
use psb_sparse_mod
use psb_base_mod
use psb_prec_type
implicit none
type(psb_cprec_type), intent(inout) :: prec
@@ -114,7 +114,7 @@ module psb_prec_mod
integer, intent(out) :: info
end subroutine psb_cprecinit
subroutine psb_zprecinit(prec,ptype,info)
use psb_sparse_mod
use psb_base_mod
use psb_prec_type
implicit none
type(psb_zprec_type), intent(inout) :: prec
@@ -125,7 +125,7 @@ module psb_prec_mod
interface psb_precset
subroutine psb_sprecseti(prec,what,val,info)
use psb_sparse_mod, only : psb_desc_type, psb_sspmat_type, psb_spk_
use psb_base_mod, only : psb_desc_type, psb_sspmat_type, psb_spk_
use psb_prec_type, only : psb_sprec_type
implicit none
type(psb_sprec_type), intent(inout) :: prec
@@ -133,7 +133,7 @@ module psb_prec_mod
integer, intent(out) :: info
end subroutine psb_sprecseti
subroutine psb_sprecsets(prec,what,val,info)
use psb_sparse_mod, only : psb_desc_type, psb_sspmat_type, psb_spk_
use psb_base_mod, only : psb_desc_type, psb_sspmat_type, psb_spk_
use psb_prec_type, only : psb_sprec_type
implicit none
type(psb_sprec_type), intent(inout) :: prec
@@ -142,7 +142,7 @@ module psb_prec_mod
integer, intent(out) :: info
end subroutine psb_sprecsets
subroutine psb_dprecseti(prec,what,val,info)
use psb_sparse_mod, only : psb_desc_type, psb_dpk_
use psb_base_mod, only : psb_desc_type, psb_dpk_
use psb_prec_type, only : psb_dprec_type
implicit none
type(psb_dprec_type), intent(inout) :: prec
@@ -150,7 +150,7 @@ module psb_prec_mod
integer, intent(out) :: info
end subroutine psb_dprecseti
subroutine psb_dprecsetd(prec,what,val,info)
use psb_sparse_mod, only : psb_desc_type, psb_dpk_
use psb_base_mod, only : psb_desc_type, psb_dpk_
use psb_prec_type, only : psb_dprec_type
implicit none
type(psb_dprec_type), intent(inout) :: prec
@@ -159,7 +159,7 @@ module psb_prec_mod
integer, intent(out) :: info
end subroutine psb_dprecsetd
subroutine psb_cprecseti(prec,what,val,info)
use psb_sparse_mod, only : psb_desc_type, psb_cspmat_type, psb_spk_
use psb_base_mod, only : psb_desc_type, psb_cspmat_type, psb_spk_
use psb_prec_type, only : psb_cprec_type
implicit none
type(psb_cprec_type), intent(inout) :: prec
@@ -167,7 +167,7 @@ module psb_prec_mod
integer, intent(out) :: info
end subroutine psb_cprecseti
subroutine psb_cprecsets(prec,what,val,info)
use psb_sparse_mod, only : psb_desc_type, psb_cspmat_type, psb_spk_
use psb_base_mod, only : psb_desc_type, psb_cspmat_type, psb_spk_
use psb_prec_type, only : psb_cprec_type
implicit none
type(psb_cprec_type), intent(inout) :: prec
@@ -176,7 +176,7 @@ module psb_prec_mod
integer, intent(out) :: info
end subroutine psb_cprecsets
subroutine psb_zprecseti(prec,what,val,info)
use psb_sparse_mod, only : psb_desc_type, psb_zspmat_type, psb_dpk_
use psb_base_mod, only : psb_desc_type, psb_zspmat_type, psb_dpk_
use psb_prec_type, only : psb_zprec_type
implicit none
type(psb_zprec_type), intent(inout) :: prec
@@ -184,7 +184,7 @@ module psb_prec_mod
integer, intent(out) :: info
end subroutine psb_zprecseti
subroutine psb_zprecsetd(prec,what,val,info)
use psb_sparse_mod, only : psb_desc_type, psb_zspmat_type, psb_dpk_
use psb_base_mod, only : psb_desc_type, psb_zspmat_type, psb_dpk_
use psb_prec_type, only : psb_zprec_type
implicit none
type(psb_zprec_type), intent(inout) :: prec
@@ -196,7 +196,7 @@ module psb_prec_mod
interface psb_ilu_fct
subroutine psb_silu_fct(a,l,u,d,info,blck)
use psb_sparse_mod, only : psb_desc_type, psb_sspmat_type,&
use psb_base_mod, only : psb_desc_type, psb_sspmat_type,&
& psb_s_csr_sparse_mat, psb_spk_
integer, intent(out) :: info
type(psb_sspmat_type),intent(in) :: a
@@ -205,7 +205,7 @@ module psb_prec_mod
real(psb_spk_), intent(inout) :: d(:)
end subroutine psb_silu_fct
subroutine psb_dilu_fct(a,l,u,d,info,blck)
use psb_sparse_mod, only : psb_desc_type, psb_dspmat_type,&
use psb_base_mod, only : psb_desc_type, psb_dspmat_type,&
& psb_d_csr_sparse_mat, psb_dpk_
integer, intent(out) :: info
type(psb_dspmat_type),intent(in) :: a
@@ -214,7 +214,7 @@ module psb_prec_mod
real(psb_dpk_), intent(inout) :: d(:)
end subroutine psb_dilu_fct
subroutine psb_cilu_fct(a,l,u,d,info,blck)
use psb_sparse_mod, only : psb_desc_type, psb_cspmat_type, &
use psb_base_mod, only : psb_desc_type, psb_cspmat_type, &
& psb_c_csr_sparse_mat, psb_spk_
integer, intent(out) :: info
type(psb_cspmat_type),intent(in) :: a
@@ -223,7 +223,7 @@ module psb_prec_mod
complex(psb_spk_), intent(inout) :: d(:)
end subroutine psb_cilu_fct
subroutine psb_zilu_fct(a,l,u,d,info,blck)
use psb_sparse_mod, only : psb_desc_type, psb_zspmat_type, &
use psb_base_mod, only : psb_desc_type, psb_zspmat_type, &
& psb_z_csr_sparse_mat, psb_dpk_
integer, intent(out) :: info
type(psb_zspmat_type),intent(in) :: a
prec/psb_s_base_prec_mod.f90
+10 -10
View File
@@ -36,7 +36,7 @@
module psb_s_base_prec_mod
! Reduces size of .mod file.
use psb_sparse_mod, only : psb_dpk_, psb_spk_, psb_long_int_k_,&
use psb_base_mod, only : psb_dpk_, psb_spk_, psb_long_int_k_,&
& psb_desc_type, psb_sizeof, psb_free, psb_cdfree,&
& psb_erractionsave, psb_erractionrestore, psb_error, psb_get_errstatus,&
& psb_sspmat_type
@@ -65,7 +65,7 @@ contains
subroutine psb_s_base_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
use psb_sparse_mod
use psb_base_mod
type(psb_desc_type),intent(in) :: desc_data
class(psb_s_base_prec_type), intent(in) :: prec
real(psb_spk_),intent(in) :: alpha, beta
@@ -102,7 +102,7 @@ contains
subroutine psb_s_base_precinit(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_s_base_prec_type),intent(inout) :: prec
@@ -134,7 +134,7 @@ contains
subroutine psb_s_base_precbld(a,desc_a,prec,info,upd,mold,afmt)
use psb_sparse_mod
use psb_base_mod
Implicit None
type(psb_sspmat_type), intent(in), target :: a
@@ -171,7 +171,7 @@ contains
subroutine psb_s_base_precseti(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_s_base_prec_type),intent(inout) :: prec
@@ -205,7 +205,7 @@ contains
subroutine psb_s_base_precsetr(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_s_base_prec_type),intent(inout) :: prec
@@ -239,7 +239,7 @@ contains
subroutine psb_s_base_precsetc(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_s_base_prec_type),intent(inout) :: prec
@@ -273,7 +273,7 @@ contains
subroutine psb_s_base_precfree(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_s_base_prec_type), intent(inout) :: prec
@@ -308,7 +308,7 @@ contains
subroutine psb_s_base_precdescr(prec,iout)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_s_base_prec_type), intent(in) :: prec
@@ -342,7 +342,7 @@ contains
function psb_s_base_sizeof(prec) result(val)
use psb_sparse_mod
use psb_base_mod
class(psb_s_base_prec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val
prec/psb_s_bjacprec.f90
+9 -9
View File
@@ -31,7 +31,7 @@ contains
subroutine psb_s_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
use psb_sparse_mod
use psb_base_mod
type(psb_desc_type),intent(in) :: desc_data
class(psb_s_bjac_prec_type), intent(in) :: prec
real(psb_spk_),intent(in) :: alpha,beta
@@ -172,7 +172,7 @@ contains
subroutine psb_s_bjac_precinit(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_s_bjac_prec_type),intent(inout) :: prec
@@ -211,7 +211,7 @@ contains
subroutine psb_s_bjac_precbld(a,desc_a,prec,info,upd,mold,afmt)
use psb_sparse_mod
use psb_base_mod
use psb_prec_mod
Implicit None
@@ -358,7 +358,7 @@ contains
subroutine psb_s_bjac_precseti(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_s_bjac_prec_type),intent(inout) :: prec
@@ -413,7 +413,7 @@ contains
subroutine psb_s_bjac_precsetr(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_s_bjac_prec_type),intent(inout) :: prec
@@ -441,7 +441,7 @@ contains
subroutine psb_s_bjac_precsetc(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_s_bjac_prec_type),intent(inout) :: prec
@@ -469,7 +469,7 @@ contains
subroutine psb_s_bjac_precfree(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_s_bjac_prec_type), intent(inout) :: prec
@@ -506,7 +506,7 @@ contains
subroutine psb_s_bjac_precdescr(prec,iout)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_s_bjac_prec_type), intent(in) :: prec
@@ -553,7 +553,7 @@ contains
end subroutine psb_s_bjac_precdescr
function psb_s_bjac_sizeof(prec) result(val)
use psb_sparse_mod
use psb_base_mod
class(psb_s_bjac_prec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val
prec/psb_s_diagprec.f90
+9 -9
View File
@@ -25,7 +25,7 @@ contains
subroutine psb_s_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
use psb_sparse_mod
use psb_base_mod
type(psb_desc_type),intent(in) :: desc_data
class(psb_s_diag_prec_type), intent(in) :: prec
real(psb_spk_),intent(in) :: x(:)
@@ -104,7 +104,7 @@ contains
subroutine psb_s_diag_precinit(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_s_diag_prec_type),intent(inout) :: prec
@@ -132,7 +132,7 @@ contains
subroutine psb_s_diag_precbld(a,desc_a,prec,info,upd,mold,afmt)
use psb_sparse_mod
use psb_base_mod
Implicit None
type(psb_sspmat_type), intent(in), target :: a
@@ -192,7 +192,7 @@ contains
subroutine psb_s_diag_precseti(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_s_diag_prec_type),intent(inout) :: prec
@@ -220,7 +220,7 @@ contains
subroutine psb_s_diag_precsetr(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_s_diag_prec_type),intent(inout) :: prec
@@ -248,7 +248,7 @@ contains
subroutine psb_s_diag_precsetc(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_s_diag_prec_type),intent(inout) :: prec
@@ -276,7 +276,7 @@ contains
subroutine psb_s_diag_precfree(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_s_diag_prec_type), intent(inout) :: prec
@@ -305,7 +305,7 @@ contains
subroutine psb_s_diag_precdescr(prec,iout)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_s_diag_prec_type), intent(in) :: prec
@@ -346,7 +346,7 @@ contains
end subroutine psb_s_diag_precdescr
function psb_s_diag_sizeof(prec) result(val)
use psb_sparse_mod
use psb_base_mod
class(psb_s_diag_prec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val
prec/psb_s_nullprec.f90
+9 -9
View File
@@ -23,7 +23,7 @@ contains
subroutine psb_s_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
use psb_sparse_mod
use psb_base_mod
type(psb_desc_type),intent(in) :: desc_data
class(psb_s_null_prec_type), intent(in) :: prec
real(psb_spk_),intent(in) :: x(:)
@@ -77,7 +77,7 @@ contains
subroutine psb_s_null_precinit(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_s_null_prec_type),intent(inout) :: prec
@@ -104,7 +104,7 @@ contains
subroutine psb_s_null_precbld(a,desc_a,prec,info,upd,mold,afmt)
use psb_sparse_mod
use psb_base_mod
Implicit None
type(psb_sspmat_type), intent(in), target :: a
@@ -136,7 +136,7 @@ contains
subroutine psb_s_null_precseti(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_s_null_prec_type),intent(inout) :: prec
@@ -164,7 +164,7 @@ contains
subroutine psb_s_null_precsetr(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_s_null_prec_type),intent(inout) :: prec
@@ -192,7 +192,7 @@ contains
subroutine psb_s_null_precsetc(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_s_null_prec_type),intent(inout) :: prec
@@ -220,7 +220,7 @@ contains
subroutine psb_s_null_precfree(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_s_null_prec_type), intent(inout) :: prec
@@ -249,7 +249,7 @@ contains
subroutine psb_s_null_precdescr(prec,iout)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_s_null_prec_type), intent(in) :: prec
@@ -285,7 +285,7 @@ contains
end subroutine psb_s_null_precdescr
function psb_s_null_sizeof(prec) result(val)
use psb_sparse_mod
use psb_base_mod
class(psb_s_null_prec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val
prec/psb_s_prec_type.f90
+8 -8
View File
@@ -36,7 +36,7 @@
module psb_s_prec_type
! Reduces size of .mod file.
use psb_sparse_mod, only : psb_dpk_, psb_spk_, psb_long_int_k_,&
use psb_base_mod, only : psb_dpk_, psb_spk_, psb_long_int_k_,&
& psb_desc_type, psb_sizeof, psb_free, psb_cdfree,&
& psb_erractionsave, psb_erractionrestore, psb_error, psb_get_errstatus,&
& psb_sspmat_type
@@ -71,7 +71,7 @@ module psb_s_prec_type
interface psb_precaply
subroutine psb_sprc_aply(prec,x,y,desc_data,info,trans,work)
use psb_sparse_mod, only : psb_desc_type, psb_spk_
use psb_base_mod, only : psb_desc_type, psb_spk_
import :: psb_sprec_type
type(psb_desc_type),intent(in) :: desc_data
type(psb_sprec_type), intent(in) :: prec
@@ -82,7 +82,7 @@ module psb_s_prec_type
real(psb_spk_),intent(inout), optional, target :: work(:)
end subroutine psb_sprc_aply
subroutine psb_sprc_aply1(prec,x,desc_data,info,trans)
use psb_sparse_mod, only : psb_desc_type, psb_spk_
use psb_base_mod, only : psb_desc_type, psb_spk_
import :: psb_sprec_type
type(psb_desc_type),intent(in) :: desc_data
type(psb_sprec_type), intent(in) :: prec
@@ -97,7 +97,7 @@ contains
subroutine psb_sfile_prec_descr(p,iout)
use psb_sparse_mod
use psb_base_mod
type(psb_sprec_type), intent(in) :: p
integer, intent(in), optional :: iout
integer :: iout_,info
@@ -119,7 +119,7 @@ contains
subroutine psb_s_precfree(p,info)
use psb_sparse_mod
use psb_base_mod
type(psb_sprec_type), intent(inout) :: p
integer, intent(out) :: info
integer :: me, err_act,i
@@ -156,7 +156,7 @@ contains
end subroutine psb_nullify_sprec
function psb_sprec_sizeof(prec) result(val)
use psb_sparse_mod
use psb_base_mod
type(psb_sprec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val
integer :: i
@@ -170,7 +170,7 @@ contains
end function psb_sprec_sizeof
subroutine s_apply2v(prec,x,y,desc_data,info,trans,work)
use psb_sparse_mod
use psb_base_mod
type(psb_desc_type),intent(in) :: desc_data
class(psb_sprec_type), intent(in) :: prec
real(psb_spk_),intent(inout) :: x(:)
@@ -239,7 +239,7 @@ contains
end subroutine s_apply2v
subroutine s_apply1v(prec,x,desc_data,info,trans)
use psb_sparse_mod
use psb_base_mod
type(psb_desc_type),intent(in) :: desc_data
class(psb_sprec_type), intent(in) :: prec
real(psb_spk_),intent(inout) :: x(:)
prec/psb_silu_fct.f90
+1 -1
View File
@@ -36,7 +36,7 @@ subroutine psb_silu_fct(a,l,u,d,info,blck)
! into L/D/U.
!
!
use psb_sparse_mod
use psb_base_mod
implicit none
! .. Scalar Arguments ..
integer, intent(out) :: info
prec/psb_sprecbld.f90
+1 -1
View File
@@ -31,7 +31,7 @@
!!$
subroutine psb_sprecbld(a,desc_a,p,info,upd,mold,afmt)
use psb_sparse_mod
use psb_base_mod
use psb_prec_mod, psb_protect_name => psb_sprecbld
Implicit None
prec/psb_sprecinit.f90
+1 -1
View File
@@ -31,7 +31,7 @@
!!$
subroutine psb_sprecinit(p,ptype,info)
use psb_sparse_mod
use psb_base_mod
use psb_prec_mod, psb_protect_name => psb_sprecinit
use psb_s_nullprec
use psb_s_diagprec
prec/psb_sprecset.f90
+2 -2
View File
@@ -31,7 +31,7 @@
!!$
subroutine psb_sprecseti(p,what,val,info)
use psb_sparse_mod
use psb_base_mod
use psb_prec_mod, psb_protect_name => psb_sprecseti
implicit none
type(psb_sprec_type), intent(inout) :: p
@@ -56,7 +56,7 @@ end subroutine psb_sprecseti
subroutine psb_sprecsets(p,what,val,info)
use psb_sparse_mod
use psb_base_mod
use psb_prec_mod, psb_protect_name => psb_sprecsets
implicit none
type(psb_sprec_type), intent(inout) :: p
prec/psb_z_base_prec_mod.f90
+10 -10
View File
@@ -36,7 +36,7 @@
module psb_z_base_prec_mod
! Reduces size of .mod file.
use psb_sparse_mod, only : psb_dpk_, psb_spk_, psb_long_int_k_,&
use psb_base_mod, only : psb_dpk_, psb_spk_, psb_long_int_k_,&
& psb_desc_type, psb_sizeof, psb_free, psb_cdfree,&
& psb_erractionsave, psb_erractionrestore, psb_error, psb_get_errstatus,&
& psb_zspmat_type
@@ -66,7 +66,7 @@ contains
subroutine psb_z_base_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
use psb_sparse_mod
use psb_base_mod
type(psb_desc_type),intent(in) :: desc_data
class(psb_z_base_prec_type), intent(in) :: prec
complex(psb_dpk_),intent(in) :: alpha, beta
@@ -103,7 +103,7 @@ contains
subroutine psb_z_base_precinit(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_z_base_prec_type),intent(inout) :: prec
@@ -135,7 +135,7 @@ contains
subroutine psb_z_base_precbld(a,desc_a,prec,info,upd,mold,afmt)
use psb_sparse_mod
use psb_base_mod
Implicit None
type(psb_zspmat_type), intent(in), target :: a
@@ -172,7 +172,7 @@ contains
subroutine psb_z_base_precseti(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_z_base_prec_type),intent(inout) :: prec
@@ -206,7 +206,7 @@ contains
subroutine psb_z_base_precsetr(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_z_base_prec_type),intent(inout) :: prec
@@ -240,7 +240,7 @@ contains
subroutine psb_z_base_precsetc(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_z_base_prec_type),intent(inout) :: prec
@@ -274,7 +274,7 @@ contains
subroutine psb_z_base_precfree(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_z_base_prec_type), intent(inout) :: prec
@@ -309,7 +309,7 @@ contains
subroutine psb_z_base_precdescr(prec,iout)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_z_base_prec_type), intent(in) :: prec
@@ -343,7 +343,7 @@ contains
function psb_z_base_sizeof(prec) result(val)
use psb_sparse_mod
use psb_base_mod
class(psb_z_base_prec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val
prec/psb_z_bjacprec.f90
+9 -9
View File
@@ -31,7 +31,7 @@ contains
subroutine psb_z_bjac_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
use psb_sparse_mod
use psb_base_mod
type(psb_desc_type),intent(in) :: desc_data
class(psb_z_bjac_prec_type), intent(in) :: prec
complex(psb_dpk_),intent(in) :: alpha,beta
@@ -178,7 +178,7 @@ contains
subroutine psb_z_bjac_precinit(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_z_bjac_prec_type),intent(inout) :: prec
@@ -217,7 +217,7 @@ contains
subroutine psb_z_bjac_precbld(a,desc_a,prec,info,upd,mold,afmt)
use psb_sparse_mod
use psb_base_mod
use psb_prec_mod
Implicit None
@@ -364,7 +364,7 @@ contains
subroutine psb_z_bjac_precseti(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_z_bjac_prec_type),intent(inout) :: prec
@@ -419,7 +419,7 @@ contains
subroutine psb_z_bjac_precsetr(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_z_bjac_prec_type),intent(inout) :: prec
@@ -447,7 +447,7 @@ contains
subroutine psb_z_bjac_precsetc(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_z_bjac_prec_type),intent(inout) :: prec
@@ -475,7 +475,7 @@ contains
subroutine psb_z_bjac_precfree(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_z_bjac_prec_type), intent(inout) :: prec
@@ -512,7 +512,7 @@ contains
subroutine psb_z_bjac_precdescr(prec,iout)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_z_bjac_prec_type), intent(in) :: prec
@@ -559,7 +559,7 @@ contains
end subroutine psb_z_bjac_precdescr
function psb_z_bjac_sizeof(prec) result(val)
use psb_sparse_mod
use psb_base_mod
class(psb_z_bjac_prec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val
prec/psb_z_diagprec.f90
+9 -9
View File
@@ -25,7 +25,7 @@ contains
subroutine psb_z_diag_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
use psb_sparse_mod
use psb_base_mod
type(psb_desc_type),intent(in) :: desc_data
class(psb_z_diag_prec_type), intent(in) :: prec
complex(psb_dpk_),intent(in) :: x(:)
@@ -127,7 +127,7 @@ contains
subroutine psb_z_diag_precinit(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_z_diag_prec_type),intent(inout) :: prec
@@ -155,7 +155,7 @@ contains
subroutine psb_z_diag_precbld(a,desc_a,prec,info,upd,mold,afmt)
use psb_sparse_mod
use psb_base_mod
Implicit None
type(psb_zspmat_type), intent(in), target :: a
@@ -215,7 +215,7 @@ contains
subroutine psb_z_diag_precseti(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_z_diag_prec_type),intent(inout) :: prec
@@ -243,7 +243,7 @@ contains
subroutine psb_z_diag_precsetr(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_z_diag_prec_type),intent(inout) :: prec
@@ -271,7 +271,7 @@ contains
subroutine psb_z_diag_precsetc(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_z_diag_prec_type),intent(inout) :: prec
@@ -299,7 +299,7 @@ contains
subroutine psb_z_diag_precfree(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_z_diag_prec_type), intent(inout) :: prec
@@ -328,7 +328,7 @@ contains
subroutine psb_z_diag_precdescr(prec,iout)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_z_diag_prec_type), intent(in) :: prec
@@ -369,7 +369,7 @@ contains
end subroutine psb_z_diag_precdescr
function psb_z_diag_sizeof(prec) result(val)
use psb_sparse_mod
use psb_base_mod
class(psb_z_diag_prec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val
prec/psb_z_nullprec.f90
+9 -9
View File
@@ -24,7 +24,7 @@ contains
subroutine psb_z_null_apply(alpha,prec,x,beta,y,desc_data,info,trans,work)
use psb_sparse_mod
use psb_base_mod
type(psb_desc_type),intent(in) :: desc_data
class(psb_z_null_prec_type), intent(in) :: prec
complex(psb_dpk_),intent(in) :: x(:)
@@ -79,7 +79,7 @@ contains
subroutine psb_z_null_precinit(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_z_null_prec_type),intent(inout) :: prec
@@ -106,7 +106,7 @@ contains
subroutine psb_z_null_precbld(a,desc_a,prec,info,upd,mold,afmt)
use psb_sparse_mod
use psb_base_mod
Implicit None
type(psb_zspmat_type), intent(in), target :: a
@@ -138,7 +138,7 @@ contains
subroutine psb_z_null_precseti(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_z_null_prec_type),intent(inout) :: prec
@@ -166,7 +166,7 @@ contains
subroutine psb_z_null_precsetr(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_z_null_prec_type),intent(inout) :: prec
@@ -194,7 +194,7 @@ contains
subroutine psb_z_null_precsetc(prec,what,val,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_z_null_prec_type),intent(inout) :: prec
@@ -222,7 +222,7 @@ contains
subroutine psb_z_null_precfree(prec,info)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_z_null_prec_type), intent(inout) :: prec
@@ -251,7 +251,7 @@ contains
subroutine psb_z_null_precdescr(prec,iout)
use psb_sparse_mod
use psb_base_mod
Implicit None
class(psb_z_null_prec_type), intent(in) :: prec
@@ -287,7 +287,7 @@ contains
end subroutine psb_z_null_precdescr
function psb_z_null_sizeof(prec) result(val)
use psb_sparse_mod
use psb_base_mod
class(psb_z_null_prec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val
prec/psb_z_prec_type.f90
+8 -8
View File
@@ -36,7 +36,7 @@
module psb_z_prec_type
! Reduces size of .mod file.
use psb_sparse_mod, only : psb_dpk_, psb_spk_, psb_long_int_k_,&
use psb_base_mod, only : psb_dpk_, psb_spk_, psb_long_int_k_,&
& psb_desc_type, psb_sizeof, psb_free, psb_cdfree,&
& psb_erractionsave, psb_erractionrestore, psb_error, psb_get_errstatus,&
& psb_zspmat_type
@@ -70,7 +70,7 @@ module psb_z_prec_type
interface psb_precaply
subroutine psb_zprc_aply(prec,x,y,desc_data,info,trans,work)
use psb_sparse_mod, only : psb_desc_type, psb_dpk_
use psb_base_mod, only : psb_desc_type, psb_dpk_
import :: psb_zprec_type
type(psb_desc_type),intent(in) :: desc_data
type(psb_zprec_type), intent(in) :: prec
@@ -81,7 +81,7 @@ module psb_z_prec_type
complex(psb_dpk_),intent(inout), optional, target :: work(:)
end subroutine psb_zprc_aply
subroutine psb_zprc_aply1(prec,x,desc_data,info,trans)
use psb_sparse_mod, only : psb_desc_type, psb_dpk_
use psb_base_mod, only : psb_desc_type, psb_dpk_
import :: psb_zprec_type
type(psb_desc_type),intent(in) :: desc_data
type(psb_zprec_type), intent(in) :: prec
@@ -96,7 +96,7 @@ contains
subroutine psb_zfile_prec_descr(p,iout)
use psb_sparse_mod
use psb_base_mod
type(psb_zprec_type), intent(in) :: p
integer, intent(in), optional :: iout
integer :: iout_,info
@@ -117,7 +117,7 @@ contains
end subroutine psb_zfile_prec_descr
subroutine psb_z_precfree(p,info)
use psb_sparse_mod
use psb_base_mod
type(psb_zprec_type), intent(inout) :: p
integer, intent(out) :: info
integer :: err_act,i
@@ -153,7 +153,7 @@ contains
end subroutine psb_nullify_zprec
function psb_zprec_sizeof(prec) result(val)
use psb_sparse_mod
use psb_base_mod
type(psb_zprec_type), intent(in) :: prec
integer(psb_long_int_k_) :: val
integer :: i
@@ -167,7 +167,7 @@ contains
subroutine z_apply2v(prec,x,y,desc_data,info,trans,work)
use psb_sparse_mod
use psb_base_mod
type(psb_desc_type),intent(in) :: desc_data
class(psb_zprec_type), intent(in) :: prec
complex(psb_dpk_),intent(inout) :: x(:)
@@ -236,7 +236,7 @@ contains
end subroutine z_apply2v
subroutine z_apply1v(prec,x,desc_data,info,trans)
use psb_sparse_mod
use psb_base_mod
type(psb_desc_type),intent(in) :: desc_data
class(psb_zprec_type), intent(in) :: prec
complex(psb_dpk_),intent(inout) :: x(:)
prec/psb_zilu_fct.f90
+1 -1
View File
@@ -36,7 +36,7 @@ subroutine psb_zilu_fct(a,l,u,d,info,blck)
! into L/D/U.
!
!
use psb_sparse_mod
use psb_base_mod
implicit none
! .. Scalar Arguments ..
integer, intent(out) :: info
prec/psb_zprecbld.f90
+1 -1
View File
@@ -31,7 +31,7 @@
!!$
subroutine psb_zprecbld(a,desc_a,p,info,upd,mold,afmt)
use psb_sparse_mod
use psb_base_mod
use psb_prec_mod, psb_protect_name => psb_zprecbld
Implicit None
prec/psb_zprecinit.f90
+1 -1
View File
@@ -31,7 +31,7 @@
!!$
subroutine psb_zprecinit(p,ptype,info)
use psb_sparse_mod
use psb_base_mod
use psb_prec_mod, psb_protect_name => psb_zprecinit
use psb_z_nullprec
use psb_z_diagprec
prec/psb_zprecset.f90
+2 -2
View File
@@ -31,7 +31,7 @@
!!$
subroutine psb_zprecseti(p,what,val,info)
use psb_sparse_mod
use psb_base_mod
use psb_prec_mod, psb_protect_name => psb_zprecseti
implicit none
type(psb_zprec_type), intent(inout) :: p
@@ -56,7 +56,7 @@ end subroutine psb_zprecseti
subroutine psb_zprecsetd(p,what,val,info)
use psb_sparse_mod
use psb_base_mod
use psb_prec_mod, psb_protect_name => psb_zprecsetd
implicit none
type(psb_zprec_type), intent(inout) :: p