root/ompi/mca/io/romio321/romio/mpi-io/glue/large_count.c

DEFINITIONS

1. MPI_Type_size_x
2. MPI_Status_set_elements_x

   1 /* -*- Mode: C; c-basic-offset:4 ; indent-tabs-mode:nil ; -*- */
   2 /*
   3  *   Copyright (C) 2013 University of Chicago.
   4  *   See COPYRIGHT notice in top-level directory.
   5  */
   6 
   7 #include "mpioimpl.h"
   8 
   9 #ifndef HAVE_MPI_TYPE_SIZE_X
  10 int MPI_Type_size_x(MPI_Datatype datatype, MPI_Count *size)
  11 {
  12     int size_int, ret;
  13     ret = MPI_Type_size(datatype, &size_int);
  14     *size = size_int;
  15     return ret;
  16 }
  17 #endif
  18 
  19 #ifndef HAVE_MPI_STATUS_SET_ELEMENTS_X
  20 int MPI_Status_set_elements_x(MPI_Status *status, MPI_Datatype datatype,
  21         MPI_Count count)
  22 {
  23     int count_int = (int) count;
  24     return MPI_Status_set_elements(status, datatype, count_int);
  25 }
  26 #endif