Commit 83b1c39f authored by Houtan Bastani's avatar Houtan Bastani
Browse files

fix for compilation of octave mex files

parent 71f184e3
......@@ -19,7 +19,11 @@ MODULE GFORTRAN
IMPLICIT NONE
CONTAINS
FUNCTION LOGICAL2INTEGER(V)
#if defined(OCTAVE_MEX_FILE)
LOGICAL*4, DIMENSION(:), INTENT(IN) :: V
#else
LOGICAL, DIMENSION(:), INTENT(IN) :: V
#endif
INTEGER :: I
INTEGER, DIMENSION(SIZE(V)) :: LOGICAL2INTEGER
DO I=1,SIZE(V)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment