79 INTEGER FUNCTION iladlr( M, N, A, LDA )
90 DOUBLE PRECISION a( lda, * )
97 parameter( zero = 0.0d+0 )
107 ELSE IF( a(m, 1).NE.zero .OR. a(m, n).NE.zero )
THEN
114 DO WHILE((a(max(i,1),
j).EQ.zero).AND.(i.GE.1))
INTEGER function iladlr(M, N, A, LDA)
ILADLR scans a matrix for its last non-zero row.
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real j