Lines Matching refs:KN
347 INTEGER I, J, KI, KN, KNI, KPAR, KSIZE, LENX, LENY, local
601 DO 100 KN = 1, 4
602 N = NS(KN)
603 KSIZE = MIN(2,KN)
604 LENX = LENS(KN,MX)
605 LENY = LENS(KN,MY)
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
767 DO 40 KN = 1, 4
768 N = NS(KN)
769 KSIZE = MIN(2,KN)
770 LENX = LENS(KN,MX)
771 LENY = LENS(KN,MY)
778 STX(I) = DT9X(I,KN,KI)
779 STY(I) = DT9Y(I,KN,KI)