1*6dd63270SBarry Smith #include <petsc/private/ftnimpl.h> 25c6c1daeSBarry Smith #include <petscmatlab.h> 35c6c1daeSBarry Smith 45c6c1daeSBarry Smith #if defined(PETSC_HAVE_FORTRAN_CAPS) 55c6c1daeSBarry Smith #define petscmatlabengineevaluate_ PETSCMATLABENGINEEVALUATE 65c6c1daeSBarry Smith #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 75c6c1daeSBarry Smith #define petscmatlabengineevaluate_ petscmatlabengineevaluate 85c6c1daeSBarry Smith #endif 95c6c1daeSBarry Smith 105975b3b6SBarry Smith PETSC_EXTERN void petscmatlabengineevaluate_(PetscMatlabEngine *e, char *m, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len) 115c6c1daeSBarry Smith { 125c6c1daeSBarry Smith char *ms; 135c6c1daeSBarry Smith FIXCHAR(m, len, ms); 145975b3b6SBarry Smith *ierr = PetscMatlabEngineEvaluate(*e, ms); 155975b3b6SBarry Smith if (*ierr) return; 165c6c1daeSBarry Smith FREECHAR(m, ms); 175c6c1daeSBarry Smith } 18