Actual source code: tao_general.h
1: !
2: ! $Id$;
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