SRC/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 *>  \verbatim
  29 *>      return the lapack major version
  30 *>  \endverbatim
  31 *>
  32 *>  \param[out] VERS_MINOR
  33 *>  \verbatim
  34 *>      return the lapack minor version from the major version
  35 *>  \endverbatim
  36 *>
  37 *>  \param[out] VERS_PATCH
  38 *>  \verbatim
  39 *>      return the lapack patch version from the minor version
  40 *>  \endverbatim
  41 *
  42 *  Authors:
  43 *  ========
  44 *
  45 *> \author Univ. of Tennessee
  46 *> \author Univ. of California Berkeley
  47 *> \author Univ. of Colorado Denver
  48 *> \author NAG Ltd.
  49 *
  50 *> \date June 2016
  51 *
  52 *> \ingroup auxOTHERauxiliary
  53 *
  54 *  =====================================================================
  55       SUBROUTINE ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH )
  56 *
  57 *  -- LAPACK computational routine (version 3.6.1) --
  58 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
  59 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
  60 *     June 2016
  61 *
  62 *  =====================================================================
  63 *
  64       INTEGER VERS_MAJOR, VERS_MINOR, VERS_PATCH
  65 *  =====================================================================
  66       VERS_MAJOR = 3
  67       VERS_MINOR = 6
  68       VERS_PATCH = 1
  69 *  =====================================================================
  70 *
  71       RETURN
  72       END