INTEGER
MAJOR, MINOR, PATCH
CALL
ILAVER ( MAJOR,MINOR, PATCH )
WRITE(*,*)
"LAPACK
",MAJOR,".",MINOR,".",PATCH
END