Lines Matching refs:CC
70 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
207 CC( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3
209 * CC holds the exact result. On exit from DMMCH CT holds
214 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
216 SAME = LDE( CC, CT, N )
223 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
225 SAME = LDE( CC, CT, N )
235 CC( N - J + 1 ) = J*( ( J + 1 )*J )/2 -
241 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
243 SAME = LDE( CC, CT, N )
250 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
252 SAME = LDE( CC, CT, N )
281 $ CC, CS, CT, G )
287 $ CC, CS, CT, G )
298 $ CC, CS, CT, G )
303 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W )
358 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
382 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
493 $ CC, LDC, RESET, ZERO )
516 CS( I ) = CC( I )
529 $ AA, LDA, BB, LDB, BETA, CC, LDC )
553 ISAME( 12 ) = LDE( CS, CC, LCC )
556 $ CC, LDC )
580 $ C, NMAX, CT, G, CC, LDC, EPS,
639 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
663 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
760 CALL DMAKE( 'GE', ' ', ' ', M, N, C, NMAX, CC,
783 CS( I ) = CC( I )
795 $ BB, LDB, BETA, CC, LDC )
818 ISAME( 11 ) = LDE( CS, CC, LCC )
821 $ CC, LDC )
846 $ CT, G, CC, LDC, EPS, ERR,
851 $ CT, G, CC, LDC, EPS, ERR,
1214 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
1238 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
1324 CALL DMAKE( 'SY', UPLO, ' ', N, N, C, NMAX, CC,
1342 CS( I ) = CC( I )
1354 $ BETA, CC, LDC )
1375 ISAME( 9 ) = LDE( CS, CC, LCC )
1378 $ CC, LDC )
1414 $ CC( JC ), LDC, EPS, ERR,
1421 $ CC( JC ), LDC, EPS, ERR,
1489 $ AB, AA, AS, BB, BS, C, CC, CS, CT, G, W )
1513 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
1616 CALL DMAKE( 'SY', UPLO, ' ', N, N, C, NMAX, CC,
1638 CS( I ) = CC( I )
1650 $ BB, LDB, BETA, CC, LDC )
1673 ISAME( 11 ) = LDE( CS, CC, LCC )
1676 $ CC, LDC )
1719 $ CC( JC ), LDC, EPS, ERR,
1731 $ NMAX, CT, G, CC( JC ), LDC,
2458 $ BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL,
2481 $ CC( LDCC, * ), CT( * ), G( * )
2540 ERRI = ABS( CT( I ) - CC( I, J ) )/EPS
2559 WRITE( NOUT, FMT = 9998 )I, CT( I ), CC( I, J )
2561 WRITE( NOUT, FMT = 9998 )I, CC( I, J ), CT( I )