text: /*
   * This file is part of the GROMACS molecular simulation package.
   *
   * Copyright (c) 2012,2013, by the GROMACS development team, led by
   * David van der Spoel, Berk Hess, Erik Lindahl, and including many
   * others, as listed in the AUTHORS file in the top-level source
   * directory and at http://www.gromacs.org.
   *
   * GROMACS is free software; you can redistribute it and/or
   * modify it under the terms of the GNU Lesser General Public License
   * as published by the Free Software Foundation; either version 2.1
   * of the License, or (at your option) any later version.
   *
   * GROMACS is distributed in the hope that it will be useful,
   * but WITHOUT ANY WARRANTY; without even the implied warranty of
   * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   * Lesser General Public License for more details.
   *
   * You should have received a copy of the GNU Lesser General Public
   * License along with GROMACS; if not, see
   * http://www.gnu.org/licenses, or write to the Free Software Foundation,
   * Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA.
   *
   * If you want to redistribute modifications to GROMACS, please
   * consider that scientific software is very special. Version
   * control is crucial - bugs must be traceable. We will be happy to
   * consider code for inclusion in the official distribution, but
   * derived work must not be called official GROMACS. Details are found
   * in the README & COPYING files - if they are missing, get the
   * official version at http://www.gromacs.org.
   *
   * To help us fund GROMACS development, we humbly ask that you cite
   * the research papers on the package. Check out http://www.gromacs.org.
   */
  #include "gmx_lapack.h"
  
  
  /* Normally, SSTEVR is the LAPACK wrapper which calls one
   * of the eigenvalue methods. However, our code includes a
   * version of SSTEGR which is never than LAPACK 3.0 and can
   * handle requests for a subset of eigenvalues/vectors too,
   * and it should not need to call SSTEIN.
   * Just in case somebody has a faster version in their lapack
   * library we still call the driver routine, but in our own
   * case this is just a wrapper to sstegr.
   */
  void
  F77_FUNC(sstevr,SSTEVR)(const char *jobz, 
                          const char *range,
                          int *n,
                          float *d,
                          float *e,
                          float *vl, 
                          float *vu,
                          int *il, 
                          int *iu, 
                          float *abstol,
                          int *m,
                          float *w, 
                          float *z,
                          int *ldz,
                          int *isuppz, 
                          float *work, 
                          int *lwork, 
                          int *iwork,
                          int *liwork, 
                          int *info)
  {
    F77_FUNC(sstegr,SSTEGR)(jobz, range, n, d, e, vl, vu, il, iu, abstol, m, w,
  	  z, ldz, isuppz, work, lwork, iwork, liwork, info);
    
  
      return;
  
  }
  
  
  