fix import/export of ierode common on Windows
[scilab.git] / scilab / modules / differential_equations / src / fortran / lsoda.f
index d7eb70b..9a1d2c2 100644 (file)
@@ -975,6 +975,8 @@ 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
@@ -1008,8 +1010,6 @@ c in subroutines lsoda, stoda, and prja.  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,
@@ -1028,7 +1028,7 @@ c if istate .gt. 1 but the flag init shows that initialization has
 c not yet been done, an error return occurs.
 c if istate = 1 and tout = t, jump to block g and return immediately.
 c-----------------------------------------------------------------------
-      iero=0
+      ierror=0
       if (istate .lt. 1 .or. istate .gt. 3) go to 601
       if (itask .lt. 1 .or. itask .gt. 5) go to 602
       if (istate .eq. 1) go to 10
@@ -1219,7 +1219,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
@@ -1365,7 +1365,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-----------------------------------------------------------------------