Actual source code: petscao.h

  1: !
  2: !  Used by petscvecmod.F90 to create Fortran module file
  3: !
  4: #include "petsc/finclude/petscao.h"

  6: !  cannot use tAO because that type matches the variable tao used in tao examples
  7:       type, extends(tPetscObject) :: tPetscAO
  8:       end type tPetscAO
  9:       AO, parameter :: PETSC_NULL_AO = tPetscAO(0)
 10: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
 11: !DEC$ ATTRIBUTES DLLEXPORT::PETSC_NULL_AO
 12: #endif