Added comments.

4 years ago · d505b0b8c9
parent 82665f4e79
commit d505b0b8c9
1 changed files with 2 additions and 2 deletions
--- a/base/internals/psi_crea_index.f90
+++ b/base/internals/psi_crea_index.f90
@ -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
+    ! There is a sufficiently large number of cases
-    ! the initial exchange list is empty that
+    ! 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