Lines Matching defs:CC
121 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
253 CC( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3
255 * CC holds the exact result. On exit from CMMCH CT holds
260 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
262 SAME = LCE( CC, CT, N )
269 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
271 SAME = LCE( CC, CT, N )
281 CC( N - J + 1 ) = J*( ( J + 1 )*J )/2 -
287 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
289 SAME = LCE( CC, CT, N )
296 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
298 SAME = LCE( CC, CT, N )
328 $ CC, CS, CT, G )
334 $ CC, CS, CT, G )
345 $ CC, CS, CT, G )
350 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W )
407 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
433 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
546 $ CC, LDC, RESET, ZERO )
569 CS( I ) = CC( I )
582 $ AA, LDA, BB, LDB, BETA, CC, LDC )
606 ISAME( 12 ) = LCE( CS, CC, LCC )
609 $ CC, LDC )
633 $ C, NMAX, CT, G, CC, LDC, EPS,
692 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
718 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
817 CALL CMAKE( 'GE', ' ', ' ', M, N, C, NMAX, CC,
840 CS( I ) = CC( I )
853 $ BB, LDB, BETA, CC, LDC )
856 $ BB, LDB, BETA, CC, LDC )
880 ISAME( 11 ) = LCE( CS, CC, LCC )
883 $ CC, LDC )
908 $ CT, G, CC, LDC, EPS, ERR,
913 CC, LDC, EPS, ERR,
1281 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
1307 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
1409 $ NMAX, CC, LDC, RESET, ZERO )
1434 CS( I ) = CC( I )
1447 $ LDA, RBETA, CC, LDC )
1455 $ LDA, BETA, CC, LDC )
1485 ISAME( 9 ) = LCE( CS, CC, LCC )
1488 $ N, CS, CC, LDC )
1529 $ CC( JC ), LDC, EPS, ERR,
1536 $ CC( JC ), LDC, EPS, ERR,
1613 $ AB, AA, AS, BB, BS, C, CC, CS, CT, G, W )
1639 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
1754 $ NMAX, CC, LDC, RESET, ZERO )
1779 CS( I ) = CC( I )
1792 $ LDA, BB, LDB, RBETA, CC, LDC )
1800 $ LDA, BB, LDB, BETA, CC, LDC )
1828 ISAME( 11 ) = LCE( CS, CC, LCC )
1831 $ CC, LDC )
1885 $ NMAX, CT, G, CC( JC ), LDC,
1907 $ G, CC( JC ), LDC, EPS, ERR,
3054 $ BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL,
3080 $ CC( LDCC, * ), CT( * )
3202 ERRI = ABS1( CT( I ) - CC( I, J ) )/EPS
3221 WRITE( NOUT, FMT = 9998 )I, CT( I ), CC( I, J )
3223 WRITE( NOUT, FMT = 9998 )I, CC( I, J ), CT( I )
