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

Added comments.

Browse Source
This commit is contained in:
Salvatore Filippone
2021-01-02 18:41:49 +01:00
parent 82665f4e79
commit d505b0b8c9
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/internals/psi_crea_index.f90
+2 -2
View File
@@ -174,8 +174,8 @@ subroutine psi_i_crea_index(desc_a,index_in,index_out,nxch,nsnd,nrcv,info)
! Do the actual format conversion.
if (dlmax == 0) then
! There are a sufficient number of cases where
! the initial exchange list is empty that
! There is a sufficiently large number of cases
! where the initial exchange list is empty that
! it's worthwhile to take a shortcut.
call psb_realloc(ione,index_out,info)
index_out(1) = -1