Actual source code: chwirut2f.h
petsc-3.15.0 2021-03-30
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: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -