blob: 8fe99d18579457604ac9c925799f8ac13a9abde9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
*> \brief \b ILAVER returns the LAPACK version.
*>\details
*> \b Purpose:
*>\verbatim
*>
*> This subroutine returns the LAPACK version.
*>
*>\endverbatim
*>
*> \author LAPACK is a software package provided by Univ. of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..
*> \date November 2011
*> \ingroup auxOTHERcomputational
*>
*> \param[out] VERS_MAJOR
*> return the lapack major version
*>
*> \param[out] VERS_MINOR
*> return the lapack minor version from the major version
*>
*> \param[out] VERS_PATCH
*> return the lapack patch version from the minor version
*>
SUBROUTINE ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH )
C
C -- LAPACK computational routine (version 3.3.1) --
C -- LAPACK is a software package provided by Univ. of Tennessee, --
C -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
C November 2011
C
C =====================================================================
C
INTEGER VERS_MAJOR, VERS_MINOR, VERS_PATCH
C =====================================================================
VERS_MAJOR = 3
VERS_MINOR = 3
VERS_PATCH = 1
C =====================================================================
C
RETURN
END
|
