Return to ilaver.f CVS log

Up to [local] / rpl / lapack / lapack

Cohérence

    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