Mercurial > octave
comparison liboctave/LSODE.cc @ 5765:7ba9ad1fec11
[project @ 2006-04-17 05:05:15 by jwe]
author | jwe |
---|---|
date | Mon, 17 Apr 2006 05:05:17 +0000 |
parents | 87c9641d938f |
children | 93c65f2a5668 |
comparison
equal
deleted
inserted
replaced
5764:80409c2defcc | 5765:7ba9ad1fec11 |
---|---|
26 #endif | 26 #endif |
27 | 27 |
28 #include <cfloat> | 28 #include <cfloat> |
29 #include <cmath> | 29 #include <cmath> |
30 | 30 |
31 #include <sstream> | |
32 | |
31 #include "LSODE.h" | 33 #include "LSODE.h" |
32 #include "f77-fcn.h" | 34 #include "f77-fcn.h" |
33 #include "lo-error.h" | 35 #include "lo-error.h" |
34 #include "lo-sstream.h" | |
35 #include "quit.h" | 36 #include "quit.h" |
36 | 37 |
37 typedef octave_idx_type (*lsode_fcn_ptr) (const octave_idx_type&, const double&, double*, | 38 typedef octave_idx_type (*lsode_fcn_ptr) (const octave_idx_type&, const double&, double*, |
38 double*, octave_idx_type&); | 39 double*, octave_idx_type&); |
39 | 40 |
316 std::string | 317 std::string |
317 LSODE::error_message (void) const | 318 LSODE::error_message (void) const |
318 { | 319 { |
319 std::string retval; | 320 std::string retval; |
320 | 321 |
321 OSSTREAM buf; | 322 std::ostringstream buf; |
322 buf << t << OSSTREAM_ENDS; | 323 buf << t; |
323 std::string t_curr = OSSTREAM_STR (buf); | 324 std::string t_curr = buf.str (); |
324 OSSTREAM_FREEZE (buf); | |
325 | 325 |
326 switch (istate) | 326 switch (istate) |
327 { | 327 { |
328 case 1: | 328 case 1: |
329 retval = "prior to initial integration step"; | 329 retval = "prior to initial integration step"; |