Lines Matching defs:IMTQL1

5385       SUBROUTINE IMTQL1(N,D,E,IERR)  subroutine
5435   100 E(I-1) = E(I)
5442   105    DO 110 M = L, N
5447   110    CONTINUE
5449   120    P = D(L)
5476   200    CONTINUE
5483   210    D(I+1) = D(I+1) - P
5487   215    IF (L .EQ. 1) GO TO 250
5493   230    CONTINUE
5495   250    I = 1
5496   270    D(I) = P
5497   290 CONTINUE
5502  1000 IERR = L
5503  1001 RETURN