fix import/export of ierode common on Windows
[scilab.git] / scilab / modules / differential_equations / src / fortran / stodi.f
index 11d551a..a661202 100644 (file)
@@ -23,8 +23,6 @@ clll. optimize
      3   ialth, ipup, lmax, meo, nqnyh, nslp,
      4   icf, ierpj, iersl, jcur, jstart, kflag, l, meth, miter,
      5   maxord, maxcor, msbp, mxncf, n, nq, nst, nre, nje, nqu
-      integer         iero
-      common /ierode/ iero
 c-----------------------------------------------------------------------
 c%purpose
 c stodi performs one step of the integration of an initial value
@@ -255,14 +253,14 @@ c-----------------------------------------------------------------------
       crate = 0.70d+0
       call pjac (neq, y, yh, nyh, ewt, acor, savr, savf, wm, iwm,
      1   res, jac, adda )
-      if(iero.gt.0) return
+      if(ierror.gt.0) return
       if (ierpj .eq. 0) go to 250
       ires = ierpj
       go to (430, 435, 430), ires
 c get residual at predicted values, if not already done in pjac. -------
  240  ires = 1
       call res ( neq, tn, y, savf, savr, ires )
-      if(iero.gt.0) return
+      if(ierror.gt.0) return
       nre = nre + 1
       kgo = abs(ires)
       go to ( 250, 435, 430 ) , kgo
@@ -295,7 +293,7 @@ c-----------------------------------------------------------------------
       delp = del
       ires = 1
       call res ( neq, tn, y, savf, savr, ires )
-      if(iero.gt.0) return
+      if(ierror.gt.0) return
       nre = nre + 1
       kgo = abs(ires)
       go to ( 270, 435, 410 ) , kgo