Lines Matching refs:KN
288 INTEGER I, J, KI, KN, KSIZE, LENX, LENY, MX, MY local
480 DO 40 KN = 1, 4
481 N = NS(KN)
482 KSIZE = MIN(2,KN)
483 LENX = LENS(KN,MX)
484 LENY = LENS(KN,MY)
494 CALL CTEST(1,CDOT,CT6(KN,KI),CSIZE1(KN),SFAC)
499 CALL CTEST(1,CDOT,CT7(KN,KI),CSIZE1(KN),SFAC)
503 CALL CTEST(LENY,CY,CT8(1,KN,KI),CSIZE2(1,KSIZE),SFAC)
507 CALL CTEST(LENY,CY,CT10Y(1,KN,KI),CSIZE3,1.0E0)
511 CALL CTEST(LENX,CX,CT10X(1,KN,KI),CSIZE3,1.0E0)
512 CALL CTEST(LENY,CY,CT10Y(1,KN,KI),CSIZE3,1.0E0)