![]() ![]() | ![]() |
Mise à jour de lapack vers la version 3.2.2.
1: SUBROUTINE ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH ) 2: * 3: * -- LAPACK routine (version 3.2.2) -- 4: * 5: * -- June 2010 -- 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 = 2 31: * ===================================================================== 32: * 33: RETURN 34: END