Return to ilaver.f CVS log

Up to [local] / rpl / lapack / lapack

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

1.1     ! bertrand    1:       SUBROUTINE ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH )
        !             2: *     
        !             3: *  -- LAPACK routine (version 3.2.1)                                  --
        !             4: *
        !             5: *  -- April 2009                                                      --
        !             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
        !            29:       VERS_MINOR = 2
        !            30:       VERS_PATCH = 1
        !            31: *  =====================================================================
        !            32: *
        !            33:       RETURN
        !            34:       END