Mercurial > hg > octave-nkf

comparison src/DLD-FUNCTIONS/quad.cc @ 3419:e71b3d1dd327

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2000-01-12 05:23:34 by jwe]
author jwe
date Wed, 12 Jan 2000 05:23:37 +0000
parents a4cd1e9d9962
children b80bbb43a1a9
comparison
equal deleted inserted replaced
3418:ca92c9d3f882 3419:e71b3d1dd327
216 if (indefinite) 216 if (indefinite)
217 QUAD_ABORT1 ("singularities not allowed on infinite intervals"); 217 QUAD_ABORT1 ("singularities not allowed on infinite intervals");
218 218
219 have_sing = 1; 219 have_sing = 1;
220 220
221 sing = args(4).vector_value (); 221 sing = ColumnVector (args(4).vector_value ());
222 222
223 if (error_state) 223 if (error_state)
224 QUAD_ABORT1 ("expecting vector of singularities as fourth argument"); 224 QUAD_ABORT1 ("expecting vector of singularities as fourth argument");
225 225
226 case 4: 226 case 4:
227 tol = args(3).vector_value (); 227 tol = ColumnVector (args(3).vector_value ());
228 228
229 if (error_state) 229 if (error_state)
230 QUAD_ABORT1 ("expecting vector of tolerances as fifth argument"); 230 QUAD_ABORT1 ("expecting vector of tolerances as fifth argument");
231 231
232 switch (tol.capacity ()) 232 switch (tol.capacity ())