fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-20 21:02:35 +00:00
Code Issues Packages Projects Releases Wiki Activity

mld2p4:

Browse Source 
mlprec/impl/mld_c_bld_mlhier_array.f90
 mlprec/impl/mld_caggrmat_smth_asb.f90
 mlprec/impl/mld_d_bld_mlhier_array.f90
 mlprec/impl/mld_daggrmat_smth_asb.f90
 mlprec/impl/mld_s_bld_mlhier_array.f90
 mlprec/impl/mld_saggrmat_smth_asb.f90
 mlprec/impl/mld_z_bld_mlhier_array.f90
 mlprec/impl/mld_zaggrmat_smth_asb.f90

Initialize newsz in mlhier_array.
Why was ac in 'coo'?
This commit is contained in:
Salvatore Filippone
2016-06-14 09:12:37 +00:00
parent 0749aec572
commit a4b0a64647
8 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mlprec/impl/mld_c_bld_mlhier_array.f90
+1 -1
View File
@@ -139,7 +139,7 @@ subroutine mld_c_bld_mlhier_array(nplevs,a,desc_a,precv,info)
!
precv(1)%base_a => a
precv(1)%base_desc => desc_a
newsz = 0
array_build_loop: do i=2, iszv
!
! Check on the iprcparm contents: they should be the same
mlprec/impl/mld_caggrmat_smth_asb.f90
+1 -1
View File
@@ -404,7 +404,7 @@ subroutine mld_caggrmat_smth_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_rest
& 'starting spspmm 3'
call psb_spspmm(op_restr,am3,ac,info)
if (info == psb_success_) call am3%free()
if (info == psb_success_) call ac%cscnv(info,type='coo',dupl=psb_dupl_add_)
if (info == psb_success_) call ac%cscnv(info,type='csr',dupl=psb_dupl_add_)
if (info /= psb_success_) then
call psb_errpush(psb_err_internal_error_,name,a_err='Build ac = op_restr x am3')
goto 9999
mlprec/impl/mld_d_bld_mlhier_array.f90
+1 -1
View File
@@ -139,7 +139,7 @@ subroutine mld_d_bld_mlhier_array(nplevs,a,desc_a,precv,info)
!
precv(1)%base_a => a
precv(1)%base_desc => desc_a
newsz = 0
array_build_loop: do i=2, iszv
!
! Check on the iprcparm contents: they should be the same
mlprec/impl/mld_daggrmat_smth_asb.f90
+1 -1
View File
@@ -404,7 +404,7 @@ subroutine mld_daggrmat_smth_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_rest
& 'starting spspmm 3'
call psb_spspmm(op_restr,am3,ac,info)
if (info == psb_success_) call am3%free()
if (info == psb_success_) call ac%cscnv(info,type='coo',dupl=psb_dupl_add_)
if (info == psb_success_) call ac%cscnv(info,type='csr',dupl=psb_dupl_add_)
if (info /= psb_success_) then
call psb_errpush(psb_err_internal_error_,name,a_err='Build ac = op_restr x am3')
goto 9999
mlprec/impl/mld_s_bld_mlhier_array.f90
+1 -1
View File
@@ -139,7 +139,7 @@ subroutine mld_s_bld_mlhier_array(nplevs,a,desc_a,precv,info)
!
precv(1)%base_a => a
precv(1)%base_desc => desc_a
newsz = 0
array_build_loop: do i=2, iszv
!
! Check on the iprcparm contents: they should be the same
mlprec/impl/mld_saggrmat_smth_asb.f90
+1 -1
View File
@@ -404,7 +404,7 @@ subroutine mld_saggrmat_smth_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_rest
& 'starting spspmm 3'
call psb_spspmm(op_restr,am3,ac,info)
if (info == psb_success_) call am3%free()
if (info == psb_success_) call ac%cscnv(info,type='coo',dupl=psb_dupl_add_)
if (info == psb_success_) call ac%cscnv(info,type='csr',dupl=psb_dupl_add_)
if (info /= psb_success_) then
call psb_errpush(psb_err_internal_error_,name,a_err='Build ac = op_restr x am3')
goto 9999
mlprec/impl/mld_z_bld_mlhier_array.f90
+1 -1
View File
@@ -139,7 +139,7 @@ subroutine mld_z_bld_mlhier_array(nplevs,a,desc_a,precv,info)
!
precv(1)%base_a => a
precv(1)%base_desc => desc_a
newsz = 0
array_build_loop: do i=2, iszv
!
! Check on the iprcparm contents: they should be the same
mlprec/impl/mld_zaggrmat_smth_asb.f90
+1 -1
View File
@@ -404,7 +404,7 @@ subroutine mld_zaggrmat_smth_asb(a,desc_a,ilaggr,nlaggr,parms,ac,op_prol,op_rest
& 'starting spspmm 3'
call psb_spspmm(op_restr,am3,ac,info)
if (info == psb_success_) call am3%free()
if (info == psb_success_) call ac%cscnv(info,type='coo',dupl=psb_dupl_add_)
if (info == psb_success_) call ac%cscnv(info,type='csr',dupl=psb_dupl_add_)
if (info /= psb_success_) then
call psb_errpush(psb_err_internal_error_,name,a_err='Build ac = op_restr x am3')
goto 9999