/dports/math/scalapack/scalapack-2.1.0/SRC/ |
H A D | pdlansy.f | 212 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 D | pzlansy.f | 213 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 D | pdtrord.f | 2149 $ 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 D | pstrord.f | 2149 $ 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 D | pzlanhe.f | 212 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 D | pclanhe.f | 211 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 D | pdlaqr5.f | 527 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 D | pslaqr5.f | 527 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 D | pclansy.f | 212 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 D | pslansy.f | 211 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 D | pctrevc.f | 219 $ 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 D | pztrevc.f | 219 $ 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 D | pclawil.f | 150 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 D | pzlawil.f | 150 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 D | pdlawil.f | 139 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 D | pslawil.f | 139 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 D | pdlaqr4.f | 247 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 D | pslaqr4.f | 247 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 D | pdlaqr2.f | 260 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 D | pslaqr2.f | 260 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 D | pdlawrite.f | 43 $ 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 D | pslawrite.f | 43 $ 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 D | pclawrite.f | 43 $ 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 D | pzlawrite.f | 43 $ 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 D | pdlaprnt.f90 | 133 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 …]
|