LAPACK  3.4.1
LAPACK: Linear Algebra PACKage
ilaver.f
Go to the documentation of this file.
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
 All Files Functions