add an auxiliary function to return real part of PETSc vector element and test that imaginary part is zero
add an auxiliary function to return real part of PETSc vector element and test that imaginary part is zero

JaeryunYim/dealii,naliboff/dealii,EGP-CIG-REU/dealii,maieneuro/dealii,naliboff/dealii,nicolacavallini/dealii,maieneuro/dealii,pesser/dealii,danshapero/dealii,sairajat/dealii,ESeNonFossiIo/dealii,nicolacavallini/dealii,kalj/dealii,ESeNonFossiIo/dealii,spco/dealii,shakirbsm/dealii,spco/dealii,jperryhouts/dealii,shakirbsm/dealii,spco/dealii,gpitton/dealii,pesser/dealii,gpitton/dealii,sairajat/dealii,EGP-CIG-REU/dealii,andreamola/dealii,spco/dealii,shakirbsm/dealii,angelrca/dealii,maieneuro/dealii,kalj/dealii,jperryhouts/dealii,danshapero/dealii,pesser/dealii,gpitton/dealii,maieneuro/dealii,pesser/dealii,pesser/dealii,andreamola/dealii,gpitton/dealii,kalj/dealii,kalj/dealii,andreamola/dealii,naliboff/dealii,spco/dealii,kalj/dealii,angelrca/dealii,danshapero/dealii,jperryhouts/dealii,nicolacavallini/dealii,JaeryunYim/dealii,angelrca/dealii,andreamola/dealii,kalj/dealii,JaeryunYim/dealii,kalj/dealii,maieneuro/dealii,danshapero/dealii,danshapero/dealii,shakirbsm/dealii,pesser/dealii,andreamola/dealii,sairajat/dealii,EGP-CIG-REU/dealii,JaeryunYim/dealii,sairajat/dealii,spco/dealii,naliboff/dealii,nicolacavallini/dealii,JaeryunYim/dealii,jperryhouts/dealii,JaeryunYim/dealii,jperryhouts/dealii,shakirbsm/dealii,gpitton/dealii,angelrca/dealii,nicolacavallini/dealii,ESeNonFossiIo/dealii,spco/dealii,jperryhouts/dealii,EGP-CIG-REU/dealii,gpitton/dealii,gpitton/dealii,shakirbsm/dealii,maieneuro/dealii,ESeNonFossiIo/dealii,EGP-CIG-REU/dealii,danshapero/dealii,jperryhouts/dealii,nicolacavallini/dealii,naliboff/dealii,JaeryunYim/dealii,ESeNonFossiIo/dealii,danshapero/dealii,naliboff/dealii,angelrca/dealii,EGP-CIG-REU/dealii,maieneuro/dealii,sairajat/dealii,angelrca/dealii,andreamola/dealii,sairajat/dealii,naliboff/dealii,pesser/dealii,andreamola/dealii,EGP-CIG-REU/dealii,shakirbsm/dealii,sairajat/dealii,ESeNonFossiIo/dealii,ESeNonFossiIo/dealii,angelrca/dealii,nicolacavallini/dealii