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