/dports/math/scalapack/scalapack-2.1.0/TESTING/EIG/ |
H A D | pdnepfchk.f | 149 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 D | pznepfchk.f | 154 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 D | pcnepfchk.f | 154 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 D | psnepfchk.f | 149 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 D | pdsytdrv.f | 156 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 D | pchetdrv.f | 157 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 D | pzhetdrv.f | 157 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 D | pssytdrv.f | 156 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 D | pcgecon.f | 176 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 D | pcpocon.f | 170 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 D | pspocon.f | 169 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 D | pdgecon.f | 175 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 D | pzpocon.f | 170 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 D | pzgecon.f | 176 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 D | psgecon.f | 175 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 D | pdpocon.f | 169 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 D | pdlapiv.f | 199 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 D | pclapiv.f | 199 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 D | pslapiv.f | 199 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 D | pzlapiv.f | 199 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 D | pcgebrd.f | 241 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 D | pchetrd.f | 224 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 D | pchkxmat.f | 83 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 D | pdsstrd.f90 | 233 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 D | pssstrd.f90 | 233 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 )
|