1 /* ilaver.f -- translated by f2c (version 20061008).
2 You must link the resulting object file with libf2c:
3 on Microsoft Windows system, link with libf2c.lib;
4 on Linux or Unix systems, link with .../path/to/libf2c.a -lm
5 or, if you install libf2c.a in a standard place, with -lf2c -lm
6 -- in that order, at the end of the command line, as in
7 cc *.o -lf2c -lm
8 Source for libf2c is in /netlib/f2c/libf2c.zip, e.g.,
9
10 http://www.netlib.org/f2c/libf2c.zip
11 */
12
13 #include "FLA_f2c.h"
14
15
ilaver_(integer * vers_major__,integer * vers_minor__,integer * vers_patch__)16 /* Subroutine */ int ilaver_(integer *vers_major__, integer *vers_minor__,
17 integer *vers_patch__)
18 {
19
20 /* -- LAPACK routine (version 3.4.2) -- */
21 /* Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd.. */
22 /* November 2010 */
23
24 /* .. Scalar Arguments .. */
25 /* .. */
26
27 /* Purpose */
28 /* ======= */
29
30 /* This subroutine return the Lapack version. */
31
32 /* Arguments */
33 /* ========= */
34
35 /* VERS_MAJOR (output) INTEGER */
36 /* return the lapack major version */
37 /* VERS_MINOR (output) INTEGER */
38 /* return the lapack minor version from the major version */
39 /* VERS_PATCH (output) INTEGER */
40 /* return the lapack patch version from the minor version */
41
42 /* .. Executable Statements .. */
43 /* Current version is 3.5.0 */
44 *vers_major__ = 3;
45 *vers_minor__ = 5;
46 *vers_patch__ = 0;
47 /* ===================================================================== */
48
49 return 0;
50 } /* ilaver_ */
51