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