Actual source code: chwirut2f.h

petsc-3.15.0 2021-03-30
Report Typos and Errors
  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: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -