d3/db0/SRC_2ilaver_8f_source.html

00001       SUBROUTINE ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH )
00002 *
00003 *  -- LAPACK routine (version 3.3.1)                                  --
00004 *
00005 *     April 2011
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 = 1
00031 *  =====================================================================
00032 *
00033       RETURN
00034       END