00001 SUBROUTINE ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH ) 00002 * 00003 * -- LAPACK routine (version 3.3.3) -- 00004 * 00005 * November 2010 00006 * 00007 * -- LAPACK is a software package provided by Univ. of Tennessee, -- 00008 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 00009 * .. 00010 * 00011 * Purpose 00012 * ======= 00013 * 00014 * This subroutine return the Lapack version. 00015 * 00016 * Arguments 00017 * ========= 00018 * VERS_MAJOR (output) INTEGER 00019 * return the lapack major version 00020 * VERS_MINOR (output) INTEGER 00021 * return the lapack minor version from the major version 00022 * VERS_PATCH (output) INTEGER 00023 * return the lapack patch version from the minor version 00024 * ===================================================================== 00025 * 00026 INTEGER VERS_MAJOR, VERS_MINOR, VERS_PATCH 00027 * ===================================================================== 00028 VERS_MAJOR = 3 00029 VERS_MINOR = 3 00030 VERS_PATCH = 0 00031 * ===================================================================== 00032 * 00033 RETURN 00034 END
1.7.2