mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-20 12:52:14 +00:00
psblas3:
base/Makefile base/modules/Makefile base/modules/psb_base_mod.f90 base/modules/psb_linmap_mod.f90 base/modules/psb_linmap_type_mod.f90 base/modules/psb_mat_mod.f03 base/modules/psb_psblas_mod.f90 base/modules/psb_serial_mod.f90 base/modules/psb_tools_mod.f90 base/psblas/psb_cnrmi.f90 base/psblas/psb_cspmm.f90 base/psblas/psb_cspsm.f90 base/psblas/psb_dnrmi.f90 base/psblas/psb_dspsm.f90 base/psblas/psb_snrmi.f90 base/psblas/psb_sspmm.f90 base/psblas/psb_sspsm.f90 base/psblas/psb_znrmi.f90 base/psblas/psb_zspmm.f90 base/psblas/psb_zspsm.f90 base/serial/Makefile base/serial/dp/Makefile base/serial/dp/gen_block.f base/serial/dp/partition.f base/serial/dp/scrjd.f base/serial/f77/Makefile base/serial/psb_cest.f90 base/tools/psb_ccdbldext.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_dcdbldext.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_iins.f90 base/tools/psb_linmap.f90 base/tools/psb_scdbldext.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_zcdbldext.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/psb_cbicg.f90 krylov/psb_ccg.f90 krylov/psb_ccgs.f90 krylov/psb_ccgstab.f90 krylov/psb_ccgstabl.f90 krylov/psb_crgmres.f90 krylov/psb_dbicg.f90 krylov/psb_dcg.F90 krylov/psb_dcgs.f90 krylov/psb_dcgstab.F90 krylov/psb_dcgstabl.f90 krylov/psb_drgmres.f90 krylov/psb_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_srgmres.f90 krylov/psb_zbicg.f90 krylov/psb_zcg.F90 krylov/psb_zcgs.f90 krylov/psb_zcgstab.f90 krylov/psb_zcgstabl.f90 krylov/psb_zrgmres.f90 prec/psb_cbjac_aply.f90 prec/psb_cbjac_bld.f90 prec/psb_cdiagsc_bld.f90 prec/psb_cilu_fct.f90 prec/psb_cprecbld.f90 prec/psb_prec_mod.f90 prec/psb_prec_type.f90 prec/psb_zbjac_aply.f90 prec/psb_zbjac_bld.f90 prec/psb_zdiagsc_bld.f90 prec/psb_zilu_fct.f90 prec/psb_zprecbld.f90 test/fileread/cf_sample.f90 test/fileread/zf_sample.f90 test/util/zhb2mm.f90 test/util/zmm2hb.f90 util/psb_hbio_mod.f90 util/psb_mat_dist_mod.f90 util/psb_metispart_mod.F90 util/psb_mmio_mod.f90 complex version. Now the basic test appear to work. Next: move to MLD
This commit is contained in:
Salvatore Filippone
@@ -37,7 +37,7 @@
|
||||
!
|
||||
module psb_linmap_mod
|
||||
|
||||
use psb_spmat_type, only : psb_cspmat_type, psb_zspmat_type, psb_spk_, psb_dpk_, psb_sizeof
|
||||
use psb_const_mod
|
||||
use psb_descriptor_type
|
||||
use psb_linmap_type_mod
|
||||
|
||||
@@ -183,7 +183,7 @@ module psb_linmap_mod
|
||||
implicit none
|
||||
type(psb_clinmap_type) :: psb_c_linmap
|
||||
type(psb_desc_type), target :: desc_X, desc_Y
|
||||
type(psb_cspmat_type), intent(in) :: map_X2Y, map_Y2X
|
||||
type(psb_c_sparse_mat), intent(in) :: map_X2Y, map_Y2X
|
||||
integer, intent(in) :: map_kind
|
||||
integer, intent(in), optional :: iaggr(:), naggr(:)
|
||||
end function psb_c_linmap
|
||||
@@ -192,7 +192,7 @@ module psb_linmap_mod
|
||||
implicit none
|
||||
type(psb_zlinmap_type) :: psb_z_linmap
|
||||
type(psb_desc_type), target :: desc_X, desc_Y
|
||||
type(psb_zspmat_type), intent(in) :: map_X2Y, map_Y2X
|
||||
type(psb_z_sparse_mat), intent(in) :: map_X2Y, map_Y2X
|
||||
integer, intent(in) :: map_kind
|
||||
integer, intent(in), optional :: iaggr(:), naggr(:)
|
||||
end function psb_z_linmap
|
||||
@@ -491,6 +491,7 @@ contains
|
||||
end function psb_dlinmap_sizeof
|
||||
|
||||
function psb_clinmap_sizeof(map) result(val)
|
||||
use psb_mat_mod
|
||||
implicit none
|
||||
type(psb_clinmap_type), intent(in) :: map
|
||||
integer(psb_long_int_k_) :: val
|
||||
@@ -510,6 +511,7 @@ contains
|
||||
end function psb_clinmap_sizeof
|
||||
|
||||
function psb_zlinmap_sizeof(map) result(val)
|
||||
use psb_mat_mod
|
||||
implicit none
|
||||
type(psb_zlinmap_type), intent(in) :: map
|
||||
integer(psb_long_int_k_) :: val
|
||||
@@ -556,7 +558,7 @@ contains
|
||||
implicit none
|
||||
type(psb_clinmap_type), intent(out) :: out_map
|
||||
type(psb_desc_type), target :: desc_X, desc_Y
|
||||
type(psb_cspmat_type), intent(in) :: map_X2Y, map_Y2X
|
||||
type(psb_c_sparse_mat), intent(in) :: map_X2Y, map_Y2X
|
||||
integer, intent(in) :: map_kind
|
||||
integer, intent(in), optional :: iaggr(:), naggr(:)
|
||||
out_map = psb_linmap(map_kind,desc_X,desc_Y,map_X2Y,map_Y2X,iaggr,naggr)
|
||||
@@ -567,7 +569,7 @@ contains
|
||||
implicit none
|
||||
type(psb_zlinmap_type), intent(out) :: out_map
|
||||
type(psb_desc_type), target :: desc_X, desc_Y
|
||||
type(psb_zspmat_type), intent(in) :: map_X2Y, map_Y2X
|
||||
type(psb_z_sparse_mat), intent(in) :: map_X2Y, map_Y2X
|
||||
integer, intent(in) :: map_kind
|
||||
integer, intent(in), optional :: iaggr(:), naggr(:)
|
||||
out_map = psb_linmap(map_kind,desc_X,desc_Y,map_X2Y,map_Y2X,iaggr,naggr)
|
||||
@@ -619,7 +621,8 @@ contains
|
||||
end subroutine psb_dlinmap_transfer
|
||||
|
||||
subroutine psb_clinmap_transfer(mapin,mapout,info)
|
||||
use psb_spmat_type
|
||||
use psb_realloc_mod
|
||||
use psb_mat_mod
|
||||
use psb_descriptor_type
|
||||
implicit none
|
||||
type(psb_clinmap_type) :: mapin,mapout
|
||||
@@ -640,7 +643,8 @@ contains
|
||||
end subroutine psb_clinmap_transfer
|
||||
|
||||
subroutine psb_zlinmap_transfer(mapin,mapout,info)
|
||||
use psb_spmat_type
|
||||
use psb_realloc_mod
|
||||
use psb_mat_mod
|
||||
use psb_descriptor_type
|
||||
implicit none
|
||||
type(psb_zlinmap_type) :: mapin,mapout
|
||||
|
||||
Reference in New Issue
Block a user