![]() |
LAPACK
3.4.1
LAPACK: Linear Algebra PACKage
|
00001 *> \brief \b 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 * PROGRAM LAPACK_VERSION 00012 * 00013 * Authors: 00014 * ======== 00015 * 00016 *> \author Univ. of Tennessee 00017 *> \author Univ. of California Berkeley 00018 *> \author Univ. of Colorado Denver 00019 *> \author NAG Ltd. 00020 * 00021 *> \date November 2011 00022 * 00023 *> \ingroup auxOTHERauxiliary 00024 * 00025 * ===================================================================== PROGRAM LAPACK_VERSION 00026 * 00027 * -- LAPACK auxiliary routine (version 3.4.0) -- 00028 * -- LAPACK is a software package provided by Univ. of Tennessee, -- 00029 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- 00030 * November 2011 00031 * 00032 INTEGER MAJOR, MINOR, PATCH 00033 * 00034 CALL ILAVER ( MAJOR,MINOR, PATCH ) 00035 WRITE(*,*) "LAPACK ",MAJOR,".",MINOR,".",PATCH 00036 * 00037 END