warnings visual + intel (all warnings mode) scicos module 11/4911/2
Allan CORNET [Fri, 9 Sep 2011 14:15:28 +0000 (16:15 +0200)]
Change-Id: Ida928e90f8329c990591462e5dc042b85dce2f97

scilab/modules/scicos/src/c/scicos.c
scilab/modules/scicos/src/scicos_sundials/src/cvode/cvode.c

index 4783fc2..6733622 100644 (file)
@@ -239,6 +239,10 @@ static int synchro_nev(ScicosImport *scs_imp,int kf,int *ierr);
 /*--------------------------------------------------------------------------*/
 extern int C2F(dset)(int *n, double *dx, double *dy, int *incy);
 extern int C2F(dcopy)(int *,double *,int *,double *,int *);
+extern int C2F(msgs)();
+extern int C2F(getscsmax)();
+extern int C2F(makescicosimport)();
+extern int C2F(clearscicosimport)();
 /*--------------------------------------------------------------------------*/
 void putevs(double *t, int *evtnb, int *ierr1);
 void Jdoit(double *told, double *xt, double *xtd, double *residual, int *job);
@@ -266,11 +270,6 @@ int C2F(scicos)(double *x_in, int *xptr_in, double *z__,
 {
        int i1,kf,lprt,in,out,job=1;
 
-       extern int C2F(msgs)();
-       extern int C2F(getscsmax)();
-
-       extern int C2F(makescicosimport)();
-       extern int C2F(clearscicosimport)();
 
        static int mxtb = 0, ierr0 = 0, kfun0 = 0, i = 0, j = 0, k = 0, jj = 0;
        static int ni = 0, no = 0;
@@ -1618,9 +1617,7 @@ static void cossimdaskr(double *told)
        int Discrete_Jump = 0;
        N_Vector IDx = NULL;
        realtype *scicos_xproperty=NULL;
-       N_Vector bidon = NULL, tempv1 = NULL, tempv2 = NULL, tempv3 = NULL;
        DenseMat TJacque = NULL;
-       realtype *Jacque_col = NULL;
 
        void *ida_mem = NULL;
        UserData data = NULL;
index dd8af42..a887954 100644 (file)
@@ -2073,9 +2073,9 @@ static int CVInitialSetup(CVodeMem cv_mem)
 
 static int CVHin(CVodeMem cv_mem, realtype tout)
 {
-  int retval, sign, count1, count2;
-  realtype tdiff, tdist, tround, hlb, hub;
-  realtype hg, hgs, hs, hnew, hrat, h0, yddnrm;
+  int retval = 0, sign = 0, count1 = 0, count2 = 0;
+  realtype tdiff = 0., tdist = 0., tround = 0., hlb = 0., hub = 0.;
+  realtype hg = 0., hgs = 0., hs = 0., hnew = 0., hrat = 0., h0 = 0., yddnrm = 0.;
   booleantype hgOK, hnewOK;
 
   /* If tout is too close to tn, give up */