Lines Matching refs:JJ
1275 INTEGER I, IA, IB, ICT, ICU, IK, IN, J, JC, JJ, K, KS,
1479 JJ = 1
1482 JJ = J
1487 $ ALPHA, A( 1, JJ ), NMAX,
1489 $ C( JJ, J ), NMAX, CT, G,
1494 $ ALPHA, A( JJ, 1 ), NMAX,
1496 $ C( JJ, J ), NMAX, CT, G,
1607 INTEGER I, IA, IB, ICT, ICU, IK, IN, J, JC, JJ, JJAB,
1823 JJ = 1
1826 JJ = J
1845 $ 2*NMAX, BETA, C( JJ, J ),
1866 $ AB( JJ ), NMAX, W, 2*NMAX,
1867 $ BETA, C( JJ, J ), NMAX, CT,
2906 INTEGER I, IBEG, IEND, J, JJ
2989 JJ = J + ( J - 1 )*LDA
2990 AA( JJ ) = CMPLX( REAL( AA( JJ ) ), RROGUE )