1: module petscisdef
  2:   use, intrinsic :: ISO_C_binding
  3:   use petscsysdef
  4: #include <petsc/finclude/petscis.h>
  5: #include <../ftn/vec/petscis.h>
  6: #include <petsc/finclude/petscsf.h>
  7: #include <../ftn/vec/petscsf.h>
  8: #include <petsc/finclude/petscsection.h>
  9: #include <../ftn/vec/petscsection.h>

 11: end module

 13: !     Needed by Fortran stub petscsfgetgraph_()
 14: subroutine F90Array1dCreateSFNode(array, start, len, ptr)
 15:   use petscisdef
 16:   implicit none
 17:   PetscInt start, len
 18:   PetscSFNode, target :: array(start:start + len - 1)
 19:   PetscSFNode, pointer :: ptr(:)
 20:   ptr => array
 21: end subroutine
 22: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
 23: !DEC$ ATTRIBUTES DLLEXPORT:: F90Array1dCreateSFNode
 24: #endif

 26: subroutine F90Array1dDestroySFNode(ptr)
 27:   use petscisdef
 28:   implicit none
 29:   PetscSFNode, pointer :: ptr(:)
 30:   nullify (ptr)
 31: end subroutine
 32: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
 33: !DEC$ ATTRIBUTES DLLEXPORT:: F90Array1dDestroySFNode
 34: #endif

 36: module petscis
 37:   use petscisdef
 38:   use petscsys

 40:   interface PetscSFDestroyRemoteOffsets
 41:     subroutine PetscSFDestroyRemoteOffsets(ptr, ierr)
 42:       use petscisdef
 43:       implicit none
 44:       PetscInt, pointer :: ptr(:)
 45:       PetscErrorCode :: ierr
 46:     end subroutine PetscSFDestroyRemoteOffsets
 47:   end interface

 49: #include <../src/vec/ftn-mod/petscis.h90>
 50: #include <../ftn/vec/petscsf.h90>
 51: #include <../ftn/vec/petscsection.h90>
 52: #include <../ftn/vec/petscis.h90>

 54: contains

 56: #include <../ftn/vec/petscsf.hf90>
 57: #include <../ftn/vec/petscsection.hf90>
 58: #include <../ftn/vec/petscis.hf90>

 60: end module

 62: module petscvecdef
 63:   use petscisdef
 64: #include <petsc/finclude/petscvec.h>
 65: #include <../ftn/vec/petscvec.h>
 66: end module

 68: module petscvec
 69:   use petscis
 70:   use petscvecdef

 72: #include <../src/vec/ftn-mod/petscvec.h90>
 73: #include <../ftn/vec/petscvec.h90>

 75: contains

 77: #include <../ftn/vec/petscvec.hf90>

 79: end module

 81: module petscaodef
 82:   use petscsys
 83:   use petscvecdef
 84: #include <petsc/finclude/petscao.h>
 85: #include <../ftn/vec/petscao.h>
 86: end module

 88: module petscao
 89:   use petscsys
 90:   use petscaodef
 91: #include <../ftn/vec/petscao.h90>
 92: contains
 93: #include <../ftn/vec/petscao.hf90>
 94: end module

 96: module petscpfdef
 97:   use petscsys
 98:   use petscvecdef
 99: #include <petsc/finclude/petscpf.h>
100: #include <../ftn/vec/petscpf.h>
101: end module

103: module petscpf
104:   use petscsys
105:   use petscpfdef
106: #include <../ftn/vec/petscpf.h90>
107: contains
108: #include <../ftn/vec/petscpf.hf90>
109: end module