Actual source code: chwirut2f.h

petsc-3.12.2 2019-11-22
Report Typos and Errors
  1: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  2: !             Include file for program chwirut2f.F
  3: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  4: !

  6: #include "petsc/finclude/petsctao.h"
  7:       use petsctao
  8:       implicit none

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

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

 31: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -