Set svn:eol-style to native
Pierre Marechal [Wed, 30 Aug 2006 11:26:08 +0000 (11:26 +0000)]
160 files changed:
scilab/modules/cacsd/includes/gw_cacsd1.h
scilab/modules/cacsd/sci_gateway/c/gw_cacsd1.c
scilab/modules/cacsd/sci_gateway/fortran/sci_lyap.f
scilab/modules/cacsd/sci_gateway/fortran/sci_ricc.f
scilab/modules/cacsd/sci_gateway/fortran/sci_sylv.f
scilab/modules/core/etc/core.quit
scilab/modules/core/etc/core.start
scilab/modules/core/help/eng/helpbuildereng.sce
scilab/modules/core/help/fr/helpbuilderfr.sce
scilab/modules/core/help/helpbuilder.sce
scilab/modules/core/includes/msg_errors.h
scilab/modules/core/macros/buildmacros.sce
scilab/modules/core/src/c/errmsg.c
scilab/modules/core/src/c/msgout.c
scilab/modules/core/src/fortran/errmgr.f
scilab/modules/core/src/fortran/errmsg.f
scilab/modules/differential_equations/etc/differential_equations.start
scilab/modules/differential_equations/sci_gateway/c/gw_differential_equations1.c
scilab/modules/differential_equations/sci_gateway/c/gw_differential_equations2.c
scilab/modules/differential_equations/sci_gateway/c/gw_differential_equations3.c
scilab/modules/differential_equations/sci_gateway/c/gw_differential_equations4.c
scilab/modules/differential_equations/sci_gateway/c/gw_differential_equations5.c
scilab/modules/differential_equations/sci_gateway/c/gw_differential_equations6.c
scilab/modules/differential_equations/sci_gateway/c/sci_bvode.c
scilab/modules/differential_equations/sci_gateway/c/sci_feval.c
scilab/modules/differential_equations/sci_gateway/c/sci_int2d.c
scilab/modules/differential_equations/sci_gateway/c/sci_int3d.c
scilab/modules/differential_equations/sci_gateway/c/sci_intg.c
scilab/modules/differential_equations/sci_gateway/c/sci_ode.c
scilab/modules/differential_equations/sci_gateway/fortran/sci_dassl.f
scilab/modules/differential_equations/sci_gateway/fortran/sci_impl.f
scilab/modules/differential_equations/sci_gateway/fortran/sci_ode.f
scilab/modules/differential_equations/src/c/differential_equations.vcproj
scilab/modules/differential_equations/src/fortran/differential_equations_f.vfproj
scilab/modules/elementaries_functions/src/fortran/dgamma.f
scilab/modules/elementaries_functions/src/fortran/nearfloat.f
scilab/modules/elementaries_functions/src/fortran/pythag.f
scilab/modules/elementaries_functions/src/fortran/wacos.f
scilab/modules/elementaries_functions/src/fortran/wasin.f
scilab/modules/elementaries_functions/src/fortran/wlog.f
scilab/modules/elementaries_functions/src/fortran/wsqrt.f
scilab/modules/elementaries_functions/src/fortran/wtan.f
scilab/modules/graphics/includes/sci_xsnative.h
scilab/modules/graphics/sci_gateway/sci_xsnative.c
scilab/modules/gui/includes/sci_clc.h
scilab/modules/gui/includes/sci_show_window.h
scilab/modules/gui/includes/sci_tohome.h
scilab/modules/gui/sci_gateway/c/sci_clc.c
scilab/modules/gui/sci_gateway/c/sci_show_window.c
scilab/modules/gui/sci_gateway/c/sci_tohome.c
scilab/modules/intersci/etc/intersci.quit
scilab/modules/intersci/etc/intersci.start
scilab/modules/intersci/help/fr/helpbuilderfr.sce
scilab/modules/intersci/help/helpbuilder.sce
scilab/modules/jvm/src/JVM_CONSOLE.c
scilab/modules/jvm/src/JVM_Windows.c
scilab/modules/linear_algebra/includes/gw_linear_algebra.h
scilab/modules/linear_algebra/includes/gw_linear_algebra2.h
scilab/modules/linear_algebra/sci_gateway/c/gw_linear_algebra.c
scilab/modules/linear_algebra/sci_gateway/c/gw_linear_algebra2.c
scilab/modules/linear_algebra/sci_gateway/c/sci_backslash.c
scilab/modules/linear_algebra/sci_gateway/c/sci_balanc.c
scilab/modules/linear_algebra/sci_gateway/c/sci_bdiag.c
scilab/modules/linear_algebra/sci_gateway/c/sci_chol.c
scilab/modules/linear_algebra/sci_gateway/c/sci_det.c
scilab/modules/linear_algebra/sci_gateway/c/sci_hess.c
scilab/modules/linear_algebra/sci_gateway/c/sci_inv.c
scilab/modules/linear_algebra/sci_gateway/c/sci_lsq.c
scilab/modules/linear_algebra/sci_gateway/c/sci_lu.c
scilab/modules/linear_algebra/sci_gateway/c/sci_qr.c
scilab/modules/linear_algebra/sci_gateway/c/sci_rcond.c
scilab/modules/linear_algebra/sci_gateway/c/sci_schur.c
scilab/modules/linear_algebra/sci_gateway/c/sci_slash.c
scilab/modules/linear_algebra/sci_gateway/c/sci_spec.c
scilab/modules/linear_algebra/sci_gateway/c/sci_svd.c
scilab/modules/linear_algebra/src/c/linear_algebra.vcproj
scilab/modules/linear_algebra/src/fortran/DGELSY1.f
scilab/modules/linear_algebra/src/fortran/SELECT.f
scilab/modules/linear_algebra/src/fortran/doldqr.f
scilab/modules/linear_algebra/src/fortran/intddet.f
scilab/modules/linear_algebra/src/fortran/intdgebal.f
scilab/modules/linear_algebra/src/fortran/intdgecon.f
scilab/modules/linear_algebra/src/fortran/intdgees0.f
scilab/modules/linear_algebra/src/fortran/intdgees1.f
scilab/modules/linear_algebra/src/fortran/intdgeev.f
scilab/modules/linear_algebra/src/fortran/intdgehrd.f
scilab/modules/linear_algebra/src/fortran/intdgelsy.f
scilab/modules/linear_algebra/src/fortran/intdgeqpf3.f
scilab/modules/linear_algebra/src/fortran/intdgeqpf4.f
scilab/modules/linear_algebra/src/fortran/intdgesv3.f
scilab/modules/linear_algebra/src/fortran/intdgesv4.f
scilab/modules/linear_algebra/src/fortran/intdgesvd1.f
scilab/modules/linear_algebra/src/fortran/intdgesvd2.f
scilab/modules/linear_algebra/src/fortran/intdgetrf.f
scilab/modules/linear_algebra/src/fortran/intdgetri.f
scilab/modules/linear_algebra/src/fortran/intdggbal.f
scilab/modules/linear_algebra/src/fortran/intdgges.f
scilab/modules/linear_algebra/src/fortran/intdggev.f
scilab/modules/linear_algebra/src/fortran/intdoldsvd.f
scilab/modules/linear_algebra/src/fortran/intdsyev.f
scilab/modules/linear_algebra/src/fortran/intfschur.f
scilab/modules/linear_algebra/src/fortran/intgschur.f
scilab/modules/linear_algebra/src/fortran/intogschur.f
scilab/modules/linear_algebra/src/fortran/intoschur.f
scilab/modules/linear_algebra/src/fortran/intozgschur.f
scilab/modules/linear_algebra/src/fortran/intzdet.f
scilab/modules/linear_algebra/src/fortran/intzfschur.f
scilab/modules/linear_algebra/src/fortran/intzgebal.f
scilab/modules/linear_algebra/src/fortran/intzgecon.f
scilab/modules/linear_algebra/src/fortran/intzgees0.f
scilab/modules/linear_algebra/src/fortran/intzgees1.f
scilab/modules/linear_algebra/src/fortran/intzgeev.f
scilab/modules/linear_algebra/src/fortran/intzgehrd.f
scilab/modules/linear_algebra/src/fortran/intzgelsy.f
scilab/modules/linear_algebra/src/fortran/intzgeqpf3.f
scilab/modules/linear_algebra/src/fortran/intzgeqpf4.f
scilab/modules/linear_algebra/src/fortran/intzgesv3.f
scilab/modules/linear_algebra/src/fortran/intzgesv4.f
scilab/modules/linear_algebra/src/fortran/intzgesvd1.f
scilab/modules/linear_algebra/src/fortran/intzgesvd2.f
scilab/modules/linear_algebra/src/fortran/intzgetrf.f
scilab/modules/linear_algebra/src/fortran/intzgetri.f
scilab/modules/linear_algebra/src/fortran/intzggbal.f
scilab/modules/linear_algebra/src/fortran/intzgges.f
scilab/modules/linear_algebra/src/fortran/intzggev.f
scilab/modules/linear_algebra/src/fortran/intzgschur.f
scilab/modules/linear_algebra/src/fortran/intzheev.f
scilab/modules/linear_algebra/src/fortran/intzoldsvd.f
scilab/modules/linear_algebra/src/fortran/intzschur.f
scilab/modules/linear_algebra/src/fortran/linear_algebra_f.vfproj
scilab/modules/linear_algebra/src/fortran/scischur.f
scilab/modules/linear_algebra/src/fortran/zoldqr.f
scilab/modules/special_functions/etc/special_functions.start
scilab/modules/special_functions/sci_gateway/c/gw_special_functions1.c
scilab/modules/special_functions/sci_gateway/c/gw_special_functions1.h
scilab/modules/special_functions/sci_gateway/c/sci_besselh.c
scilab/modules/special_functions/sci_gateway/c/sci_besseli.c
scilab/modules/special_functions/sci_gateway/c/sci_besselj.c
scilab/modules/special_functions/sci_gateway/c/sci_besselk.c
scilab/modules/special_functions/sci_gateway/c/sci_bessely.c
scilab/modules/special_functions/sci_gateway/c/sci_beta.c
scilab/modules/special_functions/sci_gateway/c/sci_calerf.c
scilab/modules/special_functions/sci_gateway/c/sci_dlgamma.c
scilab/modules/special_functions/sci_gateway/c/sci_gamma.c
scilab/modules/special_functions/sci_gateway/c/sci_legendre.c
scilab/modules/special_functions/sci_gateway/c/sci_lgamma.c
scilab/modules/special_functions/sci_gateway/c/sci_oldbesseli.c
scilab/modules/special_functions/sci_gateway/c/sci_oldbesselj.c
scilab/modules/special_functions/sci_gateway/c/sci_oldbesselk.c
scilab/modules/special_functions/sci_gateway/c/sci_oldbessely.c
scilab/modules/special_functions/sci_gateway/fortran/sci_calerf.f
scilab/modules/special_functions/sci_gateway/fortran/sci_dlgamma.f
scilab/modules/special_functions/sci_gateway/fortran/sci_gamma.f
scilab/modules/special_functions/sci_gateway/fortran/sci_lgamma.f
scilab/modules/special_functions/sci_gateway/fortran/sci_oldbesseli.f
scilab/modules/special_functions/sci_gateway/fortran/sci_oldbesselj.f
scilab/modules/special_functions/sci_gateway/fortran/sci_oldbesselk.f
scilab/modules/special_functions/sci_gateway/fortran/sci_oldbessely.f
scilab/modules/special_functions/src/c/special_functions.vcproj
scilab/modules/special_functions/src/fortran/special_functions_f.vfproj

index ca6d60a..b9dafd6 100644 (file)
@@ -1,29 +1,29 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2006 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/ \r
-#ifndef __GW_CACSD1__\r
-#define __GW_CACSD1__\r
-\r
-#ifdef _MSC_VER\r
-  #include <windows.h>\r
-  #include <stdio.h>\r
-#endif\r
-\r
-#include <string.h>\r
-\r
-#include "machine.h"\r
-#include "stack-c.h"\r
-\r
-\r
-typedef int (*Cacsd1_Interf) __PARAMS((char *fname));\r
-\r
-typedef struct table_struct \r
-{\r
-  Cacsd1_Interf f;    /** function **/\r
-  char *name;      /** its name **/\r
-} Cacsd1Table;\r
-\r
-#endif /*  __GW_CACSD1__ */\r
-/*-----------------------------------------------------------------------------------*/\r
-\r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2006 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/ 
+#ifndef __GW_CACSD1__
+#define __GW_CACSD1__
+
+#ifdef _MSC_VER
+  #include <windows.h>
+  #include <stdio.h>
+#endif
+
+#include <string.h>
+
+#include "machine.h"
+#include "stack-c.h"
+
+
+typedef int (*Cacsd1_Interf) __PARAMS((char *fname));
+
+typedef struct table_struct 
+{
+  Cacsd1_Interf f;    /** function **/
+  char *name;      /** its name **/
+} Cacsd1Table;
+
+#endif /*  __GW_CACSD1__ */
+/*-----------------------------------------------------------------------------------*/
+
index f88bda8..d8ec939 100644 (file)
@@ -1,45 +1,45 @@
-#include "gw_cacsd1.h"\r
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2006 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/\r
-#if _MSC_VER\r
-#include <Windows.h>\r
-#include "MALLOC.h"\r
-extern char *GetExceptionString(DWORD ExceptionCode);\r
-#endif\r
-/*-----------------------------------------------------------------------------------*/\r
-extern int C2F(scilyap) _PARAMS((char *fname));\r
-extern int C2F(scisylv) _PARAMS((char *fname));\r
-extern int C2F(intricc) _PARAMS((char *fname));\r
-/*-----------------------------------------------------------------------------------*/\r
-static Cacsd1Table Tab[]=\r
-{\r
-       {C2F(scilyap),"lyap"},\r
-       {C2F(scisylv),"sylv"},\r
-       {C2F(intricc),"ricc"}\r
-};\r
-/*-----------------------------------------------------------------------------------*/\r
-int C2F(gw_cacsd1)()\r
-{  \r
-#if _MSC_VER\r
-       #ifndef _DEBUG\r
-               _try\r
-               {\r
-                       (*(Tab[Fin-1].f)) (Tab[Fin-1].name);\r
-               }\r
-               _except (EXCEPTION_EXECUTE_HANDLER)\r
-               {       \r
-                       char *ExceptionString=GetExceptionString(GetExceptionCode());\r
-                       sciprint("Warning !!!\nScilab has found a critical error (%s)\nwith \"%s\" function.\nScilab may become unstable.\n",ExceptionString,Tab[Fin-1].name);\r
-                       if (ExceptionString) {FREE(ExceptionString);ExceptionString=NULL;}\r
-               }\r
-       #else\r
-               (*(Tab[Fin-1].f)) (Tab[Fin-1].name);\r
-       #endif\r
-#else\r
-               (*(Tab[Fin-1].f)) (Tab[Fin-1].name);\r
-#endif\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
+#include "gw_cacsd1.h"
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2006 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/
+#if _MSC_VER
+#include <Windows.h>
+#include "MALLOC.h"
+extern char *GetExceptionString(DWORD ExceptionCode);
+#endif
+/*-----------------------------------------------------------------------------------*/
+extern int C2F(scilyap) _PARAMS((char *fname));
+extern int C2F(scisylv) _PARAMS((char *fname));
+extern int C2F(intricc) _PARAMS((char *fname));
+/*-----------------------------------------------------------------------------------*/
+static Cacsd1Table Tab[]=
+{
+       {C2F(scilyap),"lyap"},
+       {C2F(scisylv),"sylv"},
+       {C2F(intricc),"ricc"}
+};
+/*-----------------------------------------------------------------------------------*/
+int C2F(gw_cacsd1)()
+{  
+#if _MSC_VER
+       #ifndef _DEBUG
+               _try
+               {
+                       (*(Tab[Fin-1].f)) (Tab[Fin-1].name);
+               }
+               _except (EXCEPTION_EXECUTE_HANDLER)
+               {       
+                       char *ExceptionString=GetExceptionString(GetExceptionCode());
+                       sciprint("Warning !!!\nScilab has found a critical error (%s)\nwith \"%s\" function.\nScilab may become unstable.\n",ExceptionString,Tab[Fin-1].name);
+                       if (ExceptionString) {FREE(ExceptionString);ExceptionString=NULL;}
+               }
+       #else
+               (*(Tab[Fin-1].f)) (Tab[Fin-1].name);
+       #endif
+#else
+               (*(Tab[Fin-1].f)) (Tab[Fin-1].name);
+#endif
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
index b75a678..a0bc25b 100644 (file)
@@ -1,13 +1,13 @@
-       subroutine scilyap(fname)\r
-c     Copyright INRIA\r
-      include 'stack.h'\r
-      character*(*) fname\r
-      integer iadr,sadr\r
-c\r
-      iadr(l)=l+l-1\r
-      sadr(l)=(l/2)+1\r
-c      \r
-      call cvname(ids(1,pt+1),'lyap',0)\r
-      fun=-1\r
-c      \r
+       subroutine scilyap(fname)
+c     Copyright INRIA
+      include 'stack.h'
+      character*(*) fname
+      integer iadr,sadr
+c
+      iadr(l)=l+l-1
+      sadr(l)=(l/2)+1
+c      
+      call cvname(ids(1,pt+1),'lyap',0)
+      fun=-1
+c      
                        end
\ No newline at end of file
index 1aa03c7..efa51ef 100644 (file)
-      subroutine intricc(fname)\r
-c     equations de  riccati\r
-c     Copyright INRIA\r
-      include 'stack.h'\r
-      character*(*) fname\r
-      integer iadr,sadr\r
-c\r
-      double precision eps,rcond\r
-      integer cont,disc\r
-      data disc/13/,cont/12/\r
-c\r
-      iadr(l)=l+l-1\r
-      sadr(l)=(l/2)+1\r
-c\r
-      eps=stk(leps)\r
-      lz=lstk(top+1)\r
-c\r
-      if(rhs.ne.4) then\r
-         call error(39)\r
-         return\r
-      endif\r
-      ilcd=iadr(lstk(top))\r
-      if(istk(ilcd).ne.10) then\r
-         err=rhs\r
-         call error(55)\r
-         return\r
-      endif\r
-      icd=abs(istk(ilcd+5+istk(ilcd+1)*istk(ilcd+2)))\r
-      if(icd.ne.cont .and. icd.ne.disc) then\r
-         err=rhs\r
-         call error(36)\r
-         return\r
-      endif\r
-c\r
-c     second membre\r
-      top=top-1\r
-      ic=iadr(lstk(top))\r
-      if(istk(ic).ne.1) then\r
-         err=rhs-1\r
-         call error(53)\r
-         return\r
-      endif\r
-      if(istk(ic+3).ne.0) then\r
-         err=rhs-1\r
-         call error(52)\r
-         return\r
-      endif\r
-      mc=istk(ic+1)\r
-      nc=istk(ic+2)\r
-      nnc=nc*mc\r
-      lc=sadr(ic+4)\r
-      top=top-1\r
-c\r
-      err=0\r
-c\r
-c    riccati\r
-c\r
-  30  continue\r
-c\r
-c    a'*x+x*a-x*b*x+c=0\r
-c\r
-c         matrice b\r
-      ib=iadr(lstk(top))\r
-      if(istk(ib).ne.1) then\r
-         err=2\r
-         call error(53)\r
-         return\r
-      endif\r
-      if(istk(ib+3).ne.0) then\r
-         err=2\r
-         call error(52)\r
-         return\r
-      endif\r
-      mb=istk(ib+1)\r
-      nb=istk(ib+2)\r
-      if(mb.ne.nb) then\r
-         err=2\r
-         call error(20)\r
-         return\r
-      endif\r
-      nnb=mb*nb\r
-      lb=sadr(ib+4)\r
-c\r
-      top=top-1\r
-      ia=iadr(lstk(top))\r
-      if(istk(ia).ne.1) then\r
-         err=1\r
-         call error(53)\r
-         return\r
-      endif\r
-      if(istk(ia+3).ne.0) then\r
-         err=1\r
-         call error(52)\r
-         return\r
-      endif\r
-      ma=istk(ia+1)\r
-      na=istk(ia+2)\r
-      if(ma.ne.na) then\r
-         err=1\r
-         call error(20)\r
-         return\r
-      endif\r
-      nna=na*ma\r
-      nn=na+na\r
-      la =sadr(ia+4)\r
-c\r
-      if(ma.ne.mb) then\r
-         call error(42)\r
-         return\r
-      endif\r
-c\r
-      lw=lz\r
-      lz=lw+nn*nn\r
-      lw1=lz+nn*nn\r
-      lw2=lw1+nn\r
-      lw3=lw2+nn\r
-      err=lw3+nn-lstk(bot)\r
-      if(err.gt.0) then\r
-         call error(17)\r
-         return\r
-      endif\r
-c\r
-      if(icd.eq.disc) goto 31\r
-      call rilac(na,nn,stk(la),na,stk(lc),stk(lb),rcond,stk(la),\r
-     x           stk(lw),nn,stk(lz),eps,stk(lw3),\r
-     x           stk(lw1),stk(lw2),err)\r
-      if(err.ne.0) then\r
-         call error(24)\r
-         return\r
-      endif\r
-      return\r
-  31  continue\r
-      call ricd(na,nn,stk(la),na,stk(lc),stk(lb),rcond,stk(la),\r
-     x          stk(lw),nn,stk(lz),eps,stk(lw3),\r
-     x          stk(lw1),stk(lw2),err)\r
-      if(err.ne.0) then\r
-         call error(24)\r
-         return\r
-      endif\r
-      return\r
-      end\r
+      subroutine intricc(fname)
+c     equations de  riccati
+c     Copyright INRIA
+      include 'stack.h'
+      character*(*) fname
+      integer iadr,sadr
+c
+      double precision eps,rcond
+      integer cont,disc
+      data disc/13/,cont/12/
+c
+      iadr(l)=l+l-1
+      sadr(l)=(l/2)+1
+c
+      eps=stk(leps)
+      lz=lstk(top+1)
+c
+      if(rhs.ne.4) then
+         call error(39)
+         return
+      endif
+      ilcd=iadr(lstk(top))
+      if(istk(ilcd).ne.10) then
+         err=rhs
+         call error(55)
+         return
+      endif
+      icd=abs(istk(ilcd+5+istk(ilcd+1)*istk(ilcd+2)))
+      if(icd.ne.cont .and. icd.ne.disc) then
+         err=rhs
+         call error(36)
+         return
+      endif
+c
+c     second membre
+      top=top-1
+      ic=iadr(lstk(top))
+      if(istk(ic).ne.1) then
+         err=rhs-1
+         call error(53)
+         return
+      endif
+      if(istk(ic+3).ne.0) then
+         err=rhs-1
+         call error(52)
+         return
+      endif
+      mc=istk(ic+1)
+      nc=istk(ic+2)
+      nnc=nc*mc
+      lc=sadr(ic+4)
+      top=top-1
+c
+      err=0
+c
+c    riccati
+c
+  30  continue
+c
+c    a'*x+x*a-x*b*x+c=0
+c
+c         matrice b
+      ib=iadr(lstk(top))
+      if(istk(ib).ne.1) then
+         err=2
+         call error(53)
+         return
+      endif
+      if(istk(ib+3).ne.0) then
+         err=2
+         call error(52)
+         return
+      endif
+      mb=istk(ib+1)
+      nb=istk(ib+2)
+      if(mb.ne.nb) then
+         err=2
+         call error(20)
+         return
+      endif
+      nnb=mb*nb
+      lb=sadr(ib+4)
+c
+      top=top-1
+      ia=iadr(lstk(top))
+      if(istk(ia).ne.1) then
+         err=1
+         call error(53)
+         return
+      endif
+      if(istk(ia+3).ne.0) then
+         err=1
+         call error(52)
+         return
+      endif
+      ma=istk(ia+1)
+      na=istk(ia+2)
+      if(ma.ne.na) then
+         err=1
+         call error(20)
+         return
+      endif
+      nna=na*ma
+      nn=na+na
+      la =sadr(ia+4)
+c
+      if(ma.ne.mb) then
+         call error(42)
+         return
+      endif
+c
+      lw=lz
+      lz=lw+nn*nn
+      lw1=lz+nn*nn
+      lw2=lw1+nn
+      lw3=lw2+nn
+      err=lw3+nn-lstk(bot)
+      if(err.gt.0) then
+         call error(17)
+         return
+      endif
+c
+      if(icd.eq.disc) goto 31
+      call rilac(na,nn,stk(la),na,stk(lc),stk(lb),rcond,stk(la),
+     x           stk(lw),nn,stk(lz),eps,stk(lw3),
+     x           stk(lw1),stk(lw2),err)
+      if(err.ne.0) then
+         call error(24)
+         return
+      endif
+      return
+  31  continue
+      call ricd(na,nn,stk(la),na,stk(lc),stk(lb),rcond,stk(la),
+     x          stk(lw),nn,stk(lz),eps,stk(lw3),
+     x          stk(lw1),stk(lw2),err)
+      if(err.ne.0) then
+         call error(24)
+         return
+      endif
+      return
+      end
index 6e47092..f21f610 100644 (file)
@@ -1,13 +1,13 @@
-       subroutine scisylv(fname)\r
-c     Copyright INRIA\r
-      include 'stack.h'\r
-      character*(*) fname\r
-      integer iadr,sadr\r
-c\r
-      iadr(l)=l+l-1\r
-      sadr(l)=(l/2)+1\r
-c      \r
-      call cvname(ids(1,pt+1),'sylv',0)\r
-      fun=-1\r
-c      \r
+       subroutine scisylv(fname)
+c     Copyright INRIA
+      include 'stack.h'
+      character*(*) fname
+      integer iadr,sadr
+c
+      iadr(l)=l+l-1
+      sadr(l)=(l/2)+1
+c      
+      call cvname(ids(1,pt+1),'sylv',0)
+      fun=-1
+c      
                        end
\ No newline at end of file
index 58a28ee..a0e9135 100644 (file)
@@ -1,16 +1,16 @@
-// ====================================================================\r
-// This file contains command to be executed at the end \r
-// of a scilab session for core module\r
-// Copyright INRIA 2006\r
-// ====================================================================\r
-// delete help chapter\r
-global LANGUAGE\r
-\r
-if LANGUAGE == 'fr' then\r
-       del_help_chapter("Core Module");\r
-elseif LANGUAGE == 'eng' then\r
-       del_help_chapter("Core Module");\r
-end\r
-\r
-clear del_help_chapter LANGUAGE;\r
+// ====================================================================
+// This file contains command to be executed at the end 
+// of a scilab session for core module
+// Copyright INRIA 2006
+// ====================================================================
+// delete help chapter
+global LANGUAGE
+
+if LANGUAGE == 'fr' then
+       del_help_chapter("Core Module");
+elseif LANGUAGE == 'eng' then
+       del_help_chapter("Core Module");
+end
+
+clear del_help_chapter LANGUAGE;
 // ====================================================================
\ No newline at end of file
index 12075b7..3d6dc24 100644 (file)
@@ -1,23 +1,23 @@
-// ====================================================================\r
-// core module initialisation file \r
-// Copyright INRIA 2006\r
-// ====================================================================\r
-//Load  functions librarie\r
-load('SCI/modules/core/macros/lib');\r
-// ====================================================================\r
-//add help chapter\r
-global LANGUAGE\r
-\r
-path = get_absolute_file_path('core.start');\r
-path = getshortpathname(path);\r
-\r
-if LANGUAGE == 'fr' then\r
-       path = pathconvert(part(path,1:(length(path)-5))+'/help/fr',%f,%f);\r
-       add_help_chapter("Core Module",path);\r
-elseif LANGUAGE == 'eng' then\r
-       path = pathconvert(part(path,1:(length(path)-5))+'/help/eng',%f,%f);\r
-       add_help_chapter("Core Module",path);\r
-end\r
-\r
-clear path get_absolute_file_path add_help_chapter LANGUAGE;\r
-// ====================================================================\r
+// ====================================================================
+// core module initialisation file 
+// Copyright INRIA 2006
+// ====================================================================
+//Load  functions librarie
+load('SCI/modules/core/macros/lib');
+// ====================================================================
+//add help chapter
+global LANGUAGE
+
+path = get_absolute_file_path('core.start');
+path = getshortpathname(path);
+
+if LANGUAGE == 'fr' then
+       path = pathconvert(part(path,1:(length(path)-5))+'/help/fr',%f,%f);
+       add_help_chapter("Core Module",path);
+elseif LANGUAGE == 'eng' then
+       path = pathconvert(part(path,1:(length(path)-5))+'/help/eng',%f,%f);
+       add_help_chapter("Core Module",path);
+end
+
+clear path get_absolute_file_path add_help_chapter LANGUAGE;
+// ====================================================================
index e78ad9d..072cddd 100644 (file)
@@ -1,6 +1,6 @@
-mode(-1); //force silent execution\r
-path=get_absolute_file_path('helpbuildereng.sce');//get the absolute path of this file\r
-add_help_chapter("Core module",path);//add help chapter\r
-xmltohtml(path,"Core module");\r
-//clear the variable stack\r
+mode(-1); //force silent execution
+path=get_absolute_file_path('helpbuildereng.sce');//get the absolute path of this file
+add_help_chapter("Core module",path);//add help chapter
+xmltohtml(path,"Core module");
+//clear the variable stack
 clear path add_help_chapter get_absolute_file_path; 
\ No newline at end of file
index 8c6cf4d..1a82973 100644 (file)
@@ -1,6 +1,6 @@
-mode(-1); //force silent execution\r
-path=get_absolute_file_path('helpbuilderfr.sce');//get the absolute path of this file\r
-add_help_chapter("Core module",path);//add help chapter\r
-xmltohtml(path,"Core module",'html-rev.xsl');\r
-//clear the variable stack\r
+mode(-1); //force silent execution
+path=get_absolute_file_path('helpbuilderfr.sce');//get the absolute path of this file
+add_help_chapter("Core module",path);//add help chapter
+xmltohtml(path,"Core module",'html-rev.xsl');
+//clear the variable stack
 clear path add_help_chapter get_absolute_file_path; 
\ No newline at end of file
index 9350242..491c364 100644 (file)
@@ -1,9 +1,9 @@
-mode(-1) //force silent execution\r
-\r
-cd 'eng'\r
-exec helpbuildereng.sce\r
-cd '..'\r
-\r
-cd 'fr'\r
-exec helpbuilderfr.sce\r
-cd '..'\r
+mode(-1) //force silent execution
+
+cd 'eng'
+exec helpbuildereng.sce
+cd '..'
+
+cd 'fr'
+exec helpbuilderfr.sce
+cd '..'
index 959905b..56ade43 100644 (file)
-#define SCI_ERRMSG1                            "incorrect assignment"\r
-#define SCI_ERRMSG2                            "invalid factor"\r
-#define SCI_ERRMSG3                            "waiting for right parenthesis"\r
-#define SCI_ERRMSG4                            "undefined variable : %s"\r
-#define SCI_ERRMSG5                            "inconsistent column/row dimensions"\r
-#define SCI_ERRMSG6                            "inconsistent row/column dimensions"\r
-#define SCI_ERRMSG7                            "dot cannot be used as modifier for this operator"\r
-#define SCI_ERRMSG8                            "inconsistent addition"\r
-#define SCI_ERRMSG9                            "inconsistent subtraction"\r
-#define SCI_ERRMSG10                   "inconsistent multiplication"\r
-#define SCI_ERRMSG11                   "inconsistent right division "\r
-#define SCI_ERRMSG12                   "inconsistent left division"\r
-#define SCI_ERRMSG13                   "redefining permanent variable"\r
-#define SCI_ERRMSG14                   "eye variable undefined in this context"\r
-#define SCI_ERRMSG15                   "submatrix incorrectly defined"\r
-#define SCI_ERRMSG16                   "incorrect command!"\r
-#define SCI_ERRMSG17_1                 "stack size exceeded! (Use stacksize function to increase it)"\r
-#define SCI_ERRMSG17_2                 "Memory used for variables :"\r
-#define SCI_ERRMSG17_3                 "Intermediate memory needed:"\r
-#define SCI_ERRMSG17_4                 "Total  memory available   :"\r
-#define SCI_ERRMSG18                   "too many variables!"\r
-#define SCI_ERRMSG19                   "Problem is singular"\r
-#define SCI_ERRMSG20_1                 "th argument must be square matrix"\r
-#define SCI_ERRMSG20_2                 "first argument must be square matrix"\r
-#define SCI_ERRMSG21                   "invalid index"\r
-#define SCI_ERRMSG22                   " recursion problems. Sorry...."\r
-#define SCI_ERRMSG23                   " Matrix norms available are 1, 2, inf, and fro"\r
-#define SCI_ERRMSG24                   "convergence problem..."\r
-#define SCI_ERRMSG25                   "bad call to primitive :"\r
-#define SCI_ERRMSG26                   "too complex recursion! (recursion tables are full))"\r
-#define SCI_ERRMSG27                   "division by zero..."\r
-#define SCI_ERRMSG28                   "empty function..."\r
-#define SCI_ERRMSG29                   "matrix is not positive definite"\r
-#define SCI_ERRMSG30                   "invalid exponent"\r
-#define SCI_ERRMSG31                   "incorrect string"\r
-#define SCI_ERRMSG32                   "singularity of log or tan function"\r
-#define SCI_ERRMSG33                   "too many ':'"\r
-#define SCI_ERRMSG34                   "incorrect control intruction syntax"\r
-#define SCI_ERRMSG35_1                 "Syntax error in an if instruction"\r
-#define SCI_ERRMSG35_2                 "Syntax error in a while instruction"\r
-#define SCI_ERRMSG35_3                         "Syntax error in a select/case instruction"\r
-#define SCI_ERRMSG36_1                 "th argument is incorrect here"\r
-#define SCI_ERRMSG36_2                 "first argument is incorrect"\r
-#define SCI_ERRMSG37                   "incorrect function at line     "\r
-#define SCI_ERRMSG38                   "file name incorrect"\r
-#define SCI_ERRMSG39                   "incorrect number of arguments"\r
-#define SCI_ERRMSG40                   "waiting for end of command"\r
-#define SCI_ERRMSG41                   "incompatible LHS"\r
-#define SCI_ERRMSG42                   "incompatible RHS"\r
-#define SCI_ERRMSG43                   "not implemented in scilab...."\r
-#define SCI_ERRMSG44_1                 "th argument is incorrect"\r
-#define SCI_ERRMSG44_2                         "first argument is incorrect"\r
-#define SCI_ERRMSG45                   "null matrix (argument #"\r
-#define SCI_ERRMSG46                   "incorrect syntax"\r
-#define SCI_ERRMSG47                   " end or else is missing..."\r
-#define SCI_ERRMSG48                   " input line longer than buffer size:"\r
-#define SCI_ERRMSG49                   "incorrect file or format"\r
-#define SCI_ERRMSG50                   "subroutine not found : "\r
-#define SCI_ERRMSG51                   "th argument must be a real matrix"\r
-#define SCI_ERRMSG52_1                         "th argument must be a real matrix"\r
-#define SCI_ERRMSG52_2                         "argument must be a real matrix"\r
-#define SCI_ERRMSG53_1                         "th input is invalid (waiting for real or complex matrix)       "\r
-#define SCI_ERRMSG53_2                         "invalid input (waiting for real or complex matrix)     "\r
-#define SCI_ERRMSG54_1                 "th argument type must be polynomial"\r
-#define SCI_ERRMSG54_2                 "argument type must be polynomial"\r
-#define SCI_ERRMSG55_1                 "th argument type must be character string"\r
-#define SCI_ERRMSG55_2                 "argument type must be  character string"\r
-#define SCI_ERRMSG56_1                 "th argument must be a list"\r
-#define SCI_ERRMSG56_2                 "argument must be a list"\r
-#define SCI_ERRMSG57                   "problem with comparison symbol..."\r
-#define SCI_ERRMSG58_1                 "function has no input argument..."\r
-#define SCI_ERRMSG58_2                 "incorrect number of arguments in function call..."\r
-#define SCI_ERRMSG58_3                 "arguments are :"\r
-#define SCI_ERRMSG59_1                 "function has no output"\r
-#define SCI_ERRMSG59_2                 "incorrect # of outputs in the function"\r
-#define SCI_ERRMSG59_3                 "arguments are :"\r
-#define SCI_ERRMSG60                   "argument with incompatible dimensions"\r
-#define SCI_ERRMSG61                   "direct acces : give format"\r
-#define SCI_ERRMSG62                   "end of file at line    "\r
-#define SCI_ERRMSG63                   "graphic terminal?"\r
-#define SCI_ERRMSG64                   "integration fails"\r
-#define SCI_ERRMSG65                   ": logical unit already used"\r
-#define SCI_ERRMSG66                   "no more logical units available!"\r
-#define SCI_ERRMSG67                   "unknown file format "\r
-#define SCI_ERRMSG68_1                 "fatal error!!! your variables are saved in file :"\r
-#define SCI_ERRMSG68_2                 " bad call to a scilab function ? check"\r
-#define SCI_ERRMSG68_3                 " ... otherwise send a bug report to : the Scilab group"\r
-#define SCI_ERRMSG69                   "floating point exception"\r
-#define SCI_ERRMSG70                   "too many arguments in fort (max 30)"\r
-#define SCI_ERRMSG71                   "this variable is not valid in fort"\r
-#define SCI_ERRMSG72                   "is not valid in this context"\r
-#define SCI_ERRMSG73                   "error while linking"\r
-#define SCI_ERRMSG74                   "Leading coefficient is zero"\r
-#define SCI_ERRMSG75                   "Too high degree (max 100)"\r
-#define SCI_ERRMSG76_1                 "for x=val with type(val)="\r
-#define SCI_ERRMSG76_2                 " is not implemented in Scilab"\r
-#define SCI_ERRMSG77                   " : wrong number of rhs arguments"\r
-#define SCI_ERRMSG78                   " : wrong number of lhs arguments"\r
-#define SCI_ERRMSG80                   " incorrect function (argument n:"\r
-#define SCI_ERRMSG81_1                 "Argument "\r
-#define SCI_ERRMSG81_2                 " : wrong type argument, expecting a "\r
-#define SCI_ERRMSG81_3                 " real or complex matrix"\r
-#define SCI_ERRMSG82_1                 "Argument "\r
-#define SCI_ERRMSG82_2                 " : wrong type argument, expecting a real matrix"\r
-#define SCI_ERRMSG83_1                 "Argument "\r
-#define SCI_ERRMSG83_2                 " : wrong type argument, expecting a real vector"\r
-#define SCI_ERRMSG84_1                 "Argument "\r
-#define SCI_ERRMSG84_2                 " : wrong type argument, expecting a scalar"\r
-#define SCI_ERRMSG85                   "host does not answer..."\r
-#define SCI_ERRMSG86                   "uncontrollable system"\r
-#define SCI_ERRMSG87                   "unobservable system"\r
-#define SCI_ERRMSG88                   "sfact : singular  or assymetric problem"\r
-#define SCI_ERRMSG89_1                 "th argument has incorrect dimensions"\r
-#define SCI_ERRMSG89_2                 "argument has incorrect dimensions"\r
-#define SCI_ERRMSG90_1                 "th argument must be a transfer matrix"\r
-#define SCI_ERRMSG90_2                 "argument must be a transfer matrix"\r
-#define SCI_ERRMSG91_1                 "th argument must be in state space form"\r
-#define SCI_ERRMSG91_2                 "argument must be in state space form"\r
-#define SCI_ERRMSG92_1                 "th argument must be a rational matrix"\r
-#define SCI_ERRMSG92_2                 "argument must be a rational matrix"\r
-#define SCI_ERRMSG93_1                 "th argument must be in continuous time"\r
-#define SCI_ERRMSG93_2                 "waiting for continuous time..."\r
-#define SCI_ERRMSG94_1                 "th argument must be in discrete time"\r
-#define SCI_ERRMSG94_2                 "argument must be in discrete time"\r
-#define SCI_ERRMSG95_1                 "th argument must "\r
-#define SCI_ERRMSG95_2                 "argument must be SISO"\r
-#define SCI_ERRMSG96_1                 "time domain of "\r
-#define SCI_ERRMSG96_2                 " th argument is not defined"\r
-#define SCI_ERRMSG96_3                 "time domain of argument is not defined"\r
-#define SCI_ERRMSG97_1                 "th argument must be a system "\r
-#define SCI_ERRMSG97_2                 "in state space or transfer matrix form"\r
-#define SCI_ERRMSG97_3                 "input argument must be a system in state space or transfer matrix form"\r
-#define SCI_ERRMSG98                   " variable returned by scilab argument function is incorrect"\r
-#define SCI_ERRMSG99_1                 " elements of "\r
-#define SCI_ERRMSG99_2                 "th must be in increasing order!"\r
-#define SCI_ERRMSG99_3                 "elements of first argument are not (strictly) increasing"\r
-#define SCI_ERRMSG100_1                        "the elements of "\r
-#define SCI_ERRMSG100_2                        "th argument are not in (strictly) decreasing order"\r
-#define SCI_ERRMSG100_3                        "elements of first argument are not in (strictly) decreasing order"\r
-#define SCI_ERRMSG101_1                        "last element of "\r
-#define SCI_ERRMSG101_2                        "th argument <>  first"\r
-#define SCI_ERRMSG101_3                        "last element of first argument does not matches the first one"\r
-#define SCI_ERRMSG102_1                        "variable or function "\r
-#define SCI_ERRMSG102_2                        " is not in file "\r
-#define SCI_ERRMSG103_1                        " variable "\r
-#define SCI_ERRMSG103_2                        " is not a valid rational function "\r
-#define SCI_ERRMSG104_1                        " variable "\r
-#define SCI_ERRMSG104_2                        " is not a valid state space representation"\r
-#define SCI_ERRMSG105                  "undefined fonction"\r
-#define SCI_ERRMSG106                  " fonction name already used"\r
-#define SCI_ERRMSG107_1                        "too many functions are defined (maximum #:"\r
-#define SCI_ERRMSG108                  "too complex for scilab, may be a too longcontrol instruction"\r
-#define SCI_ERRMSG109                  "too large, can't be displayed"\r
-#define SCI_ERRMSG110_1                        " was a function when"\r
-#define SCI_ERRMSG110_2                        " compiled but is now a primitive!"\r
-#define SCI_ERRMSG111                  "trying to re-define  function "\r
-#define SCI_ERRMSG112                  "Cannot allocate more memory"\r
-#define SCI_ERRMSG113                  "too large string"\r
-#define SCI_ERRMSG114                  "too many linked routines"\r
-#define SCI_ERRMSG115_1                        "Stack problem detected within a loop"\r
-#define SCI_ERRMSG115_2                        " a primitive function has been called with wrong number"\r
-#define SCI_ERRMSG115_3                        " of lhs arguments. No lhs test made for this function "\r
-#define SCI_ERRMSG115_4                        " please report this bug"\r
-#define SCI_ERRMSG116_1                        "th argument has incorrect value"\r
-#define SCI_ERRMSG116_2                        "first argument has incorrect value"\r
-#define SCI_ERRMSG117_1                        "List element"\r
-#define SCI_ERRMSG117_2                        " is Undefined"\r
-#define SCI_ERRMSG118_1                        "th argument must be a named variable not an expression"\r
-#define SCI_ERRMSG118_2                        "argument must be a named variable not an expression "\r
-#define SCI_ERRMSG120                  "indices for non-zero elements must be given by a 2 column matrix"\r
-#define SCI_ERRMSG121                  "incompatible indices for non-zero elements "\r
-#define SCI_ERRMSG122                  " logical unit number should be   larger than "\r
-#define SCI_ERRMSG123                  " function not bounded from below"\r
-#define SCI_ERRMSG125                  " problem may be unbounded :too high distance between two consecutive iterations"\r
-#define SCI_ERRMSG126                  "Inconsistent constraints"\r
-#define SCI_ERRMSG127                  "no feasible solution"\r
-#define SCI_ERRMSG128                  "degenerate starting point"\r
-#define SCI_ERRMSG129                  "no feasible point has been found"\r
-#define SCI_ERRMSG130                  "  optimization fails: back to initial point"\r
-#define SCI_ERRMSG131                  " optim: stop requested by simulator (ind=0)"\r
-#define SCI_ERRMSG132                  " optim: incorrect input parameters"\r
-#define SCI_ERRMSG133                  " too small memory"\r
-#define SCI_ERRMSG134                  "optim: problem with initial constants in simul "\r
-#define SCI_ERRMSG135                  "optim : bounds and initial guess are incompatible"\r
-#define SCI_ERRMSG136                  "optim : this method is NOT implemented "\r
-#define SCI_ERRMSG137                  "NO hot restart available in this method"\r
-#define SCI_ERRMSG138                  "optim : incorrect stopping parameters"\r
-#define SCI_ERRMSG139                  "optim : incorrect bounds"\r
-#define SCI_ERRMSG141                  " incorrect function (argument n:"\r
-#define SCI_ERRMSG142                  "hot restart : dimension of working table (argument n:"\r
-#define SCI_ERRMSG143                  "optim : df0 must be positive !"\r
-#define SCI_ERRMSG144_1                        "Undefined operation for the given operands"\r
-#define SCI_ERRMSG144_2                        "  check or define function "\r
-#define SCI_ERRMSG144_3                        " for overloading"\r
-\r
-#define SCI_ERRMSG201_1                        "Argument "\r
-#define SCI_ERRMSG201_2                        " : wrong type argument,"\r
-#define SCI_ERRMSG201_3                        " expecting a real or complex matrix"\r
-#define SCI_ERRMSG202_1                        "Argument "\r
-#define SCI_ERRMSG202_2                        " : wrong type argument,"\r
-#define SCI_ERRMSG202_3                        " expecting a real matrix"\r
-#define SCI_ERRMSG203_1                        "Argument "\r
-#define SCI_ERRMSG203_2                        " : wrong type argument,"\r
-#define SCI_ERRMSG203_3                        " expecting a real vector"\r
-#define SCI_ERRMSG204_1                        "Argument "\r
-#define SCI_ERRMSG204_2                        ", wrong type argument:"\r
-#define SCI_ERRMSG204_3                        " expecting a scalar"\r
-#define SCI_ERRMSG205_1                        "Argument "\r
-#define SCI_ERRMSG205_2                        " : wrong matrix size ("\r
-#define SCI_ERRMSG205_3                        ") expected "\r
-#define SCI_ERRMSG206_1                        "Argument "\r
-#define SCI_ERRMSG206_2                        " of "\r
-#define SCI_ERRMSG206_3                        " : wrong vector size ("\r
-#define SCI_ERRMSG206_4                        ") expected "\r
-#define SCI_ERRMSG207_1                        "Argument "\r
-#define SCI_ERRMSG207_2                        " of "\r
-#define SCI_ERRMSG207_3                        " : wrong type argument, expecting a matrix of strings"\r
-#define SCI_ERRMSG208_1                        "Argument "\r
-#define SCI_ERRMSG208_2                        " : wrong type argument, expecting a booleen matrix"\r
-#define SCI_ERRMSG209_1                        "Argument "\r
-#define SCI_ERRMSG209_2                        " of "\r
-#define SCI_ERRMSG209_3                        " : wrong type argument, expecting a matrix"\r
-#define SCI_ERRMSG210_1                        "Argument "\r
-#define SCI_ERRMSG210_2                        " of "\r
-#define SCI_ERRMSG210_3                        " : wrong type argument, expecting a list"\r
-#define SCI_ERRMSG211_1                "Argument "\r
-#define SCI_ERRMSG211_2                        " of "\r
-#define SCI_ERRMSG211_3                        " : wrong type argument, expecting a function"\r
-#define SCI_ERRMSG211_4                        " or string (external function)"\r
-#define SCI_ERRMSG212_1                        "Argument "\r
-#define SCI_ERRMSG212_2                        " of "\r
-#define SCI_ERRMSG212_3                        " : wrong type argument, expecting a polynomial matrix"\r
-#define SCI_ERRMSG213_1                "Argument "\r
-#define SCI_ERRMSG213_2                        " : wrong type argument, expecting a working"\r
-#define SCI_ERRMSG213_3                        " integer matrix"\r
-#define SCI_ERRMSG214_1                        "Argument "\r
-#define SCI_ERRMSG214_2                        " of "\r
-#define SCI_ERRMSG214_3                        " : wrong type argument,"\r
-#define SCI_ERRMSG214_4                        " expecting a  vector"\r
-#define SCI_ERRMSG215_1                        "th argument type must be boolean"\r
-#define SCI_ERRMSG215_2                        "argument type must be boolean"\r
-#define SCI_ERRMSG216_1                        "th argument type must be boolean or scalar"\r
-#define SCI_ERRMSG216_2                        "argument type must be boolean or scalar"\r
-#define SCI_ERRMSG217_1                        "th argument  must be a sparse matrix of scalars"\r
-#define SCI_ERRMSG217_2                        "argument type must be a sparse matrix of scalars"\r
-#define SCI_ERRMSG218_1                        "th argument  must be a  handle to sparse lu factors"\r
-#define SCI_ERRMSG218_2                        "argument type must be a  handle to sparse lu factors"\r
-#define SCI_ERRMSG219_1                        "th argument  must be a sparse or full scalar matrix"\r
-#define SCI_ERRMSG219_2                        "argument type must be a sparse or full scalar matrix"\r
-#define SCI_ERRMSG220                  "null variable cannot be used here"\r
-#define SCI_ERRMSG221                  "A sparse matrix entry is defined with two differents values"\r
-#define SCI_ERRMSG222                  "lusolve not yet implemented for full RHS"\r
-#define SCI_ERRMSG223_1                        "It is not possible to redefine the "\r
-#define SCI_ERRMSG223_2                        " primitive this way (see clearfun)."\r
-#define SCI_ERRMSG224                  "Type data base is full"\r
-#define SCI_ERRMSG225                  "This data type is already defined"\r
-#define SCI_ERRMSG226                  "Inequality comparison with empty matrix"\r
-#define SCI_ERRMSG227                  "Missing index"\r
-#define SCI_ERRMSG228                  "reference to the cleared global variable "\r
-#define SCI_ERRMSG230                  "semidef fails"\r
-#define SCI_ERRMSG231                  "First argument must be a single string"\r
-#define SCI_ERRMSG232                  "Entry name not found"\r
-#define SCI_ERRMSG233                  "Maximum number of dynamic interfaces reached"\r
-#define SCI_ERRMSG234                  "link: expecting more than one argument"\r
-#define SCI_ERRMSG235                  "link: problem with one of the entry point"\r
-#define SCI_ERRMSG236                  "link: the shared archive was not loaded"\r
-#define SCI_ERRMSG237                  "link: Only one entry point allowed On this operating system"\r
-#define SCI_ERRMSG238                  "link: First argument  cannot be a number"\r
-#define SCI_ERRMSG239                  "You cannot link more functions, maxentry reached"\r
-#define SCI_ERRMSG240_1                        "File "\r
-#define SCI_ERRMSG240_2                        " already exists or "\r
-#define SCI_ERRMSG240_3                        "directory write access denied "\r
-#define SCI_ERRMSG241_1                        "File "\r
-#define SCI_ERRMSG241_2                        " does not exist or "\r
-#define SCI_ERRMSG241_3                        "read access denied "\r
-#define SCI_ERRMSG242                  "binary direct acces files must be opened by 'file'"\r
-#define SCI_ERRMSG243                  "C file logical unit not allowed here"\r
-#define SCI_ERRMSG244                  "Fortran file logical unit not allowed here"\r
-#define SCI_ERRMSG245                  "No input file associated to logical unit "\r
-#define SCI_ERRMSG246_1                        "function not defined for given argument type(s),"\r
-#define SCI_ERRMSG246_2                        "  check arguments or define function "\r
-#define SCI_ERRMSG246_3                        " for overloading"\r
-#define SCI_ERRMSG248_1                        "th argument is not a valid variable name"\r
-#define SCI_ERRMSG248_2                        "argument is not a valid variable name"\r
-#define SCI_ERRMSG249_1                "th argument must not be an empty string"\r
-#define SCI_ERRMSG249_2                        "argument must not be an empty string"\r
-#define SCI_ERRMSG250                  "Recursive extraction is not valid in this context"\r
-#define SCI_ERRMSG251                  "bvode: ipar dimensioned at least 11"\r
-#define SCI_ERRMSG252                  "bvode: ltol must be of size ipar(4)"\r
-#define SCI_ERRMSG253                  "bvode: fixpnt must be of size ipar(11)"\r
-#define SCI_ERRMSG254                  "bvode: ncomp < 20 requested "\r
-#define SCI_ERRMSG255                  "bvode: m must be of size ncomp"\r
-#define SCI_ERRMSG256                  "bvode: sum(m) must be less than 40"\r
-#define SCI_ERRMSG257                  "bvode: sum(m) must be less than 40"\r
-#define SCI_ERRMSG258                  "bvode: input data error"\r
-#define SCI_ERRMSG259                  "bvode: no. of subintervals exceeds storage"\r
-#define SCI_ERRMSG260                  "bvode: Th colocation matrix is singular"\r
-#define SCI_ERRMSG261                  "Interface property table is full"\r
-#define SCI_ERRMSG262                  "too many global variables!,max number is "\r
-#define SCI_ERRMSG263                  "Error while writing in file,(disk full or deleted file)"\r
-#define SCI_ERRMSG264_1                        "th argument must not contain NaN or Inf"\r
-#define SCI_ERRMSG264_2                "argument must not  contain NaN or Inf"\r
-#define SCI_ERRMSG265                  "A and B must have equal number of rows"\r
-#define SCI_ERRMSG266                  "A and B must have equal number of columns"\r
-#define SCI_ERRMSG267                  "A and B must have equal dimensions"\r
-#define SCI_ERRMSG268                  "invalid return value for function passed in argument "\r
-#define SCI_ERRMSG269_1                "th argument eigenvalues must have negative real parts"\r
-#define SCI_ERRMSG269_2                        "argument eigenvalues must have negative real parts"\r
-#define SCI_ERRMSG270_1                        "th argument eigenvalues modulus must be less than one"\r
-#define SCI_ERRMSG270_2                        "argument eigenvalues modulus must be less than one"\r
-#define SCI_ERRMSG271_1                        "Size varying argument a*eye(), (arg "\r
-#define SCI_ERRMSG271_2                ") not allowed here"\r
-#define SCI_ERRMSG271_3                        "Size varying argument a*eye() not allowed here"\r
-#define SCI_ERRMSG272                  "endfunction is missing"\r
-#define SCI_ERRMSG273                  "Instruction left hand side: waiting for a dot or a left parenthesis"\r
-#define SCI_ERRMSG274                  "Instruction left hand side: waiting for a name"\r
-#define SCI_ERRMSG275                  "varargout keyword cannot be used here"\r
-#define SCI_ERRMSG276                  "Missing operator, comma, or semicolon"\r
-#define SCI_ERRMSG277                  "Too many commands defined"\r
\r
-\r
-\r
+#define SCI_ERRMSG1                            "incorrect assignment"
+#define SCI_ERRMSG2                            "invalid factor"
+#define SCI_ERRMSG3                            "waiting for right parenthesis"
+#define SCI_ERRMSG4                            "undefined variable : %s"
+#define SCI_ERRMSG5                            "inconsistent column/row dimensions"
+#define SCI_ERRMSG6                            "inconsistent row/column dimensions"
+#define SCI_ERRMSG7                            "dot cannot be used as modifier for this operator"
+#define SCI_ERRMSG8                            "inconsistent addition"
+#define SCI_ERRMSG9                            "inconsistent subtraction"
+#define SCI_ERRMSG10                   "inconsistent multiplication"
+#define SCI_ERRMSG11                   "inconsistent right division "
+#define SCI_ERRMSG12                   "inconsistent left division"
+#define SCI_ERRMSG13                   "redefining permanent variable"
+#define SCI_ERRMSG14                   "eye variable undefined in this context"
+#define SCI_ERRMSG15                   "submatrix incorrectly defined"
+#define SCI_ERRMSG16                   "incorrect command!"
+#define SCI_ERRMSG17_1                 "stack size exceeded! (Use stacksize function to increase it)"
+#define SCI_ERRMSG17_2                 "Memory used for variables :"
+#define SCI_ERRMSG17_3                 "Intermediate memory needed:"
+#define SCI_ERRMSG17_4                 "Total  memory available   :"
+#define SCI_ERRMSG18                   "too many variables!"
+#define SCI_ERRMSG19                   "Problem is singular"
+#define SCI_ERRMSG20_1                 "th argument must be square matrix"
+#define SCI_ERRMSG20_2                 "first argument must be square matrix"
+#define SCI_ERRMSG21                   "invalid index"
+#define SCI_ERRMSG22                   " recursion problems. Sorry...."
+#define SCI_ERRMSG23                   " Matrix norms available are 1, 2, inf, and fro"
+#define SCI_ERRMSG24                   "convergence problem..."
+#define SCI_ERRMSG25                   "bad call to primitive :"
+#define SCI_ERRMSG26                   "too complex recursion! (recursion tables are full))"
+#define SCI_ERRMSG27                   "division by zero..."
+#define SCI_ERRMSG28                   "empty function..."
+#define SCI_ERRMSG29                   "matrix is not positive definite"
+#define SCI_ERRMSG30                   "invalid exponent"
+#define SCI_ERRMSG31                   "incorrect string"
+#define SCI_ERRMSG32                   "singularity of log or tan function"
+#define SCI_ERRMSG33                   "too many ':'"
+#define SCI_ERRMSG34                   "incorrect control intruction syntax"
+#define SCI_ERRMSG35_1                 "Syntax error in an if instruction"
+#define SCI_ERRMSG35_2                 "Syntax error in a while instruction"
+#define SCI_ERRMSG35_3                         "Syntax error in a select/case instruction"
+#define SCI_ERRMSG36_1                 "th argument is incorrect here"
+#define SCI_ERRMSG36_2                 "first argument is incorrect"
+#define SCI_ERRMSG37                   "incorrect function at line     "
+#define SCI_ERRMSG38                   "file name incorrect"
+#define SCI_ERRMSG39                   "incorrect number of arguments"
+#define SCI_ERRMSG40                   "waiting for end of command"
+#define SCI_ERRMSG41                   "incompatible LHS"
+#define SCI_ERRMSG42                   "incompatible RHS"
+#define SCI_ERRMSG43                   "not implemented in scilab...."
+#define SCI_ERRMSG44_1                 "th argument is incorrect"
+#define SCI_ERRMSG44_2                         "first argument is incorrect"
+#define SCI_ERRMSG45                   "null matrix (argument #"
+#define SCI_ERRMSG46                   "incorrect syntax"
+#define SCI_ERRMSG47                   " end or else is missing..."
+#define SCI_ERRMSG48                   " input line longer than buffer size:"
+#define SCI_ERRMSG49                   "incorrect file or format"
+#define SCI_ERRMSG50                   "subroutine not found : "
+#define SCI_ERRMSG51                   "th argument must be a real matrix"
+#define SCI_ERRMSG52_1                         "th argument must be a real matrix"
+#define SCI_ERRMSG52_2                         "argument must be a real matrix"
+#define SCI_ERRMSG53_1                         "th input is invalid (waiting for real or complex matrix)       "
+#define SCI_ERRMSG53_2                         "invalid input (waiting for real or complex matrix)     "
+#define SCI_ERRMSG54_1                 "th argument type must be polynomial"
+#define SCI_ERRMSG54_2                 "argument type must be polynomial"
+#define SCI_ERRMSG55_1                 "th argument type must be character string"
+#define SCI_ERRMSG55_2                 "argument type must be  character string"
+#define SCI_ERRMSG56_1                 "th argument must be a list"
+#define SCI_ERRMSG56_2                 "argument must be a list"
+#define SCI_ERRMSG57                   "problem with comparison symbol..."
+#define SCI_ERRMSG58_1                 "function has no input argument..."
+#define SCI_ERRMSG58_2                 "incorrect number of arguments in function call..."
+#define SCI_ERRMSG58_3                 "arguments are :"
+#define SCI_ERRMSG59_1                 "function has no output"
+#define SCI_ERRMSG59_2                 "incorrect # of outputs in the function"
+#define SCI_ERRMSG59_3                 "arguments are :"
+#define SCI_ERRMSG60                   "argument with incompatible dimensions"
+#define SCI_ERRMSG61                   "direct acces : give format"
+#define SCI_ERRMSG62                   "end of file at line    "
+#define SCI_ERRMSG63                   "graphic terminal?"
+#define SCI_ERRMSG64                   "integration fails"
+#define SCI_ERRMSG65                   ": logical unit already used"
+#define SCI_ERRMSG66                   "no more logical units available!"
+#define SCI_ERRMSG67                   "unknown file format "
+#define SCI_ERRMSG68_1                 "fatal error!!! your variables are saved in file :"
+#define SCI_ERRMSG68_2                 " bad call to a scilab function ? check"
+#define SCI_ERRMSG68_3                 " ... otherwise send a bug report to : the Scilab group"
+#define SCI_ERRMSG69                   "floating point exception"
+#define SCI_ERRMSG70                   "too many arguments in fort (max 30)"
+#define SCI_ERRMSG71                   "this variable is not valid in fort"
+#define SCI_ERRMSG72                   "is not valid in this context"
+#define SCI_ERRMSG73                   "error while linking"
+#define SCI_ERRMSG74                   "Leading coefficient is zero"
+#define SCI_ERRMSG75                   "Too high degree (max 100)"
+#define SCI_ERRMSG76_1                 "for x=val with type(val)="
+#define SCI_ERRMSG76_2                 " is not implemented in Scilab"
+#define SCI_ERRMSG77                   " : wrong number of rhs arguments"
+#define SCI_ERRMSG78                   " : wrong number of lhs arguments"
+#define SCI_ERRMSG80                   " incorrect function (argument n:"
+#define SCI_ERRMSG81_1                 "Argument "
+#define SCI_ERRMSG81_2                 " : wrong type argument, expecting a "
+#define SCI_ERRMSG81_3                 " real or complex matrix"
+#define SCI_ERRMSG82_1                 "Argument "
+#define SCI_ERRMSG82_2                 " : wrong type argument, expecting a real matrix"
+#define SCI_ERRMSG83_1                 "Argument "
+#define SCI_ERRMSG83_2                 " : wrong type argument, expecting a real vector"
+#define SCI_ERRMSG84_1                 "Argument "
+#define SCI_ERRMSG84_2                 " : wrong type argument, expecting a scalar"
+#define SCI_ERRMSG85                   "host does not answer..."
+#define SCI_ERRMSG86                   "uncontrollable system"
+#define SCI_ERRMSG87                   "unobservable system"
+#define SCI_ERRMSG88                   "sfact : singular  or assymetric problem"
+#define SCI_ERRMSG89_1                 "th argument has incorrect dimensions"
+#define SCI_ERRMSG89_2                 "argument has incorrect dimensions"
+#define SCI_ERRMSG90_1                 "th argument must be a transfer matrix"
+#define SCI_ERRMSG90_2                 "argument must be a transfer matrix"
+#define SCI_ERRMSG91_1                 "th argument must be in state space form"
+#define SCI_ERRMSG91_2                 "argument must be in state space form"
+#define SCI_ERRMSG92_1                 "th argument must be a rational matrix"
+#define SCI_ERRMSG92_2                 "argument must be a rational matrix"
+#define SCI_ERRMSG93_1                 "th argument must be in continuous time"
+#define SCI_ERRMSG93_2                 "waiting for continuous time..."
+#define SCI_ERRMSG94_1                 "th argument must be in discrete time"
+#define SCI_ERRMSG94_2                 "argument must be in discrete time"
+#define SCI_ERRMSG95_1                 "th argument must "
+#define SCI_ERRMSG95_2                 "argument must be SISO"
+#define SCI_ERRMSG96_1                 "time domain of "
+#define SCI_ERRMSG96_2                 " th argument is not defined"
+#define SCI_ERRMSG96_3                 "time domain of argument is not defined"
+#define SCI_ERRMSG97_1                 "th argument must be a system "
+#define SCI_ERRMSG97_2                 "in state space or transfer matrix form"
+#define SCI_ERRMSG97_3                 "input argument must be a system in state space or transfer matrix form"
+#define SCI_ERRMSG98                   " variable returned by scilab argument function is incorrect"
+#define SCI_ERRMSG99_1                 " elements of "
+#define SCI_ERRMSG99_2                 "th must be in increasing order!"
+#define SCI_ERRMSG99_3                 "elements of first argument are not (strictly) increasing"
+#define SCI_ERRMSG100_1                        "the elements of "
+#define SCI_ERRMSG100_2                        "th argument are not in (strictly) decreasing order"
+#define SCI_ERRMSG100_3                        "elements of first argument are not in (strictly) decreasing order"
+#define SCI_ERRMSG101_1                        "last element of "
+#define SCI_ERRMSG101_2                        "th argument <>  first"
+#define SCI_ERRMSG101_3                        "last element of first argument does not matches the first one"
+#define SCI_ERRMSG102_1                        "variable or function "
+#define SCI_ERRMSG102_2                        " is not in file "
+#define SCI_ERRMSG103_1                        " variable "
+#define SCI_ERRMSG103_2                        " is not a valid rational function "
+#define SCI_ERRMSG104_1                        " variable "
+#define SCI_ERRMSG104_2                        " is not a valid state space representation"
+#define SCI_ERRMSG105                  "undefined fonction"
+#define SCI_ERRMSG106                  " fonction name already used"
+#define SCI_ERRMSG107_1                        "too many functions are defined (maximum #:"
+#define SCI_ERRMSG108                  "too complex for scilab, may be a too longcontrol instruction"
+#define SCI_ERRMSG109                  "too large, can't be displayed"
+#define SCI_ERRMSG110_1                        " was a function when"
+#define SCI_ERRMSG110_2                        " compiled but is now a primitive!"
+#define SCI_ERRMSG111                  "trying to re-define  function "
+#define SCI_ERRMSG112                  "Cannot allocate more memory"
+#define SCI_ERRMSG113                  "too large string"
+#define SCI_ERRMSG114                  "too many linked routines"
+#define SCI_ERRMSG115_1                        "Stack problem detected within a loop"
+#define SCI_ERRMSG115_2                        " a primitive function has been called with wrong number"
+#define SCI_ERRMSG115_3                        " of lhs arguments. No lhs test made for this function "
+#define SCI_ERRMSG115_4                        " please report this bug"
+#define SCI_ERRMSG116_1                        "th argument has incorrect value"
+#define SCI_ERRMSG116_2                        "first argument has incorrect value"
+#define SCI_ERRMSG117_1                        "List element"
+#define SCI_ERRMSG117_2                        " is Undefined"
+#define SCI_ERRMSG118_1                        "th argument must be a named variable not an expression"
+#define SCI_ERRMSG118_2                        "argument must be a named variable not an expression "
+#define SCI_ERRMSG120                  "indices for non-zero elements must be given by a 2 column matrix"
+#define SCI_ERRMSG121                  "incompatible indices for non-zero elements "
+#define SCI_ERRMSG122                  " logical unit number should be   larger than "
+#define SCI_ERRMSG123                  " function not bounded from below"
+#define SCI_ERRMSG125                  " problem may be unbounded :too high distance between two consecutive iterations"
+#define SCI_ERRMSG126                  "Inconsistent constraints"
+#define SCI_ERRMSG127                  "no feasible solution"
+#define SCI_ERRMSG128                  "degenerate starting point"
+#define SCI_ERRMSG129                  "no feasible point has been found"
+#define SCI_ERRMSG130                  "  optimization fails: back to initial point"
+#define SCI_ERRMSG131                  " optim: stop requested by simulator (ind=0)"
+#define SCI_ERRMSG132                  " optim: incorrect input parameters"
+#define SCI_ERRMSG133                  " too small memory"
+#define SCI_ERRMSG134                  "optim: problem with initial constants in simul "
+#define SCI_ERRMSG135                  "optim : bounds and initial guess are incompatible"
+#define SCI_ERRMSG136                  "optim : this method is NOT implemented "
+#define SCI_ERRMSG137                  "NO hot restart available in this method"
+#define SCI_ERRMSG138                  "optim : incorrect stopping parameters"
+#define SCI_ERRMSG139                  "optim : incorrect bounds"
+#define SCI_ERRMSG141                  " incorrect function (argument n:"
+#define SCI_ERRMSG142                  "hot restart : dimension of working table (argument n:"
+#define SCI_ERRMSG143                  "optim : df0 must be positive !"
+#define SCI_ERRMSG144_1                        "Undefined operation for the given operands"
+#define SCI_ERRMSG144_2                        "  check or define function "
+#define SCI_ERRMSG144_3                        " for overloading"
+
+#define SCI_ERRMSG201_1                        "Argument "
+#define SCI_ERRMSG201_2                        " : wrong type argument,"
+#define SCI_ERRMSG201_3                        " expecting a real or complex matrix"
+#define SCI_ERRMSG202_1                        "Argument "
+#define SCI_ERRMSG202_2                        " : wrong type argument,"
+#define SCI_ERRMSG202_3                        " expecting a real matrix"
+#define SCI_ERRMSG203_1                        "Argument "
+#define SCI_ERRMSG203_2                        " : wrong type argument,"
+#define SCI_ERRMSG203_3                        " expecting a real vector"
+#define SCI_ERRMSG204_1                        "Argument "
+#define SCI_ERRMSG204_2                        ", wrong type argument:"
+#define SCI_ERRMSG204_3                        " expecting a scalar"
+#define SCI_ERRMSG205_1                        "Argument "
+#define SCI_ERRMSG205_2                        " : wrong matrix size ("
+#define SCI_ERRMSG205_3                        ") expected "
+#define SCI_ERRMSG206_1                        "Argument "
+#define SCI_ERRMSG206_2                        " of "
+#define SCI_ERRMSG206_3                        " : wrong vector size ("
+#define SCI_ERRMSG206_4                        ") expected "
+#define SCI_ERRMSG207_1                        "Argument "
+#define SCI_ERRMSG207_2                        " of "
+#define SCI_ERRMSG207_3                        " : wrong type argument, expecting a matrix of strings"
+#define SCI_ERRMSG208_1                        "Argument "
+#define SCI_ERRMSG208_2                        " : wrong type argument, expecting a booleen matrix"
+#define SCI_ERRMSG209_1                        "Argument "
+#define SCI_ERRMSG209_2                        " of "
+#define SCI_ERRMSG209_3                        " : wrong type argument, expecting a matrix"
+#define SCI_ERRMSG210_1                        "Argument "
+#define SCI_ERRMSG210_2                        " of "
+#define SCI_ERRMSG210_3                        " : wrong type argument, expecting a list"
+#define SCI_ERRMSG211_1                "Argument "
+#define SCI_ERRMSG211_2                        " of "
+#define SCI_ERRMSG211_3                        " : wrong type argument, expecting a function"
+#define SCI_ERRMSG211_4                        " or string (external function)"
+#define SCI_ERRMSG212_1                        "Argument "
+#define SCI_ERRMSG212_2                        " of "
+#define SCI_ERRMSG212_3                        " : wrong type argument, expecting a polynomial matrix"
+#define SCI_ERRMSG213_1                "Argument "
+#define SCI_ERRMSG213_2                        " : wrong type argument, expecting a working"
+#define SCI_ERRMSG213_3                        " integer matrix"
+#define SCI_ERRMSG214_1                        "Argument "
+#define SCI_ERRMSG214_2                        " of "
+#define SCI_ERRMSG214_3                        " : wrong type argument,"
+#define SCI_ERRMSG214_4                        " expecting a  vector"
+#define SCI_ERRMSG215_1                        "th argument type must be boolean"
+#define SCI_ERRMSG215_2                        "argument type must be boolean"
+#define SCI_ERRMSG216_1                        "th argument type must be boolean or scalar"
+#define SCI_ERRMSG216_2                        "argument type must be boolean or scalar"
+#define SCI_ERRMSG217_1                        "th argument  must be a sparse matrix of scalars"
+#define SCI_ERRMSG217_2                        "argument type must be a sparse matrix of scalars"
+#define SCI_ERRMSG218_1                        "th argument  must be a  handle to sparse lu factors"
+#define SCI_ERRMSG218_2                        "argument type must be a  handle to sparse lu factors"
+#define SCI_ERRMSG219_1                        "th argument  must be a sparse or full scalar matrix"
+#define SCI_ERRMSG219_2                        "argument type must be a sparse or full scalar matrix"
+#define SCI_ERRMSG220                  "null variable cannot be used here"
+#define SCI_ERRMSG221                  "A sparse matrix entry is defined with two differents values"
+#define SCI_ERRMSG222                  "lusolve not yet implemented for full RHS"
+#define SCI_ERRMSG223_1                        "It is not possible to redefine the "
+#define SCI_ERRMSG223_2                        " primitive this way (see clearfun)."
+#define SCI_ERRMSG224                  "Type data base is full"
+#define SCI_ERRMSG225                  "This data type is already defined"
+#define SCI_ERRMSG226                  "Inequality comparison with empty matrix"
+#define SCI_ERRMSG227                  "Missing index"
+#define SCI_ERRMSG228                  "reference to the cleared global variable "
+#define SCI_ERRMSG230                  "semidef fails"
+#define SCI_ERRMSG231                  "First argument must be a single string"
+#define SCI_ERRMSG232                  "Entry name not found"
+#define SCI_ERRMSG233                  "Maximum number of dynamic interfaces reached"
+#define SCI_ERRMSG234                  "link: expecting more than one argument"
+#define SCI_ERRMSG235                  "link: problem with one of the entry point"
+#define SCI_ERRMSG236                  "link: the shared archive was not loaded"
+#define SCI_ERRMSG237                  "link: Only one entry point allowed On this operating system"
+#define SCI_ERRMSG238                  "link: First argument  cannot be a number"
+#define SCI_ERRMSG239                  "You cannot link more functions, maxentry reached"
+#define SCI_ERRMSG240_1                        "File "
+#define SCI_ERRMSG240_2                        " already exists or "
+#define SCI_ERRMSG240_3                        "directory write access denied "
+#define SCI_ERRMSG241_1                        "File "
+#define SCI_ERRMSG241_2                        " does not exist or "
+#define SCI_ERRMSG241_3                        "read access denied "
+#define SCI_ERRMSG242                  "binary direct acces files must be opened by 'file'"
+#define SCI_ERRMSG243                  "C file logical unit not allowed here"
+#define SCI_ERRMSG244                  "Fortran file logical unit not allowed here"
+#define SCI_ERRMSG245                  "No input file associated to logical unit "
+#define SCI_ERRMSG246_1                        "function not defined for given argument type(s),"
+#define SCI_ERRMSG246_2                        "  check arguments or define function "
+#define SCI_ERRMSG246_3                        " for overloading"
+#define SCI_ERRMSG248_1                        "th argument is not a valid variable name"
+#define SCI_ERRMSG248_2                        "argument is not a valid variable name"
+#define SCI_ERRMSG249_1                "th argument must not be an empty string"
+#define SCI_ERRMSG249_2                        "argument must not be an empty string"
+#define SCI_ERRMSG250                  "Recursive extraction is not valid in this context"
+#define SCI_ERRMSG251                  "bvode: ipar dimensioned at least 11"
+#define SCI_ERRMSG252                  "bvode: ltol must be of size ipar(4)"
+#define SCI_ERRMSG253                  "bvode: fixpnt must be of size ipar(11)"
+#define SCI_ERRMSG254                  "bvode: ncomp < 20 requested "
+#define SCI_ERRMSG255                  "bvode: m must be of size ncomp"
+#define SCI_ERRMSG256                  "bvode: sum(m) must be less than 40"
+#define SCI_ERRMSG257                  "bvode: sum(m) must be less than 40"
+#define SCI_ERRMSG258                  "bvode: input data error"
+#define SCI_ERRMSG259                  "bvode: no. of subintervals exceeds storage"
+#define SCI_ERRMSG260                  "bvode: Th colocation matrix is singular"
+#define SCI_ERRMSG261                  "Interface property table is full"
+#define SCI_ERRMSG262                  "too many global variables!,max number is "
+#define SCI_ERRMSG263                  "Error while writing in file,(disk full or deleted file)"
+#define SCI_ERRMSG264_1                        "th argument must not contain NaN or Inf"
+#define SCI_ERRMSG264_2                "argument must not  contain NaN or Inf"
+#define SCI_ERRMSG265                  "A and B must have equal number of rows"
+#define SCI_ERRMSG266                  "A and B must have equal number of columns"
+#define SCI_ERRMSG267                  "A and B must have equal dimensions"
+#define SCI_ERRMSG268                  "invalid return value for function passed in argument "
+#define SCI_ERRMSG269_1                "th argument eigenvalues must have negative real parts"
+#define SCI_ERRMSG269_2                        "argument eigenvalues must have negative real parts"
+#define SCI_ERRMSG270_1                        "th argument eigenvalues modulus must be less than one"
+#define SCI_ERRMSG270_2                        "argument eigenvalues modulus must be less than one"
+#define SCI_ERRMSG271_1                        "Size varying argument a*eye(), (arg "
+#define SCI_ERRMSG271_2                ") not allowed here"
+#define SCI_ERRMSG271_3                        "Size varying argument a*eye() not allowed here"
+#define SCI_ERRMSG272                  "endfunction is missing"
+#define SCI_ERRMSG273                  "Instruction left hand side: waiting for a dot or a left parenthesis"
+#define SCI_ERRMSG274                  "Instruction left hand side: waiting for a name"
+#define SCI_ERRMSG275                  "varargout keyword cannot be used here"
+#define SCI_ERRMSG276                  "Missing operator, comma, or semicolon"
+#define SCI_ERRMSG277                  "Too many commands defined"
+
+
index 69d1905..6ed2cd5 100644 (file)
@@ -1,8 +1,8 @@
-//------------------------------------\r
-// Allan CORNET INRIA 2006\r
-//------------------------------------\r
-SCI=getenv('SCI'); \r
-TMPDIR=getenv('TMPDIR');\r
-//------------------------------------\r
-genlib('corelib','SCI/modules/core/macros');\r
-//------------------------------------\r
+//------------------------------------
+// Allan CORNET INRIA 2006
+//------------------------------------
+SCI=getenv('SCI'); 
+TMPDIR=getenv('TMPDIR');
+//------------------------------------
+genlib('corelib','SCI/modules/core/macros');
+//------------------------------------
index b3d5d2a..f08bcf2 100644 (file)
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2006 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/\r
-#include <string.h>\r
-#include <stdio.h>\r
-#include "machine.h"\r
-#include "stack-c.h"\r
-#include "MALLOC.h"\r
-#include "msg_errors.h"\r
-/*-----------------------------------------------------------------------------------*/\r
-#define MSGOUT(msg) C2F(msgout)(&io, &lunit, msg, strlen(msg));\r
-/*-----------------------------------------------------------------------------------*/\r
-extern int C2F(freemsgtable)();\r
-extern int C2F(errstore)();\r
-extern int C2F(funnamestore)();\r
-extern int C2F(linestore)();\r
-extern int C2F(showstack)();\r
-extern int C2F(inffic)();\r
-extern int C2F(cvname)();\r
-extern int C2F(prntid)();\r
-extern int C2F(msgout)();\r
-/*-----------------------------------------------------------------------------------*/\r
-int C2F(errmsg)(integer *n,integer *errtyp)\r
-{\r
-       int i=0;\r
-    static integer lunit=0;\r
-       static integer ll=0;\r
-    static integer io=0;\r
-    \r
-    ll = C2F(iop).lct[4];\r
-    lunit = C2F(iop).wte;\r
-    *errtyp = 0;\r
-\r
-    C2F(linestore)(&i);\r
-    C2F(funnamestore)(" ", &i,strlen(" "));\r
-    C2F(freemsgtable)();\r
-    C2F(errstore)(n);\r
-    \r
-    switch ((int)*n) \r
-    {\r
-                       case 1:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG1);\r
-                       }\r
-                       break;\r
-                       case 2:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG2);\r
-                       *errtyp = 1;\r
-                       }\r
-                       break;\r
-                       case 3:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG3);\r
-                       *errtyp = 1;\r
-                       }\r
-                       break;\r
-                       case 4:\r
-                       {\r
-                               char *Str=NULL;\r
-                               C2F(cvname)(&C2F(recu).ids[(C2F(recu).pt + 1) * 6 - 6], C2F(cha1).buf, &i, 4096L);\r
-                               Str=(char*)MALLOC( sizeof(char)*( strlen(SCI_ERRMSG4)+1+strlen(C2F(cha1).buf) ) );\r
-                               sprintf(Str,SCI_ERRMSG4,C2F(cha1).buf);\r
-                               MSGOUT(Str);\r
-                               FREE(Str);\r
-                       }\r
-                       break;\r
-                       case 5:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG5);\r
-                       }\r
-                       break;\r
-                       case 6:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG6);\r
-                       }\r
-                       break;\r
-                       case 7:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG7);\r
-                       }\r
-                       break;\r
-                       case 8:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG8);\r
-                       }\r
-                       break;\r
-                       case 9:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG9);\r
-                       }\r
-                       break;\r
-                       case 10:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG10);\r
-                       }\r
-                       break;\r
-                       case 11:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG11);\r
-                       }\r
-                       break;\r
-                       case 12:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG12);\r
-                       }\r
-                       break;\r
-                       case 13:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG13);\r
-                       }\r
-                       break;\r
-                       case 14:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG14);\r
-                       }\r
-                       break;\r
-                       case 15:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG15);\r
-                       }\r
-                       break;\r
-                       case 16:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG16);\r
-                               *errtyp = 1;\r
-                       }\r
-                       break;\r
-                       case 17:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 18:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG18);\r
-                       }\r
-                       break;\r
-                       case 19:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG19);\r
-                       }\r
-                       break;\r
-                       case 20:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 21:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG21);\r
-                       }\r
-                       break;\r
-                       case 22:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG22);\r
-                       }\r
-                       break;\r
-                       case 23:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG23);\r
-                       }\r
-                       break;\r
-                       case 24:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG24);\r
-                       }\r
-                       break;\r
-                       case 25:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 26:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 27:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG27);\r
-                       }\r
-                       break;\r
-                       case 28:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG28);\r
-                       }\r
-                       break;\r
-                       case 29:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG29);\r
-                       }\r
-                       break;\r
-                       case 30:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG30);\r
-                       }\r
-                       break;\r
-                       case 31:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 32:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG32);\r
-                       }\r
-                       break;\r
-                       case 33:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG33);\r
-                       }\r
-                       break;\r
-                       case 34:\r
-                       {\r
-\r
-                       }\r
-                       break;\r
-                       case 35:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 36:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 37:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 38:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG38);\r
-                       }\r
-                       break;\r
-                       case 39:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG39);\r
-                       }\r
-                       break;\r
-                       case 40:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 41:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG41);\r
-                       }\r
-                       break;\r
-                       case 42:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG42);\r
-                       }\r
-                       break;\r
-                       case 43:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG43);\r
-                       }\r
-                       break;\r
-                       case 44:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 45:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 46:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 47:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 48:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 49:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG49);\r
-                       }\r
-                       break;\r
-                       case 50:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 51:\r
-                       {\r
-                               /* Pas de message */\r
-                       }\r
-                       break;\r
-                       case 52:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 53:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 54:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 55:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 56:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 57:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG57);\r
-                       }\r
-                       break;\r
-                       case 58:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 59:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 60:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG60);\r
-                       }\r
-                       break;\r
-                       case 61:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG61);\r
-                       }\r
-                       break;\r
-                       case 62:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 63:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 64:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG64);\r
-                       }\r
-                       break;\r
-                       case 65:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 66:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG66);\r
-                       }\r
-                       break;\r
-                       case 67:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG67);\r
-                       }\r
-                       break;\r
-                       case 68:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 69:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG69);\r
-                       }\r
-                       break;\r
-                       case 70:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG70);\r
-                       }\r
-                       break;\r
-                       case 71:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG71);\r
-                       }\r
-                       break;\r
-                       case 72:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 73:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG73);\r
-                       }\r
-                       break;\r
-                       case 74:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG74);\r
-                       }\r
-                       break;\r
-                       case 75:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG75);\r
-                       }\r
-                       break;\r
-                       case 76:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 77:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 78:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 79:\r
-                       {\r
-                               /* pas de message */\r
-                       }\r
-                       break;\r
-                       case 80:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 81:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 82:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 83:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 84:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 85:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG85);\r
-                       }\r
-                       break;\r
-                       case 86:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG86);\r
-                       }\r
-                       break;\r
-                       case 87:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG87);\r
-                       }\r
-                       break;\r
-                       case 88:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG88);\r
-                       }\r
-                       break;\r
-                       case 89:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 90:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 91:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 92:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 93:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 94:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 95:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 96:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 97:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 98:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 99:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 100:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 101:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 102:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 103:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 104:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 105:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG105);\r
-                       }\r
-                       break;\r
-                       case 106:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG106);\r
-                       }\r
-                       break;\r
-                       case 107:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 108:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 109:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG109);\r
-                       }\r
-                       break;\r
-                       case 110:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 111:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 112:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG112);\r
-                       }\r
-                       break;\r
-                       case 113:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG113);\r
-                       }\r
-                       break;\r
-                       case 114:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG114);\r
-                       }\r
-                       break;\r
-                       case 115:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 116:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 117:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 118:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 119:\r
-                       {\r
-                               /* pas de message */\r
-                       }\r
-                       break;\r
-                       case 120:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 121:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 122:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 123:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG123);\r
-                       }\r
-                       break;\r
-                       case 124:\r
-                       {\r
-                               /* pas de message */\r
-                       }\r
-                       break;\r
-                       case 125:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 126:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG126);\r
-                       }\r
-                       break;\r
-                       case 127:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG127);\r
-                       }\r
-                       break;\r
-                       case 128:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG128);\r
-                       }\r
-                       break;\r
-                       case 129:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG129);\r
-                       }\r
-                       break;\r
-                       case 130:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG130);\r
-                       }\r
-                       break;\r
-                       case 131:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG131);\r
-                       }\r
-                       break;\r
-                       case 132:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG132);\r
-                       }\r
-                       break;\r
-                       case 133:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG133);\r
-                       }\r
-                       break;\r
-                       case 134:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG134);\r
-                       }\r
-                       break;\r
-                       case 135:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG135);\r
-                       }\r
-                       break;\r
-                       case 136:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG136);\r
-                       }\r
-                       break;\r
-                       case 137:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG137);\r
-                       }\r
-                       break;\r
-                       case 138:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG138);\r
-                       }\r
-                       break;\r
-                       case 139:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG139);\r
-                       }\r
-                       break;\r
-                       case 140:\r
-                       {/* pas de message */\r
-                       }\r
-                       break;\r
-                       case 141:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 142:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 143:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG143);\r
-                       }\r
-                       break;\r
-                       case 144:\r
-                       {\r
-                       }\r
-                       break;\r
-                       /*\r
-                       messages from 201 to 203 and 205 to 214 are no more used by error \r
-                       (see Scierror  in stack1.c)\r
-                       */\r
-                       case 200:\r
-                       {\r
-                               /* pas de message */\r
-                       }\r
-                       break;\r
-                       case 201:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 202:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 203:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 204:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 205:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 206:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 207:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 208:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 209:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 210:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 211:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 212:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 213:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 214:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 215:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 216:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 217:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 218:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 219:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 220:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG220);\r
-                       }\r
-                       break;\r
-                       case 221:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 222:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG222);\r
-                       }\r
-                       break;\r
-                       case 223:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 224:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG224);\r
-                       }\r
-                       break;\r
-                       case 225:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG225);\r
-                       }\r
-                       break;\r
-                       case 226:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG226);\r
-                       }\r
-                       break;\r
-                       case 227:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG227);\r
-                       }\r
-                       break;\r
-                       case 228:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 229:\r
-                       {\r
-                               /* pas de message */\r
-                       }\r
-                       break;\r
-                       case 230:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG230);\r
-                       }\r
-                       break;\r
-                       case 231:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG231);\r
-                       }\r
-                       break;\r
-                       case 232:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG232);\r
-                       }\r
-                       break;\r
-                       case 233:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 234:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG234);\r
-                       }\r
-                       break;\r
-                       case 235:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG235);\r
-                       }\r
-                       break;\r
-                       case 236:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG236);\r
-                       }\r
-                       break;\r
-                       case 237:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 238:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG238);\r
-                       }\r
-                       break;\r
-                       case 239:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 240:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 241:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 242:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 243:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG243);\r
-                       }\r
-                       break;\r
-                       case 244:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG244);\r
-                       }\r
-                       break;\r
-                       case 245:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 246:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 247:\r
-                       {\r
-                               /* pas de message */\r
-                       }\r
-                       break;\r
-                       case 248:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 249:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 250:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 251:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG251);\r
-                       }\r
-                       break;\r
-                       case 252:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG252);\r
-                       }\r
-                       break;\r
-                       case 253:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG253);\r
-                       }\r
-                       break;\r
-                       case 254:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG254);\r
-                       }\r
-                       break;\r
-                       case 255:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG255);\r
-                       }\r
-                       break;\r
-                       case 256:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG256);\r
-                       }\r
-                       break;\r
-                       case 257:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG257);\r
-                       }\r
-                       break;\r
-                       case 258:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG258);\r
-                       }\r
-                       break;\r
-                       case 259:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG259);\r
-                       }\r
-                       break;\r
-                       case 260:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG260);\r
-                       }\r
-                       break;\r
-                       case 261:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG261);\r
-                       }\r
-                       break;\r
-                       case 262:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 263:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 264:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 265:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG265);\r
-                       }\r
-                       break;\r
-                       case 266:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG266);\r
-                       }\r
-                       break;\r
-                       case 267:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG267);\r
-                       }\r
-                       break;\r
-                       case 268:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 269:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 270:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 271:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 272:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG272);\r
-                       }\r
-                       break;\r
-                       case 273:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 274:\r
-                       {\r
-                       }\r
-                       break;\r
-                       case 275:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG275);\r
-                       }\r
-                       break;\r
-                       case 276:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG276);\r
-                       }\r
-                       break;\r
-                       case 277:\r
-                       {\r
-                               MSGOUT(SCI_ERRMSG277);\r
-                       }\r
-                       break;\r
-                       case 278:\r
-                       {\r
-                               /* pas de message */\r
-                       }\r
-                       break;\r
-                       case 279:\r
-                       {\r
-                               /* pas de message */\r
-                       }\r
-                       break;\r
-                       case 280:\r
-                       {\r
-                               /* pas de message */\r
-                       }\r
-                       break;\r
-                       \r
-                       default:\r
-                       {\r
-                               integer bufl;\r
-                               /* message d'erreur soft */\r
-                               /* Bug 1422 corrected - Francois VOGEL June 2006 */\r
-                               bufl = 1;\r
-                               while(*(unsigned char *)&C2F(cha1).buf[bufl - 1] != '\0' && bufl < 80) \r
-                               {\r
-                                       ++bufl;\r
-                               }\r
-                               --bufl;\r
-                               MSGOUT(C2F(cha1).buf);\r
-                       }\r
-                       break;\r
-    }\r
-               return 0; \r
-}\r
-/*-----------------------------------------------------------------------------------*/    \r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2006 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/
+#include <string.h>
+#include <stdio.h>
+#include "machine.h"
+#include "stack-c.h"
+#include "MALLOC.h"
+#include "msg_errors.h"
+/*-----------------------------------------------------------------------------------*/
+#define MSGOUT(msg) C2F(msgout)(&io, &lunit, msg, strlen(msg));
+/*-----------------------------------------------------------------------------------*/
+extern int C2F(freemsgtable)();
+extern int C2F(errstore)();
+extern int C2F(funnamestore)();
+extern int C2F(linestore)();
+extern int C2F(showstack)();
+extern int C2F(inffic)();
+extern int C2F(cvname)();
+extern int C2F(prntid)();
+extern int C2F(msgout)();
+/*-----------------------------------------------------------------------------------*/
+int C2F(errmsg)(integer *n,integer *errtyp)
+{
+       int i=0;
+    static integer lunit=0;
+       static integer ll=0;
+    static integer io=0;
+    
+    ll = C2F(iop).lct[4];
+    lunit = C2F(iop).wte;
+    *errtyp = 0;
+
+    C2F(linestore)(&i);
+    C2F(funnamestore)(" ", &i,strlen(" "));
+    C2F(freemsgtable)();
+    C2F(errstore)(n);
+    
+    switch ((int)*n) 
+    {
+                       case 1:
+                       {
+                               MSGOUT(SCI_ERRMSG1);
+                       }
+                       break;
+                       case 2:
+                       {
+                               MSGOUT(SCI_ERRMSG2);
+                       *errtyp = 1;
+                       }
+                       break;
+                       case 3:
+                       {
+                               MSGOUT(SCI_ERRMSG3);
+                       *errtyp = 1;
+                       }
+                       break;
+                       case 4:
+                       {
+                               char *Str=NULL;
+                               C2F(cvname)(&C2F(recu).ids[(C2F(recu).pt + 1) * 6 - 6], C2F(cha1).buf, &i, 4096L);
+                               Str=(char*)MALLOC( sizeof(char)*( strlen(SCI_ERRMSG4)+1+strlen(C2F(cha1).buf) ) );
+                               sprintf(Str,SCI_ERRMSG4,C2F(cha1).buf);
+                               MSGOUT(Str);
+                               FREE(Str);
+                       }
+                       break;
+                       case 5:
+                       {
+                               MSGOUT(SCI_ERRMSG5);
+                       }
+                       break;
+                       case 6:
+                       {
+                               MSGOUT(SCI_ERRMSG6);
+                       }
+                       break;
+                       case 7:
+                       {
+                               MSGOUT(SCI_ERRMSG7);
+                       }
+                       break;
+                       case 8:
+                       {
+                               MSGOUT(SCI_ERRMSG8);
+                       }
+                       break;
+                       case 9:
+                       {
+                               MSGOUT(SCI_ERRMSG9);
+                       }
+                       break;
+                       case 10:
+                       {
+                               MSGOUT(SCI_ERRMSG10);
+                       }
+                       break;
+                       case 11:
+                       {
+                               MSGOUT(SCI_ERRMSG11);
+                       }
+                       break;
+                       case 12:
+                       {
+                               MSGOUT(SCI_ERRMSG12);
+                       }
+                       break;
+                       case 13:
+                       {
+                               MSGOUT(SCI_ERRMSG13);
+                       }
+                       break;
+                       case 14:
+                       {
+                               MSGOUT(SCI_ERRMSG14);
+                       }
+                       break;
+                       case 15:
+                       {
+                               MSGOUT(SCI_ERRMSG15);
+                       }
+                       break;
+                       case 16:
+                       {
+                               MSGOUT(SCI_ERRMSG16);
+                               *errtyp = 1;
+                       }
+                       break;
+                       case 17:
+                       {
+                       }
+                       break;
+                       case 18:
+                       {
+                               MSGOUT(SCI_ERRMSG18);
+                       }
+                       break;
+                       case 19:
+                       {
+                               MSGOUT(SCI_ERRMSG19);
+                       }
+                       break;
+                       case 20:
+                       {
+                       }
+                       break;
+                       case 21:
+                       {
+                               MSGOUT(SCI_ERRMSG21);
+                       }
+                       break;
+                       case 22:
+                       {
+                               MSGOUT(SCI_ERRMSG22);
+                       }
+                       break;
+                       case 23:
+                       {
+                               MSGOUT(SCI_ERRMSG23);
+                       }
+                       break;
+                       case 24:
+                       {
+                               MSGOUT(SCI_ERRMSG24);
+                       }
+                       break;
+                       case 25:
+                       {
+                       }
+                       break;
+                       case 26:
+                       {
+                       }
+                       break;
+                       case 27:
+                       {
+                               MSGOUT(SCI_ERRMSG27);
+                       }
+                       break;
+                       case 28:
+                       {
+                               MSGOUT(SCI_ERRMSG28);
+                       }
+                       break;
+                       case 29:
+                       {
+                               MSGOUT(SCI_ERRMSG29);
+                       }
+                       break;
+                       case 30:
+                       {
+                               MSGOUT(SCI_ERRMSG30);
+                       }
+                       break;
+                       case 31:
+                       {
+                       }
+                       break;
+                       case 32:
+                       {
+                               MSGOUT(SCI_ERRMSG32);
+                       }
+                       break;
+                       case 33:
+                       {
+                               MSGOUT(SCI_ERRMSG33);
+                       }
+                       break;
+                       case 34:
+                       {
+
+                       }
+                       break;
+                       case 35:
+                       {
+                       }
+                       break;
+                       case 36:
+                       {
+                       }
+                       break;
+                       case 37:
+                       {
+                       }
+                       break;
+                       case 38:
+                       {
+                               MSGOUT(SCI_ERRMSG38);
+                       }
+                       break;
+                       case 39:
+                       {
+                               MSGOUT(SCI_ERRMSG39);
+                       }
+                       break;
+                       case 40:
+                       {
+                       }
+                       break;
+                       case 41:
+                       {
+                               MSGOUT(SCI_ERRMSG41);
+                       }
+                       break;
+                       case 42:
+                       {
+                               MSGOUT(SCI_ERRMSG42);
+                       }
+                       break;
+                       case 43:
+                       {
+                               MSGOUT(SCI_ERRMSG43);
+                       }
+                       break;
+                       case 44:
+                       {
+                       }
+                       break;
+                       case 45:
+                       {
+                       }
+                       break;
+                       case 46:
+                       {
+                       }
+                       break;
+                       case 47:
+                       {
+                       }
+                       break;
+                       case 48:
+                       {
+                       }
+                       break;
+                       case 49:
+                       {
+                               MSGOUT(SCI_ERRMSG49);
+                       }
+                       break;
+                       case 50:
+                       {
+                       }
+                       break;
+                       case 51:
+                       {
+                               /* Pas de message */
+                       }
+                       break;
+                       case 52:
+                       {
+                       }
+                       break;
+                       case 53:
+                       {
+                       }
+                       break;
+                       case 54:
+                       {
+                       }
+                       break;
+                       case 55:
+                       {
+                       }
+                       break;
+                       case 56:
+                       {
+                       }
+                       break;
+                       case 57:
+                       {
+                               MSGOUT(SCI_ERRMSG57);
+                       }
+                       break;
+                       case 58:
+                       {
+                       }
+                       break;
+                       case 59:
+                       {
+                       }
+                       break;
+                       case 60:
+                       {
+                               MSGOUT(SCI_ERRMSG60);
+                       }
+                       break;
+                       case 61:
+                       {
+                               MSGOUT(SCI_ERRMSG61);
+                       }
+                       break;
+                       case 62:
+                       {
+                       }
+                       break;
+                       case 63:
+                       {
+                       }
+                       break;
+                       case 64:
+                       {
+                               MSGOUT(SCI_ERRMSG64);
+                       }
+                       break;
+                       case 65:
+                       {
+                       }
+                       break;
+                       case 66:
+                       {
+                               MSGOUT(SCI_ERRMSG66);
+                       }
+                       break;
+                       case 67:
+                       {
+                               MSGOUT(SCI_ERRMSG67);
+                       }
+                       break;
+                       case 68:
+                       {
+                       }
+                       break;
+                       case 69:
+                       {
+                               MSGOUT(SCI_ERRMSG69);
+                       }
+                       break;
+                       case 70:
+                       {
+                               MSGOUT(SCI_ERRMSG70);
+                       }
+                       break;
+                       case 71:
+                       {
+                               MSGOUT(SCI_ERRMSG71);
+                       }
+                       break;
+                       case 72:
+                       {
+                       }
+                       break;
+                       case 73:
+                       {
+                               MSGOUT(SCI_ERRMSG73);
+                       }
+                       break;
+                       case 74:
+                       {
+                               MSGOUT(SCI_ERRMSG74);
+                       }
+                       break;
+                       case 75:
+                       {
+                               MSGOUT(SCI_ERRMSG75);
+                       }
+                       break;
+                       case 76:
+                       {
+                       }
+                       break;
+                       case 77:
+                       {
+                       }
+                       break;
+                       case 78:
+                       {
+                       }
+                       break;
+                       case 79:
+                       {
+                               /* pas de message */
+                       }
+                       break;
+                       case 80:
+                       {
+                       }
+                       break;
+                       case 81:
+                       {
+                       }
+                       break;
+                       case 82:
+                       {
+                       }
+                       break;
+                       case 83:
+                       {
+                       }
+                       break;
+                       case 84:
+                       {
+                       }
+                       break;
+                       case 85:
+                       {
+                               MSGOUT(SCI_ERRMSG85);
+                       }
+                       break;
+                       case 86:
+                       {
+                               MSGOUT(SCI_ERRMSG86);
+                       }
+                       break;
+                       case 87:
+                       {
+                               MSGOUT(SCI_ERRMSG87);
+                       }
+                       break;
+                       case 88:
+                       {
+                               MSGOUT(SCI_ERRMSG88);
+                       }
+                       break;
+                       case 89:
+                       {
+                       }
+                       break;
+                       case 90:
+                       {
+                       }
+                       break;
+                       case 91:
+                       {
+                       }
+                       break;
+                       case 92:
+                       {
+                       }
+                       break;
+                       case 93:
+                       {
+                       }
+                       break;
+                       case 94:
+                       {
+                       }
+                       break;
+                       case 95:
+                       {
+                       }
+                       break;
+                       case 96:
+                       {
+                       }
+                       break;
+                       case 97:
+                       {
+                       }
+                       break;
+                       case 98:
+                       {
+                       }
+                       break;
+                       case 99:
+                       {
+                       }
+                       break;
+                       case 100:
+                       {
+                       }
+                       break;
+                       case 101:
+                       {
+                       }
+                       break;
+                       case 102:
+                       {
+                       }
+                       break;
+                       case 103:
+                       {
+                       }
+                       break;
+                       case 104:
+                       {
+                       }
+                       break;
+                       case 105:
+                       {
+                               MSGOUT(SCI_ERRMSG105);
+                       }
+                       break;
+                       case 106:
+                       {
+                               MSGOUT(SCI_ERRMSG106);
+                       }
+                       break;
+                       case 107:
+                       {
+                       }
+                       break;
+                       case 108:
+                       {
+                       }
+                       break;
+                       case 109:
+                       {
+                               MSGOUT(SCI_ERRMSG109);
+                       }
+                       break;
+                       case 110:
+                       {
+                       }
+                       break;
+                       case 111:
+                       {
+                       }
+                       break;
+                       case 112:
+                       {
+                               MSGOUT(SCI_ERRMSG112);
+                       }
+                       break;
+                       case 113:
+                       {
+                               MSGOUT(SCI_ERRMSG113);
+                       }
+                       break;
+                       case 114:
+                       {
+                               MSGOUT(SCI_ERRMSG114);
+                       }
+                       break;
+                       case 115:
+                       {
+                       }
+                       break;
+                       case 116:
+                       {
+                       }
+                       break;
+                       case 117:
+                       {
+                       }
+                       break;
+                       case 118:
+                       {
+                       }
+                       break;
+                       case 119:
+                       {
+                               /* pas de message */
+                       }
+                       break;
+                       case 120:
+                       {
+                       }
+                       break;
+                       case 121:
+                       {
+                       }
+                       break;
+                       case 122:
+                       {
+                       }
+                       break;
+                       case 123:
+                       {
+                               MSGOUT(SCI_ERRMSG123);
+                       }
+                       break;
+                       case 124:
+                       {
+                               /* pas de message */
+                       }
+                       break;
+                       case 125:
+                       {
+                       }
+                       break;
+                       case 126:
+                       {
+                               MSGOUT(SCI_ERRMSG126);
+                       }
+                       break;
+                       case 127:
+                       {
+                               MSGOUT(SCI_ERRMSG127);
+                       }
+                       break;
+                       case 128:
+                       {
+                               MSGOUT(SCI_ERRMSG128);
+                       }
+                       break;
+                       case 129:
+                       {
+                               MSGOUT(SCI_ERRMSG129);
+                       }
+                       break;
+                       case 130:
+                       {
+                               MSGOUT(SCI_ERRMSG130);
+                       }
+                       break;
+                       case 131:
+                       {
+                               MSGOUT(SCI_ERRMSG131);
+                       }
+                       break;
+                       case 132:
+                       {
+                               MSGOUT(SCI_ERRMSG132);
+                       }
+                       break;
+                       case 133:
+                       {
+                               MSGOUT(SCI_ERRMSG133);
+                       }
+                       break;
+                       case 134:
+                       {
+                               MSGOUT(SCI_ERRMSG134);
+                       }
+                       break;
+                       case 135:
+                       {
+                               MSGOUT(SCI_ERRMSG135);
+                       }
+                       break;
+                       case 136:
+                       {
+                               MSGOUT(SCI_ERRMSG136);
+                       }
+                       break;
+                       case 137:
+                       {
+                               MSGOUT(SCI_ERRMSG137);
+                       }
+                       break;
+                       case 138:
+                       {
+                               MSGOUT(SCI_ERRMSG138);
+                       }
+                       break;
+                       case 139:
+                       {
+                               MSGOUT(SCI_ERRMSG139);
+                       }
+                       break;
+                       case 140:
+                       {/* pas de message */
+                       }
+                       break;
+                       case 141:
+                       {
+                       }
+                       break;
+                       case 142:
+                       {
+                       }
+                       break;
+                       case 143:
+                       {
+                               MSGOUT(SCI_ERRMSG143);
+                       }
+                       break;
+                       case 144:
+                       {
+                       }
+                       break;
+                       /*
+                       messages from 201 to 203 and 205 to 214 are no more used by error 
+                       (see Scierror  in stack1.c)
+                       */
+                       case 200:
+                       {
+                               /* pas de message */
+                       }
+                       break;
+                       case 201:
+                       {
+                       }
+                       break;
+                       case 202:
+                       {
+                       }
+                       break;
+                       case 203:
+                       {
+                       }
+                       break;
+                       case 204:
+                       {
+                       }
+                       break;
+                       case 205:
+                       {
+                       }
+                       break;
+                       case 206:
+                       {
+                       }
+                       break;
+                       case 207:
+                       {
+                       }
+                       break;
+                       case 208:
+                       {
+                       }
+                       break;
+                       case 209:
+                       {
+                       }
+                       break;
+                       case 210:
+                       {
+                       }
+                       break;
+                       case 211:
+                       {
+                       }
+                       break;
+                       case 212:
+                       {
+                       }
+                       break;
+                       case 213:
+                       {
+                       }
+                       break;
+                       case 214:
+                       {
+                       }
+                       break;
+                       case 215:
+                       {
+                       }
+                       break;
+                       case 216:
+                       {
+                       }
+                       break;
+                       case 217:
+                       {
+                       }
+                       break;
+                       case 218:
+                       {
+                       }
+                       break;
+                       case 219:
+                       {
+                       }
+                       break;
+                       case 220:
+                       {
+                               MSGOUT(SCI_ERRMSG220);
+                       }
+                       break;
+                       case 221:
+                       {
+                       }
+                       break;
+                       case 222:
+                       {
+                               MSGOUT(SCI_ERRMSG222);
+                       }
+                       break;
+                       case 223:
+                       {
+                       }
+                       break;
+                       case 224:
+                       {
+                               MSGOUT(SCI_ERRMSG224);
+                       }
+                       break;
+                       case 225:
+                       {
+                               MSGOUT(SCI_ERRMSG225);
+                       }
+                       break;
+                       case 226:
+                       {
+                               MSGOUT(SCI_ERRMSG226);
+                       }
+                       break;
+                       case 227:
+                       {
+                               MSGOUT(SCI_ERRMSG227);
+                       }
+                       break;
+                       case 228:
+                       {
+                       }
+                       break;
+                       case 229:
+                       {
+                               /* pas de message */
+                       }
+                       break;
+                       case 230:
+                       {
+                               MSGOUT(SCI_ERRMSG230);
+                       }
+                       break;
+                       case 231:
+                       {
+                               MSGOUT(SCI_ERRMSG231);
+                       }
+                       break;
+                       case 232:
+                       {
+                               MSGOUT(SCI_ERRMSG232);
+                       }
+                       break;
+                       case 233:
+                       {
+                       }
+                       break;
+                       case 234:
+                       {
+                               MSGOUT(SCI_ERRMSG234);
+                       }
+                       break;
+                       case 235:
+                       {
+                               MSGOUT(SCI_ERRMSG235);
+                       }
+                       break;
+                       case 236:
+                       {
+                               MSGOUT(SCI_ERRMSG236);
+                       }
+                       break;
+                       case 237:
+                       {
+                       }
+                       break;
+                       case 238:
+                       {
+                               MSGOUT(SCI_ERRMSG238);
+                       }
+                       break;
+                       case 239:
+                       {
+                       }
+                       break;
+                       case 240:
+                       {
+                       }
+                       break;
+                       case 241:
+                       {
+                       }
+                       break;
+                       case 242:
+                       {
+                       }
+                       break;
+                       case 243:
+                       {
+                               MSGOUT(SCI_ERRMSG243);
+                       }
+                       break;
+                       case 244:
+                       {
+                               MSGOUT(SCI_ERRMSG244);
+                       }
+                       break;
+                       case 245:
+                       {
+                       }
+                       break;
+                       case 246:
+                       {
+                       }
+                       break;
+                       case 247:
+                       {
+                               /* pas de message */
+                       }
+                       break;
+                       case 248:
+                       {
+                       }
+                       break;
+                       case 249:
+                       {
+                       }
+                       break;
+                       case 250:
+                       {
+                       }
+                       break;
+                       case 251:
+                       {
+                               MSGOUT(SCI_ERRMSG251);
+                       }
+                       break;
+                       case 252:
+                       {
+                               MSGOUT(SCI_ERRMSG252);
+                       }
+                       break;
+                       case 253:
+                       {
+                               MSGOUT(SCI_ERRMSG253);
+                       }
+                       break;
+                       case 254:
+                       {
+                               MSGOUT(SCI_ERRMSG254);
+                       }
+                       break;
+                       case 255:
+                       {
+                               MSGOUT(SCI_ERRMSG255);
+                       }
+                       break;
+                       case 256:
+                       {
+                               MSGOUT(SCI_ERRMSG256);
+                       }
+                       break;
+                       case 257:
+                       {
+                               MSGOUT(SCI_ERRMSG257);
+                       }
+                       break;
+                       case 258:
+                       {
+                               MSGOUT(SCI_ERRMSG258);
+                       }
+                       break;
+                       case 259:
+                       {
+                               MSGOUT(SCI_ERRMSG259);
+                       }
+                       break;
+                       case 260:
+                       {
+                               MSGOUT(SCI_ERRMSG260);
+                       }
+                       break;
+                       case 261:
+                       {
+                               MSGOUT(SCI_ERRMSG261);
+                       }
+                       break;
+                       case 262:
+                       {
+                       }
+                       break;
+                       case 263:
+                       {
+                       }
+                       break;
+                       case 264:
+                       {
+                       }
+                       break;
+                       case 265:
+                       {
+                               MSGOUT(SCI_ERRMSG265);
+                       }
+                       break;
+                       case 266:
+                       {
+                               MSGOUT(SCI_ERRMSG266);
+                       }
+                       break;
+                       case 267:
+                       {
+                               MSGOUT(SCI_ERRMSG267);
+                       }
+                       break;
+                       case 268:
+                       {
+                       }
+                       break;
+                       case 269:
+                       {
+                       }
+                       break;
+                       case 270:
+                       {
+                       }
+                       break;
+                       case 271:
+                       {
+                       }
+                       break;
+                       case 272:
+                       {
+                               MSGOUT(SCI_ERRMSG272);
+                       }
+                       break;
+                       case 273:
+                       {
+                       }
+                       break;
+                       case 274:
+                       {
+                       }
+                       break;
+                       case 275:
+                       {
+                               MSGOUT(SCI_ERRMSG275);
+                       }
+                       break;
+                       case 276:
+                       {
+                               MSGOUT(SCI_ERRMSG276);
+                       }
+                       break;
+                       case 277:
+                       {
+                               MSGOUT(SCI_ERRMSG277);
+                       }
+                       break;
+                       case 278:
+                       {
+                               /* pas de message */
+                       }
+                       break;
+                       case 279:
+                       {
+                               /* pas de message */
+                       }
+                       break;
+                       case 280:
+                       {
+                               /* pas de message */
+                       }
+                       break;
+                       
+                       default:
+                       {
+                               integer bufl;
+                               /* message d'erreur soft */
+                               /* Bug 1422 corrected - Francois VOGEL June 2006 */
+                               bufl = 1;
+                               while(*(unsigned char *)&C2F(cha1).buf[bufl - 1] != '\0' && bufl < 80) 
+                               {
+                                       ++bufl;
+                               }
+                               --bufl;
+                               MSGOUT(C2F(cha1).buf);
+                       }
+                       break;
+    }
+               return 0; 
+}
+/*-----------------------------------------------------------------------------------*/    
index 9bbc4cd..12111f3 100644 (file)
@@ -1,20 +1,20 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2006 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/ \r
-#include "machine.h"\r
-/*-----------------------------------------------------------------------------------*/ \r
-extern integer C2F(msgstore)();\r
-extern int C2F(basout)();\r
-/*-----------------------------------------------------------------------------------*/ \r
-int C2F(msgout)(integer *io,integer *lunit,char *str,long int str_len)\r
-{\r
-       static integer ierr;\r
-       integer i__1=str_len;\r
-\r
-    C2F(basout)(io, lunit, str, str_len);;\r
-    ierr = C2F(msgstore)(str, &i__1, str_len);\r
-\r
-    return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/ \r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2006 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/ 
+#include "machine.h"
+/*-----------------------------------------------------------------------------------*/ 
+extern integer C2F(msgstore)();
+extern int C2F(basout)();
+/*-----------------------------------------------------------------------------------*/ 
+int C2F(msgout)(integer *io,integer *lunit,char *str,long int str_len)
+{
+       static integer ierr;
+       integer i__1=str_len;
+
+    C2F(basout)(io, lunit, str, str_len);;
+    ierr = C2F(msgstore)(str, &i__1, str_len);
+
+    return 0;
+}
+/*-----------------------------------------------------------------------------------*/ 
index d0e7172..e342997 100644 (file)
-c     -------------------------\r
-c                      INRIA     \r
-c     -------------------------\r
-c\r
-c                      \r
-c\r
-      subroutine errmgr(n,errtyp)\r
-c     -------------------------\r
-c     this routines handle errors: recursion stack cleaning, error\r
-c     recovery, display of calling tree\r
-c     n      : the error number\r
-c     errtyp : error type (recoverable:0 or not:1)\r
-c!\r
-      include 'stack.h'\r
-      integer errtyp,n\r
-c\r
-      integer sadr\r
-c\r
-      integer num,imess,imode,lunit\r
-      integer l1,ilk,m,lk,km,k,ll,r,p,mode(2),lpts(6),pt0\r
-      logical first,trace,pflag,erecmode\r
-c\r
-c      sadr(l)=(l/2)+1\r
-c\r
-      ll=lct(5)\r
-      first=.true.\r
-      lunit=wte\r
-c\r
-      call errmds(num,imess,imode)\r
-      trace=.not.((num.lt.0.or.num.eq.n).and.imess.ne.0)\r
-c\r
-      erecmode=(num.eq.n.or.num.lt.0).and.imode.ne.0.and.imode.ne.3\r
-c     \r
-      pt0=0\r
-      if(pt.le.pt0) goto 50\r
-      if(erecmode) then\r
-c     error recovery mode\r
-         p=pt+1\r
-c        . looking if error has occurred in execstr deff getf or comp\r
- 20      p=p-1\r
-         if(p.le.errpt) then\r
-            pt0=pt\r
-            goto 50\r
-         endif\r
-         if(rstk(p).eq.1001.or.rstk(p).eq.1002) then\r
-c     .     error has occurred in an external\r
-            errtyp=0\r
-            pt0=p\r
-         elseif(rstk(p).eq.808) then\r
-c     .     error has occurred in a try instructions\r
-            errtyp=0\r
-            pt0=p\r
-         elseif(rstk(p).eq.501.and.catch.eq.0) then\r
-            if (rstk(p-1).eq.909) then\r
-c     .        exec of a function\r
-               goto 20\r
-            endif\r
-c     .     error has occurred in a compiled macro\r
-            errtyp=0\r
-            pt0=p\r
-         elseif(rstk(p).eq.502) then \r
-            if(rstk(p-1).eq.903.and.catch.eq.0) then\r
-c     .     error has occurred in execstr\r
-               errtyp=0\r
-               pt0=p\r
-            elseif(rstk(p-1).eq.904.or.rstk(p-1).eq.901) then\r
-c     .     error has occurred in comp\r
-               errtyp=0\r
-               pt0=p\r
-            else\r
-               goto 20\r
-            endif\r
-         else\r
-            goto 20\r
-         endif\r
-      endif\r
-\r
-\r
- 30   continue\r
-c\r
-c depilement de l'environnement\r
-      lct(4)=2\r
-      pt=pt+1\r
- 35   pt=pt-1\r
-      if(pt.eq.pt0) goto 50\r
-      r=rstk(pt)\r
-      goto(36,36,37) r-500\r
-      if(r.eq.904) then\r
-         if (ids(2,pt).ne.0) then\r
-c     .     getf(  'c') case, close the file\r
-            mode(1)=0\r
-            call clunit(-ids(2,pt),buf,mode)\r
-         endif\r
-      endif\r
-      goto 35\r
-c     \r
-c     on depile une fonction\r
- 36   call depfun(lunit,trace,first)\r
-      goto 35\r
-c     \r
-c     on depile un exec ou une pause\r
- 37   call depexec(lunit,trace,first,pflag)\r
-      if(.not.pflag) goto 35\r
-c     \r
- 50   continue\r
-c     if(pt.gt.0.and.rstk(pt).eq.1001) pt=pt+1\r
-      if(erecmode) then\r
-         if(errtyp.eq.0) then\r
-c     .     recoverable error\r
-            top=toperr\r
-            if(err2.eq.0) then\r
-               err1=n\r
-            else\r
-               err1=err2\r
-            endif\r
-            err=0\r
-         else\r
-            comp(1)=0\r
-            comp(3)=0\r
-            err=n\r
-         endif\r
-      else\r
-         comp(1)=0\r
-         comp(3)=0\r
-         err=n\r
-      endif\r
-      if(trace) call basout(io,lunit,' ')\r
-c     \r
-      return\r
-      end\r
-c     -------------------------\r
+c     -------------------------
+c                      INRIA     
+c     -------------------------
+c
+c                      
+c
+      subroutine errmgr(n,errtyp)
+c     -------------------------
+c     this routines handle errors: recursion stack cleaning, error
+c     recovery, display of calling tree
+c     n      : the error number
+c     errtyp : error type (recoverable:0 or not:1)
+c!
+      include 'stack.h'
+      integer errtyp,n
+c
+      integer sadr
+c
+      integer num,imess,imode,lunit
+      integer l1,ilk,m,lk,km,k,ll,r,p,mode(2),lpts(6),pt0
+      logical first,trace,pflag,erecmode
+c
+c      sadr(l)=(l/2)+1
+c
+      ll=lct(5)
+      first=.true.
+      lunit=wte
+c
+      call errmds(num,imess,imode)
+      trace=.not.((num.lt.0.or.num.eq.n).and.imess.ne.0)
+c
+      erecmode=(num.eq.n.or.num.lt.0).and.imode.ne.0.and.imode.ne.3
+c     
+      pt0=0
+      if(pt.le.pt0) goto 50
+      if(erecmode) then
+c     error recovery mode
+         p=pt+1
+c        . looking if error has occurred in execstr deff getf or comp
+ 20      p=p-1
+         if(p.le.errpt) then
+            pt0=pt
+            goto 50
+         endif
+         if(rstk(p).eq.1001.or.rstk(p).eq.1002) then
+c     .     error has occurred in an external
+            errtyp=0
+            pt0=p
+         elseif(rstk(p).eq.808) then
+c     .     error has occurred in a try instructions
+            errtyp=0
+            pt0=p
+         elseif(rstk(p).eq.501.and.catch.eq.0) then
+            if (rstk(p-1).eq.909) then
+c     .        exec of a function
+               goto 20
+            endif
+c     .     error has occurred in a compiled macro
+            errtyp=0
+            pt0=p
+         elseif(rstk(p).eq.502) then 
+            if(rstk(p-1).eq.903.and.catch.eq.0) then
+c     .     error has occurred in execstr
+               errtyp=0
+               pt0=p
+            elseif(rstk(p-1).eq.904.or.rstk(p-1).eq.901) then
+c     .     error has occurred in comp
+               errtyp=0
+               pt0=p
+            else
+               goto 20
+            endif
+         else
+            goto 20
+         endif
+      endif
+
+
+ 30   continue
+c
+c depilement de l'environnement
+      lct(4)=2
+      pt=pt+1
+ 35   pt=pt-1
+      if(pt.eq.pt0) goto 50
+      r=rstk(pt)
+      goto(36,36,37) r-500
+      if(r.eq.904) then
+         if (ids(2,pt).ne.0) then
+c     .     getf(  'c') case, close the file
+            mode(1)=0
+            call clunit(-ids(2,pt),buf,mode)
+         endif
+      endif
+      goto 35
+c     
+c     on depile une fonction
+ 36   call depfun(lunit,trace,first)
+      goto 35
+c     
+c     on depile un exec ou une pause
+ 37   call depexec(lunit,trace,first,pflag)
+      if(.not.pflag) goto 35
+c     
+ 50   continue
+c     if(pt.gt.0.and.rstk(pt).eq.1001) pt=pt+1
+      if(erecmode) then
+         if(errtyp.eq.0) then
+c     .     recoverable error
+            top=toperr
+            if(err2.eq.0) then
+               err1=n
+            else
+               err1=err2
+            endif
+            err=0
+         else
+            comp(1)=0
+            comp(3)=0
+            err=n
+         endif
+      else
+         comp(1)=0
+         comp(3)=0
+         err=n
+      endif
+      if(trace) call basout(io,lunit,' ')
+c     
+      return
+      end
+c     -------------------------
index 1801021..2925ead 100644 (file)
-       subroutine errmsg(n,errtyp)\r
-c     -------------------------\r
-c     this routine displays the error message and set if the error is\r
-c     recoverable by errcatch or not:\r
-c     errtyp=0  : recoverable error\r
-c     errtyp=1  : unrecoverable error\r
-c\r
-c     n : error number, if n exceeds the maximum error number this\r
-c         routines displays the error message contained in buf\r
-c!\r
-      include 'stack.h'\r
-      parameter (iif=1,iwhile=2,iselect=3)\r
-      integer n,errtyp,bufl\r
-      integer lunit,sadr,nl,io\r
-      character line*340\r
-c\r
-c      sadr(l)=(l/2)+1\r
-c\r
-      ll=lct(5)\r
-      lunit=wte\r
-      errtyp=0\r
-c\r
-c Bug 1069 corrected - Francois VOGEL November 2004\r
-      call linestore(0)\r
-      call funnamestore(' ',0)\r
-      call freemsgtable()\r
-      call errstore(n)\r
-      goto (\r
-     +   1,  2,  3,  4,  5,  6,  7,  8,  9, 10, 11, 12, 13, 14, 15,\r
-     +  16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30,\r
-     +  31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45,\r
-     +  46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60,\r
-     +  61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75,\r
-     +  76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90,\r
-     +  91, 92, 93, 94, 95, 96, 97, 98, 99,100,101,102,103,104,105,\r
-     + 106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,\r
-     + 121,122,123,124,125,126,127,128,129,130,131,132,133,134,135,\r
-     + 136,137,138,139,140,141,142,143,144\r
-     + ),n\r
-\r
-      goto (\r
-     +     200,201,202,203,204,205,206,207,208,209,\r
-     +     210,211,212,213,214,215,216,217,218,219,\r
-     +     220,221,222,223,224,225,226,227,228,229,\r
-     +     230,231,232,233,234,235,236,237,238,239,\r
-     +     240,241,242,243,244,245,246,247,248,249,\r
-     +     250,251,252,253,254,255,256,257,258,259,\r
-     +     260,261,262,263,264,265,266,267,268,269,\r
-     +     270,271,272,273,274,275,276,277,278,279,\r
-     +     280),n-199\r
-c Bug 1421 corrected - Francois VOGEL June 2006\r
-c     if(n.gt.10000) return\r
-      goto 998\r
-c\r
-    1 call msgout(io,lunit,'incorrect assignment')\r
-      go to 999\r
-    2 call msgout(io,lunit,'invalid factor')\r
-      errtyp=1\r
-      go to 999\r
-    3 call msgout(io,lunit,'waiting for right parenthesis')\r
-      errtyp=1\r
-      go to 999\r
-    4 call cvname(ids(1,pt+1),buf,1)\r
-      call msgout(io,lunit,'undefined variable : '//buf(1:nlgh))\r
-      go to 999\r
-    5 call msgout(io,lunit,'inconsistent column/row dimensions')\r
-      go to 999\r
-    6 call msgout(io,lunit,'inconsistent row/column dimensions')\r
-      go to 999\r
-    7 continue\r
-      call msgout(io,lunit,\r
-     $     'dot cannot be used as modifier for this operator')\r
-      go to 999\r
-    8 call msgout(io,lunit,'inconsistent addition')\r
-      go to 999\r
-    9 call msgout(io,lunit,'inconsistent subtraction')\r
-      go to 999\r
-   10 call msgout(io,lunit,'inconsistent multiplication')\r
-       go to 999\r
-   11 call msgout(io,lunit,'inconsistent right division ')\r
-      go to 999\r
-   12 call msgout(io,lunit,'inconsistent left division')\r
-      go to 999\r
-   13 call msgout(io,lunit,'redefining permanent variable')\r
-      go to 999\r
-   14 call msgout(io,lunit,\r
-     &        'eye variable undefined in this context')\r
-      go to 999\r
-   15 call msgout(io,lunit,'submatrix incorrectly defined')\r
-      go to 999\r
-   16 call msgout(io,lunit,'incorrect command!')\r
-      errtyp=1\r
-      go to 999\r
-   17 lb = lstk(isiz) - lstk(bot) + 1\r
-      lt = err + lstk(bot)-lstk(1)\r
-      call msgout(io,lunit,'stack size exceeded!'//\r
-     &     ' (Use stacksize function to increase it)')\r
-      write(buf(1:40),'(4i10)') lb,lt,lstk(isiz)-lstk(1)+1\r
-      call msgout(io,lunit,'Memory used for variables :'//buf(1:10))\r
-      call msgout(io,lunit,'Intermediate memory needed:'//buf(11:20))\r
-      call msgout(io,lunit,'Total  memory available   :'//buf(21:30))\r
-      go to 999\r
-   18 call msgout(io,lunit,'too many variables!')\r
-      go to 999\r
-   19 call msgout(io,lunit,\r
-     &           'Problem is singular')\r
-      go to 999\r
-   20 if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,buf(1:3)//\r
-     +        'th argument must be square matrix')\r
-      else\r
-         call msgout(io,lunit,\r
-     +        'first argument must be square matrix')\r
-      endif\r
-      go to 999\r
-   21 call msgout(io,lunit,'invalid index')\r
-      go to 999\r
-   22 call msgout(io,lunit,' recursion problems. Sorry....')\r
-      go to 999\r
-   23 call msgout(io,lunit,\r
-     &     ' Matrix norms available are 1, 2, inf, and fro')\r
-      go to 999\r
-   24 call msgout(io,lunit,'convergence problem...')\r
-      go to 999\r
-   25 call cvname(ids(1,pt+1),line(1:nlgh),1)\r
-      nl=lnblnk(line(1:nlgh))\r
-      call  msgout(io,lunit,\r
-     &     'bad call to primitive :'//line(1:nl))\r
-      go to 999\r
-   26 call msgout(io,lunit,\r
-     &     'too complex recursion! (recursion tables are full))')\r
-      errtyp=1\r
-      pt=min(pt,psiz)\r
-      go to 999\r
-   27 call msgout(io,lunit,'division by zero...')\r
-      go to 999\r
-   28 call msgout(io,lunit,'empty function...')\r
-      go to 999\r
-   29 call msgout(io,lunit,'matrix is not positive definite')\r
-      go to 999\r
-   30 call msgout(io,lunit,'invalid exponent')\r
-      go to 999\r
-   31 call msgout(io,lunit,'incorrect string')\r
-      errtyp=1\r
-      go to 999\r
-   32 call msgout(io,lunit,'singularity of log or tan function')\r
-      go to 999\r
-   33 call msgout(io,lunit,'too many '':''')\r
-      go to 999\r
-   34 call msgout(io,lunit,'incorrect control intruction syntax')\r
-      errtyp=1\r
-      go to 999\r
-   35 continue\r
-      if(ids(1,pt).eq.iif) then\r
-         call msgout(io,lunit,'Syntax error in an if instruction')\r
-      elseif(ids(1,pt).eq.iwhile) then\r
-         call msgout(io,lunit,'Syntax error in a while instruction')\r
-      else\r
-         call msgout(io,lunit,\r
-     $        'Syntax error in a select/case instruction')\r
-      endif\r
-      errtyp=1\r
-      go to 999\r
-   36 if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,buf(1:3)//\r
-     +        'th argument is incorrect here')\r
-      else\r
-         call msgout(io,lunit,\r
-     +   'first argument is incorrect')\r
-      endif\r
-      go to 999\r
-   37 write(buf(1:6),'(i6)') err\r
-      call msgout(io,lunit,'incorrect function at line '//buf(1:6))\r
-      go to 999\r
-   38 call msgout(io,lunit,'file name incorrect')\r
-      go to 999\r
-   39 call msgout(io,lunit,'incorrect number of arguments')\r
-      go to 999\r
-   40 call msgout(io,lunit,'waiting for end of command')\r
-      errtyp=1\r
-      go to 999\r
-   41 call msgout(io,lunit,'incompatible LHS')\r
-      goto 999\r
-   42 call msgout(io,lunit,'incompatible RHS' )\r
-      goto 999\r
-   43 call msgout(io,lunit,'not implemented in scilab....')\r
-      goto 999\r
-c\r
-   44 if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,buf(1:3)//\r
-     +        'th argument is incorrect')\r
-      else\r
-         call msgout(io,lunit,\r
-     +        'first argument is incorrect')\r
-      endif\r
-      goto 999\r
-   45 write(buf(1:3),'(i3)') err\r
-      call msgout(io,lunit,'null matrix (argument # '//buf(1:3)//')')\r
-      goto 999\r
-   46 call msgout(io,lunit,'incorrect syntax')\r
-      errtyp=1\r
-      goto 999\r
-   47 call msgout(io,lunit,' end or else is missing...')\r
-      errtyp=1\r
-      goto 999\r
-   48 continue\r
-      write(buf(1:6),'(i6)') bsiz\r
-      call msgout(io,lunit,' input line longer than buffer size:'//\r
-     +     buf(1:6))\r
-      goto 999\r
-   49 call msgout(io,lunit,'incorrect file or format')\r
-      goto 999\r
-   50 call msgout(io,lunit,'subroutine not found : '//buf(1:32))\r
-      goto 999\r
-   51 continue\r
-      goto 999\r
-   52 if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,buf(1:3)//\r
-     +        'th argument must be a real matrix')\r
-      else\r
-         call msgout(io,lunit,\r
-     +        'argument must be a real matrix')\r
-      endif\r
-      goto 999\r
-   53 if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,buf(1:3)//\r
-     +   'th input is invalid (waiting for real or complex matrix) ')\r
-      else\r
-         call msgout(io,lunit,\r
-     +    'invalid input (waiting for real or complex matrix) ')\r
-      endif\r
-      goto 999\r
-   54 if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,buf(1:3)//\r
-     +        'th argument type must be polynomial')\r
-      else\r
-         call msgout(io,lunit,\r
-     +        'argument type must be polynomial')\r
-      endif\r
-      goto 999\r
-   55 if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,buf(1:3)//\r
-     +        'th argument type must be character string')\r
-      else\r
-         call msgout(io,lunit,\r
-     +        'argument type must be  character string')\r
-      endif\r
-      goto 999\r
-   56 if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,buf(1:3)//\r
-     +        'th argument must be a list')\r
-      else\r
-         call msgout(io,lunit,\r
-     +        'argument must be a list')\r
-      endif\r
-      goto 999\r
-   57 call msgout(io,lunit,\r
-     +     'problem with comparison symbol...')\r
-      goto 999\r
-   58 continue\r
-      if(rhs.eq.0) then\r
-             call msgout(io,lunit,\r
-     &       'function has no input argument...')\r
-                   else\r
-              call msgout(io,lunit,\r
-     &       'incorrect number of arguments in function call...')\r
-              call msgout(io,lunit,'arguments are :')\r
-              call prntid(istk(pstk(pt)),rhs,wte)\r
-      endif\r
-      goto 999\r
-   59 continue\r
-      if(lhs.eq.0) then\r
-         call msgout(io,lunit,\r
-     &        'function has no output')\r
-      else\r
-         call msgout(io,lunit,\r
-     &        'incorrect # of outputs in the function')\r
-         call msgout(io,lunit,'arguments are :')\r
-         call prntid(istk(pstk(pt)),lhs,wte)\r
-      endif\r
-      goto 999\r
-   60 call msgout(io,lunit,'argument with incompatible dimensions')\r
-      goto 999\r
-   61 call msgout(io,lunit,'direct acces : give format')\r
-      goto 999\r
-   62 write(buf(1:8),'(i8)') err\r
-      call msgout(io,lunit,'end of file at line '//buf(1:8))\r
-      goto 999\r
-   63 write(buf(1:8),'(i8)') err\r
-      call msgout(io,lunit,buf(1:8)//'graphic terminal?')\r
-      goto 999\r
-   64 continue\r
-      call msgout(io,lunit,'integration fails')\r
-      goto 999\r
-   65 write(buf(1:8),'(i8)') err\r
-      call msgout(io,lunit,buf(1:8)//': logical unit already used')\r
-      goto 999\r
-   66 call msgout(io,lunit,'no more logical units available!')\r
-      goto 999\r
-   67 call msgout(io,lunit,'unknown file format ')\r
-      goto 999\r
-   68 call inffic( 5, buf, nc)\r
-      nc = max ( 1 , nc )\r
-      call msgout(io,lunit,\r
-     +  'fatal error!!! your variables are saved in file :'\r
-     +  //buf(1:nc))\r
-      call msgout(io,lunit,' bad call to a scilab function ? check')\r
-      call msgout(io,lunit,' ... otherwise send a bug report to : '//\r
-     +     'the Scilab group')\r
-      goto 999\r
-   69 call msgout(io,lunit,'floating point exception')\r
-      goto 999\r
-   70 call msgout(io,lunit,'too many arguments in fort (max 30)')\r
-      goto 999\r
-   71 call msgout(io,lunit,'this variable is not valid in fort')\r
-      goto 999\r
-   72 call cvname(ids(1,pt),buf,1)\r
-      call msgout(io,lunit,\r
-     +     buf(1:nlgh)//'is not valid in this context')\r
-      goto 999\r
-   73 call msgout(io,lunit,'error while linking')\r
-      goto 999\r
-   74 call msgout(io,lunit,'Leading coefficient is zero')\r
-      goto 999\r
-   75 call msgout(io,lunit,'Too high degree (max 100)')\r
-      goto 999\r
-   76 continue\r
-      write(buf(1:3),'(i3)') err\r
-      call msgout(io,lunit,'for x=val with type(val)='//buf(1:3)//\r
-     $     ' is not implemented in Scilab')\r
-      goto 999\r
-   77 continue\r
-      call cvname(ids(1,pt+1),buf,1)\r
-      nl=lnblnk(buf(1:nlgh))\r
-      call msgout(io,lunit,\r
-     +     buf(1:nl)//' : wrong number of rhs arguments')\r
-      go to 999\r
-   78 continue\r
-      call cvname(ids(1,pt+1),buf,1)\r
-      nl=lnblnk(buf(1:nlgh))\r
-      call msgout(io,lunit,\r
-     +     buf(1:nl)//' : wrong number of lhs arguments')\r
-      go to 999\r
-   79 continue\r
-      go to 999\r
-   80 write(buf(1:3),'(i3)') err\r
-      call  msgout(io,lunit,\r
-     +    ' incorrect function (argument n:'//buf(1:3)//')')\r
-      go to 999\r
-   81 continue\r
-      write(buf(1:3),'(i3)') err\r
-      call cvname(ids(1,pt+1),buf(4:4+nlgh),1)\r
-      nl=lnblnk(buf(4:3+nlgh))\r
-      call msgout(io,lunit,\r
-     +     'Argument '//buf(1:3)//' of '//buf(4:3+nl)//\r
-     +        ' : wrong type argument, expecting a '//\r
-     +        ' real or complex matrix')\r
-\r
-      go to 999\r
-   82 continue\r
-      write(buf(1:3),'(i3)') err\r
-      call cvname(ids(1,pt+1),buf(4:4+nlgh),1)\r
-      nl=lnblnk(buf(4:3+nlgh))\r
-      call msgout(io,lunit,\r
-     +     'Argument '//buf(1:3)//' of '//buf(4:3+nl)//\r
-     +        ' : wrong type argument, expecting a real matrix')\r
-      goto 999\r
-   83 continue\r
-      write(buf(1:3),'(i3)') err\r
-      call cvname(ids(1,pt+1),buf(4:4+nlgh),1)\r
-      nl=lnblnk(buf(4:3+nlgh))\r
-      call msgout(io,lunit,\r
-     +     'Argument '//buf(1:3)//' of '//buf(4:3+nl)//\r
-     +        ' : wrong type argument, expecting a real vector')\r
-      goto 999\r
-   84 continue\r
-      write(buf(1:3),'(i3)') err\r
-      call cvname(ids(1,pt+1),buf(4:4+nlgh),1)\r
-      nl=lnblnk(buf(4:3+nlgh))\r
-      call msgout(io,lunit,\r
-     +     'Argument '//buf(1:3)//' of '//buf(4:3+nl)//\r
-     +        ' : wrong type argument, expecting a scalar')\r
-\r
-      goto 999\r
-   85 call msgout(io,lunit,'host does not answer...')\r
-      goto 999\r
-   86 call msgout(io,lunit,'uncontrollable system')\r
-      goto 999\r
-   87 call msgout(io,lunit,'unobservable system')\r
-      goto 999\r
-   88 call msgout(io,lunit,\r
-     +     'sfact : singular  or assymetric problem')\r
-      goto 999\r
-   89 if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,buf(1:3)//\r
-     +        'th argument has incorrect dimensions')\r
-      else\r
-         call msgout(io,lunit,\r
-     +        'argument has incorrect dimensions')\r
-      endif\r
-      goto 999\r
- 90   if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,buf(1:3)//\r
-     +        'th argument must be a transfer matrix')\r
-      else\r
-         call msgout(io,lunit,\r
-     +   'argument must be a transfer matrix')\r
-      endif\r
-      go to 999\r
-   91 if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,buf(1:3)//\r
-     +        'th argument must be in state space form')\r
-      else\r
-         call msgout(io,lunit,\r
-     +   'argument must be in state space form')\r
-      endif\r
-      goto 999\r
-   92 if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,buf(1:3)//\r
-     + 'th argument must be a rational matrix')\r
-      else\r
-         call msgout(io,lunit,\r
-     +   'argument must be a rational matrix')\r
-      endif\r
-      goto 999\r
-   93 if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,buf(1:3)//\r
-     +        'th argument must be in continuous time')\r
-      else\r
-         call msgout(io,lunit,\r
-     +   'waiting for continuous time...')\r
-      endif\r
-      goto 999\r
-   94 if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,buf(1:3)//\r
-     +        'th argument must be in discrete time')\r
-      else\r
-         call msgout(io,lunit,\r
-     +   'argument must be in discrete time')\r
-      endif\r
-      goto 999\r
-   95 if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,buf(1:3)//'th argument must '//\r
-     &        'be SISO')\r
-      else\r
-         call msgout(io,lunit,'argument must be '//\r
-     &        'SISO')\r
-      endif\r
-      goto 999\r
-   96 if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,'time domain of  '//buf(1:3)//\r
-     +        ' th argument is not defined')\r
-      else\r
-         call msgout(io,lunit,'time domain of '//\r
-     +        'argument is not defined')\r
-      endif\r
-      goto 999\r
-   97 if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,buf(1:3)//\r
-     +        'th argument must be a system ' //\r
-     +        'in state space or transfer matrix form')\r
-      else\r
-         call msgout(io,lunit,'input argument must be '//\r
-     &        'a system in state space or transfer matrix form')\r
-      endif\r
-      goto 999\r
-   98 call msgout(io,lunit,' variable returned by scilab argument '//\r
-     &     'function is incorrect')\r
-      goto 999\r
-   99 if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,' elements of '//buf(1:3)//\r
-     &        'th must be in increasing order!')\r
-      else\r
-         call msgout(io,lunit,'elements of first'//\r
-     &        ' argument are not (strictly) increasing')\r
-      endif\r
-      goto 999\r
- 100  if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,'the elements of  '//buf(1:3)//\r
-     &        'th argument are not in (strictly) decreasing order')\r
-      else\r
-         call msgout(io,lunit,'elements of first '//\r
-     &        'argument are not in (strictly) decreasing order')\r
-      endif\r
-      goto 999\r
- 101  if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,'last element of '//buf(1:3)//\r
-     &        'th argument <>  first')\r
-      else\r
-         call msgout(io,lunit,'last element of first'//\r
-     &        ' argument does not matches the first one')\r
-      endif\r
-      goto 999\r
- 102  call cvname(ids(1,pt+1),line(1:nlgh),1)\r
-      nl=lnblnk(line(1:nlgh))\r
-      nb=lnblnk(buf)\r
-      call msgout(io,lunit,'variable or function '//line(1:nl)//\r
-     +     ' is not in file '//buf(1:nb))\r
-      goto 999\r
- 103  call msgout(io,lunit,' variable '//buf(1:nlgh) //\r
-     +     ' is not a valid rational function ')\r
-      goto 999\r
- 104  call msgout(io,lunit,' variable '//buf(1:nlgh) //\r
-     +     ' is not a valid state space representation')\r
-      goto 999\r
- 105  call msgout(io,lunit,'undefined fonction')\r
-      goto 999\r
- 106  call msgout(io,lunit,' fonction name already used')\r
-      goto 999\r
- 107  write(buf(1:3),'(i3)') err\r
-      call msgout(io,lunit,'too many functions are defined (maximum #:'\r
-     $     //buf(1:3)//')')\r
-      goto 999\r
- 108  continue\r
-      call msgout(io,lunit,'too complex for scilab, may be a too long'\r
-     $     //'control instruction')\r
-      goto 999\r
- 109  continue\r
-      call msgout(io,lunit,'too large, can''t be displayed')\r
-      goto 999\r
- 110  call cvname(ids(1,pt+1),line(1:nlgh),1)\r
-      nl=lnblnk(line(1:nlgh))\r
-      call msgout(io,lunit,line(1:nl)//' was a function when'//\r
-     +     ' compiled but is now a primitive!')\r
-      goto 999\r
- 111  call cvname(ids(1,pt+1),line(1:nlgh),1)\r
-      nl=lnblnk(line(1:nlgh))\r
-      call msgout(io,lunit,'trying to re-define  function '\r
-     +     //line(1:nl))\r
-      goto 999\r
- 112  call msgout(io,lunit,\r
-     $     'Cannot allocate more memory')\r
-      goto 999\r
- 113  continue\r
-      call msgout(io,lunit,'too large string')\r
-      goto 999\r
- 114  continue\r
-      call msgout(io,lunit,'too many linked routines')\r
-      goto 999\r
- 115  continue\r
-      call msgout(io,lunit,'Stack problem detected within a loop')\r
-      call msgout(io,lunit,\r
-     $     ' a primitive function has been called with wrong number')\r
-      call msgout(io,lunit,\r
-     $     ' of lhs arguments. No lhs test made for this function; ')\r
-      call msgout(io,lunit,\r
-     $     ' please report this bug')\r
-      call showstack()\r
-      goto 999\r
- 116  continue\r
-      if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,buf(1:3)//\r
-     +        'th argument has incorrect value')\r
-      else\r
-         call msgout(io,lunit,\r
-     +        'first argument has incorrect value')\r
-      endif\r
-      goto 999\r
- 117  continue\r
-      write(buf(1:6),'(i6)') err\r
-      call msgout(io,lunit,'List element' //buf(1:6)//' is Undefined')\r
-      goto 999\r
- 118  continue\r
-      if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,buf(1:3)//\r
-     +        'th argument must be a named variable not an expression')\r
-      else\r
-         call msgout(io,lunit,\r
-     +        'argument must be a named variable not an expression ')\r
-      endif\r
-      goto 999\r
- 119  continue\r
-      goto 999\r
- 120  call msgout(io,lunit,'indices for non-zero elements '//\r
-     $     'must be given by a 2 column matrix')\r
-      goto 999\r
- 121  call msgout(io,wte,\r
-     $     'incompatible indices for non-zero elements ')\r
-      goto 999\r
- 122  write(buf(1:3),'(i3)') err\r
-      call msgout(io,lunit,' logical unit number should be '//\r
-     $     '  larger than '//buf(1:3))\r
-      goto 999\r
- 123  call msgout(io,lunit,' fonction not bounded from below')\r
-      goto 999\r
- 124  continue\r
-      goto 999\r
- 125  call msgout(io,lunit,' problem may be unbounded :'//\r
-     $     'too high distance between two consecutive iterations')\r
-      goto 999\r
- 126  continue\r
-      call msgout(io,wte,'Inconsistent constraints')\r
-      goto 999\r
- 127  continue\r
-      call msgout(io,wte,'no feasible solution')\r
-      goto 999\r
- 128  continue\r
-      call msgout(io,wte,'degenerate starting point')\r
-      goto 999\r
- 129  continue\r
-      call msgout(io,wte,'no feasible point has been found')\r
-      goto 999\r
- 130  continue\r
-      call msgout(io,wte,\r
-     &     '  optimization fails: back to initial point')\r
-      goto 999\r
- 131  continue\r
-      call msgout(io,wte,\r
-     &     ' optim: stop requested by simulator (ind=0)')\r
-      goto 999\r
- 132  continue\r
-      call msgout(io,wte,\r
-     &     ' optim: incorrect input parameters')\r
-      goto 999\r
- 133  continue\r
-      call msgout(io,wte,' too small memory')\r
-      goto 999\r
- 134  continue\r
-      call msgout(io,wte,\r
-     &     'optim: problem with initial constants in simul ')\r
-      goto 999\r
- 135  call msgout(io,lunit,\r
-     +     'optim : bounds and initial guess are incompatible')\r
-      goto 999\r
- 136  call msgout(io,lunit,'optim : this method is NOT implemented ')\r
-      goto 999\r
- 137  call msgout(io,lunit,\r
-     +     'NO hot restart available in this method')\r
-      goto 999\r
- 138  call msgout(io,lunit,'optim : incorrect stopping parameters')\r
-      go to 999\r
- 139  call msgout(io,lunit,'optim : incorrect bounds')\r
-      go to 999\r
- 140  continue\r
-      go to 999\r
- 141  write(buf(1:3),'(i3)') err\r
-      call  msgout(io,lunit,\r
-     +    ' incorrect function (argument n:'//buf(1:3)//')')\r
-      go to 999\r
- 142  write(buf(1:3),'(i3)') err\r
-      call msgout(io,lunit,'hot restart : dimension of '//\r
-     &     'working table (argument n:'//buf(1:3)//')')\r
-      go to 999\r
- 143  call msgout(io,lunit,\r
-     +   'optim : df0 must be positive !')\r
-      goto 999\r
- 144  continue\r
-      call cvname(ids(1,pt+1),buf,1)\r
-      ilb=lnblnk(buf(1:nlgh))\r
-      call msgout(io,lunit,'Undefined operation for the given operands')\r
-      call msgout(io,lunit,'  check or define function '//buf(1:ilb)//\r
-     +  ' for overloading')\r
-      goto 999\r
-\r
- 200  continue\r
-      goto 999\r
-c     messages from 201 to 203 and 205 to 214 are no more used by error \r
-c     (see Scierror  in stack1.c)\r
- 201  continue\r
-      write(buf(1:3),'(i3)') err\r
-      call cvname(ids(1,pt+1),buf(4:4+nlgh),1)\r
-      nl=lnblnk(buf(4:3+nlgh))\r
-      call msgout(io,lunit,\r
-     +     'Argument '//buf(1:3)//' of '//buf(4:3+nl)//\r
-     +        ' : wrong type argument,')\r
-      call msgout(io,lunit,' expecting a real or complex matrix')\r
-      go to 999\r
- 202  continue\r
-      write(buf(1:3),'(i3)') err\r
-      call cvname(ids(1,pt+1),buf(4:4+nlgh),1)\r
-      nl=lnblnk(buf(4:3+nlgh))\r
-      call msgout(io,lunit,\r
-     +     'Argument '//buf(1:3)//' of '//buf(4:3+nl)//\r
-     +        ' : wrong type argument,')\r
-      call msgout(io,lunit,' expecting a real matrix')\r
-      goto 999\r
- 203  continue\r
-      write(buf(1:3),'(i3)') err\r
-      call cvname(ids(1,pt+1),buf(4:4+nlgh),1)\r
-      nl=lnblnk(buf(4:3+nlgh))\r
-      call msgout(io,lunit,\r
-     +     'Argument '//buf(1:3)//' of '//buf(4:3+nl)//\r
-     +        ' : wrong type argument,')\r
-      call msgout(io,lunit,' expecting a real vector')\r
-      goto 999\r
-\r
- 204  continue\r
-      write(buf(1:3),'(i3)') err\r
-      call msgout(io,lunit,\r
-     +     'Argument '//buf(1:3)//', wrong type argument:'//\r
-     +     ' expecting a scalar')\r
-      goto 999\r
-\r
- 205  continue\r
-      write(buf(1:3),'(i3)') err\r
-      call cvname(ids(1,pt+1),buf(4:4+nlgh),1)\r
-      nl=lnblnk(buf(4:3+nlgh))\r
-      i1=4+nlgh\r
-      write(buf(i1:i1+6),'(i3,'','',i3)') pstk(pt+1),pstk(pt+2)\r
-\r
-      call msgout(io,lunit,\r
-     +     'Argument '//buf(1:3)//' of '//buf(4:3+nl)//\r
-     +     ' : wrong matrix size ('//buf(i1:i1+6)//') expected ')\r
-      goto 999\r
- 206  continue\r
-      write(buf(1:3),'(i3)') err\r
-      call cvname(ids(1,pt+1),buf(4:4+nlgh),1)\r
-      nl=lnblnk(buf(4:3+nlgh))\r
-      i1=4+nlgh\r
-      write(buf(i1:i1+3),'(i3)') pstk(pt+1)\r
-\r
-      call msgout(io,lunit,\r
-     +     'Argument '//buf(1:3)//' of '//buf(4:3+nl)//\r
-     +     ' : wrong vector size ('//buf(i1:i1+2)//') expected ')\r
-      goto 999\r
- 207  continue\r
-      write(buf(1:3),'(i3)') err\r
-      call cvname(ids(1,pt+1),buf(4:4+nlgh),1)\r
-      nl=lnblnk(buf(4:3+nlgh))\r
-      call msgout(io,lunit,\r
-     +     'Argument '//buf(1:3)//' of '//buf(4:3+nl)//\r
-     +     ' : wrong type argument, expecting a matrix of strings')\r
-      goto 999\r
- 208  continue\r
-      write(buf(1:3),'(i3)') err\r
-      call cvname(ids(1,pt+1),buf(4:4+nlgh),1)\r
-      nl=lnblnk(buf(4:3+nlgh))\r
-      call msgout(io,lunit,\r
-     +     'Argument '//buf(1:3)//' of '//buf(4:3+nl)//\r
-     +     ' : wrong type argument, expecting a booleen matrix')\r
-\r
-      goto 999\r
- 209  continue\r
-      write(buf(1:3),'(i3)') err\r
-      call cvname(ids(1,pt+1),buf(4:4+nlgh),1)\r
-      nl=lnblnk(buf(4:3+nlgh))\r
-      call msgout(io,lunit,\r
-     +     'Argument '//buf(1:3)//' of '//buf(4:3+nl)//\r
-     +     ' : wrong type argument, expecting a matrix')\r
-      goto 999\r
- 210  continue\r
-      write(buf(1:3),'(i3)') err\r
-      call cvname(ids(1,pt+1),buf(4:4+nlgh),1)\r
-      nl=lnblnk(buf(4:3+nlgh))\r
-      call msgout(io,lunit,\r
-     +     'Argument '//buf(1:3)//' of '//buf(4:3+nl)//\r
-     +     ' : wrong type argument, expecting a list')\r
-      goto 999\r
- 211  continue\r
-      write(buf(1:3),'(i3)') err\r
-      call cvname(ids(1,pt+1),buf(4:4+nlgh),1)\r
-      nl=lnblnk(buf(4:3+nlgh))\r
-      call msgout(io,lunit,\r
-     +     'Argument '//buf(1:3)//' of '//buf(4:3+nl)//\r
-     +     ' : wrong type argument, expecting a function'\r
-     +       //' or string (external function)')\r
-      goto 999\r
- 212  continue\r
-      write(buf(1:3),'(i3)') err\r
-      call cvname(ids(1,pt+1),buf(4:4+nlgh),1)\r
-      nl=lnblnk(buf(4:3+nlgh))\r
-      call msgout(io,lunit,\r
-     +     'Argument '//buf(1:3)//' of '//buf(4:3+nl)//\r
-     +     ' : wrong type argument, expecting a polynomial matrix')\r
-      goto 999\r
- 213  continue\r
-      write(buf(1:3),'(i3)') err\r
-      call cvname(ids(1,pt+1),buf(4:4+nlgh),1)\r
-      nl=lnblnk(buf(4:3+nlgh))\r
-      call msgout(io,lunit,\r
-     +     'Argument '//buf(1:3)//' of '//buf(4:3+nl)//\r
-     +     ' : wrong type argument, expecting a working'//\r
-     +     ' integer matrix')\r
-      goto 999\r
- 214  continue\r
-      write(buf(1:3),'(i3)') err\r
-      call cvname(ids(1,pt+1),buf(4:4+nlgh),1)\r
-      nl=lnblnk(buf(4:3+nlgh))\r
-      call msgout(io,lunit,\r
-     +     'Argument '//buf(1:3)//' of '//buf(4:3+nl)//\r
-     +        ' : wrong type argument,')\r
-      call msgout(io,lunit,' expecting a  vector')\r
-      goto 999\r
- 215  continue\r
-      if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,buf(1:3)//\r
-     +        'th argument type must be boolean')\r
-      else\r
-         call msgout(io,lunit,\r
-     +        'argument type must be boolean')\r
-      endif\r
-      goto 999\r
- 216  continue \r
-      if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,buf(1:3)//\r
-     +        'th argument type must be boolean or scalar')\r
-      else\r
-         call msgout(io,lunit,\r
-     +        'argument type must be boolean or scalar')\r
-      endif\r
-      goto 999\r
- 217  continue\r
-      if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,buf(1:3)//\r
-     +        'th argument  must be a sparse matrix of scalars')\r
-      else\r
-         call msgout(io,lunit,\r
-     +        'argument type must be a sparse matrix of scalars')\r
-      endif\r
-      goto 999\r
- 218  continue\r
-      if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,buf(1:3)//\r
-     +        'th argument  must be a  handle to sparse lu factors')\r
-      else\r
-         call msgout(io,lunit,\r
-     +        'argument type must be a  handle to sparse lu factors')\r
-      endif\r
-      goto 999\r
- 219  continue\r
-      if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,buf(1:3)//\r
-     +        'th argument  must be a sparse or full scalar matrix')\r
-      else\r
-         call msgout(io,lunit,\r
-     +        'argument type must be a sparse or full scalar matrix')\r
-      endif\r
-      goto 999\r
- 220  continue\r
-      call msgout(io,lunit,'null variable cannot be used here')\r
-      goto 999\r
- 221  continue\r
-      call msgout(io,lunit,'A sparse matrix entry is defined with' //\r
-     &     ' two differents values')\r
-      goto 999\r
- 222  continue\r
-      call msgout(io,lunit,'lusolve not yet implemented for full RHS')\r
-      goto 999\r
- 223  continue\r
-      call cvname(ids(1,pt+1),buf(1:nlgh),1)\r
-      ln=lnblnk(buf(1:nlgh))\r
-      call msgout(io,lunit,'It is not possible to redefine the '//\r
-     &     buf(1:ln)//' primitive this way (see clearfun).')\r
-      goto 999\r
- 224  continue\r
-      call msgout(io,lunit,'Type data base is full')\r
-      goto 999\r
- 225  continue\r
-      call msgout(io,lunit,'This data type is already defined')\r
-      goto 999\r
- 226  continue\r
-      call msgout(io,lunit,'Inequality comparison with empty matrix')\r
-      goto 999\r
- 227  continue\r
-      call msgout(io,lunit,'Missing index')\r
-      goto 999\r
- 228  continue\r
-      call cvname(ids(1,pt+1),buf(1:nlgh),1)\r
-      call msgout(io,wte,'reference to the cleared global variable '//\r
-     $     buf(1:nlgh))\r
-      goto 999\r
- 229  continue\r
-      goto 999\r
-C     errors from semidef\r
- 230  continue\r
-         call msgout(io,lunit,'semidef fails')\r
-      goto 999\r
- 231  continue\r
-      call msgout(io,wte,'First argument must be a single string')\r
-      goto 999\r
- 232  continue\r
-      call msgout(io,wte,'Entry name not found')\r
-      goto 999\r
- 233  continue\r
-      call msgout(io,wte,'Maximum number of dynamic interfaces '//\r
-     &     'reached')\r
-      goto 999\r
- 234  continue\r
-      call msgout(io,wte,'link: expecting more than one argument')\r
-      goto 999\r
- 235  continue\r
-      call msgout(io,wte,'link: problem with one of the entry point')\r
-      goto 999\r
- 236  continue\r
-      call msgout(io,wte,'link: the shared archive was not loaded') \r
-      goto 999\r
- 237  continue\r
-      call msgout(io,wte,'link: Only one entry point allowed '//\r
-     &     'On this operating system')\r
-      goto 999\r
- 238  continue\r
-      call msgout(io,wte,'link: First argument  cannot be a number') \r
-      goto 999\r
- 239  continue\r
-      call msgout(io,wte,'You cannot link more functions, '//\r
-     &     'maxentry reached')\r
-      goto 999\r
- 240  continue\r
-      l1=lnblnk(buf)\r
-      call msgout(io,lunit,\r
-     &     'File '//buf(1:l1)//' already exists or '//\r
-     &     'directory write access denied ')\r
-      goto 999\r
- 241  continue\r
-      l1=lnblnk(buf)\r
-      call msgout(io,lunit,\r
-     &     'File '//buf(1:l1)//' does not exist or '//\r
-     &     'read access denied ')\r
-      goto 999\r
- 242  continue\r
-      call msgout(io,lunit,'binary direct acces files '//\r
-     &     'must be opened by ''file''')\r
-      goto 999\r
- 243  continue\r
-      call msgout(io,lunit,'C file logical unit not allowed here')\r
-      goto 999\r
- 244  continue\r
-      call msgout(io,lunit,'Fortran file logical unit not allowed here')\r
-      goto 999\r
- 245  continue\r
-      write(buf(1:3),'(i3)') err\r
-      call msgout(io,lunit,'No input file associated to logical unit '//\r
-     &     buf(1:3))\r
-      goto 999\r
- 246  continue\r
-      call cvname(ids(1,pt+1),buf,1)\r
-      ilb=lnblnk(buf(1:nlgh))\r
-      call msgout(io,lunit,'function not defined for'//\r
-     &     ' given argument type(s),')\r
-      call msgout(io,lunit,'  check arguments or define function '\r
-     &     //buf(1:ilb)//' for overloading')\r
-      goto 999\r
- 247  continue\r
-      goto 999\r
- 248  continue\r
-      if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,buf(1:3)//\r
-     +        'th argument is not a valid variable name')\r
-      else\r
-         call msgout(io,lunit,\r
-     +        'argument is not a valid variable name')\r
-      endif\r
-      goto 999\r
- 249  continue\r
-      if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,buf(1:3)//\r
-     +        'th argument must not be an empty string')\r
-      else\r
-         call msgout(io,lunit,\r
-     +        'argument must not be an empty string')\r
-      endif\r
-      goto 999\r
-\r
- 250  continue\r
-      call msgout(io,lunit\r
-     $     ,'Recursive extraction is not valid in this context')\r
-      goto 999\r
-\r
-\r
- 251  continue\r
-      call msgout(io,lunit,'bvode: ipar dimensioned at least 11')\r
-      goto 999\r
- 252  continue\r
-      call msgout(io,lunit,'bvode: ltol must be of size ipar(4)')\r
-      goto 999\r
- 253  continue\r
-      call msgout(io,lunit,'bvode: fixpnt must be of size ipar(11)')\r
-      goto 999\r
- 254  continue\r
-      call msgout(io,lunit,'bvode: ncomp < 20 requested ')\r
-      goto 999\r
- 255  continue\r
-      call msgout(io,lunit,'bvode: m must be of size ncomp')\r
-      goto 999\r
- 256  continue\r
-      call msgout(io,lunit,'bvode: sum(m) must be less than 40')\r
-      goto 999\r
- 257  continue\r
-      call msgout(io,lunit,'bvode: sum(m) must be less than 40')\r
-\r
-      goto 999\r
- 258  continue\r
-      call msgout(io,lunit,'bvode: input data error')\r
-      goto 999\r
- 259  continue\r
-      call msgout(io,lunit,'bvode: no. of subintervals exceeds storage')\r
-      goto 999\r
- 260  continue\r
-      call msgout(io,lunit,'bvode: Th colocation matrix is singular')\r
-      goto 999\r
- 261  continue\r
-      call msgout(io,lunit,'Interface property table is full')\r
-      goto 999\r
- 262  continue\r
-      write(buf(1:4),'(i3)') isizt-isiz-1\r
-      call msgout(io,lunit,'too many global variables!,'//\r
-     &     'max number is '//buf(1:4))\r
-      goto 999\r
- 263  continue\r
-      call msgout(io,lunit,'Error while writing in file,'//\r
-     &     '(disk full or deleted file)')\r
-      goto 999\r
- 264  continue\r
-      if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,buf(1:3)//\r
-     +        'th argument must not contain NaN or Inf')\r
-      else\r
-         call msgout(io,lunit,\r
-     +        'argument must not  contain NaN or Inf')\r
-      endif\r
-      goto 999\r
- 265  continue\r
-          call msgout(io,lunit,\r
-     +        'A and B must have equal number of rows')\r
-      goto 999\r
- 266  continue\r
-          call msgout(io,lunit,\r
-     +        'A and B must have equal number of columns')\r
-      goto 999\r
- 267  continue\r
-          call msgout(io,lunit,\r
-     +        'A and B must have equal dimensions')\r
-      goto 999\r
- 268  continue\r
-      write(buf(1:3),'(i3)') err\r
-      call msgout(io,lunit,\r
-     +     'invalid return value for function passed in argument '//\r
-     +     buf(1:3))\r
-      goto 999\r
- 269  continue\r
-      if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,buf(1:3)//\r
-     +        'th argument eigenvalues must have negative real parts')\r
-      else\r
-         call msgout(io,lunit,\r
-     +        'argument eigenvalues must have negative real parts')\r
-      endif\r
-      goto 999\r
- 270  continue\r
-      if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,buf(1:3)//\r
-     +        'th argument eigenvalues modulus must be less than one')\r
-      else\r
-         call msgout(io,lunit,\r
-     +        'argument eigenvalues modulus must be less than one')\r
-      endif\r
-      goto 999\r
-\r
- 271  continue\r
-      if(err.ne.1) then\r
-         write(buf(1:3),'(i3)') err\r
-         call msgout(io,lunit,buf(1:3)//\r
-     +        'Size varying argument a*eye(), (arg '//buf(1:3)//\r
-     +        ') not allowed here')\r
-      else\r
-         call msgout(io,lunit,'Size varying argument a*eye()'//\r
-     +        ' not allowed here')\r
-      endif\r
-      goto 999\r
- 272  continue\r
-      call msgout(io,lunit, 'endfunction is missing')\r
-      goto 999\r
- 273  continue\r
-      call msgout(io,lunit,\r
-     $     'Instruction left hand side: '//\r
-     $     'waiting for a dot or a left parenthesis')\r
-      goto 999\r
- 274  continue\r
-      call msgout(io,lunit, \r
-     $     'Instruction left hand side: waiting for a name')\r
-      goto 999\r
- 275  continue\r
-      call msgout(io,lunit, 'varargout keyword cannot be used here')\r
-      goto 999\r
- 276  continue\r
-      call msgout(io,lunit, 'Missing operator, comma, or semicolon')\r
-      errtyp=1\r
-      goto 999\r
- 277  continue\r
-      call msgout(io,lunit, 'Too many commands defined')\r
-      goto 999\r
- 278  continue\r
-      goto 999\r
- 279  continue\r
-      goto 999\r
- 280  continue\r
-      goto 999\r
-c\r
-c---------------------------------------------------------------------\r
- 998  continue\r
-c     message d'erreur soft\r
-c Bug 1422 corrected - Francois VOGEL June 2006\r
-      bufl=1\r
-      do while ( buf(bufl:bufl).ne.char(0) .and. bufl.lt.80 )\r
-         bufl=bufl+1\r
-      enddo\r
-      bufl=bufl-1\r
-      call msgout(io,lunit,buf(1:bufl))\r
-c\r
- 999  return\r
-      end\r
+       subroutine errmsg(n,errtyp)
+c     -------------------------
+c     this routine displays the error message and set if the error is
+c     recoverable by errcatch or not:
+c     errtyp=0  : recoverable error
+c     errtyp=1  : unrecoverable error
+c
+c     n : error number, if n exceeds the maximum error number this
+c         routines displays the error message contained in buf
+c!
+      include 'stack.h'
+      parameter (iif=1,iwhile=2,iselect=3)
+      integer n,errtyp,bufl
+      integer lunit,sadr,nl,io
+      character line*340
+c
+c      sadr(l)=(l/2)+1
+c
+      ll=lct(5)
+      lunit=wte
+      errtyp=0
+c
+c Bug 1069 corrected - Francois VOGEL November 2004
+      call linestore(0)
+      call funnamestore(' ',0)
+      call freemsgtable()
+      call errstore(n)
+      goto (
+     +   1,  2,  3,  4,  5,  6,  7,  8,  9, 10, 11, 12, 13, 14, 15,
+     +  16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30,
+     +  31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45,
+     +  46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60,
+     +  61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75,
+     +  76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90,
+     +  91, 92, 93, 94, 95, 96, 97, 98, 99,100,101,102,103,104,105,
+     + 106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,
+     + 121,122,123,124,125,126,127,128,129,130,131,132,133,134,135,
+     + 136,137,138,139,140,141,142,143,144
+     + ),n
+
+      goto (
+     +     200,201,202,203,204,205,206,207,208,209,
+     +     210,211,212,213,214,215,216,217,218,219,
+     +     220,221,222,223,224,225,226,227,228,229,
+     +     230,231,232,233,234,235,236,237,238,239,
+     +     240,241,242,243,244,245,246,247,248,249,
+     +     250,251,252,253,254,255,256,257,258,259,
+     +     260,261,262,263,264,265,266,267,268,269,
+     +     270,271,272,273,274,275,276,277,278,279,
+     +     280),n-199
+c Bug 1421 corrected - Francois VOGEL June 2006
+c     if(n.gt.10000) return
+      goto 998
+c
+    1 call msgout(io,lunit,'incorrect assignment')
+      go to 999
+    2 call msgout(io,lunit,'invalid factor')
+      errtyp=1
+      go to 999
+    3 call msgout(io,lunit,'waiting for right parenthesis')
+      errtyp=1
+      go to 999
+    4 call cvname(ids(1,pt+1),buf,1)
+      call msgout(io,lunit,'undefined variable : '//buf(1:nlgh))
+      go to 999
+    5 call msgout(io,lunit,'inconsistent column/row dimensions')
+      go to 999
+    6 call msgout(io,lunit,'inconsistent row/column dimensions')
+      go to 999
+    7 continue
+      call msgout(io,lunit,
+     $     'dot cannot be used as modifier for this operator')
+      go to 999
+    8 call msgout(io,lunit,'inconsistent addition')
+      go to 999
+    9 call msgout(io,lunit,'inconsistent subtraction')
+      go to 999
+   10 call msgout(io,lunit,'inconsistent multiplication')
+       go to 999
+   11 call msgout(io,lunit,'inconsistent right division ')
+      go to 999
+   12 call msgout(io,lunit,'inconsistent left division')
+      go to 999
+   13 call msgout(io,lunit,'redefining permanent variable')
+      go to 999
+   14 call msgout(io,lunit,
+     &        'eye variable undefined in this context')
+      go to 999
+   15 call msgout(io,lunit,'submatrix incorrectly defined')
+      go to 999
+   16 call msgout(io,lunit,'incorrect command!')
+      errtyp=1
+      go to 999
+   17 lb = lstk(isiz) - lstk(bot) + 1
+      lt = err + lstk(bot)-lstk(1)
+      call msgout(io,lunit,'stack size exceeded!'//
+     &     ' (Use stacksize function to increase it)')
+      write(buf(1:40),'(4i10)') lb,lt,lstk(isiz)-lstk(1)+1
+      call msgout(io,lunit,'Memory used for variables :'//buf(1:10))
+      call msgout(io,lunit,'Intermediate memory needed:'//buf(11:20))
+      call msgout(io,lunit,'Total  memory available   :'//buf(21:30))
+      go to 999
+   18 call msgout(io,lunit,'too many variables!')
+      go to 999
+   19 call msgout(io,lunit,
+     &           'Problem is singular')
+      go to 999
+   20 if(err.ne.1) then
+         write(buf(1:3),'(i3)') err
+         call msgout(io,lunit,buf(1:3)//
+     +        'th argument must be square matrix')
+      else
+         call msgout(io,lunit,
+     +        'first argument must be square matrix')
+      endif
+      go to 999
+   21 call msgout(io,lunit,'invalid index')
+      go to 999
+   22 call msgout(io,lunit,' recursion problems. Sorry....')
+      go to 999
+   23 call msgout(io,lunit,
+     &     ' Matrix norms available are 1, 2, inf, and fro')
+      go to 999
+   24 call msgout(io,lunit,'convergence problem...')
+      go to 999
+   25 call cvname(ids(1,pt+1),line(1:nlgh),1)
+      nl=lnblnk(line(1:nlgh))
+      call  msgout(io,lunit,
+     &     'bad call to primitive :'//line(1:nl))
+      go to 999
+   26 call msgout(io,lunit,
+     &     'too complex recursion! (recursion tables are full))')
+      errtyp=1
+      pt=min(pt,psiz)
+      go to 999
+   27 call msgout(io,lunit,'division by zero...')
+      go to 999
+   28 call msgout(io,lunit,'empty function...')
+      go to 999
+   29 call msgout(io,lunit,'matrix is not positive definite')
+      go to 999
+   30 call msgout(io,lunit,'invalid exponent')
+      go to 999
+   31 call msgout(io,lunit,'incorrect string')
+      errtyp=1
+      go to 999
+   32 call msgout(io,lunit,'singularity of log or tan function')
+      go to 999
+   33 call msgout(io,lunit,'too many '':''')
+      go to 999
+   34 call msgout(io,lunit,'incorrect control intruction syntax')
+      errtyp=1
+      go to 999
+   35 continue
+      if(ids(1,pt).eq.iif) then
+         call msgout(io,lunit,'Syntax error in an if instruction')
+      elseif(ids(1,pt).eq.iwhile) then
+         call msgout(io,lunit,'Syntax error in a while instruction')
+      else
+         call msgout(io,lunit,
+     $        'Syntax error in a select/case instruction')
+      endif
+      errtyp=1
+      go to 999
+   36 if(err.ne.1) then
+         write(buf(1:3),'(i3)') err
+         call msgout(io,lunit,buf(1:3)//
+     +        'th argument is incorrect here')
+      else
+         call msgout(io,lunit,
+     +   'first argument is incorrect')
+      endif
+      go to 999
+   37 write(buf(1:6),'(i6)') err
+      call msgout(io,lunit,'incorrect function at line '//buf(1:6))
+      go to 999
+   38 call msgout(io,lunit,'file name incorrect')
+      go to 999
+   39 call msgout(io,lunit,'incorrect number of arguments')
+      go to 999
+   40 call msgout(io,lunit,'waiting for end of command')
+      errtyp=1
+      go to 999
+   41 call msgout(io,lunit,'incompatible LHS')
+      goto 999
+   42 call msgout(io,lunit,'incompatible RHS' )
+      goto 999
+   43 call msgout(io,lunit,'not implemented in scilab....')
+      goto 999
+c
+   44 if(err.ne.1) then
+         write(buf(1:3),'(i3)') err
+         call msgout(io,lunit,buf(1:3)//
+     +        'th argument is incorrect')
+      else
+         call msgout(io,lunit,
+     +        'first argument is incorrect')
+      endif
+      goto 999
+   45 write(buf(1:3),'(i3)') err
+      call msgout(io,lunit,'null matrix (argument # '//buf(1:3)//')')
+      goto 999
+   46 call msgout(io,lunit,'incorrect syntax')
+      errtyp=1
+      goto 999
+   47 call msgout(io,lunit,' end or else is missing...')
+      errtyp=1
+      goto 999
+   48 continue
+      write(buf(1:6),'(i6)') bsiz
+      call msgout(io,lunit,' input line longer than buffer size:'//
+     +     buf(1:6))
+      goto 999
+   49 call msgout(io,lunit,'incorrect file or format')
+      goto 999
+   50 call msgout(io,lunit,'subroutine not found : '//buf(1:32))
+      goto 999
+   51 continue
+      goto 999
+   52 if(err.ne.1) then
+         write(buf(1:3),'(i3)') err
+         call msgout(io,lunit,buf(1:3)//
+     +        'th argument must be a real matrix')
+      else
+         call msgout(io,lunit,
+     +        'argument must be a real matrix')
+      endif
+      goto 999
+   53 if(err.ne.1) then
+         write(buf(1:3),'(i3)') err
+         call msgout(io,lunit,buf(1:3)//
+     +   'th input is invalid (waiting for real or complex matrix) ')
+      else
+         call msgout(io,lunit,
+     +    'invalid input (waiting for real or complex matrix) ')
+      endif
+      goto 999
+   54 if(err.ne.1) then
+         write(buf(1:3),'(i3)') err
+         call msgout(io,lunit,buf(1:3)//
+     +        'th argument type must be polynomial')
+      else
+         call msgout(io,lunit,
+     +        'argument type must be polynomial')
+      endif
+      goto 999
+   55 if(err.ne.1) then
+         write(buf(1:3),'(i3)') err
+         call msgout(io,lunit,buf(1:3)//
+     +        'th argument type must be character string')
+      else
+         call msgout(io,lunit,
+     +        'argument type must be  character string')
+      endif
+      goto 999
+   56 if(err.ne.1) then
+         write(buf(1:3),'(i3)') err
+         call msgout(io,lunit,buf(1:3)//
+     +        'th argument must be a list')
+      else
+         call msgout(io,lunit,
+     +        'argument must be a list')
+      endif
+      goto 999
+   57 call msgout(io,lunit,
+     +     'problem with comparison symbol...')
+      goto 999
+   58 continue
+      if(rhs.eq.0) then
+             call msgout(io,lunit,
+     &       'function has no input argument...')
+                   else
+              call msgout(io,lunit,
+     &       'incorrect number of arguments in function call...')
+              call msgout(io,lunit,'arguments are :')
+              call prntid(istk(pstk(pt)),rhs,wte)
+      endif
+      goto 999
+   59 continue
+      if(lhs.eq.0) then
+         call msgout(io,lunit,
+     &        'function has no output')
+      else
+         call msgout(io,lunit,
+     &        'incorrect # of outputs in the function')
+         call msgout(io,lunit,'arguments are :')
+         call prntid(istk(pstk(pt)),lhs,wte)
+      endif
+      goto 999
+   60 call msgout(io,lunit,'argument with incompatible dimensions')
+      goto 999
+   61 call msgout(io,lunit,'direct acces : give format')
+      goto 999
+   62 write(buf(1:8),'(i8)') err
+      call msgout(io,lunit,'end of file at line '//buf(1:8))
+      goto 999
+   63 write(buf(1:8),'(i8)') err
+      call msgout(io,lunit,buf(1:8)//'graphic terminal?')
+      goto 999
+   64 continue
+      call msgout(io,lunit,'integration fails')
+      goto 999
+   65 write(buf(1:8),'(i8)') err
+      call msgout(io,lunit,buf(1:8)//': logical unit already used')
+      goto 999
+   66 call msgout(io,lunit,'no more logical units available!')
+      goto 999
+   67 call msgout(io,lunit,'unknown file format ')
+      goto 999
+   68 call inffic( 5, buf, nc)
+      nc = max ( 1 , nc )
+      call msgout(io,lunit,
+     +  'fatal error!!! your variables are saved in file :'
+     +  //buf(1:nc))
+      call msgout(io,lunit,' bad call to a scilab function ? check')
+      call msgout(io,lunit,' ... otherwise send a bug report to : '//
+     +     'the Scilab group')
+      goto 999
+   69 call msgout(io,lunit,'floating point exception')
+      goto 999
+   70 call msgout(io,lunit,'too many arguments in fort (max 30)')
+      goto 999
+   71 call msgout(io,lunit,'this variable is not valid in fort')
+      goto 999
+   72 call cvname(ids(1,pt),buf,1)
+      call msgout(io,lunit,
+     +     buf(1:nlgh)//'is not valid in this context')
+      goto 999
+   73 call msgout(io,lunit,'error while linking')
+      goto 999
+   74 call msgout(io,lunit,'Leading coefficient is zero')
+      goto 999
+   75 call msgout(io,lunit,'Too high degree (max 100)')
+      goto 999
+   76 continue
+      write(buf(1:3),'(i3)') err
+      call msgout(io,lunit,'for x=val with type(val)='//buf(1:3)//
+     $     ' is not implemented in Scilab')
+      goto 999
+   77 continue
+      call cvname(ids(1,pt+1),buf,1)
+      nl=lnblnk(buf(1:nlgh))
+      call msgout(io,lunit,
+     +     buf(1:nl)//' : wrong number of rhs arguments')
+      go to 999
+   78 continue
+      call cvname(ids(1,pt+1),buf,1)
+      nl=lnblnk(buf(1:nlgh))
+      call msgout(io,lunit,
+     +     buf(1:nl)//' : wrong number of lhs arguments')
+      go to 999
+   79 continue
+      go to 999
+   80 write(buf(1:3),'(i3)') err
+      call  msgout(io,lunit,
+     +    ' incorrect function (argument n:'//buf(1:3)//')')
+      go to 999
+   81 continue
+      write(buf(1:3),'(i3)') err
+      call cvname(ids(1,pt+1),buf(4:4+nlgh),1)
+      nl=lnblnk(buf(4:3+nlgh))
+      call msgout(io,lunit,
+     +     'Argument '//buf(1:3)//' of '//buf(4:3+nl)//
+     +        ' : wrong type argument, expecting a '//
+     +        ' real or complex matrix')
+
+      go to 999
+   82 continue
+      write(buf(1:3),'(i3)') err
+      call cvname(ids(1,pt+1),buf(4:4+nlgh),1)
+      nl=lnblnk(buf(4:3+nlgh))
+      call msgout(io,lunit,
+     +     'Argument '//buf(1:3)//' of '//buf(4:3+nl)//
+     +        ' : wrong type argument, expecting a real matrix')
+      goto 999
+   83 continue
+      write(buf(1:3),'(i3)') err
+      call cvname(ids(1,pt+1),buf(4:4+nlgh),1)
+      nl=lnblnk(buf(4:3+nlgh))
+      call msgout(io,lunit,
+     +     'Argument '//buf(1:3)//' of '//buf(4:3+nl)//
+     +        ' : wrong type argument, expecting a real vector')
+      goto 999
+   84 continue
+      write(buf(1:3),'(i3)') err
+      call cvname(ids(1,pt+1),buf(4:4+nlgh),1)
+      nl=lnblnk(buf(4:3+nlgh))
+      call msgout(io,lunit,
+     +     'Argument '//buf(1:3)//' of '//buf(4:3+nl)//
+     +        ' : wrong type argument, expecting a scalar')
+
+      goto 999
+   85 call msgout(io,lunit,'host does not answer...')
+      goto 999
+   86 call msgout(io,lunit,'uncontrollable system')
+      goto 999
+   87 call msgout(io,lunit,'unobservable system')
+      goto 999
+   88 call msgout(io,lunit,
+     +     'sfact : singular  or assymetric problem')
+      goto 999
+   89 if(err.ne.1) then
+         write(buf(1:3),'(i3)') err
+         call msgout(io,lunit,buf(1:3)//
+     +        'th argument has incorrect dimensions')
+      else
+         call msgout(io,lunit,
+     +        'argument has incorrect dimensions')
+      endif
+      goto 999
+ 90   if(err.ne.1) then
+         write(buf(1:3),'(i3)') err
+         call msgout(io,lunit,buf(1:3)//
+     +        'th argument must be a transfer matrix')
+      else
+         call msgout(io,lunit,
+     +   'argument must be a transfer matrix')
+      endif
+      go to 999
+   91 if(err.ne.1) then
+         write(buf(1:3),'(i3)') err
+         call msgout(io,lunit,buf(1:3)//
+     +        'th argument must be in state space form')
+      else
+         call msgout(io,lunit,
+     +   'argument must be in state space form')
+      endif
+      goto 999
+   92 if(err.ne.1) then
+         write(buf(1:3),'(i3)') err
+         call msgout(io,lunit,buf(1:3)//
+     + 'th argument must be a rational matrix')
+      else
+         call msgout(io,lunit,
+     +   'argument must be a rational matrix')
+      endif
+      goto 999
+   93 if(err.ne.1) then
+         write(buf(1:3),'(i3)') err
+         call msgout(io,lunit,buf(1:3)//
+     +        'th argument must be in continuous time')
+      else
+         call msgout(io,lunit,
+     +   'waiting for continuous time...')
+      endif
+      goto 999
+   94 if(err.ne.1) then
+         write(buf(1:3),'(i3)') err
+         call msgout(io,lunit,buf(1:3)//
+     +        'th argument must be in discrete time')
+      else
+         call msgout(io,lunit,
+     +   'argument must be in discrete time')
+      endif
+      goto 999
+   95 if(err.ne.1) then
+         write(buf(1:3),'(i3)') err
+         call msgout(io,lunit,buf(1:3)//'th argument must '//
+     &        'be SISO')
+      else
+         call msgout(io,lunit,'argument must be '//
+     &        'SISO')
+      endif
+      goto 999
+   96 if(err.ne.1) then
+         write(buf(1:3),'(i3)') err
+         call msgout(io,lunit,'time domain of  '//buf(1:3)//
+     +        ' th argument is not defined')
+      else
+         call msgout(io,lunit,'time domain of '//
+     +        'argument is not defined')
+      endif
+      goto 999
+   97 if(err.ne.1) then
+         write(buf(1:3),'(i3)') err
+         call msgout(io,lunit,buf(1:3)//
+     +        'th argument must be a system ' //
+     +        'in state space or transfer matrix form')
+      else
+         call msgout(io,lunit,'input argument must be '//
+     &        'a system in state space or transfer matrix form')
+      endif
+      goto 999
+   98 call msgout(io,lunit,' variable returned by scilab argument '//
+     &     'function is incorrect')
+      goto 999
+   99 if(err.ne.1) then
+         write(buf(1:3),'(i3)') err
+         call msgout(io,lunit,' elements of '//buf(1:3)//
+     &        'th must be in increasing order!')
+      else
+         call msgout(io,lunit,'elements of first'//
+     &        ' argument are not (strictly) increasing')
+      endif
+      goto 999
+ 100  if(err.ne.1) then
+         write(buf(1:3),'(i3)') err
+         call msgout(io,lunit,'the elements of  '//buf(1:3)//
+     &        'th argument are not in (strictly) decreasing order')
+      else
+         call msgout(io,lunit,'elements of first '//
+     &        'argument are not in (strictly) decreasing order')
+      endif
+      goto 999
+ 101  if(err.ne.1) then
+         write(buf(1:3),'(i3)') err
+         call msgout(io,lunit,'last element of '//buf(1:3)//
+     &        'th argument <>  first')
+      else
+         call msgout(io,lunit,'last element of first'//
+     &        ' argument does not matches the first one')
+      endif
+      goto 999
+ 102  call cvname(ids(1,pt+1),line(1:nlgh),1)
+      nl=lnblnk(line(1:nlgh))
+      nb=lnblnk(buf)
+      call msgout(io,lunit,'variable or function '//line(1:nl)//
+     +     ' is not in file '//buf(1:nb))
+      goto 999
+ 103  call msgout(io,lunit,' variable '//buf(1:nlgh) //
+     +     ' is not a valid rational function ')
+      goto 999
+ 104  call msgout(io,lunit,' variable '//buf(1:nlgh) //
+     +     ' is not a valid state space representation')
+      goto 999
+ 105  call msgout(io,lunit,'undefined fonction')
+      goto 999
+ 106  call msgout(io,lunit,' fonction name already used')
+      goto 999
+ 107  write(buf(1:3),'(i3)') err
+      call msgout(io,lunit,'too many functions are defined (maximum #:'
+     $     //buf(1:3)//')')
+      goto 999
+ 108  continue
+      call msgout(io,lunit,'too complex for scilab, may be a too long'
+     $     //'control instruction')
+      goto 999
+ 109  continue
+      call msgout(io,lunit,'too large, can''t be displayed')
+      goto 999
+ 110  call cvname(ids(1,pt+1),line(1:nlgh),1)
+      nl=lnblnk(line(1:nlgh))
+      call msgout(io,lunit,line(1:nl)//' was a function when'//
+     +     ' compiled but is now a primitive!')
+      goto 999
+ 111  call cvname(ids(1,pt+1),line(1:nlgh),1)
+      nl=lnblnk(line(1:nlgh))
+      call msgout(io,lunit,'trying to re-define  function '
+     +     //line(1:nl))
+      goto 999
+ 112  call msgout(io,lunit,
+     $     'Cannot allocate more memory')
+      goto 999
+ 113  continue
+      call msgout(io,lunit,'too large string')
+      goto 999
+ 114  continue
+      call msgout(io,lunit,'too many linked routines')
+      goto 999
+ 115  continue
+      call msgout(io,lunit,'Stack problem detected within a loop')
+      call msgout(io,lunit,
+     $     ' a primitive function has been called with wrong number')
+      call msgout(io,lunit,
+     $     ' of lhs arguments. No lhs test made for this function; ')
+      call msgout(io,lunit,
+     $     ' please report this bug')
+      call showstack()
+      goto 999
+ 116  continue
+      if(err.ne.1) then
+         write(buf(1:3),'(i3)') err
+         call msgout(io,lunit,buf(1:3)//
+     +        'th argument has incorrect value')
+      else
+         call msgout(io,lunit,
+     +        'first argument has incorrect value')
+      endif
+      goto 999
+ 117  continue
+      write(buf(1:6),'(i6)') err
+      call msgout(io,lunit,'List element' //buf(1:6)//' is Undefined')
+      goto 999
+ 118  continue
+      if(err.ne.1) then
+         write(buf(1:3),'(i3)') err
+         call msgout(io,lunit,buf(1:3)//
+     +        'th argument must be a named variable not an expression')
+      else
+         call msgout(io,lunit,
+     +        'argument must be a named variable not an expression ')
+      endif
+      goto 999
+ 119  continue
+      goto 999
+ 120  call msgout(io,lunit,'indices for non-zero elements '//
+     $     'must be given by a 2 column matrix')
+      goto 999
+ 121  call msgout(io,wte,
+     $     'incompatible indices for non-zero elements ')
+      goto 999
+ 122  write(buf(1:3),'(i3)') err
+      call msgout(io,lunit,' logical unit number should be '//
+     $     '  larger than '//buf(1:3))
+      goto 999
+ 123  call msgout(io,lunit,' fonction not bounded from below')
+      goto 999
+ 124  continue
+      goto 999
+ 125  call msgout(io,lunit,' problem may be unbounded :'//
+     $     'too high distance between two consecutive iterations')
+      goto 999
+ 126  continue
+      call msgout(io,wte,'Inconsistent constraints')
+      goto 999
+ 127  continue
+      call msgout(io,wte,'no feasible solution')
+      goto 999
+ 128  continue
+      call msgout(io,wte,'degenerate starting point')
+      goto 999
+ 129  continue
+      call msgout(io,wte,'no feasible point has been found')
+      goto 999
+ 130  continue
+      call msgout(io,wte,
+     &     '  optimization fails: back to initial point')
+      goto 999
+ 131  continue
+      call msgout(io,wte,
+     &     ' optim: stop requested by simulator (ind=0)')
+      goto 999
+ 132  continue
+      call msgout(io,wte,
+     &     ' optim: incorrect input parameters')
+      goto 999
+ 133  continue
+      call msgout(io,wte,' too small memory')
+      goto 999
+ 134  continue
+      call msgout(io,wte,
+     &     'optim: problem with initial constants in simul ')
+      goto 999
+ 135  call msgout(io,lunit,
+     +     'optim : bounds and initial guess are incompatible')
+      goto 999
+ 136  call msgout(io,lunit,'optim : this method is NOT implemented ')
+      goto 999
+ 137  call msgout(io,lunit,
+     +     'NO hot restart available in this method')
+      goto 999
+ 138  call msgout(io,lunit,'optim : incorrect stopping parameters')
+      go to 999
+ 139  call msgout(io,lunit,'optim : incorrect bounds')
+      go to 999
+ 140  continue
+      go to 999
+ 141  write(buf(1:3),'(i3)') err
+      call  msgout(io,lunit,
+     +    ' incorrect function (argument n:'//buf(1:3)//')')
+      go to 999
+ 142  write(buf(1:3),'(i3)') err
+      call msgout(io,lunit,'hot restart : dimension of '//
+     &     'working table (argument n:'//buf(1:3)//')')
+      go to 999
+ 143  call msgout(io,lunit,
+     +   'optim : df0 must be positive !')
+      goto 999
+ 144  continue
+      call cvname(ids(1,pt+1),buf,1)
+      ilb=lnblnk(buf(1:nlgh))
+      call msgout(io,lunit,'Undefined operation for the given operands')
+      call msgout(io,lunit,'  check or define function '//buf(1:ilb)//
+     +  ' for overloading')
+      goto 999
+
+ 200  continue
+      goto 999
+c     messages from 201 to 203 and 205 to 214 are no more used by error 
+c     (see Scierror  in stack1.c)
+ 201  continue
+      write(buf(1:3),'(i3)') err
+      call cvname(ids(1,pt+1),buf(4:4+nlgh),1)
+      nl=lnblnk(buf(4:3+nlgh))
+      call msgout(io,lunit,
+     +     'Argument '//buf(1:3)//' of '//buf(4:3+nl)//
+     +        ' : wrong type argument,')
+      call msgout(io,lunit,' expecting a real or complex matrix')
+      go to 999
+ 202  continue
+      write(buf(1:3),'(i3)') err
+      call cvname(ids(1,pt+1),buf(4:4+nlgh),1)
+      nl=lnblnk(buf(4:3+nlgh))
+      call msgout(io,lunit,
+     +     'Argument '//buf(1:3)//' of '//buf(4:3+nl)//
+     +        ' : wrong type argument,')
+      call msgout(io,lunit,' expecting a real matrix')
+      goto 999
+ 203  continue
+      write(buf(1:3),'(i3)') err
+      call cvname(ids(1,pt+1),buf(4:4+nlgh),1)
+      nl=lnblnk(buf(4:3+nlgh))
+      call msgout(io,lunit,
+     +     'Argument '//buf(1:3)//' of '//buf(4:3+nl)//
+     +        ' : wrong type argument,')
+      call msgout(io,lunit,' expecting a real vector')
+      goto 999
+
+ 204  continue
+      write(buf(1:3),'(i3)') err
+      call msgout(io,lunit,
+     +     'Argument '//buf(1:3)//', wrong type argument:'//
+     +     ' expecting a scalar')
+      goto 999
+
+ 205  continue
+      write(buf(1:3),'(i3)') err
+      call cvname(ids(1,pt+1),buf(4:4+nlgh),1)
+      nl=lnblnk(buf(4:3+nlgh))
+      i1=4+nlgh
+      write(buf(i1:i1+6),'(i3,'','',i3)') pstk(