Home
last modified time | relevance | path

Searched refs:MYROW (Results 1 – 25 of 1169) sorted by relevance

12345678910>>...47

/dports/math/scalapack/scalapack-2.1.0/SRC/
H A Dpdlansy.f212 IF( MYROW.EQ.IAROW ) THEN
298 IF( MYROW.EQ.IAROW )
305 IF( MYROW.EQ.IAROW ) THEN
388 IF( MYROW.EQ.IAROW )
394 IF( MYROW.EQ.IAROW ) THEN
498 IF( MYROW.EQ.IAROW )
505 IF( MYROW.EQ.IAROW ) THEN
603 IF( MYROW.EQ.IAROW )
610 IF( MYROW.EQ.IAROW ) THEN
693 IF( MYROW.EQ.IAROW )
[all …]
H A Dpzlansy.f213 IF( MYROW.EQ.IAROW ) THEN
299 IF( MYROW.EQ.IAROW )
306 IF( MYROW.EQ.IAROW ) THEN
389 IF( MYROW.EQ.IAROW )
395 IF( MYROW.EQ.IAROW ) THEN
499 IF( MYROW.EQ.IAROW )
506 IF( MYROW.EQ.IAROW ) THEN
604 IF( MYROW.EQ.IAROW )
611 IF( MYROW.EQ.IAROW ) THEN
694 IF( MYROW.EQ.IAROW )
[all …]
H A Dpdtrord.f2149 $ MYROW.EQ.RSRC1 ) THEN
2196 ELSEIF( MYROW.EQ.RSRC4 ) THEN
2276 $ MYROW.EQ.RSRC1 ) THEN
2384 $ .OR. ((MYROW.EQ.RSRC1.OR.MYROW.EQ.RSRC4).AND.
2466 IF( MYROW.EQ.RSRC1 .OR. MYROW.EQ.RSRC4 ) THEN
2468 IF( MYROW.EQ.RSRC1 ) THEN
2494 IF( MYROW.EQ.RSRC4 ) THEN
2583 $ .OR. ((MYROW.EQ.RSRC1.OR.MYROW.EQ.RSRC4).AND.
2613 WORK(IPW8) = DBLE(MYROW)
3269 IF( MYROW.NE.RSRC .OR. MYCOL.NE.CSRC )
[all …]
H A Dpstrord.f2149 $ MYROW.EQ.RSRC1 ) THEN
2196 ELSEIF( MYROW.EQ.RSRC4 ) THEN
2276 $ MYROW.EQ.RSRC1 ) THEN
2384 $ .OR. ((MYROW.EQ.RSRC1.OR.MYROW.EQ.RSRC4).AND.
2466 IF( MYROW.EQ.RSRC1 .OR. MYROW.EQ.RSRC4 ) THEN
2468 IF( MYROW.EQ.RSRC1 ) THEN
2494 IF( MYROW.EQ.RSRC4 ) THEN
2583 $ .OR. ((MYROW.EQ.RSRC1.OR.MYROW.EQ.RSRC4).AND.
2613 WORK(IPW8) = FLOAT(MYROW)
3269 IF( MYROW.NE.RSRC .OR. MYCOL.NE.CSRC )
[all …]
H A Dpzlanhe.f212 IF( MYROW.EQ.IAROW ) THEN
289 IF( MYROW.EQ.IAROW )
295 IF( MYROW.EQ.IAROW )
302 IF( MYROW.EQ.IAROW ) THEN
414 IF( MYROW.EQ.IAROW )
420 IF( MYROW.EQ.IAROW ) THEN
531 IF( MYROW.EQ.IAROW )
538 IF( MYROW.EQ.IAROW ) THEN
661 IF( MYROW.EQ.IAROW )
760 IF( MYROW.EQ.IAROW )
[all …]
H A Dpclanhe.f211 IF( MYROW.EQ.IAROW ) THEN
288 IF( MYROW.EQ.IAROW )
294 IF( MYROW.EQ.IAROW )
301 IF( MYROW.EQ.IAROW ) THEN
413 IF( MYROW.EQ.IAROW )
419 IF( MYROW.EQ.IAROW ) THEN
530 IF( MYROW.EQ.IAROW )
537 IF( MYROW.EQ.IAROW ) THEN
660 IF( MYROW.EQ.IAROW )
759 IF( MYROW.EQ.IAROW )
[all …]
H A Dpdlaqr5.f527 IF( MYROW.EQ.LRSRC .OR. MYCOL.EQ.LCSRC ) THEN
687 $ MYROW.EQ.LRSRC ) THEN
850 $ MYROW.EQ.LRSRC ) THEN
1099 ILOC = INDXG2L( LKTOP, NB, MYROW,
1351 IF( MYROW.EQ.RSRC1 .OR. MYROW.EQ.RSRC4 )
1384 IF( MYROW.EQ.RSRC1 .OR. ( MYROW.EQ.RSRC4
1464 $ .OR.((MYROW.EQ.RSRC1.OR.MYROW.EQ.RSRC4).AND.
1558 IF( MYROW.EQ.RSRC1 .OR. MYROW.EQ.RSRC4 ) THEN
1560 IF( MYROW.EQ.RSRC1 ) THEN
1595 IF( MYROW.EQ.RSRC4 ) THEN
[all …]
H A Dpslaqr5.f527 IF( MYROW.EQ.LRSRC .OR. MYCOL.EQ.LCSRC ) THEN
687 $ MYROW.EQ.LRSRC ) THEN
850 $ MYROW.EQ.LRSRC ) THEN
1099 ILOC = INDXG2L( LKTOP, NB, MYROW,
1351 IF( MYROW.EQ.RSRC1 .OR. MYROW.EQ.RSRC4 )
1384 IF( MYROW.EQ.RSRC1 .OR. ( MYROW.EQ.RSRC4
1464 $ .OR.((MYROW.EQ.RSRC1.OR.MYROW.EQ.RSRC4).AND.
1558 IF( MYROW.EQ.RSRC1 .OR. MYROW.EQ.RSRC4 ) THEN
1560 IF( MYROW.EQ.RSRC1 ) THEN
1595 IF( MYROW.EQ.RSRC4 ) THEN
[all …]
H A Dpclansy.f212 IF( MYROW.EQ.IAROW ) THEN
298 IF( MYROW.EQ.IAROW )
305 IF( MYROW.EQ.IAROW ) THEN
388 IF( MYROW.EQ.IAROW )
394 IF( MYROW.EQ.IAROW ) THEN
498 IF( MYROW.EQ.IAROW )
505 IF( MYROW.EQ.IAROW ) THEN
603 IF( MYROW.EQ.IAROW )
610 IF( MYROW.EQ.IAROW ) THEN
693 IF( MYROW.EQ.IAROW )
[all …]
H A Dpslansy.f211 IF( MYROW.EQ.IAROW ) THEN
297 IF( MYROW.EQ.IAROW )
304 IF( MYROW.EQ.IAROW ) THEN
387 IF( MYROW.EQ.IAROW )
393 IF( MYROW.EQ.IAROW ) THEN
497 IF( MYROW.EQ.IAROW )
504 IF( MYROW.EQ.IAROW ) THEN
602 IF( MYROW.EQ.IAROW )
609 IF( MYROW.EQ.IAROW ) THEN
692 IF( MYROW.EQ.IAROW )
[all …]
H A Dpctrevc.f219 $ MYCOL, MYROW, NB, NPCOL, NPROW, RSRC local
263 CALL BLACS_GRIDINFO( CONTXT, NPROW, NPCOL, MYROW, MYCOL )
264 SELF = MYROW*NPCOL + MYCOL
324 IF( ( MYROW.EQ.ITMP1 ) .AND. ( MYCOL.EQ.ITMP2 ) ) THEN
362 IF( ( MYROW.EQ.ITMP1 ) .AND. ( MYCOL.EQ.ITMP2 ) ) THEN
371 IF( ( MYROW.EQ.ITMP1 ) .AND. ( MYCOL.EQ.ITMP2 ) ) THEN
385 IF( MYROW.EQ.ITMP1 .AND. MYCOL.EQ.ITMP2 ) THEN
411 IF( MYROW.EQ.ITMP1 .AND. MYCOL.EQ.ITMP2 ) THEN
474 IF( ( MYROW.EQ.ITMP1 ) .AND. ( MYCOL.EQ.ITMP2 ) ) THEN
496 IF( MYROW.EQ.ITMP1 .AND. MYCOL.EQ.ITMP2 ) THEN
[all …]
H A Dpztrevc.f219 $ MYCOL, MYROW, NB, NPCOL, NPROW, RSRC local
263 CALL BLACS_GRIDINFO( CONTXT, NPROW, NPCOL, MYROW, MYCOL )
264 SELF = MYROW*NPCOL + MYCOL
324 IF( ( MYROW.EQ.ITMP1 ) .AND. ( MYCOL.EQ.ITMP2 ) ) THEN
362 IF( ( MYROW.EQ.ITMP1 ) .AND. ( MYCOL.EQ.ITMP2 ) ) THEN
371 IF( ( MYROW.EQ.ITMP1 ) .AND. ( MYCOL.EQ.ITMP2 ) ) THEN
385 IF( MYROW.EQ.ITMP1 .AND. MYCOL.EQ.ITMP2 ) THEN
411 IF( MYROW.EQ.ITMP1 .AND. MYCOL.EQ.ITMP2 ) THEN
474 IF( ( MYROW.EQ.ITMP1 ) .AND. ( MYCOL.EQ.ITMP2 ) ) THEN
496 IF( MYROW.EQ.ITMP1 .AND. MYCOL.EQ.ITMP2 ) THEN
[all …]
H A Dpclawil.f150 CALL BLACS_GRIDINFO( CONTXT, NPROW, NPCOL, MYROW, MYCOL )
153 UP = MOD( MYROW+NPROW-1, NPROW )
154 DOWN = MOD( MYROW+1, NPROW )
161 IF( ( MYROW.EQ.II ) .AND. ( RIGHT.EQ.JJ ) .AND.
178 IF( ( MYROW.EQ.II ) .AND. ( MYCOL.EQ.JJ ) ) THEN
182 CALL CGERV2D( CONTXT, 1, 1, V3, 1, MYROW, LEFT )
215 IF( ( MYROW.EQ.II ) .AND. ( RIGHT.EQ.JJ ) .AND.
222 IF( ( MYROW.EQ.II ) .AND. ( MYCOL.EQ.JJ ) ) THEN
236 CALL CGERV2D( CONTXT, 1, 1, H21, 1, MYROW, LEFT )
244 IF( ( MYROW.NE.II ) .OR. ( MYCOL.NE.JJ ) )
[all …]
H A Dpzlawil.f150 CALL BLACS_GRIDINFO( CONTXT, NPROW, NPCOL, MYROW, MYCOL )
153 UP = MOD( MYROW+NPROW-1, NPROW )
154 DOWN = MOD( MYROW+1, NPROW )
161 IF( ( MYROW.EQ.II ) .AND. ( RIGHT.EQ.JJ ) .AND.
178 IF( ( MYROW.EQ.II ) .AND. ( MYCOL.EQ.JJ ) ) THEN
182 CALL ZGERV2D( CONTXT, 1, 1, V3, 1, MYROW, LEFT )
215 IF( ( MYROW.EQ.II ) .AND. ( RIGHT.EQ.JJ ) .AND.
222 IF( ( MYROW.EQ.II ) .AND. ( MYCOL.EQ.JJ ) ) THEN
236 CALL ZGERV2D( CONTXT, 1, 1, H21, 1, MYROW, LEFT )
244 IF( ( MYROW.NE.II ) .OR. ( MYCOL.NE.JJ ) )
[all …]
H A Dpdlawil.f139 CALL BLACS_GRIDINFO( CONTXT, NPROW, NPCOL, MYROW, MYCOL )
142 UP = MOD( MYROW+NPROW-1, NPROW )
143 DOWN = MOD( MYROW+1, NPROW )
150 IF( ( MYROW.EQ.II ) .AND. ( RIGHT.EQ.JJ ) .AND.
167 IF( ( MYROW.EQ.II ) .AND. ( MYCOL.EQ.JJ ) ) THEN
171 CALL DGERV2D( CONTXT, 1, 1, V3, 1, MYROW, LEFT )
204 IF( ( MYROW.EQ.II ) .AND. ( RIGHT.EQ.JJ ) .AND.
211 IF( ( MYROW.EQ.II ) .AND. ( MYCOL.EQ.JJ ) ) THEN
225 CALL DGERV2D( CONTXT, 1, 1, H21, 1, MYROW, LEFT )
233 IF( ( MYROW.NE.II ) .OR. ( MYCOL.NE.JJ ) )
[all …]
H A Dpslawil.f139 CALL BLACS_GRIDINFO( CONTXT, NPROW, NPCOL, MYROW, MYCOL )
142 UP = MOD( MYROW+NPROW-1, NPROW )
143 DOWN = MOD( MYROW+1, NPROW )
150 IF( ( MYROW.EQ.II ) .AND. ( RIGHT.EQ.JJ ) .AND.
167 IF( ( MYROW.EQ.II ) .AND. ( MYCOL.EQ.JJ ) ) THEN
171 CALL SGERV2D( CONTXT, 1, 1, V3, 1, MYROW, LEFT )
204 IF( ( MYROW.EQ.II ) .AND. ( RIGHT.EQ.JJ ) .AND.
211 IF( ( MYROW.EQ.II ) .AND. ( MYCOL.EQ.JJ ) ) THEN
225 CALL SGERV2D( CONTXT, 1, 1, H21, 1, MYROW, LEFT )
233 IF( ( MYROW.NE.II ) .OR. ( MYCOL.NE.JJ ) )
[all …]
H A Dpdlaqr4.f247 NODE = MYROW*NPCOL + MYCOL
250 UP = MOD( MYROW+NPROW-1, NPROW )
251 DOWN = MOD( MYROW+1, NPROW )
272 IF ( MYROW .EQ. II ) THEN
326 IF( MYROW .EQ. II ) THEN
394 IF( MYROW .EQ. UP ) THEN
395 IF( MYROW .EQ. II ) THEN
407 IF( MYROW .EQ. II ) THEN
474 $ KLN, MYROW, RIGHT )
495 $ KLN, MYROW, LEFT )
[all …]
H A Dpslaqr4.f247 NODE = MYROW*NPCOL + MYCOL
250 UP = MOD( MYROW+NPROW-1, NPROW )
251 DOWN = MOD( MYROW+1, NPROW )
272 IF ( MYROW .EQ. II ) THEN
326 IF( MYROW .EQ. II ) THEN
394 IF( MYROW .EQ. UP ) THEN
395 IF( MYROW .EQ. II ) THEN
407 IF( MYROW .EQ. II ) THEN
474 $ KLN, MYROW, RIGHT )
495 $ KLN, MYROW, LEFT )
[all …]
H A Dpdlaqr2.f260 NODE = MYROW*NPCOL + MYCOL
263 UP = MOD( MYROW+NPROW-1, NPROW )
264 DOWN = MOD( MYROW+1, NPROW )
286 IF ( MYROW .EQ. II ) THEN
335 IF( MYROW .EQ. II ) THEN
402 IF( MYROW .EQ. UP ) THEN
403 IF( MYROW .EQ. II ) THEN
415 IF( MYROW .EQ. II ) THEN
484 $ KLN, MYROW, RIGHT )
505 $ KLN, MYROW, LEFT )
[all …]
H A Dpslaqr2.f260 NODE = MYROW*NPCOL + MYCOL
263 UP = MOD( MYROW+NPROW-1, NPROW )
264 DOWN = MOD( MYROW+1, NPROW )
286 IF ( MYROW .EQ. II ) THEN
335 IF( MYROW .EQ. II ) THEN
402 IF( MYROW .EQ. UP ) THEN
403 IF( MYROW .EQ. II ) THEN
415 IF( MYROW .EQ. II ) THEN
484 $ KLN, MYROW, RIGHT )
505 $ KLN, MYROW, LEFT )
[all …]
/dports/math/scalapack/scalapack-2.1.0/TOOLS/
H A Dpdlawrite.f43 $ LDA, MYCOL, MYROW, NPCOL, NPROW local
61 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
63 IF( MYROW.EQ.IRWRIT .AND. MYCOL.EQ.ICWRIT ) THEN
68 CALL INFOG2L( IA, JA, DESCA, NPROW, NPCOL, MYROW, MYCOL,
84 IF( MYROW.EQ.IRWRIT .AND. MYCOL.EQ.ICWRIT ) THEN
90 IF( MYROW.EQ.ICURROW .AND. MYCOL.EQ.ICURCOL ) THEN
101 IF( MYROW.EQ.ICURROW )
128 IF( MYROW.EQ.ICURROW )
168 IF( MYROW.EQ.ICURROW )
195 IF( MYROW.EQ.ICURROW )
[all …]
H A Dpslawrite.f43 $ LDA, MYCOL, MYROW, NPCOL, NPROW local
61 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
63 IF( MYROW.EQ.IRWRIT .AND. MYCOL.EQ.ICWRIT ) THEN
68 CALL INFOG2L( IA, JA, DESCA, NPROW, NPCOL, MYROW, MYCOL,
84 IF( MYROW.EQ.IRWRIT .AND. MYCOL.EQ.ICWRIT ) THEN
90 IF( MYROW.EQ.ICURROW .AND. MYCOL.EQ.ICURCOL ) THEN
101 IF( MYROW.EQ.ICURROW )
128 IF( MYROW.EQ.ICURROW )
168 IF( MYROW.EQ.ICURROW )
195 IF( MYROW.EQ.ICURROW )
[all …]
H A Dpclawrite.f43 $ LDA, MYCOL, MYROW, NPCOL, NPROW
61 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
63 IF( MYROW.EQ.IRWRIT .AND. MYCOL.EQ.ICWRIT ) THEN
68 CALL INFOG2L( IA, JA, DESCA, NPROW, NPCOL, MYROW, MYCOL,
84 IF( MYROW.EQ.IRWRIT .AND. MYCOL.EQ.ICWRIT ) THEN
90 IF( MYROW.EQ.ICURROW .AND. MYCOL.EQ.ICURCOL ) THEN
102 IF( MYROW.EQ.ICURROW )
132 IF( MYROW.EQ.ICURROW )
175 IF( MYROW.EQ.ICURROW )
205 IF( MYROW.EQ.ICURROW )
[all …]
H A Dpzlawrite.f43 $ LDA, MYCOL, MYROW, NPCOL, NPROW
61 CALL BLACS_GRIDINFO( ICTXT, NPROW, NPCOL, MYROW, MYCOL )
63 IF( MYROW.EQ.IRWRIT .AND. MYCOL.EQ.ICWRIT ) THEN
68 CALL INFOG2L( IA, JA, DESCA, NPROW, NPCOL, MYROW, MYCOL,
84 IF( MYROW.EQ.IRWRIT .AND. MYCOL.EQ.ICWRIT ) THEN
90 IF( MYROW.EQ.ICURROW .AND. MYCOL.EQ.ICURCOL ) THEN
102 IF( MYROW.EQ.ICURROW )
132 IF( MYROW.EQ.ICURROW )
175 IF( MYROW.EQ.ICURROW )
205 IF( MYROW.EQ.ICURROW )
[all …]
/dports/science/berkeleygw/BGW-2.0.0/BSE/full_solver/
H A Dpdlaprnt.f90133 LDA, MYCOL, MYROW, NPCOL, NPROW local
171 IF( MYROW.EQ.IRPRNT .AND. MYCOL.EQ.ICPRNT ) THEN
178 IF( MYROW.EQ.ICURROW .AND. MYCOL.EQ.ICURCOL ) THEN
181 ELSE IF( MYROW.EQ.IRPRNT .AND. MYCOL.EQ.ICPRNT ) THEN
190 IF( MYROW.EQ.ICURROW ) &
200 IF( MYROW.EQ.IRPRNT .AND. MYCOL.EQ.ICPRNT ) THEN
207 IF( MYROW.EQ.ICURROW .AND. MYCOL.EQ.ICURCOL ) THEN
219 IF( MYROW.EQ.ICURROW ) &
242 IF( MYROW.EQ.IRPRNT .AND. MYCOL.EQ.ICPRNT ) THEN
261 IF( MYROW.EQ.ICURROW ) &
[all …]

12345678910>>...47