Lines Matching refs:KI
248 INTEGER I, J, KI, KN, KSIZE, LENX, LENY, MX, MY local
340 DO 120 KI = 1, 4
341 INCX = INCXS(KI)
342 INCY = INCYS(KI)
359 CALL STEST1(SDOTTEST(N,SX,INCX,SY,INCY),DT7(KN,KI),
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
473 DO 60 KI = 1, 4
474 INCX = INCXS(KI)
475 INCY = INCYS(KI)
490 STX(I) = DT9X(I,KN,KI)
491 STY(I) = DT9Y(I,KN,KI)