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

mld2p4-2:

Browse Source 
mlprec/mld_c_slu_solver.F90
 mlprec/mld_d_slu_solver.F90
 mlprec/mld_s_slu_solver.F90
 mlprec/mld_z_slu_solver.F90

Clip off-diagonal elements for SLU local factorization.
stopcriterion
Salvatore Filippone 12 years ago
parent 3926d4885a
commit 6eb0d2451b
4 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File

3
mlprec/mld_c_slu_solver.F90
Unescape Escape View File

@ -259,6 +259,7 @@ contains
! Local variables ! Local variables
type(psb_cspmat_type) :: atmp type(psb_cspmat_type) :: atmp
type(psb_c_csr_sparse_mat) :: acsr type(psb_c_csr_sparse_mat) :: acsr
type(psb_c_coo_sparse_mat) :: acoo
integer :: n_row,n_col, nrow_a, nztota integer :: n_row,n_col, nrow_a, nztota
integer :: ictxt,np,me,i, err_act, debug_unit, debug_level integer :: ictxt,np,me,i, err_act, debug_unit, debug_level
character(len=20) :: name='c_slu_solver_bld', ch_err character(len=20) :: name='c_slu_solver_bld', ch_err
@ -283,6 +284,8 @@ contains
call atmp%cscnv(info,type='csr',dupl=psb_dupl_add_) call atmp%cscnv(info,type='csr',dupl=psb_dupl_add_)
call atmp%mv_to(acsr) call atmp%mv_to(acsr)
nrow_a = acsr%get_nrows() nrow_a = acsr%get_nrows()
call acsr%csclip(acoo,info,jmax=nrow_a)
call acsr%mv_from_coo(acoo,info)
nztota = acsr%get_nzeros() nztota = acsr%get_nzeros()
! Fix the entries to call C-base SuperLU ! Fix the entries to call C-base SuperLU
acsr%ja(:) = acsr%ja(:) - 1 acsr%ja(:) = acsr%ja(:) - 1

3
mlprec/mld_d_slu_solver.F90
Unescape Escape View File

@ -259,6 +259,7 @@ contains
! Local variables ! Local variables
type(psb_dspmat_type) :: atmp type(psb_dspmat_type) :: atmp
type(psb_d_csr_sparse_mat) :: acsr type(psb_d_csr_sparse_mat) :: acsr
type(psb_d_coo_sparse_mat) :: acoo
integer :: n_row,n_col, nrow_a, nztota integer :: n_row,n_col, nrow_a, nztota
integer :: ictxt,np,me,i, err_act, debug_unit, debug_level integer :: ictxt,np,me,i, err_act, debug_unit, debug_level
character(len=20) :: name='d_slu_solver_bld', ch_err character(len=20) :: name='d_slu_solver_bld', ch_err
@ -283,6 +284,8 @@ contains
call atmp%cscnv(info,type='csr',dupl=psb_dupl_add_) call atmp%cscnv(info,type='csr',dupl=psb_dupl_add_)
call atmp%mv_to(acsr) call atmp%mv_to(acsr)
nrow_a = acsr%get_nrows() nrow_a = acsr%get_nrows()
call acsr%csclip(acoo,info,jmax=nrow_a)
call acsr%mv_from_coo(acoo,info)
nztota = acsr%get_nzeros() nztota = acsr%get_nzeros()
! Fix the entries to call C-base SuperLU ! Fix the entries to call C-base SuperLU
acsr%ja(:) = acsr%ja(:) - 1 acsr%ja(:) = acsr%ja(:) - 1

3
mlprec/mld_s_slu_solver.F90
Unescape Escape View File

@ -259,6 +259,7 @@ contains
! Local variables ! Local variables
type(psb_sspmat_type) :: atmp type(psb_sspmat_type) :: atmp
type(psb_s_csr_sparse_mat) :: acsr type(psb_s_csr_sparse_mat) :: acsr
type(psb_s_coo_sparse_mat) :: acoo
integer :: n_row,n_col, nrow_a, nztota integer :: n_row,n_col, nrow_a, nztota
integer :: ictxt,np,me,i, err_act, debug_unit, debug_level integer :: ictxt,np,me,i, err_act, debug_unit, debug_level
character(len=20) :: name='s_slu_solver_bld', ch_err character(len=20) :: name='s_slu_solver_bld', ch_err
@ -283,6 +284,8 @@ contains
call atmp%cscnv(info,type='csr',dupl=psb_dupl_add_) call atmp%cscnv(info,type='csr',dupl=psb_dupl_add_)
call atmp%mv_to(acsr) call atmp%mv_to(acsr)
nrow_a = acsr%get_nrows() nrow_a = acsr%get_nrows()
call acsr%csclip(acoo,info,jmax=nrow_a)
call acsr%mv_from_coo(acoo,info)
nztota = acsr%get_nzeros() nztota = acsr%get_nzeros()
! Fix the entries to call C-base SuperLU ! Fix the entries to call C-base SuperLU
acsr%ja(:) = acsr%ja(:) - 1 acsr%ja(:) = acsr%ja(:) - 1

3
mlprec/mld_z_slu_solver.F90
Unescape Escape View File

@ -259,6 +259,7 @@ contains
! Local variables ! Local variables
type(psb_zspmat_type) :: atmp type(psb_zspmat_type) :: atmp
type(psb_z_csr_sparse_mat) :: acsr type(psb_z_csr_sparse_mat) :: acsr
type(psb_z_coo_sparse_mat) :: acoo
integer :: n_row,n_col, nrow_a, nztota integer :: n_row,n_col, nrow_a, nztota
integer :: ictxt,np,me,i, err_act, debug_unit, debug_level integer :: ictxt,np,me,i, err_act, debug_unit, debug_level
character(len=20) :: name='z_slu_solver_bld', ch_err character(len=20) :: name='z_slu_solver_bld', ch_err
@ -283,6 +284,8 @@ contains
call atmp%cscnv(info,type='csr',dupl=psb_dupl_add_) call atmp%cscnv(info,type='csr',dupl=psb_dupl_add_)
call atmp%mv_to(acsr) call atmp%mv_to(acsr)
nrow_a = acsr%get_nrows() nrow_a = acsr%get_nrows()
call acsr%csclip(acoo,info,jmax=nrow_a)
call acsr%mv_from_coo(acoo,info)
nztota = acsr%get_nzeros() nztota = acsr%get_nzeros()
! Fix the entries to call C-base SuperLU ! Fix the entries to call C-base SuperLU
acsr%ja(:) = acsr%ja(:) - 1 acsr%ja(:) = acsr%ja(:) - 1

Write Preview
Loading…
Cancel
Save