Lines Matching defs:CT
70 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
224 * CC holds the exact result. On exit from SMMCH CT holds
229 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
231 SAME = LSE( CC, CT, N )
238 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
240 SAME = LSE( CC, CT, N )
256 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
258 SAME = LSE( CC, CT, N )
265 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
267 SAME = LSE( CC, CT, N )
297 $ CC, CS, CT, G, 0 )
303 $ CC, CS, CT, G, 1 )
311 $ CC, CS, CT, G, 0 )
317 $ CC, CS, CT, G, 1 )
324 $ AA, AS, AB( 1, NMAX + 1 ), BB, BS, CT, G, C,
330 $ AA, AS, AB( 1, NMAX + 1 ), BB, BS, CT, G, C,
339 $ CC, CS, CT, G, 0 )
345 $ CC, CS, CT, G, 1 )
352 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W,
358 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W,
418 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G,
444 $ CS( NMAX*NMAX ), CT( NMAX ), G( NMAX )
642 $ C, NMAX, CT, G, CC, LDC, EPS,
746 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G,
772 $ CS( NMAX*NMAX ), CT( NMAX ), G( NMAX )
955 $ CT, G, CC, LDC, EPS, ERR,
960 $ CT, G, CC, LDC, EPS, ERR,
1057 $ B, BB, BS, CT, G, C, IORDER )
1081 $ C( NMAX, NMAX ), CT( NMAX ), G( NMAX )
1270 $ ZERO, C, NMAX, CT, G,
1276 $ ZERO, C, NMAX, CT, G,
1297 $ ZERO, B, NMAX, CT, G,
1303 $ ZERO, B, NMAX, CT, G,
1415 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G,
1441 $ CS( NMAX*NMAX ), CT( NMAX ), G( NMAX )
1615 $ C( JJ, J ), NMAX, CT, G,
1622 $ C( JJ, J ), NMAX, CT, G,
1732 $ AB, AA, AS, BB, BS, C, CC, CS, CT, G, W,
1757 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
1962 $ C( JJ, J ), NMAX, CT, G,
1975 $ NMAX, CT, G, CC( JC ), LDC,
2200 $ BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL,
2223 $ CC( LDCC, * ), CT( * ), G( * )
2234 * Compute expected result, one column at a time, in CT using data
2241 CT( I ) = ZERO
2247 CT( I ) = CT( I ) + A( I, K )*B( K, J )
2254 CT( I ) = CT( I ) + A( K, I )*B( K, J )
2261 CT( I ) = CT( I ) + A( I, K )*B( J, K )
2268 CT( I ) = CT( I ) + A( K, I )*B( J, K )
2274 CT( I ) = ALPHA*CT( I ) + BETA*C( I, J )
2282 ERRI = ABS( CT( I ) - CC( I, J ) )/EPS
2301 WRITE( NOUT, FMT = 9998 )I, CT( I ), CC( I, J )
2303 WRITE( NOUT, FMT = 9998 )I, CC( I, J ), CT( I )
