Charm++: Charm Source Code Documentation

00001 /* -*- Mode: C; c-basic-offset:4 ; -*- */
00002 /* 
00003  *   $Id$    
00004  *
00005  *   Copyright (C) 1997 University of Chicago. 
00006  *   See COPYRIGHT notice in top-level directory.
00007  */
00008 
00009 #include "adio.h"
00010 #include "mpi.h"
00011 
00012 int MPIR_Status_set_bytes(MPI_Status *status, MPI_Datatype datatype,
00013                           int nbytes)
00014 {
00015     if (status != MPI_STATUS_IGNORE)
00016         status->MPI_LENGTH=nbytes;
00017     return MPI_SUCCESS;
00018 }
00019 
00020 #if 0
00021 #if defined(MPICH2)
00022 /* Not quite correct, but much closer for MPI2 */
00023 int MPIR_Status_set_bytes(MPI_Status *status, MPI_Datatype datatype, 
00024                           int nbytes)
00025 {
00026     if (status != MPI_STATUS_IGNORE)
00027         MPI_Status_set_elements(status, MPI_BYTE, nbytes);
00028     return MPI_SUCCESS;
00029 }
00030 #elif defined(MPICH)
00031 
00032 void MPID_Status_set_bytes(MPI_Status *status, int nbytes);
00033 int MPIR_Status_set_bytes(MPI_Status *status, MPI_Datatype datatype, 
00034                           int nbytes);
00035 
00036 int MPIR_Status_set_bytes(MPI_Status *status, MPI_Datatype datatype, 
00037                           int nbytes)
00038 {
00039     if (status != MPI_STATUS_IGNORE)
00040         MPID_Status_set_bytes(status, nbytes);
00041     return MPI_SUCCESS;
00042 }
00043 
00044 #endif
00045 #endif
libs/ck-libs/ampi/romio/adio/common/status_setb.c
