BI_BlacsErr.c File Reference

#include "Bdef.h"

Go to the source code of this file.

Functions
void	BI_BlacsErr (Int ConTxt, Int line, char *file, char *form,...)

Function Documentation

BI_BlacsErr()

void BI_BlacsErr	(	Int	ConTxt,
		Int	line,
		char *	file,
		char *	form,
			... )

Definition at line 3 of file BI_BlacsErr.c.

{
#ifdef __STDC__
   void BI_BlacsAbort(Int ErrNo);
#else
   void BI_BlacsAbort();
#endif
   extern Int BI_Iam;
   Int myrow, mycol;
   va_list argptr;
   char cline[100];
   BLACSCONTEXT *ctxt;
 
   va_start(argptr, form);
   vsprintf(cline, form, argptr);
   va_end(argptr);
 
   if (ConTxt > -1)
   {
      MGetConTxt(ConTxt, ctxt);
      myrow = ctxt->cscp.Iam;
      mycol = ctxt->rscp.Iam;
   }
   else myrow = mycol = -1;
 
   fprintf(stderr,
"BLACS ERROR '%s'\nfrom {%d,%d}, pnum=%d, Contxt=%d, on line %d of file '%s'.\n\n",
           cline, myrow, mycol, BI_Iam, ConTxt, line, file);
 
   BI_BlacsAbort(1);
}