* Bug #11996 fixed - Extend eye() to hypermatrix.

[scilab.git] / scilab / modules / elementary_functions / sci_gateway / fortran / sci_f_eye.f

diff --git a/scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_eye.f b/scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_eye.f
index 0e939e8..0520870 100644 (file)
--- a/scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_eye.f
+++ b/scilab/modules/elementary_functions/sci_gateway/fortran/sci_f_eye.f
@@ -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