Mercurial > hg > octave-lyh

comparison liboctave/CRowVector.cc @ 7482:29980c6b8604

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
don't check f77_exception_encountered
author John W. Eaton <jwe@octave.org>
date Thu, 14 Feb 2008 21:57:50 -0500
parents ee70ac66041f
children 8c32f95c2639
comparison
equal deleted inserted replaced
7481:78f3811155f7 7482:29980c6b8604
349 349
350 F77_XFCN (zgemv, ZGEMV, (F77_CONST_CHAR_ARG2 ("T", 1), 350 F77_XFCN (zgemv, ZGEMV, (F77_CONST_CHAR_ARG2 ("T", 1),
351 a_nr, a_nc, 1.0, a.data (), 351 a_nr, a_nc, 1.0, a.data (),
352 ld, v.data (), 1, 0.0, y, 1 352 ld, v.data (), 1, 0.0, y, 1
353 F77_CHAR_ARG_LEN (1))); 353 F77_CHAR_ARG_LEN (1)));
354
355 if (f77_exception_encountered)
356 (*current_liboctave_error_handler)
357 ("unrecoverable error in zgemv");
358 } 354 }
359 } 355 }
360 356
361 return retval; 357 return retval;
362 } 358 }