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: logical TAO_TRUE,TAO_FALSE
17: integer TAO_DECIDE
18: integer TAO_DEFAULT_INTEGER,TAO_DETERMINE
20: parameter (TAO_TRUE = PETSC_TRUE)
21: parameter (TAO_FALSE = PETSC_FALSE)
22: parameter (TAO_DECIDE = PETSC_DECIDE)
23: parameter (TAO_DETERMINE = PETSC_DETERMINE)
24: parameter (TAO_DEFAULT_INTEGER = PETSC_DEFAULT_INTEGER)
26: ! ----------------------------------------------------------------------------
27: ! BEGIN COMMON-BLOCK VARIABLES
29: ! Fortran Null
30: !
31: character*(80) TAO_NULL_CHARACTER
32: PetscInt TAO_NULL_INTEGER
33: PetscFortranDouble TAO_NULL_DOUBLE
34: PetscScalar TAO_NULL_SCALAR
35: !
36: ! A TAO_NULL_FUNCTION pointer
37: !
38: ! external TAO_NULL_FUNCTION
39: !
40: ! Common block to store some of the TAO constants,
41: ! which can be set only at runtime.
42: ! (A string should be in a different common block.)
43: !
44: common /taofortran1/ TAO_NULL_CHARACTER
45: common /taofortran2/ TAO_NULL_INTEGER
46: common /taofortran3/ TAO_NULL_SCALAR
47: common /taofortran4/ TAO_NULL_DOUBLE
49: ! END COMMON-BLOCK VARIABLES
50: ! ----------------------------------------------------------------------------
52: #endif