1 /* 2 * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab 3 * Copyright (C) 2013 - Scilab Enterprises - Cedric DELAMARRE 4 * 5 * Copyright (C) 2012 - 2016 - Scilab Enterprises 6 * 7 * This file is hereby licensed under the terms of the GNU GPL v2.0, 8 * pursuant to article 5.3.4 of the CeCILL v.2.1. 9 * This file was originally licensed under the terms of the CeCILL v2.1, 10 * and continues to be available under such terms. 11 * For more information, see the COPYING file which you should have received 12 * along with this program. 13 * 14 */ 15 /*--------------------------------------------------------------------------*/ 16 17 #ifndef __EX_DASKR_H__ 18 #define __EX_DASKR_H__ 19 20 extern void C2F(dgefa) (double *A, int *lead_dim_A, int *n, int *ipivots, int *info); 21 extern void C2F(dgesl) (double *A, int *lead_dim_A, int *n, int *ipivots, double *B, int *job); 22 23 typedef void (*resfunc)(double*, double*, double*, double*, int*, double*, int*); 24 25 void pjac1( resfunc res, int *ires, int *nequations, double *tOld, double *actual, double *actualP, 26 double *rewt, double *savr, double *wk, double *h, double *cj, double *wp, int *iwp, 27 int *ier, double *rpar, int *ipar); 28 29 void psol1( int *nequations, double *tOld, double *actual, double *actualP, 30 double *savr, double *wk, double *cj, double *wght, double *wp, 31 int *iwp, double *b, double *eplin, int *ier, double *dummy1, int *dummy2); 32 33 #endif // __EX_DASKR_H__ 34