Actual source code: chwirut2f.h
petsc-3.12.2 2019-11-22
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: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -