Actual source code: taofort.F

  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