| Line 194... |
Line 194... |
ierr = PetscMemzero(e,(n-1)*sizeof(PetscReal));CHKERRQ(ierr);
|
ierr = PetscMemzero(e,(n-1)*sizeof(PetscReal));CHKERRQ(ierr);
|
} else {
|
} else {
|
ierr = PetscMemzero(A,ld*ld*sizeof(PetscScalar));CHKERRQ(ierr);
|
ierr = PetscMemzero(A,ld*ld*sizeof(PetscScalar));CHKERRQ(ierr);
|
for (i=0;i<n;i++) A[i+i*ld] = d[i];
|
for (i=0;i<n;i++) A[i+i*ld] = d[i];
|
}
|
}
|
|
|
|
/* The result is stored in both places (compact and regular) */
|
|
ps->compact = PETSC_TRUE;
|
PetscFunctionReturn(0);
|
PetscFunctionReturn(0);
|
#endif
|
#endif
|
}
|
}
|
|
|
#undef __FUNCT__
|
#undef __FUNCT__
|