/dports/math/scalapack/scalapack-2.1.0/SRC/ |
H A D | pcmax1.f | 159 $ JJX, LCINDX, LDX, MAXPOS, MYCOL, MYROW, NP, local 195 CALL INFOG2L( IX, JX, DESCX, NPROW, NPCOL, MYROW, MYCOL, IIX, JJX, 200 AMAX = X( IIX+(JJX-1)*LDX ) 220 LCINDX = JJX-1+ICMAX1( NQ, X( IIX+(JJX-1)*LDX ), LDX ) 244 LCINDX = JJX-1+ICMAX1( NQ, X( IIX+(JJX-1)*LDX ), LDX ) 293 LCINDX = IIX-1+ICMAX1( NP, X( IIX+(JJX-1)*LDX ), 1 ) 294 WORK( 1 ) = X( LCINDX + (JJX-1)*LDX ) 317 LCINDX = IIX-1+ICMAX1( NP, X( IIX+(JJX-1)*LDX ), 1 ) 318 AMAX = X( LCINDX + (JJX-1)*LDX )
|
H A D | pzmax1.f | 159 $ JJX, LCINDX, LDX, MAXPOS, MYCOL, MYROW, NP, 194 CALL INFOG2L( IX, JX, DESCX, NPROW, NPCOL, MYROW, MYCOL, IIX, JJX, 199 AMAX = X( IIX+(JJX-1)*LDX ) 219 LCINDX = JJX-1+IZMAX1( NQ, X( IIX+(JJX-1)*LDX ), LDX ) 243 LCINDX = JJX-1+IZMAX1( NQ, X( IIX+(JJX-1)*LDX ), LDX ) 292 LCINDX = IIX-1+IZMAX1( NP, X( IIX+(JJX-1)*LDX ), 1 ) 293 WORK( 1 ) = X( LCINDX + (JJX-1)*LDX ) 316 LCINDX = IIX-1+IZMAX1( NP, X( IIX+(JJX-1)*LDX ), 1 ) 317 AMAX = X( LCINDX + (JJX-1)*LDX )
|
H A D | pdzsum1.f | 152 INTEGER ICOFF, ICTXT, IIX, IROFF, IXCOL, IXROW, JJX, 178 CALL INFOG2L( IX, JX, DESCX, NPROW, NPCOL, MYROW, MYCOL, IIX, JJX, 183 ASUM = ABS( X( IIX+(JJX-1)*LDX ) ) 198 ASUM = DZSUM1( NQ, X( IIX+(JJX-1)*LDX ), LDX ) 213 ASUM = DZSUM1( NP, X( IIX+(JJX-1)*LDX ), 1 )
|
H A D | pscsum1.f | 152 INTEGER ICOFF, ICTXT, IIX, IROFF, IXCOL, IXROW, JJX, local 178 CALL INFOG2L( IX, JX, DESCX, NPROW, NPCOL, MYROW, MYCOL, IIX, JJX, 183 ASUM = ABS( X( IIX+(JJX-1)*LDX ) ) 198 ASUM = SCSUM1( NQ, X( IIX+(JJX-1)*LDX ), LDX ) 213 ASUM = SCSUM1( NP, X( IIX+(JJX-1)*LDX ), 1 )
|
H A D | pclacgv.f | 119 $ IXROW, JJX, LDX, MYCOL, MYROW, NP, NPCOL, local 142 $ IIX, JJX, IXROW, IXCOL ) 157 IOFFX = IIX+(JJX-1)*LDX 176 IOFFX = IIX+(JJX-1)*LDX
|
H A D | pdlatrs.f | 39 INTEGER ICTXT, IIX, IROFF, JJX, MYCOL, MYROW, NP, 68 CALL INFOG2L( IX, JX, DESCX, NPROW, NPCOL, MYROW, MYCOL, IIX, JJX, 76 CALL DGEBS2D( ICTXT, 'R', ' ', NP, 1, X( IIX+(JJX-1)*LDX ), 79 CALL DGEBR2D( ICTXT, 'R', ' ', NP, 1, X( IIX+(JJX-1)*LDX ),
|
H A D | pzlatrs.f | 39 INTEGER ICTXT, IIX, IROFF, JJX, MYCOL, MYROW, NP, local 68 CALL INFOG2L( IX, JX, DESCX, NPROW, NPCOL, MYROW, MYCOL, IIX, JJX, 76 CALL ZGEBS2D( ICTXT, 'R', ' ', NP, 1, X( IIX+(JJX-1)*LDX ), 79 CALL ZGEBR2D( ICTXT, 'R', ' ', NP, 1, X( IIX+(JJX-1)*LDX ),
|
H A D | pclatrs.f | 39 INTEGER ICTXT, IIX, IROFF, JJX, MYCOL, MYROW, NP, local 68 CALL INFOG2L( IX, JX, DESCX, NPROW, NPCOL, MYROW, MYCOL, IIX, JJX, 76 CALL CGEBS2D( ICTXT, 'R', ' ', NP, 1, X( IIX+(JJX-1)*LDX ), 79 CALL CGEBR2D( ICTXT, 'R', ' ', NP, 1, X( IIX+(JJX-1)*LDX ),
|
H A D | pslatrs.f | 39 INTEGER ICTXT, IIX, IROFF, JJX, MYCOL, MYROW, NP, local 68 CALL INFOG2L( IX, JX, DESCX, NPROW, NPCOL, MYROW, MYCOL, IIX, JJX, 76 CALL SGEBS2D( ICTXT, 'R', ' ', NP, 1, X( IIX+(JJX-1)*LDX ), 79 CALL SGEBR2D( ICTXT, 'R', ' ', NP, 1, X( IIX+(JJX-1)*LDX ),
|
H A D | pzlacgv.f | 119 $ IXROW, JJX, LDX, MYCOL, MYROW, NP, NPCOL, local 142 $ IIX, JJX, IXROW, IXCOL ) 157 IOFFX = IIX+(JJX-1)*LDX 176 IOFFX = IIX+(JJX-1)*LDX
|
H A D | pdlassq.f | 147 $ IXROW, JJX, LDX, MYCOL, MYROW, NP, NPCOL, 173 CALL INFOG2L( IX, JX, DESCX, NPROW, NPCOL, MYROW, MYCOL, IIX, JJX, 191 IOFF = IIX + ( JJX - 1 ) * LDX 231 IOFF = IIX + ( JJX - 1 ) * LDX
|
H A D | pslassq.f | 147 $ IXROW, JJX, LDX, MYCOL, MYROW, NP, NPCOL, 173 CALL INFOG2L( IX, JX, DESCX, NPROW, NPCOL, MYROW, MYCOL, IIX, JJX, 191 IOFF = IIX + ( JJX - 1 ) * LDX 231 IOFF = IIX + ( JJX - 1 ) * LDX
|
H A D | pclassq.f | 152 $ IXROW, JJX, LDX, MYCOL, MYROW, NP, NPCOL, 178 CALL INFOG2L( IX, JX, DESCX, NPROW, NPCOL, MYROW, MYCOL, IIX, JJX, 196 IOFF = IIX + ( JJX - 1 ) * LDX 245 IOFF = IIX + ( JJX - 1 ) * LDX
|
H A D | pzlassq.f | 152 $ IXROW, JJX, LDX, MYCOL, MYROW, NP, NPCOL, 178 CALL INFOG2L( IX, JX, DESCX, NPROW, NPCOL, MYROW, MYCOL, IIX, JJX, 196 IOFF = IIX + ( JJX - 1 ) * LDX 245 IOFF = IIX + ( JJX - 1 ) * LDX
|
H A D | pcgesvx.f | 423 $ IROFFX, IXCOL, IXROW, J, JJA, JJB, JJX, 775 $ JJX, IXROW, IXCOL ) 801 DO 80 J = JJX, JJX+NRHSQ-1 807 DO 90 J = JJX, JJX+NRHSQ-1 812 DO 110 J = JJX, JJX+NRHSQ-1 818 DO 120 J = JJX, JJX+NRHSQ-1
|
H A D | psgesvx.f | 422 $ IROFFX, IXCOL, IXROW, J, JJA, JJB, JJX, local 775 $ JJX, IXROW, IXCOL ) 800 DO 80 J = JJX, JJX+NRHSQ-1 806 DO 90 J = JJX, JJX+NRHSQ-1 811 DO 110 J = JJX, JJX+NRHSQ-1 817 DO 120 J = JJX, JJX+NRHSQ-1
|
H A D | pdgesvx.f | 422 $ IROFFX, IXCOL, IXROW, J, JJA, JJB, JJX, local 775 $ JJX, IXROW, IXCOL ) 800 DO 80 J = JJX, JJX+NRHSQ-1 806 DO 90 J = JJX, JJX+NRHSQ-1 811 DO 110 J = JJX, JJX+NRHSQ-1 817 DO 120 J = JJX, JJX+NRHSQ-1
|
H A D | pzgesvx.f | 423 $ IROFFX, IXCOL, IXROW, J, JJA, JJB, JJX, local 775 $ JJX, IXROW, IXCOL ) 801 DO 80 J = JJX, JJX+NRHSQ-1 807 DO 90 J = JJX, JJX+NRHSQ-1 812 DO 110 J = JJX, JJX+NRHSQ-1 818 DO 120 J = JJX, JJX+NRHSQ-1
|
H A D | psposvx.f | 366 $ IXROW, J, JJA, JJB, JJX, LDB, LDX, LIWMIN, local 642 $ JJX, IXROW, IXCOL ) 652 DO 50 J = JJX, JJX+NRHSQ-1 657 DO 60 J = JJX, JJX+NRHSQ-1
|
H A D | pcposvx.f | 365 $ IXROW, J, JJA, JJB, JJX, LDB, LDX, LRWMIN, local 641 $ JJX, IXROW, IXCOL ) 651 DO 50 J = JJX, JJX+NRHSQ-1 656 DO 60 J = JJX, JJX+NRHSQ-1
|
H A D | pdposvx.f | 366 $ IXROW, J, JJA, JJB, JJX, LDB, LDX, LIWMIN, 642 $ JJX, IXROW, IXCOL ) 652 DO 50 J = JJX, JJX+NRHSQ-1 657 DO 60 J = JJX, JJX+NRHSQ-1
|
/dports/math/scalapack/scalapack-2.1.0/TESTING/LIN/ |
H A D | pclaschk.f | 161 $ IXCOL, IXROW, J, JBRHS, JJ, JJA, JJX, LDX, 192 CALL INFOG2L( IX, JX, DESCX, NPROW, NPCOL, MYROW, MYCOL, IIX, JJX, 218 IOFFX = IIX + ( JJX - 1 ) * DESCX( LLD_ ) 229 $ IXROW, IXCOL, IBSEED, IIX-1, NP, JJX-1, 315 $ JJX = JJX + JBRHS
|
H A D | pdlaschk.f | 160 $ IXCOL, IXROW, J, JBRHS, JJ, JJA, JJX, LDX, 190 CALL INFOG2L( IX, JX, DESCX, NPROW, NPCOL, MYROW, MYCOL, IIX, JJX, 216 IOFFX = IIX + ( JJX - 1 ) * DESCX( LLD_ ) 227 $ IXROW, IXCOL, IBSEED, IIX-1, NP, JJX-1, 312 $ JJX = JJX + JBRHS
|
H A D | pslaschk.f | 160 $ IXCOL, IXROW, J, JBRHS, JJ, JJA, JJX, LDX, local 190 CALL INFOG2L( IX, JX, DESCX, NPROW, NPCOL, MYROW, MYCOL, IIX, JJX, 216 IOFFX = IIX + ( JJX - 1 ) * DESCX( LLD_ ) 227 $ IXROW, IXCOL, IBSEED, IIX-1, NP, JJX-1, 312 $ JJX = JJX + JBRHS
|
H A D | pzlaschk.f | 161 $ IXCOL, IXROW, J, JBRHS, JJ, JJA, JJX, LDX, 193 CALL INFOG2L( IX, JX, DESCX, NPROW, NPCOL, MYROW, MYCOL, IIX, JJX, 219 IOFFX = IIX + ( JJX - 1 ) * DESCX( LLD_ ) 230 $ IXROW, IXCOL, IBSEED, IIX-1, NP, JJX-1, 316 $ JJX = JJX + JBRHS
|