* Bug #11996 fixed - Extend eye() to hypermatrix.
[scilab.git] / scilab / modules / elementary_functions / sci_gateway / fortran / sci_f_eye.f
index 0e939e8..0520870 100644 (file)
@@ -24,7 +24,8 @@ c
          return
       endif
       if(rhs.gt.2) then
-         call error(42)
+         call setfunnam(ids(1,pt+1),'%hm_eye',7)
+         fun=-1
          return
       endif