Return to ilaver.f CVS log

Up to [local] / rpl / lapack / lapack

Annotation of rpl/lapack/lapack/ilaver.f, revision 1.9

1.1       bertrand    1:       SUBROUTINE ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH )
                      2: *     
1.8       bertrand    3: *  -- LAPACK routine (version 3.3.0)                                  --
1.1       bertrand    4: *
1.8       bertrand    5: *     November 2010
1.1       bertrand    6: *
                      7: *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
                      8: *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
                      9: *     ..
                     10: *
                     11: *  Purpose
                     12: *  =======
                     13: *
                     14: *  This subroutine return the Lapack version.
                     15: *
                     16: *  Arguments
                     17: *  =========
                     18: *  VERS_MAJOR   (output) INTEGER
                     19: *      return the lapack major version
                     20: *  VERS_MINOR   (output) INTEGER
                     21: *      return the lapack minor version from the major version
                     22: *  VERS_PATCH   (output) INTEGER
                     23: *      return the lapack patch version from the minor version
                     24: *  =====================================================================
                     25: *
                     26:       INTEGER VERS_MAJOR, VERS_MINOR, VERS_PATCH
                     27: *  =====================================================================
                     28:       VERS_MAJOR = 3
1.8       bertrand   29:       VERS_MINOR = 3
                     30:       VERS_PATCH = 0
1.1       bertrand   31: *  =====================================================================
                     32: *
                     33:       RETURN
                     34:       END