13 lines
183 B
FortranFixed
13 lines
183 B
FortranFixed
|
|
PROGRAM LAPACK_VERSION
|
|
*
|
|
*
|
|
*
|
|
INTEGER MAJOR, MINOR, PATCH
|
|
*
|
|
CALL ILAVER ( MAJOR,MINOR, PATCH )
|
|
|
|
WRITE(*,*) "LAPACK ",MAJOR,".",MINOR,".",PATCH
|
|
*
|
|
END
|