Actual source code: tao_general.h

  1: !
  2: !  $Id: tao_general.h 1.8 04/07/29 17:06:28-05:00 sarich@Chico.mcs.anl.gov $;
  3: !
  4: !  Base include file for Fortran use of the TAO package.
  5: !
  6: #include "petscconf.h"

  8: #include "finclude/tao_def.h"

 10: #if !defined (PETSC_AVOID_DECLARATIONS)
 11: ! ------------------------------------------------------------------------
 12: !     Non Common block stuff declared first
 13: !
 14: !     Flags
 15: !
 16:       integer   TAO_TRUE,TAO_FALSE,TAO_DECIDE
 17:       integer   TAO_DEFAULT_INTEGER,TAO_DETERMINE

 19:       parameter (TAO_TRUE = PETSC_TRUE)
 20:       parameter (TAO_FALSE = PETSC_FALSE)
 21:       parameter (TAO_DECIDE = PETSC_DECIDE)
 22:       parameter (TAO_DETERMINE = PETSC_DETERMINE)
 23:       parameter (TAO_DEFAULT_INTEGER = PETSC_DEFAULT_INTEGER)

 25: ! ----------------------------------------------------------------------------
 26: !     BEGIN COMMON-BLOCK VARIABLES

 28: !     Fortran Null
 29: !
 30:       character*(80)     TAO_NULL_CHARACTER
 31:       PetscInt    TAO_NULL_INTEGER
 32:       PetscFortranDouble TAO_NULL_DOUBLE
 33:       PetscScalar        TAO_NULL_SCALAR
 34: !
 35: !     A TAO_NULL_FUNCTION pointer
 36: !
 37: !      external TAO_NULL_FUNCTION
 38: !
 39: !     Common block to store some of the TAO constants,
 40: !     which can be set only at runtime.
 41: !     (A string should be in a different common block.)
 42: !
 43:       common /taofortran1/ TAO_NULL_CHARACTER
 44:       common /taofortran2/ TAO_NULL_INTEGER
 45:       common /taofortran3/ TAO_NULL_SCALAR
 46:       common /taofortran4/ TAO_NULL_DOUBLE

 48: !     END COMMON-BLOCK VARIABLES
 49: ! ----------------------------------------------------------------------------

 51: #endif