ScaLAPACK 2.1  2.1
ScaLAPACK: Scalable Linear Algebra PACKage
BI_BlacsErr.c
Go to the documentation of this file.
1 #include "Bdef.h"
2 
3 void BI_BlacsErr(int ConTxt, int line, char *file, char *form, ...)
4 {
5 #ifdef __STDC__
6  void BI_BlacsAbort(int ErrNo);
7 #else
8  void BI_BlacsAbort();
9 #endif
10  extern int BI_Iam;
11  int myrow, mycol;
12  va_list argptr;
13  char cline[100];
14  BLACSCONTEXT *ctxt;
15 
16  va_start(argptr, form);
17  vsprintf(cline, form, argptr);
18  va_end(argptr);
19 
20  if (ConTxt > -1)
21  {
22  MGetConTxt(ConTxt, ctxt);
23  myrow = ctxt->cscp.Iam;
24  mycol = ctxt->rscp.Iam;
25  }
26  else myrow = mycol = -1;
27 
28  fprintf(stderr,
29 "BLACS ERROR '%s'\nfrom {%d,%d}, pnum=%d, Contxt=%d, on line %d of file '%s'.\n\n",
30  cline, myrow, mycol, BI_Iam, ConTxt, line, file);
31 
32  BI_BlacsAbort(1);
33 }
BI_Iam
int BI_Iam
Definition: BI_GlobalVars.c:7
bLaCsCoNtExT::rscp
BLACSSCOPE rscp
Definition: Bdef.h:25
MGetConTxt
#define MGetConTxt(Context, ctxtptr)
Definition: Bdef.h:200
BI_BlacsAbort
void BI_BlacsAbort(int ErrNo)
Definition: BI_BlacsAbort.c:3
BI_BlacsErr
void BI_BlacsErr(int ConTxt, int line, char *file, char *form,...)
Definition: BI_BlacsErr.c:3
bLaCsScOpE::Iam
int Iam
Definition: Bdef.h:17
bLaCsCoNtExT
Definition: Bdef.h:23
bLaCsCoNtExT::cscp
BLACSSCOPE cscp
Definition: Bdef.h:25
Bdef.h