Lines Matching defs:CC
75 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
214 CC( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3
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 )
242 CC( N - J + 1 ) = J*( ( J + 1 )*J )/2 -
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 )
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 )
394 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
507 $ CC, LDC, RESET, ZERO )
530 CS( I ) = CC( I )
543 $ AA, LDA, BB, LDB, BETA, CC, LDC )
567 ISAME( 12 ) = LCE( CS, CC, LCC )
570 $ CC, LDC )
594 $ C, NMAX, CT, G, CC, LDC, EPS,
653 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
679 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
778 CALL CMAKE( 'GE', ' ', ' ', M, N, C, NMAX, CC,
801 CS( I ) = CC( I )
814 $ BB, LDB, BETA, CC, LDC )
817 $ BB, LDB, BETA, CC, LDC )
841 ISAME( 11 ) = LCE( CS, CC, LCC )
844 $ CC, LDC )
869 $ CT, G, CC, LDC, EPS, ERR,
874 $ CT, G, CC, LDC, EPS, ERR,
1242 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
1268 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
1370 $ NMAX, CC, LDC, RESET, ZERO )
1395 CS( I ) = CC( I )
1408 $ LDA, RBETA, CC, LDC )
1416 $ LDA, BETA, CC, LDC )
1446 ISAME( 9 ) = LCE( CS, CC, LCC )
1449 $ N, CS, CC, LDC )
1490 $ CC( JC ), LDC, EPS, ERR,
1497 $ CC( JC ), LDC, EPS, ERR,
1574 $ AB, AA, AS, BB, BS, C, CC, CS, CT, G, W )
1600 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
1715 $ NMAX, CC, LDC, RESET, ZERO )
1740 CS( I ) = CC( I )
1753 $ LDA, BB, LDB, RBETA, CC, LDC )
1761 $ LDA, BB, LDB, BETA, CC, LDC )
1789 ISAME( 11 ) = LCE( CS, CC, LCC )
1792 $ CC, LDC )
1846 $ NMAX, CT, G, CC( JC ), LDC,
1868 $ G, CC( JC ), LDC, EPS, ERR,
3000 $ BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL,
3026 $ CC( LDCC, * ), CT( * )
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 )
