1: ! 2: ! Utility routine used to set some values into a Fortran common block 4: subroutine SlepcSetCommonBlock() 5: implicit none 7: #include "include/finclude/petsc.h" 8: #include include/finclude/slepc.h 10: SLEPC_NULL_CHARACTER = PETSC_NULL_CHARACTER 11: SLEPC_NULL_INTEGER = PETSC_NULL_INTEGER 12: SLEPC_NULL_SCALAR = PETSC_NULL_SCALAR 13: SLEPC_NULL_DOUBLE = PETSC_NULL_DOUBLE 15: return 16: end