Lines Matching refs:KN

330       INTEGER           I, J, KI, KN, KSIZE, LENX, LENY, MX, MY  local
523          DO 40 KN = 1, 4
524             N = NS(KN)
525             KSIZE = MIN(2,KN)
526             LENX = LENS(KN,MX)
527             LENY = LENS(KN,MY)
536                CALL CTEST(1,CDOT,CT6(KN,KI),CSIZE1(KN),SFAC)
540                CALL CTEST(1,CDOT,CT7(KN,KI),CSIZE1(KN),SFAC)
544                CALL CTEST(LENY,CY,CT8(1,KN,KI),CSIZE2(1,KSIZE),SFAC)
548                CALL CTEST(LENY,CY,CT10Y(1,KN,KI),CSIZE3,1.0D0)
552                CALL CTEST(LENX,CX,CT10X(1,KN,KI),CSIZE3,1.0D0)
553                CALL CTEST(LENY,CY,CT10Y(1,KN,KI),CSIZE3,1.0D0)