*** empty log message ***

src/modules/psb_prec_type.f90

@@ -274,8 +274,10 @@ contains
             end if
             write(iout,*) 'Coarse matrix: ',&
                  & matrix_names(p%baseprecv(ilev)%iprcparm(coarse_mat_))
-            write(iout,*) 'Aggregation sizes: ', &
+            if (allocated(p%baseprecv(ilev)%nlaggr)) then 
-                 &  sum( p%baseprecv(ilev)%nlaggr(:)),' : ',p%baseprecv(ilev)%nlaggr(:)
+              write(iout,*) 'Aggregation sizes: ', &
+                   &  sum( p%baseprecv(ilev)%nlaggr(:)),' : ',p%baseprecv(ilev)%nlaggr(:)
+            end if
             write(iout,*) 'Factorization type: ',&
                  & fact_names(p%baseprecv(ilev)%iprcparm(f_type_))
             select case(p%baseprecv(ilev)%iprcparm(f_type_))
@@ -414,8 +416,10 @@ contains
           
           write(iout,*) 'Coarse matrix: ',&
                & matrix_names(p%baseprecv(2)%iprcparm(coarse_mat_))
-          write(iout,*) 'Aggregation sizes: ', &
+          if (allocated(p%baseprecv(ilev)%nlaggr)) then 
-               &  sum( p%baseprecv(2)%nlaggr(:)),' : ',p%baseprecv(2)%nlaggr(:)
+            write(iout,*) 'Aggregation sizes: ', &
+                 &  sum( p%baseprecv(2)%nlaggr(:)),' : ',p%baseprecv(2)%nlaggr(:)
+          endif
           write(iout,*) 'Factorization type: ',&
                & fact_names(p%baseprecv(2)%iprcparm(f_type_))
           select case(p%baseprecv(2)%iprcparm(f_type_))

src/tools/psb_cdcpy.f90

@@ -75,7 +75,6 @@ subroutine psb_cdcpy(desc_in, desc_out, info)
      goto 9999
   endif
 
-  call psb_nullify_desc(desc_out)
 
   call psb_safe_cpy(desc_in%matrix_data,desc_out%matrix_data,info)
   if (info == 0)   call psb_safe_cpy(desc_in%halo_index,desc_out%halo_index,info)