Home
last modified time | relevance | path

Searched refs:IPV (Results 1 – 25 of 217) sorted by relevance

123456789

/dports/math/scalapack/scalapack-2.1.0/TESTING/EIG/
H A Dpdsytdrv.f167 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 Dpchetdrv.f172 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 Dpzhetdrv.f172 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 Dpssytdrv.f167 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 Dpcgehdrv.f100 $ 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 Dpdgehdrv.f100 $ 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 Dpzgehdrv.f100 $ 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 Dpsgehdrv.f100 $ 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 Dpdlarfb.f312 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 Dpclarfb.f313 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 Dpslarfb.f312 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 Dpzlarfb.f313 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 Dpdtzrzrv.f133 $ 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 Dpctzrzrv.f133 $ 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 Dpstzrzrv.f133 $ 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 Dpztzrzrv.f133 $ 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 Dpcgeqlrv.f135 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 Dpsgeqlrv.f134 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 Dpzgerqrv.f134 $ 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 Dpdgeqlrv.f134 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 Dpcgerqrv.f134 $ 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 Dpdgerqrv.f133 $ 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 Dpsgerqrv.f133 $ 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 Dpzgeqlrv.f135 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 Dpdgelqrv.f133 $ 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,

123456789