Actual source code: eptorsion2f.h
petsc-3.8.3 2017-12-09
1: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
2: ! Include file for program eptorsion2f.F
3: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
4: !
5: ! See the Fortran section of the PETSc users manual for details.
6: !
8: #include "petsc/finclude/petsctao.h"
9: use petscdmda
10: use petsctao
11: implicit none
13: ! Common blocks:
14: ! In this example we use common blocks to store data needed by the
15: ! application-provided call-back routines, FormFunction(), FormGradient(),
16: ! and FormHessian(). Note that we can store (pointers to) TAO objects
17: ! within these common blocks.
18: !
19: ! common /params/ - contains parameters for the global application
20: ! mx, my - global discretization in x- and y-directions
21: ! param - nonlinearity parameter
22: !
23: ! common /pdata/ - contains some parallel data
24: ! localX - local work vector (including ghost points)
25: ! localS - local work vector (including ghost points)
26: ! dm - distributed array
27: !
28: Vec localX
29: DM dm
30: PetscReal param
31: PetscInt mx, my
33: common /params/ param,mx,my
34: common /pdata/ dm,localX
36: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -