01: 
02:       PROGRAM LAPACK_VERSION
03: *
04: *
05: *
06:       INTEGER MAJOR, MINOR, PATCH
07: *
08:       CALL ILAVER ( MAJOR,MINOR, PATCH )
09: 
10:           WRITE(*,*) "LAPACK ",MAJOR,".",MINOR,".",PATCH
11: *
12:       END
13: