/dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/PBBLAS/ |
H A D | pbctran.f | 235 ELSE IF( ICCOL.LT.-1 .OR. ICCOL.GE.NPCOL .OR. 446 JCCOL = ICCOL 447 IF( ICCOL.EQ.-1 ) JCCOL = IACOL 457 $ ( ICCOL.EQ.MYCOL .OR. ICCOL.EQ.-1 ) ) THEN 512 IF( ICCOL.EQ.-1 ) THEN 531 IF( LCMP.EQ.1.AND.(ICCOL.EQ.-1.OR.ICCOL.EQ.MYCOL) ) THEN 555 IF( ICCOL.EQ.-1 ) THEN 571 IF( MYCOL.NE.ICCOL ) 573 ELSE IF( MYCOL.EQ.ICCOL ) THEN 586 IF( MYCOL.NE.ICCOL ) [all …]
|
H A D | pbdtran.f | 235 ELSE IF( ICCOL.LT.-1 .OR. ICCOL.GE.NPCOL .OR. 446 JCCOL = ICCOL 447 IF( ICCOL.EQ.-1 ) JCCOL = IACOL 457 $ ( ICCOL.EQ.MYCOL .OR. ICCOL.EQ.-1 ) ) THEN 512 IF( ICCOL.EQ.-1 ) THEN 531 IF( LCMP.EQ.1.AND.(ICCOL.EQ.-1.OR.ICCOL.EQ.MYCOL) ) THEN 555 IF( ICCOL.EQ.-1 ) THEN 571 IF( MYCOL.NE.ICCOL ) 573 ELSE IF( MYCOL.EQ.ICCOL ) THEN 586 IF( MYCOL.NE.ICCOL ) [all …]
|
H A D | pbstran.f | 234 ELSE IF( ICCOL.LT.-1 .OR. ICCOL.GE.NPCOL .OR. 445 JCCOL = ICCOL 446 IF( ICCOL.EQ.-1 ) JCCOL = IACOL 456 $ ( ICCOL.EQ.MYCOL .OR. ICCOL.EQ.-1 ) ) THEN 511 IF( ICCOL.EQ.-1 ) THEN 530 IF( LCMP.EQ.1.AND.(ICCOL.EQ.-1.OR.ICCOL.EQ.MYCOL) ) THEN 554 IF( ICCOL.EQ.-1 ) THEN 570 IF( MYCOL.NE.ICCOL ) 572 ELSE IF( MYCOL.EQ.ICCOL ) THEN 585 IF( MYCOL.NE.ICCOL ) [all …]
|
H A D | pbztran.f | 235 ELSE IF( ICCOL.LT.-1 .OR. ICCOL.GE.NPCOL .OR. 446 JCCOL = ICCOL 447 IF( ICCOL.EQ.-1 ) JCCOL = IACOL 457 $ ( ICCOL.EQ.MYCOL .OR. ICCOL.EQ.-1 ) ) THEN 512 IF( ICCOL.EQ.-1 ) THEN 531 IF( LCMP.EQ.1.AND.(ICCOL.EQ.-1.OR.ICCOL.EQ.MYCOL) ) THEN 555 IF( ICCOL.EQ.-1 ) THEN 571 IF( MYCOL.NE.ICCOL ) 573 ELSE IF( MYCOL.EQ.ICCOL ) THEN 586 IF( MYCOL.NE.ICCOL ) [all …]
|
/dports/math/scalapack/scalapack-2.1.0/SRC/ |
H A D | pclarfc.f | 276 $ ICROW, ICCOL ) 298 IF( MYCOL.EQ.ICCOL ) 333 IF( MYCOL.EQ.ICCOL ) THEN 377 IF( IVCOL.EQ.ICCOL ) THEN 381 IF( MYCOL.EQ.ICCOL ) THEN 418 $ ICCOL ) 420 ELSE IF( MYCOL.EQ.ICCOL ) THEN 636 $ ICCOL ) 690 $ ICCOL ) 744 $ ICCOL ) [all …]
|
H A D | pdlarf.f | 275 $ ICROW, ICCOL ) 297 IF( MYCOL.EQ.ICCOL ) 332 IF( MYCOL.EQ.ICCOL ) THEN 375 IF( IVCOL.EQ.ICCOL ) THEN 379 IF( MYCOL.EQ.ICCOL ) THEN 416 $ ICCOL ) 418 ELSE IF( MYCOL.EQ.ICCOL ) THEN 638 $ ICCOL ) 691 $ ICCOL ) 746 $ ICCOL ) [all …]
|
H A D | pslarf.f | 275 $ ICROW, ICCOL ) 297 IF( MYCOL.EQ.ICCOL ) 332 IF( MYCOL.EQ.ICCOL ) THEN 375 IF( IVCOL.EQ.ICCOL ) THEN 379 IF( MYCOL.EQ.ICCOL ) THEN 416 $ ICCOL ) 418 ELSE IF( MYCOL.EQ.ICCOL ) THEN 638 $ ICCOL ) 691 $ ICCOL ) 746 $ ICCOL ) [all …]
|
H A D | pclarf.f | 276 $ ICROW, ICCOL ) 298 IF( MYCOL.EQ.ICCOL ) 333 IF( MYCOL.EQ.ICCOL ) THEN 376 IF( IVCOL.EQ.ICCOL ) THEN 380 IF( MYCOL.EQ.ICCOL ) THEN 417 $ ICCOL ) 419 ELSE IF( MYCOL.EQ.ICCOL ) THEN 640 $ ICCOL ) 693 $ ICCOL ) 748 $ ICCOL ) [all …]
|
H A D | pzlarf.f | 276 $ ICROW, ICCOL ) 298 IF( MYCOL.EQ.ICCOL ) 333 IF( MYCOL.EQ.ICCOL ) THEN 376 IF( IVCOL.EQ.ICCOL ) THEN 380 IF( MYCOL.EQ.ICCOL ) THEN 417 $ ICCOL ) 419 ELSE IF( MYCOL.EQ.ICCOL ) THEN 640 $ ICCOL ) 693 $ ICCOL ) 748 $ ICCOL ) [all …]
|
H A D | pzlarfc.f | 276 $ ICROW, ICCOL ) 298 IF( MYCOL.EQ.ICCOL ) 333 IF( MYCOL.EQ.ICCOL ) THEN 377 IF( IVCOL.EQ.ICCOL ) THEN 381 IF( MYCOL.EQ.ICCOL ) THEN 418 $ ICCOL ) 420 ELSE IF( MYCOL.EQ.ICCOL ) THEN 636 $ ICCOL ) 690 $ ICCOL ) 744 $ ICCOL ) [all …]
|
H A D | pdorm2l.f | 220 INTEGER IACOL, IAROW, ICCOL, ICOFFC, ICROW, ICTXT, ICC, 274 ICCOL = INDXG2P( JC, DESCC( NB_ ), MYCOL, DESCC( CSRC_ ), 277 NQC0 = NUMROC( N+ICOFFC, DESCC( NB_ ), MYCOL, ICCOL, NPCOL ) 331 $ JCC, ICROW, ICCOL ) 355 IF( IACOL.NE.ICCOL ) THEN 357 $ CALL DGESD2D( ICTXT, 1, 1, AJJ, 1, MYROW, ICCOL ) 358 IF( MYCOL.EQ.ICCOL ) 362 IF( MYCOL.EQ.ICCOL ) THEN
|
H A D | pdorm2r.f | 220 INTEGER IACOL, IAROW, ICCOL, ICOFFC, ICROW, ICTXT, ICC, 274 ICCOL = INDXG2P( JC, DESCC( NB_ ), MYCOL, DESCC( CSRC_ ), 277 NQC0 = NUMROC( N+ICOFFC, DESCC( NB_ ), MYCOL, ICCOL, NPCOL ) 332 $ JCC, ICROW, ICCOL ) 356 IF( IACOL.NE.ICCOL ) THEN 358 $ CALL DGESD2D( ICTXT, 1, 1, AJJ, 1, MYROW, ICCOL ) 359 IF( MYCOL.EQ.ICCOL ) 363 IF( MYCOL.EQ.ICCOL ) THEN
|
H A D | psorm2l.f | 220 INTEGER IACOL, IAROW, ICCOL, ICOFFC, ICROW, ICTXT, ICC, local 274 ICCOL = INDXG2P( JC, DESCC( NB_ ), MYCOL, DESCC( CSRC_ ), 277 NQC0 = NUMROC( N+ICOFFC, DESCC( NB_ ), MYCOL, ICCOL, NPCOL ) 331 $ JCC, ICROW, ICCOL ) 355 IF( IACOL.NE.ICCOL ) THEN 357 $ CALL SGESD2D( ICTXT, 1, 1, AJJ, 1, MYROW, ICCOL ) 358 IF( MYCOL.EQ.ICCOL ) 362 IF( MYCOL.EQ.ICCOL ) THEN
|
H A D | psorm2r.f | 220 INTEGER IACOL, IAROW, ICCOL, ICOFFC, ICROW, ICTXT, ICC, local 274 ICCOL = INDXG2P( JC, DESCC( NB_ ), MYCOL, DESCC( CSRC_ ), 277 NQC0 = NUMROC( N+ICOFFC, DESCC( NB_ ), MYCOL, ICCOL, NPCOL ) 332 $ JCC, ICROW, ICCOL ) 356 IF( IACOL.NE.ICCOL ) THEN 358 $ CALL SGESD2D( ICTXT, 1, 1, AJJ, 1, MYROW, ICCOL ) 359 IF( MYCOL.EQ.ICCOL ) 363 IF( MYCOL.EQ.ICCOL ) THEN
|
H A D | pzunm2l.f | 220 INTEGER IACOL, IAROW, ICCOL, ICOFFC, ICROW, ICTXT, ICC, 274 ICCOL = INDXG2P( JC, DESCC( NB_ ), MYCOL, DESCC( CSRC_ ), 277 NQC0 = NUMROC( N+ICOFFC, DESCC( NB_ ), MYCOL, ICCOL, NPCOL ) 331 $ JCC, ICROW, ICCOL ) 363 IF( IACOL.NE.ICCOL ) THEN 365 $ CALL ZGESD2D( ICTXT, 1, 1, AJJ, 1, MYROW, ICCOL ) 366 IF( MYCOL.EQ.ICCOL ) 370 IF( MYCOL.EQ.ICCOL ) THEN
|
H A D | pzunm2r.f | 220 INTEGER IACOL, IAROW, ICCOL, ICOFFC, ICROW, ICTXT, ICC, local 274 ICCOL = INDXG2P( JC, DESCC( NB_ ), MYCOL, DESCC( CSRC_ ), 277 NQC0 = NUMROC( N+ICOFFC, DESCC( NB_ ), MYCOL, ICCOL, NPCOL ) 332 $ JCC, ICROW, ICCOL ) 364 IF( IACOL.NE.ICCOL ) THEN 366 $ CALL ZGESD2D( ICTXT, 1, 1, AJJ, 1, MYROW, ICCOL ) 367 IF( MYCOL.EQ.ICCOL ) 371 IF( MYCOL.EQ.ICCOL ) THEN
|
H A D | pcunm2l.f | 220 INTEGER IACOL, IAROW, ICCOL, ICOFFC, ICROW, ICTXT, ICC, 274 ICCOL = INDXG2P( JC, DESCC( NB_ ), MYCOL, DESCC( CSRC_ ), 277 NQC0 = NUMROC( N+ICOFFC, DESCC( NB_ ), MYCOL, ICCOL, NPCOL ) 331 $ JCC, ICROW, ICCOL ) 363 IF( IACOL.NE.ICCOL ) THEN 365 $ CALL CGESD2D( ICTXT, 1, 1, AJJ, 1, MYROW, ICCOL ) 366 IF( MYCOL.EQ.ICCOL ) 370 IF( MYCOL.EQ.ICCOL ) THEN
|
H A D | pcunm2r.f | 220 INTEGER IACOL, IAROW, ICCOL, ICOFFC, ICROW, ICTXT, ICC, 274 ICCOL = INDXG2P( JC, DESCC( NB_ ), MYCOL, DESCC( CSRC_ ), 277 NQC0 = NUMROC( N+ICOFFC, DESCC( NB_ ), MYCOL, ICCOL, NPCOL ) 332 $ JCC, ICROW, ICCOL ) 364 IF( IACOL.NE.ICCOL ) THEN 366 $ CALL CGESD2D( ICTXT, 1, 1, AJJ, 1, MYROW, ICCOL ) 367 IF( MYCOL.EQ.ICCOL ) 371 IF( MYCOL.EQ.ICCOL ) THEN
|
H A D | psorml2.f | 220 INTEGER I, I1, I2, I3, IACOL, ICC, ICCOL, ICOFFA, local 272 ICCOL = INDXG2P( JC, DESCC( NB_ ), MYCOL, DESCC( CSRC_ ), 275 NQC0 = NUMROC( N+ICOFFC, DESCC( NB_ ), MYCOL, ICCOL, NPCOL ) 284 NQC0 = NUMROC( N+ICOFFC, DESCC( NB_ ), MYCOL, ICCOL, 305 ELSE IF( .NOT.LEFT .AND. IACOL.NE.ICCOL ) THEN
|
H A D | pdorml2.f | 220 INTEGER I, I1, I2, I3, IACOL, ICC, ICCOL, ICOFFA, 272 ICCOL = INDXG2P( JC, DESCC( NB_ ), MYCOL, DESCC( CSRC_ ), 275 NQC0 = NUMROC( N+ICOFFC, DESCC( NB_ ), MYCOL, ICCOL, NPCOL ) 284 NQC0 = NUMROC( N+ICOFFC, DESCC( NB_ ), MYCOL, ICCOL, 305 ELSE IF( .NOT.LEFT .AND. IACOL.NE.ICCOL ) THEN
|
H A D | pcunml2.f | 220 INTEGER I, I1, I2, I3, IACOL, ICC, ICCOL, ICOFFA, 273 ICCOL = INDXG2P( JC, DESCC( NB_ ), MYCOL, DESCC( CSRC_ ), 276 NQC0 = NUMROC( N+ICOFFC, DESCC( NB_ ), MYCOL, ICCOL, NPCOL ) 285 NQC0 = NUMROC( N+ICOFFC, DESCC( NB_ ), MYCOL, ICCOL, 306 ELSE IF( .NOT.LEFT .AND. IACOL.NE.ICCOL ) THEN
|
H A D | pzunml2.f | 220 INTEGER I, I1, I2, I3, IACOL, ICC, ICCOL, ICOFFA, local 273 ICCOL = INDXG2P( JC, DESCC( NB_ ), MYCOL, DESCC( CSRC_ ), 276 NQC0 = NUMROC( N+ICOFFC, DESCC( NB_ ), MYCOL, ICCOL, NPCOL ) 285 NQC0 = NUMROC( N+ICOFFC, DESCC( NB_ ), MYCOL, ICCOL, 306 ELSE IF( .NOT.LEFT .AND. IACOL.NE.ICCOL ) THEN
|
H A D | pdormr3.f | 223 INTEGER I, I1, I2, I3, IACOL, ICC, ICCOL, ICOFFA, local 274 ICCOL = INDXG2P( JC, DESCC( NB_ ), MYCOL, DESCC( CSRC_ ), 277 NQC0 = NUMROC( N+ICOFFC, DESCC( NB_ ), MYCOL, ICCOL, NPCOL ) 305 ELSE IF( .NOT.LEFT .AND. IACOL.NE.ICCOL ) THEN
|
H A D | psormr2.f | 220 INTEGER I, I1, I2, I3, IACOL, ICCOL, ICOFFA, ICOFFC, local 271 ICCOL = INDXG2P( JC, DESCC( NB_ ), MYCOL, DESCC( CSRC_ ), 274 NQC0 = NUMROC( N+ICOFFC, DESCC( NB_ ), MYCOL, ICCOL, NPCOL ) 300 ELSE IF( .NOT.LEFT .AND. IACOL.NE.ICCOL ) THEN
|
H A D | psormr3.f | 223 INTEGER I, I1, I2, I3, IACOL, ICC, ICCOL, ICOFFA, local 274 ICCOL = INDXG2P( JC, DESCC( NB_ ), MYCOL, DESCC( CSRC_ ), 277 NQC0 = NUMROC( N+ICOFFC, DESCC( NB_ ), MYCOL, ICCOL, NPCOL ) 305 ELSE IF( .NOT.LEFT .AND. IACOL.NE.ICCOL ) THEN
|