From cd8f550dc7cac22c585f23c351fc9b0ad55154a5 Mon Sep 17 00:00:00 2001 From: Jeff Squyres Date: Mon, 2 Aug 2004 02:35:46 +0000 Subject: [PATCH] - Add greb-able string in non-implemented functions - Fix exception handling when malloc fails - Combine a few malloc's This commit was SVN r1831. --- src/mpi/f77/abort_f.c | 2 +- src/mpi/f77/accumulate_f.c | 2 +- src/mpi/f77/add_error_class_f.c | 2 +- src/mpi/f77/add_error_code_f.c | 2 +- src/mpi/f77/add_error_string_f.c | 2 +- src/mpi/f77/address_f.c | 2 +- src/mpi/f77/allgather_f.c | 2 +- src/mpi/f77/allgatherv_f.c | 2 +- src/mpi/f77/alloc_mem_f.c | 2 +- src/mpi/f77/allreduce_f.c | 2 +- src/mpi/f77/alltoall_f.c | 2 +- src/mpi/f77/alltoallv_f.c | 2 +- src/mpi/f77/alltoallw_f.c | 2 +- src/mpi/f77/attr_delete_f.c | 2 +- src/mpi/f77/attr_get_f.c | 2 +- src/mpi/f77/attr_put_f.c | 2 +- src/mpi/f77/barrier_f.c | 2 +- src/mpi/f77/bcast_f.c | 2 +- src/mpi/f77/bsend_init_f.c | 4 +--- src/mpi/f77/cart_coords_f.c | 2 +- src/mpi/f77/cart_create_f.c | 2 +- src/mpi/f77/cart_get_f.c | 2 +- src/mpi/f77/cart_map_f.c | 2 +- src/mpi/f77/cart_rank_f.c | 2 +- src/mpi/f77/cart_shift_f.c | 2 +- src/mpi/f77/cart_sub_f.c | 2 +- src/mpi/f77/cartdim_get_f.c | 2 +- src/mpi/f77/close_port_f.c | 2 +- src/mpi/f77/comm_accept_f.c | 2 +- src/mpi/f77/comm_call_errhandler_f.c | 2 +- src/mpi/f77/comm_compare_f.c | 2 +- src/mpi/f77/comm_connect_f.c | 2 +- src/mpi/f77/comm_create_errhandler_f.c | 2 +- src/mpi/f77/comm_create_f.c | 2 +- src/mpi/f77/comm_create_keyval_f.c | 2 +- src/mpi/f77/comm_delete_attr_f.c | 2 +- src/mpi/f77/comm_disconnect_f.c | 2 +- src/mpi/f77/comm_dup_f.c | 2 +- src/mpi/f77/comm_free_f.c | 2 +- src/mpi/f77/comm_free_keyval_f.c | 2 +- src/mpi/f77/comm_get_attr_f.c | 2 +- src/mpi/f77/comm_get_errhandler_f.c | 2 +- src/mpi/f77/comm_get_name_f.c | 2 +- src/mpi/f77/comm_get_parent_f.c | 2 +- src/mpi/f77/comm_group_f.c | 2 +- src/mpi/f77/comm_join_f.c | 2 +- src/mpi/f77/comm_remote_group_f.c | 2 +- src/mpi/f77/comm_remote_size_f.c | 2 +- src/mpi/f77/comm_set_attr_f.c | 2 +- src/mpi/f77/comm_set_errhandler_f.c | 2 +- src/mpi/f77/comm_set_name_f.c | 2 +- src/mpi/f77/comm_spawn_f.c | 2 +- src/mpi/f77/comm_spawn_multiple_f.c | 2 +- src/mpi/f77/comm_split_f.c | 2 +- src/mpi/f77/comm_test_inter_f.c | 2 +- src/mpi/f77/dims_create_f.c | 2 +- src/mpi/f77/errhandler_create_f.c | 2 +- src/mpi/f77/errhandler_free_f.c | 2 +- src/mpi/f77/errhandler_get_f.c | 2 +- src/mpi/f77/errhandler_set_f.c | 2 +- src/mpi/f77/error_class_f.c | 2 +- src/mpi/f77/error_string_f.c | 2 +- src/mpi/f77/exscan_f.c | 2 +- src/mpi/f77/file_call_errhandler_f.c | 2 +- src/mpi/f77/file_close_f.c | 2 +- src/mpi/f77/file_create_errhandler_f.c | 2 +- src/mpi/f77/file_delete_f.c | 2 +- src/mpi/f77/file_get_amode_f.c | 2 +- src/mpi/f77/file_get_atomicity_f.c | 2 +- src/mpi/f77/file_get_byte_offset_f.c | 2 +- src/mpi/f77/file_get_errhandler_f.c | 2 +- src/mpi/f77/file_get_group_f.c | 2 +- src/mpi/f77/file_get_info_f.c | 2 +- src/mpi/f77/file_get_position_f.c | 2 +- src/mpi/f77/file_get_position_shared_f.c | 2 +- src/mpi/f77/file_get_size_f.c | 2 +- src/mpi/f77/file_get_type_extent_f.c | 2 +- src/mpi/f77/file_get_view_f.c | 2 +- src/mpi/f77/file_iread_at_f.c | 2 +- src/mpi/f77/file_iread_f.c | 2 +- src/mpi/f77/file_iread_shared_f.c | 2 +- src/mpi/f77/file_iwrite_at_f.c | 2 +- src/mpi/f77/file_iwrite_f.c | 2 +- src/mpi/f77/file_iwrite_shared_f.c | 2 +- src/mpi/f77/file_open_f.c | 2 +- src/mpi/f77/file_preallocate_f.c | 2 +- src/mpi/f77/file_read_all_begin_f.c | 2 +- src/mpi/f77/file_read_all_end_f.c | 2 +- src/mpi/f77/file_read_all_f.c | 2 +- src/mpi/f77/file_read_at_all_begin_f.c | 2 +- src/mpi/f77/file_read_at_all_end_f.c | 2 +- src/mpi/f77/file_read_at_all_f.c | 2 +- src/mpi/f77/file_read_at_f.c | 2 +- src/mpi/f77/file_read_f.c | 2 +- src/mpi/f77/file_read_ordered_begin_f.c | 2 +- src/mpi/f77/file_read_ordered_end_f.c | 2 +- src/mpi/f77/file_read_ordered_f.c | 2 +- src/mpi/f77/file_read_shared_f.c | 2 +- src/mpi/f77/file_seek_f.c | 2 +- src/mpi/f77/file_seek_shared_f.c | 2 +- src/mpi/f77/file_set_atomicity_f.c | 2 +- src/mpi/f77/file_set_errhandler_f.c | 2 +- src/mpi/f77/file_set_info_f.c | 2 +- src/mpi/f77/file_set_size_f.c | 2 +- src/mpi/f77/file_set_view_f.c | 2 +- src/mpi/f77/file_sync_f.c | 2 +- src/mpi/f77/file_write_all_begin_f.c | 2 +- src/mpi/f77/file_write_all_end_f.c | 2 +- src/mpi/f77/file_write_all_f.c | 2 +- src/mpi/f77/file_write_at_all_begin_f.c | 2 +- src/mpi/f77/file_write_at_all_end_f.c | 2 +- src/mpi/f77/file_write_at_all_f.c | 2 +- src/mpi/f77/file_write_at_f.c | 2 +- src/mpi/f77/file_write_f.c | 2 +- src/mpi/f77/file_write_ordered_begin_f.c | 2 +- src/mpi/f77/file_write_ordered_end_f.c | 2 +- src/mpi/f77/file_write_ordered_f.c | 2 +- src/mpi/f77/file_write_shared_f.c | 2 +- src/mpi/f77/free_mem_f.c | 2 +- src/mpi/f77/gather_f.c | 2 +- src/mpi/f77/gatherv_f.c | 2 +- src/mpi/f77/get_address_f.c | 2 +- src/mpi/f77/get_count_f.c | 3 ++- src/mpi/f77/get_elements_f.c | 4 ++-- src/mpi/f77/get_f.c | 2 +- src/mpi/f77/get_processor_name_f.c | 2 +- src/mpi/f77/get_version_f.c | 2 +- src/mpi/f77/graph_create_f.c | 2 +- src/mpi/f77/graph_get_f.c | 2 +- src/mpi/f77/graph_map_f.c | 2 +- src/mpi/f77/graph_neighbors_count_f.c | 2 +- src/mpi/f77/graph_neighbors_f.c | 2 +- src/mpi/f77/graphdims_get_f.c | 2 +- src/mpi/f77/grequest_complete_f.c | 2 +- src/mpi/f77/grequest_start_f.c | 2 +- src/mpi/f77/group_difference_f.c | 3 ++- src/mpi/f77/ibsend_f.c | 2 +- src/mpi/f77/info_create_f.c | 2 +- src/mpi/f77/info_delete_f.c | 2 +- src/mpi/f77/info_dup_f.c | 2 +- src/mpi/f77/info_free_f.c | 2 +- src/mpi/f77/info_get_f.c | 2 +- src/mpi/f77/info_get_nkeys_f.c | 2 +- src/mpi/f77/info_get_nthkey_f.c | 2 +- src/mpi/f77/info_get_valuelen_f.c | 2 +- src/mpi/f77/info_set_f.c | 2 +- src/mpi/f77/init_f.c | 2 +- src/mpi/f77/init_thread_f.c | 1 - src/mpi/f77/intercomm_create_f.c | 2 +- src/mpi/f77/intercomm_merge_f.c | 2 +- src/mpi/f77/irecv_f.c | 2 +- src/mpi/f77/irsend_f.c | 2 +- src/mpi/f77/isend_f.c | 2 +- src/mpi/f77/issend_f.c | 2 +- src/mpi/f77/keyval_create_f.c | 2 +- src/mpi/f77/keyval_free_f.c | 2 +- src/mpi/f77/lookup_name_f.c | 2 +- src/mpi/f77/op_create_f.c | 2 +- src/mpi/f77/op_free_f.c | 2 +- src/mpi/f77/open_port_f.c | 2 +- src/mpi/f77/pack_f.c | 2 +- src/mpi/f77/pack_size_f.c | 2 +- src/mpi/f77/publish_name_f.c | 2 +- src/mpi/f77/put_f.c | 2 +- src/mpi/f77/recv_init_f.c | 2 +- src/mpi/f77/reduce_f.c | 2 +- src/mpi/f77/reduce_scatter_f.c | 2 +- src/mpi/f77/register_datarep_f.c | 2 +- src/mpi/f77/rsend_init_f.c | 2 +- src/mpi/f77/scan_f.c | 2 +- src/mpi/f77/scatter_f.c | 2 +- src/mpi/f77/scatterv_f.c | 2 +- src/mpi/f77/send_init_f.c | 2 +- src/mpi/f77/ssend_init_f.c | 2 +- src/mpi/f77/start_f.c | 5 ++-- src/mpi/f77/startall_f.c | 15 +++++++----- src/mpi/f77/status_set_cancelled_f.c | 4 ++-- src/mpi/f77/status_set_elements_f.c | 3 ++- src/mpi/f77/test_f.c | 4 ++-- src/mpi/f77/testall_f.c | 28 ++++++++++------------ src/mpi/f77/testany_f.c | 12 +++++++--- src/mpi/f77/testsome_f.c | 26 ++++++++++---------- src/mpi/f77/topo_test_f.c | 2 +- src/mpi/f77/type_commit_f.c | 4 ++-- src/mpi/f77/type_contiguous_f.c | 3 ++- src/mpi/f77/type_create_darray_f.c | 3 ++- src/mpi/f77/type_create_f90_complex_f.c | 3 ++- src/mpi/f77/type_create_f90_integer_f.c | 3 ++- src/mpi/f77/type_create_f90_real_f.c | 3 ++- src/mpi/f77/type_create_hindexed_f.c | 13 +++++++--- src/mpi/f77/type_create_hvector_f.c | 2 +- src/mpi/f77/type_create_indexed_block_f.c | 3 ++- src/mpi/f77/type_create_keyval_f.c | 2 +- src/mpi/f77/type_create_resized_f.c | 3 ++- src/mpi/f77/type_create_struct_f.c | 29 +++++++++++------------ src/mpi/f77/type_create_subarray_f.c | 3 ++- src/mpi/f77/type_delete_attr_f.c | 5 ++-- src/mpi/f77/type_dup_f.c | 3 ++- src/mpi/f77/type_extent_f.c | 3 ++- src/mpi/f77/type_free_f.c | 8 +------ src/mpi/f77/type_free_keyval_f.c | 2 +- src/mpi/f77/type_get_contents_f.c | 22 ++++++++++------- src/mpi/f77/type_get_extent_f.c | 2 +- src/mpi/f77/type_get_true_extent_f.c | 2 +- src/mpi/f77/type_hindexed_f.c | 13 +++++++--- src/mpi/f77/type_hvector_f.c | 2 +- src/mpi/f77/type_indexed_f.c | 3 ++- src/mpi/f77/type_lb_f.c | 3 ++- src/mpi/f77/type_match_size_f.c | 3 ++- src/mpi/f77/type_set_attr_f.c | 4 ++-- src/mpi/f77/type_set_name_f.c | 2 +- src/mpi/f77/type_struct_f.c | 24 ++++++++++--------- src/mpi/f77/type_ub_f.c | 3 ++- src/mpi/f77/type_vector_f.c | 2 +- src/mpi/f77/unpack_external_f.c | 1 - src/mpi/f77/unpack_f.c | 2 +- src/mpi/f77/unpublish_name_f.c | 2 +- src/mpi/f77/wait_f.c | 3 +-- src/mpi/f77/waitall_f.c | 26 ++++++++++---------- src/mpi/f77/waitany_f.c | 15 ++++++++---- src/mpi/f77/waitsome_f.c | 26 ++++++++++---------- src/mpi/f77/win_call_errhandler_f.c | 2 +- src/mpi/f77/win_complete_f.c | 2 +- src/mpi/f77/win_create_errhandler_f.c | 2 +- src/mpi/f77/win_create_f.c | 2 +- src/mpi/f77/win_create_keyval_f.c | 2 +- src/mpi/f77/win_delete_attr_f.c | 2 +- src/mpi/f77/win_fence_f.c | 2 +- src/mpi/f77/win_free_f.c | 2 +- src/mpi/f77/win_free_keyval_f.c | 2 +- src/mpi/f77/win_get_errhandler_f.c | 2 +- src/mpi/f77/win_get_group_f.c | 2 +- src/mpi/f77/win_get_name_f.c | 2 +- src/mpi/f77/win_lock_f.c | 2 +- src/mpi/f77/win_post_f.c | 2 +- src/mpi/f77/win_set_errhandler_f.c | 2 +- src/mpi/f77/win_set_name_f.c | 2 +- src/mpi/f77/win_start_f.c | 2 +- src/mpi/f77/win_test_f.c | 2 +- src/mpi/f77/win_unlock_f.c | 2 +- src/mpi/f77/win_wait_f.c | 2 +- 241 files changed, 392 insertions(+), 355 deletions(-) diff --git a/src/mpi/f77/abort_f.c b/src/mpi/f77/abort_f.c index 589018c8d0..d0b71f5918 100644 --- a/src/mpi/f77/abort_f.c +++ b/src/mpi/f77/abort_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ABORT, void mpi_abort_f(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/accumulate_f.c b/src/mpi/f77/accumulate_f.c index 45c032fee8..1b24d71c9e 100644 --- a/src/mpi/f77/accumulate_f.c +++ b/src/mpi/f77/accumulate_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ACCUMULATE, void mpi_accumulate_f(char *origin_addr, MPI_Fint *origin_count, MPI_Fint *origin_datatype, MPI_Fint *target_rank, MPI_Fint *target_disp, MPI_Fint *target_count, MPI_Fint *target_datatype, MPI_Fint *op, MPI_Fint *win, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/add_error_class_f.c b/src/mpi/f77/add_error_class_f.c index 3d0a453828..e55c29c9c0 100644 --- a/src/mpi/f77/add_error_class_f.c +++ b/src/mpi/f77/add_error_class_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ADD_ERROR_CLASS, void mpi_add_error_class_f(MPI_Fint *errorclass, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/add_error_code_f.c b/src/mpi/f77/add_error_code_f.c index 08492a3b8d..54c701b5fb 100644 --- a/src/mpi/f77/add_error_code_f.c +++ b/src/mpi/f77/add_error_code_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ADD_ERROR_CODE, void mpi_add_error_code_f(MPI_Fint *errorclass, MPI_Fint *errorcode, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/add_error_string_f.c b/src/mpi/f77/add_error_string_f.c index 734bffab18..b7e7fff17d 100644 --- a/src/mpi/f77/add_error_string_f.c +++ b/src/mpi/f77/add_error_string_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ADD_ERROR_STRING, void mpi_add_error_string_f(MPI_Fint *errorcode, char *string, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/address_f.c b/src/mpi/f77/address_f.c index 0912162dc3..23b44a43d3 100644 --- a/src/mpi/f77/address_f.c +++ b/src/mpi/f77/address_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ADDRESS, void mpi_address_f(char *location, MPI_Fint *address, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/allgather_f.c b/src/mpi/f77/allgather_f.c index ef4dfca515..4627f9d506 100644 --- a/src/mpi/f77/allgather_f.c +++ b/src/mpi/f77/allgather_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ALLGATHER, void mpi_allgather_f(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/allgatherv_f.c b/src/mpi/f77/allgatherv_f.c index a87ef843a6..53dde7d344 100644 --- a/src/mpi/f77/allgatherv_f.c +++ b/src/mpi/f77/allgatherv_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ALLGATHERV, void mpi_allgatherv_f(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *displs, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/alloc_mem_f.c b/src/mpi/f77/alloc_mem_f.c index 9645d546ea..b074c6f4c5 100644 --- a/src/mpi/f77/alloc_mem_f.c +++ b/src/mpi/f77/alloc_mem_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ALLOC_MEM, void mpi_alloc_mem_f(MPI_Fint *size, MPI_Fint *info, char *baseptr, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/allreduce_f.c b/src/mpi/f77/allreduce_f.c index b923ad694c..02ede768d8 100644 --- a/src/mpi/f77/allreduce_f.c +++ b/src/mpi/f77/allreduce_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ALLREDUCE, void mpi_allreduce_f(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/alltoall_f.c b/src/mpi/f77/alltoall_f.c index f212b8e09c..c07b11b540 100644 --- a/src/mpi/f77/alltoall_f.c +++ b/src/mpi/f77/alltoall_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ALLTOALL, void mpi_alltoall_f(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/alltoallv_f.c b/src/mpi/f77/alltoallv_f.c index f1e96e24d4..0f5d2fcb2a 100644 --- a/src/mpi/f77/alltoallv_f.c +++ b/src/mpi/f77/alltoallv_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ALLTOALLV, void mpi_alltoallv_f(char *sendbuf, MPI_Fint *sendcounts, MPI_Fint *sdispls, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *rdispls, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/alltoallw_f.c b/src/mpi/f77/alltoallw_f.c index 9a1b9d867f..7cd795e94d 100644 --- a/src/mpi/f77/alltoallw_f.c +++ b/src/mpi/f77/alltoallw_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ALLTOALLW, void mpi_alltoallw_f(char *sendbuf, MPI_Fint *sendcounts, MPI_Fint *sdispls, MPI_Fint *sendtypes, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *rdispls, MPI_Fint *recvtypes, MPI_Fint *comm, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/attr_delete_f.c b/src/mpi/f77/attr_delete_f.c index 534adbf16f..97c7011e16 100644 --- a/src/mpi/f77/attr_delete_f.c +++ b/src/mpi/f77/attr_delete_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ATTR_DELETE, void mpi_attr_delete_f(MPI_Fint *comm, MPI_Fint *keyval, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/attr_get_f.c b/src/mpi/f77/attr_get_f.c index ed5ba9ac1e..fff39e249f 100644 --- a/src/mpi/f77/attr_get_f.c +++ b/src/mpi/f77/attr_get_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ATTR_GET, void mpi_attr_get_f(MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/attr_put_f.c b/src/mpi/f77/attr_put_f.c index 8f4bf4fdf8..edfeafe525 100644 --- a/src/mpi/f77/attr_put_f.c +++ b/src/mpi/f77/attr_put_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ATTR_PUT, void mpi_attr_put_f(MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/barrier_f.c b/src/mpi/f77/barrier_f.c index 84c3fe02fc..d46edda535 100644 --- a/src/mpi/f77/barrier_f.c +++ b/src/mpi/f77/barrier_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_BARRIER, void mpi_barrier_f(MPI_Fint *comm, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/bcast_f.c b/src/mpi/f77/bcast_f.c index cfd722cc64..a741efbed5 100644 --- a/src/mpi/f77/bcast_f.c +++ b/src/mpi/f77/bcast_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_BCAST, void mpi_bcast_f(char *buffer, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/bsend_init_f.c b/src/mpi/f77/bsend_init_f.c index 561e372693..f1a6cb26aa 100644 --- a/src/mpi/f77/bsend_init_f.c +++ b/src/mpi/f77/bsend_init_f.c @@ -56,9 +56,7 @@ void mpi_bsend_init_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint * *ierr = MPI_Bsend_init(buf, *count, c_type, *dest, *tag, c_comm, &c_req); - if (*ierr == MPI_SUCCESS) { + if (MPI_SUCCESS == *ierr) { *request = MPI_Request_c2f(c_req); } - - } diff --git a/src/mpi/f77/cart_coords_f.c b/src/mpi/f77/cart_coords_f.c index cecd70ebd3..2c0fca4f24 100644 --- a/src/mpi/f77/cart_coords_f.c +++ b/src/mpi/f77/cart_coords_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_CART_COORDS, void mpi_cart_coords_f(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxdims, MPI_Fint *coords, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/cart_create_f.c b/src/mpi/f77/cart_create_f.c index a55b034c90..f0505dc2b4 100644 --- a/src/mpi/f77/cart_create_f.c +++ b/src/mpi/f77/cart_create_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_CART_CREATE, void mpi_cart_create_f(MPI_Fint *old_comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *reorder, MPI_Fint *comm_cart, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/cart_get_f.c b/src/mpi/f77/cart_get_f.c index 0f41a1d6f6..a35408f6a4 100644 --- a/src/mpi/f77/cart_get_f.c +++ b/src/mpi/f77/cart_get_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_CART_GET, void mpi_cart_get_f(MPI_Fint *comm, MPI_Fint *maxdims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *coords, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/cart_map_f.c b/src/mpi/f77/cart_map_f.c index fd4d6e67b9..4bfa6c03ec 100644 --- a/src/mpi/f77/cart_map_f.c +++ b/src/mpi/f77/cart_map_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_CART_MAP, void mpi_cart_map_f(MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *newrank, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/cart_rank_f.c b/src/mpi/f77/cart_rank_f.c index d6a5846b0e..21d10bbad4 100644 --- a/src/mpi/f77/cart_rank_f.c +++ b/src/mpi/f77/cart_rank_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_CART_RANK, void mpi_cart_rank_f(MPI_Fint *comm, MPI_Fint *coords, MPI_Fint *rank, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/cart_shift_f.c b/src/mpi/f77/cart_shift_f.c index 60d043a71f..2d026bb7d0 100644 --- a/src/mpi/f77/cart_shift_f.c +++ b/src/mpi/f77/cart_shift_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_CART_SHIFT, void mpi_cart_shift_f(MPI_Fint *comm, MPI_Fint *direction, MPI_Fint *disp, MPI_Fint *rank_source, MPI_Fint *rank_dest, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/cart_sub_f.c b/src/mpi/f77/cart_sub_f.c index f8fb694717..171917e5b1 100644 --- a/src/mpi/f77/cart_sub_f.c +++ b/src/mpi/f77/cart_sub_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_CART_SUB, void mpi_cart_sub_f(MPI_Fint *comm, MPI_Fint *remain_dims, MPI_Fint *new_comm, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/cartdim_get_f.c b/src/mpi/f77/cartdim_get_f.c index 8c2aa326fa..ade48761f2 100644 --- a/src/mpi/f77/cartdim_get_f.c +++ b/src/mpi/f77/cartdim_get_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_CARTDIM_GET, void mpi_cartdim_get_f(MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/close_port_f.c b/src/mpi/f77/close_port_f.c index 85519550a0..17754c52c7 100644 --- a/src/mpi/f77/close_port_f.c +++ b/src/mpi/f77/close_port_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_CLOSE_PORT, void mpi_close_port_f(char *port_name, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/comm_accept_f.c b/src/mpi/f77/comm_accept_f.c index bfcf36aa0a..af95d3df0f 100644 --- a/src/mpi/f77/comm_accept_f.c +++ b/src/mpi/f77/comm_accept_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_ACCEPT, void mpi_comm_accept_f(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/comm_call_errhandler_f.c b/src/mpi/f77/comm_call_errhandler_f.c index c815fd0c80..60ae159470 100644 --- a/src/mpi/f77/comm_call_errhandler_f.c +++ b/src/mpi/f77/comm_call_errhandler_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_CALL_ERRHANDLER, void mpi_comm_call_errhandler_f(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/comm_compare_f.c b/src/mpi/f77/comm_compare_f.c index 20a831d415..f3ca18f7e1 100644 --- a/src/mpi/f77/comm_compare_f.c +++ b/src/mpi/f77/comm_compare_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_COMPARE, void mpi_comm_compare_f(MPI_Fint *comm1, MPI_Fint *comm2, MPI_Fint *result, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/comm_connect_f.c b/src/mpi/f77/comm_connect_f.c index 13f41f8d5c..e9976a9c33 100644 --- a/src/mpi/f77/comm_connect_f.c +++ b/src/mpi/f77/comm_connect_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_CONNECT, void mpi_comm_connect_f(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/comm_create_errhandler_f.c b/src/mpi/f77/comm_create_errhandler_f.c index 1bcf44c934..b848aedb90 100644 --- a/src/mpi/f77/comm_create_errhandler_f.c +++ b/src/mpi/f77/comm_create_errhandler_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_CREATE_ERRHANDLER, void mpi_comm_create_errhandler_f(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/comm_create_f.c b/src/mpi/f77/comm_create_f.c index 8c7edb7be8..1fa4d0fc60 100644 --- a/src/mpi/f77/comm_create_f.c +++ b/src/mpi/f77/comm_create_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_CREATE, void mpi_comm_create_f(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/comm_create_keyval_f.c b/src/mpi/f77/comm_create_keyval_f.c index 9f6e0b2d91..b8321c3904 100644 --- a/src/mpi/f77/comm_create_keyval_f.c +++ b/src/mpi/f77/comm_create_keyval_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_CREATE_KEYVAL, void mpi_comm_create_keyval_f(MPI_Fint *comm_copy_attr_fn, MPI_Fint *comm_delete_attr_fn, MPI_Fint *comm_keyval, char *extra_state, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/comm_delete_attr_f.c b/src/mpi/f77/comm_delete_attr_f.c index a9bedb2ca5..eb2cbf1b1f 100644 --- a/src/mpi/f77/comm_delete_attr_f.c +++ b/src/mpi/f77/comm_delete_attr_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_DELETE_ATTR, void mpi_comm_delete_attr_f(MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/comm_disconnect_f.c b/src/mpi/f77/comm_disconnect_f.c index c2e612fe44..5e87a69fc3 100644 --- a/src/mpi/f77/comm_disconnect_f.c +++ b/src/mpi/f77/comm_disconnect_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_DISCONNECT, void mpi_comm_disconnect_f(MPI_Fint *comm, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/comm_dup_f.c b/src/mpi/f77/comm_dup_f.c index bd42e7cb63..f17b925370 100644 --- a/src/mpi/f77/comm_dup_f.c +++ b/src/mpi/f77/comm_dup_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_DUP, void mpi_comm_dup_f(MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/comm_free_f.c b/src/mpi/f77/comm_free_f.c index 57e5e2a63b..f89bf12ee3 100644 --- a/src/mpi/f77/comm_free_f.c +++ b/src/mpi/f77/comm_free_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_FREE, void mpi_comm_free_f(MPI_Fint *comm, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/comm_free_keyval_f.c b/src/mpi/f77/comm_free_keyval_f.c index 7c5d49ed9f..c64405ba73 100644 --- a/src/mpi/f77/comm_free_keyval_f.c +++ b/src/mpi/f77/comm_free_keyval_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_FREE_KEYVAL, void mpi_comm_free_keyval_f(MPI_Fint *comm_keyval, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/comm_get_attr_f.c b/src/mpi/f77/comm_get_attr_f.c index 491bebba45..a2651134ae 100644 --- a/src/mpi/f77/comm_get_attr_f.c +++ b/src/mpi/f77/comm_get_attr_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_GET_ATTR, void mpi_comm_get_attr_f(MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/comm_get_errhandler_f.c b/src/mpi/f77/comm_get_errhandler_f.c index 10f09d9d90..072acfef54 100644 --- a/src/mpi/f77/comm_get_errhandler_f.c +++ b/src/mpi/f77/comm_get_errhandler_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_GET_ERRHANDLER, void mpi_comm_get_errhandler_f(MPI_Fint *comm, MPI_Fint *erhandler, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/comm_get_name_f.c b/src/mpi/f77/comm_get_name_f.c index 5be8307dc9..e056ed50c5 100644 --- a/src/mpi/f77/comm_get_name_f.c +++ b/src/mpi/f77/comm_get_name_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_GET_NAME, void mpi_comm_get_name_f(MPI_Fint *comm, char *comm_name, MPI_Fint *resultlen, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/comm_get_parent_f.c b/src/mpi/f77/comm_get_parent_f.c index 5ebe7dd860..d64e8bde29 100644 --- a/src/mpi/f77/comm_get_parent_f.c +++ b/src/mpi/f77/comm_get_parent_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_GET_PARENT, void mpi_comm_get_parent_f(MPI_Fint *parent, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/comm_group_f.c b/src/mpi/f77/comm_group_f.c index ac11a14aa1..f0b83c54d7 100644 --- a/src/mpi/f77/comm_group_f.c +++ b/src/mpi/f77/comm_group_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_GROUP, void mpi_comm_group_f(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/comm_join_f.c b/src/mpi/f77/comm_join_f.c index aa786bbbc7..4550fce60d 100644 --- a/src/mpi/f77/comm_join_f.c +++ b/src/mpi/f77/comm_join_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_JOIN, void mpi_comm_join_f(MPI_Fint *fd, MPI_Fint *intercomm, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/comm_remote_group_f.c b/src/mpi/f77/comm_remote_group_f.c index 5d544f99ad..e065562657 100644 --- a/src/mpi/f77/comm_remote_group_f.c +++ b/src/mpi/f77/comm_remote_group_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_REMOTE_GROUP, void mpi_comm_remote_group_f(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/comm_remote_size_f.c b/src/mpi/f77/comm_remote_size_f.c index e4af2619b8..f8f7ab709a 100644 --- a/src/mpi/f77/comm_remote_size_f.c +++ b/src/mpi/f77/comm_remote_size_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_REMOTE_SIZE, void mpi_comm_remote_size_f(MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/comm_set_attr_f.c b/src/mpi/f77/comm_set_attr_f.c index 2844f8751e..db93be0b8a 100644 --- a/src/mpi/f77/comm_set_attr_f.c +++ b/src/mpi/f77/comm_set_attr_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_SET_ATTR, void mpi_comm_set_attr_f(MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/comm_set_errhandler_f.c b/src/mpi/f77/comm_set_errhandler_f.c index 1019624211..57c3eabc5a 100644 --- a/src/mpi/f77/comm_set_errhandler_f.c +++ b/src/mpi/f77/comm_set_errhandler_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_SET_ERRHANDLER, void mpi_comm_set_errhandler_f(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/comm_set_name_f.c b/src/mpi/f77/comm_set_name_f.c index 726b4e9b2b..049a5ee6b1 100644 --- a/src/mpi/f77/comm_set_name_f.c +++ b/src/mpi/f77/comm_set_name_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_SET_NAME, void mpi_comm_set_name_f(MPI_Fint *comm, char *comm_name, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/comm_spawn_f.c b/src/mpi/f77/comm_spawn_f.c index eab36e00a1..92939e58c5 100644 --- a/src/mpi/f77/comm_spawn_f.c +++ b/src/mpi/f77/comm_spawn_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_SPAWN, void mpi_comm_spawn_f(char *command, char *argv, MPI_Fint *maxprocs, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *intercomm, MPI_Fint *array_of_errcodes, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/comm_spawn_multiple_f.c b/src/mpi/f77/comm_spawn_multiple_f.c index 06c54b46d2..cae8349b28 100644 --- a/src/mpi/f77/comm_spawn_multiple_f.c +++ b/src/mpi/f77/comm_spawn_multiple_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_SPAWN_MULTIPLE, void mpi_comm_spawn_multiple_f(MPI_Fint *count, char *array_of_commands, char *array_of_argv, MPI_Fint *array_of_maxprocs, MPI_Fint *array_of_info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *intercomm, MPI_Fint *array_of_errcodes, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/comm_split_f.c b/src/mpi/f77/comm_split_f.c index 17abe6d805..8f90cf3161 100644 --- a/src/mpi/f77/comm_split_f.c +++ b/src/mpi/f77/comm_split_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_SPLIT, void mpi_comm_split_f(MPI_Fint *comm, MPI_Fint *color, MPI_Fint *key, MPI_Fint *newcomm, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/comm_test_inter_f.c b/src/mpi/f77/comm_test_inter_f.c index 2a51f3716d..23a83f412c 100644 --- a/src/mpi/f77/comm_test_inter_f.c +++ b/src/mpi/f77/comm_test_inter_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_COMM_TEST_INTER, void mpi_comm_test_inter_f(MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/dims_create_f.c b/src/mpi/f77/dims_create_f.c index 5b32c9e05d..1806633e5b 100644 --- a/src/mpi/f77/dims_create_f.c +++ b/src/mpi/f77/dims_create_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_DIMS_CREATE, void mpi_dims_create_f(MPI_Fint *nnodes, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/errhandler_create_f.c b/src/mpi/f77/errhandler_create_f.c index 516d02a5d2..23bb65023f 100644 --- a/src/mpi/f77/errhandler_create_f.c +++ b/src/mpi/f77/errhandler_create_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ERRHANDLER_CREATE, void mpi_errhandler_create_f(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/errhandler_free_f.c b/src/mpi/f77/errhandler_free_f.c index 8c24153f93..1a47060e0e 100644 --- a/src/mpi/f77/errhandler_free_f.c +++ b/src/mpi/f77/errhandler_free_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ERRHANDLER_FREE, void mpi_errhandler_free_f(MPI_Fint *errhandler, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/errhandler_get_f.c b/src/mpi/f77/errhandler_get_f.c index 7ab16f6f70..d0cbd985b4 100644 --- a/src/mpi/f77/errhandler_get_f.c +++ b/src/mpi/f77/errhandler_get_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ERRHANDLER_GET, void mpi_errhandler_get_f(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/errhandler_set_f.c b/src/mpi/f77/errhandler_set_f.c index d513f68c5c..fe427b21c8 100644 --- a/src/mpi/f77/errhandler_set_f.c +++ b/src/mpi/f77/errhandler_set_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ERRHANDLER_SET, void mpi_errhandler_set_f(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/error_class_f.c b/src/mpi/f77/error_class_f.c index 116c2a84b2..d1efc5c1c0 100644 --- a/src/mpi/f77/error_class_f.c +++ b/src/mpi/f77/error_class_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ERROR_CLASS, void mpi_error_class_f(MPI_Fint *errorcode, MPI_Fint *errorclass, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/error_string_f.c b/src/mpi/f77/error_string_f.c index 3395f43e0f..2dff027f82 100644 --- a/src/mpi/f77/error_string_f.c +++ b/src/mpi/f77/error_string_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_ERROR_STRING, void mpi_error_string_f(MPI_Fint *errorcode, char *string, MPI_Fint *resultlen, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/exscan_f.c b/src/mpi/f77/exscan_f.c index e54b01f624..17ad54e77c 100644 --- a/src/mpi/f77/exscan_f.c +++ b/src/mpi/f77/exscan_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_EXSCAN, void mpi_exscan_f(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_call_errhandler_f.c b/src/mpi/f77/file_call_errhandler_f.c index f22ed80745..840a5fb8e2 100644 --- a/src/mpi/f77/file_call_errhandler_f.c +++ b/src/mpi/f77/file_call_errhandler_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_CALL_ERRHANDLER, void mpi_file_call_errhandler_f(MPI_Fint *fh, MPI_Fint *errorcode, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_close_f.c b/src/mpi/f77/file_close_f.c index 62ae124017..4ef46cd24b 100644 --- a/src/mpi/f77/file_close_f.c +++ b/src/mpi/f77/file_close_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_CLOSE, void mpi_file_close_f(MPI_Fint *fh, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_create_errhandler_f.c b/src/mpi/f77/file_create_errhandler_f.c index 68576789a6..fa42b1c253 100644 --- a/src/mpi/f77/file_create_errhandler_f.c +++ b/src/mpi/f77/file_create_errhandler_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_CREATE_ERRHANDLER, void mpi_file_create_errhandler_f(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_delete_f.c b/src/mpi/f77/file_delete_f.c index f285c3140f..e5df8ae2b5 100644 --- a/src/mpi/f77/file_delete_f.c +++ b/src/mpi/f77/file_delete_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_DELETE, void mpi_file_delete_f(char *filename, MPI_Fint *info, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_get_amode_f.c b/src/mpi/f77/file_get_amode_f.c index 93dcf102e8..2bed43a781 100644 --- a/src/mpi/f77/file_get_amode_f.c +++ b/src/mpi/f77/file_get_amode_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_AMODE, void mpi_file_get_amode_f(MPI_Fint *fh, MPI_Fint *amode, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_get_atomicity_f.c b/src/mpi/f77/file_get_atomicity_f.c index 6a3bc85a03..ab363c98c3 100644 --- a/src/mpi/f77/file_get_atomicity_f.c +++ b/src/mpi/f77/file_get_atomicity_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_ATOMICITY, void mpi_file_get_atomicity_f(MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_get_byte_offset_f.c b/src/mpi/f77/file_get_byte_offset_f.c index d3130be7e2..fe270ed579 100644 --- a/src/mpi/f77/file_get_byte_offset_f.c +++ b/src/mpi/f77/file_get_byte_offset_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_BYTE_OFFSET, void mpi_file_get_byte_offset_f(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *disp, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_get_errhandler_f.c b/src/mpi/f77/file_get_errhandler_f.c index cdea1bc356..cf12c52521 100644 --- a/src/mpi/f77/file_get_errhandler_f.c +++ b/src/mpi/f77/file_get_errhandler_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_ERRHANDLER, void mpi_file_get_errhandler_f(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_get_group_f.c b/src/mpi/f77/file_get_group_f.c index a6f09b84d7..b48c78e255 100644 --- a/src/mpi/f77/file_get_group_f.c +++ b/src/mpi/f77/file_get_group_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_GROUP, void mpi_file_get_group_f(MPI_Fint *fh, MPI_Fint *group, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_get_info_f.c b/src/mpi/f77/file_get_info_f.c index d6e1e72b88..c55b58906a 100644 --- a/src/mpi/f77/file_get_info_f.c +++ b/src/mpi/f77/file_get_info_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_INFO, void mpi_file_get_info_f(MPI_Fint *fh, MPI_Fint *info_used, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_get_position_f.c b/src/mpi/f77/file_get_position_f.c index 9ff30c9469..b5cb8d57e0 100644 --- a/src/mpi/f77/file_get_position_f.c +++ b/src/mpi/f77/file_get_position_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_POSITION, void mpi_file_get_position_f(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_get_position_shared_f.c b/src/mpi/f77/file_get_position_shared_f.c index f9176a1c2d..13af5def56 100644 --- a/src/mpi/f77/file_get_position_shared_f.c +++ b/src/mpi/f77/file_get_position_shared_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_POSITION_SHARED, void mpi_file_get_position_shared_f(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_get_size_f.c b/src/mpi/f77/file_get_size_f.c index ddec34434a..d648b5b78d 100644 --- a/src/mpi/f77/file_get_size_f.c +++ b/src/mpi/f77/file_get_size_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_SIZE, void mpi_file_get_size_f(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_get_type_extent_f.c b/src/mpi/f77/file_get_type_extent_f.c index 46cb4a60a8..43f85594d5 100644 --- a/src/mpi/f77/file_get_type_extent_f.c +++ b/src/mpi/f77/file_get_type_extent_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_TYPE_EXTENT, void mpi_file_get_type_extent_f(MPI_Fint *fh, MPI_Fint *datatype, MPI_Fint *extent, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_get_view_f.c b/src/mpi/f77/file_get_view_f.c index f491cd7143..72e9db2a7a 100644 --- a/src/mpi/f77/file_get_view_f.c +++ b/src/mpi/f77/file_get_view_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_GET_VIEW, void mpi_file_get_view_f(MPI_Fint *fh, MPI_Fint *disp, MPI_Fint *etype, MPI_Fint *filetype, char *datarep, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_iread_at_f.c b/src/mpi/f77/file_iread_at_f.c index 437e15f31c..32fc95e65a 100644 --- a/src/mpi/f77/file_iread_at_f.c +++ b/src/mpi/f77/file_iread_at_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_IREAD_AT, void mpi_file_iread_at_f(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_iread_f.c b/src/mpi/f77/file_iread_f.c index dfaca2c854..3ed89bf470 100644 --- a/src/mpi/f77/file_iread_f.c +++ b/src/mpi/f77/file_iread_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_IREAD, void mpi_file_iread_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_iread_shared_f.c b/src/mpi/f77/file_iread_shared_f.c index 99146e4650..d49ab4f25d 100644 --- a/src/mpi/f77/file_iread_shared_f.c +++ b/src/mpi/f77/file_iread_shared_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_IREAD_SHARED, void mpi_file_iread_shared_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_iwrite_at_f.c b/src/mpi/f77/file_iwrite_at_f.c index 6946103838..0e831e4ba0 100644 --- a/src/mpi/f77/file_iwrite_at_f.c +++ b/src/mpi/f77/file_iwrite_at_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_IWRITE_AT, void mpi_file_iwrite_at_f(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_iwrite_f.c b/src/mpi/f77/file_iwrite_f.c index e8326f69d3..a9eb4edf30 100644 --- a/src/mpi/f77/file_iwrite_f.c +++ b/src/mpi/f77/file_iwrite_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_IWRITE, void mpi_file_iwrite_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_iwrite_shared_f.c b/src/mpi/f77/file_iwrite_shared_f.c index d3962eba95..3e3c2ce062 100644 --- a/src/mpi/f77/file_iwrite_shared_f.c +++ b/src/mpi/f77/file_iwrite_shared_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_IWRITE_SHARED, void mpi_file_iwrite_shared_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_open_f.c b/src/mpi/f77/file_open_f.c index 15a623172e..a99344f58e 100644 --- a/src/mpi/f77/file_open_f.c +++ b/src/mpi/f77/file_open_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_OPEN, void mpi_file_open_f(MPI_Fint *comm, char *filename, MPI_Fint *amode, MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_preallocate_f.c b/src/mpi/f77/file_preallocate_f.c index b29a499146..a27e55212d 100644 --- a/src/mpi/f77/file_preallocate_f.c +++ b/src/mpi/f77/file_preallocate_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_PREALLOCATE, void mpi_file_preallocate_f(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_read_all_begin_f.c b/src/mpi/f77/file_read_all_begin_f.c index adbe12caa4..3b952ded67 100644 --- a/src/mpi/f77/file_read_all_begin_f.c +++ b/src/mpi/f77/file_read_all_begin_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_READ_ALL_BEGIN, void mpi_file_read_all_begin_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_read_all_end_f.c b/src/mpi/f77/file_read_all_end_f.c index 8f88506a4a..34bb67bdcb 100644 --- a/src/mpi/f77/file_read_all_end_f.c +++ b/src/mpi/f77/file_read_all_end_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_READ_ALL_END, void mpi_file_read_all_end_f(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_read_all_f.c b/src/mpi/f77/file_read_all_f.c index 8a18644f06..55f45e51c4 100644 --- a/src/mpi/f77/file_read_all_f.c +++ b/src/mpi/f77/file_read_all_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_READ_ALL, void mpi_file_read_all_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_read_at_all_begin_f.c b/src/mpi/f77/file_read_at_all_begin_f.c index ddeb4d955d..62cedb62ab 100644 --- a/src/mpi/f77/file_read_at_all_begin_f.c +++ b/src/mpi/f77/file_read_at_all_begin_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_READ_AT_ALL_BEGIN, void mpi_file_read_at_all_begin_f(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_read_at_all_end_f.c b/src/mpi/f77/file_read_at_all_end_f.c index 5b5bc801c6..4c379af767 100644 --- a/src/mpi/f77/file_read_at_all_end_f.c +++ b/src/mpi/f77/file_read_at_all_end_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_READ_AT_ALL_END, void mpi_file_read_at_all_end_f(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_read_at_all_f.c b/src/mpi/f77/file_read_at_all_f.c index 33daa222ee..e055383c67 100644 --- a/src/mpi/f77/file_read_at_all_f.c +++ b/src/mpi/f77/file_read_at_all_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_READ_AT_ALL, void mpi_file_read_at_all_f(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_read_at_f.c b/src/mpi/f77/file_read_at_f.c index 0707c1d381..5679d85e14 100644 --- a/src/mpi/f77/file_read_at_f.c +++ b/src/mpi/f77/file_read_at_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_READ_AT, void mpi_file_read_at_f(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_read_f.c b/src/mpi/f77/file_read_f.c index ede7e3809f..a0e9933d92 100644 --- a/src/mpi/f77/file_read_f.c +++ b/src/mpi/f77/file_read_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_READ, void mpi_file_read_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_read_ordered_begin_f.c b/src/mpi/f77/file_read_ordered_begin_f.c index 4d5133eaaa..e0ddf50fdc 100644 --- a/src/mpi/f77/file_read_ordered_begin_f.c +++ b/src/mpi/f77/file_read_ordered_begin_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_READ_ORDERED_BEGIN, void mpi_file_read_ordered_begin_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_read_ordered_end_f.c b/src/mpi/f77/file_read_ordered_end_f.c index 81c6941a19..5b19afb701 100644 --- a/src/mpi/f77/file_read_ordered_end_f.c +++ b/src/mpi/f77/file_read_ordered_end_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_READ_ORDERED_END, void mpi_file_read_ordered_end_f(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_read_ordered_f.c b/src/mpi/f77/file_read_ordered_f.c index bca33054d4..da0120d7cb 100644 --- a/src/mpi/f77/file_read_ordered_f.c +++ b/src/mpi/f77/file_read_ordered_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_READ_ORDERED, void mpi_file_read_ordered_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_read_shared_f.c b/src/mpi/f77/file_read_shared_f.c index 26310f7735..e8d2b8383b 100644 --- a/src/mpi/f77/file_read_shared_f.c +++ b/src/mpi/f77/file_read_shared_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_READ_SHARED, void mpi_file_read_shared_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_seek_f.c b/src/mpi/f77/file_seek_f.c index ad2dd4a949..83cc323b68 100644 --- a/src/mpi/f77/file_seek_f.c +++ b/src/mpi/f77/file_seek_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_SEEK, void mpi_file_seek_f(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *whence, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_seek_shared_f.c b/src/mpi/f77/file_seek_shared_f.c index a35437f491..17d75a3989 100644 --- a/src/mpi/f77/file_seek_shared_f.c +++ b/src/mpi/f77/file_seek_shared_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_SEEK_SHARED, void mpi_file_seek_shared_f(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *whence, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_set_atomicity_f.c b/src/mpi/f77/file_set_atomicity_f.c index 43880bfb57..a7147215fc 100644 --- a/src/mpi/f77/file_set_atomicity_f.c +++ b/src/mpi/f77/file_set_atomicity_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_SET_ATOMICITY, void mpi_file_set_atomicity_f(MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_set_errhandler_f.c b/src/mpi/f77/file_set_errhandler_f.c index b5f1213799..cf9685d86c 100644 --- a/src/mpi/f77/file_set_errhandler_f.c +++ b/src/mpi/f77/file_set_errhandler_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_SET_ERRHANDLER, void mpi_file_set_errhandler_f(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_set_info_f.c b/src/mpi/f77/file_set_info_f.c index 9fb2962ab0..a3a4c78306 100644 --- a/src/mpi/f77/file_set_info_f.c +++ b/src/mpi/f77/file_set_info_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_SET_INFO, void mpi_file_set_info_f(MPI_Fint *fh, MPI_Fint *info, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_set_size_f.c b/src/mpi/f77/file_set_size_f.c index 52e2d498da..57c82c7f00 100644 --- a/src/mpi/f77/file_set_size_f.c +++ b/src/mpi/f77/file_set_size_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_SET_SIZE, void mpi_file_set_size_f(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_set_view_f.c b/src/mpi/f77/file_set_view_f.c index 8b7982da66..68b9df3d9c 100644 --- a/src/mpi/f77/file_set_view_f.c +++ b/src/mpi/f77/file_set_view_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_SET_VIEW, void mpi_file_set_view_f(MPI_Fint *fh, MPI_Fint *disp, MPI_Fint *etype, MPI_Fint *filetype, char *datarep, MPI_Fint *info, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_sync_f.c b/src/mpi/f77/file_sync_f.c index 00655d8a80..311c524cef 100644 --- a/src/mpi/f77/file_sync_f.c +++ b/src/mpi/f77/file_sync_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_SYNC, void mpi_file_sync_f(MPI_Fint *fh, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_write_all_begin_f.c b/src/mpi/f77/file_write_all_begin_f.c index 976a5b5d16..f39b662cc2 100644 --- a/src/mpi/f77/file_write_all_begin_f.c +++ b/src/mpi/f77/file_write_all_begin_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_WRITE_ALL_BEGIN, void mpi_file_write_all_begin_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_write_all_end_f.c b/src/mpi/f77/file_write_all_end_f.c index a3f7d3c4a7..bea2f4ffa0 100644 --- a/src/mpi/f77/file_write_all_end_f.c +++ b/src/mpi/f77/file_write_all_end_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_WRITE_ALL_END, void mpi_file_write_all_end_f(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_write_all_f.c b/src/mpi/f77/file_write_all_f.c index 3b5d406454..9024423ffa 100644 --- a/src/mpi/f77/file_write_all_f.c +++ b/src/mpi/f77/file_write_all_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_WRITE_ALL, void mpi_file_write_all_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_write_at_all_begin_f.c b/src/mpi/f77/file_write_at_all_begin_f.c index a2191e21ca..e94c2533d9 100644 --- a/src/mpi/f77/file_write_at_all_begin_f.c +++ b/src/mpi/f77/file_write_at_all_begin_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_WRITE_AT_ALL_BEGIN, void mpi_file_write_at_all_begin_f(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_write_at_all_end_f.c b/src/mpi/f77/file_write_at_all_end_f.c index d89d3d1ea1..23279f3af0 100644 --- a/src/mpi/f77/file_write_at_all_end_f.c +++ b/src/mpi/f77/file_write_at_all_end_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_WRITE_AT_ALL_END, void mpi_file_write_at_all_end_f(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_write_at_all_f.c b/src/mpi/f77/file_write_at_all_f.c index 70f986dd79..3e17b96432 100644 --- a/src/mpi/f77/file_write_at_all_f.c +++ b/src/mpi/f77/file_write_at_all_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_WRITE_AT_ALL, void mpi_file_write_at_all_f(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_write_at_f.c b/src/mpi/f77/file_write_at_f.c index 6a7865198e..1e76287cb4 100644 --- a/src/mpi/f77/file_write_at_f.c +++ b/src/mpi/f77/file_write_at_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_WRITE_AT, void mpi_file_write_at_f(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_write_f.c b/src/mpi/f77/file_write_f.c index 4360e0cd95..53dfe0e591 100644 --- a/src/mpi/f77/file_write_f.c +++ b/src/mpi/f77/file_write_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_WRITE, void mpi_file_write_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_write_ordered_begin_f.c b/src/mpi/f77/file_write_ordered_begin_f.c index 977ae0ca82..ea133d8c0d 100644 --- a/src/mpi/f77/file_write_ordered_begin_f.c +++ b/src/mpi/f77/file_write_ordered_begin_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_WRITE_ORDERED_BEGIN, void mpi_file_write_ordered_begin_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_write_ordered_end_f.c b/src/mpi/f77/file_write_ordered_end_f.c index d0e510f561..040d8cba6a 100644 --- a/src/mpi/f77/file_write_ordered_end_f.c +++ b/src/mpi/f77/file_write_ordered_end_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_WRITE_ORDERED_END, void mpi_file_write_ordered_end_f(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_write_ordered_f.c b/src/mpi/f77/file_write_ordered_f.c index 497910f5b8..841a66c274 100644 --- a/src/mpi/f77/file_write_ordered_f.c +++ b/src/mpi/f77/file_write_ordered_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_WRITE_ORDERED, void mpi_file_write_ordered_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/file_write_shared_f.c b/src/mpi/f77/file_write_shared_f.c index bcb62b3bfc..84dbd8a787 100644 --- a/src/mpi/f77/file_write_shared_f.c +++ b/src/mpi/f77/file_write_shared_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FILE_WRITE_SHARED, void mpi_file_write_shared_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/free_mem_f.c b/src/mpi/f77/free_mem_f.c index 1fd5a14b54..271eefc12e 100644 --- a/src/mpi/f77/free_mem_f.c +++ b/src/mpi/f77/free_mem_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_FREE_MEM, void mpi_free_mem_f(char *base, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/gather_f.c b/src/mpi/f77/gather_f.c index a29ea62d3c..ed2580afe5 100644 --- a/src/mpi/f77/gather_f.c +++ b/src/mpi/f77/gather_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_GATHER, void mpi_gather_f(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/gatherv_f.c b/src/mpi/f77/gatherv_f.c index a6c9ec64e7..a6d2dfbc61 100644 --- a/src/mpi/f77/gatherv_f.c +++ b/src/mpi/f77/gatherv_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_GATHERV, void mpi_gatherv_f(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *displs, MPI_Fint *recvtype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/get_address_f.c b/src/mpi/f77/get_address_f.c index 0cd8b2bc78..7b892ff9da 100644 --- a/src/mpi/f77/get_address_f.c +++ b/src/mpi/f77/get_address_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_GET_ADDRESS, void mpi_get_address_f(char *location, MPI_Fint *address, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/get_count_f.c b/src/mpi/f77/get_count_f.c index de7c4b472e..ea62aaf1b2 100644 --- a/src/mpi/f77/get_count_f.c +++ b/src/mpi/f77/get_count_f.c @@ -53,6 +53,7 @@ void mpi_get_count_f(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_ *ierr = MPI_Status_f2c(status, &c_status); - if (*ierr == MPI_SUCCESS) + if (MPI_SUCCESS == *ierr) { *ierr = MPI_Get_count(&c_status, c_type, count); + } } diff --git a/src/mpi/f77/get_elements_f.c b/src/mpi/f77/get_elements_f.c index 2da0584788..9d168cb5ca 100644 --- a/src/mpi/f77/get_elements_f.c +++ b/src/mpi/f77/get_elements_f.c @@ -53,7 +53,7 @@ void mpi_get_elements_f(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, M *ierr = MPI_Status_f2c(status, &c_status); - if (*ierr == MPI_SUCCESS) + if (MPI_SUCCESS == *ierr) { *ierr = MPI_Get_elements(&c_status, c_type, count); - + } } diff --git a/src/mpi/f77/get_f.c b/src/mpi/f77/get_f.c index fdc4cb8e19..ffa33ee8e4 100644 --- a/src/mpi/f77/get_f.c +++ b/src/mpi/f77/get_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_GET, void mpi_get_f(char *origin_addr, MPI_Fint *origin_count, MPI_Fint *origin_datatype, MPI_Fint *target_rank, MPI_Fint *target_disp, MPI_Fint *target_count, MPI_Fint *target_datatype, MPI_Fint *win, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/get_processor_name_f.c b/src/mpi/f77/get_processor_name_f.c index 0b285e6276..16cdf23a43 100644 --- a/src/mpi/f77/get_processor_name_f.c +++ b/src/mpi/f77/get_processor_name_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_GET_PROCESSOR_NAME, void mpi_get_processor_name_f(char *name, MPI_Fint *resultlen, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/get_version_f.c b/src/mpi/f77/get_version_f.c index 4274aaac2f..bb838f65ad 100644 --- a/src/mpi/f77/get_version_f.c +++ b/src/mpi/f77/get_version_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_GET_VERSION, void mpi_get_version_f(MPI_Fint *version, MPI_Fint *subversion, MPI_Fint *ierr) { - *ierr = MPI_Get_version(version, subversion); + *ierr = MPI_Get_version(version, subversion); } diff --git a/src/mpi/f77/graph_create_f.c b/src/mpi/f77/graph_create_f.c index 8cc4c4c405..50343a9321 100644 --- a/src/mpi/f77/graph_create_f.c +++ b/src/mpi/f77/graph_create_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_GRAPH_CREATE, void mpi_graph_create_f(MPI_Fint *comm_old, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *reorder, MPI_Fint *comm_graph, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/graph_get_f.c b/src/mpi/f77/graph_get_f.c index 982a3c4238..d2b97e1b60 100644 --- a/src/mpi/f77/graph_get_f.c +++ b/src/mpi/f77/graph_get_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_GRAPH_GET, void mpi_graph_get_f(MPI_Fint *comm, MPI_Fint *maxindex, MPI_Fint *maxedges, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/graph_map_f.c b/src/mpi/f77/graph_map_f.c index 0b67d13317..ed86b7c077 100644 --- a/src/mpi/f77/graph_map_f.c +++ b/src/mpi/f77/graph_map_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_GRAPH_MAP, void mpi_graph_map_f(MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *newrank, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/graph_neighbors_count_f.c b/src/mpi/f77/graph_neighbors_count_f.c index ab4b86b170..40053f0d9e 100644 --- a/src/mpi/f77/graph_neighbors_count_f.c +++ b/src/mpi/f77/graph_neighbors_count_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_GRAPH_NEIGHBORS_COUNT, void mpi_graph_neighbors_count_f(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *nneighbors, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/graph_neighbors_f.c b/src/mpi/f77/graph_neighbors_f.c index c6394cf15b..6c194a2a5c 100644 --- a/src/mpi/f77/graph_neighbors_f.c +++ b/src/mpi/f77/graph_neighbors_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_GRAPH_NEIGHBORS, void mpi_graph_neighbors_f(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxneighbors, MPI_Fint *neighbors, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/graphdims_get_f.c b/src/mpi/f77/graphdims_get_f.c index f53e6ce3f9..6bbde0ce44 100644 --- a/src/mpi/f77/graphdims_get_f.c +++ b/src/mpi/f77/graphdims_get_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_GRAPHDIMS_GET, void mpi_graphdims_get_f(MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *nedges, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/grequest_complete_f.c b/src/mpi/f77/grequest_complete_f.c index 0ed323cbd4..f848ae369b 100644 --- a/src/mpi/f77/grequest_complete_f.c +++ b/src/mpi/f77/grequest_complete_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_GREQUEST_COMPLETE, void mpi_grequest_complete_f(MPI_Fint *request, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/grequest_start_f.c b/src/mpi/f77/grequest_start_f.c index dfc6b5e88c..9b1b70d722 100644 --- a/src/mpi/f77/grequest_start_f.c +++ b/src/mpi/f77/grequest_start_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_GREQUEST_START, void mpi_grequest_start_f(MPI_Fint *query_fn, MPI_Fint *free_fn, MPI_Fint *cancel_fn, char *extra_state, MPI_Fint *request, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/group_difference_f.c b/src/mpi/f77/group_difference_f.c index 06034683b7..2217b202aa 100644 --- a/src/mpi/f77/group_difference_f.c +++ b/src/mpi/f77/group_difference_f.c @@ -58,6 +58,7 @@ void mpi_group_difference_f(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgro *ierr = MPI_Group_difference(c_group1, c_group2, &c_newgroup); /* translate the results from c to fortran */ - if (*ierr == OMPI_SUCCESS) + if (MPI_SUCCESS == *ierr) { *newgroup = c_newgroup->grp_f_to_c_index; + } } diff --git a/src/mpi/f77/ibsend_f.c b/src/mpi/f77/ibsend_f.c index 9029683421..a59fa3b6ec 100644 --- a/src/mpi/f77/ibsend_f.c +++ b/src/mpi/f77/ibsend_f.c @@ -56,7 +56,7 @@ void mpi_ibsend_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest *ierr = MPI_Ibsend(buf, *count, c_type, *dest, *tag, c_comm, &c_req); - if (*ierr == MPI_SUCCESS) { + if (MPI_SUCCESS == *ierr) { *request = MPI_Request_c2f(c_req); } } diff --git a/src/mpi/f77/info_create_f.c b/src/mpi/f77/info_create_f.c index f6eba93252..1b28836c4d 100644 --- a/src/mpi/f77/info_create_f.c +++ b/src/mpi/f77/info_create_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_INFO_CREATE, void mpi_info_create_f(MPI_Fint *info, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/info_delete_f.c b/src/mpi/f77/info_delete_f.c index 617a833612..8dfa9bd5f9 100644 --- a/src/mpi/f77/info_delete_f.c +++ b/src/mpi/f77/info_delete_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_INFO_DELETE, void mpi_info_delete_f(MPI_Fint *info, char *key, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/info_dup_f.c b/src/mpi/f77/info_dup_f.c index d35d64ed37..3719a5d3d9 100644 --- a/src/mpi/f77/info_dup_f.c +++ b/src/mpi/f77/info_dup_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_INFO_DUP, void mpi_info_dup_f(MPI_Fint *info, MPI_Fint *newinfo, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/info_free_f.c b/src/mpi/f77/info_free_f.c index 4c85a95c9e..9595cbfcfd 100644 --- a/src/mpi/f77/info_free_f.c +++ b/src/mpi/f77/info_free_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_INFO_FREE, void mpi_info_free_f(MPI_Fint *info, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/info_get_f.c b/src/mpi/f77/info_get_f.c index 605d1c4785..d45513d78c 100644 --- a/src/mpi/f77/info_get_f.c +++ b/src/mpi/f77/info_get_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_INFO_GET, void mpi_info_get_f(MPI_Fint *info, char *key, MPI_Fint *valuelen, char *value, MPI_Fint *flag, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/info_get_nkeys_f.c b/src/mpi/f77/info_get_nkeys_f.c index ce4d82a95a..d7db5658d8 100644 --- a/src/mpi/f77/info_get_nkeys_f.c +++ b/src/mpi/f77/info_get_nkeys_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_INFO_GET_NKEYS, void mpi_info_get_nkeys_f(MPI_Fint *info, MPI_Fint *nkeys, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/info_get_nthkey_f.c b/src/mpi/f77/info_get_nthkey_f.c index 45fc3218f9..929afa880e 100644 --- a/src/mpi/f77/info_get_nthkey_f.c +++ b/src/mpi/f77/info_get_nthkey_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_INFO_GET_NTHKEY, void mpi_info_get_nthkey_f(MPI_Fint *info, MPI_Fint *n, char *key, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/info_get_valuelen_f.c b/src/mpi/f77/info_get_valuelen_f.c index c506a680b5..7fcecb6e15 100644 --- a/src/mpi/f77/info_get_valuelen_f.c +++ b/src/mpi/f77/info_get_valuelen_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_INFO_GET_VALUELEN, void mpi_info_get_valuelen_f(MPI_Fint *info, char *key, MPI_Fint *valuelen, MPI_Fint *flag, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/info_set_f.c b/src/mpi/f77/info_set_f.c index 68a73645d7..c12c320f9d 100644 --- a/src/mpi/f77/info_set_f.c +++ b/src/mpi/f77/info_set_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_INFO_SET, void mpi_info_set_f(MPI_Fint *info, char *key, char *value, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/init_f.c b/src/mpi/f77/init_f.c index e5a058d1c5..29354d8390 100644 --- a/src/mpi/f77/init_f.c +++ b/src/mpi/f77/init_f.c @@ -49,6 +49,6 @@ OMPI_GENERATE_F77_BINDINGS (MPI_INIT, void mpi_init_f( MPI_Fint *ierr ) { int argc = 0; - char **argv = NULL; + char **argv = NULL; *ierr = MPI_Init( &argc, &argv ); } diff --git a/src/mpi/f77/init_thread_f.c b/src/mpi/f77/init_thread_f.c index 3fc018cee3..5eefafb0da 100644 --- a/src/mpi/f77/init_thread_f.c +++ b/src/mpi/f77/init_thread_f.c @@ -50,6 +50,5 @@ void mpi_init_thread_f( MPI_Fint *required, MPI_Fint *provided, MPI_Fint *ierr ) { int argc = 0; char** argv = NULL; - *ierr = MPI_Init_thread( &argc, &argv, *required, provided ); } diff --git a/src/mpi/f77/intercomm_create_f.c b/src/mpi/f77/intercomm_create_f.c index 396a6c2fd9..789a5ed0ee 100644 --- a/src/mpi/f77/intercomm_create_f.c +++ b/src/mpi/f77/intercomm_create_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_INTERCOMM_CREATE, void mpi_intercomm_create_f(MPI_Fint *local_comm, MPI_Fint *local_leader, MPI_Fint *bridge_comm, MPI_Fint *remote_leader, MPI_Fint *tag, MPI_Fint *newintercomm, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/intercomm_merge_f.c b/src/mpi/f77/intercomm_merge_f.c index 6dfe3b239f..c71393f145 100644 --- a/src/mpi/f77/intercomm_merge_f.c +++ b/src/mpi/f77/intercomm_merge_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_INTERCOMM_MERGE, void mpi_intercomm_merge_f(MPI_Fint *intercomm, MPI_Fint *high, MPI_Fint *newintercomm, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/irecv_f.c b/src/mpi/f77/irecv_f.c index de28bd7e39..727ab1139c 100644 --- a/src/mpi/f77/irecv_f.c +++ b/src/mpi/f77/irecv_f.c @@ -56,7 +56,7 @@ void mpi_irecv_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *sourc *ierr = MPI_Irecv(buf, *count, c_type, *source, *tag, c_comm, &c_req); - if (*ierr == MPI_SUCCESS) { + if (MPI_SUCCESS == *ierr) { *request = MPI_Request_c2f(c_req); } } diff --git a/src/mpi/f77/irsend_f.c b/src/mpi/f77/irsend_f.c index 7193d99922..24bf0e1cdc 100644 --- a/src/mpi/f77/irsend_f.c +++ b/src/mpi/f77/irsend_f.c @@ -56,7 +56,7 @@ void mpi_irsend_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest *ierr = MPI_Irsend(buf, *count, c_type, *dest, *tag, c_comm, &c_req); - if (*ierr == MPI_SUCCESS) { + if (MPI_SUCCESS == *ierr) { *request = MPI_Request_c2f(c_req); } } diff --git a/src/mpi/f77/isend_f.c b/src/mpi/f77/isend_f.c index a38594deab..03e35e6a5c 100644 --- a/src/mpi/f77/isend_f.c +++ b/src/mpi/f77/isend_f.c @@ -56,7 +56,7 @@ void mpi_isend_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, *ierr = MPI_Isend(buf, *count, c_type, *dest, *tag, c_comm, &c_req); - if (*ierr == MPI_SUCCESS) { + if (MPI_SUCCESS == *ierr) { *request = MPI_Request_c2f(c_req); } } diff --git a/src/mpi/f77/issend_f.c b/src/mpi/f77/issend_f.c index 16bf1ecfa6..a63cad19ec 100644 --- a/src/mpi/f77/issend_f.c +++ b/src/mpi/f77/issend_f.c @@ -56,7 +56,7 @@ void mpi_issend_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest *ierr = MPI_Issend(buf, *count, c_type, *dest, *tag, c_comm, &c_req); - if (*ierr == MPI_SUCCESS) { + if (MPI_SUCCESS == *ierr) { *request = MPI_Request_c2f(c_req); } } diff --git a/src/mpi/f77/keyval_create_f.c b/src/mpi/f77/keyval_create_f.c index cebcb7cb82..a7b7978349 100644 --- a/src/mpi/f77/keyval_create_f.c +++ b/src/mpi/f77/keyval_create_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_KEYVAL_CREATE, void mpi_keyval_create_f(MPI_Fint *copy_fn, MPI_Fint *delete_fn, MPI_Fint *keyval, char *extra_state, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/keyval_free_f.c b/src/mpi/f77/keyval_free_f.c index e2a8d216ca..cc767697bf 100644 --- a/src/mpi/f77/keyval_free_f.c +++ b/src/mpi/f77/keyval_free_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_KEYVAL_FREE, void mpi_keyval_free_f(MPI_Fint *keyval, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/lookup_name_f.c b/src/mpi/f77/lookup_name_f.c index fa293a8b1b..f3706945dd 100644 --- a/src/mpi/f77/lookup_name_f.c +++ b/src/mpi/f77/lookup_name_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_LOOKUP_NAME, void mpi_lookup_name_f(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/op_create_f.c b/src/mpi/f77/op_create_f.c index f7db69022c..fadbf96077 100644 --- a/src/mpi/f77/op_create_f.c +++ b/src/mpi/f77/op_create_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_OP_CREATE, void mpi_op_create_f(MPI_Fint *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/op_free_f.c b/src/mpi/f77/op_free_f.c index 576245da54..adbd60785b 100644 --- a/src/mpi/f77/op_free_f.c +++ b/src/mpi/f77/op_free_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_OP_FREE, void mpi_op_free_f(MPI_Fint *op, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/open_port_f.c b/src/mpi/f77/open_port_f.c index 0d401cab5c..07c77776ed 100644 --- a/src/mpi/f77/open_port_f.c +++ b/src/mpi/f77/open_port_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_OPEN_PORT, void mpi_open_port_f(MPI_Fint *info, char *port_name, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/pack_f.c b/src/mpi/f77/pack_f.c index 68ff910645..4f20e36d49 100644 --- a/src/mpi/f77/pack_f.c +++ b/src/mpi/f77/pack_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_PACK, void mpi_pack_f(char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *comm, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/pack_size_f.c b/src/mpi/f77/pack_size_f.c index fa5a428b56..8850777223 100644 --- a/src/mpi/f77/pack_size_f.c +++ b/src/mpi/f77/pack_size_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_PACK_SIZE, void mpi_pack_size_f(MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/publish_name_f.c b/src/mpi/f77/publish_name_f.c index 1f57032865..61f2326c05 100644 --- a/src/mpi/f77/publish_name_f.c +++ b/src/mpi/f77/publish_name_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_PUBLISH_NAME, void mpi_publish_name_f(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/put_f.c b/src/mpi/f77/put_f.c index 0c3bf78f56..7555188379 100644 --- a/src/mpi/f77/put_f.c +++ b/src/mpi/f77/put_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_PUT, void mpi_put_f(char *origin_addr, MPI_Fint *origin_count, MPI_Fint *origin_datatype, MPI_Fint *target_rank, MPI_Fint *target_disp, MPI_Fint *target_count, MPI_Fint *target_datatype, MPI_Fint *win, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/recv_init_f.c b/src/mpi/f77/recv_init_f.c index d6333a8234..5432aa056d 100644 --- a/src/mpi/f77/recv_init_f.c +++ b/src/mpi/f77/recv_init_f.c @@ -56,7 +56,7 @@ void mpi_recv_init_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *s *ierr = MPI_Recv_init(buf, *count, c_type, *source, *tag, c_comm, &c_req); - if (*ierr == MPI_SUCCESS) { + if (MPI_SUCCESS == *ierr) { *request = MPI_Request_c2f(c_req); } } diff --git a/src/mpi/f77/reduce_f.c b/src/mpi/f77/reduce_f.c index ce0d58f524..3545cb806a 100644 --- a/src/mpi/f77/reduce_f.c +++ b/src/mpi/f77/reduce_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_REDUCE, void mpi_reduce_f(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/reduce_scatter_f.c b/src/mpi/f77/reduce_scatter_f.c index 489f7abd47..13c78be2e0 100644 --- a/src/mpi/f77/reduce_scatter_f.c +++ b/src/mpi/f77/reduce_scatter_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_REDUCE_SCATTER, void mpi_reduce_scatter_f(char *sendbuf, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/register_datarep_f.c b/src/mpi/f77/register_datarep_f.c index 9d57680cdd..8b5e4c746c 100644 --- a/src/mpi/f77/register_datarep_f.c +++ b/src/mpi/f77/register_datarep_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_REGISTER_DATAREP, void mpi_register_datarep_f(char *datarep, MPI_Fint *read_conversion_fn, MPI_Fint *write_conversion_fn, MPI_Fint *dtype_file_extent_fn, char *extra_state, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/rsend_init_f.c b/src/mpi/f77/rsend_init_f.c index a729919b31..633e6fc64e 100644 --- a/src/mpi/f77/rsend_init_f.c +++ b/src/mpi/f77/rsend_init_f.c @@ -56,7 +56,7 @@ void mpi_rsend_init_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint * *ierr = MPI_Rsend_init(buf, *count, c_type, *dest, *tag, c_comm, &c_req); - if (*ierr == MPI_SUCCESS) { + if (MPI_SUCCESS == *ierr) { *request = MPI_Request_c2f(c_req); } } diff --git a/src/mpi/f77/scan_f.c b/src/mpi/f77/scan_f.c index d990323ee4..61c41ce178 100644 --- a/src/mpi/f77/scan_f.c +++ b/src/mpi/f77/scan_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_SCAN, void mpi_scan_f(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/scatter_f.c b/src/mpi/f77/scatter_f.c index 01d4781f09..85e0dc0af6 100644 --- a/src/mpi/f77/scatter_f.c +++ b/src/mpi/f77/scatter_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_SCATTER, void mpi_scatter_f(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/scatterv_f.c b/src/mpi/f77/scatterv_f.c index 79a5a89974..1bbd411705 100644 --- a/src/mpi/f77/scatterv_f.c +++ b/src/mpi/f77/scatterv_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_SCATTERV, void mpi_scatterv_f(char *sendbuf, MPI_Fint *sendcounts, MPI_Fint *displs, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/send_init_f.c b/src/mpi/f77/send_init_f.c index 020f9664b7..704386399a 100644 --- a/src/mpi/f77/send_init_f.c +++ b/src/mpi/f77/send_init_f.c @@ -56,7 +56,7 @@ void mpi_send_init_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *d *ierr = MPI_Send_init(buf, *count, c_type, *dest, *tag, c_comm, &c_req); - if (*ierr == MPI_SUCCESS) { + if (MPI_SUCCESS == *ierr) { *request = MPI_Request_c2f(c_req); } } diff --git a/src/mpi/f77/ssend_init_f.c b/src/mpi/f77/ssend_init_f.c index 60d901891e..82d3bc19fd 100644 --- a/src/mpi/f77/ssend_init_f.c +++ b/src/mpi/f77/ssend_init_f.c @@ -56,7 +56,7 @@ void mpi_ssend_init_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint * *ierr = MPI_Ssend_init(buf, *count, c_type, *dest, *tag, c_comm, &c_req); - if (*ierr == MPI_SUCCESS) { + if (MPI_SUCCESS == *ierr) { *request = MPI_Request_c2f(c_req); } } diff --git a/src/mpi/f77/start_f.c b/src/mpi/f77/start_f.c index 7e3246ccfd..6a8fa83f49 100644 --- a/src/mpi/f77/start_f.c +++ b/src/mpi/f77/start_f.c @@ -53,13 +53,14 @@ void mpi_start_f(MPI_Fint *request, MPI_Fint *ierr) *ierr = MPI_Start(&c_req); - if (*ierr == MPI_SUCCESS) { + if (MPI_SUCCESS == *ierr) { /* For a persistent request, the underlying request descriptor could change (i.e. the old descriptor has not completed and cannot be reused). So commit new descriptor. */ - if ( tmp_req != c_req ) + if ( tmp_req != c_req ) { *request = MPI_Request_c2f(c_req); + } } } diff --git a/src/mpi/f77/startall_f.c b/src/mpi/f77/startall_f.c index 6a382e28f3..d8a1f3e201 100644 --- a/src/mpi/f77/startall_f.c +++ b/src/mpi/f77/startall_f.c @@ -9,6 +9,8 @@ #include "mpi.h" #include "mpi/f77/bindings.h" +#include "errhandler/errhandler.h" +#include "communicator/communicator.h" #if OMPI_HAVE_WEAK_SYMBOLS && OMPI_PROFILE_LAYER #pragma weak PMPI_STARTALL = mpi_startall_f @@ -47,14 +49,18 @@ OMPI_GENERATE_F77_BINDINGS (MPI_STARTALL, #include "mpi/f77/profile/defines.h" #endif +static const char FUNC_NAME[] = "MPI_STARTALL"; + + void mpi_startall_f(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *ierr) { MPI_Request *c_req; int i; c_req = malloc(*count * sizeof(MPI_Request)); - if (c_req == NULL) { - *ierr = MPI_ERR_INTERN; + if (NULL == c_req) { + *ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_NO_MEM, + FUNC_NAME); return; } @@ -63,9 +69,6 @@ void mpi_startall_f(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *ierr } *ierr = MPI_Startall(*count, c_req); - - if (c_req) { - free(c_req); - } + free(c_req); } diff --git a/src/mpi/f77/status_set_cancelled_f.c b/src/mpi/f77/status_set_cancelled_f.c index 5744891c30..00326c3162 100644 --- a/src/mpi/f77/status_set_cancelled_f.c +++ b/src/mpi/f77/status_set_cancelled_f.c @@ -48,13 +48,13 @@ OMPI_GENERATE_F77_BINDINGS (MPI_STATUS_SET_CANCELLED, void mpi_status_set_cancelled_f(MPI_Fint *status, MPI_Fint *flag, MPI_Fint *ierr) { - MPI_Status c_status; MPI_Status_f2c( status, &c_status ); *ierr = MPI_Status_set_cancelled(&c_status, *flag); - if (*ierr == MPI_SUCCESS) + if (MPI_SUCCESS == *ierr) { MPI_Status_c2f(&c_status, status); + } } diff --git a/src/mpi/f77/status_set_elements_f.c b/src/mpi/f77/status_set_elements_f.c index c1137ea83f..f49337972f 100644 --- a/src/mpi/f77/status_set_elements_f.c +++ b/src/mpi/f77/status_set_elements_f.c @@ -56,7 +56,8 @@ void mpi_status_set_elements_f(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *c *ierr = MPI_Status_set_elements(&c_status, &c_type, *count); /* If datatype is really being set, then that needs to be converted.... */ - if (*ierr == MPI_SUCCESS) + if (MPI_SUCCESS == *ierr) { MPI_Status_c2f(&c_status, status); + } } diff --git a/src/mpi/f77/test_f.c b/src/mpi/f77/test_f.c index 140d280021..dcfbb5a192 100644 --- a/src/mpi/f77/test_f.c +++ b/src/mpi/f77/test_f.c @@ -55,7 +55,7 @@ void mpi_test_f(MPI_Fint *request, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *i MPI_Status_c2f( &c_status, status); - if ( (*ierr == MPI_SUCCESS) && (c_req == NULL) ) + if ( (MPI_SUCCESS == *ierr) && (NULL == c_req) ) { *request = -1; - + } } diff --git a/src/mpi/f77/testall_f.c b/src/mpi/f77/testall_f.c index 0018e9f062..60d8907e0d 100644 --- a/src/mpi/f77/testall_f.c +++ b/src/mpi/f77/testall_f.c @@ -9,6 +9,8 @@ #include "mpi.h" #include "mpi/f77/bindings.h" +#include "errhandler/errhandler.h" +#include "communicator/communicator.h" #if OMPI_HAVE_WEAK_SYMBOLS && OMPI_PROFILE_LAYER #pragma weak PMPI_TESTALL = mpi_testall_f @@ -47,40 +49,36 @@ OMPI_GENERATE_F77_BINDINGS (MPI_TESTALL, #include "mpi/f77/profile/defines.h" #endif +static const char FUNC_NAME[] = "MPI_TESTALL"; + + void mpi_testall_f(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *flag, MPI_Fint *array_of_statuses, MPI_Fint *ierr) { MPI_Request *c_req; MPI_Status *c_status; int i; - c_req = malloc(*count * sizeof(MPI_Request)); - if (c_req == NULL){ - *ierr = MPI_ERR_INTERN; + c_req = malloc(*count * (sizeof(MPI_Request) + sizeof(MPI_Status))); + if (NULL == c_req){ + *ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_NO_MEM, + FUNC_NAME); return; } - - c_status = malloc(*count * sizeof(MPI_Status)); - if (c_status == NULL){ - *ierr = MPI_ERR_INTERN; - free(c_req); - return; - } - + c_status = (MPI_Status*) (c_req + *count); for (i = 0; i < *count; i++) { c_req[i] = MPI_Request_f2c(array_of_requests[i]); } *ierr = MPI_Testall(*count, c_req, flag, c_status); - if (*ierr == MPI_SUCCESS && *flag) { + if (MPI_SUCCESS == *ierr && 1 == *flag) { for (i = 0; i < *count; i++) { - if (c_req[i] == NULL) + if (NULL == c_req[i]) { array_of_requests[i] = -1; + } MPI_Status_c2f(&c_status[i], &array_of_statuses[i]); } } free(c_req); - free(c_status); - } diff --git a/src/mpi/f77/testany_f.c b/src/mpi/f77/testany_f.c index b9a363518e..f6ee59af99 100644 --- a/src/mpi/f77/testany_f.c +++ b/src/mpi/f77/testany_f.c @@ -9,6 +9,8 @@ #include "mpi.h" #include "mpi/f77/bindings.h" +#include "errhandler/errhandler.h" +#include "communicator/communicator.h" #if OMPI_HAVE_WEAK_SYMBOLS && OMPI_PROFILE_LAYER #pragma weak PMPI_TESTANY = mpi_testany_f @@ -47,6 +49,9 @@ OMPI_GENERATE_F77_BINDINGS (MPI_TESTANY, #include "mpi/f77/profile/defines.h" #endif +static const char FUNC_NAME[] = "MPI_TESTANY"; + + void mpi_testany_f(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr) { MPI_Request *c_req; @@ -55,7 +60,8 @@ void mpi_testany_f(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index c_req = malloc(*count * sizeof(MPI_Request)); if (c_req == NULL) { - *ierr = MPI_ERR_INTERN; + *ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_NO_MEM, + FUNC_NAME); return; } @@ -65,8 +71,8 @@ void mpi_testany_f(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index *ierr = MPI_Testany(*count, c_req, index, flag, &c_status); - if (*ierr == MPI_SUCCESS) { - if (*index != MPI_UNDEFINED) { + if (MPI_SUCCESS == *ierr) { + if (MPI_UNDEFINED != *index) { *index += 1; } MPI_Status_c2f(&c_status, status); diff --git a/src/mpi/f77/testsome_f.c b/src/mpi/f77/testsome_f.c index 7bd084d77a..fbb84e4081 100644 --- a/src/mpi/f77/testsome_f.c +++ b/src/mpi/f77/testsome_f.c @@ -9,6 +9,8 @@ #include "mpi.h" #include "mpi/f77/bindings.h" +#include "errhandler/errhandler.h" +#include "communicator/communicator.h" #if OMPI_HAVE_WEAK_SYMBOLS && OMPI_PROFILE_LAYER #pragma weak PMPI_TESTSOME = mpi_testsome_f @@ -47,24 +49,22 @@ OMPI_GENERATE_F77_BINDINGS (MPI_TESTSOME, #include "mpi/f77/profile/defines.h" #endif +static const char FUNC_NAME[] = "MPI_TESTSOME"; + + void mpi_testsome_f(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *outcount, MPI_Fint *array_of_indices, MPI_Fint *array_of_statuses, MPI_Fint *ierr) { MPI_Request *c_req; MPI_Status *c_status; int i; - c_req = malloc(*incount * sizeof(MPI_Request)); - if (c_req == NULL) { - *ierr = MPI_ERR_INTERN; - return; - } - - c_status = malloc(*incount * sizeof(MPI_Status)); - if (c_status == NULL){ - *ierr = MPI_ERR_INTERN; - free(c_req); + c_req = malloc(*incount * (sizeof(MPI_Request) + sizeof(MPI_Status))); + if (NULL == c_req) { + *ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_NO_MEM, + FUNC_NAME); return; } + c_status = (MPI_Status*) c_req + *incount; for (i = 0; i < *incount; i++) { c_req[i] = MPI_Request_f2c(array_of_requests[i]); @@ -73,8 +73,8 @@ void mpi_testsome_f(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *ou *ierr = MPI_Testsome(*incount, c_req, outcount, array_of_indices, c_status); - if (*ierr == MPI_SUCCESS) { - if (*outcount != MPI_UNDEFINED) { + if (MPI_SUCCESS == *ierr) { + if (MPI_UNDEFINED != *outcount) { for (i = 0; i < *outcount; i++) { array_of_indices[i] += 1; } @@ -85,6 +85,4 @@ void mpi_testsome_f(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *ou } free(c_req); - free(c_status); - } diff --git a/src/mpi/f77/topo_test_f.c b/src/mpi/f77/topo_test_f.c index 7c364e97bc..396fb450e5 100644 --- a/src/mpi/f77/topo_test_f.c +++ b/src/mpi/f77/topo_test_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_TOPO_TEST, void mpi_topo_test_f(MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/type_commit_f.c b/src/mpi/f77/type_commit_f.c index e4119b3c34..001d174ae2 100644 --- a/src/mpi/f77/type_commit_f.c +++ b/src/mpi/f77/type_commit_f.c @@ -52,7 +52,7 @@ void mpi_type_commit_f(MPI_Fint *type, MPI_Fint *ierr) *ierr = MPI_Type_commit(&c_type); - if (*ierr == MPI_SUCCESS) + if (MPI_SUCCESS == *ierr) { *type = MPI_Type_c2f(c_type); - + } } diff --git a/src/mpi/f77/type_contiguous_f.c b/src/mpi/f77/type_contiguous_f.c index 734e3ec5d5..afce355e38 100644 --- a/src/mpi/f77/type_contiguous_f.c +++ b/src/mpi/f77/type_contiguous_f.c @@ -53,6 +53,7 @@ void mpi_type_contiguous_f(MPI_Fint *count, MPI_Fint *oldtype, MPI_Fint *newtype *ierr = MPI_Type_contiguous(*count, c_old, &c_new); - if (*ierr == MPI_SUCCESS) + if (MPI_SUCCESS == *ierr) { *newtype = MPI_Type_c2f(c_new); + } } diff --git a/src/mpi/f77/type_create_darray_f.c b/src/mpi/f77/type_create_darray_f.c index bf93bddc66..cfb448e83f 100644 --- a/src/mpi/f77/type_create_darray_f.c +++ b/src/mpi/f77/type_create_darray_f.c @@ -55,6 +55,7 @@ void mpi_type_create_darray_f(MPI_Fint *size, MPI_Fint *rank, MPI_Fint *ndims, M distrib_array, darg_array, psize_array, *order, c_old, &c_new); - if (*ierr == MPI_SUCCESS) + if (MPI_SUCCESS == *ierr) { *newtype = MPI_Type_c2f(c_new); + } } diff --git a/src/mpi/f77/type_create_f90_complex_f.c b/src/mpi/f77/type_create_f90_complex_f.c index 599cc0a996..e8e59fda51 100644 --- a/src/mpi/f77/type_create_f90_complex_f.c +++ b/src/mpi/f77/type_create_f90_complex_f.c @@ -52,6 +52,7 @@ void mpi_type_create_f90_complex_f(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, *ierr = MPI_Type_create_f90_complex(*p, *r, &c_newtype); - if (*ierr == MPI_SUCCESS) + if (MPI_SUCCESS == *ierr) { *newtype = MPI_Type_c2f (c_newtype); + } } diff --git a/src/mpi/f77/type_create_f90_integer_f.c b/src/mpi/f77/type_create_f90_integer_f.c index a66afa11ec..9ec58f6dce 100644 --- a/src/mpi/f77/type_create_f90_integer_f.c +++ b/src/mpi/f77/type_create_f90_integer_f.c @@ -52,6 +52,7 @@ void mpi_type_create_f90_integer_f(MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ier *ierr = MPI_Type_create_f90_integer( *r, &c_new); - if (*ierr == MPI_SUCCESS) + if (MPI_SUCCESS == *ierr) { *newtype = MPI_Type_c2f(c_new); + } } diff --git a/src/mpi/f77/type_create_f90_real_f.c b/src/mpi/f77/type_create_f90_real_f.c index 78a566548b..a7d712295e 100644 --- a/src/mpi/f77/type_create_f90_real_f.c +++ b/src/mpi/f77/type_create_f90_real_f.c @@ -52,6 +52,7 @@ void mpi_type_create_f90_real_f(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI *ierr = MPI_Type_create_f90_real(*p, *r, &c_new); - if (*ierr == MPI_SUCCESS) + if (MPI_SUCCESS == *ierr) { *newtype = MPI_Type_c2f(c_new); + } } diff --git a/src/mpi/f77/type_create_hindexed_f.c b/src/mpi/f77/type_create_hindexed_f.c index fb1dfafc43..7822d6d7d5 100644 --- a/src/mpi/f77/type_create_hindexed_f.c +++ b/src/mpi/f77/type_create_hindexed_f.c @@ -9,6 +9,8 @@ #include "mpi.h" #include "mpi/f77/bindings.h" +#include "errhandler/errhandler.h" +#include "communicator/communicator.h" #if OMPI_HAVE_WEAK_SYMBOLS && OMPI_PROFILE_LAYER #pragma weak PMPI_TYPE_CREATE_HINDEXED = mpi_type_create_hindexed_f @@ -47,6 +49,9 @@ OMPI_GENERATE_F77_BINDINGS (MPI_TYPE_CREATE_HINDEXED, #include "mpi/f77/profile/defines.h" #endif +static const char FUNC_NAME[] = "MPI_TYPE_CREATE_HINDEXED"; + + void mpi_type_create_hindexed_f(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr) { MPI_Datatype c_old = MPI_Type_f2c(*oldtype); @@ -55,8 +60,9 @@ void mpi_type_create_hindexed_f(MPI_Fint *count, MPI_Fint *array_of_blocklengths int i; c_disp_array = malloc(*count * sizeof(MPI_Aint)); - if (c_disp_array == (MPI_Aint *) NULL) { - *ierr = MPI_ERR_INTERN; + if (NULL == c_disp_array) { + *ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_NO_MEM, + FUNC_NAME); return; } for (i = 0; i < *count; i++) { @@ -66,8 +72,9 @@ void mpi_type_create_hindexed_f(MPI_Fint *count, MPI_Fint *array_of_blocklengths *ierr = MPI_Type_create_hindexed(*count, array_of_blocklengths, c_disp_array, c_old, &c_new); - if (*ierr == MPI_SUCCESS) + if (MPI_SUCCESS == *ierr) { *newtype = MPI_Type_c2f(c_new); + } free(c_disp_array); } diff --git a/src/mpi/f77/type_create_hvector_f.c b/src/mpi/f77/type_create_hvector_f.c index 8f5418f768..1947e99e76 100644 --- a/src/mpi/f77/type_create_hvector_f.c +++ b/src/mpi/f77/type_create_hvector_f.c @@ -55,7 +55,7 @@ void mpi_type_create_hvector_f(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *ierr = MPI_Type_hvector(*count, *blocklength, c_stride, c_old, &c_new); - if (*ierr == MPI_SUCCESS){ + if (MPI_SUCCESS == *ierr) { *newtype = MPI_Type_c2f(c_new); } } diff --git a/src/mpi/f77/type_create_indexed_block_f.c b/src/mpi/f77/type_create_indexed_block_f.c index 46d20d0db3..eeb8665538 100644 --- a/src/mpi/f77/type_create_indexed_block_f.c +++ b/src/mpi/f77/type_create_indexed_block_f.c @@ -54,7 +54,8 @@ void mpi_type_create_indexed_block_f(MPI_Fint *count, MPI_Fint *blocklength, MPI *ierr = MPI_Type_create_indexed_block(*count, *blocklength, array_of_displacements, c_old, &c_new); - if (*ierr == MPI_SUCCESS) + if (MPI_SUCCESS == *ierr) { *newtype = MPI_Type_c2f(c_new); + } } diff --git a/src/mpi/f77/type_create_keyval_f.c b/src/mpi/f77/type_create_keyval_f.c index 047a0d3bc2..248c7c7dd8 100644 --- a/src/mpi/f77/type_create_keyval_f.c +++ b/src/mpi/f77/type_create_keyval_f.c @@ -71,7 +71,7 @@ void mpi_type_create_keyval_f(MPI_Fint *type_copy_attr_fn, MPI_Fint *type_delete ret = ompi_attr_create_keyval(TYPE_ATTR, copy_fn, del_fn, type_keyval, extra_state, OMPI_KEYVAL_F77); - if (ret != OMPI_SUCCESS) { + if (MPI_SUCCESS != ret) { *ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_OTHER, FUNC_NAME); } else { diff --git a/src/mpi/f77/type_create_resized_f.c b/src/mpi/f77/type_create_resized_f.c index 315b126c8c..ec9a8303f5 100644 --- a/src/mpi/f77/type_create_resized_f.c +++ b/src/mpi/f77/type_create_resized_f.c @@ -53,6 +53,7 @@ void mpi_type_create_resized_f(MPI_Fint *oldtype, MPI_Fint *lb, MPI_Fint *extent *ierr = MPI_Type_create_resized(c_old, *lb, *extent, &c_new); - if (*ierr == MPI_SUCCESS) + if (MPI_SUCCESS == *ierr) { *newtype = MPI_Type_c2f(c_new); + } } diff --git a/src/mpi/f77/type_create_struct_f.c b/src/mpi/f77/type_create_struct_f.c index 98c480abf1..10ba514047 100644 --- a/src/mpi/f77/type_create_struct_f.c +++ b/src/mpi/f77/type_create_struct_f.c @@ -9,6 +9,8 @@ #include "mpi.h" #include "mpi/f77/bindings.h" +#include "errhandler/errhandler.h" +#include "communicator/communicator.h" #if OMPI_HAVE_WEAK_SYMBOLS && OMPI_PROFILE_LAYER #pragma weak PMPI_TYPE_CREATE_STRUCT = mpi_type_create_struct_f @@ -47,6 +49,9 @@ OMPI_GENERATE_F77_BINDINGS (MPI_TYPE_CREATE_STRUCT, #include "mpi/f77/profile/defines.h" #endif +static const char FUNC_NAME[] = "MPI_TYPE_CREATE_STRUCT"; + + void mpi_type_create_struct_f(MPI_Fint *count, MPI_Fint *array_of_block_lengths, MPI_Fint *array_of_displacements, MPI_Fint *array_of_types, MPI_Fint *newtype, MPI_Fint *ierr) { MPI_Datatype c_new; @@ -54,30 +59,24 @@ void mpi_type_create_struct_f(MPI_Fint *count, MPI_Fint *array_of_block_lengths, MPI_Aint *c_disp_array; int i; - c_type_old_array = malloc(*count * sizeof(MPI_Datatype)); - if (c_type_old_array == (MPI_Datatype *) NULL) { - *ierr = MPI_ERR_INTERN; + c_type_old_array = malloc(*count * (sizeof(MPI_Datatype) + + sizeof(MPI_Aint))); + if (NULL == c_type_old_array) { + *ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_NO_MEM, + FUNC_NAME); return; } + c_disp_array = (MPI_Aint*) c_type_old_array + *count; - c_disp_array = malloc(*count * sizeof(MPI_Aint)); - if (c_disp_array == (MPI_Aint *) NULL) { - if (c_type_old_array != (MPI_Datatype *) NULL) - free(c_type_old_array); - - *ierr = MPI_ERR_INTERN; - return; - } for (i = 0; i < *count; i++) { c_disp_array[i] = (MPI_Aint) array_of_displacements[i]; c_type_old_array[i] = MPI_Type_f2c(array_of_types[i]); } - *ierr = MPI_Type_create_struct(*count, array_of_block_lengths, c_disp_array, - c_type_old_array, &c_new); + *ierr = MPI_Type_create_struct(*count, array_of_block_lengths, + c_disp_array, c_type_old_array, &c_new); - if (*ierr == MPI_SUCCESS) { + if (MPI_SUCCESS == *ierr) { *newtype = MPI_Type_c2f(c_new); } - } diff --git a/src/mpi/f77/type_create_subarray_f.c b/src/mpi/f77/type_create_subarray_f.c index fb24972260..a3a488ffb4 100644 --- a/src/mpi/f77/type_create_subarray_f.c +++ b/src/mpi/f77/type_create_subarray_f.c @@ -59,6 +59,7 @@ void mpi_type_create_subarray_f(MPI_Fint *ndims, MPI_Fint *size_array, MPI_Fint start_array, *order, c_old, &c_new); - if (*ierr == MPI_SUCCESS) + if (MPI_SUCCESS == *ierr) { *newtype = MPI_Type_c2f(c_new); + } } diff --git a/src/mpi/f77/type_delete_attr_f.c b/src/mpi/f77/type_delete_attr_f.c index be6f4e9eca..e274c03516 100644 --- a/src/mpi/f77/type_delete_attr_f.c +++ b/src/mpi/f77/type_delete_attr_f.c @@ -52,8 +52,7 @@ void mpi_type_delete_attr_f(MPI_Fint *type, MPI_Fint *type_keyval, MPI_Fint *ier *ierr = MPI_Type_delete_attr( c_type, *type_keyval ); - if (*ierr == MPI_SUCCESS) + if (MPI_SUCCESS == *ierr) { *type = MPI_Type_c2f( c_type ); + } } - - diff --git a/src/mpi/f77/type_dup_f.c b/src/mpi/f77/type_dup_f.c index 70b174ee36..78234586cf 100644 --- a/src/mpi/f77/type_dup_f.c +++ b/src/mpi/f77/type_dup_f.c @@ -53,6 +53,7 @@ void mpi_type_dup_f(MPI_Fint *type, MPI_Fint *newtype, MPI_Fint *ierr) *ierr = MPI_Type_dup(c_type, &c_new); - if (*ierr == MPI_SUCCESS) + if (MPI_SUCCESS == *ierr) { *newtype = MPI_Type_c2f(c_new); + } } diff --git a/src/mpi/f77/type_extent_f.c b/src/mpi/f77/type_extent_f.c index fa8e972a38..2be065f851 100644 --- a/src/mpi/f77/type_extent_f.c +++ b/src/mpi/f77/type_extent_f.c @@ -53,6 +53,7 @@ void mpi_type_extent_f(MPI_Fint *type, MPI_Fint *extent, MPI_Fint *ierr) *ierr = MPI_Type_extent(c_type, &c_extent); - if (*ierr == MPI_SUCCESS) + if (MPI_SUCCESS == *ierr) { *extent = (MPI_Fint)c_extent; + } } diff --git a/src/mpi/f77/type_free_f.c b/src/mpi/f77/type_free_f.c index 7520c6894b..dbd1a080b2 100644 --- a/src/mpi/f77/type_free_f.c +++ b/src/mpi/f77/type_free_f.c @@ -48,11 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_TYPE_FREE, void mpi_type_free_f(MPI_Fint *type, MPI_Fint *ierr) { - MPI_Datatype c_type = MPI_DATATYPE_NULL; - *ierr = MPI_Type_free(&c_type); - - /* This value comes from the MPI_DATATYPE_NULL value in mpif.h. - Do not change without consulting mpif.h! */ - - *type = -1; + /* This function not yet implemented */ } diff --git a/src/mpi/f77/type_free_keyval_f.c b/src/mpi/f77/type_free_keyval_f.c index 77611ad2d6..6b3487e530 100644 --- a/src/mpi/f77/type_free_keyval_f.c +++ b/src/mpi/f77/type_free_keyval_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_TYPE_FREE_KEYVAL, void mpi_type_free_keyval_f(MPI_Fint *type_keyval, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/type_get_contents_f.c b/src/mpi/f77/type_get_contents_f.c index 2958250294..d8a03de038 100644 --- a/src/mpi/f77/type_get_contents_f.c +++ b/src/mpi/f77/type_get_contents_f.c @@ -9,6 +9,8 @@ #include "mpi.h" #include "mpi/f77/bindings.h" +#include "errhandler/errhandler.h" +#include "communicator/communicator.h" #if OMPI_HAVE_WEAK_SYMBOLS && OMPI_PROFILE_LAYER #pragma weak PMPI_TYPE_GET_CONTENTS = mpi_type_get_contents_f @@ -47,9 +49,11 @@ OMPI_GENERATE_F77_BINDINGS (MPI_TYPE_GET_CONTENTS, #include "mpi/f77/profile/defines.h" #endif +static const char FUNC_NAME[] = "MPI_TYPE_GET_CONTENTS"; + + void mpi_type_get_contents_f(MPI_Fint *mtype, MPI_Fint *max_integers, MPI_Fint *max_addresses, MPI_Fint *max_datatypes, MPI_Fint *array_of_integers, MPI_Fint *array_of_addresses, MPI_Fint *array_of_datatypes, MPI_Fint *ierr) { - MPI_Aint *c_address_array = NULL; MPI_Datatype *c_datatype_array = NULL; MPI_Datatype c_mtype = MPI_Type_f2c(*mtype); @@ -57,20 +61,22 @@ void mpi_type_get_contents_f(MPI_Fint *mtype, MPI_Fint *max_integers, MPI_Fint * if (*max_datatypes) { c_datatype_array = malloc(*max_datatypes * sizeof(MPI_Datatype)); - if (c_datatype_array == (MPI_Datatype*) NULL) { - *ierr = MPI_ERR_INTERN; + if (NULL == c_datatype_array) { + *ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_NO_MEM, + FUNC_NAME); return; } } if (*max_addresses) { c_address_array = malloc(*max_addresses * sizeof(MPI_Aint)); - if (c_address_array == (MPI_Aint *) NULL) { - /* prevent memory leaks */ - if (c_datatype_array != (MPI_Datatype*) NULL) + if (NULL == c_address_array) { + if (NULL != c_datatype_array) { free(c_datatype_array); + } - *ierr = MPI_ERR_INTERN; + *ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_NO_MEM, + FUNC_NAME); return; } } @@ -79,7 +85,7 @@ void mpi_type_get_contents_f(MPI_Fint *mtype, MPI_Fint *max_integers, MPI_Fint * *max_datatypes, array_of_integers, c_address_array, c_datatype_array); - if (*ierr == MPI_SUCCESS) { + if (MPI_SUCCESS == *ierr) { for (i = 0; i < *max_addresses; i++) { array_of_addresses[i] = (MPI_Fint)c_address_array[i]; } diff --git a/src/mpi/f77/type_get_extent_f.c b/src/mpi/f77/type_get_extent_f.c index 9f66bf9535..0a552fe28a 100644 --- a/src/mpi/f77/type_get_extent_f.c +++ b/src/mpi/f77/type_get_extent_f.c @@ -54,7 +54,7 @@ void mpi_type_get_extent_f(MPI_Fint *type, MPI_Fint *lb, MPI_Fint *extent, MPI_F *ierr = MPI_Type_get_extent(c_type, &c_lb, &c_extent); - if (*ierr == MPI_SUCCESS){ + if (MPI_SUCCESS == *ierr){ *lb = (MPI_Fint) c_lb; *extent = (MPI_Fint) c_extent; } diff --git a/src/mpi/f77/type_get_true_extent_f.c b/src/mpi/f77/type_get_true_extent_f.c index aebd6fe982..8afd53ee3e 100644 --- a/src/mpi/f77/type_get_true_extent_f.c +++ b/src/mpi/f77/type_get_true_extent_f.c @@ -54,7 +54,7 @@ void mpi_type_get_true_extent_f(MPI_Fint *datatype, MPI_Fint *true_lb, MPI_Fint *ierr = MPI_Type_get_true_extent(c_type, &c_true_lb, &c_true_extent); - if (*ierr == MPI_SUCCESS){ + if (MPI_SUCCESS == *ierr) { *true_lb = (MPI_Fint) c_true_lb; *true_extent = (MPI_Fint) c_true_extent; } diff --git a/src/mpi/f77/type_hindexed_f.c b/src/mpi/f77/type_hindexed_f.c index 5e33124934..5e60d2f9b6 100644 --- a/src/mpi/f77/type_hindexed_f.c +++ b/src/mpi/f77/type_hindexed_f.c @@ -9,6 +9,8 @@ #include "mpi.h" #include "mpi/f77/bindings.h" +#include "errhandler/errhandler.h" +#include "communicator/communicator.h" #if OMPI_HAVE_WEAK_SYMBOLS && OMPI_PROFILE_LAYER #pragma weak PMPI_TYPE_HINDEXED = mpi_type_hindexed_f @@ -47,6 +49,9 @@ OMPI_GENERATE_F77_BINDINGS (MPI_TYPE_HINDEXED, #include "mpi/f77/profile/defines.h" #endif +static const char FUNC_NAME[] = "MPI_TYPE_HINDEXED"; + + void mpi_type_hindexed_f(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr) { MPI_Datatype c_old = MPI_Type_f2c(*oldtype); @@ -55,8 +60,9 @@ void mpi_type_hindexed_f(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_F int i; c_disp_array = malloc(*count * sizeof(MPI_Aint)); - if (c_disp_array == (MPI_Aint *) NULL) { - *ierr = MPI_ERR_INTERN; + if (NULL == c_disp_array) { + *ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_NO_MEM, + FUNC_NAME); return; } for (i = 0; i < *count; i++) { @@ -65,8 +71,9 @@ void mpi_type_hindexed_f(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_F *ierr = MPI_Type_hindexed(*count, array_of_blocklengths, c_disp_array, c_old, &c_new); - if (*ierr == MPI_SUCCESS) + if (MPI_SUCCESS == *ierr) { *newtype = MPI_Type_c2f(c_new); + } free(c_disp_array); } diff --git a/src/mpi/f77/type_hvector_f.c b/src/mpi/f77/type_hvector_f.c index 435e265532..c19525d5f7 100644 --- a/src/mpi/f77/type_hvector_f.c +++ b/src/mpi/f77/type_hvector_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_TYPE_HVECTOR, void mpi_type_hvector_f(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/type_indexed_f.c b/src/mpi/f77/type_indexed_f.c index 747560b1c5..9789826c53 100644 --- a/src/mpi/f77/type_indexed_f.c +++ b/src/mpi/f77/type_indexed_f.c @@ -54,6 +54,7 @@ void mpi_type_indexed_f(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fi *ierr = MPI_Type_indexed(*count, array_of_blocklengths, array_of_displacements, c_old, &c_new); - if (*ierr == MPI_SUCCESS) + if (MPI_SUCCESS == *ierr) { *newtype = MPI_Type_c2f(c_new); + } } diff --git a/src/mpi/f77/type_lb_f.c b/src/mpi/f77/type_lb_f.c index 20fb9e382d..cc4d159e2e 100644 --- a/src/mpi/f77/type_lb_f.c +++ b/src/mpi/f77/type_lb_f.c @@ -53,6 +53,7 @@ void mpi_type_lb_f(MPI_Fint *type, MPI_Fint *lb, MPI_Fint *ierr) *ierr = MPI_Type_lb(c_type, &c_lb); - if (*ierr == MPI_SUCCESS) + if (MPI_SUCCESS == *ierr) { *lb = (MPI_Fint)c_lb; + } } diff --git a/src/mpi/f77/type_match_size_f.c b/src/mpi/f77/type_match_size_f.c index 13d0e1ffb9..1f2338fa7d 100644 --- a/src/mpi/f77/type_match_size_f.c +++ b/src/mpi/f77/type_match_size_f.c @@ -52,6 +52,7 @@ void mpi_type_match_size_f(MPI_Fint *typeclass, MPI_Fint *size, MPI_Fint *type, *ierr = MPI_Type_match_size(*typeclass, *size, &c_type); - if (*ierr == MPI_SUCCESS) + if (MPI_SUCCESS == *ierr) { *type = MPI_Type_c2f(c_type); + } } diff --git a/src/mpi/f77/type_set_attr_f.c b/src/mpi/f77/type_set_attr_f.c index 2b6d2ebb78..93184b151a 100644 --- a/src/mpi/f77/type_set_attr_f.c +++ b/src/mpi/f77/type_set_attr_f.c @@ -52,7 +52,7 @@ void mpi_type_set_attr_f(MPI_Fint *type, MPI_Fint *type_keyval, char *attr_val, *ierr = MPI_Type_set_attr( c_type, *type_keyval, attr_val ); - if (*ierr == MPI_SUCCESS) + if (MPI_SUCCESS == *ierr) { *type = MPI_Type_c2f( c_type ); - + } } diff --git a/src/mpi/f77/type_set_name_f.c b/src/mpi/f77/type_set_name_f.c index 9b36bd8637..37040d3c8c 100644 --- a/src/mpi/f77/type_set_name_f.c +++ b/src/mpi/f77/type_set_name_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_TYPE_SET_NAME, void mpi_type_set_name_f(MPI_Fint *type, char *type_name, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/type_struct_f.c b/src/mpi/f77/type_struct_f.c index 73ccd59c37..b3a2ea65c2 100644 --- a/src/mpi/f77/type_struct_f.c +++ b/src/mpi/f77/type_struct_f.c @@ -9,6 +9,8 @@ #include "mpi.h" #include "mpi/f77/bindings.h" +#include "errhandler/errhandler.h" +#include "communicator/communicator.h" #if OMPI_HAVE_WEAK_SYMBOLS && OMPI_PROFILE_LAYER #pragma weak PMPI_TYPE_STRUCT = mpi_type_struct_f @@ -47,6 +49,9 @@ OMPI_GENERATE_F77_BINDINGS (MPI_TYPE_STRUCT, #include "mpi/f77/profile/defines.h" #endif +static const char FUNC_NAME[] = "MPI_TYPE_STRUCT"; + + void mpi_type_struct_f(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *array_of_types, MPI_Fint *newtype, MPI_Fint *ierr) { MPI_Aint *c_disp_array; @@ -54,17 +59,14 @@ void mpi_type_struct_f(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fin MPI_Datatype c_new; int i; - c_type_old_array = malloc(*count * sizeof(MPI_Datatype)); - if (c_type_old_array == (MPI_Datatype *) NULL) { - *ierr = MPI_ERR_INTERN; - return; - } - - c_disp_array = malloc(*count * sizeof(MPI_Aint)); - if (c_disp_array == (MPI_Aint *) NULL) { - *ierr = MPI_ERR_INTERN; + c_type_old_array = malloc(*count * (sizeof(MPI_Datatype) + + sizeof(MPI_Aint))); + if (NULL == c_type_old_array) { + *ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_NO_MEM, + FUNC_NAME); return; } + c_disp_array = (MPI_Aint*) c_type_old_array + *count; for (i = 0; i < *count; i++) { c_disp_array[i] = (MPI_Aint) array_of_displacements[i]; @@ -74,9 +76,9 @@ void mpi_type_struct_f(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fin *ierr = MPI_Type_struct(*count, array_of_blocklengths, c_disp_array, c_type_old_array, &c_new); - if (*ierr == MPI_SUCCESS) + if (MPI_SUCCESS == *ierr) { *newtype = MPI_Type_c2f(c_new); + } free(c_type_old_array); - free(c_disp_array); } diff --git a/src/mpi/f77/type_ub_f.c b/src/mpi/f77/type_ub_f.c index c29b992d9a..8d4793ed26 100644 --- a/src/mpi/f77/type_ub_f.c +++ b/src/mpi/f77/type_ub_f.c @@ -53,6 +53,7 @@ void mpi_type_ub_f(MPI_Fint *mtype, MPI_Fint *ub, MPI_Fint *ierr) *ierr = MPI_Type_ub(c_mtype, &c_ub); - if (*ierr == MPI_SUCCESS) + if (MPI_SUCCESS == *ierr) { *ub = (MPI_Fint)c_ub; + } } diff --git a/src/mpi/f77/type_vector_f.c b/src/mpi/f77/type_vector_f.c index fa9f05b81f..ffac6fe636 100644 --- a/src/mpi/f77/type_vector_f.c +++ b/src/mpi/f77/type_vector_f.c @@ -56,7 +56,7 @@ void mpi_type_vector_f(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, *ierr = MPI_Type_vector(*count, *blocklength, *stride, c_old, &c_new); - if (*ierr == MPI_SUCCESS) { + if (MPI_SUCCESS == *ierr) { *newtype = MPI_Type_c2f(c_new); } } diff --git a/src/mpi/f77/unpack_external_f.c b/src/mpi/f77/unpack_external_f.c index eab83e7c4e..3cef51ff6d 100644 --- a/src/mpi/f77/unpack_external_f.c +++ b/src/mpi/f77/unpack_external_f.c @@ -53,5 +53,4 @@ void mpi_unpack_external_f (char *datarep, char *inbuf, MPI_Fint *insize, MPI_Fi *ierr = MPI_Unpack_external(datarep, inbuf, *insize, (MPI_Aint *)*position, outbuf, *outcount, c_type); - } diff --git a/src/mpi/f77/unpack_f.c b/src/mpi/f77/unpack_f.c index a839d8e87d..2765c8bd45 100644 --- a/src/mpi/f77/unpack_f.c +++ b/src/mpi/f77/unpack_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_UNPACK, void mpi_unpack_f(char *inbuf, MPI_Fint *insize, MPI_Fint *position, char *outbuf, MPI_Fint *outcount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/unpublish_name_f.c b/src/mpi/f77/unpublish_name_f.c index 2e1b9e6719..0a8ad15751 100644 --- a/src/mpi/f77/unpublish_name_f.c +++ b/src/mpi/f77/unpublish_name_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_UNPUBLISH_NAME, void mpi_unpublish_name_f(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/wait_f.c b/src/mpi/f77/wait_f.c index 03eceec5e6..4e77ddcbdd 100644 --- a/src/mpi/f77/wait_f.c +++ b/src/mpi/f77/wait_f.c @@ -53,10 +53,9 @@ void mpi_wait_f(MPI_Fint *request, MPI_Fint *status, MPI_Fint *ierr) *ierr = MPI_Wait(&c_req, &c_status); - if (*ierr == MPI_SUCCESS) { + if (MPI_SUCCESS == *ierr) { /* reset request handle to MPI_REQUEST_NULL */ *request = -1; MPI_Status_c2f(&c_status, status); } - } diff --git a/src/mpi/f77/waitall_f.c b/src/mpi/f77/waitall_f.c index bc843152ad..77bdf5a4e9 100644 --- a/src/mpi/f77/waitall_f.c +++ b/src/mpi/f77/waitall_f.c @@ -9,6 +9,8 @@ #include "mpi.h" #include "mpi/f77/bindings.h" +#include "errhandler/errhandler.h" +#include "communicator/communicator.h" #if OMPI_HAVE_WEAK_SYMBOLS && OMPI_PROFILE_LAYER #pragma weak PMPI_WAITALL = mpi_waitall_f @@ -47,23 +49,22 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WAITALL, #include "mpi/f77/profile/defines.h" #endif +static const char FUNC_NAME[] = "MPI_WAITALL"; + + void mpi_waitall_f(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *array_of_statuses, MPI_Fint *ierr) { MPI_Request *c_req; MPI_Status *c_status; int i; - c_req = malloc(*count * sizeof(MPI_Request)); - if (c_req == NULL) { - *ierr = MPI_ERR_INTERN; - return; - } - c_status = malloc(*count * sizeof(MPI_Status)); - if (c_status == NULL) { - *ierr = MPI_ERR_INTERN; - free(c_req); + c_req = malloc(*count * (sizeof(MPI_Request) + sizeof(MPI_Status))); + if (NULL == c_req) { + *ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_NO_MEM, + FUNC_NAME); return; } + c_status = (MPI_Status*) c_req + *count; for (i = 0; i < *count; i++) { c_req[i] = MPI_Request_f2c(array_of_requests[i]); @@ -71,14 +72,13 @@ void mpi_waitall_f(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *array *ierr = MPI_Waitall(*count, c_req, c_status); - if (*ierr == MPI_SUCCESS) { + if (MPI_SUCCESS == *ierr) { for (i = 0; i < *count; i++) { - if (c_req[i] == NULL) + if (NULL == c_req[i]) { array_of_requests[i] = -1; + } MPI_Status_c2f( &c_status[i], &array_of_statuses[i]); } } free(c_req); - free(c_status); - } diff --git a/src/mpi/f77/waitany_f.c b/src/mpi/f77/waitany_f.c index 267361a043..c3597e7e80 100644 --- a/src/mpi/f77/waitany_f.c +++ b/src/mpi/f77/waitany_f.c @@ -9,6 +9,8 @@ #include "mpi.h" #include "mpi/f77/bindings.h" +#include "errhandler/errhandler.h" +#include "communicator/communicator.h" #if OMPI_HAVE_WEAK_SYMBOLS && OMPI_PROFILE_LAYER #pragma weak PMPI_WAITANY = mpi_waitany_f @@ -47,6 +49,9 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WAITANY, #include "mpi/f77/profile/defines.h" #endif +static const char FUNC_NAME[] = "MPI_WAITANY"; + + void mpi_waitany_f(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *status, MPI_Fint *ierr) { MPI_Request *c_req; @@ -54,9 +59,9 @@ void mpi_waitany_f(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index int i; c_req = malloc(*count * sizeof(MPI_Request)); - if (c_req == NULL) { - *ierr = MPI_ERR_INTERN; - free(c_req); + if (NULL == c_req) { + *ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_NO_MEM, + FUNC_NAME); return; } @@ -66,11 +71,11 @@ void mpi_waitany_f(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index *ierr = MPI_Waitany(*count, c_req, index, &c_status); - if (*ierr == MPI_SUCCESS) { + if (MPI_SUCCESS == *ierr) { /* * Increment index by one for fortran conventions */ - if (*index != MPI_UNDEFINED) { + if (MPI_UNDEFINED != *index) { *index += 1; } MPI_Status_c2f( &c_status, status); diff --git a/src/mpi/f77/waitsome_f.c b/src/mpi/f77/waitsome_f.c index d1692fdda8..a4d6b684b4 100644 --- a/src/mpi/f77/waitsome_f.c +++ b/src/mpi/f77/waitsome_f.c @@ -9,6 +9,8 @@ #include "mpi.h" #include "mpi/f77/bindings.h" +#include "errhandler/errhandler.h" +#include "communicator/communicator.h" #if OMPI_HAVE_WEAK_SYMBOLS && OMPI_PROFILE_LAYER #pragma weak PMPI_WAITSOME = mpi_waitsome_f @@ -47,23 +49,22 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WAITSOME, #include "mpi/f77/profile/defines.h" #endif +static const char FUNC_NAME[] = "MPI_WAITSOME"; + + void mpi_waitsome_f(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *outcount, MPI_Fint *array_of_indices, MPI_Fint *array_of_statuses, MPI_Fint *ierr) { MPI_Request *c_req; MPI_Status *c_status; int i; - c_req = malloc(*incount * sizeof(MPI_Request)); - if (c_req == NULL) { - *ierr = MPI_ERR_INTERN; - return; - } - c_status = malloc(*incount * sizeof(MPI_Status)); - if (c_status == NULL) { - *ierr = MPI_ERR_INTERN; - free(c_req); - return; + c_req = malloc(*incount * (sizeof(MPI_Request) + sizeof(MPI_Status))); + if (NULL == c_req) { + *ierr = OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_NO_MEM, + FUNC_NAME); + return; } + c_status = (MPI_Status*) c_req + *incount; for (i = 0; i < *incount; i++) { c_req[i] = MPI_Request_f2c(array_of_requests[i]); @@ -72,11 +73,11 @@ void mpi_waitsome_f(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *ou *ierr = MPI_Waitsome(*incount, c_req, outcount, array_of_indices, c_status); - if (*ierr == MPI_SUCCESS) { + if (MPI_SUCCESS == *ierr) { /* * Increment indexes by one for fortran conventions */ - if (*outcount != MPI_UNDEFINED) { + if (MPI_UNDEFINED != *outcount) { for (i = 0; i < *outcount; i++) { array_of_indices[i] += 1; } @@ -87,5 +88,4 @@ void mpi_waitsome_f(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *ou } free(c_req); - free(c_status); } diff --git a/src/mpi/f77/win_call_errhandler_f.c b/src/mpi/f77/win_call_errhandler_f.c index 5a19fbdf79..53dedd6f2f 100644 --- a/src/mpi/f77/win_call_errhandler_f.c +++ b/src/mpi/f77/win_call_errhandler_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_CALL_ERRHANDLER, void mpi_win_call_errhandler_f(MPI_Fint *win, MPI_Fint *errorcode, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/win_complete_f.c b/src/mpi/f77/win_complete_f.c index 78b77c53ba..9a43727ca9 100644 --- a/src/mpi/f77/win_complete_f.c +++ b/src/mpi/f77/win_complete_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_COMPLETE, void mpi_win_complete_f(MPI_Fint *win, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/win_create_errhandler_f.c b/src/mpi/f77/win_create_errhandler_f.c index 1d01639de7..90ad89999f 100644 --- a/src/mpi/f77/win_create_errhandler_f.c +++ b/src/mpi/f77/win_create_errhandler_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_CREATE_ERRHANDLER, void mpi_win_create_errhandler_f(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/win_create_f.c b/src/mpi/f77/win_create_f.c index ef0595d489..12a8a0eb72 100644 --- a/src/mpi/f77/win_create_f.c +++ b/src/mpi/f77/win_create_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_CREATE, void mpi_win_create_f(char *base, MPI_Fint *size, MPI_Fint *disp_unit, MPI_Fint *info, MPI_Fint *comm, MPI_Fint *win, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/win_create_keyval_f.c b/src/mpi/f77/win_create_keyval_f.c index 59062b037f..14a0a8200a 100644 --- a/src/mpi/f77/win_create_keyval_f.c +++ b/src/mpi/f77/win_create_keyval_f.c @@ -70,7 +70,7 @@ void mpi_win_create_keyval_f(MPI_Fint *win_copy_attr_fn, MPI_Fint *win_delete_at ret = ompi_attr_create_keyval(WIN_ATTR, copy_fn, del_fn, win_keyval, extra_state, OMPI_KEYVAL_F77); - if (ret != OMPI_SUCCESS) { + if (MPI_SUCCESS != ret) { OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_OTHER, FUNC_NAME); } else { *ierr = MPI_SUCCESS; diff --git a/src/mpi/f77/win_delete_attr_f.c b/src/mpi/f77/win_delete_attr_f.c index f57dc3235d..c7cb120c17 100644 --- a/src/mpi/f77/win_delete_attr_f.c +++ b/src/mpi/f77/win_delete_attr_f.c @@ -63,7 +63,7 @@ void mpi_win_delete_attr_f(MPI_Fint *win, MPI_Fint *win_keyval, MPI_Fint *ierr) ret = ompi_attr_delete(WIN_ATTR, c_win, c_win->w_keyhash, *win_keyval, OMPI_KEYVAL_F77); - if (ret != OMPI_SUCCESS) { + if (MPI_SUCCESS != ret) { OMPI_ERRHANDLER_INVOKE(MPI_COMM_WORLD, MPI_ERR_OTHER, FUNC_NAME); } else { *ierr = MPI_SUCCESS; diff --git a/src/mpi/f77/win_fence_f.c b/src/mpi/f77/win_fence_f.c index 673828887f..ee1b8c6258 100644 --- a/src/mpi/f77/win_fence_f.c +++ b/src/mpi/f77/win_fence_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_FENCE, void mpi_win_fence_f(MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/win_free_f.c b/src/mpi/f77/win_free_f.c index 4c2bf62c1d..4d74cf88e1 100644 --- a/src/mpi/f77/win_free_f.c +++ b/src/mpi/f77/win_free_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_FREE, void mpi_win_free_f(MPI_Fint *win, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/win_free_keyval_f.c b/src/mpi/f77/win_free_keyval_f.c index 583c2ceb20..652c0808d6 100644 --- a/src/mpi/f77/win_free_keyval_f.c +++ b/src/mpi/f77/win_free_keyval_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_FREE_KEYVAL, void mpi_win_free_keyval_f(MPI_Fint *win_keyval, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/win_get_errhandler_f.c b/src/mpi/f77/win_get_errhandler_f.c index 7278146dd1..5d3b8e19ed 100644 --- a/src/mpi/f77/win_get_errhandler_f.c +++ b/src/mpi/f77/win_get_errhandler_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_GET_ERRHANDLER, void mpi_win_get_errhandler_f(MPI_Fint *win, MPI_Fint *errhandler, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/win_get_group_f.c b/src/mpi/f77/win_get_group_f.c index 1453786d68..20fc48fa5e 100644 --- a/src/mpi/f77/win_get_group_f.c +++ b/src/mpi/f77/win_get_group_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_GET_GROUP, void mpi_win_get_group_f(MPI_Fint *win, MPI_Fint *group, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/win_get_name_f.c b/src/mpi/f77/win_get_name_f.c index 9abcb8d4fd..91c36d866b 100644 --- a/src/mpi/f77/win_get_name_f.c +++ b/src/mpi/f77/win_get_name_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_GET_NAME, void mpi_win_get_name_f(MPI_Fint *win, char *win_name, MPI_Fint *resultlen, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/win_lock_f.c b/src/mpi/f77/win_lock_f.c index 617925dd6b..85142bb747 100644 --- a/src/mpi/f77/win_lock_f.c +++ b/src/mpi/f77/win_lock_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_LOCK, void mpi_win_lock_f(MPI_Fint *lock_type, MPI_Fint *rank, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/win_post_f.c b/src/mpi/f77/win_post_f.c index cd30c87d95..5f21d6297e 100644 --- a/src/mpi/f77/win_post_f.c +++ b/src/mpi/f77/win_post_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_POST, void mpi_win_post_f(MPI_Fint *group, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/win_set_errhandler_f.c b/src/mpi/f77/win_set_errhandler_f.c index e433e67267..eb7179f2ac 100644 --- a/src/mpi/f77/win_set_errhandler_f.c +++ b/src/mpi/f77/win_set_errhandler_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_SET_ERRHANDLER, void mpi_win_set_errhandler_f(MPI_Fint *win, MPI_Fint *errhandler, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/win_set_name_f.c b/src/mpi/f77/win_set_name_f.c index bec691089b..fd0b43be00 100644 --- a/src/mpi/f77/win_set_name_f.c +++ b/src/mpi/f77/win_set_name_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_SET_NAME, void mpi_win_set_name_f(MPI_Fint *win, char *win_name, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/win_start_f.c b/src/mpi/f77/win_start_f.c index 2c73d6c0c3..8d480ef91e 100644 --- a/src/mpi/f77/win_start_f.c +++ b/src/mpi/f77/win_start_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_START, void mpi_win_start_f(MPI_Fint *group, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/win_test_f.c b/src/mpi/f77/win_test_f.c index 213b0fd35a..ca6908007f 100644 --- a/src/mpi/f77/win_test_f.c +++ b/src/mpi/f77/win_test_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_TEST, void mpi_win_test_f(MPI_Fint *win, MPI_Fint *flag, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/win_unlock_f.c b/src/mpi/f77/win_unlock_f.c index 79ccd74c6a..38351e358f 100644 --- a/src/mpi/f77/win_unlock_f.c +++ b/src/mpi/f77/win_unlock_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_UNLOCK, void mpi_win_unlock_f(MPI_Fint *rank, MPI_Fint *win, MPI_Fint *ierr) { - + /* This function not yet implemented */ } diff --git a/src/mpi/f77/win_wait_f.c b/src/mpi/f77/win_wait_f.c index 95dcbb240d..7360d37bd3 100644 --- a/src/mpi/f77/win_wait_f.c +++ b/src/mpi/f77/win_wait_f.c @@ -48,5 +48,5 @@ OMPI_GENERATE_F77_BINDINGS (MPI_WIN_WAIT, void mpi_win_wait_f(MPI_Fint *win, MPI_Fint *ierr) { - + /* This function not yet implemented */ }