*** empty log message ***

src/modules/psb_realloc_mod.f90

@@ -34,6 +34,7 @@ Contains
     if(psb_get_errstatus().ne.0) return 
     info=0
     if (associated(rrax)) then 
+<<<<<<< psb_realloc_mod.f90
        dim=size(rrax)
        If (dim /= len) Then
           Allocate(tmp(len),stat=info)
@@ -42,7 +43,6 @@ Contains
              call psb_errpush(err,name)
              goto 9999
           end if
-!!$        write(0,*) 'IA: copying ',len,dim
           if (.true.) then 
              do i=1, min(len,dim)
                 tmp(i)=rrax(i)
@@ -50,7 +50,6 @@ Contains
           else
              tmp(1:min(len,dim))=rrax(1:min(len,dim))
           end if
-!!$        write(0,*) 'IA: copying done'
           Deallocate(rrax,stat=info)
           if (info /= 0) then
              err=4000
@@ -60,6 +59,15 @@ Contains
           rrax=>tmp
        End If
     else
+       allocate(rrax(len),stat=info)
+       if (info /= 0) then
+          err=4000
+          call psb_errpush(err,name)
+          goto 9999
+        end if
+        rrax=>tmp
+      End If
+    else
 !!$      write(0,*) 'IA: allocating ',len
       allocate(rrax(len),stat=info)
       if (info /= 0) then
@@ -69,7 +77,6 @@ Contains
       end if
     endif
     if (present(pad)) then 
-!!$      write(0,*) 'IA: padding'
       rrax(dim+1:len) = pad
     endif