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

◆ trsize

#define trsize (   diag,
  m,
  n,
  bytes,
  length 
)
Value:
{\
if ( (diag) == 'u' ) (length) = 1;\
else (length) = 0;\
if ( (m) > (n) )\
(length) = ( (n) * ( (m) - (n) ) + ( (n)*(n) ) - ( (n)*(n) )/2 +\
(n)/2 - (n) * (length) ) * (bytes);\
else\
(length) = ( (m) * ( (n) - (m) ) + ( (m)*(m) ) - ( (m)*(m) )/2 +\
(m)/2 - (m) * (length) ) * (bytes);\
}

Definition at line 275 of file Bdef.h.

276{\
277 if ( (diag) == 'u' ) (length) = 1;\
278 else (length) = 0;\
279 if ( (m) > (n) )\
280 (length) = ( (n) * ( (m) - (n) ) + ( (n)*(n) ) - ( (n)*(n) )/2 +\
281 (n)/2 - (n) * (length) ) * (bytes);\
282 else\
283 (length) = ( (m) * ( (n) - (m) ) + ( (m)*(m) ) - ( (m)*(m) )/2 +\
284 (m)/2 - (m) * (length) ) * (bytes);\
285}