fix import/export of ierode common on Windows
[scilab.git] / scilab / modules / differential_equations / src / fortran / lsodar.f
index be4fa6d..e4fa421 100644 (file)
@@ -1092,6 +1092,9 @@ c-----------------------------------------------------------------------
 c the following card is for optimized compilation on lll compilers.
 clll. optimize
 c-----------------------------------------------------------------------
+      
+      include 'stack.h'
+      
       external prja, solsy
       integer illin, init, lyh, lewt, lacor, lsavf, lwm, liwm,
      1   mxstep, mxhnil, nhnil, ntrep, nslast, nyh, iowns
@@ -1130,8 +1133,6 @@ c in subroutines lsodar, rchek, and roots.  groups of variables are
 c replaced by dummy arrays in the common declarations in routines
 c where those variables are not used.
 c-----------------------------------------------------------------------
-      integer         iero
-      common /ierode/ iero
       common /ls0001/ tret, rowns(209),
      1   ccmax, el0, h, hmin, hmxi, hu, rc, tn, uround,
      2   illin, init, lyh, lewt, lacor, lsavf, lwm, liwm,
@@ -1361,7 +1362,7 @@ c-----------------------------------------------------------------------
 c initial call to f.  (lf0 points to yh(*,2).) -------------------------
       lf0 = lyh + nyh
       call f (neq, t, y, rwork(lf0))
-      if(iero.gt.0) return
+      if(ierror.gt.0) return
       nfe = 1
 c load the initial value vector in yh. ---------------------------------
       do 115 i = 1,n
@@ -1428,7 +1429,7 @@ c check for a zero of g at t. ------------------------------------------
       if (ngc .eq. 0) go to 270
       call rchek (1, g, neq, y, rwork(lyh), nyh,
      1   rwork(lg0), rwork(lg1), rwork(lgx), jroot, irt)
-      if(iero.gt.0) return
+      if(ierror.gt.0) return
       if (irt .eq. 0) go to 270
       go to 632
 c-----------------------------------------------------------------------
@@ -1447,7 +1448,7 @@ c
       if (itask .eq. 1 .or. itask .eq. 4) toutc = tout
       call rchek (2, g, neq, y, rwork(lyh), nyh,
      1   rwork(lg0), rwork(lg1), rwork(lgx), jroot, irt)
-      if(iero.gt.0) return
+      if(ierror.gt.0) return
       if (irt .lt. 0) go to 632
       if (irt .ne. 1) go to 205
       irfnd = 1
@@ -1538,7 +1539,7 @@ c-----------------------------------------------------------------------
       call stoda (neq, y, rwork(lyh), nyh, rwork(lyh), rwork(lewt),
      1   rwork(lsavf), rwork(lacor), rwork(lwm), iwork(liwm),
      2   f, jac, prja, solsy)
-      if(iero.gt.0) return
+      if(ierror.gt.0) return
       kgo = 1 - kflag
       go to (300, 530, 540), kgo
 c-----------------------------------------------------------------------
@@ -1575,7 +1576,7 @@ c
       if (ngc .eq. 0) go to 315
       call rchek (3, g, neq, y, rwork(lyh), nyh,
      1   rwork(lg0), rwork(lg1), rwork(lgx), jroot, irt)
-      if(iero.gt.0) return
+      if(ierror.gt.0) return
       if (irt .ne. 1) go to 315
       irfnd = 1
       istate = 3