/dports/math/scalapack/scalapack-2.1.0/SRC/ |
H A D | pzlase2.f | 140 INTEGER HEIGHT, IACOL, IAROW, IBASE, ICOFFA, II, IIA, 172 ICOFFA = MOD( JA-1, NBA ) 174 IF( N.LE.( NBA-ICOFFA ) ) THEN 323 NQA = NUMROC( N+ICOFFA, NBA, MYCOL, IACOL, NPCOL ) 327 $ NQA = NQA - ICOFFA 329 ILEFT = MYDIST * NBA - ICOFFA 343 ILEFT = MYDIST * NBA - ICOFFA 368 ILEFT = MYDIST * NBA - ICOFFA 395 ILEFT = MYDIST * NBA - ICOFFA
|
H A D | pclase2.f | 140 INTEGER HEIGHT, IACOL, IAROW, IBASE, ICOFFA, II, IIA, local 172 ICOFFA = MOD( JA-1, NBA ) 174 IF( N.LE.( NBA-ICOFFA ) ) THEN 323 NQA = NUMROC( N+ICOFFA, NBA, MYCOL, IACOL, NPCOL ) 327 $ NQA = NQA - ICOFFA 329 ILEFT = MYDIST * NBA - ICOFFA 343 ILEFT = MYDIST * NBA - ICOFFA 368 ILEFT = MYDIST * NBA - ICOFFA 395 ILEFT = MYDIST * NBA - ICOFFA
|
H A D | pdlase2.f | 140 INTEGER HEIGHT, IACOL, IAROW, IBASE, ICOFFA, II, IIA, 172 ICOFFA = MOD( JA-1, NBA ) 174 IF( N.LE.( NBA-ICOFFA ) ) THEN 323 NQA = NUMROC( N+ICOFFA, NBA, MYCOL, IACOL, NPCOL ) 327 $ NQA = NQA - ICOFFA 329 ILEFT = MYDIST * NBA - ICOFFA 343 ILEFT = MYDIST * NBA - ICOFFA 368 ILEFT = MYDIST * NBA - ICOFFA 395 ILEFT = MYDIST * NBA - ICOFFA
|
H A D | pslase2.f | 140 INTEGER HEIGHT, IACOL, IAROW, IBASE, ICOFFA, II, IIA, local 172 ICOFFA = MOD( JA-1, NBA ) 174 IF( N.LE.( NBA-ICOFFA ) ) THEN 323 NQA = NUMROC( N+ICOFFA, NBA, MYCOL, IACOL, NPCOL ) 327 $ NQA = NQA - ICOFFA 329 ILEFT = MYDIST * NBA - ICOFFA 343 ILEFT = MYDIST * NBA - ICOFFA 368 ILEFT = MYDIST * NBA - ICOFFA 395 ILEFT = MYDIST * NBA - ICOFFA
|
H A D | pdlacp2.f | 151 $ ICOFFA, IIA, IIAA, IIB, IIBB, IIBEGA, IIBEGB, local 187 ICOFFA = MOD( JA-1, NBA ) 190 IF( N.LE.( NBA-ICOFFA ) ) THEN 328 NQ = NUMROC( N+ICOFFA, NBA, MYCOL, IACOL, NPCOL ) 332 $ NQ = NQ - ICOFFA 334 ILEFT = MYDIST * NBA - ICOFFA 351 ILEFT = MYDIST * NBA - ICOFFA 384 ILEFT = MYDIST * NBA - ICOFFA
|
H A D | pzlacp2.f | 151 $ ICOFFA, IIA, IIAA, IIB, IIBB, IIBEGA, IIBEGB, 187 ICOFFA = MOD( JA-1, NBA ) 190 IF( N.LE.( NBA-ICOFFA ) ) THEN 328 NQ = NUMROC( N+ICOFFA, NBA, MYCOL, IACOL, NPCOL ) 332 $ NQ = NQ - ICOFFA 334 ILEFT = MYDIST * NBA - ICOFFA 351 ILEFT = MYDIST * NBA - ICOFFA 384 ILEFT = MYDIST * NBA - ICOFFA
|
H A D | pslacp2.f | 151 $ ICOFFA, IIA, IIAA, IIB, IIBB, IIBEGA, IIBEGB, local 187 ICOFFA = MOD( JA-1, NBA ) 190 IF( N.LE.( NBA-ICOFFA ) ) THEN 328 NQ = NUMROC( N+ICOFFA, NBA, MYCOL, IACOL, NPCOL ) 332 $ NQ = NQ - ICOFFA 334 ILEFT = MYDIST * NBA - ICOFFA 351 ILEFT = MYDIST * NBA - ICOFFA 384 ILEFT = MYDIST * NBA - ICOFFA
|
H A D | pclacp2.f | 151 $ ICOFFA, IIA, IIAA, IIB, IIBB, IIBEGA, IIBEGB, 187 ICOFFA = MOD( JA-1, NBA ) 190 IF( N.LE.( NBA-ICOFFA ) ) THEN 328 NQ = NUMROC( N+ICOFFA, NBA, MYCOL, IACOL, NPCOL ) 332 $ NQ = NQ - ICOFFA 334 ILEFT = MYDIST * NBA - ICOFFA 351 ILEFT = MYDIST * NBA - ICOFFA 384 ILEFT = MYDIST * NBA - ICOFFA
|
H A D | pcgesv.f | 163 INTEGER IAROW, IBROW, ICOFFA, ICTXT, IROFFA, IROFFB, 201 ICOFFA = MOD( JA-1, DESCA( NB_ ) ) 205 ELSE IF( ICOFFA.NE.0 ) THEN 209 ELSE IF( IBROW.NE.IAROW .OR. ICOFFA.NE.IROFFB ) THEN
|
H A D | psgesv.f | 163 INTEGER IAROW, IBROW, ICOFFA, ICTXT, IROFFA, IROFFB, local 201 ICOFFA = MOD( JA-1, DESCA( NB_ ) ) 205 ELSE IF( ICOFFA.NE.0 ) THEN 209 ELSE IF( IBROW.NE.IAROW .OR. ICOFFA.NE.IROFFB ) THEN
|
H A D | pdgesv.f | 163 INTEGER IAROW, IBROW, ICOFFA, ICTXT, IROFFA, IROFFB, 201 ICOFFA = MOD( JA-1, DESCA( NB_ ) ) 205 ELSE IF( ICOFFA.NE.0 ) THEN 209 ELSE IF( IBROW.NE.IAROW .OR. ICOFFA.NE.IROFFB ) THEN
|
H A D | pzgesv.f | 163 INTEGER IAROW, IBROW, ICOFFA, ICTXT, IROFFA, IROFFB, local 201 ICOFFA = MOD( JA-1, DESCA( NB_ ) ) 205 ELSE IF( ICOFFA.NE.0 ) THEN 209 ELSE IF( IBROW.NE.IAROW .OR. ICOFFA.NE.IROFFB ) THEN
|
/dports/math/scalapack/scalapack-2.1.0/TESTING/LIN/ |
H A D | pcqrt14.f | 183 INTEGER IACOL, IAROW, ICOFFA, ICTXT, IDUM, IIA, INFO, local 219 ICOFFA = MOD( JA-1, DESCA( NB_ ) ) 221 JWA = ICOFFA + 1 225 NQWA = NUMROC( N+ICOFFA, DESCA( NB_ ), MYCOL, IACOL, NPCOL ) 242 CALL DESCSET( DESCW, M+NRHS+IROFFA, N+ICOFFA, DESCA( MB_ ), 250 NQW = NUMROC( N+NRHS+ICOFFA, DESCA( NB_ ), MYCOL, IACOL, 259 CALL DESCSET( DESCW, M+IROFFA, N+NRHS+ICOFFA, DESCA( MB_ ), 295 MQW = NUMROC( M+ICOFFA, DESCA( NB_ ), MYCOL, IACOL, NPCOL )
|
H A D | pdqrt14.f | 183 INTEGER IACOL, IAROW, ICOFFA, ICTXT, IDUM, IIA, INFO, local 218 ICOFFA = MOD( JA-1, DESCA( NB_ ) ) 220 JWA = ICOFFA + 1 224 NQWA = NUMROC( N+ICOFFA, DESCA( NB_ ), MYCOL, IACOL, NPCOL ) 241 CALL DESCSET( DESCW, M+NRHS+IROFFA, N+ICOFFA, DESCA( MB_ ), 249 NQW = NUMROC( N+NRHS+ICOFFA, DESCA( NB_ ), MYCOL, IACOL, 258 CALL DESCSET( DESCW, M+IROFFA, N+NRHS+ICOFFA, DESCA( MB_ ), 294 MQW = NUMROC( M+ICOFFA, DESCA( NB_ ), MYCOL, IACOL, NPCOL )
|
H A D | psqrt14.f | 183 INTEGER IACOL, IAROW, ICOFFA, ICTXT, IDUM, IIA, INFO, local 218 ICOFFA = MOD( JA-1, DESCA( NB_ ) ) 220 JWA = ICOFFA + 1 224 NQWA = NUMROC( N+ICOFFA, DESCA( NB_ ), MYCOL, IACOL, NPCOL ) 241 CALL DESCSET( DESCW, M+NRHS+IROFFA, N+ICOFFA, DESCA( MB_ ), 249 NQW = NUMROC( N+NRHS+ICOFFA, DESCA( NB_ ), MYCOL, IACOL, 258 CALL DESCSET( DESCW, M+IROFFA, N+NRHS+ICOFFA, DESCA( MB_ ), 294 MQW = NUMROC( M+ICOFFA, DESCA( NB_ ), MYCOL, IACOL, NPCOL )
|
H A D | pzqrt14.f | 183 INTEGER IACOL, IAROW, ICOFFA, ICTXT, IDUM, IIA, INFO, 219 ICOFFA = MOD( JA-1, DESCA( NB_ ) ) 221 JWA = ICOFFA + 1 225 NQWA = NUMROC( N+ICOFFA, DESCA( NB_ ), MYCOL, IACOL, NPCOL ) 242 CALL DESCSET( DESCW, M+NRHS+IROFFA, N+ICOFFA, DESCA( MB_ ), 250 NQW = NUMROC( N+NRHS+ICOFFA, DESCA( NB_ ), MYCOL, IACOL, 259 CALL DESCSET( DESCW, M+IROFFA, N+NRHS+ICOFFA, DESCA( MB_ ), 295 MQW = NUMROC( M+ICOFFA, DESCA( NB_ ), MYCOL, IACOL, NPCOL )
|
H A D | pdqrt13.f | 139 INTEGER I, IACOL, IAROW, ICOFFA, ICTXT, IIA, INFO, local 167 ICOFFA = MOD( JA-1, DESCA( NB_ ) ) 171 NQ = NUMROC( N+ICOFFA, DESCA( NB_ ), MYCOL, IACOL, NPCOL ) 175 $ NQ = NQ - ICOFFA
|
H A D | pzqrt13.f | 139 INTEGER I, IACOL, IAROW, ICOFFA, ICTXT, IIA, INFO, local 169 ICOFFA = MOD( JA-1, DESCA( NB_ ) ) 173 NQ = NUMROC( N+ICOFFA, DESCA( NB_ ), MYCOL, IACOL, NPCOL ) 177 $ NQ = NQ - ICOFFA
|
H A D | psqrt13.f | 139 INTEGER I, IACOL, IAROW, ICOFFA, ICTXT, IIA, INFO, local 167 ICOFFA = MOD( JA-1, DESCA( NB_ ) ) 171 NQ = NUMROC( N+ICOFFA, DESCA( NB_ ), MYCOL, IACOL, NPCOL ) 175 $ NQ = NQ - ICOFFA
|
H A D | pcqrt13.f | 139 INTEGER I, IACOL, IAROW, ICOFFA, ICTXT, IIA, INFO, local 169 ICOFFA = MOD( JA-1, DESCA( NB_ ) ) 173 NQ = NUMROC( N+ICOFFA, DESCA( NB_ ), MYCOL, IACOL, NPCOL ) 177 $ NQ = NQ - ICOFFA
|
/dports/math/scalapack/scalapack-2.1.0/TESTING/EIG/ |
H A D | pdlasizesyev.f | 58 INTEGER CONTEXTC, CSRC_A, IACOL, IAROW, ICOFFA, IROFFA, local 90 ICOFFA = 0 94 NQ = NUMROC( N+ICOFFA, NB, MYCOL, IACOL, NPCOL ) 97 $ ( NQ+MAX( NP+NUMROC( NUMROC( N+ICOFFA, NB, 0, 0,
|
H A D | pslasizesyev.f | 58 INTEGER CONTEXTC, CSRC_A, IACOL, IAROW, ICOFFA, IROFFA, 90 ICOFFA = 0 94 NQ = NUMROC( N+ICOFFA, NB, MYCOL, IACOL, NPCOL ) 97 $ ( NQ+MAX( NP+NUMROC( NUMROC( N+ICOFFA, NB, 0, 0,
|
H A D | pslasizesepr.f | 68 INTEGER CSRC_A, IACOL, IAROW, ICOFFA, IROFFA, LCM, local 95 ICOFFA = 0 99 NQ = NUMROC( N+ICOFFA, NB, MYCOL, IACOL, NPCOL ) 102 $ ( NQ+MAX( NP+NUMROC( NUMROC( N+ICOFFA, NB, 0, 0,
|
H A D | pdlasizesepr.f | 68 INTEGER CSRC_A, IACOL, IAROW, ICOFFA, IROFFA, LCM, local 95 ICOFFA = 0 99 NQ = NUMROC( N+ICOFFA, NB, MYCOL, IACOL, NPCOL ) 102 $ ( NQ+MAX( NP+NUMROC( NUMROC( N+ICOFFA, NB, 0, 0,
|
H A D | pdlasizegsep.f | 68 INTEGER CSRC_A, IACOL, IAROW, ICOFFA, IROFFA, LCM, local 99 ICOFFA = 0 103 NQ = NUMROC( N+ICOFFA, NB, MYCOL, IACOL, NPCOL ) 106 $ ( NQ+MAX( NP+NUMROC( NUMROC( N+ICOFFA, NB, 0, 0,
|