fix import/export of ierode common on Windows
[scilab.git] / scilab / modules / differential_equations / src / fortran / xerrwv.f
index 2e24c35..9f8f03a 100644 (file)
@@ -59,8 +59,6 @@ c-----------------------------------------------------------------------
       include 'stack.h'
       integer num, imess, imode
       common /eh0001/ mesflg, lunit
-      integer         iero
-      common /ierode/ iero
       character*80 str
 c-----------------------------------------------------------------------
       if (mesflg .eq. 0) go to 100
@@ -111,5 +109,5 @@ cstd         write (lun, 50) r1,r2
       endif
 c abort the run if iert = 2. -------------------------------------------
  100  if (iert .ne. 2) return
-      iero = 1
+      ierror = 1
       end