lapack-3.3.1/INSTALL/LAPACK

      1
      2
      3
      4
      5
      6
      7
      8
      9
     10
     11
     12

      PROGRAM LAPACK_VERSION
*
*
*
      INTEGER MAJOR, MINOR, PATCH
*
      CALL ILAVER ( MAJOR,MINOR, PATCH )

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