--- rpl/lapack/lapack/iladlr.f 2010/01/26 15:22:45 1.1.1.1 +++ rpl/lapack/lapack/iladlr.f 2010/12/21 13:53:41 1.8 @@ -1,9 +1,9 @@ - INTEGER FUNCTION ILADLR(M, N, A, LDA) + INTEGER FUNCTION ILADLR( M, N, A, LDA ) IMPLICIT NONE * -* -- LAPACK auxiliary routine (version 3.2.1) -- +* -- LAPACK auxiliary routine (version 3.2.2) -- * -* -- April 2009 -- +* -- June 2010 -- * * -- LAPACK is a software package provided by Univ. of Tennessee, -- * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..-- @@ -62,4 +62,4 @@ END DO END IF RETURN - END FUNCTION + END