Actual source code: taofort.F

      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