Lines Matching defs:CC
116 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
246 CC( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3
248 * CC holds the exact result. On exit from DMMCH CT holds
253 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
255 SAME = LDE( CC, CT, N )
262 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
264 SAME = LDE( CC, CT, N )
274 CC( N - J + 1 ) = J*( ( J + 1 )*J )/2 -
280 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
282 SAME = LDE( CC, CT, N )
289 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
291 SAME = LDE( CC, CT, N )
320 $ CC, CS, CT, G )
326 $ CC, CS, CT, G )
337 $ CC, CS, CT, G )
342 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W )
397 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
421 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
532 $ CC, LDC, RESET, ZERO )
555 CS( I ) = CC( I )
568 $ AA, LDA, BB, LDB, BETA, CC, LDC )
592 ISAME( 12 ) = LDE( CS, CC, LCC )
595 $ CC, LDC )
619 $ C, NMAX, CT, G, CC, LDC, EPS,
678 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
702 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
799 CALL DMAKE( 'GE', ' ', ' ', M, N, C, NMAX, CC,
822 CS( I ) = CC( I )
834 $ BB, LDB, BETA, CC, LDC )
857 ISAME( 11 ) = LDE( CS, CC, LCC )
860 $ CC, LDC )
885 $ CT, G, CC, LDC, EPS, ERR,
890 $ CT, G, CC, LDC, EPS, ERR,
1253 $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G )
1277 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
1363 CALL DMAKE( 'SY', UPLO, ' ', N, N, C, NMAX, CC,
1381 CS( I ) = CC( I )
1393 $ BETA, CC, LDC )
1414 ISAME( 9 ) = LDE( CS, CC, LCC )
1417 $ CC, LDC )
1453 $ CC( JC ), LDC, EPS, ERR,
1460 $ CC( JC ), LDC, EPS, ERR,
1528 $ AB, AA, AS, BB, BS, C, CC, CS, CT, G, W )
1552 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
1655 CALL DMAKE( 'SY', UPLO, ' ', N, N, C, NMAX, CC,
1677 CS( I ) = CC( I )
1689 $ BB, LDB, BETA, CC, LDC )
1712 ISAME( 11 ) = LDE( CS, CC, LCC )
1715 $ CC, LDC )
1758 $ CC( JC ), LDC, EPS, ERR,
1770 $ NMAX, CT, G, CC( JC ), LDC,
2509 $ BETA, C, LDC, CT, G, CC, LDCC, EPS, ERR, FATAL,
2532 $ CC( LDCC, * ), CT( * ), G( * )
2591 ERRI = ABS( CT( I ) - CC( I, J ) )/EPS
2610 WRITE( NOUT, FMT = 9998 )I, CT( I ), CC( I, J )
2612 WRITE( NOUT, FMT = 9998 )I, CC( I, J ), CT( I )
