blob: fddec72d3051ee0c0a11793f6fa71cc491a1eabe (
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
|
SUBROUTINE ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH )
*
* -- LAPACK routine (version 3.3.1) --
*
* April 2011
*
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
* ..
*
* Purpose
* =======
*
* This subroutine return the Lapack version.
*
* Arguments
* =========
* VERS_MAJOR (output) INTEGER
* return the lapack major version
* VERS_MINOR (output) INTEGER
* return the lapack minor version from the major version
* VERS_PATCH (output) INTEGER
* return the lapack patch version from the minor version
* =====================================================================
*
INTEGER VERS_MAJOR, VERS_MINOR, VERS_PATCH
* =====================================================================
VERS_MAJOR = 3
VERS_MINOR = 3
VERS_PATCH = 1
* =====================================================================
*
RETURN
END
|