--- rpl/lapack/lapack/iladlc.f 2010/08/06 15:32:37 1.4 +++ rpl/lapack/lapack/iladlc.f 2010/08/07 13:18:08 1.5 @@ -1,9 +1,9 @@ - INTEGER FUNCTION ILADLC(M, N, A, LDA) + INTEGER FUNCTION ILADLC( 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..-- @@ -60,4 +60,4 @@ END DO END IF RETURN - END FUNCTION + END