Lines Matching refs:JJ
1476 INTEGER I, IA, IB, ICT, ICU, IK, IN, J, JC, JJ, K, KS, local
1682 JJ = 1
1685 JJ = J
1690 $ ALPHA, A( 1, JJ ), NMAX,
1692 $ C( JJ, J ), NMAX, CT, G,
1697 $ ALPHA, A( JJ, 1 ), NMAX,
1699 $ C( JJ, J ), NMAX, CT, G,
1886 INTEGER I, IA, IB, ICT, ICU, IK, IN, J, JC, JJ, JJAB, local
2106 JJ = 1
2109 JJ = J
2128 $ 2*NMAX, BETA, C( JJ, J ),
2149 $ AB( JJ ), NMAX, W, 2*NMAX,
2150 $ BETA, C( JJ, J ), NMAX, CT,
2339 INTEGER I, IBEG, IEND, J, JJ local
2422 JJ = J + ( J - 1 )*LDA
2423 AA( JJ ) = CMPLX( REAL( AA( JJ ) ), RROGUE )