Lines Matching refs:KI
347 INTEGER I, J, KI, KN, KNI, KPAR, KSIZE, LENX, LENY, local
595 DO 120 KI = 1, 4
596 INCX = INCXS(KI)
597 INCY = INCYS(KI)
614 CALL STEST1(DDOT(N,SX,INCX,SY,INCY),DT7(KN,KI),SSIZE1(KN)
620 STY(J) = DT8(J,KN,KI)
626 STY(I) = DT10Y(I,KN,KI)
634 STX(I) = DT10X(I,KN,KI)
635 STY(I) = DT10Y(I,KN,KI)
641 KNI=KN+4*(KI-1)
671 $ REAL(DT7(KN,KI)),REAL(SSIZE1(KN)), .3125E-1)
691 INTEGER I, K, KI, KN, KSIZE, LENX, LENY, MX, MY local
761 DO 60 KI = 1, 4
762 INCX = INCXS(KI)
763 INCY = INCYS(KI)
778 STX(I) = DT9X(I,KN,KI)
779 STY(I) = DT9Y(I,KN,KI)