|
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 |