Mercurial > hg > octave-lyh

comparison liboctave/DASRT.cc @ 4552:6f3382e08a52

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-10-27 20:38:02 by jwe]
author jwe
date Mon, 27 Oct 2003 20:38:03 +0000
parents 820323598f4f
children c7ba572047df
comparison
equal deleted inserted replaced
4551:2c619e5138fd 4552:6f3382e08a52
45 45
46 typedef int (*dasrt_constr_ptr) (const int&, const double&, const double*, 46 typedef int (*dasrt_constr_ptr) (const int&, const double&, const double*,
47 const int&, double*, double*, int*); 47 const int&, double*, double*, int*);
48 48
49 extern "C" 49 extern "C"
50 int F77_FUNC (ddasrt, DASRT) (dasrt_fcn_ptr, const int&, double&, 50 {
51 double*, double*, const double&, int*, 51 F77_RET_T
52 const double*, const double*, int&, double*, 52 F77_FUNC (ddasrt, DASRT) (dasrt_fcn_ptr, const int&, double&,
53 const int&, int*, const int&, double*, 53 double*, double*, const double&, int*,
54 int*, dasrt_jac_ptr, dasrt_constr_ptr, 54 const double*, const double*, int&, double*,
55 const int&, int*); 55 const int&, int*, const int&, double*,
56 int*, dasrt_jac_ptr, dasrt_constr_ptr,
57 const int&, int*);
58 }
56 59
57 static DAEFunc::DAERHSFunc user_fsub; 60 static DAEFunc::DAERHSFunc user_fsub;
58 static DAEFunc::DAEJacFunc user_jsub; 61 static DAEFunc::DAEJacFunc user_jsub;
59 static DAERTFunc::DAERTConstrFunc user_csub; 62 static DAERTFunc::DAERTConstrFunc user_csub;
60 63