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