Mercurial > hg > octave-lyh

comparison liboctave/DASSL.cc @ 1253:bb67a902760b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-04-11 16:35:23 by jwe]
author jwe
date Tue, 11 Apr 1995 16:35:23 +0000
parents 97eac19837dc
children f93b7fa5e113
comparison
equal deleted inserted replaced
1252:ccb22498f289 1253:bb67a902760b
29 #include "f77-uscore.h" 29 #include "f77-uscore.h"
30 #include "lo-error.h" 30 #include "lo-error.h"
31 31
32 extern "C" 32 extern "C"
33 { 33 {
34 int F77_FCN (ddassl) (int (*)(const double&, double*, double*, 34 int F77_FCN (ddassl, DDASSL) (int (*)(const double&, double*,
35 double*, int&, double*, int*), 35 double*, double*, int&,
36 const int&, double&, double*, double*, 36 double*, int*),
37 double&, const int*, const double&, 37 const int&, double&, double*, double*,
38 const double&, int&, double*, const int&, 38 double&, const int*, const double&,
39 int*, const int&, const double*, const int*, 39 const double&, int&, double*,
40 int (*)(const double&, double*, double*, 40 const int&, int*, const int&,
41 double*, const double&, double*, int*)); 41 const double*, const int*,
42 int (*)(const double&, double*,
43 double*, double*, const
44 double&, double*, int*));
42 } 45 }
43 46
44 static DAEFunc::DAERHSFunc user_fun; 47 static DAEFunc::DAERHSFunc user_fun;
45 static DAEFunc::DAEJacFunc user_jac; 48 static DAEFunc::DAEJacFunc user_jac;
46 static int nn; 49 static int nn;
298 info[0] = 0; 301 info[0] = 0;
299 } 302 }
300 303
301 // again: 304 // again:
302 305
303 F77_FCN (ddassl) (ddassl_f, n, t, px, pxdot, tout, info, 306 F77_FCN (ddassl, DDASSL) (ddassl_f, n, t, px, pxdot, tout, info,
304 rel_tol, abs_tol, idid, rwork, lrw, iwork, 307 rel_tol, abs_tol, idid, rwork, lrw, iwork,
305 liw, dummy, idummy, ddassl_j); 308 liw, dummy, idummy, ddassl_j);
306 309
307 switch (idid) 310 switch (idid)
308 { 311 {
309 case 1: // A step was successfully taken in the 312 case 1: // A step was successfully taken in the
310 // intermediate-output mode. The code has not yet reached 313 // intermediate-output mode. The code has not yet reached