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

Improve memory management in nosmth_bld

Browse Source
stopcriterion
Salvatore Filippone 5 years ago
parent 592d44419d
commit 7cefe92b0b
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File

4
mlprec/impl/aggregator/mld_caggrmat_nosmth_bld.f90
Unescape Escape View File

@ -169,8 +169,7 @@ subroutine mld_caggrmat_nosmth_bld(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_re
if (info /= psb_success_) goto 9999 if (info /= psb_success_) goto 9999
call a%cp_to_l(la) call a%cp_to(ac_coo)
call la%mv_to(ac_coo)
nzt = ac_coo%get_nzeros() nzt = ac_coo%get_nzeros()
k = 0 k = 0
do i = 1, nzt do i = 1, nzt
@ -188,6 +187,7 @@ subroutine mld_caggrmat_nosmth_bld(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_re
call ac_coo%set_nzeros(k) call ac_coo%set_nzeros(k)
call ac_coo%set_dupl(psb_dupl_add_) call ac_coo%set_dupl(psb_dupl_add_)
call ac_coo%fix(info) call ac_coo%fix(info)
call ac_coo%trim()
call ac%mv_from(ac_coo) call ac%mv_from(ac_coo)

4
mlprec/impl/aggregator/mld_daggrmat_nosmth_bld.f90
Unescape Escape View File

@ -169,8 +169,7 @@ subroutine mld_daggrmat_nosmth_bld(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_re
if (info /= psb_success_) goto 9999 if (info /= psb_success_) goto 9999
call a%cp_to_l(la) call a%cp_to(ac_coo)
call la%mv_to(ac_coo)
nzt = ac_coo%get_nzeros() nzt = ac_coo%get_nzeros()
k = 0 k = 0
do i = 1, nzt do i = 1, nzt
@ -188,6 +187,7 @@ subroutine mld_daggrmat_nosmth_bld(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_re
call ac_coo%set_nzeros(k) call ac_coo%set_nzeros(k)
call ac_coo%set_dupl(psb_dupl_add_) call ac_coo%set_dupl(psb_dupl_add_)
call ac_coo%fix(info) call ac_coo%fix(info)
call ac_coo%trim()
call ac%mv_from(ac_coo) call ac%mv_from(ac_coo)

4
mlprec/impl/aggregator/mld_saggrmat_nosmth_bld.f90
Unescape Escape View File

@ -169,8 +169,7 @@ subroutine mld_saggrmat_nosmth_bld(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_re
if (info /= psb_success_) goto 9999 if (info /= psb_success_) goto 9999
call a%cp_to_l(la) call a%cp_to(ac_coo)
call la%mv_to(ac_coo)
nzt = ac_coo%get_nzeros() nzt = ac_coo%get_nzeros()
k = 0 k = 0
do i = 1, nzt do i = 1, nzt
@ -188,6 +187,7 @@ subroutine mld_saggrmat_nosmth_bld(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_re
call ac_coo%set_nzeros(k) call ac_coo%set_nzeros(k)
call ac_coo%set_dupl(psb_dupl_add_) call ac_coo%set_dupl(psb_dupl_add_)
call ac_coo%fix(info) call ac_coo%fix(info)
call ac_coo%trim()
call ac%mv_from(ac_coo) call ac%mv_from(ac_coo)

4
mlprec/impl/aggregator/mld_zaggrmat_nosmth_bld.f90
Unescape Escape View File

@ -169,8 +169,7 @@ subroutine mld_zaggrmat_nosmth_bld(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_re
if (info /= psb_success_) goto 9999 if (info /= psb_success_) goto 9999
call a%cp_to_l(la) call a%cp_to(ac_coo)
call la%mv_to(ac_coo)
nzt = ac_coo%get_nzeros() nzt = ac_coo%get_nzeros()
k = 0 k = 0
do i = 1, nzt do i = 1, nzt
@ -188,6 +187,7 @@ subroutine mld_zaggrmat_nosmth_bld(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_re
call ac_coo%set_nzeros(k) call ac_coo%set_nzeros(k)
call ac_coo%set_dupl(psb_dupl_add_) call ac_coo%set_dupl(psb_dupl_add_)
call ac_coo%fix(info) call ac_coo%fix(info)
call ac_coo%trim()
call ac%mv_from(ac_coo) call ac%mv_from(ac_coo)

Write Preview
Loading…
Cancel
Save