fix import/export of ierode common on Windows
[scilab.git] / scilab / modules / differential_equations / src / fortran / rchek2.f
index cc60939..6503232 100644 (file)
@@ -1,6 +1,8 @@
       subroutine rchek2(job, g, neq, y, yh, nyh, g0, g1, gx, jroot, irt
      $     ,IWORK)
 clll. optimize
+      include 'stack.h'
+      
       external g
       integer job, neq, nyh, jroot, irt
       double precision y, yh, g0, g1, gx
@@ -22,8 +24,6 @@ clll. optimize
      5   maxord, maxcor, msbp, mxncf, n, nq, nst, nfe, nje, nqu
       common /lsr001/ rownr3(2), t0, tlast, toutc,
      1   iownd3(3), iownr3(2), irfnd, itaskc, ngc, nge      
-      integer         iero
-      common /ierode/ iero
 c     ------------------ masking ----------------
       integer IWORK
       dimension IWORK(*)
@@ -134,7 +134,7 @@ c set t1 to tn or toutc, whichever comes first, and get g at t1. -------
       do 320 i = 1,n
  320    y(i) = yh(i,1)
  330  call g (neq, t1, y, ngc, g1)
-      if(iero.gt.0) return
+      if(ierror.gt.0) return
       nge = nge + 1
 
 C     Call DROOTS to search for root in interval from T0 to T1. -----------
@@ -149,7 +149,7 @@ C     Call DROOTS to search for root in interval from T0 to T1. -----------
       IF (JFLAG .GT. 1) GO TO 360
       call intdy (x, 0, yh, nyh, y, iflag)
       call g (neq, x, y, ngc, gx)
-      if(iero.gt.0) return
+      if(ierror.gt.0) return
       nge = nge + 1
       GO TO 350