Lines Matching refs:JJ
1477 INTEGER I, IA, IB, ICT, ICU, IK, IN, J, JC, JJ, K, KS, local
1683 JJ = 1
1686 JJ = J
1691 $ ALPHA, A( 1, JJ ), NMAX,
1693 $ C( JJ, J ), NMAX, CT, G,
1698 $ ALPHA, A( JJ, 1 ), NMAX,
1700 $ C( JJ, J ), NMAX, CT, G,
1887 INTEGER I, IA, IB, ICT, ICU, IK, IN, J, JC, JJ, JJAB, local
2107 JJ = 1
2110 JJ = J
2129 $ 2*NMAX, BETA, C( JJ, J ),
2150 $ AB( JJ ), NMAX, W, 2*NMAX,
2151 $ BETA, C( JJ, J ), NMAX, CT,
2341 INTEGER I, IBEG, IEND, J, JJ local
2424 JJ = J + ( J - 1 )*LDA
2425 AA( JJ ) = DCMPLX( DBLE( AA( JJ ) ), RROGUE )