Mercurial > octave-nkf

comparison src/DLD-FUNCTIONS/dasrt.cc @ 14854:5ae9f0f77635

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Use Octave coding conventions for coddling parenthis is DLD-FUNCTIONS directory * __fltk_uigetfile__.cc, __glpk__.cc, __init_fltk__.cc, __magick_read__.cc, besselj.cc, bsxfun.cc, ccolamd.cc, cellfun.cc, chol.cc, colamd.cc, daspk.cc, dasrt.cc, dassl.cc, dmperm.cc, fft.cc, filter.cc, find.cc, gcd.cc, kron.cc, lsode.cc, lu.cc, luinc.cc, quad.cc, quadcc.cc, rand.cc, regexp.cc, schur.cc, str2double.cc, symbfact.cc, symrcm.cc, tril.cc, urlwrite.cc: Use Octave coding conventions for coddling parenthis is DLD-FUNCTIONS directory.
author Rik <octave@nomad.inbox5.com>
date Mon, 09 Jul 2012 13:01:49 -0700
parents 460a3c6d8bf1
children
comparison
equal deleted inserted replaced
14853:72b8b39e12be 14854:5ae9f0f77635
407 dasrt_j = c(1).function_value (); 407 dasrt_j = c(1).function_value ();
408 else 408 else
409 { 409 {
410 jac_name = unique_symbol_name ("__dasrt_jac__"); 410 jac_name = unique_symbol_name ("__dasrt_jac__");
411 jname = "function jac = "; 411 jname = "function jac = ";
412 jname.append(jac_name); 412 jname.append (jac_name);
413 jname.append (" (x, xdot, t, cj) jac = "); 413 jname.append (" (x, xdot, t, cj) jac = ");
414 dasrt_j = extract_function 414 dasrt_j = extract_function
415 (c(1), "dasrt", jac_name, jname, "; endfunction"); 415 (c(1), "dasrt", jac_name, jname, "; endfunction");
416 416
417 if (!dasrt_j) 417 if (!dasrt_j)
459 459
460 if (dasrt_f) 460 if (dasrt_f)
461 { 461 {
462 jac_name = unique_symbol_name ("__dasrt_jac__"); 462 jac_name = unique_symbol_name ("__dasrt_jac__");
463 jname = "function jac = "; 463 jname = "function jac = ";
464 jname.append(jac_name); 464 jname.append (jac_name);
465 jname.append (" (x, xdot, t, cj) jac = "); 465 jname.append (" (x, xdot, t, cj) jac = ");
466 dasrt_j = extract_function 466 dasrt_j = extract_function
467 (tmp(1), "dasrt", jac_name, jname, "; endfunction"); 467 (tmp(1), "dasrt", jac_name, jname, "; endfunction");
468 468
469 if (! dasrt_j) 469 if (! dasrt_j)