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.0D0)
511                CALL CTEST(LENX,CX,CT10X(1,KN,KI),CSIZE3,1.0D0)
512                CALL CTEST(LENY,CY,CT10Y(1,KN,KI),CSIZE3,1.0D0)