/dports/math/scalapack/scalapack-2.1.0/SRC/ |
H A D | pclasmsub.f | 184 LEFT = MOD( MYCOL+NPCOL-1, NPCOL ) 185 RIGHT = MOD( MYCOL+1, NPCOL ) 188 NUM = NPROW*NPCOL 197 II = ISTR2 / ILCM( NPROW, NPCOL ) 198 IF( II*ILCM( NPROW, NPCOL ).LT.ISTR2 ) THEN 239 IF( NPCOL.GT.1 ) THEN 257 IF( ( MODKM1.EQ.0 ) .AND. ( NPCOL.GT.1 ) ) THEN 273 $ JJ = NPCOL - 1 326 IF( NPCOL.GT.1 ) THEN 348 ICOL2 = NUMROC( I, HBL, MYCOL, 0, NPCOL ) [all …]
|
H A D | pdlasmsub.f | 176 CALL BLACS_GRIDINFO( CONTXT, NPROW, NPCOL, MYROW, MYCOL ) 177 LEFT = MOD( MYCOL+NPCOL-1, NPCOL ) 178 RIGHT = MOD( MYCOL+1, NPCOL ) 181 NUM = NPROW*NPCOL 190 II = ISTR2 / ILCM( NPROW, NPCOL ) 191 IF( II*ILCM( NPROW, NPCOL ).LT.ISTR2 ) THEN 232 IF( NPCOL.GT.1 ) THEN 250 IF( ( MODKM1.EQ.0 ) .AND. ( NPCOL.GT.1 ) ) THEN 266 $ JJ = NPCOL - 1 319 IF( NPCOL.GT.1 ) THEN [all …]
|
H A D | pslasmsub.f | 176 CALL BLACS_GRIDINFO( CONTXT, NPROW, NPCOL, MYROW, MYCOL ) 177 LEFT = MOD( MYCOL+NPCOL-1, NPCOL ) 178 RIGHT = MOD( MYCOL+1, NPCOL ) 181 NUM = NPROW*NPCOL 190 II = ISTR2 / ILCM( NPROW, NPCOL ) 191 IF( II*ILCM( NPROW, NPCOL ).LT.ISTR2 ) THEN 232 IF( NPCOL.GT.1 ) THEN 250 IF( ( MODKM1.EQ.0 ) .AND. ( NPCOL.GT.1 ) ) THEN 266 $ JJ = NPCOL - 1 319 IF( NPCOL.GT.1 ) THEN [all …]
|
H A D | pzlasmsub.f | 184 LEFT = MOD( MYCOL+NPCOL-1, NPCOL ) 185 RIGHT = MOD( MYCOL+1, NPCOL ) 188 NUM = NPROW*NPCOL 197 II = ISTR2 / ILCM( NPROW, NPCOL ) 198 IF( II*ILCM( NPROW, NPCOL ).LT.ISTR2 ) THEN 239 IF( NPCOL.GT.1 ) THEN 257 IF( ( MODKM1.EQ.0 ) .AND. ( NPCOL.GT.1 ) ) THEN 273 $ JJ = NPCOL - 1 326 IF( NPCOL.GT.1 ) THEN 348 ICOL2 = NUMROC( I, HBL, MYCOL, 0, NPCOL ) [all …]
|
/dports/math/scalapack/scalapack-2.1.0/PBLAS/SRC/PTOOLS/ |
H A D | PB_Cainfog2l.c | 472 if( ( csrc == -1 ) || ( NPCOL == 1 ) ) 498 *PCOL -= ( *PCOL / NPCOL ) * NPCOL; 500 if( nblocks < NPCOL ) 506 ilocblk = nblocks / NPCOL; 522 *PCOL -= ( *PCOL / NPCOL ) * NPCOL; 526 if( nblocks < NPCOL ) 534 ilocblk = nblocks / NPCOL; 555 if( nblocks < NPCOL ) 561 ilocblk = nblocks / NPCOL; 571 if( nblocks < NPCOL ) [all …]
|
H A D | PB_Cinfog2l.c | 20 void PB_Cinfog2l( int I, int J, int * DESC, int NPROW, int NPCOL, in PB_Cinfog2l() argument 24 void PB_Cinfog2l( I, J, DESC, NPROW, NPCOL, MYROW, MYCOL, II, JJ, in PB_Cinfog2l() 303 if( ( *PCOL == -1 ) || ( NPCOL == 1 ) ) 320 *PCOL -= ( *PCOL / NPCOL ) * NPCOL; 322 if( nblocks < NPCOL ) 328 ilocblk = nblocks / NPCOL; 329 if( ilocblk * NPCOL >= nblocks ) 344 *PCOL -= ( *PCOL / NPCOL ) * NPCOL; 348 if( nblocks < NPCOL ) 356 ilocblk = nblocks / NPCOL; [all …]
|
/dports/benchmarks/hpl/hpl-2.3/src/pauxil/ |
H A D | HPL_infog2l.c | 66 const int NPCOL, in HPL_infog2l() argument 86 const int NPCOL; 316 if( ( *PCOL == -1 ) || ( NPCOL == 1 ) ) 333 *PCOL -= ( *PCOL / NPCOL ) * NPCOL; 335 if( nblocks < NPCOL ) 341 ilocblk = nblocks / NPCOL; 342 if( ilocblk * NPCOL >= nblocks ) 358 *PCOL -= ( *PCOL / NPCOL ) * NPCOL; 362 if( nblocks < NPCOL ) 370 ilocblk = nblocks / NPCOL; [all …]
|
/dports/math/scalapack/scalapack-2.1.0/TESTING/LIN/ |
H A D | pcdbmv1.f | 382 NP = NPROW * NPCOL 531 PART_OFFSET = NB*( (JA-1)/(NPCOL*NB) ) 547 FIRST_PROC = MOD( ( JA-1 )/NB+CSRC, NPCOL ) 612 $ NUMROC( N, PART_SIZE, MYCOL, 0, NPCOL) 646 IF( MYCOL .LT. NPCOL-1 ) THEN 668 IF ( MYCOL .LT. NPCOL-1 ) THEN 743 IF( MYCOL .LT. NPCOL-1 ) THEN 782 IF( MYCOL .LT. NPCOL-1 ) THEN 813 IF( MYCOL .LT. NPCOL-1 ) THEN 839 IF ( MYCOL .LT. NPCOL-1 ) THEN [all …]
|
H A D | pddbmv1.f | 379 NP = NPROW * NPCOL 530 PART_OFFSET = NB*( (JA-1)/(NPCOL*NB) ) 546 FIRST_PROC = MOD( ( JA-1 )/NB+CSRC, NPCOL ) 611 $ NUMROC( N, PART_SIZE, MYCOL, 0, NPCOL) 645 IF( MYCOL .LT. NPCOL-1 ) THEN 667 IF ( MYCOL .LT. NPCOL-1 ) THEN 742 IF( MYCOL .LT. NPCOL-1 ) THEN 781 IF( MYCOL .LT. NPCOL-1 ) THEN 812 IF( MYCOL .LT. NPCOL-1 ) THEN 838 IF ( MYCOL .LT. NPCOL-1 ) THEN [all …]
|
H A D | pdgbmv1.f | 379 NP = NPROW * NPCOL 530 PART_OFFSET = NB*( (JA-1)/(NPCOL*NB) ) 546 FIRST_PROC = MOD( ( JA-1 )/NB+CSRC, NPCOL ) 611 $ NUMROC( N, PART_SIZE, MYCOL, 0, NPCOL) 645 IF( MYCOL .LT. NPCOL-1 ) THEN 667 IF ( MYCOL .LT. NPCOL-1 ) THEN 742 IF( MYCOL .LT. NPCOL-1 ) THEN 781 IF( MYCOL .LT. NPCOL-1 ) THEN 812 IF( MYCOL .LT. NPCOL-1 ) THEN 838 IF ( MYCOL .LT. NPCOL-1 ) THEN [all …]
|
H A D | pzdbmv1.f | 382 NP = NPROW * NPCOL 531 PART_OFFSET = NB*( (JA-1)/(NPCOL*NB) ) 547 FIRST_PROC = MOD( ( JA-1 )/NB+CSRC, NPCOL ) 612 $ NUMROC( N, PART_SIZE, MYCOL, 0, NPCOL) 646 IF( MYCOL .LT. NPCOL-1 ) THEN 668 IF ( MYCOL .LT. NPCOL-1 ) THEN 743 IF( MYCOL .LT. NPCOL-1 ) THEN 782 IF( MYCOL .LT. NPCOL-1 ) THEN 813 IF( MYCOL .LT. NPCOL-1 ) THEN 839 IF ( MYCOL .LT. NPCOL-1 ) THEN [all …]
|
H A D | pcgbmv1.f | 382 NP = NPROW * NPCOL 531 PART_OFFSET = NB*( (JA-1)/(NPCOL*NB) ) 547 FIRST_PROC = MOD( ( JA-1 )/NB+CSRC, NPCOL ) 612 $ NUMROC( N, PART_SIZE, MYCOL, 0, NPCOL) 646 IF( MYCOL .LT. NPCOL-1 ) THEN 668 IF ( MYCOL .LT. NPCOL-1 ) THEN 743 IF( MYCOL .LT. NPCOL-1 ) THEN 782 IF( MYCOL .LT. NPCOL-1 ) THEN 813 IF( MYCOL .LT. NPCOL-1 ) THEN 839 IF ( MYCOL .LT. NPCOL-1 ) THEN [all …]
|
H A D | psdbmv1.f | 379 NP = NPROW * NPCOL 530 PART_OFFSET = NB*( (JA-1)/(NPCOL*NB) ) 546 FIRST_PROC = MOD( ( JA-1 )/NB+CSRC, NPCOL ) 611 $ NUMROC( N, PART_SIZE, MYCOL, 0, NPCOL) 645 IF( MYCOL .LT. NPCOL-1 ) THEN 667 IF ( MYCOL .LT. NPCOL-1 ) THEN 742 IF( MYCOL .LT. NPCOL-1 ) THEN 781 IF( MYCOL .LT. NPCOL-1 ) THEN 812 IF( MYCOL .LT. NPCOL-1 ) THEN 838 IF ( MYCOL .LT. NPCOL-1 ) THEN [all …]
|
H A D | psgbmv1.f | 379 NP = NPROW * NPCOL 530 PART_OFFSET = NB*( (JA-1)/(NPCOL*NB) ) 546 FIRST_PROC = MOD( ( JA-1 )/NB+CSRC, NPCOL ) 611 $ NUMROC( N, PART_SIZE, MYCOL, 0, NPCOL) 645 IF( MYCOL .LT. NPCOL-1 ) THEN 667 IF ( MYCOL .LT. NPCOL-1 ) THEN 742 IF( MYCOL .LT. NPCOL-1 ) THEN 781 IF( MYCOL .LT. NPCOL-1 ) THEN 812 IF( MYCOL .LT. NPCOL-1 ) THEN 838 IF ( MYCOL .LT. NPCOL-1 ) THEN [all …]
|
H A D | pzgbmv1.f | 382 NP = NPROW * NPCOL 531 PART_OFFSET = NB*( (JA-1)/(NPCOL*NB) ) 547 FIRST_PROC = MOD( ( JA-1 )/NB+CSRC, NPCOL ) 612 $ NUMROC( N, PART_SIZE, MYCOL, 0, NPCOL) 646 IF( MYCOL .LT. NPCOL-1 ) THEN 668 IF ( MYCOL .LT. NPCOL-1 ) THEN 743 IF( MYCOL .LT. NPCOL-1 ) THEN 782 IF( MYCOL .LT. NPCOL-1 ) THEN 813 IF( MYCOL .LT. NPCOL-1 ) THEN 839 IF ( MYCOL .LT. NPCOL-1 ) THEN [all …]
|
/dports/math/scalapack/scalapack-2.1.0/TESTING/EIG/ |
H A D | pdlasizesqp.f | 103 LCM = ILCM( NPROW, NPCOL ) 104 LCMQ = LCM / NPCOL 108 IACOL = INDXG2P( 1, NB, MYCOL, CSRC_A, NPCOL ) 110 NQ = NUMROC( N+ICOFFA, NB, MYCOL, IACOL, NPCOL ) 120 MQ0 = NUMROC( N, DESCA( NB_ ), 0, 0, NPCOL ) 127 MQ0 = NUMROC( MAX( NEIG, NB, 2 ), NB, 0, 0, NPCOL ) 129 $ ICEIL( NEIG, NPROW*NPCOL )*NN 130 NNP = MAX( N, NPROW*NPCOL+1, 4 ) 136 $ NPROW*NPCOL, 1 ) 144 NQ = NUMROC( N, NB, MYCOL, IACOL, NPCOL ) [all …]
|
H A D | pslasizesqp.f | 103 LCM = ILCM( NPROW, NPCOL ) 104 LCMQ = LCM / NPCOL 108 IACOL = INDXG2P( 1, NB, MYCOL, CSRC_A, NPCOL ) 110 NQ = NUMROC( N+ICOFFA, NB, MYCOL, IACOL, NPCOL ) 120 MQ0 = NUMROC( N, DESCA( NB_ ), 0, 0, NPCOL ) 127 MQ0 = NUMROC( MAX( NEIG, NB, 2 ), NB, 0, 0, NPCOL ) 129 $ ICEIL( NEIG, NPROW*NPCOL )*NN 130 NNP = MAX( N, NPROW*NPCOL+1, 4 ) 136 $ NPROW*NPCOL, 1 ) 144 NQ = NUMROC( N, NB, MYCOL, IACOL, NPCOL ) [all …]
|
/dports/math/scalapack/scalapack-2.1.0/TOOLS/ |
H A D | pccol2row.f | 119 IF( NPROW.NE.NPCOL ) THEN 120 LCM = ILCM( NPROW, NPCOL ) 121 RBLKSKIP = LCM / NPCOL 135 ICDEST = MOD( CDEST+MYDIST, NPCOL ) 172 ICDEST = MOD(ICDEST+NPROW, NPCOL) 185 MYDIST = MOD( NPCOL+MYCOL-CDEST, NPCOL ) 186 MQ = NUMROC( M, NB, MYCOL, CDEST, NPCOL ) 224 IRSRC = MOD( IRSRC+NPCOL, NPROW ) 240 ICDEST = MOD( CDEST+MYDIST, NPCOL ) 254 MYDIST = MOD( NPCOL+MYCOL-CDEST, NPCOL ) [all …]
|
H A D | pdcol2row.f | 121 IF( NPROW.NE.NPCOL ) THEN 122 LCM = ILCM( NPROW, NPCOL ) 123 RBLKSKIP = LCM / NPCOL 137 ICDEST = MOD( CDEST+MYDIST, NPCOL ) 174 ICDEST = MOD(ICDEST+NPROW, NPCOL) 187 MYDIST = MOD( NPCOL+MYCOL-CDEST, NPCOL ) 188 MQ = NUMROC( M, NB, MYCOL, CDEST, NPCOL ) 226 IRSRC = MOD( IRSRC+NPCOL, NPROW ) 242 ICDEST = MOD( CDEST+MYDIST, NPCOL ) 256 MYDIST = MOD( NPCOL+MYCOL-CDEST, NPCOL ) [all …]
|
H A D | pscol2row.f | 122 IF( NPROW.NE.NPCOL ) THEN 123 LCM = ILCM( NPROW, NPCOL ) 124 RBLKSKIP = LCM / NPCOL 138 ICDEST = MOD( CDEST+MYDIST, NPCOL ) 175 ICDEST = MOD(ICDEST+NPROW, NPCOL) 188 MYDIST = MOD( NPCOL+MYCOL-CDEST, NPCOL ) 189 MQ = NUMROC( M, NB, MYCOL, CDEST, NPCOL ) 227 IRSRC = MOD( IRSRC+NPCOL, NPROW ) 243 ICDEST = MOD( CDEST+MYDIST, NPCOL ) 257 MYDIST = MOD( NPCOL+MYCOL-CDEST, NPCOL ) [all …]
|
H A D | pcrow2col.f | 116 IF( NPROW .NE. NPCOL ) THEN 117 LCM = ILCM( NPROW, NPCOL ) 118 RBLKSKIP = LCM / NPCOL 130 MYDIST = MOD( NPCOL+MYCOL-CSRC, NPCOL ) 131 MQ = NUMROC( M, NB, MYCOL, CSRC, NPCOL ) 168 IRDEST = MOD( IRDEST+NPCOL, NPROW ) 183 ICSRC = MOD( CSRC+MYDIST, NPCOL ) 223 ICSRC = MOD( ICSRC+NPROW, NPCOL ) 237 MYDIST = MOD( NPCOL+MYCOL-CSRC, NPCOL ) 238 MQ = NUMROC( M, NB, MYCOL, CSRC, NPCOL ) [all …]
|
H A D | pdrow2col.f | 119 IF( NPROW .NE. NPCOL ) THEN 120 LCM = ILCM( NPROW, NPCOL ) 121 RBLKSKIP = LCM / NPCOL 133 MYDIST = MOD( NPCOL+MYCOL-CSRC, NPCOL ) 134 MQ = NUMROC( M, NB, MYCOL, CSRC, NPCOL ) 171 IRDEST = MOD( IRDEST+NPCOL, NPROW ) 186 ICSRC = MOD( CSRC+MYDIST, NPCOL ) 226 ICSRC = MOD( ICSRC+NPROW, NPCOL ) 240 MYDIST = MOD( NPCOL+MYCOL-CSRC, NPCOL ) 241 MQ = NUMROC( M, NB, MYCOL, CSRC, NPCOL ) [all …]
|
H A D | pirow2col.f | 119 IF( NPROW .NE. NPCOL ) THEN 120 LCM = ILCM( NPROW, NPCOL ) 121 RBLKSKIP = LCM / NPCOL 133 MYDIST = MOD( NPCOL+MYCOL-CSRC, NPCOL ) 134 MQ = NUMROC( M, NB, MYCOL, CSRC, NPCOL ) 171 IRDEST = MOD( IRDEST+NPCOL, NPROW ) 186 ICSRC = MOD( CSRC+MYDIST, NPCOL ) 226 ICSRC = MOD( ICSRC+NPROW, NPCOL ) 240 MYDIST = MOD( NPCOL+MYCOL-CSRC, NPCOL ) 241 MQ = NUMROC( M, NB, MYCOL, CSRC, NPCOL ) [all …]
|
H A D | pzcol2row.f | 119 IF( NPROW.NE.NPCOL ) THEN 120 LCM = ILCM( NPROW, NPCOL ) 121 RBLKSKIP = LCM / NPCOL 135 ICDEST = MOD( CDEST+MYDIST, NPCOL ) 172 ICDEST = MOD(ICDEST+NPROW, NPCOL) 185 MYDIST = MOD( NPCOL+MYCOL-CDEST, NPCOL ) 186 MQ = NUMROC( M, NB, MYCOL, CDEST, NPCOL ) 224 IRSRC = MOD( IRSRC+NPCOL, NPROW ) 240 ICDEST = MOD( CDEST+MYDIST, NPCOL ) 254 MYDIST = MOD( NPCOL+MYCOL-CDEST, NPCOL ) [all …]
|
H A D | pzrow2col.f | 116 IF( NPROW .NE. NPCOL ) THEN 117 LCM = ILCM( NPROW, NPCOL ) 118 RBLKSKIP = LCM / NPCOL 130 MYDIST = MOD( NPCOL+MYCOL-CSRC, NPCOL ) 131 MQ = NUMROC( M, NB, MYCOL, CSRC, NPCOL ) 168 IRDEST = MOD( IRDEST+NPCOL, NPROW ) 183 ICSRC = MOD( CSRC+MYDIST, NPCOL ) 223 ICSRC = MOD( ICSRC+NPROW, NPCOL ) 237 MYDIST = MOD( NPCOL+MYCOL-CSRC, NPCOL ) 238 MQ = NUMROC( M, NB, MYCOL, CSRC, NPCOL ) [all …]
|