*** empty log message ***

src/modules/psb_realloc_mod.f90

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