Home | History | Annotate | Download | only in testing

Lines Matching refs:JJ

1809       INTEGER            I, IA, IC, IN, INCX, INCXS, IX, J, JA, JJ, LAA,
1978 JJ = 1
1981 JJ = J
1984 CALL ZMVCH( 'N', LJ, 1, ALPHA, Z( JJ ), LJ, W,
1985 $ 1, ONE, A( JJ, J ), 1, YT, G,
2095 $ IY, J, JA, JJ, LAA, LDA, LDAS, LJ, LX, LY, N,
2296 JJ = 1
2299 JJ = J
2302 CALL ZMVCH( 'N', LJ, 2, ONE, Z( JJ, 1 ),
2303 $ NMAX, W, 1, ONE, A( JJ, J ), 1,
2759 INTEGER I, I1, I2, I3, IBEG, IEND, IOFF, J, JJ, KK
2853 JJ = J + ( J - 1 )*LDA
2854 AA( JJ ) = DCMPLX( DBLE( AA( JJ ) ), RROGUE )
2886 JJ = KK + ( J - 1 )*LDA
2887 AA( JJ ) = DCMPLX( DBLE( AA( JJ ) ), RROGUE )