01:       SUBROUTINE ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH )
02: *     
03: *  -- LAPACK routine (version 3.2) --
04: *     Univ. of Tennessee, Univ. of California Berkeley and NAG Ltd..
05: *     January 2007
06: *     ..
07: *
08: *  Purpose
09: *  =======
10: *
11: *  This subroutine return the Lapack version
12: *
13: *  Arguments
14: *  =========
15: *  VERS_MAJOR   (output) INTEGER
16: *      return the lapack major version
17: *  VERS_MINOR   (output) INTEGER
18: *      return the lapack minor version from the major version
19: *  VERS_PATCH   (output) INTEGER
20: *      return the lapack patch version from the minor version
21: *  =====================================================================
22: *
23:       INTEGER VERS_MAJOR, VERS_MINOR, VERS_PATCH
24: *  =====================================================================
25:       VERS_MAJOR = 3
26:       VERS_MINOR = 1
27:       VERS_PATCH = 1
28: *  =====================================================================
29: *
30:       RETURN
31:       END
32: