SUBROUTINE ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH ) * * -- LAPACK routine (version 3.2) -- * Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. * November 2008 * * .. Scalar Arguments .. INTEGER VERS_MAJOR, VERS_MINOR, VERS_PATCH * .. * * 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 * * .. Executable Statements .. * VERS_MAJOR = 3 VERS_MINOR = 2 VERS_PATCH = 0 * ===================================================================== * RETURN END