1: #include <petsc/private/fortranimpl.h>
2: #include <petscsys.h>
3: #if defined(PETSC_HAVE_FORTRAN_CAPS)
4: #define petscgetarchtype_ PETSCGETARCHTYPE
5: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
6: #define petscgetarchtype_ petscgetarchtype
7: #endif
9: PETSC_EXTERN void petscgetarchtype_(char *str, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len)
10: {
11: char *tstr;
12: size_t tlen;
13: tstr = str;
14: tlen = len; /* int to size_t */
15: *ierr = PetscGetArchType(tstr, tlen);
16: FIXRETURNCHAR(PETSC_TRUE, str, len);
17: }