| /dports/math/scalapack/scalapack-2.1.0/SRC/ |
| H A D | pclabrd.f | 295 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
297 $ DESCA( RSRC_ ), IACOL, DESCA( CTXT_ ),
305 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
362 CALL PCLACGV( K, A, I, JA, DESCA, DESCA( M_ ) )
365 $ A, I, J+1, DESCA, DESCA( M_ ) )
366 CALL PCLACGV( K, A, I, JA, DESCA, DESCA( M_ ) )
384 $ DESCA, A, I, J+1, DESCA, DESCA( M_ ), ZERO, X,
393 $ DESCA, A, I, J+1, DESCA, DESCA( M_ ), ZERO,
412 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
447 $ DESCA, A, I, J, DESCA, DESCA( M_ ), ZERO, X,
[all …]
|
| H A D | pzlabrd.f | 295 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
297 $ DESCA( RSRC_ ), IACOL, DESCA( CTXT_ ),
305 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
362 CALL PZLACGV( K, A, I, JA, DESCA, DESCA( M_ ) )
365 $ A, I, J+1, DESCA, DESCA( M_ ) )
366 CALL PZLACGV( K, A, I, JA, DESCA, DESCA( M_ ) )
384 $ DESCA, A, I, J+1, DESCA, DESCA( M_ ), ZERO, X,
393 $ DESCA, A, I, J+1, DESCA, DESCA( M_ ), ZERO,
412 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
447 $ DESCA, A, I, J, DESCA, DESCA( M_ ), ZERO, X,
[all …]
|
| H A D | pdgetri.f | 209 IAROW = INDXG2P( IA, DESCA( MB_ ), MYROW, DESCA( RSRC_ ),
214 MP = NUMROC( DESCA( M_ ), DESCA( MB_ ), MYROW,
216 NQ = NUMROC( DESCA( N_ ), DESCA( NB_ ), MYCOL,
247 LIWMIN = NUMROC( DESCA( M_ ) + DESCA( MB_ ) * NPROW
251 $ NUMROC( DESCA( M_ ) + DESCA( MB_ ) * NPROW,
262 ELSE IF( DESCA( MB_ ).NE.DESCA( NB_ ) ) THEN
307 JN = MIN( ICEIL( JA, DESCA( NB_ ) ) * DESCA( NB_ ), JA+N-1 )
308 NN = ( ( JA+N-2 ) / DESCA( NB_ ) ) * DESCA( NB_ ) + 1
310 CALL DESCSET( DESCW, N+IROFF, DESCA( NB_ ), DESCA( MB_ ),
365 CALL DESCSET( DESCW, DESCA( M_ ) + DESCA( MB_ )*NPROW, 1,
[all …]
|
| H A D | pzgetri.f | 209 IAROW = INDXG2P( IA, DESCA( MB_ ), MYROW, DESCA( RSRC_ ),
214 MP = NUMROC( DESCA( M_ ), DESCA( MB_ ), MYROW,
216 NQ = NUMROC( DESCA( N_ ), DESCA( NB_ ), MYCOL,
247 LIWMIN = NUMROC( DESCA( M_ ) + DESCA( MB_ ) * NPROW
251 $ NUMROC( DESCA( M_ ) + DESCA( MB_ ) * NPROW,
262 ELSE IF( DESCA( MB_ ).NE.DESCA( NB_ ) ) THEN
307 JN = MIN( ICEIL( JA, DESCA( NB_ ) ) * DESCA( NB_ ), JA+N-1 )
308 NN = ( ( JA+N-2 ) / DESCA( NB_ ) ) * DESCA( NB_ ) + 1
310 CALL DESCSET( DESCW, N+IROFF, DESCA( NB_ ), DESCA( MB_ ),
361 CALL DESCSET( DESCW, DESCA( M_ ) + DESCA( MB_ )*NPROW, 1,
[all …]
|
| H A D | pcgetri.f | 209 IAROW = INDXG2P( IA, DESCA( MB_ ), MYROW, DESCA( RSRC_ ),
214 MP = NUMROC( DESCA( M_ ), DESCA( MB_ ), MYROW,
216 NQ = NUMROC( DESCA( N_ ), DESCA( NB_ ), MYCOL,
247 LIWMIN = NUMROC( DESCA( M_ ) + DESCA( MB_ ) * NPROW
251 $ NUMROC( DESCA( M_ ) + DESCA( MB_ ) * NPROW,
262 ELSE IF( DESCA( MB_ ).NE.DESCA( NB_ ) ) THEN
307 JN = MIN( ICEIL( JA, DESCA( NB_ ) ) * DESCA( NB_ ), JA+N-1 )
308 NN = ( ( JA+N-2 ) / DESCA( NB_ ) ) * DESCA( NB_ ) + 1
310 CALL DESCSET( DESCW, N+IROFF, DESCA( NB_ ), DESCA( MB_ ),
361 CALL DESCSET( DESCW, DESCA( M_ ) + DESCA( MB_ )*NPROW, 1,
[all …]
|
| H A D | psgetri.f | 209 IAROW = INDXG2P( IA, DESCA( MB_ ), MYROW, DESCA( RSRC_ ),
214 MP = NUMROC( DESCA( M_ ), DESCA( MB_ ), MYROW,
216 NQ = NUMROC( DESCA( N_ ), DESCA( NB_ ), MYCOL,
247 LIWMIN = NUMROC( DESCA( M_ ) + DESCA( MB_ ) * NPROW
251 $ NUMROC( DESCA( M_ ) + DESCA( MB_ ) * NPROW,
262 ELSE IF( DESCA( MB_ ).NE.DESCA( NB_ ) ) THEN
307 JN = MIN( ICEIL( JA, DESCA( NB_ ) ) * DESCA( NB_ ), JA+N-1 )
308 NN = ( ( JA+N-2 ) / DESCA( NB_ ) ) * DESCA( NB_ ) + 1
310 CALL DESCSET( DESCW, N+IROFF, DESCA( NB_ ), DESCA( MB_ ),
361 CALL DESCSET( DESCW, DESCA( M_ ) + DESCA( MB_ )*NPROW, 1,
[all …]
|
| H A D | pcgebd2.f | 302 ELSE IF( DESCA( MB_ ).NE.DESCA( NB_ ) ) THEN
350 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
352 $ DESCA( RSRC_ ), MYCOL, DESCA( CTXT_ ),
377 CALL PCLACGV( N-K, A, I, J+1, DESCA, DESCA( M_ ) )
379 $ MIN( J+2, JA+N-1 ), DESCA, DESCA( M_ ),
387 $ DESCA( M_ ), TAUP, A, I+1, J+1, DESCA,
390 CALL PCLACGV( N-K, A, I, J+1, DESCA, DESCA( M_ ) )
401 $ DESCA( RSRC_ ), MYCOL, DESCA( CTXT_ ),
404 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
412 CALL PCLACGV( N-K+1, A, I, J, DESCA, DESCA( M_ ) )
[all …]
|
| H A D | pzgebd2.f | 302 ELSE IF( DESCA( MB_ ).NE.DESCA( NB_ ) ) THEN
350 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
352 $ DESCA( RSRC_ ), MYCOL, DESCA( CTXT_ ),
377 CALL PZLACGV( N-K, A, I, J+1, DESCA, DESCA( M_ ) )
379 $ MIN( J+2, JA+N-1 ), DESCA, DESCA( M_ ),
387 $ DESCA( M_ ), TAUP, A, I+1, J+1, DESCA,
390 CALL PZLACGV( N-K, A, I, J+1, DESCA, DESCA( M_ ) )
401 $ DESCA( RSRC_ ), MYCOL, DESCA( CTXT_ ),
404 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
412 CALL PZLACGV( N-K+1, A, I, J, DESCA, DESCA( M_ ) )
[all …]
|
| H A D | pdlabrd.f | 292 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
294 $ DESCA( RSRC_ ), IACOL, DESCA( CTXT_ ),
302 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
304 $ DESCA( RSRC_ ), MYCOL, DESCA( CTXT_ ),
358 $ DESCA, DESCA( M_ ) )
361 $ J+1, DESCA, DESCA( M_ ) )
374 $ DESCA, A, I, J+1, DESCA, DESCA( M_ ), ZERO, X,
383 $ DESCA, A, I, J+1, DESCA, DESCA( M_ ), ZERO,
401 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
429 $ DESCA, A, I, J, DESCA, DESCA( M_ ), ZERO, X,
[all …]
|
| H A D | pslabrd.f | 292 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
294 $ DESCA( RSRC_ ), IACOL, DESCA( CTXT_ ),
302 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
304 $ DESCA( RSRC_ ), MYCOL, DESCA( CTXT_ ),
358 $ DESCA, DESCA( M_ ) )
361 $ J+1, DESCA, DESCA( M_ ) )
374 $ DESCA, A, I, J+1, DESCA, DESCA( M_ ), ZERO, X,
383 $ DESCA, A, I, J+1, DESCA, DESCA( M_ ), ZERO,
401 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
429 $ DESCA, A, I, J, DESCA, DESCA( M_ ), ZERO, X,
[all …]
|
| H A D | pdgebd2.f | 13 INTEGER DESCA( * ) local
285 IAROW = INDXG2P( IA, DESCA( MB_ ), MYROW, DESCA( RSRC_ ),
287 IACOL = INDXG2P( JA, DESCA( NB_ ), MYCOL, DESCA( CSRC_ ),
297 ELSE IF( DESCA( MB_ ).NE.DESCA( NB_ ) ) THEN
345 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
347 $ DESCA( RSRC_ ), MYCOL, DESCA( CTXT_ ),
373 $ MIN( J+2, JA+N-1 ), DESCA, DESCA( M_ ),
381 $ DESCA( M_ ), TAUP, A, I+1, J+1, DESCA,
394 $ DESCA( RSRC_ ), MYCOL, DESCA( CTXT_ ),
397 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
[all …]
|
| H A D | psgebd2.f | 13 INTEGER DESCA( * ) local
285 IAROW = INDXG2P( IA, DESCA( MB_ ), MYROW, DESCA( RSRC_ ),
287 IACOL = INDXG2P( JA, DESCA( NB_ ), MYCOL, DESCA( CSRC_ ),
297 ELSE IF( DESCA( MB_ ).NE.DESCA( NB_ ) ) THEN
345 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
347 $ DESCA( RSRC_ ), MYCOL, DESCA( CTXT_ ),
373 $ MIN( J+2, JA+N-1 ), DESCA, DESCA( M_ ),
381 $ DESCA( M_ ), TAUP, A, I+1, J+1, DESCA,
394 $ DESCA( RSRC_ ), MYCOL, DESCA( CTXT_ ),
397 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
[all …]
|
| H A D | pzlatrd.f | 263 NQ = MAX( 1, NUMROC( JA+N-1, DESCA( NB_ ), MYCOL, DESCA( CSRC_ ),
266 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
277 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
295 CALL PZLACGV( N-K, A, I, J+1, DESCA, DESCA( M_ ) )
297 $ DESCW, A, I, J+1, DESCA, DESCA( M_ ), ONE, A,
299 CALL PZLACGV( N-K, A, I, J+1, DESCA, DESCA( M_ ) )
352 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
369 CALL PZLACGV( K-1, A, I, JA, DESCA, DESCA( M_ ) )
371 $ JW, DESCW, A, I, JA, DESCA, DESCA( M_ ), ONE,
373 CALL PZLACGV( K-1, A, I, JA, DESCA, DESCA( M_ ) )
[all …]
|
| H A D | pclatrd.f | 263 NQ = MAX( 1, NUMROC( JA+N-1, DESCA( NB_ ), MYCOL, DESCA( CSRC_ ),
266 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
277 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
295 CALL PCLACGV( N-K, A, I, J+1, DESCA, DESCA( M_ ) )
297 $ DESCW, A, I, J+1, DESCA, DESCA( M_ ), ONE, A,
299 CALL PCLACGV( N-K, A, I, J+1, DESCA, DESCA( M_ ) )
352 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
369 CALL PCLACGV( K-1, A, I, JA, DESCA, DESCA( M_ ) )
371 $ JW, DESCW, A, I, JA, DESCA, DESCA( M_ ), ONE,
373 CALL PCLACGV( K-1, A, I, JA, DESCA, DESCA( M_ ) )
[all …]
|
| H A D | pclaset.f | 14 INTEGER DESCA( * ) local
157 IF( M.LE.( DESCA( MB_ ) - MOD( IA-1, DESCA( MB_ ) ) ) .OR.
158 $ N.LE.( DESCA( NB_ ) - MOD( JA-1, DESCA( NB_ ) ) ) ) THEN
163 IN = MIN( ICEIL( IA, DESCA( MB_ ) ) * DESCA( MB_ ), IA+M-1 )
165 $ DESCA )
174 JN = MIN( ICEIL( JA, DESCA( NB_ ) ) * DESCA( NB_ ), JA+N-1 )
176 $ DESCA )
182 $ J, DESCA )
186 IN = MIN( ICEIL( IA, DESCA( MB_ ) ) * DESCA( MB_ ),
189 $ JA, DESCA )
[all …]
|
| H A D | pslaset.f | 14 INTEGER DESCA( * ) local
157 IF( M.LE.( DESCA( MB_ ) - MOD( IA-1, DESCA( MB_ ) ) ) .OR.
158 $ N.LE.( DESCA( NB_ ) - MOD( JA-1, DESCA( NB_ ) ) ) ) THEN
163 IN = MIN( ICEIL( IA, DESCA( MB_ ) ) * DESCA( MB_ ), IA+M-1 )
165 $ DESCA )
174 JN = MIN( ICEIL( JA, DESCA( NB_ ) ) * DESCA( NB_ ), JA+N-1 )
176 $ DESCA )
182 $ J, DESCA )
186 IN = MIN( ICEIL( IA, DESCA( MB_ ) ) * DESCA( MB_ ),
189 $ JA, DESCA )
[all …]
|
| /dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/PTOOLS/ |
| H A D | PB_Cchkmat.c | 34 int * DESCA;
213 if( DESCA[IMB_] < 1 )
222 if( DESCA[INB_] < 1 )
231 if( DESCA[MB_] < 1 )
240 if( DESCA[NB_] < 1 )
250 if( ( DESCA[RSRC_] < -1 ) || ( DESCA[RSRC_] >= nprow ) )
261 if( ( DESCA[CSRC_] < -1 ) || ( DESCA[CSRC_] >= npcol ) )
278 if( DESCA[M_] < 0 )
333 if( ( DESCA[M_] >= 1 ) && ( DESCA[N_] >= 1 ) )
361 Mnumroc( np, DESCA[M_], 0, DESCA[IMB_], DESCA[MB_], myrow,
[all …]
|
| /dports/math/scalapack/scalapack-2.1.0/TESTING/LIN/ |
| H A D | pspotrrv.f | 155 JN = MIN( ICEIL( JA, DESCA( NB_ ) ) * DESCA( NB_ ), JA+N-1 )
156 JL = MAX( ( ( JA+N-2 ) / DESCA( NB_ ) ) * DESCA( NB_ ) + 1, JA )
157 IL = MAX( ( ( IA+N-2 ) / DESCA( MB_ ) ) * DESCA( MB_ ) + 1, IA )
158 IAROW = INDXG2P( IL, DESCA( MB_ ), MYROW, DESCA( RSRC_ ), NPROW )
159 IACOL = INDXG2P( JL, DESCA( NB_ ), MYCOL, DESCA( CSRC_ ), NPCOL )
163 CALL DESCSET( DESCW, DESCA( MB_ ), DESCA( NB_ ), DESCA( MB_ ),
164 $ DESCA( NB_ ), IAROW, IACOL, ICTXT, DESCA( MB_ ) )
180 $ J+JB, DESCA, ONE, A, IL+JB, J+JB, DESCA )
217 $ DESCA, ONE, A, IA+JB, JA+JB, DESCA )
254 $ IL+JB, J, DESCA, ONE, A, IL+JB, J+JB, DESCA )
[all …]
|
| H A D | pzpotrrv.f | 151 ICTXT = DESCA( CTXT_ )
158 JN = MIN( ICEIL( JA, DESCA( NB_ ) ) * DESCA( NB_ ), JA+N-1 )
159 JL = MAX( ( ( JA+N-2 ) / DESCA( NB_ ) ) * DESCA( NB_ ) + 1, JA )
160 IL = MAX( ( ( IA+N-2 ) / DESCA( MB_ ) ) * DESCA( MB_ ) + 1, IA )
161 IAROW = INDXG2P( IL, DESCA( MB_ ), MYROW, DESCA( RSRC_ ), NPROW )
162 IACOL = INDXG2P( JL, DESCA( NB_ ), MYCOL, DESCA( CSRC_ ), NPCOL )
166 CALL DESCSET( DESCW, DESCA( MB_ ), DESCA( NB_ ), DESCA( MB_ ),
167 $ DESCA( NB_ ), IAROW, IACOL, ICTXT, DESCA( MB_ ) )
221 $ IA, JA+JB, DESCA, ONE, A, IA+JB, JA+JB, DESCA )
258 $ IL+JB, J, DESCA, ONE, A, IL+JB, J+JB, DESCA )
[all …]
|
| H A D | pdpotrrv.f | 155 JN = MIN( ICEIL( JA, DESCA( NB_ ) ) * DESCA( NB_ ), JA+N-1 )
156 JL = MAX( ( ( JA+N-2 ) / DESCA( NB_ ) ) * DESCA( NB_ ) + 1, JA )
157 IL = MAX( ( ( IA+N-2 ) / DESCA( MB_ ) ) * DESCA( MB_ ) + 1, IA )
158 IAROW = INDXG2P( IL, DESCA( MB_ ), MYROW, DESCA( RSRC_ ), NPROW )
159 IACOL = INDXG2P( JL, DESCA( NB_ ), MYCOL, DESCA( CSRC_ ), NPCOL )
163 CALL DESCSET( DESCW, DESCA( MB_ ), DESCA( NB_ ), DESCA( MB_ ),
164 $ DESCA( NB_ ), IAROW, IACOL, ICTXT, DESCA( MB_ ) )
180 $ J+JB, DESCA, ONE, A, IL+JB, J+JB, DESCA )
217 $ DESCA, ONE, A, IA+JB, JA+JB, DESCA )
254 $ IL+JB, J, DESCA, ONE, A, IL+JB, J+JB, DESCA )
[all …]
|
| H A D | pcpotrrv.f | 151 ICTXT = DESCA( CTXT_ )
158 JN = MIN( ICEIL( JA, DESCA( NB_ ) ) * DESCA( NB_ ), JA+N-1 )
159 JL = MAX( ( ( JA+N-2 ) / DESCA( NB_ ) ) * DESCA( NB_ ) + 1, JA )
160 IL = MAX( ( ( IA+N-2 ) / DESCA( MB_ ) ) * DESCA( MB_ ) + 1, IA )
161 IAROW = INDXG2P( IL, DESCA( MB_ ), MYROW, DESCA( RSRC_ ), NPROW )
162 IACOL = INDXG2P( JL, DESCA( NB_ ), MYCOL, DESCA( CSRC_ ), NPCOL )
166 CALL DESCSET( DESCW, DESCA( MB_ ), DESCA( NB_ ), DESCA( MB_ ),
167 $ DESCA( NB_ ), IAROW, IACOL, ICTXT, DESCA( MB_ ) )
221 $ IA, JA+JB, DESCA, ONE, A, IA+JB, JA+JB, DESCA )
258 $ IL+JB, J, DESCA, ONE, A, IL+JB, J+JB, DESCA )
[all …]
|
| H A D | pdgetrrv.f | 179 IAROW = INDXG2P( IA, DESCA( MB_ ), MYROW, DESCA( RSRC_ ), NPROW )
191 IL = MAX( ( ( IA+MN-2 ) / DESCA( MB_ ) ) * DESCA( MB_ ) + 1, IA )
192 JL = MAX( ( ( JA+MN-2 ) / DESCA( NB_ ) ) * DESCA( NB_ ) + 1, JA )
193 JN = MIN( ICEIL( JA, DESCA( NB_ ) )*DESCA( NB_ ), JA+MN-1 )
197 CALL DESCSET( DESCL, IA+M-IL, DESCA( NB_ ), DESCA( MB_ ),
200 CALL DESCSET( DESCU, DESCA( MB_ ), JA+N-JL, DESCA( MB_ ),
201 $ DESCA( NB_ ), IAROW, IACOL, ICTXT, DESCA( MB_ ) )
203 CALL DESCSET( DESCIP, DESCA( M_ ) + DESCA( MB_ )*NPROW, 1,
204 $ DESCA( MB_ ), 1, DESCA( RSRC_ ), MYCOL, ICTXT,
205 $ NUMROC( DESCA( M_ ), DESCA( MB_ ), MYROW,
[all …]
|
| H A D | psgetrrv.f | 179 IAROW = INDXG2P( IA, DESCA( MB_ ), MYROW, DESCA( RSRC_ ), NPROW )
191 IL = MAX( ( ( IA+MN-2 ) / DESCA( MB_ ) ) * DESCA( MB_ ) + 1, IA )
192 JL = MAX( ( ( JA+MN-2 ) / DESCA( NB_ ) ) * DESCA( NB_ ) + 1, JA )
193 JN = MIN( ICEIL( JA, DESCA( NB_ ) )*DESCA( NB_ ), JA+MN-1 )
197 CALL DESCSET( DESCL, IA+M-IL, DESCA( NB_ ), DESCA( MB_ ),
200 CALL DESCSET( DESCU, DESCA( MB_ ), JA+N-JL, DESCA( MB_ ),
201 $ DESCA( NB_ ), IAROW, IACOL, ICTXT, DESCA( MB_ ) )
203 CALL DESCSET( DESCIP, DESCA( M_ ) + DESCA( MB_ )*NPROW, 1,
204 $ DESCA( MB_ ), 1, DESCA( RSRC_ ), MYCOL, ICTXT,
205 $ NUMROC( DESCA( M_ ), DESCA( MB_ ), MYROW,
[all …]
|
| H A D | pzgetrrv.f | 179 IAROW = INDXG2P( IA, DESCA( MB_ ), MYROW, DESCA( RSRC_ ), NPROW )
191 IL = MAX( ( ( IA+MN-2 ) / DESCA( MB_ ) ) * DESCA( MB_ ) + 1, IA )
192 JL = MAX( ( ( JA+MN-2 ) / DESCA( NB_ ) ) * DESCA( NB_ ) + 1, JA )
193 JN = MIN( ICEIL( JA, DESCA( NB_ ) )*DESCA( NB_ ), JA+MN-1 )
197 CALL DESCSET( DESCL, IA+M-IL, DESCA( NB_ ), DESCA( MB_ ),
200 CALL DESCSET( DESCU, DESCA( MB_ ), JA+N-JL, DESCA( MB_ ),
201 $ DESCA( NB_ ), IAROW, IACOL, ICTXT, DESCA( MB_ ) )
203 CALL DESCSET( DESCIP, DESCA( M_ ) + DESCA( MB_ )*NPROW, 1,
204 $ DESCA( MB_ ), 1, DESCA( RSRC_ ), MYCOL, ICTXT,
205 $ NUMROC( DESCA( M_ ), DESCA( MB_ ), MYROW,
[all …]
|
| H A D | pcgetrrv.f | 179 IAROW = INDXG2P( IA, DESCA( MB_ ), MYROW, DESCA( RSRC_ ), NPROW )
191 IL = MAX( ( ( IA+MN-2 ) / DESCA( MB_ ) ) * DESCA( MB_ ) + 1, IA )
192 JL = MAX( ( ( JA+MN-2 ) / DESCA( NB_ ) ) * DESCA( NB_ ) + 1, JA )
193 JN = MIN( ICEIL( JA, DESCA( NB_ ) )*DESCA( NB_ ), JA+MN-1 )
197 CALL DESCSET( DESCL, IA+M-IL, DESCA( NB_ ), DESCA( MB_ ),
200 CALL DESCSET( DESCU, DESCA( MB_ ), JA+N-JL, DESCA( MB_ ),
201 $ DESCA( NB_ ), IAROW, IACOL, ICTXT, DESCA( MB_ ) )
203 CALL DESCSET( DESCIP, DESCA( M_ ) + DESCA( MB_ )*NPROW, 1,
204 $ DESCA( MB_ ), 1, DESCA( RSRC_ ), MYCOL, ICTXT,
205 $ NUMROC( DESCA( M_ ), DESCA( MB_ ), MYROW,
[all …]
|