plex/tests/ex62f90.F90

76   type(tVec)                          :: tmpVec
386   PetscCallA(DMGetGlobalVector(dmUA, tmpVec, ierr))
387   PetscCallA(VecCopy(UA, tmpVec, ierr))
388   PetscCallA(PetscObjectSetName(tmpVec, 'U', ierr))
389   PetscCallA(VecView(tmpVec, viewer, ierr))
392   PetscCallA(VecSet(tmpVec, -1000.0_kPR, ierr))
393   PetscCallA(VecLoad(tmpVec, viewer, ierr))
394   PetscCallA(VecAXPY(UA, -1.0_kPR, tmpVec, ierr))
399   PetscCallA(DMRestoreGlobalVector(dmUA, tmpVec, ierr))
402   PetscCallA(DMGetGlobalVector(dmUA2, tmpVec, ierr))
403   PetscCallA(VecCopy(UA2, tmpVec, ierr))
404   PetscCallA(PetscObjectSetName(tmpVec, 'U', ierr))
406   PetscCallA(VecView(tmpVec, viewer, ierr))
409   PetscCallA(VecSet(tmpVec, -1000.0_kPR, ierr))
410   PetscCallA(VecLoad(tmpVec, viewer, ierr))
411   PetscCallA(VecAXPY(UA2, -1.0_kPR, tmpVec, ierr))
416   PetscCallA(DMRestoreGlobalVector(dmUA2, tmpVec, ierr))
458   PetscCallA(DMGetGlobalVector(dmS, tmpVec, ierr))
459   PetscCallA(VecSet(tmpVec, -1000.0_kPR, ierr))
460   PetscCallA(PetscObjectSetName(tmpVec, 'Sigma', ierr))
461   PetscCallA(VecLoad(tmpVec, viewer, ierr))
462   PetscCallA(VecAXPY(S, -1.0_kPR, tmpVec, ierr))
467   PetscCallA(DMRestoreGlobalVector(dmS, tmpVec, ierr))