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

◆ inter_len() [2/2]

static2 Int inter_len ( Int  hinb,
IDESC hi,
Int  vinb,
IDESC vi 
)

Definition at line 673 of file pcgemr.c.

675{
676 Int hlen, vlen, h, v;
677 hlen = 0;
678 for (h = 0; h < hinb; h++)
679 hlen += hi[h].len;
680 vlen = 0;
681 for (v = 0; v < vinb; v++)
682 vlen += vi[v].len;
683 return hlen * vlen;
#define Int
Definition Bconfig.h:22