1: ! 2: ! "$Id$"; 3: ! 4: ! Utility routine used to set some values into a Fortran common block 6: subroutine TaoSetCommonBlock() 7: implicit none 9: #include "include/finclude/petsc.h" 10: #include "include/finclude/tao_solver.h" 12: TAO_NULL_CHARACTER = PETSC_NULL_CHARACTER 13: TAO_NULL_INTEGER = PETSC_NULL_INTEGER 14: TAO_NULL_SCALAR = PETSC_NULL_SCALAR 15: TAO_NULL_DOUBLE = PETSC_NULL_DOUBLE 17: return 18: end