1 SUBROUTINE ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH )
2 *
3 * -- LAPACK routine (version 3.3.1) --
4 *
5 * April 2011
6 *
7 * -- LAPACK is a software package provided by Univ. of Tennessee, --
8 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
9 * ..
10 *
11 * Purpose
12 * =======
13 *
14 * This subroutine return the Lapack version.
15 *
16 * Arguments
17 * =========
18 * VERS_MAJOR (output) INTEGER
19 * return the lapack major version
20 * VERS_MINOR (output) INTEGER
21 * return the lapack minor version from the major version
22 * VERS_PATCH (output) INTEGER
23 * return the lapack patch version from the minor version
24 * =====================================================================
25 *
26 INTEGER VERS_MAJOR, VERS_MINOR, VERS_PATCH
27 * =====================================================================
28 VERS_MAJOR = 3
29 VERS_MINOR = 3
30 VERS_PATCH = 1
31 * =====================================================================
32 *
33 RETURN
34 END
2 *
3 * -- LAPACK routine (version 3.3.1) --
4 *
5 * April 2011
6 *
7 * -- LAPACK is a software package provided by Univ. of Tennessee, --
8 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
9 * ..
10 *
11 * Purpose
12 * =======
13 *
14 * This subroutine return the Lapack version.
15 *
16 * Arguments
17 * =========
18 * VERS_MAJOR (output) INTEGER
19 * return the lapack major version
20 * VERS_MINOR (output) INTEGER
21 * return the lapack minor version from the major version
22 * VERS_PATCH (output) INTEGER
23 * return the lapack patch version from the minor version
24 * =====================================================================
25 *
26 INTEGER VERS_MAJOR, VERS_MINOR, VERS_PATCH
27 * =====================================================================
28 VERS_MAJOR = 3
29 VERS_MINOR = 3
30 VERS_PATCH = 1
31 * =====================================================================
32 *
33 RETURN
34 END