Home
last modified time | relevance | path

Searched refs:CSRC_ (Results 1 – 25 of 1137) sorted by relevance

12345678910>>...46

/dports/math/scalapack/scalapack-2.1.0/TESTING/EIG/
H A Dpdnepfchk.f149 INTEGER BLOCK_CYCLIC_2D, CSRC_, CTXT_, DLEN_, DTYPE_, local
153 $ RSRC_ = 7, CSRC_ = 8, LLD_ = 9 )
224 DESCW( CSRC_ ) = MOD( DESCW( CSRC_ )+1, NPCOL )
235 DESCW( CSRC_ ) = IACOL
239 IF( MYCOL.EQ.DESCW( CSRC_ ) ) THEN
242 $ DESCA( RSRC_ ), DESCA( CSRC_ ), IASEED, IIA-1,
252 DESCW( CSRC_ ) = MOD( DESCW( CSRC_ )+1, NPCOL )
257 IF( MYCOL.EQ.DESCW( CSRC_ ) ) THEN
260 $ DESCA( RSRC_ ), DESCA( CSRC_ ), IASEED,
271 DESCW( CSRC_ ) = MOD( DESCW( CSRC_ )+1, NPCOL )
H A Dpznepfchk.f154 INTEGER BLOCK_CYCLIC_2D, CSRC_, CTXT_, DLEN_, DTYPE_, local
158 $ RSRC_ = 7, CSRC_ = 8, LLD_ = 9 )
230 DESCW( CSRC_ ) = MOD( DESCW( CSRC_ )+1, NPCOL )
241 DESCW( CSRC_ ) = IACOL
245 IF( MYCOL.EQ.DESCW( CSRC_ ) ) THEN
248 $ DESCA( RSRC_ ), DESCA( CSRC_ ), IASEED, IIA-1,
258 DESCW( CSRC_ ) = MOD( DESCW( CSRC_ )+1, NPCOL )
263 IF( MYCOL.EQ.DESCW( CSRC_ ) ) THEN
266 $ DESCA( RSRC_ ), DESCA( CSRC_ ), IASEED,
277 DESCW( CSRC_ ) = MOD( DESCW( CSRC_ )+1, NPCOL )
H A Dpcnepfchk.f154 INTEGER BLOCK_CYCLIC_2D, CSRC_, CTXT_, DLEN_, DTYPE_, local
158 $ RSRC_ = 7, CSRC_ = 8, LLD_ = 9 )
230 DESCW( CSRC_ ) = MOD( DESCW( CSRC_ )+1, NPCOL )
241 DESCW( CSRC_ ) = IACOL
245 IF( MYCOL.EQ.DESCW( CSRC_ ) ) THEN
248 $ DESCA( RSRC_ ), DESCA( CSRC_ ), IASEED, IIA-1,
258 DESCW( CSRC_ ) = MOD( DESCW( CSRC_ )+1, NPCOL )
263 IF( MYCOL.EQ.DESCW( CSRC_ ) ) THEN
266 $ DESCA( RSRC_ ), DESCA( CSRC_ ), IASEED,
277 DESCW( CSRC_ ) = MOD( DESCW( CSRC_ )+1, NPCOL )
H A Dpsnepfchk.f149 INTEGER BLOCK_CYCLIC_2D, CSRC_, CTXT_, DLEN_, DTYPE_, local
153 $ RSRC_ = 7, CSRC_ = 8, LLD_ = 9 )
224 DESCW( CSRC_ ) = MOD( DESCW( CSRC_ )+1, NPCOL )
235 DESCW( CSRC_ ) = IACOL
239 IF( MYCOL.EQ.DESCW( CSRC_ ) ) THEN
242 $ DESCA( RSRC_ ), DESCA( CSRC_ ), IASEED, IIA-1,
252 DESCW( CSRC_ ) = MOD( DESCW( CSRC_ )+1, NPCOL )
257 IF( MYCOL.EQ.DESCW( CSRC_ ) ) THEN
260 $ DESCA( RSRC_ ), DESCA( CSRC_ ), IASEED,
271 DESCW( CSRC_ ) = MOD( DESCW( CSRC_ )+1, NPCOL )
H A Dpdsytdrv.f156 INTEGER BLOCK_CYCLIC_2D, CSRC_, CTXT_, DLEN_, DTYPE_, local
160 $ RSRC_ = 7, CSRC_ = 8, LLD_ = 9 )
209 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
216 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
306 DESCV( CSRC_ ) = MOD( DESCV( CSRC_ ) + 1, NPCOL )
307 DESCT( CSRC_ ) = MOD( DESCT( CSRC_ ) + 1, NPCOL )
314 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
337 IACOL = INDXG2P( JL, NB, MYCOL, DESCA( CSRC_ ), NPCOL )
395 DESCV( CSRC_ ) = MOD( DESCV( CSRC_ ) + NPCOL - 1, NPCOL )
397 DESCT( CSRC_ ) = MOD( DESCT( CSRC_ ) + NPCOL - 1, NPCOL )
H A Dpchetdrv.f157 INTEGER BLOCK_CYCLIC_2D, CSRC_, CTXT_, DLEN_, DTYPE_,
161 $ RSRC_ = 7, CSRC_ = 8, LLD_ = 9 )
215 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
222 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
313 DESCV( CSRC_ ) = MOD( DESCV( CSRC_ ) + 1, NPCOL )
314 DESCT( CSRC_ ) = MOD( DESCT( CSRC_ ) + 1, NPCOL )
321 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
344 IACOL = INDXG2P( JL, NB, MYCOL, DESCA( CSRC_ ), NPCOL )
403 DESCV( CSRC_ ) = MOD( DESCV( CSRC_ ) + NPCOL - 1, NPCOL )
405 DESCT( CSRC_ ) = MOD( DESCT( CSRC_ ) + NPCOL - 1, NPCOL )
H A Dpzhetdrv.f157 INTEGER BLOCK_CYCLIC_2D, CSRC_, CTXT_, DLEN_, DTYPE_, local
161 $ RSRC_ = 7, CSRC_ = 8, LLD_ = 9 )
215 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
222 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
313 DESCV( CSRC_ ) = MOD( DESCV( CSRC_ ) + 1, NPCOL )
314 DESCT( CSRC_ ) = MOD( DESCT( CSRC_ ) + 1, NPCOL )
321 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
344 IACOL = INDXG2P( JL, NB, MYCOL, DESCA( CSRC_ ), NPCOL )
403 DESCV( CSRC_ ) = MOD( DESCV( CSRC_ ) + NPCOL - 1, NPCOL )
405 DESCT( CSRC_ ) = MOD( DESCT( CSRC_ ) + NPCOL - 1, NPCOL )
H A Dpssytdrv.f156 INTEGER BLOCK_CYCLIC_2D, CSRC_, CTXT_, DLEN_, DTYPE_, local
160 $ RSRC_ = 7, CSRC_ = 8, LLD_ = 9 )
209 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
216 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
306 DESCV( CSRC_ ) = MOD( DESCV( CSRC_ ) + 1, NPCOL )
307 DESCT( CSRC_ ) = MOD( DESCT( CSRC_ ) + 1, NPCOL )
314 $ DESCA( CSRC_ ), DESCA( CTXT_ ), 1 )
337 IACOL = INDXG2P( JL, NB, MYCOL, DESCA( CSRC_ ), NPCOL )
395 DESCV( CSRC_ ) = MOD( DESCV( CSRC_ ) + NPCOL - 1, NPCOL )
397 DESCT( CSRC_ ) = MOD( DESCT( CSRC_ ) + NPCOL - 1, NPCOL )
/dports/math/scalapack/scalapack-2.1.0/SRC/
H A Dpcgecon.f176 INTEGER BLOCK_CYCLIC_2D, CSRC_, CTXT_, DLEN_, DTYPE_,
180 $ RSRC_ = 7, CSRC_ = 8, LLD_ = 9 )
237 IACOL = INDXG2P( JA, DESCA( NB_ ), MYCOL, DESCA( CSRC_ ),
353 DESCX( CSRC_ ) = IACOL
357 DESCX( CSRC_ ) = MYCOL
361 DESCX( CSRC_ ) = IACOL
365 DESCX( CSRC_ ) = MYCOL
370 DESCX( CSRC_ ) = IACOL
374 DESCX( CSRC_ ) = MYCOL
378 DESCX( CSRC_ ) = IACOL
[all …]
H A Dpcpocon.f170 INTEGER BLOCK_CYCLIC_2D, CSRC_, CTXT_, DLEN_, DTYPE_, local
174 $ RSRC_ = 7, CSRC_ = 8, LLD_ = 9 )
231 IACOL = INDXG2P( JA, DESCA( NB_ ), MYCOL, DESCA( CSRC_ ),
342 DESCX( CSRC_ ) = IACOL
347 DESCX( CSRC_ ) = MYCOL
352 DESCX( CSRC_ ) = IACOL
356 DESCX( CSRC_ ) = MYCOL
361 DESCX( CSRC_ ) = IACOL
365 DESCX( CSRC_ ) = MYCOL
370 DESCX( CSRC_ ) = IACOL
[all …]
H A Dpspocon.f169 INTEGER BLOCK_CYCLIC_2D, CSRC_, CTXT_, DLEN_, DTYPE_, local
173 $ RSRC_ = 7, CSRC_ = 8, LLD_ = 9 )
224 IACOL = INDXG2P( JA, DESCA( NB_ ), MYCOL, DESCA( CSRC_ ),
336 DESCX( CSRC_ ) = IACOL
340 DESCX( CSRC_ ) = MYCOL
345 DESCX( CSRC_ ) = IACOL
349 DESCX( CSRC_ ) = MYCOL
354 DESCX( CSRC_ ) = IACOL
358 DESCX( CSRC_ ) = MYCOL
363 DESCX( CSRC_ ) = IACOL
[all …]
H A Dpdgecon.f175 INTEGER BLOCK_CYCLIC_2D, CSRC_, CTXT_, DLEN_, DTYPE_, local
179 $ RSRC_ = 7, CSRC_ = 8, LLD_ = 9 )
229 IACOL = INDXG2P( JA, DESCA( NB_ ), MYCOL, DESCA( CSRC_ ),
345 DESCX( CSRC_ ) = IACOL
349 DESCX( CSRC_ ) = MYCOL
353 DESCX( CSRC_ ) = IACOL
357 DESCX( CSRC_ ) = MYCOL
362 DESCX( CSRC_ ) = IACOL
366 DESCX( CSRC_ ) = MYCOL
370 DESCX( CSRC_ ) = IACOL
[all …]
H A Dpzpocon.f170 INTEGER BLOCK_CYCLIC_2D, CSRC_, CTXT_, DLEN_, DTYPE_,
174 $ RSRC_ = 7, CSRC_ = 8, LLD_ = 9 )
231 IACOL = INDXG2P( JA, DESCA( NB_ ), MYCOL, DESCA( CSRC_ ),
342 DESCX( CSRC_ ) = IACOL
347 DESCX( CSRC_ ) = MYCOL
352 DESCX( CSRC_ ) = IACOL
356 DESCX( CSRC_ ) = MYCOL
361 DESCX( CSRC_ ) = IACOL
365 DESCX( CSRC_ ) = MYCOL
370 DESCX( CSRC_ ) = IACOL
[all …]
H A Dpzgecon.f176 INTEGER BLOCK_CYCLIC_2D, CSRC_, CTXT_, DLEN_, DTYPE_, local
180 $ RSRC_ = 7, CSRC_ = 8, LLD_ = 9 )
237 IACOL = INDXG2P( JA, DESCA( NB_ ), MYCOL, DESCA( CSRC_ ),
353 DESCX( CSRC_ ) = IACOL
357 DESCX( CSRC_ ) = MYCOL
361 DESCX( CSRC_ ) = IACOL
365 DESCX( CSRC_ ) = MYCOL
370 DESCX( CSRC_ ) = IACOL
374 DESCX( CSRC_ ) = MYCOL
378 DESCX( CSRC_ ) = IACOL
[all …]
H A Dpsgecon.f175 INTEGER BLOCK_CYCLIC_2D, CSRC_, CTXT_, DLEN_, DTYPE_, local
179 $ RSRC_ = 7, CSRC_ = 8, LLD_ = 9 )
229 IACOL = INDXG2P( JA, DESCA( NB_ ), MYCOL, DESCA( CSRC_ ),
345 DESCX( CSRC_ ) = IACOL
349 DESCX( CSRC_ ) = MYCOL
353 DESCX( CSRC_ ) = IACOL
357 DESCX( CSRC_ ) = MYCOL
362 DESCX( CSRC_ ) = IACOL
366 DESCX( CSRC_ ) = MYCOL
370 DESCX( CSRC_ ) = IACOL
[all …]
H A Dpdpocon.f169 INTEGER BLOCK_CYCLIC_2D, CSRC_, CTXT_, DLEN_, DTYPE_, local
173 $ RSRC_ = 7, CSRC_ = 8, LLD_ = 9 )
224 IACOL = INDXG2P( JA, DESCA( NB_ ), MYCOL, DESCA( CSRC_ ),
336 DESCX( CSRC_ ) = IACOL
340 DESCX( CSRC_ ) = MYCOL
345 DESCX( CSRC_ ) = IACOL
349 DESCX( CSRC_ ) = MYCOL
354 DESCX( CSRC_ ) = IACOL
358 DESCX( CSRC_ ) = MYCOL
363 DESCX( CSRC_ ) = IACOL
[all …]
H A Dpdlapiv.f199 INTEGER BLOCK_CYCLIC_2D, CSRC_, CTXT_, DLEN_, DTYPE_,
203 $ RSRC_ = 7, CSRC_ = 8, LLD_ = 9 )
259 DESCPT(CSRC_) = MYCOL
264 $ DESCIP(CSRC_), NPCOL )
318 DESCPT(CSRC_) = INDXG2P( JA, DESCA(NB_), JA, DESCA(CSRC_),
324 ITMP = NUMROC( N+JPT, DESCPT(NB_), MYCOL, DESCPT(CSRC_),
328 $ 0, 0, DESCPT(CSRC_), IWORK(ITMP+1) )
H A Dpclapiv.f199 INTEGER BLOCK_CYCLIC_2D, CSRC_, CTXT_, DLEN_, DTYPE_, local
203 $ RSRC_ = 7, CSRC_ = 8, LLD_ = 9 )
259 DESCPT(CSRC_) = MYCOL
264 $ DESCIP(CSRC_), NPCOL )
318 DESCPT(CSRC_) = INDXG2P( JA, DESCA(NB_), JA, DESCA(CSRC_),
324 ITMP = NUMROC( N+JPT, DESCPT(NB_), MYCOL, DESCPT(CSRC_),
328 $ 0, 0, DESCPT(CSRC_), IWORK(ITMP+1) )
H A Dpslapiv.f199 INTEGER BLOCK_CYCLIC_2D, CSRC_, CTXT_, DLEN_, DTYPE_, local
203 $ RSRC_ = 7, CSRC_ = 8, LLD_ = 9 )
259 DESCPT(CSRC_) = MYCOL
264 $ DESCIP(CSRC_), NPCOL )
318 DESCPT(CSRC_) = INDXG2P( JA, DESCA(NB_), JA, DESCA(CSRC_),
324 ITMP = NUMROC( N+JPT, DESCPT(NB_), MYCOL, DESCPT(CSRC_),
328 $ 0, 0, DESCPT(CSRC_), IWORK(ITMP+1) )
H A Dpzlapiv.f199 INTEGER BLOCK_CYCLIC_2D, CSRC_, CTXT_, DLEN_, DTYPE_,
203 $ RSRC_ = 7, CSRC_ = 8, LLD_ = 9 )
259 DESCPT(CSRC_) = MYCOL
264 $ DESCIP(CSRC_), NPCOL )
318 DESCPT(CSRC_) = INDXG2P( JA, DESCA(NB_), JA, DESCA(CSRC_),
324 ITMP = NUMROC( N+JPT, DESCPT(NB_), MYCOL, DESCPT(CSRC_),
328 $ 0, 0, DESCPT(CSRC_), IWORK(ITMP+1) )
H A Dpcgebrd.f241 INTEGER BLOCK_CYCLIC_2D, CSRC_, CTXT_, DLEN_, DTYPE_, local
245 $ RSRC_ = 7, CSRC_ = 8, LLD_ = 9 )
290 IACOL = INDXG2P( JA, NB, MYCOL, DESCA( CSRC_ ), NPCOL )
344 NQ = NUMROC( N+JA-1, NB, MYCOL, DESCA( CSRC_ ), NPCOL )
381 JS = MIN( INDXG2L( J+JB-1, NB, 0, DESCA( CSRC_ ), NPCOL ),
393 DESCWX( CSRC_ ) = MOD( DESCWX( CSRC_ ) + 1, NPCOL )
396 DESCWY( CSRC_ ) = MOD( DESCWY( CSRC_ ) + 1, NPCOL )
H A Dpchetrd.f224 INTEGER BLOCK_CYCLIC_2D, CSRC_, CTXT_, DLEN_, DTYPE_, local
228 $ RSRC_ = 7, CSRC_ = 8, LLD_ = 9 )
277 IACOL = INDXG2P( JA, NB, MYCOL, DESCA( CSRC_ ), NPCOL )
279 NQ = MAX( 1, NUMROC( N+JA-1, NB, MYCOL, DESCA( CSRC_ ),
338 $ NB, MYCOL, DESCA( CSRC_ ), NPCOL ), ICTXT,
366 DESCW( CSRC_ ) = MOD( DESCW( CSRC_ ) + NPCOL - 1, NPCOL )
409 DESCW( CSRC_ ) = MOD( DESCW( CSRC_ ) + 1, NPCOL )
/dports/math/scalapack/scalapack-2.1.0/TOOLS/
H A Dpchkxmat.f83 INTEGER BLOCK_CYCLIC_2D, CSRC_, CTXT_, DLEN_, DTYPE_, local
87 $ RSRC_ = 7, CSRC_ = 8, LLD_ = 9 )
140 IWORK( 11, 1 ) = DESCA( CSRC_ )
141 IWORK( 11, 2 ) = DESCPOS + CSRC_
285 INTEGER BLOCK_CYCLIC_2D, CSRC_, CTXT_, DLEN_, DTYPE_, local
289 $ RSRC_ = 7, CSRC_ = 8, LLD_ = 9 )
345 IWORK( 11, 1 ) = DESCA( CSRC_ )
346 IWORK( 11, 2 ) = DESCPOS + CSRC_
370 IWORK( 22, 1 ) = DESCB( CSRC_ )
371 IWORK( 22, 2 ) = DESCPOS + CSRC_
/dports/science/berkeleygw/BGW-2.0.0/BSE/SSEIG/
H A Dpdsstrd.f90233 RSRC_ = 7, CSRC_ = 8, LLD_ = 9 )
280 IACOL = INDXG2P( JA, NB, MYCOL, DESCA( CSRC_ ), NPCOL )
283 NQ = MAX( 1, NUMROC( N+JA-1, NB, MYCOL, DESCA( CSRC_ ), &
341 NB, MYCOL, DESCA( CSRC_ ), NPCOL ), ICTXT, MAX( 1, NP ) )
367 DESCW( CSRC_ ) = MOD( DESCW( CSRC_ ) + NPCOL - 1, NPCOL )
410 DESCW( CSRC_ ) = MOD( DESCW( CSRC_ ) + 1, NPCOL )
H A Dpssstrd.f90233 RSRC_ = 7, CSRC_ = 8, LLD_ = 9 )
280 IACOL = INDXG2P( JA, NB, MYCOL, DESCA( CSRC_ ), NPCOL )
283 NQ = MAX( 1, NUMROC( N+JA-1, NB, MYCOL, DESCA( CSRC_ ), &
341 NB, MYCOL, DESCA( CSRC_ ), NPCOL ), ICTXT, MAX( 1, NP ) )
367 DESCW( CSRC_ ) = MOD( DESCW( CSRC_ ) + NPCOL - 1, NPCOL )
410 DESCW( CSRC_ ) = MOD( DESCW( CSRC_ ) + 1, NPCOL )

12345678910>>...46