fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 04:42:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
base/internals/psi_idx_ins_cnv.f90
 base/modules/psb_cd_tools_mod.f90
 base/tools/psb_cdins.f90
 base/tools/psb_dspins.f90


Test some performance fixes for glob_to_loc and matrix insertion.
This commit is contained in:
Salvatore Filippone
2013-10-01 13:58:30 +00:00
parent 5e7c98a795
commit c407209ca7
4 changed files with 59 additions and 63 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/internals/psi_idx_ins_cnv.f90
+13 -13
View File
@@ -81,13 +81,13 @@ subroutine psi_idx_ins_cnv1(nv,idxin,desc,info,mask,lidx)
ncol = desc%get_local_cols()
call psb_info(ictxt, me, np)
if ((.not.allocated(desc%indxmap)).or.&
& (.not.desc%is_bld())) then
info = psb_err_invalid_cd_state_
call psb_errpush(info,name)
goto 9999
endif
!!$
!!$ if ((.not.allocated(desc%indxmap)).or.&
!!$ & (.not.desc%is_bld())) then
!!$ info = psb_err_invalid_cd_state_
!!$ call psb_errpush(info,name)
!!$ goto 9999
!!$ endif
if (nv < 0) then
info = 1111
@@ -219,12 +219,12 @@ subroutine psi_idx_ins_cnv2(nv,idxin,idxout,desc,info,mask,lidx)
call psb_info(ictxt, me, np)
if ((.not.allocated(desc%indxmap)).or.&
& (.not.desc%is_bld())) then
info = psb_err_invalid_cd_state_
call psb_errpush(info,name)
goto 9999
endif
!!$ if ((.not.allocated(desc%indxmap)).or.&
!!$ & (.not.desc%is_bld())) then
!!$ info = psb_err_invalid_cd_state_
!!$ call psb_errpush(info,name)
!!$ goto 9999
!!$ endif
if (nv < 0) then
info = 1111