LAPACK  3.9.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 *> \date November 2019
48 *
49 *> \ingroup auxOTHERauxiliary
50 *
51 * =====================================================================
52  SUBROUTINE ilaver( VERS_MAJOR, VERS_MINOR, VERS_PATCH )
53 *
54 * -- LAPACK computational routine --
55 * -- LAPACK is a software package provided by Univ. of Tennessee, --
56 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
57 *
58 * =====================================================================
59 *
60  INTEGER VERS_MAJOR, VERS_MINOR, VERS_PATCH
61 * =====================================================================
62  vers_major = 3
63  vers_minor = 9
64  vers_patch = 0
65 * =====================================================================
66 *
67  RETURN
68  END
ilaver
subroutine ilaver(VERS_MAJOR, VERS_MINOR, VERS_PATCH)
ILAVER returns the LAPACK version.
Definition: ilaver.f:53