libxmp/libxmpf in Omni Compiler  1.3.4
xmpco_msg.c File Reference
#include "xmpco_internal.h"
Include dependency graph for xmpco_msg.c:

Functions

void _XMPCO_fatal (char *format,...)
 
void _XMPCO_debugPrint (char *format,...)
 

Function Documentation

◆ _XMPCO_debugPrint()

void _XMPCO_debugPrint ( char *  format,
  ... 
)
21 {
22  int current, initial;
23  char work[800];
24 
25  if (! _XMPCO_get_isMsgMode())
26  return;
27 
28  va_list list;
29  va_start(list, format);
30  vsprintf(work, format, list);
31  va_end(list);
32 
33  current = _XMPCO_get_currentThisImage();
34  initial = _XMPCO_get_initialThisImage();
35  if (current == initial)
36  fprintf(stderr, "XMPCO[%d] %s", initial, work);
37  else
38  fprintf(stderr, "XMPCO[%d(current=%d)] %s", initial, current, work);
39 }
Here is the call graph for this function:
Here is the caller graph for this function:

◆ _XMPCO_fatal()

void _XMPCO_fatal ( char *  format,
  ... 
)
5 {
6  int rank;
7  char work[800];
8 
9  va_list list;
10  va_start(list, format);
11  vsprintf(work, format, list);
12  va_end(list);
13  MPI_Comm_rank(MPI_COMM_WORLD, &rank);
14  fprintf(stderr, "XMPCO [rank=%d] %s\n", rank, work);
15 
16  _XMP_fatal("...fatal error in XMP/F Coarray runtime");
17 }
Here is the call graph for this function:
Here is the caller graph for this function:
_XMPCO_get_initialThisImage
int _XMPCO_get_initialThisImage(void)
Definition: xmpco_lib.c:128
_XMP_fatal
void _XMP_fatal(char *msg)
Definition: xmp_util.c:42
_XMPCO_get_currentThisImage
int _XMPCO_get_currentThisImage(void)
Definition: xmpco_lib.c:153
_XMPCO_get_isMsgMode
BOOL _XMPCO_get_isMsgMode(void)
Definition: xmpco_params.c:86