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