*** empty log message ***

src/internals/psi_crea_index.f90

@@ -72,9 +72,11 @@ subroutine psi_crea_index(desc_a,index_in,index_out,glob_idx,info)
   endif
 
   ! allocate dependency list
-!  call psi_compute_size(desc_a%matrix_data, index_in, dl_lda, info)
+  !  call psi_compute_size(desc_a%matrix_data, index_in, dl_lda, info)
-!  dl_lda=dl_lda+3
+  ! This should be computed more efficiently to save space when
+  ! the number of processors becomes very high
   dl_lda=np+1
+
   allocate(dep_list(max(1,dl_lda),0:np),length_dl(0:np))
   ! ...extract dependence list (ordered list of identifer process
   !    which every process must communcate with...

src/prec/psb_dbldaggrmat.f90

@@ -382,11 +382,19 @@ contains
       goto 9999
     end if
 
-    where (p%dorig /= zero) 
+    do i=1,size(p%dorig)
-      p%dorig = one / p%dorig
+       if (p%dorig(i) /= zero) then
-    elsewhere
+          p%dorig(i) = one / p%dorig(i)
-      p%dorig = one
+       else
-    end where
+          p%dorig(i) = one
+       end if
+    end do
+
+!     where (p%dorig /= zero) 
+!       p%dorig = one / p%dorig
+!     elsewhere
+!       p%dorig = one
+!     end where
 
 
     ! 1. Allocate Ptilde in sparse matrix form