Mercurial > octave

comparison liboctave/LSODE.cc @ 3998:f6df65db67f9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-07-24 18:10:39 by jwe]
author jwe
date Wed, 24 Jul 2002 18:10:40 +0000
parents d4091aff6468
children 8bc97120fbd5
comparison
equal deleted inserted replaced
3997:d4091aff6468 3998:f6df65db67f9
34 #include <iostream> 34 #include <iostream>
35 35
36 #include "LSODE.h" 36 #include "LSODE.h"
37 #include "f77-fcn.h" 37 #include "f77-fcn.h"
38 #include "lo-error.h" 38 #include "lo-error.h"
39
40 void
41 LSODE_options::set_integration_method (const std::string& val)
42 {
43 if (val == "stiff" || val == "bdf")
44 x_integration_method = "stiff";
45 else if (val == "non-stiff" || val == "adams")
46 x_integration_method = "non-stiff";
47 else
48 (*current_liboctave_error_handler)
49 ("lsode_options: method must be \"stiff\", \"bdf\", \"non-stiff\", or \"adams\"");
50 }
51 39
52 typedef int (*lsode_fcn_ptr) (const int&, const double&, double*, 40 typedef int (*lsode_fcn_ptr) (const int&, const double&, double*,
53 double*, int&); 41 double*, int&);
54 42
55 typedef int (*lsode_jac_ptr) (const int&, const double&, double*, 43 typedef int (*lsode_jac_ptr) (const int&, const double&, double*,