5 SUBROUTINE dcnst0 (NEQ, Y, ICNSTR, IRET)
41 IMPLICIT DOUBLE PRECISION(
a-
h,o-z)
51 IF (icnstr(i) .EQ. 2)
THEN
52 IF (y(i) .LE.
zero)
THEN
56 ELSEIF (icnstr(i) .EQ. 1)
THEN
57 IF (y(i) .LT.
zero)
THEN
61 ELSEIF (icnstr(i) .EQ. -1)
THEN
62 IF (y(i) .GT.
zero)
THEN
66 ELSEIF (icnstr(i) .EQ. -2)
THEN
67 IF (y(i) .GE.
zero)
THEN
calling an anonymous function involves an overhead quite comparable to the overhead of an m file function Passing a handle to a built in function is because the interpreter is not involved in the internal loop For a
subroutine dcnst0(NEQ, Y, ICNSTR, IRET)
OCTAVE_EXPORT octave_value_list etc The functions then dimension(columns)