scilab/modules/scicos_blocks/includes/scicos_block.h

   1 /*  Scicos
   2 *
   3 *  Copyright (C) INRIA - METALAU Project <scicos@inria.fr>
   4 *
   5 * This program is free software; you can redistribute it and/or modify
   6 * it under the terms of the GNU General Public License as published by
   7 * the Free Software Foundation; either version 2 of the License, or
   8 * (at your option) any later version.
   9 *
  10 * This program is distributed in the hope that it will be useful,
  11 * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 * GNU General Public License for more details.
  14 *
  15 * You should have received a copy of the GNU General Public License
  16 * along with this program; if not, write to the Free Software
  17 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
  18 *
  19 * See the file ./license.txt
  20 */
  21
  22 #ifndef __SCICOS_BLOCK_H__
  23 #define __SCICOS_BLOCK_H__
  24
  25 #include <stdlib.h> /* min max */
  26
  27 #ifndef NULL
  28 #define NULL 0
  29 #endif
  30 typedef void (*voidg)();
  31
  32 typedef struct
  33 {
  34     int nevprt;
  35     voidg funpt ;
  36     int type;
  37     int scsptr;
  38     int nz;
  39     double *z;
  40     int noz;
  41     int *ozsz;
  42     int *oztyp;
  43     void **ozptr;
  44     int nx;
  45     double *x;
  46     double *xd;
  47     double *res;
  48     int *xprop;
  49     int nin;
  50     int *insz;
  51     double **inptr;
  52     int nout;
  53     int *outsz;
  54     double **outptr;
  55     int nevout;
  56     double *evout;
  57     int nrpar;
  58     double *rpar;
  59     int nipar;
  60     int *ipar;
  61     int nopar;
  62     int *oparsz;
  63     int *opartyp;
  64     void **oparptr;
  65     int ng;
  66     double *g;
  67     int ztyp;
  68     int *jroot;
  69     char *label;
  70     void **work;
  71     int nmode;
  72     int *mode;
  73 } scicos_block;
  74
  75
  76 void do_cold_restart();
  77 int get_phase_simulation();
  78 double get_scicos_time();
  79 int get_block_number();
  80 void set_block_error(int);
  81 void set_pointer_xproperty(int* pointer);
  82 // double Get_Jacobian_cj(void);
  83 // double Get_Jacobian_ci(void);
  84 double Get_Jacobian_parameter(void);
  85 double Get_Scicos_SQUR(void);
  86 void Set_Jacobian_flag(int flag);
  87
  88 int Convert_number (char *, double *);
  89 void homotopy(double *);
  90 int hfjac_(double *, double *, int *);
  91 int rhojac_(double *, double *, double *, double *, int *, double *, int *);
  92 int rho_( double *, double *, double *, double *, double *, int *);
  93 int fx_( double *, double *);
  94 int read_xml_initial_states(int nvar, const char * xmlfile, char **ids, double *svars);
  95 int write_xml_states(int, const char *, char **, double *);
  96
  97 #endif /* __SCICOS_BLOCK_H__ */
  98