Home
last modified time | relevance | path

Searched refs:MYROW (Results 251 – 275 of 1169) sorted by relevance

1...<<11121314151617181920>>...47

/dports/math/scalapack/scalapack-2.1.0/SRC/
H A Dpcunm2r.f222 $ LCM, LCMQ, LWMIN, MI, MP, MPC0, MYCOL, MYROW,
245 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
270 IAROW = INDXG2P( IA, DESCA( MB_ ), MYROW, DESCA( RSRC_ ),
272 ICROW = INDXG2P( IC, DESCC( MB_ ), MYROW, DESCC( RSRC_ ),
276 MPC0 = NUMROC( M+IROFFC, DESCC( MB_ ), MYROW, ICROW, NPROW )
329 CALL INFOG2L( IA, JA, DESCA, NPROW, NPCOL, MYROW, MYCOL, II,
331 CALL INFOG2L( IC, JC, DESCC, NPROW, NPCOL, MYROW, MYCOL, ICC,
334 IF( MYROW.EQ.IAROW ) THEN
366 $ CALL CGESD2D( ICTXT, 1, 1, AJJ, 1, MYROW, ICCOL )
368 $ CALL CGERV2D( ICTXT, 1, 1, AJJ, 1, MYROW, IACOL )
[all …]
H A Dpcpoequ.f162 $ JJA, JN, LDA, LL, MYCOL, MYROW, NP, NPCOL, local
187 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
219 CALL INFOG2L( IA, JA, DESCA, NPROW, NPCOL, MYROW, MYCOL, IIA, JJA,
223 NP = NUMROC( N+IROFF, DESCA( MB_ ), MYROW, IAROW, NPROW )
225 IF( MYROW.EQ.IAROW )
258 IF( MYROW.EQ.IAROW .AND. MYCOL.EQ.IACOL ) THEN
272 IF( MYROW.EQ.IAROW ) THEN
288 IF( MYROW.EQ.ICURROW .AND. MYCOL.EQ.ICURCOL ) THEN
302 IF( MYROW.EQ.ICURROW ) THEN
H A Dpspoequ.f161 $ JJA, JN, LDA, LL, MYCOL, MYROW, NP, NPCOL, local
186 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
218 CALL INFOG2L( IA, JA, DESCA, NPROW, NPCOL, MYROW, MYCOL, IIA, JJA,
222 NP = NUMROC( N+IROFF, DESCA( MB_ ), MYROW, IAROW, NPROW )
224 IF( MYROW.EQ.IAROW )
257 IF( MYROW.EQ.IAROW .AND. MYCOL.EQ.IACOL ) THEN
271 IF( MYROW.EQ.IAROW ) THEN
287 IF( MYROW.EQ.ICURROW .AND. MYCOL.EQ.ICURCOL ) THEN
301 IF( MYROW.EQ.ICURROW ) THEN
H A Dpdpoequ.f161 $ JJA, JN, LDA, LL, MYCOL, MYROW, NP, NPCOL, local
186 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
218 CALL INFOG2L( IA, JA, DESCA, NPROW, NPCOL, MYROW, MYCOL, IIA, JJA,
222 NP = NUMROC( N+IROFF, DESCA( MB_ ), MYROW, IAROW, NPROW )
224 IF( MYROW.EQ.IAROW )
257 IF( MYROW.EQ.IAROW .AND. MYCOL.EQ.IACOL ) THEN
271 IF( MYROW.EQ.IAROW ) THEN
287 IF( MYROW.EQ.ICURROW .AND. MYCOL.EQ.ICURCOL ) THEN
301 IF( MYROW.EQ.ICURROW ) THEN
H A Dpzpoequ.f162 $ JJA, JN, LDA, LL, MYCOL, MYROW, NP, NPCOL,
187 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
219 CALL INFOG2L( IA, JA, DESCA, NPROW, NPCOL, MYROW, MYCOL, IIA, JJA,
223 NP = NUMROC( N+IROFF, DESCA( MB_ ), MYROW, IAROW, NPROW )
225 IF( MYROW.EQ.IAROW )
258 IF( MYROW.EQ.IAROW .AND. MYCOL.EQ.IACOL ) THEN
272 IF( MYROW.EQ.IAROW ) THEN
288 IF( MYROW.EQ.ICURROW .AND. MYCOL.EQ.ICURCOL ) THEN
302 IF( MYROW.EQ.ICURROW ) THEN
H A Dpdlaevswp.f141 $ MAXI, MAXII, MINI, MINII, MYCOL, MYROW, NB, local
159 CALL BLACS_GRIDINFO( DESCZ( CTXT_ ), NPROW, NPCOL, MYROW, MYCOL )
160 IAM = MYROW + MYCOL*NPROW
161 IAM = MYROW*NPCOL + MYCOL
220 IF( MYROW.NE.SENDROW .OR. MYCOL.NE.SENDCOL )
233 MINII = MOD( MYROW+DESCZ( RSRC_ ), NPROW )*DESCZ( MB_ ) +
249 IF( MYROW.NE.RECVROW .OR. MYCOL.NE.RECVCOL )
262 MINII = MOD( MYROW+DESCZ( RSRC_ ), NPROW )*DESCZ( MB_ ) +
H A Dpdlapiv.f208 $ JJP, JPT, MYCOL, MYROW, NPCOL, NPROW
230 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
261 DESCPT(LLD_) = NUMROC( DESCPT(M_), DESCPT(MB_), MYROW,
265 CALL INFOG2L( IP, JP-IPT, DESCIP, NPROW, NPCOL, MYROW,
279 $ MYROW, 0 )
317 DESCPT(RSRC_) = MYROW
322 CALL INFOG2L( IP-JPT, JP, DESCIP, NPROW, NPCOL, MYROW,
332 IF( MYROW.EQ.0 ) THEN
H A Dpclapiv.f208 $ JJP, JPT, MYCOL, MYROW, NPCOL, NPROW local
230 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
261 DESCPT(LLD_) = NUMROC( DESCPT(M_), DESCPT(MB_), MYROW,
265 CALL INFOG2L( IP, JP-IPT, DESCIP, NPROW, NPCOL, MYROW,
279 $ MYROW, 0 )
317 DESCPT(RSRC_) = MYROW
322 CALL INFOG2L( IP-JPT, JP, DESCIP, NPROW, NPCOL, MYROW,
332 IF( MYROW.EQ.0 ) THEN
H A Dpcungr2.f170 $ MYCOL, MYROW, NPCOL, NPROW, NQA0 local
190 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
200 IAROW = INDXG2P( IA, DESCA( MB_ ), MYROW, DESCA( RSRC_ ),
205 $ MYROW, IAROW, NPROW )
249 MP = NUMROC( IA+M-1, DESCA( MB_ ), MYROW, DESCA( RSRC_ ), NPROW )
259 II = INDXG2L( I, DESCA( MB_ ), MYROW, DESCA( RSRC_ ), NPROW )
260 IAROW = INDXG2P( I, DESCA( MB_ ), MYROW, DESCA( RSRC_ ),
262 IF( MYROW.EQ.IAROW )
H A Dpslaevswp.f141 $ MAXI, MAXII, MINI, MINII, MYCOL, MYROW, NB,
159 CALL BLACS_GRIDINFO( DESCZ( CTXT_ ), NPROW, NPCOL, MYROW, MYCOL )
160 IAM = MYROW + MYCOL*NPROW
161 IAM = MYROW*NPCOL + MYCOL
220 IF( MYROW.NE.SENDROW .OR. MYCOL.NE.SENDCOL )
233 MINII = MOD( MYROW+DESCZ( RSRC_ ), NPROW )*DESCZ( MB_ ) +
249 IF( MYROW.NE.RECVROW .OR. MYCOL.NE.RECVCOL )
262 MINII = MOD( MYROW+DESCZ( RSRC_ ), NPROW )*DESCZ( MB_ ) +
H A Dpslapiv.f208 $ JJP, JPT, MYCOL, MYROW, NPCOL, NPROW local
230 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
261 DESCPT(LLD_) = NUMROC( DESCPT(M_), DESCPT(MB_), MYROW,
265 CALL INFOG2L( IP, JP-IPT, DESCIP, NPROW, NPCOL, MYROW,
279 $ MYROW, 0 )
317 DESCPT(RSRC_) = MYROW
322 CALL INFOG2L( IP-JPT, JP, DESCIP, NPROW, NPCOL, MYROW,
332 IF( MYROW.EQ.0 ) THEN
H A Dpzlaevswp.f142 $ MAXI, MAXII, MINI, MINII, MYCOL, MYROW, NB,
160 CALL BLACS_GRIDINFO( DESCZ( CTXT_ ), NPROW, NPCOL, MYROW, MYCOL )
161 IAM = MYROW + MYCOL*NPROW
162 IAM = MYROW*NPCOL + MYCOL
221 IF( MYROW.NE.SENDROW .OR. MYCOL.NE.SENDCOL )
234 MINII = MOD( MYROW+DESCZ( RSRC_ ), NPROW )*DESCZ( MB_ ) +
250 IF( MYROW.NE.RECVROW .OR. MYCOL.NE.RECVCOL )
263 MINII = MOD( MYROW+DESCZ( RSRC_ ), NPROW )*DESCZ( MB_ ) +
H A Dpzlapiv.f208 $ JJP, JPT, MYCOL, MYROW, NPCOL, NPROW
230 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
261 DESCPT(LLD_) = NUMROC( DESCPT(M_), DESCPT(MB_), MYROW,
265 CALL INFOG2L( IP, JP-IPT, DESCIP, NPROW, NPCOL, MYROW,
279 $ MYROW, 0 )
317 DESCPT(RSRC_) = MYROW
322 CALL INFOG2L( IP-JPT, JP, DESCIP, NPROW, NPCOL, MYROW,
332 IF( MYROW.EQ.0 ) THEN
H A Dpclaevswp.f142 $ MAXI, MAXII, MINI, MINII, MYCOL, MYROW, NB,
160 CALL BLACS_GRIDINFO( DESCZ( CTXT_ ), NPROW, NPCOL, MYROW, MYCOL )
161 IAM = MYROW + MYCOL*NPROW
162 IAM = MYROW*NPCOL + MYCOL
221 IF( MYROW.NE.SENDROW .OR. MYCOL.NE.SENDCOL )
234 MINII = MOD( MYROW+DESCZ( RSRC_ ), NPROW )*DESCZ( MB_ ) +
250 IF( MYROW.NE.RECVROW .OR. MYCOL.NE.RECVCOL )
263 MINII = MOD( MYROW+DESCZ( RSRC_ ), NPROW )*DESCZ( MB_ ) +
H A Dpzungr2.f170 $ MYCOL, MYROW, NPCOL, NPROW, NQA0 local
190 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
200 IAROW = INDXG2P( IA, DESCA( MB_ ), MYROW, DESCA( RSRC_ ),
205 $ MYROW, IAROW, NPROW )
249 MP = NUMROC( IA+M-1, DESCA( MB_ ), MYROW, DESCA( RSRC_ ), NPROW )
259 II = INDXG2L( I, DESCA( MB_ ), MYROW, DESCA( RSRC_ ), NPROW )
260 IAROW = INDXG2P( I, DESCA( MB_ ), MYROW, DESCA( RSRC_ ),
262 IF( MYROW.EQ.IAROW )
H A Dpdlassq.f147 $ IXROW, JJX, LDX, MYCOL, MYROW, NP, NPCOL,
169 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
173 CALL INFOG2L( IX, JX, DESCX, NPROW, NPCOL, MYROW, MYCOL, IIX, JJX,
181 IF( MYROW.NE.IXROW )
224 NP = NUMROC( N+IROFF, DESCX( MB_ ), MYROW, IXROW, NPROW )
225 IF( MYROW.EQ.IXROW )
H A Dpclaswp.f144 $ MYCOL, MYROW, NPCOL, NPROW
160 CALL BLACS_GRIDINFO( DESCA( CTXT_ ), NPROW, NPCOL, MYROW, MYCOL )
164 CALL INFOG2L( K1, JA, DESCA, NPROW, NPCOL, MYROW, MYCOL,
173 CALL INFOG2L( K2, JA, DESCA, NPROW, NPCOL, MYROW, MYCOL,
184 CALL INFOG2L( IA, K1, DESCA, NPROW, NPCOL, MYROW, MYCOL,
193 CALL INFOG2L( IA, K2, DESCA, NPROW, NPCOL, MYROW, MYCOL,
/dports/math/scalapack/scalapack-2.1.0/TESTING/EIG/
H A Dpcget22.f107 $ JROW, JVEC, LDA, LDE, LDW, MB, MYCOL, MYROW, local
148 CALL BLACS_GRIDINFO( CONTXT, NPROW, NPCOL, MYROW, MYCOL )
182 CALL INFOG2L( J, JVEC, DESCE, NPROW, NPCOL, MYROW, MYCOL,
184 IF( ( MYROW.EQ.II ) .AND. ( MYCOL.EQ.JJ ) ) THEN
204 CALL INFOG2L( J, JVEC, DESCE, NPROW, NPCOL, MYROW, MYCOL,
206 IF( ( MYROW.EQ.II ) .AND. ( MYCOL.EQ.JJ ) ) THEN
211 IF( MYROW.EQ.II ) THEN
255 CALL INFOG2L( JROW, JCOL, DESCW, NPROW, NPCOL, MYROW,
257 IF( ( MYROW.EQ.II ) .AND. ( MYCOL.EQ.JJ ) ) THEN
H A Dpzget22.f107 $ JROW, JVEC, LDA, LDE, LDW, MB, MYCOL, MYROW, local
148 CALL BLACS_GRIDINFO( CONTXT, NPROW, NPCOL, MYROW, MYCOL )
182 CALL INFOG2L( J, JVEC, DESCE, NPROW, NPCOL, MYROW, MYCOL,
184 IF( ( MYROW.EQ.II ) .AND. ( MYCOL.EQ.JJ ) ) THEN
204 CALL INFOG2L( J, JVEC, DESCE, NPROW, NPCOL, MYROW, MYCOL,
206 IF( ( MYROW.EQ.II ) .AND. ( MYCOL.EQ.JJ ) ) THEN
211 IF( MYROW.EQ.II ) THEN
255 CALL INFOG2L( JROW, JCOL, DESCW, NPROW, NPCOL, MYROW,
257 IF( ( MYROW.EQ.II ) .AND. ( MYCOL.EQ.JJ ) ) THEN
H A Dpslafchk.f158 $ JB, JJ, JJA, JN, LDA, LDW, MP, MYCOL, MYROW, local
176 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
178 CALL INFOG2L( IA, JA, DESCA, NPROW, NPCOL, MYROW, MYCOL, IIA, JJA,
185 MP = NUMROC( M+IROFF, DESCA( MB_ ), MYROW, IAROW, NPROW )
187 IF( MYROW.EQ.IAROW )
203 $ MP, JJA-1, JB, MYROW, MYCOL, NPROW, NPCOL )
218 $ MP, JJ-1, JB, MYROW, MYCOL, NPROW, NPCOL )
H A Dpdlafchk.f158 $ JB, JJ, JJA, JN, LDA, LDW, MP, MYCOL, MYROW, local
176 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
178 CALL INFOG2L( IA, JA, DESCA, NPROW, NPCOL, MYROW, MYCOL, IIA, JJA,
185 MP = NUMROC( M+IROFF, DESCA( MB_ ), MYROW, IAROW, NPROW )
187 IF( MYROW.EQ.IAROW )
203 $ MP, JJA-1, JB, MYROW, MYCOL, NPROW, NPCOL )
218 $ MP, JJ-1, JB, MYROW, MYCOL, NPROW, NPCOL )
/dports/math/scalapack/scalapack-2.1.0/TESTING/LIN/
H A Dpdlafchk.f158 $ JB, JJ, JJA, JN, LDA, LDW, MP, MYCOL, MYROW,
176 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
178 CALL INFOG2L( IA, JA, DESCA, NPROW, NPCOL, MYROW, MYCOL, IIA, JJA,
185 MP = NUMROC( M+IROFF, DESCA( MB_ ), MYROW, IAROW, NPROW )
187 IF( MYROW.EQ.IAROW )
203 $ MP, JJA-1, JB, MYROW, MYCOL, NPROW, NPCOL )
218 $ MP, JJ-1, JB, MYROW, MYCOL, NPROW, NPCOL )
H A Dpslafchk.f158 $ JB, JJ, JJA, JN, LDA, LDW, MP, MYCOL, MYROW, local
176 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
178 CALL INFOG2L( IA, JA, DESCA, NPROW, NPCOL, MYROW, MYCOL, IIA, JJA,
185 MP = NUMROC( M+IROFF, DESCA( MB_ ), MYROW, IAROW, NPROW )
187 IF( MYROW.EQ.IAROW )
203 $ MP, JJA-1, JB, MYROW, MYCOL, NPROW, NPCOL )
218 $ MP, JJ-1, JB, MYROW, MYCOL, NPROW, NPCOL )
/dports/science/berkeleygw/BGW-2.0.0/BSE/full_solver/
H A Ddmain.f9073 IF ( MYROW+MYCOL .EQ. 0 ) THEN
138 IF ( MYROW+MYCOL .EQ. 0 ) THEN
152 IF ( MYROW+MYCOL .EQ. 0 ) THEN
156 IF ( MYROW+MYCOL .EQ. 0 ) THEN
170 IF ( MYROW+MYCOL .EQ. 0 ) THEN
197 IF ( MYROW+MYCOL .EQ. 0 ) THEN
249 IF ( MYROW+MYCOL .EQ. 0 ) THEN
276 IF ( MYROW+MYCOL .EQ. 0 ) THEN
308 IF ( MYROW+MYCOL .EQ. 0 ) &
327 IF ( MYROW+MYCOL .EQ. 0 ) &
[all …]
H A Dzmain.f9073 IF ( MYROW+MYCOL .EQ. 0 ) THEN
141 IF ( MYROW+MYCOL .EQ. 0 ) THEN
157 IF ( MYROW+MYCOL .EQ. 0 ) THEN
161 IF ( MYROW+MYCOL .EQ. 0 ) THEN
175 IF ( MYROW+MYCOL .EQ. 0 ) THEN
203 IF ( MYROW+MYCOL .EQ. 0 ) THEN
255 IF ( MYROW+MYCOL .EQ. 0 ) THEN
283 IF ( MYROW+MYCOL .EQ. 0 ) THEN
324 IF ( MYROW+MYCOL .EQ. 0 ) &
343 IF ( MYROW+MYCOL .EQ. 0 ) &
[all …]

1...<<11121314151617181920>>...47