Mercurial > octave-nkf
diff src/DLD-FUNCTIONS/dasrt.cc @ 11586:12df7854fa7c
strip trailing whitespace from source files
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Thu, 20 Jan 2011 17:24:59 -0500 |
parents | 01f703952eff |
children | 72c96de7a403 |
line wrap: on
line diff
--- a/src/DLD-FUNCTIONS/dasrt.cc Thu Jan 20 17:21:27 2011 -0500 +++ b/src/DLD-FUNCTIONS/dasrt.cc Thu Jan 20 17:24:59 2011 -0500 @@ -443,11 +443,11 @@ dasrt_f = extract_function (f_arg, "dasrt", fcn_name, fname, "; endfunction"); break; - + case 2: { string_vector tmp = args(0).all_strings (); - + if (! error_state) { fcn_name = unique_symbol_name ("__dasrt_fcn__"); @@ -456,7 +456,7 @@ fname.append (" (x, xdot, t) y = "); dasrt_f = extract_function (tmp(0), "dasrt", fcn_name, fname, "; endfunction"); - + if (dasrt_f) { jac_name = unique_symbol_name ("__dasrt_jac__"); @@ -472,21 +472,21 @@ } } break; - + default: DASRT_ABORT1 ("first arg should be a string or 2-element string array"); } } } - + if (error_state || (! dasrt_f)) DASRT_ABORT; - + DAERTFunc func (dasrt_user_f); - + argp++; - + if (args(1).is_function_handle() || args(1).is_inline_function()) { dasrt_cf = args(1).function_value(); @@ -517,7 +517,7 @@ ColumnVector stateprime (args(argp++).vector_value ()); if (error_state) - DASRT_ABORT2 + DASRT_ABORT2 ("expecting time derivative of state vector as argument %d", argp); ColumnVector out_times (args(argp++).vector_value ());