![]() |
LAPACK
3.4.1
LAPACK: Linear Algebra PACKage
|
00001 *> \brief \b ILAVER returns the LAPACK version. 00002 ** 00003 * =========== DOCUMENTATION =========== 00004 * 00005 * Online html documentation available at 00006 * http://www.netlib.org/lapack/explore-html/ 00007 * 00008 * Definition: 00009 * =========== 00010 * 00011 * SUBROUTINE ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH ) 00012 * 00013 * INTEGER VERS_MAJOR, VERS_MINOR, VERS_PATCH 00014 * 00015 * 00016 *> \par Purpose: 00017 * ============= 00018 *> 00019 *> \verbatim 00020 *> 00021 *> This subroutine returns the LAPACK version. 00022 *> \endverbatim 00023 * 00024 * Arguments: 00025 * ========== 00026 * 00027 *> \param[out] VERS_MAJOR 00028 *> return the lapack major version 00029 *> 00030 *> \param[out] VERS_MINOR 00031 *> return the lapack minor version from the major version 00032 *> 00033 *> \param[out] VERS_PATCH 00034 *> return the lapack patch version from the minor version 00035 * 00036 * Authors: 00037 * ======== 00038 * 00039 *> \author Univ. of Tennessee 00040 *> \author Univ. of California Berkeley 00041 *> \author Univ. of Colorado Denver 00042 *> \author NAG Ltd. 00043 * 00044 *> \date November 2011 00045 * 00046 *> \ingroup auxOTHERauxiliary 00047 * 00048 * ===================================================================== 00049 SUBROUTINE ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH ) 00050 * 00051 * -- LAPACK computational routine (version 3.4.1) -- 00052 * -- LAPACK is a software package provided by Univ. of Tennessee, -- 00053 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 00054 * November 2011 00055 * 00056 * ===================================================================== 00057 * 00058 INTEGER VERS_MAJOR, VERS_MINOR, VERS_PATCH 00059 * ===================================================================== 00060 VERS_MAJOR = 3 00061 VERS_MINOR = 4 00062 VERS_PATCH = 1 00063 * ===================================================================== 00064 * 00065 RETURN 00066 END