nm_mpif_private.h

Go to the documentation of this file.

/*
 * NewMadeleine
 * Copyright (C) 2006-2026 (see AUTHORS file)
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or (at
 * your option) any later version.
 *
 * This program is distributed in the hope that it will be useful, but
 * WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 * General Public License for more details.
 */
 
#ifndef NM_MPIF_PRIVATE_H
#define NM_MPIF_PRIVATE_H
 
#include <Padico/Puk.h>
 
#define NM_MPIF_PMPI(SYM_MPI, SYM_INTERNAL)                             \
  __typeof__(SYM_INTERNAL ## _) p ## SYM_INTERNAL ## _ __attribute__ ((alias (NM_TOSTRING(SYM_INTERNAL ## _))));
 
extern void*NM_MPI_F_MPI_BOTTOM;
extern void*NM_MPI_F_MPI_IN_PLACE;
extern void*NM_MPI_F_MPI_UNWEIGHTED;
extern void*NM_MPI_F_MPI_WEIGHTS_EMPTY;
extern void*NM_MPI_F_MPI_ERRCODES_IGNORE;
extern void*NM_MPI_F_MPI_ARGV_NULL;
extern void*NM_MPI_F_MPI_ARGVS_NULL;
 
extern void nm_mpi_initf_(void);
 
#define NM_MPI_F_STATUS_DECLARE(_status) MPI_Status *_status, _status2;
 
#define NM_MPI_F_STATUS_SET(_status, status) {          \
    if(status == MPI_F_STATUS_IGNORE) {                 \
      _status = MPI_STATUS_IGNORE;                      \
    }                                                   \
    else {                                              \
      _status = &_status2;                              \
    }                                                   \
  }
 
#define NM_MPI_F_STATUS_RETURN(_status, status) {       \
    if(_status != MPI_STATUS_IGNORE) {                  \
      mpi_status_c2f(_status, status);                  \
    }                                                   \
  }                                                     \
 
#define NM_MPI_F2C_BOTTOM(addr) {               \
    if(addr == NM_MPI_F_MPI_BOTTOM) {           \
      addr = MPI_BOTTOM;                        \
    }                                           \
  }
 
#define NM_MPI_F2C_IN_PLACE(addr) {             \
    if(addr == NM_MPI_F_MPI_IN_PLACE) {         \
      addr = MPI_IN_PLACE;                      \
    }                                           \
  }
 
 
/* ** some f2c & c2f internal helper */
 
static inline void nm_mpif_array_c2f(int*c_array, MPI_Fint f_array[], int size)
{
  int i;
  for(i = 0; i < size; i++)
    {
      f_array[i] = c_array[i];
    }
}
 
static inline int*nm_mpif_array_f2c(MPI_Fint f_array[], int size)
{
  int*c_array = padico_malloc(sizeof(int) * size);
  int i;
  for(i = 0; i < size; i++)
    {
      c_array[i] = f_array[i];
    }
  return c_array;
}
 
static inline void nm_mpif_string_c2f(char*c_str, char*f_str, long int len)
{
  long int i;
  long int c_len = strlen(c_str);
  for(i = 0; i < c_len; i++)
    f_str[i] = c_str[i];
  for(i = c_len; i < len; i++)
    f_str[i] = ' ';
}
 
static inline char*nm_mpif_string_f2c(char*f_str, long int len)
{
  long int i;
  char*c_str;
  char*pf = f_str + len - 1;
  while(*pf == ' ' && pf > f_str)
    pf--;
  pf++;
  long int c_len = pf - f_str;//len without null char
  c_str = padico_malloc(sizeof(char) * (c_len + 1));
  for(i = 0; i < c_len; i++)
    c_str[i] = f_str[i];
  c_str[i] = 0;
  return c_str;
}
 
static inline char*nm_mpif_info_string_f2c(char*f_str, long int len)
{
  long int i;
  char*c_str;
  char*pf = f_str + len - 1;
  char*pf_b = f_str;
  while(*pf == ' ' && pf > f_str)
    pf--;
  pf++;
  while(*pf_b == ' ' && pf_b < pf)
    pf_b++;
 
  long int c_len = pf - pf_b;//len without null char
  c_str = padico_malloc(sizeof(char) * (c_len + 1));
  for(i = 0; i < c_len; i++)
    c_str[i] = pf_b[i];
  c_str[i] = 0;
  return c_str;
}
 
 
#endif /* NM_MPIF_PRIVATE_H */