Actual source code: ex1f.h

  1: !
  2: !    Application context data, stored in common block
  3: !
  4:       double precision h,nrm_2,nrm_max,nox
  5:       Vec    localwork,csolution
  6:       DA     da
  7:       PetscViewer viewer1,viewer2
  8:       PetscInt    M
  9:       common /tsctx/   h,nrm_2,nrm_max,nox
 10:       common /tsctx/   viewer1,viewer2,localwork,csolution,da,M