LCPQ/DEHam
2
0
Fork 0
mirror of https://github.com/LCPQ/DEHam synced 2024-07-30 09:04:19 +02:00
Code Issues Releases Wiki Activity

trying to read array elements

Browse Source
This commit is contained in:
vijay gopal chilkuri 2016-12-21 11:53:13 +01:00
parent 85b10c2f62
commit 098f2bbdec
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/ex1.c
View File

@ -211,17 +211,19 @@ int main(int argc,char **argv)
if (nconv>0) { if (nconv>0) {
for (i=0;i<nev;i++) {
/* /*
Get converged eigenpairs: i-th eigenvalue is stored in kr (real part) and Get converged eigenpairs: i-th eigenvalue is stored in kr (real part) and
ki (imaginary part) ki (imaginary part)
*/ */
ierr = EPSGetEigenpair(eps,i,&kr,&ki,xr,xi);CHKERRQ(ierr); ierr = EPSGetEigenpair(eps,1,&kr,&ki,xr,xi);CHKERRQ(ierr);
ierr = VecNorm(xr, NORM_2, &norm);CHKERRQ(ierr); ierr = VecNorm(xr, NORM_2, &norm);CHKERRQ(ierr);
PetscPrintf(PETSC_COMM_WORLD," Norm = %18f \n", (double)norm); PetscPrintf(PETSC_COMM_WORLD," Norm = %18f \n", (double)norm);
for (i=Istart; i<Iend; i+=getdata.nnz) {
ierr = VecGetValue(xr, 1, i, value);
PetscPrintf(PETSC_COMM_WORLD," Element # = %d Value = %18f \n", i, value[0]);
} }
ierr = PetscPrintf(PETSC_COMM_WORLD,"\n");CHKERRQ(ierr); ierr = PetscPrintf(PETSC_COMM_WORLD,"\n");CHKERRQ(ierr);
} }