plex/tests/ex26f90.F90

94   type(tVec)                          :: tmpVec
402   PetscCallA(DMGetGlobalVector(dmUA, tmpVec, ierr))
403   PetscCallA(VecCopy(UA, tmpVec, ierr))
404   PetscCallA(PetscObjectSetName(tmpVec, 'U', ierr))
405   PetscCallA(VecView(tmpVec, viewer, ierr))
408   PetscCallA(VecSet(tmpVec, -1000.0_kPR, ierr))
409   PetscCallA(VecLoad(tmpVec, viewer, ierr))
410   PetscCallA(VecAXPY(UA, -1.0_kPR, tmpVec, ierr))
415   PetscCallA(DMRestoreGlobalVector(dmUA, tmpVec, ierr))
418   PetscCallA(DMGetGlobalVector(dmUA2, tmpVec, ierr))
419   PetscCallA(VecCopy(UA2, tmpVec, ierr))
420   PetscCallA(PetscObjectSetName(tmpVec, 'U', ierr))
422   PetscCallA(VecView(tmpVec, viewer, ierr))
425   PetscCallA(VecSet(tmpVec, -1000.0_kPR, ierr))
426   PetscCallA(VecLoad(tmpVec, viewer, ierr))
427   PetscCallA(VecAXPY(UA2, -1.0_kPR, tmpVec, ierr))
432   PetscCallA(DMRestoreGlobalVector(dmUA2, tmpVec, ierr))
474   PetscCallA(DMGetGlobalVector(dmS, tmpVec, ierr))
475   PetscCallA(VecSet(tmpVec, -1000.0_kPR, ierr))
476   PetscCallA(PetscObjectSetName(tmpVec, 'Sigma', ierr))
477   PetscCallA(VecLoad(tmpVec, viewer, ierr))
478   PetscCallA(VecAXPY(S, -1.0_kPR, tmpVec, ierr))
483   PetscCallA(DMRestoreGlobalVector(dmS, tmpVec, ierr))