*** octave/src/utils.cc	Wed Jul 30 10:21:41 2003
--- ../ver1/src/utils.cc	Wed Jul 30 10:25:19 2003
*************** check_dimensions (int& nr, int& nc, cons
*** 785,790 ****
--- 785,848 ----
      }
  }

+
+ void
+ check_dimensions (Array<int>& dim, const char *warnfor)
+ {
+   int i, n;
+   bool neg = false;
+
+   n = dim.length();
+   for (i=0; i<dim.length(); i++){
+     if (dim(i) < 0) {
+       dim(i) = 0;
+       neg = true;
+     }
+   }
+
+   if (neg && Vwarn_neg_dim_as_zero) {
+       warning ("%s: converting negative dimension to zero", warnfor);
+   }
+ }
+
+
+ void
+ get_dimensions (const octave_value& a, const char *warn_for,
+                 Array<int>& dim)
+ {
+   int n, nr, nc;
+
+   if (a.is_scalar_type ())
+     {
+       dim.resize(2);
+       dim(0) = a.nint_value();
+       dim(1) = dim(0);
+     }
+   else
+     {
+       nr = a.rows ();
+       nc = a.columns ();
+
+       if (nr ==1 || nc == 1)
+         {
+           Array<double> v = a.vector_value ();
+
+           if (error_state)
+             return;
+
+           n = v.length ();
+           dim.resize(n);
+           for (int i=0; i<n; i++)
+             dim(i) = NINT (v (i));
+         }
+       else
+         warning ("%s (A): use %s (size (A)) instead", warn_for, warn_for);
+     }
+
+   check_dimensions (dim, warn_for); // May set error_state.
+ }
+
+
  void
  get_dimensions (const octave_value& a, const char *warn_for,
  		int& nr, int& nc)