fix import/export of ierode common on Windows
[scilab.git] / scilab / modules / differential_equations / sci_gateway / fortran / bydot2.f
index 7af5659..a9c77a4 100644 (file)
@@ -13,7 +13,6 @@ c
       INCLUDE 'stack.h'
       integer iadr,sadr
 c     
-      common/ierode/iero
       common/odecd/nd,iflag
 c     
       logical allowptr
@@ -29,7 +28,7 @@ c     nordre=external number
 c     mlhs (mrhs) = number ot output (input) parameters of the 
 c     external 
 c  
-      iero=0
+      ierror=0
       mrhs=4
 c     
       ilp=iadr(lstk(top))
@@ -47,9 +46,9 @@ c     fortran external
 c     
 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     transfer of input parameters
 c+    
@@ -159,8 +158,8 @@ c     transfer of output parameters of external to fortran
       endif
       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