Date: 2025-03-28T21:10:52+00:00

Actual source code: zitfuncf90.c

      1: #include <petscksp.h>
      2: #include <petsc/private/f90impl.h>

      4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
      5:   #define kspgetresidualhistoryf90_ KSPGETRESIDUALHISTORYF90
      6: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
      7:   #define kspgetresidualhistoryf90_ kspgetresidualhistoryf90
      8: #endif

     10: PETSC_EXTERN void kspgetresidualhistoryf90_(KSP *ksp, F90Array1d *indices, PetscInt *n, int *ierr PETSC_F90_2PTR_PROTO(ptrd))
     11: {
     12:   PetscReal const *hist;
     13:   *ierr = KSPGetResidualHistory(*ksp, &hist, n);
     14:   if (*ierr) return;
     15:   *ierr = F90Array1dCreate((void *)hist, MPIU_REAL, 1, *n, indices PETSC_F90_2PTR_PARAM(ptrd));
     16: }