1: ! 2: ! "$Id: taofort.F 1.1 00/04/20 17:45:06-00:00 curfman@ $"; 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