Lines Matching refs:KN
347 INTEGER I, J, KI, KN, KNI, KPAR, KSIZE, LENX, LENY, local
605 DO 100 KN = 1, 4
606 N = NS(KN)
607 KSIZE = MIN(2,KN)
608 LENX = LENS(KN,MX)
609 LENY = LENS(KN,MY)
618 CALL STEST1(SDOT(N,SX,INCX,SY,INCY),DT7(KN,KI),SSIZE1(KN)
624 STY(J) = DT8(J,KN,KI)
630 STY(I) = DT10Y(I,KN,KI)
638 STX(I) = DT10X(I,KN,KI)
639 STY(I) = DT10Y(I,KN,KI)
645 KNI=KN+4*(KI-1)
675 $ ST7B(KN,KI),SSIZE3(KN),SFAC)
695 INTEGER I, K, KI, KN, KSIZE, LENX, LENY, MX, MY local
771 DO 40 KN = 1, 4
772 N = NS(KN)
773 KSIZE = MIN(2,KN)
774 LENX = LENS(KN,MX)
775 LENY = LENS(KN,MY)
782 STX(I) = DT9X(I,KN,KI)
783 STY(I) = DT9Y(I,KN,KI)