Home
last modified time | relevance | path

Searched refs:NPCOL (Results 1 – 25 of 1245) sorted by relevance

12345678910>>...50

/dports/math/scalapack/scalapack-2.1.0/SRC/
H A Dpclasmsub.f184 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 Dpdlasmsub.f176 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 Dpslasmsub.f176 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 Dpzlasmsub.f184 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 DPB_Cainfog2l.c472 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 DPB_Cinfog2l.c20 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 DHPL_infog2l.c66 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 Dpcdbmv1.f382 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 Dpddbmv1.f379 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 Dpdgbmv1.f379 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 Dpzdbmv1.f382 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 Dpcgbmv1.f382 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 Dpsdbmv1.f379 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 Dpsgbmv1.f379 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 Dpzgbmv1.f382 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 Dpdlasizesqp.f103 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 Dpslasizesqp.f103 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 Dpccol2row.f119 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 Dpdcol2row.f121 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 Dpscol2row.f122 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 Dpcrow2col.f116 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 Dpdrow2col.f119 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 Dpirow2col.f119 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 Dpzcol2row.f119 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 Dpzrow2col.f116 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 …]

12345678910>>...50