INSTALL/ilaver.f

   1 *> \brief \b ILAVER returns the LAPACK version.
   2 **
   3 *  =========== DOCUMENTATION ===========
   4 *
   5 * Online html documentation available at
   6 *            http://www.netlib.org/lapack/explore-html/
   7 *
   8 *  Definition:
   9 *  ===========
  10 *
  11 *     SUBROUTINE ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH )
  12 *
  13 *     INTEGER VERS_MAJOR, VERS_MINOR, VERS_PATCH
  14 *
  15 *
  16 *> \par Purpose:
  17 *  =============
  18 *>
  19 *> \verbatim
  20 *>
  21 *>  This subroutine returns the LAPACK version.
  22 *> \endverbatim
  23 *
  24 *  Arguments:
  25 *  ==========
  26 *
  27 *>  \param[out] VERS_MAJOR
  28 *>      return the lapack major version
  29 *>
  30 *>  \param[out] VERS_MINOR
  31 *>      return the lapack minor version from the major version
  32 *>
  33 *>  \param[out] VERS_PATCH
  34 *>      return the lapack patch version from the minor version
  35 *
  36 *  Authors:
  37 *  ========
  38 *
  39 *> \author Univ. of Tennessee
  40 *> \author Univ. of California Berkeley
  41 *> \author Univ. of Colorado Denver
  42 *> \author NAG Ltd.
  43 *
  44 *> \date June 2016
  45 *
  46 *> \ingroup auxOTHERauxiliary
  47 *
  48 *  =====================================================================
  49       SUBROUTINE ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH )
  50 *
  51 *  -- LAPACK computational routine (version 3.6.0) --
  52 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
  53 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
  54 *     June 2016
  55 *
  56 *  =====================================================================
  57 *
  58       INTEGER VERS_MAJOR, VERS_MINOR, VERS_PATCH
  59 *  =====================================================================
  60       VERS_MAJOR = 3
  61       VERS_MINOR = 6
  62       VERS_PATCH = 1
  63 *  =====================================================================
  64 *
  65       RETURN
  66       END