fix import/export of ierode common on Windows
[scilab.git] / scilab / modules / differential_equations / sci_gateway / fortran / sci_f_daskr.f
index 15ddc1b..38905fb 100644 (file)
@@ -34,7 +34,6 @@ c
       common /dassln/ namer,namej,names,namep,namepj
       external bresd,bjacd,bsurfd,bpsold,bpjacd
       external setfresd,setfjacd,setfsurfd,setfpsold,setfpjacd
-      common/ierode/iero
 c
       data atol/1.d-7/,rtol/1.d-9/
 c
@@ -45,7 +44,7 @@ c     SCILAB function : daskr
 c     --------------------------
 c     [y0,nvs[,hotdata]]=daskr(y0,t0,t1[,atol[,rtol]],res[,jac],nh,h[,info
 c     [,psol][,pjac]][,hotdata])
-      iero=0
+      ierror=0
       maxord=5
       lbuf = 1
       topk=top