01:       SUBROUTINE ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH )
02: *     
03: *  -- LAPACK routine (version 3.2.1)                                  --
04: *
05: *  -- April 2009                                                      --
06: *
07: *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
08: *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
09: *     ..
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
35: