79 INTEGER FUNCTION ilaclr( M, N, A, LDA )
97 parameter( zero = (0.0e+0, 0.0e+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))
set ue cd $ADTTMP cat<< EOF > tmp f Program LinearEquations Implicit none Real j
INTEGER function ilaclr(M, N, A, LDA)
ILACLR scans a matrix for its last non-zero row.