/dports/math/scalapack/scalapack-2.1.0/SRC/ |
H A D | pcunm2r.f | 222 $ 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 D | pcpoequ.f | 162 $ 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 D | pspoequ.f | 161 $ 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 D | pdpoequ.f | 161 $ 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 D | pzpoequ.f | 162 $ 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 D | pdlaevswp.f | 141 $ 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 D | pdlapiv.f | 208 $ 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 D | pclapiv.f | 208 $ 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 D | pcungr2.f | 170 $ 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 D | pslaevswp.f | 141 $ 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 D | pslapiv.f | 208 $ 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 D | pzlaevswp.f | 142 $ 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 D | pzlapiv.f | 208 $ 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 D | pclaevswp.f | 142 $ 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 D | pzungr2.f | 170 $ 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 D | pdlassq.f | 147 $ 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 D | pclaswp.f | 144 $ 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 D | pcget22.f | 107 $ 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 D | pzget22.f | 107 $ 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 D | pslafchk.f | 158 $ 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 D | pdlafchk.f | 158 $ 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 D | pdlafchk.f | 158 $ 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 D | pslafchk.f | 158 $ 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 D | dmain.f90 | 73 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 D | zmain.f90 | 73 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 …]
|