![]() ![]() | ![]() |
Mise à jour de lapack vers la version 3.5.0.
1: *> \brief \b ILAVER returns the LAPACK version. 2: ** 3: * =========== DOCUMENTATION =========== 4: * 5: * Online html documentation available at 6: * http://www.netlib.org/lapack/explore-html/ 7: * 8: * Definition: 9: * =========== 10: * 11: * SUBROUTINE ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH ) 12: * 13: * INTEGER VERS_MAJOR, VERS_MINOR, VERS_PATCH 14: * 15: * 16: *> \par Purpose: 17: * ============= 18: *> 19: *> \verbatim 20: *> 21: *> This subroutine returns the LAPACK version. 22: *> \endverbatim 23: * 24: * Arguments: 25: * ========== 26: * 27: *> \param[out] VERS_MAJOR 28: *> return the lapack major version 29: *> 30: *> \param[out] VERS_MINOR 31: *> return the lapack minor version from the major version 32: *> 33: *> \param[out] VERS_PATCH 34: *> return the lapack patch version from the minor version 35: * 36: * Authors: 37: * ======== 38: * 39: *> \author Univ. of Tennessee 40: *> \author Univ. of California Berkeley 41: *> \author Univ. of Colorado Denver 42: *> \author NAG Ltd. 43: * 44: *> \date September 2012 45: * 46: *> \ingroup auxOTHERauxiliary 47: * 48: * ===================================================================== 49: SUBROUTINE ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH ) 50: * 51: * -- LAPACK computational routine (version 3.5.0) -- 52: * -- LAPACK is a software package provided by Univ. of Tennessee, -- 53: * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 54: * November 2013 55: * 56: * ===================================================================== 57: * 58: INTEGER VERS_MAJOR, VERS_MINOR, VERS_PATCH 59: * ===================================================================== 60: VERS_MAJOR = 3 61: VERS_MINOR = 5 62: VERS_PATCH = 0 63: * ===================================================================== 64: * 65: RETURN 66: END