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

Fix bookkeeping in Xsphalo.

Browse Source 
Fix cd_renum_block description
This commit is contained in:
Salvatore Filippone
2019-03-12 15:15:35 +00:00
parent dceddcfd01
commit ad763bd364
5 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/tools/psb_cd_renum_block.F90
+2 -1
View File
@@ -31,7 +31,8 @@
!
!
! Subroutine: psb_cd_renum_block
! Produces a clone of a descriptor.
! Produces a renumbered version of the input descriptor, with
! global indices in a BLOCK distribution.
!
! Arguments:
! desc_in - type(psb_desc_type). The communication descriptor to be cloned.
base/tools/psb_csphalo.F90
+1 -1
View File
@@ -276,7 +276,7 @@ Subroutine psb_csphalo(a,desc_a,blk,info,rowcnv,colcnv,&
call psb_errpush(info,name,a_err=ch_err)
goto 9999
end if
tot_elem=tot_elem+n_elem
tot_elem=tot_elem+ngtz
Enddo
ipx = ipx + 1
counter = counter+n_el_send+3
base/tools/psb_dsphalo.F90
+1 -1
View File
@@ -276,7 +276,7 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
call psb_errpush(info,name,a_err=ch_err)
goto 9999
end if
tot_elem=tot_elem+n_elem
tot_elem=tot_elem+ngtz
Enddo
ipx = ipx + 1
counter = counter+n_el_send+3
base/tools/psb_ssphalo.F90
+1 -1
View File
@@ -276,7 +276,7 @@ Subroutine psb_ssphalo(a,desc_a,blk,info,rowcnv,colcnv,&
call psb_errpush(info,name,a_err=ch_err)
goto 9999
end if
tot_elem=tot_elem+n_elem
tot_elem=tot_elem+ngtz
Enddo
ipx = ipx + 1
counter = counter+n_el_send+3
base/tools/psb_zsphalo.F90
+1 -1
View File
@@ -276,7 +276,7 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rowcnv,colcnv,&
call psb_errpush(info,name,a_err=ch_err)
goto 9999
end if
tot_elem=tot_elem+n_elem
tot_elem=tot_elem+ngtz
Enddo
ipx = ipx + 1
counter = counter+n_el_send+3