Lines Matching refs:JJ
1277 INTEGER I, IA, IB, ICT, ICU, IK, IN, J, JC, JJ, K, KS, local
1481 JJ = 1
1484 JJ = J
1489 $ ALPHA, A( 1, JJ ), NMAX,
1491 $ C( JJ, J ), NMAX, CT, G,
1496 $ ALPHA, A( JJ, 1 ), NMAX,
1498 $ C( JJ, J ), NMAX, CT, G,
1610 INTEGER I, IA, IB, ICT, ICU, IK, IN, J, JC, JJ, JJAB, local
1826 JJ = 1
1829 JJ = J
1848 $ 2*NMAX, BETA, C( JJ, J ),
1869 $ AB( JJ ), NMAX, W, 2*NMAX,
1870 $ BETA, C( JJ, J ), NMAX, CT,
2910 INTEGER I, IBEG, IEND, J, JJ local
2993 JJ = J + ( J - 1 )*LDA
2994 AA( JJ ) = DCMPLX( DBLE( AA( JJ ) ), RROGUE )