Date: 2022-10-01T06:39:53+00:00

Actual source code: trlan.h
slepc-3.18.0 2022-10-01
Report Typos and Errors

      1: /*
      2:    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      3:    SLEPc - Scalable Library for Eigenvalue Problem Computations
      4:    Copyright (c) 2002-, 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