Lines Matching refs:KN
249 INTEGER I, J, KI, KN, KSIZE, LENX, LENY, MX, MY local
386 DO 100 KN = 1, 4
387 N = NS(KN)
388 KSIZE = MIN(2,KN)
389 LENX = LENS(KN,MX)
390 LENY = LENS(KN,MY)
399 CALL STEST1(DDOT(N,SX,INCX,SY,INCY),DT7(KN,KI),SSIZE1(KN)
405 STY(J) = DT8(J,KN,KI)
411 STY(I) = DT10Y(I,KN,KI)
419 STX(I) = DT10X(I,KN,KI)
420 STY(I) = DT10Y(I,KN,KI)
443 INTEGER I, K, KI, KN, KSIZE, LENX, LENY, MX, MY local
520 DO 40 KN = 1, 4
521 N = NS(KN)
522 KSIZE = MIN(2,KN)
523 LENX = LENS(KN,MX)
524 LENY = LENS(KN,MY)
531 STX(I) = DT9X(I,KN,KI)
532 STY(I) = DT9Y(I,KN,KI)