src/gmxlib/gmx_lapack/dstevr.c

   1 #include "gmx_lapack.h"
   2
   3
   4 /* Normally, DSTEVR is the LAPACK wrapper which calls one
   5  * of the eigenvalue methods. However, our code includes a
   6  * version of DSTEGR 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 DSTEIN.
   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 dstegr.
  12  */
  13 void
  14 F77_FUNC(dstevr,DSTEVR)(const char *jobz,
  15         const char *range,
  16         int *n,
  17         double *d,
  18         double *e,
  19         double *vl,
  20         double *vu,
  21         int *il,
  22         int *iu,
  23         double *abstol,
  24         int *m,
  25         double *w,
  26         double *z,
  27         int *ldz,
  28         int *isuppz,
  29         double *work,
  30         int *lwork,
  31         int *iwork,
  32         int *liwork,
  33         int *info)
  34 {
  35   F77_FUNC(dstegr,DSTEGR)(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