1. Lisandro Dalcin
  2. PetIGA

Source

PetIGA / demo / Neumann.c

Diff from to

File demo/Neumann.c

   PetscScalar mean;
   ierr = VecDot(Q,x,&mean);CHKERRQ(ierr);
   ierr = VecShift(x,-mean);CHKERRQ(ierr);
+  ierr = VecDestroy(&Q);CHKERRQ(ierr);
 
   PetscScalar error;
   ierr = IGAComputeScalar(iga,x,1,&error,Error,NULL);CHKERRQ(ierr);