Lines Matching refs:JJ
1872 INTEGER I, IA, IC, IN, INCX, INCXS, IX, J, JA, JJ, LAA, local
2049 JJ = 1
2052 JJ = J
2055 CALL ZMVCH( 'N', LJ, 1, ALPHA, Z( JJ ), LJ, W,
2056 $ 1, ONE, A( JJ, J ), 1, YT, G,
2167 $ IY, J, JA, JJ, LAA, LDA, LDAS, LJ, LX, LY, N, local
2374 JJ = 1
2377 JJ = J
2380 CALL ZMVCH( 'N', LJ, 2, ONE, Z( JJ, 1 ),
2381 $ NMAX, W, 1, ONE, A( JJ, J ), 1,
2782 INTEGER I, I1, I2, I3, IBEG, IEND, IOFF, J, JJ, KK local
2876 JJ = J + ( J - 1 )*LDA
2877 AA( JJ ) = DCMPLX( DBLE( AA( JJ ) ), RROGUE )
2909 JJ = KK + ( J - 1 )*LDA
2910 AA( JJ ) = DCMPLX( DBLE( AA( JJ ) ), RROGUE )