src/gmxlib/gmx_lapack/sstevr.c

   1 #include "gmx_lapack.h"
   2
   3
   4 /* Normally, SSTEVR is the LAPACK wrapper which calls one
   5  * of the eigenvalue methods. However, our code includes a
   6  * version of SSTEGR which is never than LAPACK 3.0 and can
   7  * handle requests for a subset of eigenvalues/vectors too,
   8  * and it should not need to call SSTEIN.
   9  * Just in case somebody has a faster version in their lapack
  10  * library we still call the driver routine, but in our own
  11  * case this is just a wrapper to sstegr.
  12  */
  13 void
  14 F77_FUNC(sstevr,SSTEVR)(const char *jobz,
  15                         const char *range,
  16                         int *n,
  17                         float *d,
  18                         float *e,
  19                         float *vl,
  20                         float *vu,
  21                         int *il,
  22                         int *iu,
  23                         float *abstol,
  24                         int *m,
  25                         float *w,
  26                         float *z,
  27                         int *ldz,
  28                         int *isuppz,
  29                         float *work,
  30                         int *lwork,
  31                         int *iwork,
  32                         int *liwork,
  33                         int *info)
  34 {
  35   F77_FUNC(sstegr,SSTEGR)(jobz, range, n, d, e, vl, vu, il, iu, abstol, m, w,
  36           z, ldz, isuppz, work, lwork, iwork, liwork, info);
  37
  38
  39     return;
  40
  41 }
  42
  43