Lines Matching defs:CC
70 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
222 CC( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3
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 )
250 CC( N - J + 1 ) = J*( ( J + 1 )*J )/2 -
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 )
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,
443 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
554 $ CC, LDC, RESET, ZERO )
577 CS( I ) = CC( I )
591 $ BETA, CC, LDC )
615 ISAME( 12 ) = LSE( CS, CC, LCC )
618 $ CC, LDC )
642 $ C, NMAX, CT, G, CC, LDC, EPS,
746 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G,
771 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
868 CALL SMAKE( 'GE', ' ', ' ', M, N, C, NMAX, CC,
891 CS( I ) = CC( I )
904 $ AA, LDA, BB, LDB, BETA, CC, LDC )
927 ISAME( 11 ) = LSE( CS, CC, LCC )
930 $ CC, LDC )
955 $ CT, G, CC, LDC, EPS, ERR,
960 $ CT, G, CC, LDC, EPS, ERR,
1415 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G,
1440 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
1526 CALL SMAKE( 'SY', UPLO, ' ', N, N, C, NMAX, CC,
1544 CS( I ) = CC( I )
1556 $ AA, LDA, BETA, CC, LDC )
1577 ISAME( 9 ) = LSE( CS, CC, LCC )
1580 $ CC, LDC )
1616 $ CC( JC ), LDC, EPS, ERR,
1623 $ CC( JC ), LDC, EPS, ERR,
1732 $ AB, AA, AS, BB, BS, C, CC, CS, CT, G, W,
1757 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
1860 CALL SMAKE( 'SY', UPLO, ' ', N, N, C, NMAX, CC,
1882 CS( I ) = CC( I )
1894 $ AA, LDA, BB, LDB, BETA, CC, LDC )
1917 ISAME( 11 ) = LSE( CS, CC, LCC )
1920 $ CC, LDC )
1963 $ CC( JC ), LDC, EPS, ERR,
1975 $ NMAX, CT, G, CC( JC ), LDC,
2200 $ BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL,
2223 $ CC( LDCC, * ), CT( * ), G( * )
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 )
