SCALAPACK 2.2.2
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches

◆ Mindxl2g

#define Mindxl2g (   ig_,
  il_,
  inb_,
  nb_,
  proc_,
  srcproc_,
  nprocs_ 
)
Value:
{ \
if( ( (srcproc_) >= 0 ) && ( (nprocs_) > 1 ) ) \
{ \
if( (proc_) == (srcproc_) ) \
{ \
if( (il_) < (inb_) ) ig_ = (il_); \
else ig_ = (il_) + \
(nb_)*((nprocs_)-1)*( ((il_)-(inb_)) / (nb_) + 1 ); \
} \
else if( (proc_) < (srcproc_) ) \
{ \
ig_ = (il_) + (inb_) + \
(nb_)*( ((nprocs_)-1)*((il_)/(nb_)) + \
(proc_)-(srcproc_)-1+(nprocs_) ); \
} \
else \
{ \
ig_ = (il_) + (inb_) + \
(nb_)*( ((nprocs_)-1)*((il_)/(nb_)) + \
(proc_)-(srcproc_)-1 ); \
} \
} \
else \
{ \
ig_ = (il_); \
} \
}

Definition at line 170 of file PBtools.h.

171 { \
172 if( ( (srcproc_) >= 0 ) && ( (nprocs_) > 1 ) ) \
173 { \
174 if( (proc_) == (srcproc_) ) \
175 { \
176 if( (il_) < (inb_) ) ig_ = (il_); \
177 else ig_ = (il_) + \
178 (nb_)*((nprocs_)-1)*( ((il_)-(inb_)) / (nb_) + 1 ); \
179 } \
180 else if( (proc_) < (srcproc_) ) \
181 { \
182 ig_ = (il_) + (inb_) + \
183 (nb_)*( ((nprocs_)-1)*((il_)/(nb_)) + \
184 (proc_)-(srcproc_)-1+(nprocs_) ); \
185 } \
186 else \
187 { \
188 ig_ = (il_) + (inb_) + \
189 (nb_)*( ((nprocs_)-1)*((il_)/(nb_)) + \
190 (proc_)-(srcproc_)-1 ); \
191 } \
192 } \
193 else \
194 { \
195 ig_ = (il_); \
196 } \
197 }