Subversion Repositories slepc-dev

Rev

Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1660 Rev 1662
Line 849... Line 849... 
  PetscErrorCode ierr;
 
  PetscErrorCode ierr;
 
  PetscReal      abstol = 0.0,vl,vu,*work;
 
  PetscReal      abstol = 0.0,vl,vu,*work;
 
  PetscBLASInt   il,iu,m,*isuppz,n,lwork,*iwork,liwork,info;
 
  PetscBLASInt   il,iu,m,*isuppz,n,lwork,*iwork,liwork,info;
 
  const char     *jobz;
 
  const char     *jobz;
 
#if defined(PETSC_USE_COMPLEX)
 
#if defined(PETSC_USE_COMPLEX)
 
  PetscInt       j;
 
  PetscInt       i,j;
 
  PetscReal      *VV;
 
  PetscReal      *VV;
 
#endif
 
#endif
 
 
 
 
 
  PetscFunctionBegin;
 
  PetscFunctionBegin;
 
  ierr = PetscLogEventBegin(EPS_Dense,0,0,0,0);CHKERRQ(ierr);
 
  ierr = PetscLogEventBegin(EPS_Dense,0,0,0,0);CHKERRQ(ierr);