Actual source code: eptorsion2f.h

petsc-3.8.3 2017-12-09
Report Typos and Errors
  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: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -