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: }