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