LAPACK  3.10.0
LAPACK: Linear Algebra PACKage
ilaver.f
Go to the documentation of this file.
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 *> VERS_MAJOR is INTEGER
29 *> return the lapack major version
30 *>
31 *> \param[out] VERS_MINOR
32 *> VERS_MINOR is INTEGER
33 *> return the lapack minor version from the major version
34 *>
35 *> \param[out] VERS_PATCH
36 *> VERS_PATCH is INTEGER
37 *> return the lapack patch version from the minor version
38 *
39 * Authors:
40 * ========
41 *
42 *> \author Univ. of Tennessee
43 *> \author Univ. of California Berkeley
44 *> \author Univ. of Colorado Denver
45 *> \author NAG Ltd.
46 *
47 *> \ingroup auxOTHERauxiliary
48 *
49 * =====================================================================
50  SUBROUTINE ilaver( VERS_MAJOR, VERS_MINOR, VERS_PATCH )
51 *
52 * -- LAPACK computational routine --
53 * -- LAPACK is a software package provided by Univ. of Tennessee, --
54 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
55 *
56 * =====================================================================
57 *
58  INTEGER VERS_MAJOR, VERS_MINOR, VERS_PATCH
59 * =====================================================================
60  vers_major = 3
61  vers_minor = 10
62  vers_patch = 0
63 * =====================================================================
64 *
65  RETURN
66  END
subroutine ilaver(VERS_MAJOR, VERS_MINOR, VERS_PATCH)
ILAVER returns the LAPACK version.
Definition: ilaver.f:51