Actual source code: chwirut2f.h

      1: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      2: !             Include file for program chwirut2f.F
      3: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      4: !

      6: #include "petsc/finclude/petsctao.h"
      7:       use petscmpi  ! or mpi or mpi_f08
      8:       use petsctao
      9:       implicit none

     11: !  Common blocks:
     12: !  In this example we use common blocks to store data needed by the
     13: !  application-provided call-back routines, FormMinimizationFunction(),
     14: !  FormFunctionGradient(), and FormHessian().  Note that we can store
     15: !  (pointers to) TAO objects within these common blocks.
     16: !
     17: !  common /params/ - contains parameters that help to define the application
     18: !
     19:       PetscReal t(0:213)
     20:       PetscReal y(0:213)
     21:       PetscInt  m,n
     22:       PetscMPIInt  nn
     23:       PetscMPIInt  rank
     24:       PetscMPIInt  size
     25:       PetscMPIInt  idle_tag, die_tag
     26:       PetscMPIInt  zero,one
     27:       parameter (m=214)
     28:       parameter (n=3)
     29:       parameter (nn=n)
     30:       parameter (idle_tag=2000)
     31:       parameter (die_tag=3000)
     32:       parameter (zero=0,one=1)

     34:       common /params/ t,y,rank,size

     36: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -