Lines Matching refs:UK
127 INTEGER I,J,K,L,M,N,S,II,IP,MM,MP,NM,NS,N1,UK,IP1,ITS,KM1,IERR
137 UK = 0
152 IF (UK .GE. K) GO TO 200
154 DO 120 UK = K, N
155 IF (UK .EQ. N) GO TO 140
156 IF (A(UK+1,UK) .EQ. 0.0E0) GO TO 140
163 DO 180 I = 1, UK
166 DO 160 J = MP, UK
180 UKROOT = SQRT(REAL(UK))
205 DO 320 I = 1, UK
207 DO 300 J = MP, UK
220 IF (UK .EQ. 1) GO TO 420
222 DO 400 I = 2, UK
226 DO 340 J = MP, UK
236 DO 380 J = I, UK
241 420 IF (RM1(UK,UK) .EQ. 0.0E0) RM1(UK,UK) = EPS3
244 440 DO 500 II = 1, UK
245 I = UK + 1 - II
247 IF (I .EQ. UK) GO TO 480
250 DO 460 J = IP1, UK
272 550 DO 640 I = 2, UK
285 DO 560 J = I, UK
317 DO 620 J = I, UK
335 IF (UK .LT. N1) GO TO 650
336 L = UK - NS
337 T = Z(UK,L)
339 650 T = RM1(UK,UK+2)
340 655 IF (RM1(UK,UK) .EQ. 0.0E0 .AND. T .EQ. 0.0E0) RM1(UK,UK) = EPS3
343 660 DO 720 II = 1, UK
344 I = UK + 1 - II
347 IF (I .EQ. UK) GO TO 700
350 DO 680 J = IP1, UK
373 DO 780 I = 1, UK
388 DO 820 I = 1, UK
395 IF (UK .EQ. N) GO TO 940
396 J = UK + 1
400 840 IF (ITS .GE. UK) GO TO 880
405 DO 860 I = 2, UK
408 J = UK - ITS + 1