/dports/math/scalapack/scalapack-2.1.0/SRC/ |
H A D | pctrrfs.f | 259 INTEGER IAROW, IXBCOL, IXBROW, IXCOL, IXROW, ICOFFA, local 321 $ IIXB, JJXB, IXBROW, IXBCOL ) 351 ELSE IF( IROFFA.NE.IROFFB .OR. IAROW.NE.IXBROW ) THEN 357 ELSE IF( IROFFX.NE.0 .OR. IXBROW.NE.IXROW ) THEN 440 NP0 = NUMROC( N+IROFFB, DESCB( MB_ ), MYROW, IXBROW, NPROW ) 441 CALL DESCSET( DESCW, N+IROFFB, 1, DESCA( MB_ ), 1, IXBROW, IXBCOL, 446 IF( MYROW.EQ.IXBROW ) THEN
|
H A D | pdtrrfs.f | 258 INTEGER IAROW, IXBCOL, IXBROW, IXCOL, IXROW, ICOFFA, local 313 $ IIXB, JJXB, IXBROW, IXBCOL ) 343 ELSE IF( IROFFA.NE.IROFFB .OR. IAROW.NE.IXBROW ) THEN 349 ELSE IF( IROFFX.NE.0 .OR. IXBROW.NE.IXROW ) THEN 430 NP0 = NUMROC( N+IROFFB, DESCB( MB_ ), MYROW, IXBROW, NPROW ) 431 CALL DESCSET( DESCW, N+IROFFB, 1, DESCA( MB_ ), 1, IXBROW, IXBCOL, 436 IF( MYROW.EQ.IXBROW ) THEN
|
H A D | pztrrfs.f | 259 INTEGER IAROW, IXBCOL, IXBROW, IXCOL, IXROW, ICOFFA, local 321 $ IIXB, JJXB, IXBROW, IXBCOL ) 351 ELSE IF( IROFFA.NE.IROFFB .OR. IAROW.NE.IXBROW ) THEN 357 ELSE IF( IROFFX.NE.0 .OR. IXBROW.NE.IXROW ) THEN 440 NP0 = NUMROC( N+IROFFB, DESCB( MB_ ), MYROW, IXBROW, NPROW ) 441 CALL DESCSET( DESCW, N+IROFFB, 1, DESCA( MB_ ), 1, IXBROW, IXBCOL, 446 IF( MYROW.EQ.IXBROW ) THEN
|
H A D | pstrrfs.f | 258 INTEGER IAROW, IXBCOL, IXBROW, IXCOL, IXROW, ICOFFA, local 313 $ IIXB, JJXB, IXBROW, IXBCOL ) 343 ELSE IF( IROFFA.NE.IROFFB .OR. IAROW.NE.IXBROW ) THEN 349 ELSE IF( IROFFX.NE.0 .OR. IXBROW.NE.IXROW ) THEN 430 NP0 = NUMROC( N+IROFFB, DESCB( MB_ ), MYROW, IXBROW, NPROW ) 431 CALL DESCSET( DESCW, N+IROFFB, 1, DESCA( MB_ ), 1, IXBROW, IXBCOL, 436 IF( MYROW.EQ.IXBROW ) THEN
|
H A D | pdporfs.f | 274 $ IXBROW, IXCOL, IXROW, ICOFFA, ICOFFAF, ICOFFB, local 336 $ IIXB, JJXB, IXBROW, IXBCOL ) 371 ELSE IF( IROFFA.NE.IROFFB .OR. IAROW.NE.IXBROW ) THEN 379 ELSE IF( IROFFX.NE.0 .OR. IXBROW.NE.IXROW ) THEN 442 NP0 = NUMROC( N+IROFFB, DESCB( MB_ ), MYROW, IXBROW, NPROW ) 443 CALL DESCSET( DESCW, N+IROFFB, 1, DESCA( MB_ ), 1, IXBROW, IXBCOL, 448 IF( MYROW.EQ.IXBROW ) THEN
|
H A D | pcporfs.f | 275 $ IXBROW, IXCOL, IXROW, ICOFFA, ICOFFAF, ICOFFB, local 344 $ IIXB, JJXB, IXBROW, IXBCOL ) 379 ELSE IF( IROFFA.NE.IROFFB .OR. IAROW.NE.IXBROW ) THEN 387 ELSE IF( IROFFX.NE.0 .OR. IXBROW.NE.IXROW ) THEN 450 NP0 = NUMROC( N+IROFFB, DESCB( MB_ ), MYROW, IXBROW, NPROW ) 451 CALL DESCSET( DESCW, N+IROFFB, 1, DESCA( MB_ ), 1, IXBROW, IXBCOL, 456 IF( MYROW.EQ.IXBROW ) THEN
|
H A D | psporfs.f | 274 $ IXBROW, IXCOL, IXROW, ICOFFA, ICOFFAF, ICOFFB, local 336 $ IIXB, JJXB, IXBROW, IXBCOL ) 371 ELSE IF( IROFFA.NE.IROFFB .OR. IAROW.NE.IXBROW ) THEN 379 ELSE IF( IROFFX.NE.0 .OR. IXBROW.NE.IXROW ) THEN 442 NP0 = NUMROC( N+IROFFB, DESCB( MB_ ), MYROW, IXBROW, NPROW ) 443 CALL DESCSET( DESCW, N+IROFFB, 1, DESCA( MB_ ), 1, IXBROW, IXBCOL, 448 IF( MYROW.EQ.IXBROW ) THEN
|
H A D | pcgerfs.f | 277 $ IXBROW, IXCOL, IXROW, ICOFFA, ICOFFAF, ICOFFB, local 347 $ IIXB, JJXB, IXBROW, IXBCOL ) 383 ELSE IF( IROFFA.NE.IROFFB .OR. IAROW.NE.IXBROW ) THEN 391 ELSE IF( IROFFX.NE.0 .OR. IXBROW.NE.IXROW ) THEN 464 NP0 = NUMROC( N+IROFFB, DESCB( MB_ ), MYROW, IXBROW, NPROW ) 465 CALL DESCSET( DESCW, N+IROFFB, 1, DESCA( MB_ ), 1, IXBROW, IXBCOL, 470 IF( MYROW.EQ.IXBROW ) THEN
|
H A D | pdgerfs.f | 277 $ IXBROW, IXCOL, IXROW, ICOFFA, ICOFFAF, ICOFFB, 340 $ IIXB, JJXB, IXBROW, IXBCOL ) 376 ELSE IF( IROFFA.NE.IROFFB .OR. IAROW.NE.IXBROW ) THEN 384 ELSE IF( IROFFX.NE.0 .OR. IXBROW.NE.IXROW ) THEN 455 NP0 = NUMROC( N+IROFFB, DESCB( MB_ ), MYROW, IXBROW, NPROW ) 456 CALL DESCSET( DESCW, N+IROFFB, 1, DESCA( MB_ ), 1, IXBROW, IXBCOL, 461 IF( MYROW.EQ.IXBROW ) THEN
|
H A D | psgerfs.f | 277 $ IXBROW, IXCOL, IXROW, ICOFFA, ICOFFAF, ICOFFB, local 340 $ IIXB, JJXB, IXBROW, IXBCOL ) 376 ELSE IF( IROFFA.NE.IROFFB .OR. IAROW.NE.IXBROW ) THEN 384 ELSE IF( IROFFX.NE.0 .OR. IXBROW.NE.IXROW ) THEN 455 NP0 = NUMROC( N+IROFFB, DESCB( MB_ ), MYROW, IXBROW, NPROW ) 456 CALL DESCSET( DESCW, N+IROFFB, 1, DESCA( MB_ ), 1, IXBROW, IXBCOL, 461 IF( MYROW.EQ.IXBROW ) THEN
|
H A D | pzgerfs.f | 277 $ IXBROW, IXCOL, IXROW, ICOFFA, ICOFFAF, ICOFFB, 347 $ IIXB, JJXB, IXBROW, IXBCOL ) 383 ELSE IF( IROFFA.NE.IROFFB .OR. IAROW.NE.IXBROW ) THEN 391 ELSE IF( IROFFX.NE.0 .OR. IXBROW.NE.IXROW ) THEN 464 NP0 = NUMROC( N+IROFFB, DESCB( MB_ ), MYROW, IXBROW, NPROW ) 465 CALL DESCSET( DESCW, N+IROFFB, 1, DESCA( MB_ ), 1, IXBROW, IXBCOL, 470 IF( MYROW.EQ.IXBROW ) THEN
|
H A D | pzporfs.f | 275 $ IXBROW, IXCOL, IXROW, ICOFFA, ICOFFAF, ICOFFB, 344 $ IIXB, JJXB, IXBROW, IXBCOL ) 379 ELSE IF( IROFFA.NE.IROFFB .OR. IAROW.NE.IXBROW ) THEN 387 ELSE IF( IROFFX.NE.0 .OR. IXBROW.NE.IXROW ) THEN 450 NP0 = NUMROC( N+IROFFB, DESCB( MB_ ), MYROW, IXBROW, NPROW ) 451 CALL DESCSET( DESCW, N+IROFFB, 1, DESCA( MB_ ), 1, IXBROW, IXBCOL, 456 IF( MYROW.EQ.IXBROW ) THEN
|