Lines Matching refs:J
63 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NTRA, variable
219 DO 100 J = 1, N
221 AB( I, J ) = MAX( I - J + 1, 0 )
223 AB( J, NMAX + 1 ) = J
224 AB( 1, NMAX + J ) = J
225 C( J, 1 ) = ZERO
227 DO 110 J = 1, N
228 CC( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3
251 DO 120 J = 1, N
252 AB( J, NMAX + 1 ) = N - J + 1
253 AB( 1, NMAX + J ) = N - J + 1
255 DO 130 J = 1, N
256 CC( N - J + 1 ) = J*( ( J + 1 )*J )/2 -
257 $ ( ( J + 1 )*J*( J - 1 ) )/3
1111 INTEGER I, IA, ICD, ICS, ICT, ICU, IM, IN, J, LAA, LBB, local
1142 DO 20 J = 1, NMAX
1144 C( I, J ) = ZERO
1311 DO 70 J = 1, N
1313 C( I, J ) = BB( I + ( J - 1 )*
1315 BB( I + ( J - 1 )*LDB ) = ALPHA*
1316 $ B( I, J )
1476 INTEGER I, IA, IB, ICT, ICU, IK, IN, J, JC, JJ, K, KS, local
1680 DO 40 J = 1, N
1683 LJ = J
1685 JJ = J
1686 LJ = N - J + 1
1691 $ A( 1, J ), NMAX, BETA,
1692 $ C( JJ, J ), NMAX, CT, G,
1698 $ A( J, 1 ), NMAX, BETA,
1699 $ C( JJ, J ), NMAX, CT, G,
1741 $ WRITE( NOUT, FMT = 9995 )J
1886 INTEGER I, IA, IB, ICT, ICU, IK, IN, J, JC, JJ, JJAB, local
2104 DO 70 J = 1, N
2107 LJ = J
2109 JJ = J
2110 LJ = N - J + 1
2114 W( I ) = ALPHA*AB( ( J - 1 )*2*
2118 $ AB( ( J - 1 )*2*
2122 $ AB( ( J - 1 )*2*
2128 $ 2*NMAX, BETA, C( JJ, J ),
2136 $ I - 1 )*NMAX + J ) )
2139 $ J ) )
2142 $ NMAX + J )
2145 $ J )
2150 $ BETA, C( JJ, J ), NMAX, CT,
2194 $ WRITE( NOUT, FMT = 9995 )J
2339 INTEGER I, IBEG, IEND, J, JJ local
2357 DO 20 J = 1, N
2359 IF( GEN.OR.( UPPER.AND.I.LE.J ).OR.( LOWER.AND.I.GE.J ) )
2361 A( I, J ) = CBEG( RESET ) + TRANSL
2362 IF( I.NE.J )THEN
2364 IF( N.GT.3.AND.J.EQ.N/2 )
2365 $ A( I, J ) = ZERO
2367 A( J, I ) = CONJG( A( I, J ) )
2369 A( J, I ) = A( I, J )
2371 A( J, I ) = ZERO
2377 $ A( J, J ) = CMPLX( REAL( A( J, J ) ), RZERO )
2379 $ A( J, J ) = A( J, J ) + ONE
2381 $ A( J, J ) = ONE
2387 DO 50 J = 1, N
2389 AA( I + ( J - 1 )*LDA ) = A( I, J )
2392 AA( I + ( J - 1 )*LDA ) = ROGUE
2396 DO 90 J = 1, N
2400 IEND = J - 1
2402 IEND = J
2406 IBEG = J + 1
2408 IBEG = J
2413 AA( I + ( J - 1 )*LDA ) = ROGUE
2416 AA( I + ( J - 1 )*LDA ) = A( I, J )
2419 AA( I + ( J - 1 )*LDA ) = ROGUE
2422 JJ = J + ( J - 1 )*LDA
2464 INTEGER I, J, K local
2482 DO 220 J = 1, N
2491 CT( I ) = CT( I ) + A( I, K )*B( K, J )
2492 G( I ) = G( I ) + ABS1( A( I, K ) )*ABS1( B( K, J ) )
2499 CT( I ) = CT( I ) + CONJG( A( K, I ) )*B( K, J )
2501 $ ABS1( B( K, J ) )
2507 CT( I ) = CT( I ) + A( K, I )*B( K, J )
2509 $ ABS1( B( K, J ) )
2517 CT( I ) = CT( I ) + A( I, K )*CONJG( B( J, K ) )
2519 $ ABS1( B( J, K ) )
2525 CT( I ) = CT( I ) + A( I, K )*B( J, K )
2527 $ ABS1( B( J, K ) )
2537 $ CONJG( B( J, K ) )
2539 $ ABS1( B( J, K ) )
2545 CT( I ) = CT( I ) + CONJG( A( K, I ) )*B( J, K )
2547 $ ABS1( B( J, K ) )
2555 CT( I ) = CT( I ) + A( K, I )*CONJG( B( J, K ) )
2557 $ ABS1( B( J, K ) )
2563 CT( I ) = CT( I ) + A( K, I )*B( J, K )
2565 $ ABS1( B( J, K ) )
2572 CT( I ) = ALPHA*CT( I ) + BETA*C( I, J )
2574 $ ABS1( BETA )*ABS1( C( I, J ) )
2581 ERRI = ABS1( CT( I ) - CC( I, J ) )/EPS
2600 WRITE( NOUT, FMT = 9998 )I, CT( I ), CC( I, J )
2602 WRITE( NOUT, FMT = 9998 )I, CC( I, J ), CT( I )
2606 $ WRITE( NOUT, FMT = 9997 )J
2673 INTEGER I, IBEG, IEND, J local
2678 DO 20 J = 1, N
2680 IF( AA( I, J ).NE.AS( I, J ) )
2685 DO 50 J = 1, N
2688 IEND = J
2690 IBEG = J
2694 IF( AA( I, J ).NE.AS( I, J ) )
2698 IF( AA( I, J ).NE.AS( I, J ) )
2730 INTEGER I, IC, J, MI, MJ local
2732 SAVE I, IC, J, MI, MJ
2741 J = 7
2755 J = J*MJ
2757 J = J - 1000*( J/1000 )
2762 CBEG = CMPLX( ( I - 500 )/1001.0, ( J - 500 )/1001.0 )