src/util/mpilog.c
int mpilog_rank_fp(mpilog_t * obj, int rank, FILE * fp, const char * fmt,
		   ...) {
  va_list args;

  dbg_return_if(obj == NULL, -1);
  dbg_return_if(fmt == NULL, -1);

  nop_return_if(rank != obj->rank, 0);
  nop_return_if(fp == NULL, 0);

  va_start(args, fmt);
  vfprintf(fp, fmt, args);
  va_end(args);

  return 0;
}
/*****************************************************************************
 *
 *  mpilog_rank_fp
 *
 *  An invalid rank could be an error; here it will just never log.
 *
 *****************************************************************************/
mpilog_rank_fp
An invalid rank could be an error; here it will just never log.
mpilog_rank_fp An invalid rank could be an error ; here it will just never log .
int mpilog_rank_fp(mpilog_t * obj, int rank, FILE * fp, const char * fmt,
		   ...) {
  va_list args;
  dbg_return_if(obj == NULL, -1);
  dbg_return_if(fmt == NULL, -1);
  nop_return_if(rank != obj->rank, 0);
  nop_return_if(fp == NULL, 0);
  va_start(args, fmt);
  vfprintf(fp, fmt, args);
  va_end(args);
  return 0;
}
int mpilog_rank_fp ( mpilog_t * obj , int rank , FILE * fp , const char * fmt , ... ) { va_list args ; dbg_return_if ( obj == NULL , -1 ) ; dbg_return_if ( fmt == NULL , -1 ) ; nop_return_if ( rank != obj -> rank , 0 ) ; nop_return_if ( fp == NULL , 0 ) ; va_start ( args , fmt ) ; vfprintf ( fp , fmt , args ) ; va_end ( args ) ; return 0 ; }
mpilog_rank_fp
  An invalid rank could be an error; here it will just never log.
mpilog_rank_fp An invalid rank could be an error ; here it will just never log .