From baba851215b44ac3b60b9248eb02bcce7eb76247 Mon Sep 17 00:00:00 2001 From: jason Date: Tue, 28 Oct 2008 01:38:50 +0000 Subject: Move LAPACK trunk into position. --- SRC/ilaver.f | 31 +++++++++++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 SRC/ilaver.f (limited to 'SRC/ilaver.f') diff --git a/SRC/ilaver.f b/SRC/ilaver.f new file mode 100644 index 00000000..10ef35de --- /dev/null +++ b/SRC/ilaver.f @@ -0,0 +1,31 @@ + SUBROUTINE ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH ) +* +* -- LAPACK routine (version 3.1.1) -- +* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. +* January 2007 +* .. +* +* Purpose +* ======= +* +* This subroutine return the Lapack version +* +* Arguments +* ========= +* VERS_MAJOR (output) INTEGER +* return the lapack major version +* VERS_MINOR (output) INTEGER +* return the lapack minor version from the major version +* VERS_PATCH (output) INTEGER +* return the lapack patch version from the minor version +* ===================================================================== +* + INTEGER VERS_MAJOR, VERS_MINOR, VERS_PATCH +* ===================================================================== + VERS_MAJOR = 3 + VERS_MINOR = 1 + VERS_PATCH = 1 +* ===================================================================== +* + RETURN + END -- cgit v1.2.3