Lines Matching refs:KN
248 INTEGER I, J, KI, KN, KSIZE, LENX, LENY, MX, MY local
346 DO 100 KN = 1, 4
347 N = NS(KN)
348 KSIZE = MIN(2,KN)
349 LENX = LENS(KN,MX)
350 LENY = LENS(KN,MY)
359 CALL STEST1(DDOTTEST(N,SX,INCX,SY,INCY),DT7(KN,KI),
360 + SSIZE1(KN),SFAC)
365 STY(J) = DT8(J,KN,KI)
371 STY(I) = DT10Y(I,KN,KI)
379 STX(I) = DT10X(I,KN,KI)
380 STY(I) = DT10Y(I,KN,KI)
403 INTEGER I, K, KI, KN, KSIZE, LENX, LENY, MX, MY local
479 DO 40 KN = 1, 4
480 N = NS(KN)
481 KSIZE = MIN(2,KN)
482 LENX = LENS(KN,MX)
483 LENY = LENS(KN,MY)
490 STX(I) = DT9X(I,KN,KI)
491 STY(I) = DT9Y(I,KN,KI)