Subversion Repositories slepc-dev

Rev

Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2847 Rev 2850
Line 462... Line 462... 
  PetscErrorCode ierr;
 
  PetscErrorCode ierr;
 
  PetscInt       i;
 
  PetscInt       i;
 
  PetscBLASInt   n1,n2,n3,info,l,n,ld,off;
 
  PetscBLASInt   n1,n2,n3,info,l,n,ld,off;
 
  PetscScalar    *A,*Q;
 
  PetscScalar    *A,*Q;
 
  PetscReal      *d,*e;
 
  PetscReal      *d,*e;
 
#if defined(PETSC_USE_COMPLEX)
 
 
 
  PetscReal      *ritz;
 
 
 
#endif
 
 
 
 
 
 
 
  PetscFunctionBegin;
 
  PetscFunctionBegin;
 
  n  = PetscBLASIntCast(ps->n);
 
  n  = PetscBLASIntCast(ps->n);
 
  l  = PetscBLASIntCast(ps->l);
 
  l  = PetscBLASIntCast(ps->l);
 
  ld = PetscBLASIntCast(ps->ld);
 
  ld = PetscBLASIntCast(ps->ld);