/dports/math/scalapack/scalapack-2.1.0/TESTING/EIG/ |
H A D | pdsytdrv.f | 167 INTEGER I, IACOL, IAROW, ICTXT, II, IPT, IPV, IPX, local 204 IPV = NB * NB + IPT 205 IPX = NB * NP + IPV 250 $ J, DESCA, TAU, WORK( IPT ), WORK( IPV ) ) 255 $ WORK( IPV ), 1, 1, DESCV ) 282 $ DESCA, WORK( IPV ), 1, 1, DESCV, ZERO, 352 $ DESCA, TAU, WORK( IPT ), WORK( IPV ) ) 357 $ WORK( IPV ), K+1, 1, DESCV ) 358 CALL PDLASET( 'Upper', N-K, JB, ZERO, ONE, WORK( IPV ), 371 $ DESCA, WORK( IPV ), K, 1, DESCV, ZERO, [all …]
|
H A D | pchetdrv.f | 172 INTEGER I, IACOL, IAROW, ICTXT, II, IPT, IPV, IPX, 210 IPV = NB * NB + IPT 211 IPX = NB * NP + IPV 256 $ J, DESCA, TAU, WORK( IPT ), WORK( IPV ) ) 261 $ WORK( IPV ), 1, 1, DESCV ) 288 $ DESCA, WORK( IPV ), 1, 1, DESCV, ZERO, 297 $ K+JB, ONE, WORK( IPV ), 1, 1, DESCV, 359 $ DESCA, TAU, WORK( IPT ), WORK( IPV ) ) 364 $ WORK( IPV ), K+1, 1, DESCV ) 378 $ DESCA, WORK( IPV ), K, 1, DESCV, ZERO, [all …]
|
H A D | pzhetdrv.f | 172 INTEGER I, IACOL, IAROW, ICTXT, II, IPT, IPV, IPX, local 210 IPV = NB * NB + IPT 211 IPX = NB * NP + IPV 256 $ J, DESCA, TAU, WORK( IPT ), WORK( IPV ) ) 261 $ WORK( IPV ), 1, 1, DESCV ) 288 $ DESCA, WORK( IPV ), 1, 1, DESCV, ZERO, 297 $ K+JB, ONE, WORK( IPV ), 1, 1, DESCV, 359 $ DESCA, TAU, WORK( IPT ), WORK( IPV ) ) 364 $ WORK( IPV ), K+1, 1, DESCV ) 378 $ DESCA, WORK( IPV ), K, 1, DESCV, ZERO, [all …]
|
H A D | pssytdrv.f | 167 INTEGER I, IACOL, IAROW, ICTXT, II, IPT, IPV, IPX, local 204 IPV = NB * NB + IPT 205 IPX = NB * NP + IPV 250 $ J, DESCA, TAU, WORK( IPT ), WORK( IPV ) ) 255 $ WORK( IPV ), 1, 1, DESCV ) 282 $ DESCA, WORK( IPV ), 1, 1, DESCV, ZERO, 352 $ DESCA, TAU, WORK( IPT ), WORK( IPV ) ) 357 $ WORK( IPV ), K+1, 1, DESCV ) 358 CALL PSLASET( 'Upper', N-K, JB, ZERO, ONE, WORK( IPV ), 371 $ DESCA, WORK( IPV ), K, 1, DESCV, ZERO, [all …]
|
H A D | pcgehdrv.f | 100 $ IPV, IPW, IV, J, JB, JJ, JL, K, MYCOL, MYROW, local 136 IPV = IPT + NB * NB 137 IPW = IPV + IHLP * NB 156 CALL PCLACPY( 'All', IHI-K, JB, A, I+1, J, DESCA, WORK( IPV ), 167 $ IHI-K, N-K+1, JB, WORK( IPV ), IV+1, 1, DESCV, 173 $ 'Columnwise', IHI, IHI-K, JB, WORK( IPV ), IV+1, 195 CALL PCLACPY( 'All', IHI-ILO, JB, A, I+1, J, DESCA, WORK( IPV ), 207 $ IHI-ILO, N-ILO+1, JB, WORK( IPV ), IV+1, 1, DESCV, 213 $ 'Columnwise', IHI, IHI-ILO, JB, WORK( IPV ), IV+1,
|
H A D | pdgehdrv.f | 100 $ IPV, IPW, IV, J, JB, JJ, JL, K, MYCOL, MYROW, local 136 IPV = IPT + NB * NB 137 IPW = IPV + IHLP * NB 156 CALL PDLACPY( 'All', IHI-K, JB, A, I+1, J, DESCA, WORK( IPV ), 167 $ IHI-K, N-K+1, JB, WORK( IPV ), IV+1, 1, DESCV, 173 $ IHI, IHI-K, JB, WORK( IPV ), IV+1, 1, DESCV, 194 CALL PDLACPY( 'All', IHI-ILO, JB, A, I+1, J, DESCA, WORK( IPV ), 206 $ IHI-ILO, N-ILO+1, JB, WORK( IPV ), IV+1, 1, DESCV, 212 $ IHI-ILO, JB, WORK( IPV ), IV+1, 1, DESCV,
|
H A D | pzgehdrv.f | 100 $ IPV, IPW, IV, J, JB, JJ, JL, K, MYCOL, MYROW, local 136 IPV = IPT + NB * NB 137 IPW = IPV + IHLP * NB 156 CALL PZLACPY( 'All', IHI-K, JB, A, I+1, J, DESCA, WORK( IPV ), 167 $ IHI-K, N-K+1, JB, WORK( IPV ), IV+1, 1, DESCV, 173 $ 'Columnwise', IHI, IHI-K, JB, WORK( IPV ), IV+1, 195 CALL PZLACPY( 'All', IHI-ILO, JB, A, I+1, J, DESCA, WORK( IPV ), 207 $ IHI-ILO, N-ILO+1, JB, WORK( IPV ), IV+1, 1, DESCV, 213 $ 'Columnwise', IHI, IHI-ILO, JB, WORK( IPV ), IV+1,
|
H A D | psgehdrv.f | 100 $ IPV, IPW, IV, J, JB, JJ, JL, K, MYCOL, MYROW, local 136 IPV = IPT + NB * NB 137 IPW = IPV + IHLP * NB 156 CALL PSLACPY( 'All', IHI-K, JB, A, I+1, J, DESCA, WORK( IPV ), 167 $ IHI-K, N-K+1, JB, WORK( IPV ), IV+1, 1, DESCV, 173 $ IHI, IHI-K, JB, WORK( IPV ), IV+1, 1, DESCV, 194 CALL PSLACPY( 'All', IHI-ILO, JB, A, I+1, J, DESCA, WORK( IPV ), 206 $ IHI-ILO, N-ILO+1, JB, WORK( IPV ), IV+1, 1, DESCV, 212 $ IHI-ILO, JB, WORK( IPV ), IV+1, 1, DESCV,
|
/dports/math/scalapack/scalapack-2.1.0/SRC/ |
H A D | pdlarfb.f | 312 IPV = 1 313 IPW = IPV + MPC * K 330 $ WORK( IPV ), LV, MYROW, IVCOL ) 452 IPV = 1 453 IPW = IPV + K * NQC0 537 $ IPV = IPV + ICOFFC * LV 615 IPV = 1 616 IPW = IPV + MPC0 * K 703 $ IPV = IPV + IROFFC 760 IPV = 1 [all …]
|
H A D | pclarfb.f | 313 IPV = 1 314 IPW = IPV + MPC * K 331 $ WORK( IPV ), LV, MYROW, IVCOL ) 453 IPV = 1 454 IPW = IPV + K * NQC0 539 $ IPV = IPV + ICOFFC * LV 617 IPV = 1 618 IPW = IPV + MPC0 * K 706 $ IPV = IPV + IROFFC 763 IPV = 1 [all …]
|
H A D | pslarfb.f | 312 IPV = 1 313 IPW = IPV + MPC * K 330 $ WORK( IPV ), LV, MYROW, IVCOL ) 452 IPV = 1 453 IPW = IPV + K * NQC0 537 $ IPV = IPV + ICOFFC * LV 615 IPV = 1 616 IPW = IPV + MPC0 * K 703 $ IPV = IPV + IROFFC 760 IPV = 1 [all …]
|
H A D | pzlarfb.f | 313 IPV = 1 314 IPW = IPV + MPC * K 331 $ WORK( IPV ), LV, MYROW, IVCOL ) 453 IPV = 1 454 IPW = IPV + K * NQC0 539 $ IPV = IPV + ICOFFC * LV 617 IPV = 1 618 IPW = IPV + MPC0 * K 706 $ IPV = IPV + IROFFC 763 IPV = 1 [all …]
|
/dports/math/scalapack/scalapack-2.1.0/TESTING/LIN/ |
H A D | pdtzrzrv.f | 133 $ IPT, IPV, IPW, JJA, JM1, JV, L, MYCOL, MYROW, local 170 IPV = 1 171 IPT = IPV + NQ * DESCA( MB_ ) 193 CALL PDLACPY( 'All', IB, L, A, IA, JM1, DESCA, WORK( IPV ), 1, 199 $ WORK( IPV ), 1, ICOFF+1, DESCV ) 210 $ IN-IA+1, N, IB, L, WORK( IPV ), 1, JV, DESCV, 215 CALL PDLACPY( 'Lower', IB-1, IB-1, WORK( IPV ), 1, ICOFF+1, DESCV, 232 CALL PDLACPY( 'All', IB, L, A, I, JM1, DESCA, WORK( IPV ), 1, 238 $ WORK( IPV ), 1, ICOFF+1+I-IA, DESCV ) 249 $ I+IB-IA, N-I+IA, IB, L, WORK( IPV ), 1, JV, [all …]
|
H A D | pctzrzrv.f | 133 $ IPT, IPV, IPW, JJA, JM1, JV, L, MYCOL, MYROW, local 170 IPV = 1 171 IPT = IPV + NQ * DESCA( MB_ ) 193 CALL PCLACPY( 'All', IB, L, A, IA, JM1, DESCA, WORK( IPV ), 1, 199 $ WORK( IPV ), 1, ICOFF+1, DESCV ) 210 $ 'Rowwise', IN-IA+1, N, IB, L, WORK( IPV ), 1, JV, 215 CALL PCLACPY( 'Lower', IB-1, IB-1, WORK( IPV ), 1, ICOFF+1, DESCV, 232 CALL PCLACPY( 'All', IB, L, A, I, JM1, DESCA, WORK( IPV ), 1, 238 $ WORK( IPV ), 1, ICOFF+1+I-IA, DESCV ) 249 $ 'Rowwise', I+IB-IA, N-I+IA, IB, L, WORK( IPV ), [all …]
|
H A D | pstzrzrv.f | 133 $ IPT, IPV, IPW, JJA, JM1, JV, L, MYCOL, MYROW, local 170 IPV = 1 171 IPT = IPV + NQ * DESCA( MB_ ) 193 CALL PSLACPY( 'All', IB, L, A, IA, JM1, DESCA, WORK( IPV ), 1, 199 $ WORK( IPV ), 1, ICOFF+1, DESCV ) 210 $ IN-IA+1, N, IB, L, WORK( IPV ), 1, JV, DESCV, 215 CALL PSLACPY( 'Lower', IB-1, IB-1, WORK( IPV ), 1, ICOFF+1, DESCV, 232 CALL PSLACPY( 'All', IB, L, A, I, JM1, DESCA, WORK( IPV ), 1, 238 $ WORK( IPV ), 1, ICOFF+1+I-IA, DESCV ) 249 $ I+IB-IA, N-I+IA, IB, L, WORK( IPV ), 1, JV, [all …]
|
H A D | pztzrzrv.f | 133 $ IPT, IPV, IPW, JJA, JM1, JV, L, MYCOL, MYROW, 170 IPV = 1 171 IPT = IPV + NQ * DESCA( MB_ ) 193 CALL PZLACPY( 'All', IB, L, A, IA, JM1, DESCA, WORK( IPV ), 1, 199 $ WORK( IPV ), 1, ICOFF+1, DESCV ) 210 $ 'Rowwise', IN-IA+1, N, IB, L, WORK( IPV ), 1, JV, 215 CALL PZLACPY( 'Lower', IB-1, IB-1, WORK( IPV ), 1, ICOFF+1, DESCV, 232 CALL PZLACPY( 'All', IB, L, A, I, JM1, DESCA, WORK( IPV ), 1, 238 $ WORK( IPV ), 1, ICOFF+1+I-IA, DESCV ) 249 $ 'Rowwise', I+IB-IA, N-I+IA, IB, L, WORK( IPV ), [all …]
|
H A D | pcgeqlrv.f | 135 INTEGER IACOL, IAROW, ICTXT, IIA, IPT, IPV, IPW, IROFF, 168 IPV = 1 169 IPT = IPV + MP * DESCA( NB_ ) 192 $ WORK( IPV ), IROFF+1, 1, DESCV ) 193 CALL PCLASET( 'Lower', JB, JB, ZERO, ONE, WORK( IPV ), IV, 207 $ M-N+JN-JA+1, JN-JA+1, JB, WORK( IPV ), IROFF+1, 1, 226 $ WORK( IPV ), IROFF+1, 1, DESCV ) 227 CALL PCLASET( 'Lower', JB, JB, ZERO, ONE, WORK( IPV ), IV, 241 $ M-N+J+JB-JA, J+JB-JA, JB, WORK( IPV ), IROFF+1,
|
H A D | psgeqlrv.f | 134 INTEGER IACOL, IAROW, ICTXT, IIA, IPT, IPV, IPW, IROFF, 167 IPV = 1 168 IPT = IPV + MP * DESCA( NB_ ) 191 $ WORK( IPV ), IROFF+1, 1, DESCV ) 192 CALL PSLASET( 'Lower', JB, JB, ZERO, ONE, WORK( IPV ), IV, 206 $ M-N+JN-JA+1, JN-JA+1, JB, WORK( IPV ), IROFF+1, 1, 225 $ WORK( IPV ), IROFF+1, 1, DESCV ) 226 CALL PSLASET( 'Lower', JB, JB, ZERO, ONE, WORK( IPV ), IV, 240 $ M-N+J+JB-JA, J+JB-JA, JB, WORK( IPV ), IROFF+1,
|
H A D | pzgerqrv.f | 134 $ IPT, IPV, IPW, JJA, JV, K, MYCOL, MYROW, NPCOL, 166 IPV = 1 167 IPT = IPV + NQ * DESCA( MB_ ) 190 $ WORK( IPV ), 1, ICOFF+1, DESCV ) 191 CALL PZLASET( 'Upper', IB, IB, ZERO, ONE, WORK( IPV ), 1, JV, 205 $ 'Rowwise', IN-IA+1, N-M+IN-IA+1, IB, WORK( IPV ), 1, 225 $ WORK( IPV ), 1, ICOFF+1, DESCV ) 226 CALL PZLASET( 'Upper', IB, IB, ZERO, ONE, WORK( IPV ), 1, JV, 240 $ 'Rowwise', I+IB-IA, N-M+I+IB-IA, IB, WORK( IPV ),
|
H A D | pdgeqlrv.f | 134 INTEGER IACOL, IAROW, ICTXT, IIA, IPT, IPV, IPW, IROFF, 167 IPV = 1 168 IPT = IPV + MP * DESCA( NB_ ) 191 $ WORK( IPV ), IROFF+1, 1, DESCV ) 192 CALL PDLASET( 'Lower', JB, JB, ZERO, ONE, WORK( IPV ), IV, 206 $ M-N+JN-JA+1, JN-JA+1, JB, WORK( IPV ), IROFF+1, 1, 225 $ WORK( IPV ), IROFF+1, 1, DESCV ) 226 CALL PDLASET( 'Lower', JB, JB, ZERO, ONE, WORK( IPV ), IV, 240 $ M-N+J+JB-JA, J+JB-JA, JB, WORK( IPV ), IROFF+1,
|
H A D | pcgerqrv.f | 134 $ IPT, IPV, IPW, JJA, JV, K, MYCOL, MYROW, NPCOL, 166 IPV = 1 167 IPT = IPV + NQ * DESCA( MB_ ) 190 $ WORK( IPV ), 1, ICOFF+1, DESCV ) 191 CALL PCLASET( 'Upper', IB, IB, ZERO, ONE, WORK( IPV ), 1, JV, 205 $ 'Rowwise', IN-IA+1, N-M+IN-IA+1, IB, WORK( IPV ), 1, 225 $ WORK( IPV ), 1, ICOFF+1, DESCV ) 226 CALL PCLASET( 'Upper', IB, IB, ZERO, ONE, WORK( IPV ), 1, JV, 240 $ 'Rowwise', I+IB-IA, N-M+I+IB-IA, IB, WORK( IPV ),
|
H A D | pdgerqrv.f | 133 $ IPT, IPV, IPW, JJA, JV, K, MYCOL, MYROW, NPCOL, local 165 IPV = 1 166 IPT = IPV + NQ * DESCA( MB_ ) 189 $ WORK( IPV ), 1, ICOFF+1, DESCV ) 190 CALL PDLASET( 'Upper', IB, IB, ZERO, ONE, WORK( IPV ), 1, JV, 204 $ IN-IA+1, N-M+IN-IA+1, IB, WORK( IPV ), 1, ICOFF+1, 223 $ WORK( IPV ), 1, ICOFF+1, DESCV ) 224 CALL PDLASET( 'Upper', IB, IB, ZERO, ONE, WORK( IPV ), 1, JV, 238 $ I+IB-IA, N-M+I+IB-IA, IB, WORK( IPV ), 1,
|
H A D | psgerqrv.f | 133 $ IPT, IPV, IPW, JJA, JV, K, MYCOL, MYROW, NPCOL, 165 IPV = 1 166 IPT = IPV + NQ * DESCA( MB_ ) 189 $ WORK( IPV ), 1, ICOFF+1, DESCV ) 190 CALL PSLASET( 'Upper', IB, IB, ZERO, ONE, WORK( IPV ), 1, JV, 204 $ IN-IA+1, N-M+IN-IA+1, IB, WORK( IPV ), 1, ICOFF+1, 223 $ WORK( IPV ), 1, ICOFF+1, DESCV ) 224 CALL PSLASET( 'Upper', IB, IB, ZERO, ONE, WORK( IPV ), 1, JV, 238 $ I+IB-IA, N-M+I+IB-IA, IB, WORK( IPV ), 1,
|
H A D | pzgeqlrv.f | 135 INTEGER IACOL, IAROW, ICTXT, IIA, IPT, IPV, IPW, IROFF, local 168 IPV = 1 169 IPT = IPV + MP * DESCA( NB_ ) 192 $ WORK( IPV ), IROFF+1, 1, DESCV ) 193 CALL PZLASET( 'Lower', JB, JB, ZERO, ONE, WORK( IPV ), IV, 207 $ M-N+JN-JA+1, JN-JA+1, JB, WORK( IPV ), IROFF+1, 1, 226 $ WORK( IPV ), IROFF+1, 1, DESCV ) 227 CALL PZLASET( 'Lower', JB, JB, ZERO, ONE, WORK( IPV ), IV, 241 $ M-N+J+JB-JA, J+JB-JA, JB, WORK( IPV ), IROFF+1,
|
H A D | pdgelqrv.f | 133 $ IPT, IPV, IPW, J, JJA, JV, K, MYCOL, MYROW, local 165 IPV = 1 166 IPT = IPV + NQ * DESCA( MB_ ) 188 CALL PDLACPY( 'Upper', IB, N-J+JA, A, I, J, DESCA, WORK( IPV ), 190 CALL PDLASET( 'Lower', IB, N-J+JA, ZERO, ONE, WORK( IPV ), 1, 202 $ M-I+IA, N-J+JA, IB, WORK( IPV ), 1, JV, DESCV, 220 CALL PDLACPY( 'Upper', IB, N, A, IA, JA, DESCA, WORK( IPV ), 1, 232 $ IB, WORK( IPV ), 1, ICOFF+1, DESCV, WORK( IPT ), A,
|