diff options
author | jason <jason@8a072113-8704-0410-8d35-dd094bca7971> | 2008-10-28 01:38:50 +0000 |
---|---|---|
committer | jason <jason@8a072113-8704-0410-8d35-dd094bca7971> | 2008-10-28 01:38:50 +0000 |
commit | baba851215b44ac3b60b9248eb02bcce7eb76247 (patch) | |
tree | 8c0f5c006875532a30d4409f5e94b0f310ff00a7 /SRC/ilaver.f |
Move LAPACK trunk into position.
Diffstat (limited to 'SRC/ilaver.f')
-rw-r--r-- | SRC/ilaver.f | 31 |
1 files changed, 31 insertions, 0 deletions
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 |