lapack_version.f

来自「famous linear algebra library (LAPACK) p」· F 代码 · 共 13 行

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

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