Lines Matching defs:CT
75 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
216 * CC holds the exact result. On exit from CMMCH CT holds
221 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
223 SAME = LCE( CC, CT, N )
230 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
232 SAME = LCE( CC, CT, N )
248 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
250 SAME = LCE( CC, CT, N )
257 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
259 SAME = LCE( CC, CT, N )
289 $ CC, CS, CT, G )
295 $ CC, CS, CT, G )
300 $ AA, AS, AB( 1, NMAX + 1 ), BB, BS, CT, G, C )
306 $ CC, CS, CT, G )
311 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W )
368 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
395 $ CS( NMAX*NMAX ), CT( NMAX )
594 $ C, NMAX, CT, G, CC, LDC, EPS,
653 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
680 $ CS( NMAX*NMAX ), CT( NMAX )
869 $ CT, G, CC, LDC, EPS, ERR,
874 $ CT, G, CC, LDC, EPS, ERR,
932 $ B, BB, BS, CT, G, C )
958 $ C( NMAX, NMAX ), CT( NMAX )
1147 $ ZERO, C, NMAX, CT, G,
1153 $ ZERO, C, NMAX, CT, G,
1174 $ ZERO, B, NMAX, CT, G,
1180 $ ZERO, B, NMAX, CT, G,
1242 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
1269 $ CS( NMAX*NMAX ), CT( NMAX )
1489 $ C( JJ, J ), NMAX, CT, G,
1496 $ C( JJ, J ), NMAX, CT, G,
1574 $ AB, AA, AS, BB, BS, C, CC, CS, CT, G, W )
1600 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
1846 $ NMAX, CT, G, CC( JC ), LDC,
1867 $ BETA, C( JJ, J ), NMAX, CT,
3000 $ BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL,
3026 $ CC( LDCC, * ), CT( * )
3045 * Compute expected result, one column at a time, in CT using data
3052 CT( I ) = ZERO
3058 CT( I ) = CT( I ) + A( I, K )*B( K, J )
3066 CT( I ) = CT( I ) + CONJG( A( K, I ) )*B( K, J )
3074 CT( I ) = CT( I ) + A( K, I )*B( K, J )
3084 CT( I ) = CT( I ) + A( I, K )*CONJG( B( J, K ) )
3092 CT( I ) = CT( I ) + A( I, K )*B( J, K )
3103 CT( I ) = CT( I ) + CONJG( A( K, I ) )*
3112 CT( I ) = CT( I ) + CONJG( A( K, I ) )*B( J, K )
3122 CT( I ) = CT( I ) + A( K, I )*CONJG( B( J, K ) )
3130 CT( I ) = CT( I ) + A( K, I )*B( J, K )
3139 CT( I ) = ALPHA*CT( I ) + BETA*C( I, J )
3148 ERRI = ABS1( CT( I ) - CC( I, J ) )/EPS
3167 WRITE( NOUT, FMT = 9998 )I, CT( I ), CC( I, J )
3169 WRITE( NOUT, FMT = 9998 )I, CC( I, J ), CT( I )
