Lines Matching defs:CC
76 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
229 CC( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3
231 * CC holds the exact result. On exit from ZMMCH CT holds
236 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
238 SAME = LZE( CC, CT, N )
245 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
247 SAME = LZE( CC, CT, N )
257 CC( N - J + 1 ) = J*( ( J + 1 )*J )/2 -
263 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
265 SAME = LZE( CC, CT, N )
272 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
274 SAME = LZE( CC, CT, N )
305 $ CC, CS, CT, G, 0 )
311 $ CC, CS, CT, G, 1 )
319 $ CC, CS, CT, G, 0 )
325 $ CC, CS, CT, G, 1 )
347 $ CC, CS, CT, G, 0 )
353 $ CC, CS, CT, G, 1 )
360 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W,
366 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W,
428 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G,
455 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
568 $ CC, LDC, RESET, ZERO )
591 CS( I ) = CC( I )
605 $ BETA, CC, LDC )
629 ISAME( 12 ) = LZE( CS, CC, LCC )
632 $ CC, LDC )
656 $ C, NMAX, CT, G, CC, LDC, EPS,
758 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G,
785 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
884 CALL ZMAKE( 'ge', ' ', ' ', M, N, C, NMAX, CC,
907 CS( I ) = CC( I )
922 $ CC, LDC )
926 $ CC, LDC )
950 ISAME( 11 ) = LZE( CS, CC, LCC )
953 $ CC, LDC )
978 $ CT, G, CC, LDC, EPS, ERR,
983 $ CT, G, CC, LDC, EPS, ERR,
1443 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G,
1470 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
1572 $ NMAX, CC, LDC, RESET, ZERO )
1597 CS( I ) = CC( I )
1611 $ RALPHA, AA, LDA, RBETA, CC,
1620 $ ALPHA, AA, LDA, BETA, CC, LDC )
1650 ISAME( 9 ) = LZE( CS, CC, LCC )
1653 $ N, CS, CC, LDC )
1694 $ CC( JC ), LDC, EPS, ERR,
1701 $ CC( JC ), LDC, EPS, ERR,
1853 $ AB, AA, AS, BB, BS, C, CC, CS, CT, G, W,
1880 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
1995 $ NMAX, CC, LDC, RESET, ZERO )
2020 CS( I ) = CC( I )
2035 $ CC, LDC )
2045 $ CC, LDC )
2073 ISAME( 11 ) = LZE( CS, CC, LCC )
2076 $ CC, LDC )
2130 $ NMAX, CT, G, CC( JC ), LDC,
2152 $ G, CC( JC ), LDC, EPS, ERR,
2435 $ BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL,
2461 $ CC( LDCC, * ), CT( * )
2585 ERRI = ABS1( CT( I ) - CC( I, J ) )/EPS
2604 WRITE( NOUT, FMT = 9998 )I, CT( I ), CC( I, J )
2606 WRITE( NOUT, FMT = 9998 )I, CC( I, J ), CT( I )
