Annotation of rpl/lapack/lapack/ilaver.f, revision 1.2
1.1 bertrand 1: SUBROUTINE ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH )
2: *
3: * -- LAPACK routine (version 3.2.1) --
4: *
5: * -- April 2009 --
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 = 2
30: VERS_PATCH = 1
31: * =====================================================================
32: *
33: RETURN
34: END
CVSweb interface <joel.bertrand@systella.fr>