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
petscmatlabengineevaluate_(PetscMatlabEngine * e,char * m,PetscErrorCode * ierr,PETSC_FORTRAN_CHARLEN_T len)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