fix import/export of ierode common on Windows
[scilab.git] / scilab / modules / differential_equations / sci_gateway / fortran / bresd.f
index 3f81297..7a77946 100644 (file)
@@ -18,7 +18,6 @@ c
       INCLUDE 'stack.h'
       integer iadr,sadr
 c     
-      common/ierode/iero
       logical allowptr
 c      
       character tmpbuf * (bsiz) 
@@ -41,7 +40,7 @@ c     mlhs (mrhs) is the number of output (input) parameters
 c     of the simulator
 c     
       mrhs=3
-      iero=0
+      ierror=0
 c     
       ilp=iadr(lstk(top))
       il=istk(ilp+nordre)
@@ -56,9 +55,9 @@ c     Case of a Fortran simulator
       endif
 c     external is a Scilab function
 
-c     On return iero=1 is used to notify to the ode solver that
+c     On return ierror=1 is used to notify to the ode solver that
 c     scilab was not able to evaluate the external
-      iero=1
+      ierror=1
 
 c     Putting Fortran arguments on Scilab stack 
 c     
@@ -145,8 +144,8 @@ c     Transferring the output to Fortran
       call btof(res,neq)
       if(err.gt.0.or.err1.gt.0) return
 c+    
-c     normal return iero set to 0
-      iero=0 
+c     normal return ierror set to 0
+      ierror=0 
       return
 c     
  9999 continue