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

◆ Mmalloc

#define Mmalloc (   M_ptr,
  M_type,
  M_elt,
  M_i,
  M_ctxt 
)
Value:
{ \
void pberror_(); \
(M_ptr) = ( M_type * ) malloc((M_elt)*(sizeof(M_type))); \
if (!(M_ptr)) \
{ \
if ((M_elt) > 0) \
{ \
(M_i) = 1; \
fprintf(stderr, "Not enough memory on line %d of file %s!!\n", \
__LINE__, __FILE__); \
pberror_(&(M_ctxt), __FILE__, &(M_i)); \
} \
} \
}

Definition at line 32 of file tools.h.

33{ \
34 void pberror_(); \
35 (M_ptr) = ( M_type * ) malloc((M_elt)*(sizeof(M_type))); \
36 if (!(M_ptr)) \
37 { \
38 if ((M_elt) > 0) \
39 { \
40 (M_i) = 1; \
41 fprintf(stderr, "Not enough memory on line %d of file %s!!\n", \
42 __LINE__, __FILE__); \
43 pberror_(&(M_ctxt), __FILE__, &(M_i)); \
44 } \
45 } \
46}