warnings ...
Allan CORNET [Thu, 4 Jun 2009 14:43:22 +0000 (16:43 +0200)]
79 files changed:
scilab/modules/scicos/includes/scicos_malloc.h
scilab/modules/scicos/sci_gateway/c/intcscicos.c
scilab/modules/scicos/sci_gateway/c/intcutilcos.c
scilab/modules/scicos/src/c/ezxml.c
scilab/modules/scicos/src/c/import.c
scilab/modules/scicos/src/c/sciblk2.c
scilab/modules/scicos/src/c/scicos.c
scilab/modules/scicos/src/c/slider.c
scilab/modules/scicos/src/c/tree.c
scilab/modules/scicos_blocks/includes/scicos_block.h
scilab/modules/scicos_blocks/src/c/absolute_value.c
scilab/modules/scicos_blocks/src/c/acos_blk.c
scilab/modules/scicos_blocks/src/c/backlash.c
scilab/modules/scicos_blocks/src/c/bit_clear_16.c
scilab/modules/scicos_blocks/src/c/bit_clear_32.c
scilab/modules/scicos_blocks/src/c/bit_clear_8.c
scilab/modules/scicos_blocks/src/c/bit_set_16.c
scilab/modules/scicos_blocks/src/c/bit_set_32.c
scilab/modules/scicos_blocks/src/c/bit_set_8.c
scilab/modules/scicos_blocks/src/c/cstblk4_m.c
scilab/modules/scicos_blocks/src/c/dmmul.c
scilab/modules/scicos_blocks/src/c/dmmul1.c
scilab/modules/scicos_blocks/src/c/extract_bit_16_LH.c
scilab/modules/scicos_blocks/src/c/extract_bit_16_LSB.c
scilab/modules/scicos_blocks/src/c/extract_bit_16_MSB0.c
scilab/modules/scicos_blocks/src/c/extract_bit_16_MSB1.c
scilab/modules/scicos_blocks/src/c/extract_bit_16_RB0.c
scilab/modules/scicos_blocks/src/c/extract_bit_16_RB1.c
scilab/modules/scicos_blocks/src/c/extract_bit_16_UH0.c
scilab/modules/scicos_blocks/src/c/extract_bit_16_UH1.c
scilab/modules/scicos_blocks/src/c/extract_bit_32_LH.c
scilab/modules/scicos_blocks/src/c/extract_bit_32_LSB.c
scilab/modules/scicos_blocks/src/c/extract_bit_32_MSB0.c
scilab/modules/scicos_blocks/src/c/extract_bit_32_MSB1.c
scilab/modules/scicos_blocks/src/c/extract_bit_32_RB0.c
scilab/modules/scicos_blocks/src/c/extract_bit_32_RB1.c
scilab/modules/scicos_blocks/src/c/extract_bit_32_UH0.c
scilab/modules/scicos_blocks/src/c/extract_bit_32_UH1.c
scilab/modules/scicos_blocks/src/c/extract_bit_8_LH.c
scilab/modules/scicos_blocks/src/c/extract_bit_8_LSB.c
scilab/modules/scicos_blocks/src/c/extract_bit_8_MSB0.c
scilab/modules/scicos_blocks/src/c/extract_bit_8_MSB1.c
scilab/modules/scicos_blocks/src/c/extract_bit_8_RB0.c
scilab/modules/scicos_blocks/src/c/extract_bit_8_RB1.c
scilab/modules/scicos_blocks/src/c/extract_bit_8_UH0.c
scilab/modules/scicos_blocks/src/c/extract_bit_8_UH1.c
scilab/modules/scicos_blocks/src/c/extract_bit_u16_MSB1.c
scilab/modules/scicos_blocks/src/c/extract_bit_u16_RB1.c
scilab/modules/scicos_blocks/src/c/extract_bit_u16_UH1.c
scilab/modules/scicos_blocks/src/c/extract_bit_u32_MSB1.c
scilab/modules/scicos_blocks/src/c/extract_bit_u32_RB1.c
scilab/modules/scicos_blocks/src/c/extract_bit_u32_UH1.c
scilab/modules/scicos_blocks/src/c/extract_bit_u8_MSB1.c
scilab/modules/scicos_blocks/src/c/extract_bit_u8_RB1.c
scilab/modules/scicos_blocks/src/c/extract_bit_u8_UH1.c
scilab/modules/scicos_blocks/src/c/fromws_c.c
scilab/modules/scicos_blocks/src/c/lookup2d.c
scilab/modules/scicos_blocks/src/c/readc.c
scilab/modules/scicos_blocks/src/c/relational_op_i16.c
scilab/modules/scicos_blocks/src/c/relational_op_i8.c
scilab/modules/scicos_blocks/src/c/relational_op_ui16.c
scilab/modules/scicos_blocks/src/c/relational_op_ui8.c
scilab/modules/scicos_blocks/src/c/scoMisc.c
scilab/modules/scicos_blocks/src/c/scoWindowScope.c
scilab/modules/scicos_blocks/src/c/shift_16_LA.c
scilab/modules/scicos_blocks/src/c/shift_16_LC.c
scilab/modules/scicos_blocks/src/c/shift_16_RA.c
scilab/modules/scicos_blocks/src/c/shift_16_RC.c
scilab/modules/scicos_blocks/src/c/shift_32_LA.c
scilab/modules/scicos_blocks/src/c/shift_32_LC.c
scilab/modules/scicos_blocks/src/c/shift_32_RA.c
scilab/modules/scicos_blocks/src/c/shift_32_RC.c
scilab/modules/scicos_blocks/src/c/shift_8_LA.c
scilab/modules/scicos_blocks/src/c/shift_8_LC.c
scilab/modules/scicos_blocks/src/c/shift_8_RA.c
scilab/modules/scicos_blocks/src/c/shift_8_RC.c
scilab/modules/scicos_blocks/src/c/shift_u16_RA.c
scilab/modules/scicos_blocks/src/c/shift_u32_RA.c
scilab/modules/scicos_blocks/src/c/shift_u8_RA.c

index 8993deb..fc8b273 100644 (file)
@@ -22,7 +22,7 @@
 #ifndef __SCICOS_MALLOC_H__
 #define __SCICOS_MALLOC_H__
 
-void * scicos_malloc(size_t size);
+void *scicos_malloc();
 
 #endif /*__SCICOS_MALLOC_H__*/
 
index 632cea2..010ef38 100644 (file)
@@ -119,10 +119,8 @@ int MlistGetFieldNumber(int *ptr, const char *string)
   return retval;
 }
 
-int intendscicosim(fname,fname_len)
+int intendscicosim(char *fname,unsigned long fname_len)
      /* termine la simulation */
-     char *fname;
-     unsigned long fname_len;
 {
   int isrun = C2F(cosim).isrun;
 
@@ -136,10 +134,8 @@ int intendscicosim(fname,fname_len)
   return 0;
 }
 
-int inttimescicos(fname,fname_len)
-     /* renvoi le temps de simulation t=get_scicos_time() */
-     char *fname;
-     unsigned long fname_len;
+int inttimescicos(char *fname,unsigned long fname_len)
+/* renvoi le temps de simulation t=get_scicos_time() */
 {
   int un,l1;
   CheckRhs(-1,0);
@@ -150,16 +146,13 @@ int inttimescicos(fname,fname_len)
   return 0;
 }
 
-int intduplicate(fname,fname_len)
+int intduplicate(char *fname, unsigned long fname_len)
 
      /* v=duplicate(u,count) 
       * returns v=[u(1)*ones(count(1),1);
       *            u(2)*ones(count(2),1);
       *            ...
       */
-
-     char *fname;
-     unsigned long fname_len;
 {
   int m1,m2,m3,n1,n2,n3,l1,l2,l3,n;
   CheckRhs(2,2);
@@ -186,10 +179,8 @@ int intduplicate(fname,fname_len)
   return 0;
 }
 
-int intdiffobjs(fname,fname_len)
+int intdiffobjs(char *fname, unsigned long fname_len)
      /*   diffobjs(A,B) returns 0 if A==B and 1 if A and B differ */
-     char *fname;
-     unsigned long fname_len;
 {
   int un,l3,k;
   int size1;int size2;
@@ -218,10 +209,8 @@ int intdiffobjs(fname,fname_len)
   return 0;
 }
 
-int inttree2(fname,fname_len)
+int inttree2(char *fname, unsigned long fname_len)
      /* [ord,ok]=ctree2(vec,outoin,outoinptr,dep_u,dep_uptr) */
-     char *fname;
-     unsigned long fname_len;
 {
   int un=1,ipvec,nvec,mvec,noin,moin,ipoin,noinr,moinr,ipoinr;
   int ndep,mdep,ipdep,ndepuptr,mdepuptr,ipdepuptr,ipord,ipok,n,nord;
@@ -248,10 +237,8 @@ int inttree2(fname,fname_len)
   return 0;
 }
 
-int inttree3(fname,fname_len)
+int inttree3(char *fname, unsigned long fname_len)
      /* [r2,ok2]=ctree3(vec,dd,dep_uptr,typ_l,bexe,boptr,blnk,blptr)*/
-     char *fname;
-     unsigned long fname_len;
 {
   int un=1,ipvec,nvec,mvec,ntyp,mtyp,iptyp,nbex,mbex,ipbex;
   int ndep,mdep,ipdep,ndepuptr,mdepuptr,ipdepuptr,ipord,ipok,n,nord;
@@ -314,11 +301,9 @@ int inttree4(char *fname,unsigned long fname_len)
   return 0;
 }
 
-int intxproperty(fname,fname_len)
+int intxproperty(char *fname,unsigned long fname_len)
      /* renvoi le type d'equation get_pointer_xproperty() 
       *        (-1: algebriques, +1 differentielles) */
-     char *fname;
-     unsigned long fname_len;
 {
   int un;
   int* pointer_xproperty;
@@ -339,10 +324,8 @@ int intxproperty(fname,fname_len)
   return 0;
 }
 
-int intphasesim(fname,fname_len)
+int intphasesim(char *fname, unsigned long fname_len)
      /* renvoi la phase de simulation phase=get_phase_simulation() */
-     char *fname;
-     unsigned long fname_len;
 { 
   int un,l1;
   int isrun = C2F(cosim).isrun;
@@ -360,11 +343,9 @@ int intphasesim(fname,fname_len)
   return 0;
 }
 
-int intsetxproperty(fname,fname_len)
+int intsetxproperty(char *fname, unsigned long fname_len)
      /* renvoi le type d'equation get_pointer_xproperty() 
       *        (-1: algebriques, +1 differentielles) */
-     char *fname;
-     unsigned long fname_len;
 {
   int un,l1,m1;
   int isrun = C2F(cosim).isrun;
@@ -381,10 +362,8 @@ int intsetxproperty(fname,fname_len)
   return 0;
 }
 
-int intsetblockerror(fname,fname_len)
+int intsetblockerror(char *fname, unsigned long fname_len)
      /* renvoi une erreur */
-     char *fname;
-     unsigned long fname_len;
 {
   int un,l1;
   int isrun = C2F(cosim).isrun;
@@ -402,9 +381,7 @@ int intsetblockerror(fname,fname_len)
   return 0;
 }
 
-void  duplicata(n,v,w,ww,nw)
-     double *v,*w,*ww;
-     int *n,*nw;
+void  duplicata(int *n,double *v,double *w,double *ww,int *nw)
 {
   int i,j,k;
   k=0;
@@ -417,9 +394,7 @@ void  duplicata(n,v,w,ww,nw)
   *nw=k;
 }
 
-void  comp_size(v,nw,n)
-     double *v;
-     int *nw,n;
+void  comp_size(double *v,int *nw,int n)
 {
   int i;
   *nw=0;
@@ -547,13 +522,17 @@ void  comp_size(v,nw,n)
      FREE(l_pointi)
 
 /* prototype */
+
+/*********************************************
+* external structure and function declaration
+*********************************************/
+/*declaration of funnum (in scicos.c)*/
+extern int C2F(funnum)(char *fname);
+
 int intscicosimc(char *fname,unsigned long fname_len)
 {
- /*********************************************
-  * external structure and function declaration
-  *********************************************/
- /*declaration of funnum (in scicos.c)*/
- extern int C2F(funnum)(char *fname);
 
  /************************************
   * variables and constants d?inition
@@ -3362,13 +3341,13 @@ int intgetscicosvarsc(char *fname,unsigned long fname_len)
   double *x,*xd,*g;         /* ptr for x, xd and g for scicos_blocks               */
   int *funtyp;              /* ptr for funtyp */
 
-  int ierr;       /* error flag                                */
-  int errc;       /* error flag for ceateblklst                */
+  int ierr = 0;       /* error flag                                */
+  int errc = 0;       /* error flag for ceateblklst                */
   int ptr_pos = 0;    /* to store position in scilab string object */
-  int Topsave;    /* to save the Top position                  */
+  int Topsave = 0;    /* to save the Top position                  */
 
-  int sz_str;     /* local variabe to store size of string */
-  int i,j,k;      /* local counter variable                */
+  int sz_str = 0;     /* local variabe to store size of string */
+  int i = 0,j = 0,k = 0;      /* local counter variable                */
 
   /* number of entries -please update me-                        */
   static int nentries=69;
@@ -3865,24 +3844,24 @@ int intcurblkc(char *fname,unsigned long fname_len)
 
 int intbuildouttb(char *fname,unsigned long fname_len)
 {
- static int l1, m1,   n1;
- static int l2, m2,   n2;
- static int l3, n3=1;
+ static int l1 = 0, m1 = 0,   n1 = 0;
+ static int l2 = 0, m2 = 0,   n2 = 0;
+ static int l3 = 0, n3 = 1;
  SciIntMat M1,M2,M3;
 
- int n_lnksz,n_lnktyp;
+ int n_lnksz = 0, n_lnktyp = 0;
  int *lnksz=NULL,*lnktyp=NULL;
 
- double *ptr_d;
- double *ptr_dc;
- int *ptr_i;
- short *ptr_s;
- char *ptr_c;
- int *ptr_ui;
- short *ptr_us;
- char *ptr_uc;
+ double *ptr_d = NULL;
+ double *ptr_dc = NULL;
+ int *ptr_i = NULL;
+ short *ptr_s = NULL;
+ char *ptr_c = NULL;
+ int *ptr_ui = NULL;
+ short *ptr_us = NULL;
+ char *ptr_uc = NULL;
 
- int nm,i,j,ierr=0;
+ int nm = 0,i = 0,j = 0,ierr = 0;
 
  static int minlhs=1, maxlhs=1, minrhs=2, maxrhs=2;
 
index 9fa5c88..e3ce070 100644 (file)
@@ -103,20 +103,20 @@ int extractblklist(int *il, scicos_block *Blocks, int *ierr);
  */
 int sci_data2sig(char *fname, unsigned long fname_len)
 {
-  int m1,n1,it;
-  int p1=0;
-  int *il1;
-  int m1h,n1h;
-  int *ilh1;
-  int m2h,n2h;
+  int m1 = 0,n1 = 0,it = 0;
+  int p1 = 0;
+  int *il1 = NULL;
+  int m1h = 0,n1h = 0;
+  int *ilh1 = NULL;
+  int m2h = 0,n2h = 0;
   int *ilh2=NULL;
   int *ilh3=NULL;
-  int m2,n2,it2;
-  int *il2;
-  int il,l;
-  int l_tmp;
+  int m2 = 0,n2 = 0,it2 = 0;
+  int *il2 = NULL;
+  int il = 0, l = 0;
+  int l_tmp = 0;
 
-  int i,j,TopSave;
+  int i = 0, j = 0, TopSave = 0;
 
   char *str_stlst[]={"st","dims","values","time"};
   char *str_hmlst[]={"hm","dims","entries"};
@@ -2404,15 +2404,15 @@ int extractblklist(int *il, scicos_block *Block, int *ierr)
    */
 
   /* variables for scilab stack */
-  int *ilh;
-  int mh,nh;
-  int *ilh2;
-  int mh2,nh2;
-  int len_str;
+  int *ilh = NULL;
+  int mh = 0, nh = 0;
+  int *ilh2 = NULL;
+  int mh2 = 0, nh2 = 0;
+  int len_str = 0;
 
   /* local counter variables */
-  int n;
-  int i,j;
+  int n = 0;
+  int i = 0, j = 0;
 
   *ierr = 0;
 
index 6f0c549..6f8fe6b 100644 (file)
@@ -632,7 +632,7 @@ ezxml_t ezxml_parse_fp(FILE *fp)
 
     if (! s) return NULL;
     root = (ezxml_root_t)ezxml_parse_str(s, len);
-    root->len = -1; // so we know to free s in ezxml_free()
+    root->len = (size_t)-1; // so we know to free s in ezxml_free()
     return &root->xml;
 }
 
@@ -660,7 +660,7 @@ ezxml_t ezxml_parse_fd(int fd)
 #endif // EZXML_NOMMAP
         l = read(fd, m = malloc(st.st_size), st.st_size);
         root = (ezxml_root_t)ezxml_parse_str(m, l);
-        root->len = -1; // so we know to free s in ezxml_free()
+        root->len = (size_t)-1; // so we know to free s in ezxml_free()
 #ifndef EZXML_NOMMAP
     }
 #endif // EZXML_NOMMAP
@@ -725,7 +725,7 @@ char *ezxml_toxml_r(ezxml_t xml, char **s, size_t *len, size_t *max,
             *s = realloc(*s, *max += EZXML_BUFSIZE);
 
         *len += sprintf(*s + *len, " %s=\"", xml->attr[i]);
-        ezxml_ampencode(xml->attr[i + 1], -1, s, len, max, 1);
+        ezxml_ampencode(xml->attr[i + 1], (size_t)(-1), s, len, max, 1);
         *len += sprintf(*s + *len, "\"");
     }
 
@@ -737,13 +737,13 @@ char *ezxml_toxml_r(ezxml_t xml, char **s, size_t *len, size_t *max,
             *s = realloc(*s, *max += EZXML_BUFSIZE);
 
         *len += sprintf(*s + *len, " %s=\"", attr[i][j]);
-        ezxml_ampencode(attr[i][j + 1], -1, s, len, max, 1);
+        ezxml_ampencode(attr[i][j + 1], (size_t)(-1), s, len, max, 1);
         *len += sprintf(*s + *len, "\"");
     }
     *len += sprintf(*s + *len, ">");
 
     *s = (xml->child) ? ezxml_toxml_r(xml->child, s, len, max, 0, attr) //child
-                      : ezxml_ampencode(xml->txt, -1, s, len, max, 0);  //data
+                      : ezxml_ampencode(xml->txt, (size_t)(-1), s, len, max, 0);  //data
     
     while (*len + strlen(xml->name) + 4 > *max) // reallocate s
         *s = realloc(*s, *max += EZXML_BUFSIZE);
@@ -752,7 +752,7 @@ char *ezxml_toxml_r(ezxml_t xml, char **s, size_t *len, size_t *max,
 
     while (txt[off] && off < xml->off) off++; // make sure off is within bounds
     return (xml->ordered) ? ezxml_toxml_r(xml->ordered, s, len, max, off, attr)
-                          : ezxml_ampencode(txt + off, -1, s, len, max, 0);
+                          : ezxml_ampencode(txt + off, (size_t)(-1), s, len, max, 0);
 }
 
 // Converts an ezxml structure back to xml. Returns a string of xml data that
index 22fd2ac..897447e 100644 (file)
@@ -332,11 +332,11 @@ C2F(clearscicosimport)()
  * 08/02/07, Alan : update
  */
 
-int getscicosvarsfromimport(what,v,nv,mv)
-char *what;   /* data structure selection -see import.h for definition-*/
-void **v;     /* Pointer to the beginning of the imported data */
-int *nv;      /* size 1 of the imported data */
-int *mv;      /* size 1 of the imported data */
+int getscicosvarsfromimport(char *what,void **v,int *nv,int *mv)
+/*char *what;   data structure selection -see import.h for definition-*/
+/*void **v;     Pointer to the beginning of the imported data */
+/*int *nv;      size 1 of the imported data */
+/*int *mv; size 1 of the imported data */
 {
     /*variable declaration*/
     int nx,nz,noz,nmod,nblk,nlnk,nsubs,nevts,ng;
@@ -803,10 +803,8 @@ int *mv;      /* size 1 of the imported data */
 }
 
 /* Used in some scicos block */
-void C2F(getlabel)(kfun,label,n)
-       int *n, *kfun;  /* length of the label 
-                              as input n gives the max length expected*/
-char *label;
+void C2F(getlabel)(int *kfun, char *label,int *n)
+/*int *n, *kfun;  length of the label as input n gives the max length expected*/
 {
     int k;
     int job=1;
@@ -820,9 +818,7 @@ char *label;
 }
 
 /*never used, never interfaced */
-void C2F(getblockbylabel)(kfun,label,n)
-       int *n, *kfun;  /* length of the label */
-char **label;
+void C2F(getblockbylabel)(int *kfun, char **label, int *n)
 {
     int k,i,i0,nblk,n1;
     int job=0;
@@ -847,9 +843,7 @@ char **label;
 }
 
 /*never used, never interfaced */
-int C2F(getsciblockbylabel)(kfun,label,n)
-       int *n, *kfun;  /* length of the label */
-       int label[];
+int C2F(getsciblockbylabel)(int*kfun,int label[],int *n)
 {
     int k,i,i0,nblk,n1;
     if (scicos_imp.x==(double *)NULL){
@@ -873,9 +867,7 @@ int C2F(getsciblockbylabel)(kfun,label,n)
     return 0;
 }
 
-int C2F(getscilabel)(kfun,label,n)
-       int *n, *kfun;  /* length of the label */
-       int label[];
+int C2F(getscilabel)(int *kfun, int label[], int *n)
 {
     int k,i;
     int *u,*y;
@@ -906,10 +898,7 @@ int C2F(getcurblock)()
  * Only first element of matrix is delivred and converted to double data.
  *
  */
-void C2F(getouttb)(nsize,nvec,outtc)
-int *nsize,*nvec;
-double *outtc;
-
+void C2F(getouttb)(int *nsize,int *nvec,double *outtc)
 {
   /* declaration of ptr for typed port */
   void **outtbptr;            /*to store outtbptr*/
index 5f3a330..d88c0fa 100644 (file)
@@ -33,13 +33,8 @@ extern void C2F(ltopadj)();
 extern void C2F(scifunc)();
 extern void C2F(mklist)();
 
-void 
-sciblk2(flag,nevprt,t,xd,x,nx,z,nz,tvec,ntvec,rpar,nrpar,
-              ipar,nipar,inptr,insz,nin,outptr,outsz,nout)
-
-int *flag,*nevprt,*nx,*nz,*ntvec,*nrpar,ipar[],*nipar,insz[],*nin,outsz[],*nout;
-double x[],xd[],z[],tvec[],rpar[];
-double *inptr[],*outptr[],*t;
+void  sciblk2(int *flag, int *nevprt, double *t, double xd[], double x[], int *nx, double z[], int *nz,double tvec[],int *ntvec,double rpar[],int *nrpar,
+              int ipar[],int *nipar,double *inptr[],int insz[],int *nin,double *outptr[],int outsz[],int *nout)
 
 {
     int k;
index 43c054a..5279e6e 100644 (file)
@@ -1194,7 +1194,7 @@ void cossim(double *told)
        int *jroot,*zcros;
        realtype reltol, abstol;
        N_Vector y=NULL;
-       void *cvode_mem;
+       void *cvode_mem = NULL;
        int flag, flagr;
        int cnt=0;
 
@@ -1638,7 +1638,7 @@ void cossimdaskr(double *told)
        int *Mode_save;
        int Mode_change=0;
 
-       int flag, flagr; 
+       int flag, flagr = 0; 
        N_Vector   yy=NULL, yp=NULL;
        realtype reltol, abstol; 
        int Discrete_Jump;
@@ -1650,7 +1650,7 @@ void cossimdaskr(double *told)
 
        void *ida_mem=NULL;
        UserData data=NULL;
-       IDAMem copy_IDA_mem;
+       IDAMem copy_IDA_mem = NULL;
        int maxnj,maxnit;
        /*-------------------- Analytical Jacobian memory allocation ----------*/
        int  Jn, Jnx, Jno, Jni, Jactaille;
@@ -4354,8 +4354,7 @@ void FREE_blocks()
 } /* FREE_blocks */
 
 /* Subroutine funnum */
-int C2F(funnum)(fname)
-char * fname;
+int C2F(funnum)(char * fname)
 {
        int i=0,ln;
        int loc=-1;
@@ -4369,10 +4368,8 @@ char * fname;
        return(0);
 }/* funnum */
 
-static int scicos_setmode(W,x,told,jroot,ttol)
+static int scicos_setmode(double *W,double *x,double *told,int *jroot,double ttol)
 /* work space W needs to be ng+*neq*2 */
-double *W,*x,*told,ttol;
-int *jroot;
 {
        int k,j,jj,diff,ii;
        double ttmp;
@@ -4936,8 +4933,7 @@ int write_xml_states(int nvar,const char * xmlfile, char **ids, double *x){
 }
 /*-----------------------*/
 /*----------------------------------------------------*/
-int fx_(x, residual) /* used for homotopy*/
-double *x, *residual;
+int C2F(fx)(double *x,double *residual) /* used for homotopy*/
 {
        double  *xdot, t;
        xdot=x+*neq;
@@ -4949,9 +4945,7 @@ double *x, *residual;
        return (*ierr);
 } 
 /*----------------------------------------------------*/
-int rho_(a, L, x, rho, rpar, ipar)  /* used for homotopy*/
-double *a, *L,*x,*rho,*rpar;
-int *ipar;
+int rho_(double *a,double *L,double *x,double *rho,double *rpar,int *ipar)  /* used for homotopy*/
 {
        int i,N;
        N=*neq;
@@ -4962,11 +4956,7 @@ int *ipar;
        return 0;
 }
 /*----------------------------------------------------*/
-int rhojac_(a, lambda, x, jac, col, rpar, ipar)  /* used for homotopy*/
-double *a, *lambda, *x, *jac;
-int *col;
-double *rpar;
-int *ipar;
+int rhojac_(double *a, double *lambda,double  *x, double  *jac, int *col,double *rpar,int *ipar)  /* used for homotopy*/
 {/* MATRIX [d_RHO/d_LAMBDA, d_RHO/d_X_col] */
        int j,N;
        double *work;
index 1bc828a..6209578 100644 (file)
@@ -36,65 +36,65 @@ extern int C2F(dr)(char x0[],char x1[],int *x2,int *x3,int *x4,int *x5,int *x6,
                        int *x7,double *dx1,double *dx2,double *dx3,double *dx4,
                        int lx0, int lx1) ;
 */
-static void block_draw_rect_1(double r[],double percent)
-{
-/*
-  int verbose=0;
-  static int in=6;
-  double w = r[2]*percent;
-  double x = r[0];
-*/
-  /* disabled */
-  /* TO DO : new graphics version */
-
-  /*C2F(dr)("xget","alufunction",&verbose,&alumode,&narg,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
-  if ( alumode != in ) C2F(dr1)("xset","alufunction",&in,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
-  C2F(dr1)("xfrect","v",PI0,PI0,PI0,PI0,PI0,PI0,&x,r+1,&w,r+3,0L,0L);
-  if ( alumode != in ) C2F(dr1)("xset","alufunction",&alumode,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
-  */
-}
-
-static void block_draw_rect_2(double r[],double percent)
-{
-/*
-  int verbose=0;*/
-  /* int flag =0;  double ang=0.0;  char foo[24]; */
-/*static int in=6;
-  double x = r[0]+ r[2]*percent-2;
-  double w = 4;*/
-  /* disabled */
-  /* TO DO : new graphics version */
-  /*C2F(dr)("xget","alufunction",&verbose,&alumode,&narg,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
-  if ( alumode != in ) C2F(dr1)("xset","alufunction",&in,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
-  C2F(dr1)("xfrect","v",PI0,PI0,PI0,PI0,PI0,PI0,&x,r+1,&w,r+3,0L,0L);
-  /* sprintf(foo,"%5.3f",percent);
-     C2F(dr1)("xstring",foo,PI0,PI0,PI0,&flag,PI0,PI0,r,r+1,&ang,PD0,0L,0L);
-  */
+//static void block_draw_rect_1(double r[],double percent)
+//{
+///*
+//  int verbose=0;
+//  static int in=6;
+//  double w = r[2]*percent;
+//  double x = r[0];
+//*/
+//  /* disabled */
+//  /* TO DO : new graphics version */
+//
+//  /*C2F(dr)("xget","alufunction",&verbose,&alumode,&narg,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
+//  if ( alumode != in ) C2F(dr1)("xset","alufunction",&in,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
+//  C2F(dr1)("xfrect","v",PI0,PI0,PI0,PI0,PI0,PI0,&x,r+1,&w,r+3,0L,0L);
+//  if ( alumode != in ) C2F(dr1)("xset","alufunction",&alumode,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
+//  */
+//}
 
-  /* disabled */
-  /* TO DO : new graphics version */
-  /*if ( alumode != in ) C2F(dr1)("xset","alufunction",&alumode,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);*/
-}
+//static void block_draw_rect_2(double r[],double percent)
+//{
+///*
+//  int verbose=0;*/
+//  /* int flag =0;  double ang=0.0;  char foo[24]; */
+///*static int in=6;
+//  double x = r[0]+ r[2]*percent-2;
+//  double w = 4;*/
+//  /* disabled */
+//  /* TO DO : new graphics version */
+//  /*C2F(dr)("xget","alufunction",&verbose,&alumode,&narg,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
+//  if ( alumode != in ) C2F(dr1)("xset","alufunction",&in,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
+//  C2F(dr1)("xfrect","v",PI0,PI0,PI0,PI0,PI0,PI0,&x,r+1,&w,r+3,0L,0L);
+//  /* sprintf(foo,"%5.3f",percent);
+//     C2F(dr1)("xstring",foo,PI0,PI0,PI0,&flag,PI0,PI0,r,r+1,&ang,PD0,0L,0L);
+//  */
+//
+//  /* disabled */
+//  /* TO DO : new graphics version */
+//  /*if ( alumode != in ) C2F(dr1)("xset","alufunction",&alumode,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);*/
+//}
 
 
-static void block_draw_rect_3(double r[],double percent)
-{
-       /*
-  int verbose=0;
-  int flag =0;  double ang=0.0;
-  static int in=6;
-  double x = r[0] + (1.0/10)*r[2];
-  double y = r[1] - r[3] + 2 ;
-  */
-  /* disabled */
-  /* TO DO : new graphics version */
-  /*C2F(dr)("xget","alufunction",&verbose,&alumode,&narg,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
-  if ( alumode != in ) C2F(dr1)("xset","alufunction",&in,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
-  sprintf(foo,"%5.3f",percent);
-  C2F(dr1)("xstring",foo,PI0,PI0,PI0,&flag,PI0,PI0,&x,&y,&ang,PD0,0L,0L);
-  if ( alumode != in ) C2F(dr1)("xset","alufunction",&alumode,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
-  */
-}
+//static void block_draw_rect_3(double r[],double percent)
+//{
+//     /*
+//  int verbose=0;
+//  int flag =0;  double ang=0.0;
+//  static int in=6;
+//  double x = r[0] + (1.0/10)*r[2];
+//  double y = r[1] - r[3] + 2 ;
+//  */
+//  /* disabled */
+//  /* TO DO : new graphics version */
+//  /*C2F(dr)("xget","alufunction",&verbose,&alumode,&narg,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
+//  if ( alumode != in ) C2F(dr1)("xset","alufunction",&in,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
+//  sprintf(foo,"%5.3f",percent);
+//  C2F(dr1)("xstring",foo,PI0,PI0,PI0,&flag,PI0,PI0,&x,&y,&ang,PD0,0L,0L);
+//  if ( alumode != in ) C2F(dr1)("xset","alufunction",&alumode,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
+//  */
+//}
 
 
 
@@ -130,12 +130,12 @@ static void block_draw_rect_3(double r[],double percent)
 static int set_block_win( int win)
 {
   static int cur = 0;
-  /* TO DO : rewrite with new graphics functions */
-  /*
-  C2F(dr)("xget","window",&verbose,&cur,&narg,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
-  if ( cur != win ) 
-    C2F(dr)("xset","window",&win,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
-  */
+//  /* TO DO : rewrite with new graphics functions */
+//  /*
+//  C2F(dr)("xget","window",&verbose,&cur,&narg,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
+//  if ( cur != win ) 
+//    C2F(dr)("xset","window",&win,PI0,PI0,PI0,PI0,PI0,PD0,PD0,PD0,PD0,0L,0L);
+//  */
   return cur ;
 }
 
@@ -197,16 +197,16 @@ void slider(int *flag, int *nevprt, double *t, double *xd,
          switch (ipar[0]) 
            {
            case 1 : 
-             block_draw_rect_1(z+2,z[0]);
-             block_draw_rect_1(z+2,percent);
+//           block_draw_rect_1(z+2,z[0]);
+//           block_draw_rect_1(z+2,percent);
              break;
            case 2 :
-             block_draw_rect_2(z+2,z[0]);
-             block_draw_rect_2(z+2,percent);
+//           block_draw_rect_2(z+2,z[0]);
+//           block_draw_rect_2(z+2,percent);
              break;
            case 3 :
-             block_draw_rect_3(z+2,z[0]);
-             block_draw_rect_3(z+2,percent);
+//           block_draw_rect_3(z+2,z[0]);
+//           block_draw_rect_3(z+2,percent);
              break;
            }
          curcolor=set_slider_color(curcolor);
@@ -236,13 +236,13 @@ void slider(int *flag, int *nevprt, double *t, double *xd,
       switch (ipar[0]) 
        {
        case 1 : 
-         block_draw_rect_1(z+2,z[0]);
+//       block_draw_rect_1(z+2,z[0]);
          break;
        case 2 :
-         block_draw_rect_2(z+2,z[0]);
+//       block_draw_rect_2(z+2,z[0]);
          break;
        case 3 :
-         block_draw_rect_3(z+2,z[0]);
+//       block_draw_rect_3(z+2,z[0]);
          break;
 
        }
index af8e043..00cc149 100644 (file)
@@ -43,8 +43,8 @@ void Inver(int* vect, int nb)
 
 
 /************************* function tree2 *********************************/
-int ctree2(vect, nb, depu, depuptr,outoin, outoinptr, ord, nord, ok)
-     int *vect,nb,*depu,*depuptr,*outoin,*outoinptr,*ord,*nord,*ok;
+int ctree2(int *vect,int nb,int *depu,int *depuptr,int *outoin,int *outoinptr,int *ord,int *nord,int *ok)
+     
 {
   int fini=0,i,j,k,m,ii;
   
@@ -99,8 +99,7 @@ int ctree2(vect, nb, depu, depuptr,outoin, outoinptr, ord, nord, ok)
 
 /* ===========================================   fin de tree2 ======================================== */ 
 /* ********************************************** function tree3 ***************************************** */
-int ctree3(vec, nb, depu,depuptr, typl, bexe, boptr, blnk, blptr,ord, nord, ok)
-     int *vec,nb,*depu,*depuptr,*typl,*bexe,*boptr,*blnk,*blptr,*ord,*nord,*ok;
+int ctree3(int *vec,int nb, int *depu, int*depuptr, int *typl, int*bexe,int*boptr,int*blnk,int*blptr,int*ord,int*nord,int*ok)
 {
   int fini=0,i,j,m,nkk,kk;
   
index e5f7e43..e2340d1 100644 (file)
@@ -1,6 +1,15 @@
 #ifndef __SCICOS_BLOCK_H__
 #define __SCICOS_BLOCK_H__
 
+/**
+* Add header of scicos_malloc
+* scicos_free HERE
+* to do modify dynamic link with scicos
+*/
+
+extern void * scicos_malloc();
+extern void scicos_free(void *p);
+
 typedef void (*voidg)();
 
 typedef struct {   
@@ -52,8 +61,6 @@ double get_scicos_time();
 int get_block_number();
 void set_block_error(int);
 void set_pointer_xproperty(int* pointer);
-void * scicos_malloc(size_t );
-void scicos_free(void *p);
 double Get_Jacobian_cj(void);
 double Get_Jacobian_ci(void);
 double Get_Scicos_SQUR(void);
index 8ef8d52..2a5b4df 100644 (file)
 *
 * See the file ./license.txt
 */
-#include "scicos_block.h"
 #include <math.h>
 
+#include "scicos_block.h"
+
 
 void  absolute_value(scicos_block *block,int flag)
 {
index bd4831d..0bdc574 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block.h"
 #include <math.h>
+#include "scicos_block.h"
+
 
 void acos_blk(scicos_block *block,int flag)
 {
index 2be616e..d19429f 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block.h"
 #include <math.h>
+#include "scicos_block.h"
+
 
 #ifndef NULL
 #define NULL    0
index 0d9f39a..69ed342 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void bit_clear_16(scicos_block *block,int flag)
 {
index 26ebd1b..af96f00 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void bit_clear_32(scicos_block *block,int flag)
 {
index 52dc629..722e8c3 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void bit_clear_8(scicos_block *block,int flag)
 {
index 3d386ac..fc6de68 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void bit_set_16(scicos_block *block,int flag)
 {
index 6d479dc..e7b221e 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void bit_set_32(scicos_block *block,int flag)
 {
index bf24e4b..cf93d44 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void bit_set_8(scicos_block *block,int flag)
 {
index d94bc4e..3cf17a5 100644 (file)
@@ -19,8 +19,9 @@
 * See the file ./license.txt
 */
 #include <memory.h>
-#include "scicos_block4.h"
 #include<stdio.h>
+#include "scicos_block4.h"
+
 
 void cstblk4_m(scicos_block *block,int flag)
 { 
index 192ecc8..520ebc9 100644 (file)
@@ -70,6 +70,9 @@ int dmmul(double *a, int *na, double *b, int *nb, double *c__,
        return 0;
 } /* dmmul */
 
+extern long int lsame(char *, char *);
+extern int xerbla(char *, int *);
+
 int dgemm(char *transa, char *transb, int *m, int *n, int *k, double *alpha, 
          double *a, int *lda, double *b, int *ldb,double *beta, double *c, 
          int *ldc)
@@ -81,9 +84,8 @@ int dgemm(char *transa, char *transb, int *m, int *n, int *k, double *alpha,
   static long int nota, notb;
   static double temp;
   static int i, j, l, ncola;
-  long int lsame(char *, char *);
   static int nrowa, nrowb;  
-  int xerbla(char *, int *);
+
   
   /*     .. Scalar Arguments .. */
   /*     .. Array Arguments .. */
index f0a52f4..c884b46 100644 (file)
@@ -21,6 +21,7 @@
 /* Table of constant values */
 
 static int c__1 = 1;
+extern double ddot();
 
 int dmmul1(double *a, int *na, double *b, int *nb, double *c__, 
           int *nc, int *l, int *m, int *n)
@@ -29,7 +30,7 @@ int dmmul1(double *a, int *na, double *b, int *nb, double *c__,
   int i__1, i__2;
   
   /* Local variables */
-  double ddot();
+
   static int i__, j, ib, ic;
   
   /* !but */
index 3baf505..773c4c2 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_16_LH(scicos_block *block,int flag)
 {
index b66afee..d9f3305 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_16_LSB(scicos_block *block,int flag)
 {
index 30865d0..4e2d7e9 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_16_MSB0(scicos_block *block,int flag)
 {
index 2a80938..c83eaae 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_16_MSB1(scicos_block *block,int flag)
 {
index 9dec784..ff5e68e 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_16_RB0(scicos_block *block,int flag)
 {
index 1e33609..449c21b 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_16_RB1(scicos_block *block,int flag)
 {
index b8dfc60..89107d0 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_16_UH0(scicos_block *block,int flag)
 {
index 1eb28e6..fab7832 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_16_UH1(scicos_block *block,int flag)
 {
index 5f33892..2232625 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_32_LH(scicos_block *block,int flag)
 {
index 0b50649..bc64fa9 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_32_LSB(scicos_block *block,int flag)
 {
index 9484f34..127effd 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_32_MSB0(scicos_block *block,int flag)
 {
index 65bd546..79205d3 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_32_MSB1(scicos_block *block,int flag)
 {
index 01704ed..03e3b50 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_32_RB0(scicos_block *block,int flag)
 {
index 75fd51c..c80fb81 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_32_RB1(scicos_block *block,int flag)
 {
index 4e798ef..f0d27d4 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_32_UH0(scicos_block *block,int flag)
 {
index 0b18e2d..7b55eff 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_32_UH1(scicos_block *block,int flag)
 {
index c80cb61..a661efb 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_8_LH(scicos_block *block,int flag)
 {
index 9bc1d07..efe3d3e 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_8_LSB(scicos_block *block,int flag)
 {
index 3e62630..c51cef9 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_8_MSB0(scicos_block *block,int flag)
 {
index 77793e0..9683475 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_8_MSB1(scicos_block *block,int flag)
 {
index 35a56a6..50246bb 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_8_RB0(scicos_block *block,int flag)
 {
index 85ad1d8..a300f50 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_8_RB1(scicos_block *block,int flag)
 {
index d211a71..0a70c34 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_8_UH0(scicos_block *block,int flag)
 {
index 1c09df8..f7a7cc1 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_8_UH1(scicos_block *block,int flag)
 {
index d7bd43f..c9d75b1 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_u16_MSB1(scicos_block *block,int flag)
 {
index ca99bcb..a4cbf89 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_u16_RB1(scicos_block *block,int flag)
 {
index 2d473fc..7995e06 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_u16_UH1(scicos_block *block,int flag)
 {
index 4cda259..649e55a 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_u32_MSB1(scicos_block *block,int flag)
 {
index 558544c..74686e9 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_u32_RB1(scicos_block *block,int flag)
 {
index 018175d..df78904 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_u32_UH1(scicos_block *block,int flag)
 {
index 1b2db58..2e0f92b 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_u8_MSB1(scicos_block *block,int flag)
 {
index 8d08dcb..5fee961 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_u8_RB1(scicos_block *block,int flag)
 {
index 48d5828..ac8c0e3 100644 (file)
@@ -18,8 +18,9 @@
 *
 * See the file ./license.txt
 */
-#include "scicos_block4.h"
 #include <math.h>
+#include "scicos_block4.h"
+
 
 void extract_bit_u8_UH1(scicos_block *block,int flag)
 {
index f0fb986..42a7b89 100644 (file)
@@ -118,13 +118,13 @@ void fromws_c(scicos_block *block,int flag)
   int ytype, my, ny;
 
   /* generic pointer */
-  SCSREAL_COP *y_d,*y_cd,*ptr_d, *ptr_T, *ptr_D;
-  SCSINT8_COP *y_c,*ptr_c;
-  SCSUINT8_COP *y_uc, *ptr_uc;
-  SCSINT16_COP *y_s,*ptr_s;
-  SCSUINT16_COP *y_us,*ptr_us;
-  SCSINT32_COP *y_l,*ptr_l;
-  SCSUINT32_COP *y_ul,*ptr_ul;
+  SCSREAL_COP *y_d = NULL,*y_cd = NULL,*ptr_d = NULL, *ptr_T = NULL, *ptr_D = NULL;
+  SCSINT8_COP *y_c = NULL,*ptr_c = NULL;
+  SCSUINT8_COP *y_uc = NULL, *ptr_uc = NULL;
+  SCSINT16_COP *y_s = NULL,*ptr_s = NULL;
+  SCSUINT16_COP *y_us = NULL,*ptr_us = NULL;
+  SCSINT32_COP *y_l = NULL,*ptr_l = NULL;
+  SCSUINT32_COP *y_ul = NULL,*ptr_ul = NULL;
 
   /* the struct ptr of that block */
   fromwork_struct *ptr;
index a178f8a..9c54bbb 100644 (file)
@@ -50,9 +50,9 @@ void lookup2d(scicos_block *block,int flag)
 
 double computeZ2(double *X, double *Y, double *Z, int nx, int ny, int method, double x, double y)
 {
-  int i,j,im,jm;
-  double fq11,fq12,fq21,fq22,w,w1,w2,z;
-  double x1,x2,x3,y1,y2,y3,z1,z2,z3,A,B,C,D;
+  int i = 0,j = 0,im = 0,jm = 0;
+  double fq11 = 0.,fq12 = 0.,fq21 = 0.,fq22 = 0.,w = 0.,w1 = 0.,w2 = 0.,z = 0.;
+  double x1 = 0.,x2 = 0.,x3 = 0.,y1 = 0.,y2 = 0.,y3 = 0.,z1 = 0.,z2 = 0.,z3 = 0.,A = 0.,B = 0.,C = 0.,D = 0.;
   i=indexfinder2(x, nx, X); 
   j=indexfinder2(y, ny, Y);  
 
index 213ab8d..bc9ca39 100644 (file)
@@ -28,11 +28,10 @@ extern  int C2F(cvstr)(int *,int *,char *,int *,unsigned long int);
 extern void mget2(FILE *fa, int swap, double *res, int n, char *type, int *ierr);
 
 
-int worldsize(type)
-char type[4];
+int worldsize(char type[4])
 {
   char c;
-  int wsz;
+  int wsz = 0;
 
   c=type[0];
   if (c=='u') c=type[1];
index 150bd7f..b372af5 100644 (file)
@@ -23,9 +23,9 @@
 
 void relational_op_i16(scicos_block *block,int flag)
 {
-  short *u1,*u2,*y;
-  int *ipar;
-  int k,i,m,n;
+  short *u1 = NULL, *u2 = NULL,*y = NULL;
+  int *ipar  = NULL;
+  int k = 0,i = 0,m = 0,n = 0;
   m=GetInPortRows(block,1);
   n=GetInPortCols(block,1);
   u1=Getint16InPortPtrs(block,1);
@@ -34,7 +34,7 @@ void relational_op_i16(scicos_block *block,int flag)
   ipar=GetIparPtrs(block);
   if (flag==1)
   {if ((block->ng!=0)&(get_phase_simulation()==2)) 
-       {for(i=0;i<m*n;i++) *(y+i)=block->mode[i]-1;}
+       {for(i=0;i<m*n;i++) *(y+i) = (short)block->mode[i]-1;}
    else{
        for(i=0;i<m*n;i++) y[i]=0;
        k=ipar[0];
index e956327..3b00465 100644 (file)
@@ -34,7 +34,7 @@ void relational_op_i8(scicos_block *block,int flag)
   ipar=GetIparPtrs(block);
   if (flag==1)
   {if ((block->ng!=0)&(get_phase_simulation()==2)) 
-       {for(i=0;i<m*n;i++) *(y+i)=block->mode[i]-1;}
+       {for(i=0;i<m*n;i++) *(y+i)=(char)block->mode[i]-1;}
    else{
        for(i=0;i<m*n;i++) y[i]=0;
        k=ipar[0];
index f7226e6..79a5ff6 100644 (file)
@@ -34,7 +34,7 @@ void relational_op_ui16(scicos_block *block,int flag)
   ipar=GetIparPtrs(block);
   if (flag==1)
   {if ((block->ng!=0)&(get_phase_simulation()==2)) 
-       {for(i=0;i<m*n;i++) *(y+i)=block->mode[i]-1;}
+       {for(i=0;i<m*n;i++) *(y+i)= (unsigned short)block->mode[i]-1;}
    else{
        for(i=0;i<m*n;i++) y[i]=0;
        k=ipar[0];
index 6882c50..5e556da 100644 (file)
@@ -34,7 +34,7 @@ void relational_op_ui8(scicos_block *block,int flag)
   ipar=GetIparPtrs(block);
   if (flag==1)
   {if ((block->ng!=0)&(get_phase_simulation()==2)) 
-       {for(i=0;i<m*n;i++) *(y+i)=block->mode[i]-1;}
+       {for(i=0;i<m*n;i++) *(y+i)=(unsigned char)block->mode[i]-1;}
    else{
        for(i=0;i<m*n;i++) y[i]=0;
        k=ipar[0];
index a7835f2..759fe84 100755 (executable)
 #include "sciprint.h"
 #include "HandleManagement.h"
 
+extern void set_block_error(int err);
+
 void scoScopeError(ScopeMemory * pScopeMemory, int code_error)
 {
-  extern void set_block_error(int err);
+  
   scoGraphicalObject pScopeWindow;
   scoInteger win_id;
 
index 94d6790..a4333cf 100644 (file)
@@ -59,11 +59,12 @@ scoInteger scoGetUserData(scoGraphicalObject pTemp)
   return pFIGURE_FEATURE(pTemp)->user_data[0];
 }
 
+extern int get_block_number();
 
 void scoInitOfWindow(ScopeMemory * pScopeMemory, int dimension, int win_id, int * win_pos, int * win_dim, double * xmin, double * xmax, double * ymin, double * ymax, double * zmin, double * zmax)
 {
   int i;
-  extern int get_block_number();
+  
   int block_number = get_block_number();
   int user_data = -1;
   scoGraphicalObject pTemp;
@@ -179,7 +180,7 @@ void scoInitOfWindow(ScopeMemory * pScopeMemory, int dimension, int win_id, int
 
 void scoRefreshDataBoundsX(ScopeMemory * pScopeMemory, double t)
 {
-  scoGraphicalObject pLongDraw;
+  scoGraphicalObject pLongDraw = NULL;
   scoGraphicalObject pShortDraw;
   scoGraphicalObject pAxes;
 
@@ -345,17 +346,17 @@ void scoRefreshDataBoundsX(ScopeMemory * pScopeMemory, double t)
 void scoDrawScopeAmplitudeTimeStyle(ScopeMemory * pScopeMemory, double t)
 {
   int c__1 = 1;
-  int i,j;
-  int NbrPtsShort,NbrPtsLong,inc;
-  int NbrPtsToCopy;
-  int current_period_counter;
-  int NumCurvInSubWin;
-  int NumSubWin ;
-  int NumCurvTotal;
-  int ShortDrawTableIndex;  
-  scoGraphicalObject pLongDraw;
-  scoGraphicalObject pShortDraw;
-  scoGraphicalObject *pShortDrawTable;
+  int i = 0,j = 0;
+  int NbrPtsShort = 0,NbrPtsLong = 0,inc = 0;
+  int NbrPtsToCopy = 0;
+  int current_period_counter = 0;
+  int NumCurvInSubWin = 0;
+  int NumSubWin = 0 ;
+  int NumCurvTotal = 0;
+  int ShortDrawTableIndex = 0;  
+  scoGraphicalObject pLongDraw = NULL;
+  scoGraphicalObject pShortDraw = NULL;
+  scoGraphicalObject *pShortDrawTable = NULL;
 
   double d_current_real_time ; //** the current real time as  double (52 bit) data structure
   double last_update_time , delta_time, refresh_time;
@@ -912,11 +913,13 @@ void scoAddRectangleForLongDraw(ScopeMemory * pScopeMemory, int i, int j, double
   scoSetHandleFromPointerLongDraw(pScopeMemory,i,j,pLongDraw);
 }
 
+extern int get_block_number();
+
 void scoAddTitlesScope(ScopeMemory * pScopeMemory, char * label, char * x, char * y, char * z)
 {
-  extern int get_block_number();
-  int i;
-  int nxname;
+
+  int i = 0;
+  int nxname = 0;
   char ** title=NULL;
   char * x_title=NULL;
   char * y_title;
index 0627751..1cd98db 100644 (file)
 *
 * See the file ./license.txt
 */
+# include <math.h>
 # include "scicos_block4.h"
 # include "machine.h"
-# include <math.h>
+
 
 void shift_16_LA(scicos_block *block,int flag)
 {
index be6f5d4..3205efd 100644 (file)
 *
 * See the file ./license.txt
 */
+# include <math.h>
 # include "scicos_block4.h"
 # include "machine.h"
-# include <math.h>
+
 
 void shift_16_LC(scicos_block *block,int flag)
 {
index aa2444b..8906527 100644 (file)
 *
 * See the file ./license.txt
 */
+# include <math.h>
 # include "scicos_block4.h"
 # include "machine.h"
-# include <math.h>
+
 
 void shift_16_RA(scicos_block *block,int flag)
 {
index 2acf4d7..dce9477 100644 (file)
 *
 * See the file ./license.txt
 */
+# include <math.h>
 # include "scicos_block4.h"
 # include "machine.h"
-# include <math.h>
+
 
 void shift_16_RC(scicos_block *block,int flag)
 {
index c48d8fb..23b57a3 100644 (file)
 *
 * See the file ./license.txt
 */
+# include <math.h>
 # include "scicos_block4.h"
 # include "machine.h"
-# include <math.h>
+
 
 void shift_32_LA(scicos_block *block,int flag)
 {
index 9588641..34ce544 100644 (file)
 *
 * See the file ./license.txt
 */
+# include <math.h>
 # include "scicos_block4.h"
 # include "machine.h"
-# include <math.h>
+
 
 void shift_32_LC(scicos_block *block,int flag)
 {
index df0159b..fd51055 100644 (file)
 *
 * See the file ./license.txt
 */
+# include <math.h>
 # include "scicos_block4.h"
 # include "machine.h"
-# include <math.h>
+
 
 void shift_32_RA(scicos_block *block,int flag)
 {
index ff56120..1ec1db7 100644 (file)
 *
 * See the file ./license.txt
 */
+# include <math.h>
 # include "scicos_block4.h"
 # include "machine.h"
-# include <math.h>
+
 
 void shift_32_RC(scicos_block *block,int flag)
 {
index 2761892..7223877 100644 (file)
 *
 * See the file ./license.txt
 */
+# include <math.h>
 # include "scicos_block4.h"
 # include "machine.h"
-# include <math.h>
+
 
 void shift_8_LA(scicos_block *block,int flag)
 {
index ef188a7..7fa3e64 100644 (file)
 *
 * See the file ./license.txt
 */
+# include <math.h>
 # include "scicos_block4.h"
 # include "machine.h"
-# include <math.h>
+
 
 void shift_8_LC(scicos_block *block,int flag)
 {
index 0db471e..26ed5e6 100644 (file)
 *
 * See the file ./license.txt
 */
+# include <math.h>
 # include "scicos_block4.h"
 # include "machine.h"
-# include <math.h>
+
 
 void shift_8_RA(scicos_block *block,int flag)
 {
index e05a935..17e09d7 100644 (file)
 *
 * See the file ./license.txt
 */
+# include <math.h>
 # include "scicos_block4.h"
 # include "machine.h"
-# include <math.h>
+
 
 void shift_8_RC(scicos_block *block,int flag)
 {
index d535d5c..298a37c 100644 (file)
 *
 * See the file ./license.txt
 */
+# include <math.h>
 # include "scicos_block4.h"
 # include "machine.h"
-# include <math.h>
+
 
 void shift_u16_RA(scicos_block *block,int flag)
 {
index a7d8cb0..ce554c3 100644 (file)
 *
 * See the file ./license.txt
 */
+# include <math.h>
 # include "scicos_block4.h"
 # include "machine.h"
-# include <math.h>
+
 
 void shift_u32_RA(scicos_block *block,int flag)
 {
index 15b9be2..0e73b21 100644 (file)
 *
 * See the file ./license.txt
 */
+# include <math.h>
 # include "scicos_block4.h"
 # include "machine.h"
-# include <math.h>
+
 
 void shift_u8_RA(scicos_block *block,int flag)
 {