d0/d9d/LAPACK__version_8f_source.html

00001
00002       PROGRAM LAPACK_VERSION
00003 *
00004 *
00005 *
00006       INTEGER MAJOR, MINOR, PATCH
00007 *
00008       CALL ILAVER ( MAJOR,MINOR, PATCH )
00009
00010           WRITE(*,*) "LAPACK ",MAJOR,".",MINOR,".",PATCH
00011 *
00012       END