Actual source code: slepcfort.F

  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