| */ |
| static PetscErrorCode ArrowTridiag(PetscBLASInt *n,PetscReal *d,PetscReal *e,PetscScalar *Q,PetscBLASInt *ldq) |
| { |
| #if defined(SLEPC_MISSING_LAPACK_LARTG) |
| PetscFunctionBegin; |
| SETERRQ(PETSC_COMM_SELF,PETSC_ERR_SUP,"LARTG - Lapack routine is unavailable."); |
| #else |
| PetscBLASInt i,j,j2,ld=*ldq,one=1; |
| PetscReal c,s,p,off,temp; |
| } |
| } |
| PetscFunctionReturn(0); |
| #endif |
| } |
| #if 0 |