*** scripts/specfun/erfinv.m.orig	2004-03-29 17:20:02.000000000 +0200
--- scripts/specfun/erfinv.m	2004-03-29 17:20:10.000000000 +0200
***************
*** 38,46 ****
  
    iterations = 0;
  
!   [m, n] = size (x);
!   x = reshape (x, m * n, 1);
!   y = zeros (m * n, 1);
  
    i = find ((x < -1) | (x > 1) | isnan(x));
    if any (i)
--- 38,48 ----
  
    iterations = 0;
  
!   sz = size (x);
!   nel = numel (x);
! 
!   x = reshape (x, nel, 1);
!   y = zeros (nel, 1);
  
    i = find ((x < -1) | (x > 1) | isnan(x));
    if any (i)
***************
*** 69,74 ****
      y(i) = z_new;
    endif
  
!   y = reshape (y, m, n);
  
  endfunction
--- 71,76 ----
      y(i) = z_new;
    endif
  
!   y = reshape (y, sz);
  
  endfunction