Typo fixes 30/10730/4
Paul BIGNIER [Thu, 7 Mar 2013 15:14:50 +0000 (16:14 +0100)]
Change-Id: I403b94624a67a99089f9d663e71b2726842c2f54

14 files changed:
scilab/modules/core/src/c/stack1.c
scilab/modules/differential_equations/sci_gateway/fortran/bjac.f
scilab/modules/differential_equations/sci_gateway/fortran/bjacd.f
scilab/modules/differential_equations/sci_gateway/fortran/bresd.f
scilab/modules/differential_equations/sci_gateway/fortran/bsurfd.f
scilab/modules/differential_equations/src/fortran/ddasrt.f
scilab/modules/differential_equations/src/fortran/rkf45.f
scilab/modules/differential_equations/tests/unit_tests/dae.dia.ref
scilab/modules/differential_equations/tests/unit_tests/dae.tst
scilab/modules/differential_equations/tests/unit_tests/dassldasrt.dia.ref
scilab/modules/differential_equations/tests/unit_tests/dassldasrt.tst
scilab/modules/elementary_functions/src/fortran/wvmul.f
scilab/modules/scicos/macros/scicos_auto/scicos_simulate.sci
scilab/modules/xcos/macros/xcos_simulate.sci

index 8d0a405..299000e 100644 (file)
@@ -84,7 +84,9 @@ int C2F(getlistmat) (char *fname, int *topk, int *spos, int *lnum, int *it, int
     int nv, ili;
 
     if (C2F(getilist) (fname, topk, spos, &nv, lnum, &ili, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     if (*lnum > nv)
     {
@@ -121,7 +123,9 @@ int C2F(getrmat) (char *fname, int *topk, int *lw, int *m, int *n, int *lr, unsi
     int lc, it;
 
     if (C2F(getmat) (fname, topk, lw, &it, m, n, lr, &lc, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     if (it != 0)
     {
@@ -140,7 +144,9 @@ int C2F(getcmat) (char *fname, int *topk, int *lw, int *m, int *n, int *lr, unsi
     int lc, it;
 
     if (C2F(getmat) (fname, topk, lw, &it, m, n, lr, &lc, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     if (it != 1)
     {
@@ -161,7 +167,9 @@ int C2F(matsize) (char *fname, int *topk, int *lw, int *m, int *n, unsigned long
     int m1, n1, lc, it, lr;
 
     if (C2F(getmat) (fname, topk, lw, &it, &m1, &n1, &lr, &lc, fname_len) == FALSE)
+    {
         return FALSE;
+    }
     if (*m != m1 || *n != n1)
     {
         Scierror(205, _("%s: Wrong size for argument #%d: (%d,%d) expected.\n"), get_fname(fname, fname_len), Rhs + (*lw - *topk), *m, *n);
@@ -181,7 +189,9 @@ static int C2F(getmati) (char *fname, int *topk, int *spos, int *lw, int *it, in
 
     il = iadr(*lw);
     if (*istk(il) < 0)
+    {
         il = iadr(*istk(il + 1));
+    }
     if (*istk(il) != 1)
     {
         if (*inlistx)
@@ -201,7 +211,9 @@ static int C2F(getmati) (char *fname, int *topk, int *spos, int *lw, int *it, in
     *it = *istk(il + 3);
     *lr = sadr(il + 4);
     if (*it == 1)
+    {
         *lc = *lr + *m * *n;
+    }
     return TRUE;
 }
 
@@ -220,14 +232,18 @@ int C2F(listcremat) (char *fname, int *lw, int *numi, int *stlw, int *it, int *m
     int ix1, il;
 
     if (C2F(cremati) (fname, stlw, it, m, n, lrs, lcs, &c_true, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     *stlw = *lrs + *m * *n * (*it + 1);
     il = iadr(*Lstk(*lw));
     ix1 = il + *istk(il + 1) + 3;
     *istk(il + 2 + *numi) = *stlw - sadr(ix1) + 1;
     if (*numi == *istk(il + 1))
+    {
         *Lstk(*lw + 1) = *stlw;
+    }
     return TRUE;
 }
 
@@ -257,7 +273,9 @@ int C2F(cremat) (char *fname, int *lw, int *it, int *m, int *n, int *lr, int *lc
         return FALSE;
     }
     if (C2F(cremati) (fname, Lstk(*lw), it, m, n, lr, lc, &c_true, fname_len) == FALSE)
+    {
         return FALSE;
+    }
     *Lstk(*lw + 1) = *lr + *m * *n * (*it + 1);
     return TRUE;
 }
@@ -270,9 +288,13 @@ int C2F(cremat) (char *fname, int *lw, int *it, int *m, int *n, int *lr, int *lc
 int C2F(fakecremat) (int *lw, int *it, int *m, int *n, int *lr, int *lc)
 {
     if (*lw + 1 >= Bot)
+    {
         return FALSE;
+    }
     if (C2F(cremati) ("cremat", Lstk(*lw), it, m, n, lr, lc, &c_false, 6L) == FALSE)
+    {
         return FALSE;
+    }
     *Lstk(*lw + 1) = *lr + *m * *n * (*it + 1);
     return TRUE;
 }
@@ -284,7 +306,7 @@ static int C2F(cremati) (char *fname, int *stlw, int *it, int *m, int *n, int *l
 {
     int ix1;
     int il;
-    double size = ((double)*m) * ((double)*n) * ((double)(*it + 1));
+    double size = ((double) * m) * ((double) * n) * ((double)(*it + 1));
 
     il = iadr(*stlw);
     ix1 = il + 4;
@@ -440,7 +462,9 @@ int C2F(getlistimat) (char *fname, int *topk, int *spos, int *lnum, int *it, int
     int nv, ili;
 
     if (C2F(getilist) (fname, topk, spos, &nv, lnum, &ili, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     if (*lnum > nv)
     {
@@ -479,7 +503,9 @@ static int C2F(getimati) (char *fname, int *topk, int *spos, int *lw, int *it, i
 
     il = iadr(*lw);
     if (*istk(il) < 0)
+    {
         il = iadr(*istk(il + 1));
+    }
     if (*istk(il) != 8)
     {
         if (*inlistx)
@@ -512,13 +538,17 @@ int C2F(listcreimat) (char *fname, int *lw, int *numi, int *stlw, int *it, int *
     int ix1, il;
 
     if (C2F(creimati) (fname, stlw, it, m, n, lrs, &c_true, fname_len) == FALSE)
+    {
         return FALSE;
+    }
     *stlw = sadr(*lrs + memused(*it, *m * *n));
     il = iadr(*Lstk(*lw));
     ix1 = il + *istk(il + 1) + 3;
     *istk(il + 2 + *numi) = *stlw - sadr(ix1) + 1;
     if (*numi == *istk(il + 1))
+    {
         *Lstk(*lw + 1) = *stlw;
+    }
     return TRUE;
 }
 
@@ -547,7 +577,9 @@ int C2F(creimat) (char *fname, int *lw, int *it, int *m, int *n, int *lr, unsign
         return FALSE;
     }
     if (C2F(creimati) (fname, Lstk(*lw), it, m, n, lr, &c_true, fname_len) == FALSE)
+    {
         return FALSE;
+    }
     *Lstk(*lw + 1) = sadr(*lr + memused(*it, *m * *n));
     return TRUE;
 }
@@ -560,7 +592,7 @@ int C2F(creimati) (char *fname, int *stlw, int *it, int *m, int *n, int *lr, int
 {
     int ix1;
     int il;
-    double size = memused(*it, ((double)*m) * ((double)*n));
+    double size = memused(*it, ((double) * m) * ((double) * n));
 
     il = iadr(*stlw);
     ix1 = il + 4;
@@ -600,7 +632,9 @@ int C2F(getlistbmat) (char *fname, int *topk, int *spos, int *lnum, int *m, int
     int ili;
 
     if (C2F(getilist) (fname, topk, spos, &nv, lnum, &ili, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     if (*lnum > nv)
     {
@@ -638,7 +672,9 @@ int C2F(matbsize) (char *fname, int *topk, int *lw, int *m, int *n, unsigned lon
     int m1, n1, lr;
 
     if (C2F(getbmat) (fname, topk, lw, &m1, &n1, &lr, fname_len) == FALSE)
+    {
         return FALSE;
+    }
     if (*m != m1 || *n != n1)
     {
         Scierror(205, _("%s: Wrong size for argument #%d: (%d,%d) expected.\n"), get_fname(fname, fname_len), Rhs + (*lw - *topk), *m, *n);
@@ -657,7 +693,9 @@ static int C2F(getbmati) (char *fname, int *topk, int *spos, int *lw, int *m, in
 
     il = iadr(*lw);
     if (*istk(il) < 0)
+    {
         il = iadr(*istk(il + 1));
+    }
 
     if (*istk(il) != 4)
     {
@@ -665,7 +703,9 @@ static int C2F(getbmati) (char *fname, int *topk, int *spos, int *lw, int *m, in
             Scierror(999, _("%s: Wrong type for argument #%d (List element: %d): Boolean matrix expected.\n"), get_fname(fname, fname_len),
                      Rhs + (*spos - *topk), *nel);
         else
+        {
             Scierror(208, _("%s: Wrong type for argument #%d: Boolean matrix expected.\n"), get_fname(fname, fname_len), Rhs + (*spos - *topk));
+        }
         return FALSE;
     };
     *m = *istk(il + 1);
@@ -690,7 +730,9 @@ int C2F(listcrebmat) (char *fname, int *lw, int *numi, int *stlw, int *m, int *n
     int il;
 
     if (C2F(crebmati) (fname, stlw, m, n, lrs, &c_true, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     ix1 = *lrs + *m * *n + 2;
     *stlw = sadr(ix1);
@@ -698,7 +740,9 @@ int C2F(listcrebmat) (char *fname, int *lw, int *numi, int *stlw, int *m, int *n
     ix1 = il + *istk(il + 1) + 3;
     *istk(il + 2 + *numi) = *stlw - sadr(ix1) + 1;
     if (*numi == *istk(il + 1))
+    {
         *Lstk(*lw + 1) = *stlw;
+    }
     return TRUE;
 }
 
@@ -728,7 +772,9 @@ int C2F(crebmat) (char *fname, int *lw, int *m, int *n, int *lr, unsigned long f
     }
 
     if (C2F(crebmati) (fname, Lstk(*lw), m, n, lr, &c_true, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     ix1 = *lr + *m * *n + 3;
     *Lstk(*lw + 1) = sadr(ix1);
@@ -748,7 +794,9 @@ int C2F(fakecrebmat) (int *lw, int *m, int *n, int *lr)
         return FALSE;
     }
     if (C2F(crebmati) ("crebmat", Lstk(*lw), m, n, lr, &c_false, 7L) == FALSE)
+    {
         return FALSE;
+    }
     *Lstk(*lw + 1) = sadr(*lr + *m * *n + 3);
     return TRUE;
 }
@@ -759,7 +807,7 @@ int C2F(fakecrebmat) (int *lw, int *m, int *n, int *lr)
 
 static int C2F(crebmati) (char *fname, int *stlw, int *m, int *n, int *lr, int *flagx, unsigned long fname_len)
 {
-    double size = ((double)*m) * ((double)*n);
+    double size = ((double) * m) * ((double) * n);
     int il;
 
     il = iadr(*stlw);
@@ -806,7 +854,9 @@ int C2F(getlistsparse) (char *fname, int *topk, int *spos, int *lnum, int *it, i
     int ili;
 
     if (C2F(getilist) (fname, topk, spos, &nv, lnum, &ili, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     if (*lnum > nv)
     {
@@ -843,7 +893,9 @@ int C2F(getrsparse) (char *fname, int *topk, int *lw, int *m, int *n, int *nel,
     int lc, it;
 
     if (C2F(getsparse) (fname, topk, lw, &it, m, n, nel, mnel, icol, lr, &lc, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     if (it != 0)
     {
@@ -864,7 +916,9 @@ static int C2F(getsparsei) (char *fname, int *topk, int *spos, int *lw, int *it,
 
     il = iadr(*lw);
     if (*istk(il) < 0)
+    {
         il = iadr(*istk(il + 1));
+    }
 
     if (*istk(il) != sci_sparse)
     {
@@ -872,7 +926,9 @@ static int C2F(getsparsei) (char *fname, int *topk, int *spos, int *lw, int *it,
             Scierror(999, _("%s: Wrong type for argument #%d (List element: %d): Sparse matrix expected.\n"), get_fname(fname, fname_len),
                      Rhs + (*spos - *topk), *nellist);
         else
+        {
             Scierror(999, _("%s: Wrong type for argument #%d: Sparse matrix expected.\n"), get_fname(fname, fname_len), Rhs + (*spos - *topk));
+        }
         return FALSE;
     }
     *m = *istk(il + 1);
@@ -883,7 +939,9 @@ static int C2F(getsparsei) (char *fname, int *topk, int *spos, int *lw, int *it,
     *icol = il + 5 + *m;
     *lr = sadr(il + 5 + *m + *nel);
     if (*it == 1)
+    {
         *lc = *lr + *nel;
+    }
     return TRUE;
 }
 
@@ -903,7 +961,9 @@ int C2F(listcresparse) (char *fname, int *lw, int *numi, int *stlw, int *it, int
     int ix1, il;
 
     if (C2F(cresparsei) (fname, stlw, it, m, n, nel, mnel, icol, lrs, lcs, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     *stlw = *lrs + *nel * (*it + 1);
     il = iadr(*Lstk(*lw));
@@ -941,7 +1001,9 @@ int C2F(cresparse) (char *fname, int *lw, int *it, int *m, int *n, int *nel, int
     }
 
     if (C2F(cresparsei) (fname, Lstk(*lw), it, m, n, nel, mnel, icol, lr, lc, fname_len) == FALSE)
+    {
         return FALSE;
+    }
     *Lstk(*lw + 1) = *lr + *nel * (*it + 1);
     return TRUE;
 }
@@ -999,7 +1061,9 @@ static int C2F(cresparsei) (char *fname, int *stlw, int *it, int *m, int *n, int
 int C2F(getlistvect) (char *fname, int *topk, int *spos, int *lnum, int *it, int *m, int *n, int *lr, int *lc, unsigned long fname_len)
 {
     if (C2F(getlistmat) (fname, topk, spos, lnum, it, m, n, lr, lc, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     if (*m != 1 && *n != 1)
     {
@@ -1025,7 +1089,9 @@ int C2F(getlistvect) (char *fname, int *topk, int *spos, int *lnum, int *it, int
 int C2F(getvect) (char *fname, int *topk, int *lw, int *it, int *m, int *n, int *lr, int *lc, unsigned long fname_len)
 {
     if (C2F(getmat) (fname, topk, lw, it, m, n, lr, lc, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     if (*m != 1 && *n != 1)
     {
@@ -1042,7 +1108,9 @@ int C2F(getvect) (char *fname, int *topk, int *lw, int *it, int *m, int *n, int
 int C2F(getrvect) (char *fname, int *topk, int *lw, int *m, int *n, int *lr, unsigned long fname_len)
 {
     if (C2F(getrmat) (fname, topk, lw, m, n, lr, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     if (*m != 1 && *n != 1)
     {
@@ -1063,7 +1131,9 @@ int C2F(vectsize) (char *fname, int *topk, int *lw, int *n, unsigned long fname_
     int m1, n1, lc, lr, it1;
 
     if (C2F(getvect) (fname, topk, lw, &it1, &m1, &n1, &lr, &lc, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     if (*n != m1 * n1)
     {
@@ -1088,7 +1158,9 @@ int C2F(getlistscalar) (char *fname, int *topk, int *spos, int *lnum, int *lr, u
     int ili;
 
     if (C2F(getilist) (fname, topk, spos, &nv, lnum, &ili, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     if (*lnum > nv)
     {
@@ -1097,7 +1169,9 @@ int C2F(getlistscalar) (char *fname, int *topk, int *spos, int *lnum, int *lr, u
     }
 
     if (C2F(getmati) (fname, topk, spos, &ili, &it, &m, &n, lr, &lc, &c_true, lnum, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     if (m * n != 1)
     {
@@ -1123,7 +1197,9 @@ int C2F(getscalar) (char *fname, int *topk, int *lw, int *lr, unsigned long fnam
     int m, n;
 
     if (C2F(getrmat) (fname, topk, lw, &m, &n, lr, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     if (m * n != 1)
     {
@@ -1160,7 +1236,9 @@ int C2F(getlistsmat) (char *fname, int *topk, int *spos, int *lnum, int *m, int
     int nv, ili;
 
     if (C2F(getilist) (fname, topk, spos, &nv, lnum, &ili, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     if (*lnum > nv)
     {
@@ -1222,7 +1300,9 @@ int C2F(getlistwsmat) (char *fname, int *topk, int *spos, int *lnum, int *m, int
     int nv, ili;
 
     if (C2F(getilist) (fname, topk, spos, &nv, lnum, &ili, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     if (*lnum > nv)
     {
@@ -1255,7 +1335,9 @@ static int C2F(getwsmati) (char *fname, int *topk, int *spos, int *lw, int *m, i
 
     il = iadr(*lw);
     if (*istk(il) < 0)
+    {
         il = iadr(*istk(il + 1));
+    }
     if (*istk(il) != sci_strings)
     {
         if (*inlistx)
@@ -1286,7 +1368,9 @@ static int C2F(getsmati) (char *fname, int *topk, int *spos, int *lw, int *m, in
     int il = iadr(*lw);
 
     if (*istk(il) < 0)
+    {
         il = iadr(*istk(il + 1));
+    }
     if (*istk(il) != sci_strings)
     {
         if (*inlistx)
@@ -1310,7 +1394,9 @@ int C2F(getsimati) (char *fname, int *topk, int *spos, int *lw, int *m, int *n,
     int k, il = iadr(*lw);
 
     if (*istk(il) < 0)
+    {
         il = iadr(*istk(il + 1));
+    }
     *m = *istk(il + 1);
     *n = *istk(il + 2);
     k = *ix - 1 + (*j - 1) * *m;
@@ -1339,14 +1425,18 @@ int C2F(listcresmat) (char *fname, int *lw, int *numi, int *stlw, int *m, int *n
     int il, sz;
 
     if (C2F(cresmati) (fname, stlw, m, n, nchar, job, ilrs, &sz, fname_len) == FALSE)
+    {
         return FALSE;
+    }
     ix1 = *ilrs + sz;
     *stlw = sadr(ix1);
     il = iadr(*Lstk(*lw));
     ix1 = il + *istk(il + 1) + 3;
     *istk(il + 2 + *numi) = *stlw - sadr(ix1) + 1;
     if (*numi == *istk(il + 1))
+    {
         *Lstk(*lw + 1) = *stlw;
+    }
     return TRUE;
 }
 
@@ -1369,13 +1459,17 @@ int C2F(cresmat) (char *fname, int *lw, int *m, int *n, int *nchar, unsigned lon
         return FALSE;
     }
     if (C2F(cresmati) (fname, Lstk(*lw), m, n, nchar, &job, &lr, &sz, fname_len) == FALSE)
+    {
         return FALSE;
+    }
     ilast = lr - 1;
     ix1 = ilast + *istk(ilast);
     *Lstk(*lw + 1) = sadr(ix1);
     /* empty strings */
     if (*nchar == 0)
+    {
         *Lstk(*lw + 1) += 1;
+    }
     return TRUE;
 }
 
@@ -1398,7 +1492,9 @@ int C2F(cresmat1) (char *fname, int *lw, int *m, int *nchar, unsigned long fname
         return FALSE;
     }
     if (C2F(cresmati) (fname, Lstk(*lw), m, &n, nchar, &job, &lr, &sz, fname_len) == FALSE)
+    {
         return FALSE;
+    }
     ilast = lr - 1;
     ix1 = ilast + *istk(ilast);
     *Lstk(*lw + 1) = sadr(ix1);
@@ -1424,14 +1520,18 @@ int C2F(cresmat2) (char *fname, int *lw, int *nchar, int *lr, unsigned long fnam
         return FALSE;
     }
     if (C2F(cresmati) (fname, Lstk(*lw), &m, &n, nchar, &job, lr, &sz, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     ilast = *lr - 1;
     ix1 = ilast + *istk(ilast);
     *Lstk(*lw + 1) = sadr(ix1);
     /* empty strings */
     if (*nchar == 0)
+    {
         *Lstk(*lw + 1) += 1;
+    }
     *lr = ilast + *istk(ilast - 1);
     return TRUE;
 }
@@ -1456,7 +1556,9 @@ int C2F(cresmat3) (char *fname, int *lw, int *m, int *n, int *nchar, char *buffe
         return FALSE;
     }
     if (C2F(cresmati) (fname, Lstk(*lw), m, n, nchar, &job, &lr, &sz, fname_len) == FALSE)
+    {
         return FALSE;
+    }
     ilast = lr - 1;
     ix1 = ilast + *istk(ilast);
     *Lstk(*lw + 1) = sadr(ix1);
@@ -1485,7 +1587,9 @@ int C2F(cresmat4) (char *fname, int *lw, int *m, int *nchar, int *lr, unsigned l
     nnchar = 0;
     ix1 = *m;
     for (ix = 1; ix <= ix1; ++ix)
+    {
         nnchar += *nchar;
+    }
     il = iadr(*Lstk(*lw));
     ix1 = il + 4 + (nnchar + 1) * *m;
     Err = sadr(ix1) - *Lstk(Bot);
@@ -1530,16 +1634,18 @@ int C2F(cresmati) (char *fname, int *stlw, int *m, int *n, int *nchar, int *job,
     *sz = 0;
     switch (*job)
     {
-    case 1:
-        *sz = mn * nchar[0];
-        break;
-    case 2:
-        for (ix = 0; ix < mn; ++ix)
-            *sz += nchar[ix];
-        break;
-    case 3:
-        *sz = nchar[mn] - 1;
-        break;
+        case 1:
+            *sz = mn * nchar[0];
+            break;
+        case 2:
+            for (ix = 0; ix < mn; ++ix)
+            {
+                *sz += nchar[ix];
+            }
+            break;
+        case 3:
+            *sz = nchar[mn] - 1;
+            break;
     }
     /* check the stack for space */
     ix1 = il + 4 + mn + 1 + *sz;
@@ -1558,23 +1664,23 @@ int C2F(cresmati) (char *fname, int *stlw, int *m, int *n, int *nchar, int *job,
     *istk(ilp) = 1;
     switch (*job)
     {
-    case 1:
-        ix1 = mn + ilp;
-        for (kij = ilp + 1; kij <= ix1; ++kij)
-        {
-            *istk(kij) = *istk(kij - 1) + nchar[0];
-        }
-        break;
-    case 2:
-        ix = 0;
-        ix1 = mn + ilp;
-        for (kij = ilp + 1; kij <= ix1; ++kij)
-        {
-            *istk(kij) = *istk(kij - 2 + 1) + nchar[ix];
-            ++ix;
-        }
-        break;
-    case 3:
+        case 1:
+            ix1 = mn + ilp;
+            for (kij = ilp + 1; kij <= ix1; ++kij)
+            {
+                *istk(kij) = *istk(kij - 1) + nchar[0];
+            }
+            break;
+        case 2:
+            ix = 0;
+            ix1 = mn + ilp;
+            for (kij = ilp + 1; kij <= ix1; ++kij)
+            {
+                *istk(kij) = *istk(kij - 2 + 1) + nchar[ix];
+                ++ix;
+            }
+            break;
+        case 3:
         {
             ix1 = mn + 1;
             C2F(icopy) (&ix1, nchar, &cx1, istk(ilp), &cx1);
@@ -1601,9 +1707,13 @@ int cre_smat_from_str_i(char *fname, int *lw, int *m, int *n, char *Str[], unsig
     nnchar = 0;
     if (Str)
         for (ix = 0; ix < (*m) * (*n); ++ix)
+        {
             nnchar += (int)strlen(Str[ix]);
+        }
     else
+    {
         nnchar = 0;
+    }
 
     il = iadr(*lw);
     ix1 = il + 4 + (nnchar + 1) + (*m * *n + 1);
@@ -1663,7 +1773,9 @@ int cre_smat_from_str(char *fname, int *lw, int *m, int *n, char *Str[], unsigne
     }
 
     if (cre_smat_from_str_i(fname, Lstk(*lw), m, n, Str, fname_len, &rep) == FALSE)
+    {
         return FALSE;
+    }
     *Lstk(*lw + 1) = rep;
     return TRUE;
 }
@@ -1673,13 +1785,17 @@ int cre_listsmat_from_str(char *fname, int *lw, int *numi, int *stlw, int *m, in
     int rep, ix1, il;
 
     if (cre_smat_from_str_i(fname, stlw, m, n, Str, fname_len, &rep) == FALSE)
+    {
         return FALSE;
+    }
     *stlw = rep;
     il = iadr(*Lstk(*lw));
     ix1 = il + *istk(il + 1) + 3;
     *istk(il + 2 + *numi) = *stlw - sadr(ix1) + 1;
     if (*numi == *istk(il + 1))
+    {
         *Lstk(*lw + 1) = *stlw;
+    }
     return TRUE;
 }
 
@@ -1730,7 +1846,9 @@ int cre_sparse_from_ptr_i(char *fname, int *lw, int *m, int *n, SciSparse * S, u
     lc = lr + S->nel;
     C2F(dcopy) (&S->nel, S->R, &cx1l, stk(lr), &cx1l);
     if (S->it == 1)
+    {
         C2F(dcopy) (&S->nel, S->I, &cx1l, stk(lc), &cx1l);
+    }
     *rep = lr + S->nel * (S->it + 1);
     return TRUE;
 }
@@ -1746,7 +1864,9 @@ int cre_sparse_from_ptr(char *fname, int *lw, int *m, int *n, SciSparse * Str, u
     }
 
     if (cre_sparse_from_ptr_i(fname, Lstk(*lw), m, n, Str, fname_len, &rep) == FALSE)
+    {
         return FALSE;
+    }
     *Lstk(*lw + 1) = rep;
     return TRUE;
 }
@@ -1756,13 +1876,17 @@ int cre_listsparse_from_ptr(char *fname, int *lw, int *numi, int *stlw, int *m,
     int rep, ix1, il;
 
     if (cre_sparse_from_ptr_i(fname, stlw, m, n, Str, fname_len, &rep) == FALSE)
+    {
         return FALSE;
+    }
     *stlw = rep;
     il = iadr(*Lstk(*lw));
     ix1 = il + *istk(il + 1) + 3;
     *istk(il + 2 + *numi) = *stlw - sadr(ix1) + 1;
     if (*numi == *istk(il + 1))
+    {
         *Lstk(*lw + 1) = *stlw;
+    }
     return TRUE;
 }
 
@@ -1776,7 +1900,9 @@ int C2F(listcrestring) (char *fname, int *lw, int *numi, int *stlw, int *nch, in
     int ix1, il;
 
     if (C2F(crestringi) (fname, stlw, nch, ilrs, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     ix1 = *ilrs - 1 + *istk(*ilrs - 2 + 1);
     *stlw = sadr(ix1);
@@ -1792,7 +1918,7 @@ int C2F(listcrestring) (char *fname, int *lw, int *numi, int *stlw, int *nch, in
 
 /*------------------------------------------------------------------
 *     verifie que l'on peut stocker une matrice [1,1]
-*     de chaine de caracteres a la position spos du stack
+*     de chaine de caracteres a la position spos de la stack
 *     en renvoyant .true. ou .false.  suivant la reponse.
 *     nchar est le nombre de caracteres que l'on veut stocker
 *     Entree :
@@ -1806,12 +1932,16 @@ int C2F(crestring) (char *fname, int *spos, int *nchar, int *ilrs, unsigned long
     int ix1;
 
     if (C2F(crestringi) (fname, Lstk(*spos), nchar, ilrs, fname_len) == FALSE)
+    {
         return FALSE;
+    }
     ix1 = *ilrs + *nchar;
     *Lstk(*spos + 1) = sadr(ix1);
     /* empty strings */
     if (*nchar == 0)
+    {
         *Lstk(*spos + 1) += 1;
+    }
     return TRUE;
 }
 
@@ -1905,9 +2035,13 @@ int C2F(smatj) (char *fname, int *lw, int *j, unsigned long fname_len)
     ix2 = *lw - 1;
 
     if (!C2F(getsmat) (fname, &ix1, &ix2, &m, &n, &cx1, &cx1, &lr, &nlj, fname_len))
+    {
         return FALSE;
+    }
     if (*j > n)
+    {
         return FALSE;
+    }
 
     il1 = iadr(*Lstk(*lw - 2 + 1));
     il2 = iadr(*Lstk(*lw));
@@ -2017,7 +2151,9 @@ int crelist_G(int *slw, int *ilen, int *lw, int type)
     ix1 = il + *ilen + 3;
     *lw = sadr(ix1);
     if (*ilen == 0)
+    {
         *Lstk(*lw + 1) = *lw;
+    }
     return 0;
 }
 
@@ -2059,9 +2195,13 @@ int C2F(lmatj) (char *fname, int *lw, int *j, unsigned long fname_len)
     ix1 = *lw - 1;
     ix2 = *lw - 1;
     if (!C2F(getilist) (fname, &ix1, &ix2, &n, j, &ilj, fname_len))
+    {
         return FALSE;
+    }
     if (*j > n)
+    {
         return FALSE;
+    }
     /*     a ameliorer */
     il = iadr(*Lstk(*lw - 2 + 1));
     ix1 = il + 3 + n;
@@ -2069,14 +2209,16 @@ int C2F(lmatj) (char *fname, int *lw, int *j, unsigned long fname_len)
     n = *istk(il + 2 + *j) - *istk(il + 2 + (*j - 1));
     Err = *Lstk(*lw) + n - *Lstk(Bot);
     if (Err > 0)
+    {
         return FALSE;
+    }
     C2F(scidcopy) (&n, stk(slj), &cx1, stk(*Lstk(*lw)), &cx1);
     *Lstk(*lw + 1) = *Lstk(*lw) + n;
     return TRUE;
 }
 
 /*------------------------------------------------
-*     renvoit .true. si l'argument en lw est une liste
+*     renvoie .true. si l'argument en lw est une liste
 *     Entree :
 *      fname : nom de la routine appellante pour le message
 *          d'erreur
@@ -2124,8 +2266,8 @@ int C2F(getilist) (char *fname, int *topk, int *lw, int *n, int *ix, int *ili, u
 **********************************************************************/
 
 /*------------------------------------------------
-*     renvoit .true. si l'argument en lw est une matrice de polynome
-*             sinon appelle error et renvoit .false.
+*     renvoie .true. si l'argument en lw est une matrice de polynome
+*             sinon appelle error et renvoie .false.
 *     Entree :
 *       fname : nom de la routine appellante pour le message
 *       d'erreur
@@ -2190,7 +2332,9 @@ int C2F(getonepoly) (char *fname, int *topk, int *lw, int *it, int *md, char *na
     int ilp;
 
     if (C2F(getpoly) (fname, topk, lw, it, &m, &n, namex, namel, &ilp, lr, lc, fname_len, 4L) == FALSE)
+    {
         return FALSE;
+    }
 
     if (m * n != 1)
     {
@@ -2232,7 +2376,9 @@ int C2F(pmatj) (char *fname, int *lw, int *j, unsigned long fname_len)
         return FALSE;
     }
     if (*j > n)
+    {
         return FALSE;
+    }
 
     /*     a ameliorer */
     il = iadr(*Lstk(*lw - 2 + 1));
@@ -2320,7 +2466,7 @@ int C2F(crewmat) (char *fname, int *lw, int *m, int *lr, unsigned long fname_len
 
 int C2F(crewimat) (char *fname, int *lw, int *m, int *n, int *lr, unsigned long fname_len)
 {
-    double size = ((double)*m) * ((double)*n);
+    double size = ((double) * m) * ((double) * n);
     int ix1, il;
 
     if (*lw + 1 >= Bot)
@@ -2389,7 +2535,9 @@ int C2F(crestringv) (char *fname, int *spos, int *ilorig, int *lw, unsigned long
     int ierr;
 
     if (C2F(crepointer) (fname, spos, lw, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     C2F(stringc) (istk(*ilorig), (char ***)stk(*lw), &ierr);
 
@@ -2410,13 +2558,17 @@ int C2F(listcrepointer) (char *fname, int *lw, int *numi, int *stlw, int *lrs, u
     int ix1, il;
 
     if (C2F(crepointeri) (fname, stlw, lrs, &c_true, fname_len) == FALSE)
+    {
         return FALSE;
+    }
     *stlw = *lrs + 2;
     il = iadr(*Lstk(*lw));
     ix1 = il + *istk(il + 1) + 3;
     *istk(il + 2 + *numi) = *stlw - sadr(ix1) + 1;
     if (*numi == *istk(il + 1))
+    {
         *Lstk(*lw + 1) = *stlw;
+    }
     return TRUE;
 }
 
@@ -2433,7 +2585,9 @@ int C2F(crepointer) (char *fname, int *lw, int *lr, unsigned long fname_len)
         return FALSE;
     }
     if (C2F(crepointeri) (fname, Lstk(*lw), lr, &c_true, fname_len) == FALSE)
+    {
         return FALSE;
+    }
     *Lstk(*lw + 1) = *lr + 2;
     return TRUE;
 }
@@ -2536,7 +2690,9 @@ int C2F(getlistvectrow) (char *fname, int *topk, int *spos, int *lnum, int *it,
     int ili;
 
     if (C2F(getilist) (fname, topk, spos, &nv, lnum, &ili, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     if (*lnum > nv)
     {
@@ -2545,7 +2701,9 @@ int C2F(getlistvectrow) (char *fname, int *topk, int *spos, int *lnum, int *it,
     }
 
     if (C2F(getmati) (fname, topk, spos, &ili, it, m, n, lr, lc, &c_true, lnum, fname_len) == FALSE)
+    {
         return FALSE;
+    }
     if (*m != 1)
     {
         Scierror(999, _("%s: Wrong type for argument #%d (List element: %d): Row vector expected.\n"), get_fname(fname, fname_len),
@@ -2558,8 +2716,8 @@ int C2F(getlistvectrow) (char *fname, int *topk, int *spos, int *lnum, int *it,
 /*------------------------------------------------------------------
 *     Fonction normalement identique a getmat mais rajoutee
 *     pour ne pas avoir a changer le stack.f de interf
-*     renvoit .true. si l'argument en spos est une matrice
-*             sinon appelle error et renvoit .false.
+*     renvoie .true. si l'argument en spos est une matrice
+*             sinon appelle error et renvoie .false.
 *     Entree :
 *       fname : nom de la routine appellante pour le message
 *       d'erreur
@@ -2576,7 +2734,9 @@ int C2F(getlistvectrow) (char *fname, int *topk, int *spos, int *lnum, int *it,
 int C2F(getvectrow) (char *fname, int *topk, int *spos, int *it, int *m, int *n, int *lr, int *lc, unsigned long fname_len)
 {
     if (C2F(getmati) (fname, topk, spos, Lstk(*spos), it, m, n, lr, lc, &c_false, &cx0, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     if (*m != 1)
     {
@@ -2596,7 +2756,9 @@ int C2F(getlistvectcol) (char *fname, int *topk, int *spos, int *lnum, int *it,
     int ili;
 
     if (C2F(getilist) (fname, topk, spos, &nv, lnum, &ili, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     if (*lnum > nv)
     {
@@ -2604,7 +2766,9 @@ int C2F(getlistvectcol) (char *fname, int *topk, int *spos, int *lnum, int *it,
         return FALSE;
     }
     if (C2F(getmati) (fname, topk, spos, &ili, it, m, n, lr, lc, &c_true, lnum, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     if (*n != 1)
     {
@@ -2617,8 +2781,8 @@ int C2F(getlistvectcol) (char *fname, int *topk, int *spos, int *lnum, int *it,
 /*------------------------------------------------------------------
 *     Fonction normalement identique a getmat mais rajoutee
 *     pour ne pas avoir a changer le stack.f de interf
-*     renvoit .true. si l'argument en spos est une matrice
-*             sinon appelle error et renvoit .false.
+*     renvoie .true. si l'argument en spos est une matrice
+*             sinon appelle error et renvoie .false.
 *     Entree :
 *       fname : nom de la routine appellante pour le message
 *       d'erreur
@@ -2636,7 +2800,9 @@ int C2F(getvectcol) (char *fname, int *topk, int *spos, int *it, int *m, int *n,
 {
 
     if (C2F(getmati) (fname, topk, spos, Lstk(*spos), it, m, n, lr, lc, &c_false, &cx0, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     if (*n != 1)
     {
@@ -2652,7 +2818,9 @@ int C2F(getlistsimat) (char *fname, int *topk, int *spos, int *lnum, int *m, int
     int ili;
 
     if (C2F(getilist) (fname, topk, spos, &nv, lnum, &ili, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     if (*lnum > nv)
     {
@@ -2689,7 +2857,9 @@ int C2F(getlistpointer) (char *fname, int *topk, int *spos, int *lnum, int *lw,
     int nv, ili;
 
     if (C2F(getilist) (fname, topk, spos, &nv, lnum, &ili, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     if (*lnum > nv)
     {
@@ -2709,15 +2879,20 @@ static int C2F(getpointeri) (char *fname, int *topk, int *spos, int *lw, int *lr
 
     il = iadr(*lw);
     if (*istk(il) < 0)
+    {
         il = iadr(*istk(il + 1));
+    }
     if (*istk(il) != sci_pointer)
-    {                           /* used to be sci_lufact_pointer before Scilab 5.2 */
+    {
+        /* used to be sci_lufact_pointer before Scilab 5.2 */
         sciprint("----%d\n", *istk(il));
         if (*inlistx)
             Scierror(197, _("%s: Wrong type for argument #%d (List element: %d): Boxed pointer expected.\n"), get_fname(fname, fname_len),
                      Rhs + (*spos - *topk), *nel);
         else
+        {
             Scierror(198, _("%s: Wrong type for argument #%d: Boxed pointer expected.\n"), get_fname(fname, fname_len), Rhs + (*spos - *topk));
+        }
         return FALSE;
     }
     *lr = sadr(il + 4);
@@ -2745,7 +2920,9 @@ int C2F(mspcreate) (int *lw, int *m, int *n, int *nzMax, int *it)
     il = iadr(*Lstk(*lw));
     NZMAX = *nzMax;
     if (NZMAX == 0)
+    {
         NZMAX = 1;
+    }
     ix1 = il + 4 + (*n + 1) + NZMAX;
     size = (*it + 1) * NZMAX;
     Err = sadr(ix1) - *Lstk(Bot);
@@ -2765,14 +2942,20 @@ int C2F(mspcreate) (int *lw, int *m, int *n, int *nzMax, int *it)
     jc = il + 5;
 
     for (k = 0; k < *n + 1; ++k)
-        *istk(jc + k) = 0;      /* Jc =0 */
+    {
+        *istk(jc + k) = 0;    /* Jc =0 */
+    }
     ir = jc + *n + 1;
     for (k = 0; k < NZMAX; ++k)
-        *istk(ir + k) = 0;      /* Ir = 0 */
+    {
+        *istk(ir + k) = 0;    /* Ir = 0 */
+    }
     pr = sadr(ir + NZMAX);
 
     for (k = 0; k < NZMAX; ++k)
-        *stk(pr + k) = 0;       /* Pr =0  */
+    {
+        *stk(pr + k) = 0;    /* Pr =0  */
+    }
     ix1 = il + 4 + (*n + 1) + NZMAX;
     *Lstk(*lw + 1) = sadr(ix1) + (*it + 1) * NZMAX + 1;
 
@@ -2823,7 +3006,9 @@ int C2F(realmat) (void)
 
     il = iadr(*Lstk(Top));
     if (*istk(il + 3) == 0)
+    {
         return 0;
+    }
     m = *istk(il + 1);
     n = *istk(il + 2);
     *istk(il + 3) = 0;
@@ -2850,9 +3035,13 @@ int C2F(copyobj) (char *fname, int *lw, int *lwd, unsigned long fname_len)
     ix1 = *Lstk(*lw + 1) - l;
     /* check for overlaping region */
     if (l + ix1 > ld || ld + ix1 > l)
+    {
         C2F(unsfdcopy) (&ix1, stk(l), &cx1, stk(ld), &cx1);
+    }
     else
+    {
         C2F(scidcopy) (&ix1, stk(l), &cx1, stk(ld), &cx1);
+    }
     *Lstk(*lwd + 1) = ld + ix1;
     return 0;
 }
@@ -2885,9 +3074,13 @@ int C2F(vcopyobj) (char *fname, int *lw, int *lwd, unsigned long fname_len)
     }
     /* check for overlaping region */
     if (l + lv > l1 || l1 + lv > l)
+    {
         C2F(unsfdcopy) (&lv, stk(l), &cx1, stk(l1), &cx1);
+    }
     else
+    {
         C2F(scidcopy) (&lv, stk(l), &cx1, stk(l1), &cx1);
+    }
 
     *Lstk(*lwd + 1) = *Lstk(*lwd) + lv;
     return TRUE;
@@ -2911,7 +3104,9 @@ int C2F(swapmat) (char *fname, int *topk, int *lw, int *it1, int *m1, int *n1, i
     ix1 = *lw + 1;
 
     if (C2F(cremat) (fname, &ix1, it1, m1, n1, &lr, &lc, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     ix1 = *lw + 2;
     C2F(copyobj) (fname, lw, &ix1, fname_len);
@@ -2921,12 +3116,16 @@ int C2F(swapmat) (char *fname, int *topk, int *lw, int *it1, int *m1, int *n1, i
     ix2 = *lw + 1;
     C2F(copyobj) (fname, &ix1, &ix2, fname_len);
     if (C2F(getmat) (fname, topk, lw, it1, m1, n1, &lr, &lc, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     ix1 = *lw + 1;
 
     if (C2F(getmat) (fname, topk, &ix1, it2, m2, n2, &lr, &lc, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     *mn1 = *m1 * *n1;
     *mn2 = *m2 * *n2;
@@ -2965,15 +3164,21 @@ int C2F(insmat) (int *topk, int *lw, int *it, int *m, int *n, int *lr, int *lc,
     int lc0, it1, lr0;
 
     if (C2F(getmat) ("insmat", topk, lw, &it1, &m1, &n1, &lr0, &lc0, 6L) == FALSE)
+    {
         return FALSE;
+    }
 
     if (C2F(cremat) ("insmat", lw, it, m, n, lr, lc, 6L) == FALSE)
+    {
         return FALSE;
+    }
 
     ix1 = *lw + 1;
 
     if (C2F(cremat) ("insmat", &ix1, &it1, &m1, &n1, lr1, lc1, 6L) == FALSE)
+    {
         return FALSE;
+    }
 
     ix1 = m1 * n1 * (it1 + 1);
     C2F(dcopy) (&ix1, stk(lr0), &c_n1, stk(*lr1), &c_n1);
@@ -3044,7 +3249,9 @@ int C2F(allmat) (char *fname, int *topk, int *lw, int *m, int *n, unsigned long
 
     il = iadr(*Lstk(*lw));
     if (*istk(il) < 0)
+    {
         il = iadr(*istk(il + 1));
+    }
     itype = *istk(il);
     if (itype != sci_matrix && itype != sci_poly && itype != sci_strings)
     {
@@ -3067,7 +3274,9 @@ int C2F(allmatset) (char *fname, int *lw, int *m, int *n, unsigned long fname_le
 
     il = iadr(*Lstk(*lw));
     if (*istk(il) < 0)
+    {
         il = iadr(*istk(il + 1));
+    }
     *istk(il + 1) = *m;
     *istk(il + 2) = *n;
     return 0;
@@ -3093,15 +3302,15 @@ int C2F(objvide) (char *fname, int *lw, unsigned long fname_len)
 }
 
 /*------------------------------------------------
-*     renvoit .true. si l'argument en lw est un ``external''
-*             sinon appelle error et renvoit .false.
+*     renvoie .true. si l'argument en lw est un ``external''
+*             sinon appelle error et renvoie .false.
 *     si l'argument est un external de type string
 *         on met a jour la table des fonctions externes
 *         corespondante en appellant fun
 *     Entree :
 *       fname : nom de la routine appellante pour le message
 *       d'erreur
-*       topk : numero d'argument d'appel pour le message d'ereur
+*       topk : numero d'argument d'appel pour le message d'erreur
 *       lw    : position ds la pile
 *     Sortie
 *       type vaut true ou false
@@ -3123,34 +3332,36 @@ int C2F(getexternal) (char *fname, int *topk, int *lw, char *namex, int *typex,
     il = C2F(gettype) (lw);
     switch (il)
     {
-    case sci_u_function:
-    case sci_c_function:
-    case sci_list:
-        ret_value = TRUE;
-        *typex = FALSE;
-        break;
-    case sci_strings:
-        ret_value = C2F(getsmat) (fname, topk, lw, &m, &n, &cx1, &cx1, &lr, &nlr, fname_len);
-        *typex = TRUE;
-        for (i = 0; i < (int)name_len; i++)
-            namex[i] = ' ';
-        if (ret_value == TRUE)
-        {
-            C2F(cvstr) (&nlr, istk(lr), namex, &cx1, name_len);
-            namex[nlr] = '\0';
-            (*setfun) (namex, &irep);   /* , name_len); */
-            if (irep == 1)
+        case sci_u_function:
+        case sci_c_function:
+        case sci_list:
+            ret_value = TRUE;
+            *typex = FALSE;
+            break;
+        case sci_strings:
+            ret_value = C2F(getsmat) (fname, topk, lw, &m, &n, &cx1, &cx1, &lr, &nlr, fname_len);
+            *typex = TRUE;
+            for (i = 0; i < (int)name_len; i++)
             {
-                Scierror(50, _("%s: entry point %s not found in predefined tables or link table.\n"), get_fname(fname, fname_len), namex);
-                ret_value = FALSE;
+                namex[i] = ' ';
             }
-        }
-        break;
-    default:
-        Scierror(211, _("%s: Wrong type for argument #%d: Function or string (external function) expected.\n"), get_fname(fname, fname_len),
-                 Rhs + (*lw - *topk));
-        ret_value = FALSE;
-        break;
+            if (ret_value == TRUE)
+            {
+                C2F(cvstr) (&nlr, istk(lr), namex, &cx1, name_len);
+                namex[nlr] = '\0';
+                (*setfun) (namex, &irep);   /* , name_len); */
+                if (irep == 1)
+                {
+                    Scierror(50, _("%s: entry point %s not found in predefined tables or link table.\n"), get_fname(fname, fname_len), namex);
+                    ret_value = FALSE;
+                }
+            }
+            break;
+        default:
+            Scierror(211, _("%s: Wrong type for argument #%d: Function or string (external function) expected.\n"), get_fname(fname, fname_len),
+                     Rhs + (*lw - *topk));
+            ret_value = FALSE;
+            break;
     }
     return ret_value;
 }
@@ -3169,10 +3380,10 @@ int C2F(checkval) (char *fname, int *ival1, int *ival2, unsigned long fname_len)
 }
 
 /*-------------------------------------------------------------
-*      recupere si elle existe la variable name dans le stack et
+*      recupere si elle existe la variable name dans la stack et
 *      met sa valeur a la position top et top est incremente
 *      ansi que rhs
-*      si la variable cherchee n'existe pas on renvoit false
+*      si la variable cherchee n'existe pas on renvoie false
 *------------------------------------------------------------- */
 
 int C2F(optvarget) (char *fname, int *topk, int *iel, char *namex, unsigned long fname_len, unsigned long name_len)
@@ -3260,7 +3471,7 @@ static int C2F(crehmati) (char *fname, int *stlw, int *m, int *n, int *lr, int *
 {
     int ix1;
     int il;
-    double size = ((double)*m) * ((double)*n);
+    double size = ((double) * m) * ((double) * n);
 
     il = iadr(*stlw);
     ix1 = il + 4;
@@ -3298,14 +3509,18 @@ int C2F(listcrehmat) (char *fname, int *lw, int *numi, int *stlw, int *m, int *n
     int ix1, il;
 
     if (C2F(crehmati) (fname, stlw, m, n, lrs, &c_true, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     *stlw = *lrs + *m * *n;
     il = iadr(*Lstk(*lw));
     ix1 = il + *istk(il + 1) + 3;
     *istk(il + 2 + *numi) = *stlw - sadr(ix1) + 1;
     if (*numi == *istk(il + 1))
+    {
         *Lstk(*lw + 1) = *stlw;
+    }
     return TRUE;
 }
 
@@ -3332,7 +3547,9 @@ int C2F(crehmat) (char *fname, int *lw, int *m, int *n, int *lr, unsigned long f
         return FALSE;
     }
     if (C2F(crehmati) (fname, Lstk(*lw), m, n, lr, &c_true, fname_len) == FALSE)
+    {
         return FALSE;
+    }
     *Lstk(*lw + 1) = *lr + *m * *n;
     return TRUE;
 }
@@ -3356,7 +3573,9 @@ int C2F(getlisthmat) (char *fname, int *topk, int *spos, int *lnum, int *m, int
     int nv, ili;
 
     if (C2F(getilist) (fname, topk, spos, &nv, lnum, &ili, fname_len) == FALSE)
+    {
         return FALSE;
+    }
 
     if (*lnum > nv)
     {
@@ -3393,14 +3612,18 @@ static int C2F(gethmati) (char *fname, int *topk, int *spos, int *lw, int *m, in
 
     il = iadr(*lw);
     if (*istk(il) < 0)
+    {
         il = iadr(*istk(il + 1));
+    }
     if (*istk(il) != sci_handles)
     {
         if (*inlistx)
             Scierror(999, _("%s: Wrong type for argument #%d (List element: %d): Matrix of handle expected.\n"), get_fname(fname, fname_len),
                      Rhs + (*spos - *topk), *nel);
         else
+        {
             Scierror(200, _("%s: Wrong type for argument #%d: Matrix of handle expected.\n"), get_fname(fname, fname_len), Rhs + (*spos - *topk));
+        }
         return FALSE;
     }
     *m = *istk(il + 1);
index 4633a38..054051e 100644 (file)
@@ -33,13 +33,13 @@ c
       ils=iadr(lstk(tops))
 c
       if(istk(ils).eq.10) then
-c     cas d'un simulateur en fortran
+c     Case of a Fortran simulator
          call fjac(ny,t,y,ml,mu,jac,nrowj)
          return
       endif
 c     external is a Scilab function
 
-c     on return iero=1 is used to notify to the ode solver that
+c     On return iero=1 is used to notify to the ode solver that
 c     scilab was not able to evaluate the external
       iero=1
 
@@ -53,21 +53,20 @@ c+
 c     
       
 c     
-c     recuperation de l'adresse du simulateur
+c     Retrieving the simulator's address
       fin=lstk(tops)
 c     
       if(istk(ils).eq.15) then
-c     cas ou le simulateur est decrit par une liste
+c     Case when the simulator is described by a list
       nelt=istk(ils+1)
       l=sadr(ils+3+nelt)
       ils=ils+2
 c     
-c     recuperation de l'adresse du simulateur
+c     Retrieving the simulator's address
       fin=l
 c     
-c     gestion des parametres supplementaires du simulateur
-c     proviennent du contexte  (elements de la liste
-c     decrivant le simulateur
+c     Managing the additional simulator parameters coming from
+c     the context (elements of the list describing the simulator)
 c     
       nelt=nelt-1
       if(nelt.eq.0) goto 40
@@ -91,7 +90,7 @@ c
       endif
  40   continue
 c     
-c     execution de la macro definissant le simulateur
+c     Running the macro defining the simulator
 c     
       pt=pt+1
       if(pt.gt.psiz) then
@@ -115,7 +114,7 @@ c
       pt=pt-1
       niv=niv-1
 c+    
-c     transfert des variables  de sortie vers fortran
+c     Transferring the output to Fortran
       if(ml.gt.0.or.mu.gt.0) then
          mm=ml+mu+1
          call btofm(jac,nrowj,mm,ny)
index d4a15c8..2fd2b1a 100644 (file)
@@ -11,7 +11,8 @@ c
       subroutine bjacd(t,y,ydot,res,cj,rpar,ipar)
 c
 c ======================================================================
-c     gestion external "soft" relatif a dassl calcul du jacobien
+c     external "soft" management dealing with
+c     ddassl jacobian computation
 c ======================================================================
 c
       INCLUDE 'stack.h'
@@ -34,10 +35,10 @@ c
          call basout(io,wte,' bjacd  top:'//tmpbuf(1:4))
       endif
 c     
-c     nordre est le numero d'ordre de cet external dans la structure
-c     de donnee,
-c     mlhs (mrhs) est le nombre de parametres de sortie (entree)
-c     du simulateur 
+c     nordre is the order number of that external in the
+c     data structure,
+c     mlhs (mrhs) is the number of output (input) parameters
+c     of the simulator
 c     
       iero=0
       mrhs=4
@@ -49,13 +50,13 @@ c
       ils=iadr(lstk(tops))
 c
       if(istk(ils).eq.10) then
-c     cas d'un simulateur en fortran
+c     Case of a Fortran simulator
          call fjacd(t,y,ydot,res,cj,rpar,ipar)
          return
       endif
 c     external is a Scilab function
 
-c     on return iero=1 is used to notify to the ode solver that
+c     On return iero=1 is used to notify to the ode solver that
 c     scilab was not able to evaluate the external
       iero=1
 
@@ -81,21 +82,20 @@ c+
 c     
       if(istk(ils).eq.15) goto 10
 c     
-c     recuperation de l'adresse du simulateur
+c     Retrieving the simulator's address
       fin=lstk(tops)
 c     
       goto 40
-c     cas ou le simulateur est decrit par une liste
+c     Case when the simulator is described by a list
  10   nelt=istk(ils+1)
       l=sadr(ils+3+nelt)
       ils=ils+2
 c     
-c     recuperation de l'adresse du simulateur
+c     Retrieving the simulator's address
       fin=l
 c     
-c     gestion des parametres supplementaires du simulateur
-c     proviennent du contexte  (elements de la liste
-c     decrivant le simulateur
+c     Managing the additional simulator parameters coming from
+c     the context (elements of the list describing the simulator)
 c     
       nelt=nelt-1
       if(nelt.ne.0) then
@@ -119,7 +119,7 @@ c
       endif
  40   continue
 c     
-c     execution de la macro definissant le simulateur
+c     Running the macro defining the simulator
 c     
       pt=pt+1
       if(pt.gt.psiz) then
@@ -143,7 +143,7 @@ c
       pt=pt-1
       niv=niv-1
 c+    
-c     transfert des variables  de sortie vers fortran
+c     Transferring the output to Fortran
       call btof(res,neq*neq)
       if(err.gt.0.or.err1.gt.0) return
 c     normal return iero set to 0
index a909095..6ae949a 100644 (file)
@@ -11,7 +11,8 @@ c
       subroutine bresd(t,y,ydot,res,ires,rpar,ipar)
 c     
 c ======================================================================
-c     gestion external "soft" relatif a dassl calcul du residu
+c     external "soft" management dealing with
+c     ddassl residual calculation
 c ======================================================================
 c
       INCLUDE 'stack.h'
@@ -34,10 +35,10 @@ c
          write(tmpbuf(1:12),'(3i4)') top,r,sym
          call basout(io,wte,' bresd  top:'//tmpbuf(1:4))
       endif
-c     nordre est le numero d'ordre de cet external dans la structure
-c     de donnee,
-c     mlhs (mrhs) est le nombre de parametres de sortie (entree)
-c     du simulateur 
+c     nordre is the order number of that external in the
+c     data structure,
+c     mlhs (mrhs) is the number of output (input) parameters
+c     of the simulator
 c     
       mrhs=3
       iero=0
@@ -49,21 +50,21 @@ c
       ils=iadr(lstk(tops))
 c
       if(istk(ils).eq.10) then
-c     cas d'un simulateur en fortran
+c     Case of a Fortran simulator
          call fresd(t,y,ydot,res,ires,rpar,ipar)
          return
       endif
 c     external is a Scilab function
 
-c     on return iero=1 is used to notify to the ode solver that
+c     On return iero=1 is used to notify to the ode solver that
 c     scilab was not able to evaluate the external
       iero=1
 
 c     Putting Fortran arguments on Scilab stack 
 c     
-c     transfert des arguments d'entree minimaux du simulateur
-c     la valeur de ces arguments vient du contexte fortran (liste d'appel)
-c     la structure vient du contexte 
+c     Transferring the minimal input arguments of the simulator
+c     their value comes from the Fortran context (call list)
+c     the structure comes from the context
 c+    
       neq=istk(il+1)
       call ftob(t,1,istk(il+2))
@@ -76,21 +77,20 @@ c+
 c     
       if(istk(ils).eq.15) goto 10
 c     
-c     recuperation de l'adresse du simulateur
+c     Retrieving the simulator's address
       fin=lstk(tops)
 c     
       goto 40
-c     cas ou le simulateur est decrit par une liste
+c     Case when the simulator is described by a list
  10   nelt=istk(ils+1)
       l=sadr(ils+3+nelt)
       ils=ils+2
 c     
-c     recuperation de l'adresse du simulateur
+c     Retrieving the simulator's address
       fin=l
 c     
-c     gestion des parametres supplementaires du simulateur
-c     proviennent du contexte  (elements de la liste
-c     decrivant le simulateur
+c     Managing the additional simulator parameters coming from
+c     the context (elements of the list describing the simulator)
 c     
       nelt=nelt-1
       if(nelt.ne.0) then
@@ -114,7 +114,7 @@ c
       endif
  40   continue
 c     
-c     execution de la macro definissant le simulateur
+c     Running the macro defining the simulator
 c     
       pt=pt+1
       if(pt.gt.psiz) then
@@ -138,7 +138,7 @@ c
       pt=pt-1
       niv=niv-1
 c+    
-c     transfert des variables  de sortie vers fortran
+c     Transferring the output to Fortran
       call btof(res,1)
       if(err.gt.0.or.err1.gt.0) return
       ires=res(1)
index 85517de..8333e72 100644 (file)
@@ -35,10 +35,10 @@ c
          call basout(io,wte,' bsurfd  top:'//tmpbuf(1:4))
       endif
 c     
-c     nordre est le numero d'ordre de cet external dans la structure
-c     de donnee,
-c     mlhs (mrhs) est le nombre de parametres de sortie (entree)
-c     du simulateur 
+c     nordre is the order number of that external in the
+c     data structure,
+c     mlhs (mrhs) is the number of output (input) parameters
+c     of the simulator
 c     
       iero=0
       mrhs=2
@@ -50,14 +50,14 @@ c
       ils=iadr(lstk(tops))
 c
       if(istk(ils).eq.10) then
-c     cas d'un simulateur en fortran
+c     Case of a Fortran simulator
          call fsurfd(ny, t, y, ng, gout,RPAR,IPAR)
          return
       endif
 c     
 c     external is a Scilab function
 
-c     on return iero=1 is used to notify to the ode solver that
+c     On return iero=1 is used to notify to the ode solver that
 c     scilab was not able to evaluate the external
       iero=1
 
@@ -71,21 +71,20 @@ c+
 c     
       if(istk(ils).eq.15) goto 10
 c     
-c     recuperation de l'adresse du simulateur
+c     Retrieving the simulator's address
       fin=lstk(tops)
 c     
       goto 40
-c     cas ou le simulateur est decrit par une liste
+c     Case when the simulator is described by a list
  10   nelt=istk(ils+1)
       l=sadr(ils+3+nelt)
       ils=ils+2
 c     
-c     recuperation de l'adresse du simulateur
+c     Retrieving the simulator's address
       fin=l
 c     
-c     gestion des parametres supplementaires du simulateur
-c     proviennent du contexte  (elements de la liste
-c     decrivant le simulateur
+c     Managing the additional simulator parameters coming from
+c     the context (elements of the list describing the simulator)
 c     
       nelt=nelt-1
       if(nelt.eq.0) goto 40
@@ -108,7 +107,7 @@ c
       mrhs=mrhs+nelt
  40   continue
 c     
-c     execution de la macro definissant le simulateur
+c     Running the macro defining the simulator
 c     
       pt=pt+1
       if(pt.gt.psiz) then
@@ -132,7 +131,7 @@ c
       pt=pt-1
       niv=niv-1
 c+    
-c     transfert des variables  de sortie vers fortran
+c     transfert des variables  de sortie vers Fortran
       call btof(gout,ng)
       if(err.gt.0.or.err1.gt.0) return
 c+    
index 5369442..cbf8cc8 100644 (file)
@@ -128,7 +128,7 @@ C             SUBROUTINE RES(T,Y,YPRIME,DELTA,IRES,RPAR,IPAR)
 C         to define the system of differential/algebraic
 C         equations which is to be solved. For the given values
 C         of T,Y and YPRIME, the subroutine should
-C         return the residual of the defferential/algebraic
+C         return the residual of the differential/algebraic
 C         system
 C             DELTA = F(T,Y,YPRIME)
 C         (DELTA(*) is a vector of length NEQ which is
index e17d745..417a063 100644 (file)
@@ -139,12 +139,13 @@ c
 c  subsequent calls to rkf45
 c
 c    subroutine rkf45 returns with all information needed to continue
-c    the integration. if the integration reached tout, the user need onl
-c    define a new tout and call rkf45 again. in the one-step integrator
-c    mode (iflag=-2) the user must keep in mind that each step taken is
-c    in the direction of the current tout. upon reaching tout (indicated
-c    by changing iflag to 2),the user must then define a new tout and
-c    reset iflag to -2 to continue in the one-step integrator mode.
+c    the integration. if the integration reached tout, the user only
+c    needs to define a new tout and call rkf45 again. in the one-step
+c    integrator mode (iflag=-2) the user must keep in mind that each
+c    step taken is in the direction of the current tout. upon reaching
+c    tout (indicated by changing iflag to 2),the user must then define
+c    a new tout and reset iflag to -2 to continue in the one-step
+c    integrator mode.
 c
 c    if the integration was not completed but the user still wants to
 c    continue (iflag=3,4 cases), he just calls rkf45 again. with iflag=3
index d22fa41..0e8a05c 100644 (file)
@@ -23,7 +23,7 @@ deff('pd=djac1(t,y,ydot,cj)','pd=[cj+10,0;1,1]')
 yy0=dae([y0,y0d],t0,t,dres1);
 //   scilab functions, with jacobian
 yy1=dae([y0,y0d],t0,t,dres1,djac1);
-// fortran routine, without jocabian
+// fortran routine, without jacobian
 yy2=dae([y0,y0d],t0,t,'dres1');   //=yy0
 if norm(yy2-yy0,1)>1E-5 then bugmes();quit;end
 // fortran routines, with jacobian
index cea7d11..72a4113 100644 (file)
@@ -26,7 +26,7 @@ deff('pd=djac1(t,y,ydot,cj)','pd=[cj+10,0;1,1]')
 yy0=dae([y0,y0d],t0,t,dres1);
 //   scilab functions, with jacobian
 yy1=dae([y0,y0d],t0,t,dres1,djac1);
-// fortran routine, without jocabian
+// fortran routine, without jacobian
 yy2=dae([y0,y0d],t0,t,'dres1');   //=yy0
 if norm(yy2-yy0,1)>1E-5 then pause,end
 // fortran routines, with jacobian
index e5237d5..434e566 100644 (file)
@@ -15,7 +15,7 @@ deff('pd=djac1(t,y,ydot,cj)','pd=[cj+10,0;1,1]')
 yy0=dassl([y0,y0d],t0,t,dres1,info);
 //   scilab functions, with jacobian
 yy1=dassl([y0,y0d],t0,t,dres1,djac1,info);
-// fortran routine, without jocabian
+// fortran routine, without jacobian
 yy2=dassl([y0,y0d],t0,t,'dres1',info);   //=yy0
 if norm(yy2-yy0,1)>1E-5 then bugmes();quit;end
 // fortran routines, with jacobian
index b04a980..c7c6aca 100644 (file)
@@ -23,7 +23,7 @@ deff('pd=djac1(t,y,ydot,cj)','pd=[cj+10,0;1,1]')
 yy0=dassl([y0,y0d],t0,t,dres1,info);
 //   scilab functions, with jacobian
 yy1=dassl([y0,y0d],t0,t,dres1,djac1,info);
-// fortran routine, without jocabian
+// fortran routine, without jacobian
 yy2=dassl([y0,y0d],t0,t,'dres1',info);   //=yy0
 if norm(yy2-yy0,1)>1E-5 then pause,end
 // fortran routines, with jacobian
index 23acd51..f7f838f 100644 (file)
@@ -26,7 +26,7 @@ c     subroutine wvmul(n,dxr,dxi,incx,dyr,dyi,incy)
 c
 c     dy, dx: vecteurs double precision.
 c
-c     incx, incy: increments entre deux composantes succesives
+c     incx, incy: increments entre deux composantes successives
 c     des vecteurs.
 c
 c!auteur
index f055233..e1b868b 100644 (file)
@@ -177,7 +177,7 @@ function Info = scicos_simulate(scs_m, Info, updated_vars, flag, Ignb)
   %scicos_debug_gr = %f;
 
 
-  //** redefine some  functions
+  //** redefine some functions
   prot = funcprot();funcprot(0);
   do_terminate = do_terminate1
   funcprot(prot)
@@ -232,7 +232,7 @@ function Info = scicos_simulate(scs_m, Info, updated_vars, flag, Ignb)
     if or(u==contextvars) then
       %scicos_context(u)=updated_vars(u)
     else
-      mprintf(_("Warning the variable %s do not match any context variable name\nignored"),u)
+      mprintf(_("Warning the variable %s does not match any context variable name\nignored"),u)
     end
   end
   if ierr == 0 then //++ no error
@@ -287,7 +287,7 @@ function Info = scicos_simulate(scs_m, Info, updated_vars, flag, Ignb)
     end
   end
 
-  if needstart then //scicos initialisation
+  if needstart then //scicos initialization
     if alreadyran then
       [alreadyran, %cpr] = do_terminate1(scs_m, %cpr)
       alreadyran = %f
index a73dfb3..7aea80c 100644 (file)
@@ -202,9 +202,9 @@ function %cpr = xcos_simulate(scs_m, needcompile)
         needstart = %t ;
         tf        = scs_m.props.tf;
 
-        //Alan: ONPEUTPASAPPELLERDOTERMINATEICI?
-        //reponse : non, car do_terminate() ne rend
-        //          pas forc�ment la main � l'utilisateur
+        //Alan: Cannot call do_terminate() here ?
+        //Answer: No, because do_terminate() doesn't
+        //          return control to the user
 
         //** run scicosim via 'finish' flag
         ierr = execstr('[state,t]=scicosim(%cpr.state,%tcur,tf,%cpr.sim,'+..
@@ -243,9 +243,9 @@ function %cpr = xcos_simulate(scs_m, needcompile)
 
   //gh_win = gcf();
 
-  //** scicos initialisation
+  //** scicos initialization
   if needstart then
-    //** if the simulation have already ran
+    //** if the simulation has already run
     //** and is not finished then call do_terminate
     if alreadyran then
       [alreadyran,%cpr] = do_terminate()
@@ -312,8 +312,8 @@ function %cpr = xcos_simulate(scs_m, needcompile)
     //** finish the simulation via do_terminate()
     if tf-t<tolerances(3) then
       //disp('fin');
-      //Alan : j'enl�ve do_terminate ici car do_terminate
-      //       ne rend pas la main
+      //Alan : removing do_terminate() here because it
+      //       doesn't return control
       //[alreadyran,%cpr]=do_terminate()
       needstart  = %t;
       alreadyran = %f;
@@ -354,7 +354,7 @@ function %cpr = xcos_simulate(scs_m, needcompile)
       path = corinv(kfun);
       //** get error cmd for the block
       get_errorcmd(path,gettext("Simulation problem"),str_err);
-    else //** simulateur error
+    else //** simulator error
       message(['Simulation problem:';str_err])
       //scf(curwin);
     end