Actual source code: trlanp.h

slepc-3.11.2 2019-07-30
Report Typos and Errors
  1: /*
  2:    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  3:    SLEPc - Scalable Library for Eigenvalue Problem Computations
  4:    Copyright (c) 2002-2019, Universitat Politecnica de Valencia, Spain

  6:    This file is part of SLEPc.
  7:    SLEPc is distributed under a 2-clause BSD license (see LICENSE).
  8:    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  9: */
 10: /*
 11:    Private data structure used by the TRLAN interface
 12: */

 14: #if !defined(SLEPC_TRLAN_H)
 15: #define SLEPC_TRLAN_H

 17: typedef struct {
 18:   PetscBLASInt       maxlan;
 19:   PetscBLASInt       restart;
 20:   PetscReal          *work;
 21:   PetscBLASInt       lwork;
 22: } EPS_TRLAN;

 24: /*
 25:    Definition of routines from the TRLAN package
 26:    These are real case. TRLAN currently only has DOUBLE PRECISION version
 27: */

 29: #if defined(SLEPC_TRLAN_HAVE_UNDERSCORE)
 30: #define TRLan_ trlan77_
 31: #elif defined(SLEPC_TRLAN_HAVE_CAPS)
 32: #define TRLan_ TRLAN77
 33: #else
 34: #define TRLan_ trlan77
 35: #endif

 37: SLEPC_EXTERN void TRLan_(PetscBLASInt(*op)(PetscBLASInt*,PetscBLASInt*,PetscReal*,PetscBLASInt*,PetscReal*,PetscBLASInt*),PetscBLASInt*,PetscBLASInt*,PetscBLASInt*,PetscScalar*,PetscScalar*,PetscBLASInt*,PetscReal*,PetscBLASInt*);

 39: #endif