| Line 1377... |
Line 1377... |
{
|
{
|
#if defined(SLEPC_MISSING_LAPACK_LASV2)
|
#if defined(SLEPC_MISSING_LAPACK_LASV2)
|
PetscFunctionBegin;
|
PetscFunctionBegin;
|
SETERRQ(PETSC_COMM_SELF,PETSC_ERR_SUP,"LASV2 - Lapack routine is unavailable.");
|
SETERRQ(PETSC_COMM_SELF,PETSC_ERR_SUP,"LASV2 - Lapack routine is unavailable.");
|
#else
|
#else
|
PetscErrorCode ierr;
|
|
PetscInt i, j;
|
PetscInt i, j;
|
#if defined(PETSC_USE_COMPLEX)
|
#if defined(PETSC_USE_COMPLEX)
|
PetscScalar s;
|
PetscScalar s;
|
|
#else
|
|
PetscErrorCode ierr;
|
#endif
|
#endif
|
|
|
PetscFunctionBegin;
|
PetscFunctionBegin;
|
PetscValidScalarPointer(S,3);
|
PetscValidScalarPointer(S,3);
|
if (T) { PetscValidScalarPointer(T,5); }
|
if (T) { PetscValidScalarPointer(T,5); }
|