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

Fix jac%pa handling

Browse Source
richardson
Salvatore Filippone 5 years ago
parent 5c2eef76ab
commit a72690f9c3
8 changed files with 8 additions and 12 deletions
Show Stats Download Patch File Download Diff File

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

@ -76,7 +76,7 @@ subroutine mld_c_jac_smoother_bld(a,desc_a,sm,info,amold,vmold,imold)
select type (smsv => sm%sv) select type (smsv => sm%sv)
class is (mld_c_diag_solver_type) class is (mld_c_diag_solver_type)
call sm%nd%free() call sm%nd%free()
sm%nd_nnz_tot = nztota sm%nd_nnz_tot = nztota
call psb_sum(ictxt,sm%nd_nnz_tot) call psb_sum(ictxt,sm%nd_nnz_tot)
call sm%sv%build(a,desc_a,info,amold=amold,vmold=vmold) call sm%sv%build(a,desc_a,info,amold=amold,vmold=vmold)

3
mlprec/impl/smoother/mld_c_l1_jac_smoother_bld.f90
Unescape Escape View File

@ -72,12 +72,11 @@ subroutine mld_c_l1_jac_smoother_bld(a,desc_a,sm,info,amold,vmold,imold)
nrow_a = a%get_nrows() nrow_a = a%get_nrows()
nztota = a%get_nzeros() nztota = a%get_nzeros()
if( sm%checkres ) sm%pa => a sm%pa => a
select type (smsv => sm%sv) select type (smsv => sm%sv)
class is (mld_c_diag_solver_type) class is (mld_c_diag_solver_type)
call sm%nd%free() call sm%nd%free()
sm%pa => a
sm%nd_nnz_tot = nztota sm%nd_nnz_tot = nztota
call psb_sum(ictxt,sm%nd_nnz_tot) call psb_sum(ictxt,sm%nd_nnz_tot)

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

@ -76,7 +76,7 @@ subroutine mld_d_jac_smoother_bld(a,desc_a,sm,info,amold,vmold,imold)
select type (smsv => sm%sv) select type (smsv => sm%sv)
class is (mld_d_diag_solver_type) class is (mld_d_diag_solver_type)
call sm%nd%free() call sm%nd%free()
sm%nd_nnz_tot = nztota sm%nd_nnz_tot = nztota
call psb_sum(ictxt,sm%nd_nnz_tot) call psb_sum(ictxt,sm%nd_nnz_tot)
call sm%sv%build(a,desc_a,info,amold=amold,vmold=vmold) call sm%sv%build(a,desc_a,info,amold=amold,vmold=vmold)

3
mlprec/impl/smoother/mld_d_l1_jac_smoother_bld.f90
Unescape Escape View File

@ -72,12 +72,11 @@ subroutine mld_d_l1_jac_smoother_bld(a,desc_a,sm,info,amold,vmold,imold)
nrow_a = a%get_nrows() nrow_a = a%get_nrows()
nztota = a%get_nzeros() nztota = a%get_nzeros()
if( sm%checkres ) sm%pa => a sm%pa => a
select type (smsv => sm%sv) select type (smsv => sm%sv)
class is (mld_d_diag_solver_type) class is (mld_d_diag_solver_type)
call sm%nd%free() call sm%nd%free()
sm%pa => a
sm%nd_nnz_tot = nztota sm%nd_nnz_tot = nztota
call psb_sum(ictxt,sm%nd_nnz_tot) call psb_sum(ictxt,sm%nd_nnz_tot)

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

@ -76,7 +76,7 @@ subroutine mld_s_jac_smoother_bld(a,desc_a,sm,info,amold,vmold,imold)
select type (smsv => sm%sv) select type (smsv => sm%sv)
class is (mld_s_diag_solver_type) class is (mld_s_diag_solver_type)
call sm%nd%free() call sm%nd%free()
sm%nd_nnz_tot = nztota sm%nd_nnz_tot = nztota
call psb_sum(ictxt,sm%nd_nnz_tot) call psb_sum(ictxt,sm%nd_nnz_tot)
call sm%sv%build(a,desc_a,info,amold=amold,vmold=vmold) call sm%sv%build(a,desc_a,info,amold=amold,vmold=vmold)

3
mlprec/impl/smoother/mld_s_l1_jac_smoother_bld.f90
Unescape Escape View File

@ -72,12 +72,11 @@ subroutine mld_s_l1_jac_smoother_bld(a,desc_a,sm,info,amold,vmold,imold)
nrow_a = a%get_nrows() nrow_a = a%get_nrows()
nztota = a%get_nzeros() nztota = a%get_nzeros()
if( sm%checkres ) sm%pa => a sm%pa => a
select type (smsv => sm%sv) select type (smsv => sm%sv)
class is (mld_s_diag_solver_type) class is (mld_s_diag_solver_type)
call sm%nd%free() call sm%nd%free()
sm%pa => a
sm%nd_nnz_tot = nztota sm%nd_nnz_tot = nztota
call psb_sum(ictxt,sm%nd_nnz_tot) call psb_sum(ictxt,sm%nd_nnz_tot)

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

@ -76,7 +76,7 @@ subroutine mld_z_jac_smoother_bld(a,desc_a,sm,info,amold,vmold,imold)
select type (smsv => sm%sv) select type (smsv => sm%sv)
class is (mld_z_diag_solver_type) class is (mld_z_diag_solver_type)
call sm%nd%free() call sm%nd%free()
sm%nd_nnz_tot = nztota sm%nd_nnz_tot = nztota
call psb_sum(ictxt,sm%nd_nnz_tot) call psb_sum(ictxt,sm%nd_nnz_tot)
call sm%sv%build(a,desc_a,info,amold=amold,vmold=vmold) call sm%sv%build(a,desc_a,info,amold=amold,vmold=vmold)

3
mlprec/impl/smoother/mld_z_l1_jac_smoother_bld.f90
Unescape Escape View File

@ -72,12 +72,11 @@ subroutine mld_z_l1_jac_smoother_bld(a,desc_a,sm,info,amold,vmold,imold)
nrow_a = a%get_nrows() nrow_a = a%get_nrows()
nztota = a%get_nzeros() nztota = a%get_nzeros()
if( sm%checkres ) sm%pa => a sm%pa => a
select type (smsv => sm%sv) select type (smsv => sm%sv)
class is (mld_z_diag_solver_type) class is (mld_z_diag_solver_type)
call sm%nd%free() call sm%nd%free()
sm%pa => a
sm%nd_nnz_tot = nztota sm%nd_nnz_tot = nztota
call psb_sum(ictxt,sm%nd_nnz_tot) call psb_sum(ictxt,sm%nd_nnz_tot)

Write Preview
Loading…
Cancel
Save