Lines Matching refs:KN
288 INTEGER I, J, KI, KN, KSIZE, LENX, LENY, MX, MY
481 DO 40 KN = 1, 4
482 N = NS(KN)
483 KSIZE = MIN(2,KN)
484 LENX = LENS(KN,MX)
485 LENY = LENS(KN,MY)
494 CALL CTEST(1,CDOT,CT6(KN,KI),CSIZE1(KN),SFAC)
498 CALL CTEST(1,CDOT,CT7(KN,KI),CSIZE1(KN),SFAC)
502 CALL CTEST(LENY,CY,CT8(1,KN,KI),CSIZE2(1,KSIZE),SFAC)
506 CALL CTEST(LENY,CY,CT10Y(1,KN,KI),CSIZE3,1.0D0)
510 CALL CTEST(LENX,CX,CT10X(1,KN,KI),CSIZE3,1.0D0)
511 CALL CTEST(LENY,CY,CT10Y(1,KN,KI),CSIZE3,1.0D0)
