| /dports/math/scalapack/scalapack-2.1.0/TOOLS/ |
| H A D | pdlawrite.f | 41 INTEGER H, I, IACOL, IAROW, IB, ICTXT, ICURCOL, local
71 ICURCOL = IACOL
83 IF( ICURROW.EQ.IRWRIT .AND. ICURCOL.EQ.ICWRIT ) THEN
95 $ ICURROW, ICURCOL )
122 $ ICURROW, ICURCOL )
138 IF( MYCOL.EQ.ICURCOL )
140 ICURCOL = MOD( ICURCOL+1, NPCOL )
162 $ ICURROW, ICURCOL )
189 $ ICURROW, ICURCOL )
205 IF( MYCOL.EQ.ICURCOL )
[all …]
|
| H A D | pslaprnt.f | 156 ICURCOL = IACOL
168 IF( ICURROW.EQ.IRPRNT .AND. ICURCOL.EQ.ICPRNT ) THEN
176 IF( MYROW.EQ.ICURROW .AND. MYCOL.EQ.ICURCOL ) THEN
181 $ ICURROW, ICURCOL )
210 $ ICURROW, ICURCOL )
227 IF( MYCOL.EQ.ICURCOL )
229 ICURCOL = MOD( ICURCOL+1, NPCOL )
252 $ ICURROW, ICURCOL )
281 $ ICURROW, ICURCOL )
298 IF( MYCOL.EQ.ICURCOL )
[all …]
|
| H A D | pslawrite.f | 41 INTEGER H, I, IACOL, IAROW, IB, ICTXT, ICURCOL, local
71 ICURCOL = IACOL
83 IF( ICURROW.EQ.IRWRIT .AND. ICURCOL.EQ.ICWRIT ) THEN
95 $ ICURROW, ICURCOL )
122 $ ICURROW, ICURCOL )
138 IF( MYCOL.EQ.ICURCOL )
140 ICURCOL = MOD( ICURCOL+1, NPCOL )
162 $ ICURROW, ICURCOL )
189 $ ICURROW, ICURCOL )
205 IF( MYCOL.EQ.ICURCOL )
[all …]
|
| H A D | pdlaprnt.f | 156 ICURCOL = IACOL
168 IF( ICURROW.EQ.IRPRNT .AND. ICURCOL.EQ.ICPRNT ) THEN
176 IF( MYROW.EQ.ICURROW .AND. MYCOL.EQ.ICURCOL ) THEN
181 $ ICURROW, ICURCOL )
210 $ ICURROW, ICURCOL )
227 IF( MYCOL.EQ.ICURCOL )
229 ICURCOL = MOD( ICURCOL+1, NPCOL )
252 $ ICURROW, ICURCOL )
281 $ ICURROW, ICURCOL )
298 IF( MYCOL.EQ.ICURCOL )
[all …]
|
| H A D | pilaprnt.f | 156 ICURCOL = IACOL
168 IF( ICURROW.EQ.IRPRNT .AND. ICURCOL.EQ.ICPRNT ) THEN
176 IF( MYROW.EQ.ICURROW .AND. MYCOL.EQ.ICURCOL ) THEN
181 $ ICURROW, ICURCOL )
210 $ ICURROW, ICURCOL )
227 IF( MYCOL.EQ.ICURCOL )
229 ICURCOL = MOD( ICURCOL+1, NPCOL )
252 $ ICURROW, ICURCOL )
281 $ ICURROW, ICURCOL )
298 IF( MYCOL.EQ.ICURCOL )
[all …]
|
| H A D | pclawrite.f | 41 INTEGER H, I, IACOL, IAROW, IB, ICTXT, ICURCOL,
71 ICURCOL = IACOL
83 IF( ICURROW.EQ.IRWRIT .AND. ICURCOL.EQ.ICWRIT ) THEN
95 $ ICURROW, ICURCOL )
125 $ ICURROW, ICURCOL )
142 IF( MYCOL.EQ.ICURCOL )
144 ICURCOL = MOD( ICURCOL+1, NPCOL )
168 $ ICURROW, ICURCOL )
198 $ ICURROW, ICURCOL )
215 IF( MYCOL.EQ.ICURCOL )
[all …]
|
| H A D | pclaprnt.f | 156 ICURCOL = IACOL
168 IF( ICURROW.EQ.IRPRNT .AND. ICURCOL.EQ.ICPRNT ) THEN
178 IF( MYROW.EQ.ICURROW .AND. MYCOL.EQ.ICURCOL ) THEN
183 $ ICURROW, ICURCOL )
215 $ ICURROW, ICURCOL )
233 IF( MYCOL.EQ.ICURCOL )
235 ICURCOL = MOD( ICURCOL+1, NPCOL )
260 $ ICURROW, ICURCOL )
292 $ ICURROW, ICURCOL )
310 IF( MYCOL.EQ.ICURCOL )
[all …]
|
| H A D | pzlawrite.f | 41 INTEGER H, I, IACOL, IAROW, IB, ICTXT, ICURCOL,
71 ICURCOL = IACOL
83 IF( ICURROW.EQ.IRWRIT .AND. ICURCOL.EQ.ICWRIT ) THEN
95 $ ICURROW, ICURCOL )
125 $ ICURROW, ICURCOL )
142 IF( MYCOL.EQ.ICURCOL )
144 ICURCOL = MOD( ICURCOL+1, NPCOL )
168 $ ICURROW, ICURCOL )
198 $ ICURROW, ICURCOL )
215 IF( MYCOL.EQ.ICURCOL )
[all …]
|
| H A D | pzlaprnt.f | 156 ICURCOL = IACOL
168 IF( ICURROW.EQ.IRPRNT .AND. ICURCOL.EQ.ICPRNT ) THEN
178 IF( MYROW.EQ.ICURROW .AND. MYCOL.EQ.ICURCOL ) THEN
183 $ ICURROW, ICURCOL )
215 $ ICURROW, ICURCOL )
233 IF( MYCOL.EQ.ICURCOL )
235 ICURCOL = MOD( ICURCOL+1, NPCOL )
260 $ ICURROW, ICURCOL )
292 $ ICURROW, ICURCOL )
310 IF( MYCOL.EQ.ICURCOL )
[all …]
|
| /dports/science/siesta/siesta-4.1.5/Util/MPI_test/ |
| H A D | pdlaprnt.f | 156 ICURCOL = IACOL
168 IF( ICURROW.EQ.IRPRNT .AND. ICURCOL.EQ.ICPRNT ) THEN
176 IF( MYROW.EQ.ICURROW .AND. MYCOL.EQ.ICURCOL ) THEN
181 $ ICURROW, ICURCOL )
210 $ ICURROW, ICURCOL )
227 IF( MYCOL.EQ.ICURCOL )
229 ICURCOL = MOD( ICURCOL+1, NPCOL )
252 $ ICURROW, ICURCOL )
281 $ ICURROW, ICURCOL )
298 IF( MYCOL.EQ.ICURCOL )
[all …]
|
| /dports/math/scalapack/scalapack-2.1.0/SRC/ |
| H A D | pdlansy.f | 321 ICURCOL = MOD( IACOL+1, NPCOL )
330 IF( MYCOL.EQ.ICURCOL ) THEN
364 ICURCOL = MOD( ICURCOL+1, NPCOL )
419 IF( MYCOL.EQ.ICURCOL ) THEN
453 ICURCOL = MOD( ICURCOL+1, NPCOL )
532 IF( MYCOL.EQ.ICURCOL ) THEN
574 ICURCOL = MOD( ICURCOL+1, NPCOL )
637 IF( MYCOL.EQ.ICURCOL ) THEN
679 ICURCOL = MOD( ICURCOL+1, NPCOL )
780 ICURCOL = MOD( ICURCOL+1, NPCOL )
[all …]
|
| H A D | pzlansy.f | 322 ICURCOL = MOD( IACOL+1, NPCOL )
331 IF( MYCOL.EQ.ICURCOL ) THEN
365 ICURCOL = MOD( ICURCOL+1, NPCOL )
420 IF( MYCOL.EQ.ICURCOL ) THEN
454 ICURCOL = MOD( ICURCOL+1, NPCOL )
533 IF( MYCOL.EQ.ICURCOL ) THEN
575 ICURCOL = MOD( ICURCOL+1, NPCOL )
638 IF( MYCOL.EQ.ICURCOL ) THEN
680 ICURCOL = MOD( ICURCOL+1, NPCOL )
781 ICURCOL = MOD( ICURCOL+1, NPCOL )
[all …]
|
| H A D | pclascl.f | 265 ICURCOL = IACOL
286 IF( MYCOL.EQ.ICURCOL ) THEN
308 ICURCOL = MOD( ICURCOL+1, NPCOL )
337 ICURCOL = MOD( ICURCOL+1, NPCOL )
349 IF( MYCOL.EQ.ICURCOL ) THEN
371 ICURCOL = MOD( ICURCOL+1, NPCOL )
400 ICURCOL = MOD( ICURCOL+1, NPCOL )
428 ICURCOL = MOD( ICURCOL+1, NPCOL )
446 ICURCOL = MOD( ICURCOL+1, NPCOL )
480 ICURCOL = MOD( ICURCOL+1, NPCOL )
[all …]
|
| H A D | pdlascl.f | 265 ICURCOL = IACOL
286 IF( MYCOL.EQ.ICURCOL ) THEN
308 ICURCOL = MOD( ICURCOL+1, NPCOL )
337 ICURCOL = MOD( ICURCOL+1, NPCOL )
349 IF( MYCOL.EQ.ICURCOL ) THEN
371 ICURCOL = MOD( ICURCOL+1, NPCOL )
400 ICURCOL = MOD( ICURCOL+1, NPCOL )
428 ICURCOL = MOD( ICURCOL+1, NPCOL )
446 ICURCOL = MOD( ICURCOL+1, NPCOL )
480 ICURCOL = MOD( ICURCOL+1, NPCOL )
[all …]
|
| H A D | pslascl.f | 265 ICURCOL = IACOL
286 IF( MYCOL.EQ.ICURCOL ) THEN
308 ICURCOL = MOD( ICURCOL+1, NPCOL )
337 ICURCOL = MOD( ICURCOL+1, NPCOL )
349 IF( MYCOL.EQ.ICURCOL ) THEN
371 ICURCOL = MOD( ICURCOL+1, NPCOL )
400 ICURCOL = MOD( ICURCOL+1, NPCOL )
428 ICURCOL = MOD( ICURCOL+1, NPCOL )
446 ICURCOL = MOD( ICURCOL+1, NPCOL )
480 ICURCOL = MOD( ICURCOL+1, NPCOL )
[all …]
|
| H A D | pzlascl.f | 265 ICURCOL = IACOL
286 IF( MYCOL.EQ.ICURCOL ) THEN
308 ICURCOL = MOD( ICURCOL+1, NPCOL )
337 ICURCOL = MOD( ICURCOL+1, NPCOL )
349 IF( MYCOL.EQ.ICURCOL ) THEN
371 ICURCOL = MOD( ICURCOL+1, NPCOL )
400 ICURCOL = MOD( ICURCOL+1, NPCOL )
428 ICURCOL = MOD( ICURCOL+1, NPCOL )
446 ICURCOL = MOD( ICURCOL+1, NPCOL )
480 ICURCOL = MOD( ICURCOL+1, NPCOL )
[all …]
|
| H A D | pclatra.f | 112 INTEGER ICURCOL, ICURROW, II, IOFFA, J, JB, JJ, JN, local
139 $ ICURROW, ICURCOL )
148 IF( MYROW.EQ.ICURROW .AND. MYCOL.EQ.ICURCOL ) THEN
155 IF( MYCOL.EQ.ICURCOL )
158 ICURCOL = MOD( ICURCOL+1, NPCOL )
165 IF( MYROW.EQ.ICURROW .AND. MYCOL.EQ.ICURCOL ) THEN
172 IF( MYCOL.EQ.ICURCOL )
175 ICURCOL = MOD( ICURCOL+1, NPCOL )
|
| H A D | pdlatra.f | 112 INTEGER ICURCOL, ICURROW, II, IOFFA, J, JB, JJ, JN, local
139 $ ICURROW, ICURCOL )
148 IF( MYROW.EQ.ICURROW .AND. MYCOL.EQ.ICURCOL ) THEN
155 IF( MYCOL.EQ.ICURCOL )
158 ICURCOL = MOD( ICURCOL+1, NPCOL )
165 IF( MYROW.EQ.ICURROW .AND. MYCOL.EQ.ICURCOL ) THEN
172 IF( MYCOL.EQ.ICURCOL )
175 ICURCOL = MOD( ICURCOL+1, NPCOL )
|
| H A D | pslatra.f | 112 INTEGER ICURCOL, ICURROW, II, IOFFA, J, JB, JJ, JN, local
139 $ ICURROW, ICURCOL )
148 IF( MYROW.EQ.ICURROW .AND. MYCOL.EQ.ICURCOL ) THEN
155 IF( MYCOL.EQ.ICURCOL )
158 ICURCOL = MOD( ICURCOL+1, NPCOL )
165 IF( MYROW.EQ.ICURROW .AND. MYCOL.EQ.ICURCOL ) THEN
172 IF( MYCOL.EQ.ICURCOL )
175 ICURCOL = MOD( ICURCOL+1, NPCOL )
|
| H A D | pzlatra.f | 112 INTEGER ICURCOL, ICURROW, II, IOFFA, J, JB, JJ, JN,
139 $ ICURROW, ICURCOL )
148 IF( MYROW.EQ.ICURROW .AND. MYCOL.EQ.ICURCOL ) THEN
155 IF( MYCOL.EQ.ICURCOL )
158 ICURCOL = MOD( ICURCOL+1, NPCOL )
165 IF( MYROW.EQ.ICURROW .AND. MYCOL.EQ.ICURCOL ) THEN
172 IF( MYCOL.EQ.ICURCOL )
175 ICURCOL = MOD( ICURCOL+1, NPCOL )
|
| H A D | pclansy.f | 321 ICURCOL = MOD( IACOL+1, NPCOL )
330 IF( MYCOL.EQ.ICURCOL ) THEN
364 ICURCOL = MOD( ICURCOL+1, NPCOL )
419 IF( MYCOL.EQ.ICURCOL ) THEN
453 ICURCOL = MOD( ICURCOL+1, NPCOL )
532 IF( MYCOL.EQ.ICURCOL ) THEN
574 ICURCOL = MOD( ICURCOL+1, NPCOL )
637 IF( MYCOL.EQ.ICURCOL ) THEN
679 ICURCOL = MOD( ICURCOL+1, NPCOL )
780 ICURCOL = MOD( ICURCOL+1, NPCOL )
[all …]
|
| H A D | pslansy.f | 320 ICURCOL = MOD( IACOL+1, NPCOL )
329 IF( MYCOL.EQ.ICURCOL ) THEN
363 ICURCOL = MOD( ICURCOL+1, NPCOL )
418 IF( MYCOL.EQ.ICURCOL ) THEN
452 ICURCOL = MOD( ICURCOL+1, NPCOL )
531 IF( MYCOL.EQ.ICURCOL ) THEN
573 ICURCOL = MOD( ICURCOL+1, NPCOL )
636 IF( MYCOL.EQ.ICURCOL ) THEN
678 ICURCOL = MOD( ICURCOL+1, NPCOL )
779 ICURCOL = MOD( ICURCOL+1, NPCOL )
[all …]
|
| H A D | pzlanhe.f | 328 ICURCOL = MOD( IACOL+1, NPCOL )
337 IF( MYCOL.EQ.ICURCOL ) THEN
381 ICURCOL = MOD( ICURCOL+1, NPCOL )
445 IF( MYCOL.EQ.ICURCOL ) THEN
489 ICURCOL = MOD( ICURCOL+1, NPCOL )
574 IF( MYCOL.EQ.ICURCOL ) THEN
625 ICURCOL = MOD( ICURCOL+1, NPCOL )
695 IF( MYCOL.EQ.ICURCOL ) THEN
746 ICURCOL = MOD( ICURCOL+1, NPCOL )
852 ICURCOL = MOD( ICURCOL+1, NPCOL )
[all …]
|
| H A D | pclanhe.f | 327 ICURCOL = MOD( IACOL+1, NPCOL )
336 IF( MYCOL.EQ.ICURCOL ) THEN
380 ICURCOL = MOD( ICURCOL+1, NPCOL )
444 IF( MYCOL.EQ.ICURCOL ) THEN
488 ICURCOL = MOD( ICURCOL+1, NPCOL )
573 IF( MYCOL.EQ.ICURCOL ) THEN
624 ICURCOL = MOD( ICURCOL+1, NPCOL )
694 IF( MYCOL.EQ.ICURCOL ) THEN
745 ICURCOL = MOD( ICURCOL+1, NPCOL )
851 ICURCOL = MOD( ICURCOL+1, NPCOL )
[all …]
|
| /dports/science/berkeleygw/BGW-2.0.0/BSE/full_solver/ |
| H A D | pdlaprnt.f90 | 170 IF( ICURROW.EQ.IRPRNT .AND. ICURCOL.EQ.ICPRNT ) THEN
178 IF( MYROW.EQ.ICURROW .AND. MYCOL.EQ.ICURCOL ) THEN
183 ICURROW, ICURCOL )
199 IF( ICURROW.EQ.IRPRNT .AND. ICURCOL.EQ.ICPRNT ) THEN
207 IF( MYROW.EQ.ICURROW .AND. MYCOL.EQ.ICURCOL ) THEN
212 ICURROW, ICURCOL )
241 IF( ICURROW.EQ.IRPRNT .AND. ICURCOL.EQ.ICPRNT ) THEN
254 ICURROW, ICURCOL )
283 ICURROW, ICURCOL )
300 IF( MYCOL.EQ.ICURCOL ) &
[all …]
|