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