Date: 2025-03-28T21:11:14+00:00

Actual source code: zarchf.c

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