diff --git a/src/mpi/f77/Makefile.am b/src/mpi/f77/Makefile.am index d8d17785b4..aa97467032 100644 --- a/src/mpi/f77/Makefile.am +++ b/src/mpi/f77/Makefile.am @@ -63,13 +63,289 @@ libmpi_f77_la_LIBADD = \ $(pmpi_lib) libmpi_f77_mpi_la_SOURCES = \ + abort_f.c \ + accumulate_f.c \ + add_error_class_f.c \ + add_error_code_f.c \ + add_error_string_f.c \ + address_f.c \ + allgather_f.c \ + allgatherv_f.c \ alloc_mem_f.c \ + allreduce_f.c \ + alltoall_f.c \ + alltoallv_f.c \ + alltoallw_f.c \ + attr_delete_f.c \ + attr_get_f.c \ + attr_put_f.c \ + barrier_f.c \ + bcast_f.c \ + bsend_f.c \ + bsend_init_f.c \ + buffer_attach_f.c \ + buffer_detach_f.c \ + cancel_f.c \ + cart_coords_f.c \ + cart_create_f.c \ + cartdim_get_f.c \ + cart_get_f.c \ + cart_map_f.c \ + cart_rank_f.c \ + cart_shift_f.c \ + cart_sub_f.c \ + close_port_f.c \ + comm_accept_f.c \ + comm_call_errhandler_f.c \ + comm_compare_f.c \ + comm_connect_f.c \ + comm_create_errhandler_f.c \ + comm_create_f.c \ + comm_create_keyval_f.c \ + comm_delete_attr_f.c \ + comm_disconnect_f.c \ + comm_dup_f.c \ + comm_free_f.c \ + comm_free_keyval_f.c \ + comm_get_attr_f.c \ + comm_get_errhandler_f.c \ comm_get_name_f.c \ + comm_get_parent_f.c \ + comm_group_f.c \ + comm_join_f.c \ + comm_rank_f.c \ + comm_remote_group_f.c \ + comm_remote_size_f.c \ + comm_set_attr_f.c \ + comm_set_errhandler_f.c \ comm_set_name_f.c \ - init_f.c \ + comm_size_f.c \ + comm_spawn_f.c \ + comm_spawn_multiple_f.c \ + comm_split_f.c \ + comm_test_inter_f.c \ + dims_create_f.c \ + errhandler_create_f.c \ + errhandler_free_f.c \ + errhandler_get_f.c \ + errhandler_set_f.c \ + error_class_f.c \ + error_string_f.c \ + exscan_f.c \ + file_call_errhandler_f.c \ + file_close_f.c \ + file_create_errhandler_f.c \ + file_delete_f.c \ + file_get_amode_f.c \ + file_get_atomicity_f.c \ + file_get_byte_offset_f.c \ + file_get_errhandler_f.c \ + file_get_group_f.c \ + file_get_info_f.c \ + file_get_position_f.c \ + file_get_position_shared_f.c \ + file_get_size_f.c \ + file_get_type_extent_f.c \ + file_get_view_f.c \ + file_iread_at_f.c \ + file_iread_f.c \ + file_iread_shared_f.c \ + file_iwrite_at_f.c \ + file_iwrite_f.c \ + file_iwrite_shared_f.c \ + file_open_f.c \ + file_preallocate_f.c \ + file_read_all_begin_f.c \ + file_read_all_end_f.c \ + file_read_all_f.c \ + file_read_at_all_begin_f.c \ + file_read_at_all_end_f.c \ + file_read_at_all_f.c \ + file_read_at_f.c \ + file_read_f.c \ + file_read_ordered_begin_f.c \ + file_read_ordered_end_f.c \ + file_read_ordered_f.c \ + file_read_shared_f.c \ + file_seek_f.c \ + file_seek_shared_f.c \ + file_set_atomicity_f.c \ + file_set_errhandler_f.c \ + file_set_info_f.c \ + file_set_size_f.c \ + file_set_view_f.c \ + file_sync_f.c \ + file_write_all_begin_f.c \ + file_write_all_end_f.c \ + file_write_all_f.c \ + file_write_at_all_begin_f.c \ + file_write_at_all_end_f.c \ + file_write_at_all_f.c \ + file_write_at_f.c \ + file_write_f.c \ + file_write_ordered_begin_f.c \ + file_write_ordered_end_f.c \ + file_write_ordered_f.c \ + file_write_shared_f.c \ + finalized_f.c \ finalize_f.c \ free_mem_f.c \ - group_compare_f.c + gather_f.c \ + gatherv_f.c \ + get_address_f.c \ + get_count_f.c \ + get_elements_f.c \ + get_f.c \ + get_processor_name_f.c \ + get_version_f.c \ + graph_create_f.c \ + graphdims_get_f.c \ + graph_get_f.c \ + graph_map_f.c \ + graph_neighbors_count_f.c \ + graph_neighbors_f.c \ + grequest_complete_f.c \ + grequest_start_f.c \ + group_compare_f.c \ + group_difference_f.c \ + group_excl_f.c \ + group_free_f.c \ + group_incl_f.c \ + group_intersection_f.c \ + group_range_excl_f.c \ + group_range_incl_f.c \ + group_rank_f.c \ + group_size_f.c \ + group_translate_ranks_f.c \ + group_union_f.c \ + ibsend_f.c \ + info_create_f.c \ + info_delete_f.c \ + info_dup_f.c \ + info_free_f.c \ + info_get_f.c \ + info_get_nkeys_f.c \ + info_get_nthkey_f.c \ + info_get_valuelen_f.c \ + info_set_f.c \ + init_f.c \ + initialized_f.c \ + init_thread_f.c \ + intercomm_create_f.c \ + intercomm_merge_f.c \ + iprobe_f.c \ + irecv_f.c \ + irsend_f.c \ + isend_f.c \ + issend_f.c \ + is_thread_main_f.c \ + keyval_create_f.c \ + keyval_free_f.c \ + lookup_name_f.c \ + op_create_f.c \ + open_port_f.c \ + op_free_f.c \ + pack_external_f.c \ + pack_external_size_f.c \ + pack_f.c \ + pack_size_f.c \ + pcontrol_f.c \ + probe_f.c \ + publish_name_f.c \ + put_f.c \ + query_thread_f.c \ + recv_f.c \ + recv_init_f.c \ + reduce_f.c \ + reduce_scatter_f.c \ + register_datarep_f.c \ + request_free_f.c \ + request_get_status_f.c \ + rsend_f.c \ + rsend_init_f.c \ + scan_f.c \ + scatter_f.c \ + scatterv_f.c \ + send_f.c \ + send_init_f.c \ + sendrecv_f.c \ + sendrecv_replace_f.c \ + ssend_f.c \ + ssend_init_f.c \ + startall_f.c \ + start_f.c \ + status_set_cancelled_f.c \ + status_set_elements_f.c \ + testall_f.c \ + testany_f.c \ + test_cancelled_f.c \ + test_f.c \ + testsome_f.c \ + topo_test_f.c \ + type_commit_f.c \ + type_contiguous_f.c \ + type_create_darray_f.c \ + type_create_f90_complex_f.c \ + type_create_f90_integer_f.c \ + type_create_f90_real_f.c \ + type_create_hindexed_f.c \ + type_create_hvector_f.c \ + type_create_indexed_block_f.c \ + type_create_keyval_f.c \ + type_create_resized_f.c \ + type_create_struct_f.c \ + type_create_subarray_f.c \ + type_delete_attr_f.c \ + type_dup_f.c \ + type_extent_f.c \ + type_free_f.c \ + type_free_keyval_f.c \ + type_get_attr_f.c \ + type_get_contents_f.c \ + type_get_envelope_f.c \ + type_get_extent_f.c \ + type_get_name_f.c \ + type_get_true_extent_f.c \ + type_hindexed_f.c \ + type_hvector_f.c \ + type_indexed_f.c \ + type_lb_f.c \ + type_match_size_f.c \ + type_set_attr_f.c \ + type_set_name_f.c \ + type_size_f.c \ + type_struct_f.c \ + type_ub_f.c \ + type_vector_f.c \ + unpack_external_f.c \ + unpack_f.c \ + unpublish_name_f.c \ + waitall_f.c \ + waitany_f.c \ + wait_f.c \ + waitsome_f.c \ + win_call_errhandler_f.c \ + win_complete_f.c \ + win_create_errhandler_f.c \ + win_create_f.c \ + win_create_keyval_f.c \ + win_delete_attr_f.c \ + win_fence_f.c \ + win_free_f.c \ + win_free_keyval_f.c \ + win_get_attr_f.c \ + win_get_errhandler_f.c \ + win_get_group_f.c \ + win_get_name_f.c \ + win_lock_f.c \ + win_post_f.c \ + win_set_attr_f.c \ + win_set_errhandler_f.c \ + win_set_name_f.c \ + win_start_f.c \ + win_test_f.c \ + win_unlock_f.c \ + win_wait_f.c # EXTRA_DIST = $(libmpi_f77_mpi_la_SOURCES) # diff --git a/src/mpi/f77/abort_f.c b/src/mpi/f77/abort_f.c new file mode 100644 index 0000000000..54cbbf45de --- /dev/null +++ b/src/mpi/f77/abort_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_ABORT = mpi_abort_f +#pragma weak pmpi_abort = mpi_abort_f +#pragma weak pmpi_abort_ = mpi_abort_f +#pragma weak pmpi_abort__ = mpi_abort_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_ABORT, + pmpi_abort, + pmpi_abort_, + pmpi_abort__, + pmpi_abort_f, + (MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr), + (comm, errorcode, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_ABORT = mpi_abort_f +#pragma weak mpi_abort = mpi_abort_f +#pragma weak mpi_abort_ = mpi_abort_f +#pragma weak mpi_abort__ = mpi_abort_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_ABORT, + mpi_abort, + mpi_abort_, + mpi_abort__, + mpi_abort_f, + (MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr), + (comm, errorcode, ierr) ) +#endif + +void mpi_abort_f(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/accumulate_f.c b/src/mpi/f77/accumulate_f.c new file mode 100644 index 0000000000..240a24b8bd --- /dev/null +++ b/src/mpi/f77/accumulate_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_ACCUMULATE = mpi_accumulate_f +#pragma weak pmpi_accumulate = mpi_accumulate_f +#pragma weak pmpi_accumulate_ = mpi_accumulate_f +#pragma weak pmpi_accumulate__ = mpi_accumulate_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_ACCUMULATE, + pmpi_accumulate, + pmpi_accumulate_, + pmpi_accumulate__, + pmpi_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), + (origin_addr, origin_count, origin_datatype, target_rank, target_disp, target_count, target_datatype, op, win, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_ACCUMULATE = mpi_accumulate_f +#pragma weak mpi_accumulate = mpi_accumulate_f +#pragma weak mpi_accumulate_ = mpi_accumulate_f +#pragma weak mpi_accumulate__ = mpi_accumulate_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_ACCUMULATE, + mpi_accumulate, + mpi_accumulate_, + mpi_accumulate__, + 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), + (origin_addr, origin_count, origin_datatype, target_rank, target_disp, target_count, target_datatype, op, win, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/add_error_class_f.c b/src/mpi/f77/add_error_class_f.c new file mode 100644 index 0000000000..34f09da58d --- /dev/null +++ b/src/mpi/f77/add_error_class_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_ADD_ERROR_CLASS = mpi_add_error_class_f +#pragma weak pmpi_add_error_class = mpi_add_error_class_f +#pragma weak pmpi_add_error_class_ = mpi_add_error_class_f +#pragma weak pmpi_add_error_class__ = mpi_add_error_class_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_ADD_ERROR_CLASS, + pmpi_add_error_class, + pmpi_add_error_class_, + pmpi_add_error_class__, + pmpi_add_error_class_f, + (MPI_Fint *errorclass, MPI_Fint *ierr), + (errorclass, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_ADD_ERROR_CLASS = mpi_add_error_class_f +#pragma weak mpi_add_error_class = mpi_add_error_class_f +#pragma weak mpi_add_error_class_ = mpi_add_error_class_f +#pragma weak mpi_add_error_class__ = mpi_add_error_class_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_ADD_ERROR_CLASS, + mpi_add_error_class, + mpi_add_error_class_, + mpi_add_error_class__, + mpi_add_error_class_f, + (MPI_Fint *errorclass, MPI_Fint *ierr), + (errorclass, ierr) ) +#endif + +void mpi_add_error_class_f(MPI_Fint *errorclass, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/add_error_code_f.c b/src/mpi/f77/add_error_code_f.c new file mode 100644 index 0000000000..b3d1044d7c --- /dev/null +++ b/src/mpi/f77/add_error_code_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_ADD_ERROR_CODE = mpi_add_error_code_f +#pragma weak pmpi_add_error_code = mpi_add_error_code_f +#pragma weak pmpi_add_error_code_ = mpi_add_error_code_f +#pragma weak pmpi_add_error_code__ = mpi_add_error_code_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_ADD_ERROR_CODE, + pmpi_add_error_code, + pmpi_add_error_code_, + pmpi_add_error_code__, + pmpi_add_error_code_f, + (MPI_Fint *errorclass, MPI_Fint *errorcode, MPI_Fint *ierr), + (errorclass, errorcode, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_ADD_ERROR_CODE = mpi_add_error_code_f +#pragma weak mpi_add_error_code = mpi_add_error_code_f +#pragma weak mpi_add_error_code_ = mpi_add_error_code_f +#pragma weak mpi_add_error_code__ = mpi_add_error_code_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_ADD_ERROR_CODE, + mpi_add_error_code, + mpi_add_error_code_, + mpi_add_error_code__, + mpi_add_error_code_f, + (MPI_Fint *errorclass, MPI_Fint *errorcode, MPI_Fint *ierr), + (errorclass, errorcode, ierr) ) +#endif + +void mpi_add_error_code_f(MPI_Fint *errorclass, MPI_Fint *errorcode, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/add_error_string_f.c b/src/mpi/f77/add_error_string_f.c new file mode 100644 index 0000000000..a7e6f82d13 --- /dev/null +++ b/src/mpi/f77/add_error_string_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_ADD_ERROR_STRING = mpi_add_error_string_f +#pragma weak pmpi_add_error_string = mpi_add_error_string_f +#pragma weak pmpi_add_error_string_ = mpi_add_error_string_f +#pragma weak pmpi_add_error_string__ = mpi_add_error_string_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_ADD_ERROR_STRING, + pmpi_add_error_string, + pmpi_add_error_string_, + pmpi_add_error_string__, + pmpi_add_error_string_f, + (MPI_Fint *errorcode, char *string, MPI_Fint *ierr), + (errorcode, string, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_ADD_ERROR_STRING = mpi_add_error_string_f +#pragma weak mpi_add_error_string = mpi_add_error_string_f +#pragma weak mpi_add_error_string_ = mpi_add_error_string_f +#pragma weak mpi_add_error_string__ = mpi_add_error_string_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_ADD_ERROR_STRING, + mpi_add_error_string, + mpi_add_error_string_, + mpi_add_error_string__, + mpi_add_error_string_f, + (MPI_Fint *errorcode, char *string, MPI_Fint *ierr), + (errorcode, string, ierr) ) +#endif + +void mpi_add_error_string_f(MPI_Fint *errorcode, char *string, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/address_f.c b/src/mpi/f77/address_f.c new file mode 100644 index 0000000000..90a9ca3f84 --- /dev/null +++ b/src/mpi/f77/address_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_ADDRESS = mpi_address_f +#pragma weak pmpi_address = mpi_address_f +#pragma weak pmpi_address_ = mpi_address_f +#pragma weak pmpi_address__ = mpi_address_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_ADDRESS, + pmpi_address, + pmpi_address_, + pmpi_address__, + pmpi_address_f, + (char *location, MPI_Fint *address, MPI_Fint *ierr), + (location, address, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_ADDRESS = mpi_address_f +#pragma weak mpi_address = mpi_address_f +#pragma weak mpi_address_ = mpi_address_f +#pragma weak mpi_address__ = mpi_address_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_ADDRESS, + mpi_address, + mpi_address_, + mpi_address__, + mpi_address_f, + (char *location, MPI_Fint *address, MPI_Fint *ierr), + (location, address, ierr) ) +#endif + +void mpi_address_f(char *location, MPI_Fint *address, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/allgather_f.c b/src/mpi/f77/allgather_f.c new file mode 100644 index 0000000000..cbb9b70043 --- /dev/null +++ b/src/mpi/f77/allgather_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_ALLGATHER = mpi_allgather_f +#pragma weak pmpi_allgather = mpi_allgather_f +#pragma weak pmpi_allgather_ = mpi_allgather_f +#pragma weak pmpi_allgather__ = mpi_allgather_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_ALLGATHER, + pmpi_allgather, + pmpi_allgather_, + pmpi_allgather__, + pmpi_allgather_f, + (char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr), + (sendbuf, sendcount, sendtype, recvbuf, recvcount, recvtype, comm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_ALLGATHER = mpi_allgather_f +#pragma weak mpi_allgather = mpi_allgather_f +#pragma weak mpi_allgather_ = mpi_allgather_f +#pragma weak mpi_allgather__ = mpi_allgather_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_ALLGATHER, + mpi_allgather, + mpi_allgather_, + mpi_allgather__, + 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), + (sendbuf, sendcount, sendtype, recvbuf, recvcount, recvtype, comm, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/allgatherv_f.c b/src/mpi/f77/allgatherv_f.c new file mode 100644 index 0000000000..dc116d6a60 --- /dev/null +++ b/src/mpi/f77/allgatherv_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_ALLGATHERV = mpi_allgatherv_f +#pragma weak pmpi_allgatherv = mpi_allgatherv_f +#pragma weak pmpi_allgatherv_ = mpi_allgatherv_f +#pragma weak pmpi_allgatherv__ = mpi_allgatherv_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_ALLGATHERV, + pmpi_allgatherv, + pmpi_allgatherv_, + pmpi_allgatherv__, + pmpi_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), + (sendbuf, sendcount, sendtype, recvbuf, recvcounts, displs, recvtype, comm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_ALLGATHERV = mpi_allgatherv_f +#pragma weak mpi_allgatherv = mpi_allgatherv_f +#pragma weak mpi_allgatherv_ = mpi_allgatherv_f +#pragma weak mpi_allgatherv__ = mpi_allgatherv_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_ALLGATHERV, + mpi_allgatherv, + mpi_allgatherv_, + mpi_allgatherv__, + 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), + (sendbuf, sendcount, sendtype, recvbuf, recvcounts, displs, recvtype, comm, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/alloc_mem_f.c b/src/mpi/f77/alloc_mem_f.c index 8ef07028db..fd9129fe49 100644 --- a/src/mpi/f77/alloc_mem_f.c +++ b/src/mpi/f77/alloc_mem_f.c @@ -16,12 +16,12 @@ #pragma weak pmpi_alloc_mem__ = mpi_alloc_mem_f #elif LAM_PROFILE_LAYER LAM_GENERATE_F77_BINDINGS (PMPI_ALLOC_MEM, - pmpi_alloc_mem, - pmpi_alloc_mem_, - pmpi_alloc_mem__, - pmpi_alloc_mem_f, - (MPI_Fint *size, MPI_Fint *info, char *baseptr, MPI_Fint *ierr), - (size, info, baseptr, ierr)) + pmpi_alloc_mem, + pmpi_alloc_mem_, + pmpi_alloc_mem__, + pmpi_alloc_mem_f, + (MPI_Fint *size, MPI_Fint *info, char *baseptr, MPI_Fint *ierr), + (size, info, baseptr, ierr) ) #endif #if LAM_HAVE_WEAK_SYMBOLS @@ -31,21 +31,17 @@ LAM_GENERATE_F77_BINDINGS (PMPI_ALLOC_MEM, #pragma weak mpi_alloc_mem__ = mpi_alloc_mem_f #endif -#if ! LAM_PROFILE_LAYER && ! LAM_HAVE_WEAK_SYMBOLS +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER LAM_GENERATE_F77_BINDINGS (MPI_ALLOC_MEM, - mpi_alloc_mem, - mpi_alloc_mem_, - mpi_alloc_mem__, - mpi_alloc_mem_f, - (MPI_Fint *size, MPI_Fint *info, char *baseptr, MPI_Fint *ierr), - (size, info, baseptr, ierr)) + mpi_alloc_mem, + mpi_alloc_mem_, + mpi_alloc_mem__, + mpi_alloc_mem_f, + (MPI_Fint *size, MPI_Fint *info, char *baseptr, MPI_Fint *ierr), + (size, info, baseptr, ierr) ) #endif void mpi_alloc_mem_f(MPI_Fint *size, MPI_Fint *info, char *baseptr, MPI_Fint *ierr) { -#if 0 - /* JMS Need fortran -> C handle lookups, and a safe way to do the - baseptr pointer */ - *ierr = MPI_Alloc_mem(*size, GETHDL(*info), BUF(baseptr)); -#endif + } diff --git a/src/mpi/f77/allreduce_f.c b/src/mpi/f77/allreduce_f.c new file mode 100644 index 0000000000..2d6b063ff0 --- /dev/null +++ b/src/mpi/f77/allreduce_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_ALLREDUCE = mpi_allreduce_f +#pragma weak pmpi_allreduce = mpi_allreduce_f +#pragma weak pmpi_allreduce_ = mpi_allreduce_f +#pragma weak pmpi_allreduce__ = mpi_allreduce_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_ALLREDUCE, + pmpi_allreduce, + pmpi_allreduce_, + pmpi_allreduce__, + pmpi_allreduce_f, + (char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr), + (sendbuf, recvbuf, count, datatype, op, comm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_ALLREDUCE = mpi_allreduce_f +#pragma weak mpi_allreduce = mpi_allreduce_f +#pragma weak mpi_allreduce_ = mpi_allreduce_f +#pragma weak mpi_allreduce__ = mpi_allreduce_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_ALLREDUCE, + mpi_allreduce, + mpi_allreduce_, + mpi_allreduce__, + mpi_allreduce_f, + (char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr), + (sendbuf, recvbuf, count, datatype, op, comm, ierr) ) +#endif + +void mpi_allreduce_f(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/alltoall_f.c b/src/mpi/f77/alltoall_f.c new file mode 100644 index 0000000000..34f5fd0643 --- /dev/null +++ b/src/mpi/f77/alltoall_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_ALLTOALL = mpi_alltoall_f +#pragma weak pmpi_alltoall = mpi_alltoall_f +#pragma weak pmpi_alltoall_ = mpi_alltoall_f +#pragma weak pmpi_alltoall__ = mpi_alltoall_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_ALLTOALL, + pmpi_alltoall, + pmpi_alltoall_, + pmpi_alltoall__, + pmpi_alltoall_f, + (char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr), + (sendbuf, sendcount, sendtype, recvbuf, recvcount, recvtype, comm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_ALLTOALL = mpi_alltoall_f +#pragma weak mpi_alltoall = mpi_alltoall_f +#pragma weak mpi_alltoall_ = mpi_alltoall_f +#pragma weak mpi_alltoall__ = mpi_alltoall_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_ALLTOALL, + mpi_alltoall, + mpi_alltoall_, + mpi_alltoall__, + 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), + (sendbuf, sendcount, sendtype, recvbuf, recvcount, recvtype, comm, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/alltoallv_f.c b/src/mpi/f77/alltoallv_f.c new file mode 100644 index 0000000000..f476a50cff --- /dev/null +++ b/src/mpi/f77/alltoallv_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_ALLTOALLV = mpi_alltoallv_f +#pragma weak pmpi_alltoallv = mpi_alltoallv_f +#pragma weak pmpi_alltoallv_ = mpi_alltoallv_f +#pragma weak pmpi_alltoallv__ = mpi_alltoallv_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_ALLTOALLV, + pmpi_alltoallv, + pmpi_alltoallv_, + pmpi_alltoallv__, + pmpi_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), + (sendbuf, sendcounts, sdispls, sendtype, recvbuf, recvcounts, rdispls, recvtype, comm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_ALLTOALLV = mpi_alltoallv_f +#pragma weak mpi_alltoallv = mpi_alltoallv_f +#pragma weak mpi_alltoallv_ = mpi_alltoallv_f +#pragma weak mpi_alltoallv__ = mpi_alltoallv_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_ALLTOALLV, + mpi_alltoallv, + mpi_alltoallv_, + mpi_alltoallv__, + 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), + (sendbuf, sendcounts, sdispls, sendtype, recvbuf, recvcounts, rdispls, recvtype, comm, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/alltoallw_f.c b/src/mpi/f77/alltoallw_f.c new file mode 100644 index 0000000000..a4557e1172 --- /dev/null +++ b/src/mpi/f77/alltoallw_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_ALLTOALLW = mpi_alltoallw_f +#pragma weak pmpi_alltoallw = mpi_alltoallw_f +#pragma weak pmpi_alltoallw_ = mpi_alltoallw_f +#pragma weak pmpi_alltoallw__ = mpi_alltoallw_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_ALLTOALLW, + pmpi_alltoallw, + pmpi_alltoallw_, + pmpi_alltoallw__, + pmpi_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), + (sendbuf, sendcounts, sdispls, sendtypes, recvbuf, recvcounts, rdispls, recvtypes, comm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_ALLTOALLW = mpi_alltoallw_f +#pragma weak mpi_alltoallw = mpi_alltoallw_f +#pragma weak mpi_alltoallw_ = mpi_alltoallw_f +#pragma weak mpi_alltoallw__ = mpi_alltoallw_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_ALLTOALLW, + mpi_alltoallw, + mpi_alltoallw_, + mpi_alltoallw__, + 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), + (sendbuf, sendcounts, sdispls, sendtypes, recvbuf, recvcounts, rdispls, recvtypes, comm, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/attr_delete_f.c b/src/mpi/f77/attr_delete_f.c new file mode 100644 index 0000000000..96b7c39959 --- /dev/null +++ b/src/mpi/f77/attr_delete_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_ATTR_DELETE = mpi_attr_delete_f +#pragma weak pmpi_attr_delete = mpi_attr_delete_f +#pragma weak pmpi_attr_delete_ = mpi_attr_delete_f +#pragma weak pmpi_attr_delete__ = mpi_attr_delete_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_ATTR_DELETE, + pmpi_attr_delete, + pmpi_attr_delete_, + pmpi_attr_delete__, + pmpi_attr_delete_f, + (MPI_Fint *comm, MPI_Fint *keyval, MPI_Fint *ierr), + (comm, keyval, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_ATTR_DELETE = mpi_attr_delete_f +#pragma weak mpi_attr_delete = mpi_attr_delete_f +#pragma weak mpi_attr_delete_ = mpi_attr_delete_f +#pragma weak mpi_attr_delete__ = mpi_attr_delete_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_ATTR_DELETE, + mpi_attr_delete, + mpi_attr_delete_, + mpi_attr_delete__, + mpi_attr_delete_f, + (MPI_Fint *comm, MPI_Fint *keyval, MPI_Fint *ierr), + (comm, keyval, ierr) ) +#endif + +void mpi_attr_delete_f(MPI_Fint *comm, MPI_Fint *keyval, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/attr_get_f.c b/src/mpi/f77/attr_get_f.c new file mode 100644 index 0000000000..88ef5405fe --- /dev/null +++ b/src/mpi/f77/attr_get_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_ATTR_GET = mpi_attr_get_f +#pragma weak pmpi_attr_get = mpi_attr_get_f +#pragma weak pmpi_attr_get_ = mpi_attr_get_f +#pragma weak pmpi_attr_get__ = mpi_attr_get_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_ATTR_GET, + pmpi_attr_get, + pmpi_attr_get_, + pmpi_attr_get__, + pmpi_attr_get_f, + (MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr), + (comm, keyval, attribute_val, flag, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_ATTR_GET = mpi_attr_get_f +#pragma weak mpi_attr_get = mpi_attr_get_f +#pragma weak mpi_attr_get_ = mpi_attr_get_f +#pragma weak mpi_attr_get__ = mpi_attr_get_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_ATTR_GET, + mpi_attr_get, + mpi_attr_get_, + mpi_attr_get__, + mpi_attr_get_f, + (MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr), + (comm, keyval, attribute_val, flag, ierr) ) +#endif + +void mpi_attr_get_f(MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/attr_put_f.c b/src/mpi/f77/attr_put_f.c new file mode 100644 index 0000000000..da5f76bbb4 --- /dev/null +++ b/src/mpi/f77/attr_put_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_ATTR_PUT = mpi_attr_put_f +#pragma weak pmpi_attr_put = mpi_attr_put_f +#pragma weak pmpi_attr_put_ = mpi_attr_put_f +#pragma weak pmpi_attr_put__ = mpi_attr_put_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_ATTR_PUT, + pmpi_attr_put, + pmpi_attr_put_, + pmpi_attr_put__, + pmpi_attr_put_f, + (MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *ierr), + (comm, keyval, attribute_val, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_ATTR_PUT = mpi_attr_put_f +#pragma weak mpi_attr_put = mpi_attr_put_f +#pragma weak mpi_attr_put_ = mpi_attr_put_f +#pragma weak mpi_attr_put__ = mpi_attr_put_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_ATTR_PUT, + mpi_attr_put, + mpi_attr_put_, + mpi_attr_put__, + mpi_attr_put_f, + (MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *ierr), + (comm, keyval, attribute_val, ierr) ) +#endif + +void mpi_attr_put_f(MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/barrier_f.c b/src/mpi/f77/barrier_f.c new file mode 100644 index 0000000000..698c6b9968 --- /dev/null +++ b/src/mpi/f77/barrier_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_BARRIER = mpi_barrier_f +#pragma weak pmpi_barrier = mpi_barrier_f +#pragma weak pmpi_barrier_ = mpi_barrier_f +#pragma weak pmpi_barrier__ = mpi_barrier_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_BARRIER, + pmpi_barrier, + pmpi_barrier_, + pmpi_barrier__, + pmpi_barrier_f, + (MPI_Fint *comm, MPI_Fint *ierr), + (comm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_BARRIER = mpi_barrier_f +#pragma weak mpi_barrier = mpi_barrier_f +#pragma weak mpi_barrier_ = mpi_barrier_f +#pragma weak mpi_barrier__ = mpi_barrier_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_BARRIER, + mpi_barrier, + mpi_barrier_, + mpi_barrier__, + mpi_barrier_f, + (MPI_Fint *comm, MPI_Fint *ierr), + (comm, ierr) ) +#endif + +void mpi_barrier_f(MPI_Fint *comm, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/bcast_f.c b/src/mpi/f77/bcast_f.c new file mode 100644 index 0000000000..e9f33250d0 --- /dev/null +++ b/src/mpi/f77/bcast_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_BCAST = mpi_bcast_f +#pragma weak pmpi_bcast = mpi_bcast_f +#pragma weak pmpi_bcast_ = mpi_bcast_f +#pragma weak pmpi_bcast__ = mpi_bcast_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_BCAST, + pmpi_bcast, + pmpi_bcast_, + pmpi_bcast__, + pmpi_bcast_f, + (char *buffer, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr), + (buffer, count, datatype, root, comm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_BCAST = mpi_bcast_f +#pragma weak mpi_bcast = mpi_bcast_f +#pragma weak mpi_bcast_ = mpi_bcast_f +#pragma weak mpi_bcast__ = mpi_bcast_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_BCAST, + mpi_bcast, + mpi_bcast_, + mpi_bcast__, + mpi_bcast_f, + (char *buffer, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr), + (buffer, count, datatype, root, comm, ierr) ) +#endif + +void mpi_bcast_f(char *buffer, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/bsend_f.c b/src/mpi/f77/bsend_f.c new file mode 100644 index 0000000000..b221fe16cf --- /dev/null +++ b/src/mpi/f77/bsend_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_BSEND = mpi_bsend_f +#pragma weak pmpi_bsend = mpi_bsend_f +#pragma weak pmpi_bsend_ = mpi_bsend_f +#pragma weak pmpi_bsend__ = mpi_bsend_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_BSEND, + pmpi_bsend, + pmpi_bsend_, + pmpi_bsend__, + pmpi_bsend_f, + (char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr), + (buf, count, datatype, dest, tag, comm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_BSEND = mpi_bsend_f +#pragma weak mpi_bsend = mpi_bsend_f +#pragma weak mpi_bsend_ = mpi_bsend_f +#pragma weak mpi_bsend__ = mpi_bsend_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_BSEND, + mpi_bsend, + mpi_bsend_, + mpi_bsend__, + mpi_bsend_f, + (char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr), + (buf, count, datatype, dest, tag, comm, ierr) ) +#endif + +void mpi_bsend_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/bsend_init_f.c b/src/mpi/f77/bsend_init_f.c new file mode 100644 index 0000000000..382b6e741c --- /dev/null +++ b/src/mpi/f77/bsend_init_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_BSEND_INIT = mpi_bsend_init_f +#pragma weak pmpi_bsend_init = mpi_bsend_init_f +#pragma weak pmpi_bsend_init_ = mpi_bsend_init_f +#pragma weak pmpi_bsend_init__ = mpi_bsend_init_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_BSEND_INIT, + pmpi_bsend_init, + pmpi_bsend_init_, + pmpi_bsend_init__, + pmpi_bsend_init_f, + (char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr), + (buf, count, datatype, dest, tag, comm, request, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_BSEND_INIT = mpi_bsend_init_f +#pragma weak mpi_bsend_init = mpi_bsend_init_f +#pragma weak mpi_bsend_init_ = mpi_bsend_init_f +#pragma weak mpi_bsend_init__ = mpi_bsend_init_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_BSEND_INIT, + mpi_bsend_init, + mpi_bsend_init_, + mpi_bsend_init__, + mpi_bsend_init_f, + (char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr), + (buf, count, datatype, dest, tag, comm, request, ierr) ) +#endif + +void mpi_bsend_init_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/buffer_attach_f.c b/src/mpi/f77/buffer_attach_f.c new file mode 100644 index 0000000000..85a9702d2c --- /dev/null +++ b/src/mpi/f77/buffer_attach_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_BUFFER_ATTACH = mpi_buffer_attach_f +#pragma weak pmpi_buffer_attach = mpi_buffer_attach_f +#pragma weak pmpi_buffer_attach_ = mpi_buffer_attach_f +#pragma weak pmpi_buffer_attach__ = mpi_buffer_attach_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_BUFFER_ATTACH, + pmpi_buffer_attach, + pmpi_buffer_attach_, + pmpi_buffer_attach__, + pmpi_buffer_attach_f, + (char *buffer, MPI_Fint *size, MPI_Fint *ierr), + (buffer, size, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_BUFFER_ATTACH = mpi_buffer_attach_f +#pragma weak mpi_buffer_attach = mpi_buffer_attach_f +#pragma weak mpi_buffer_attach_ = mpi_buffer_attach_f +#pragma weak mpi_buffer_attach__ = mpi_buffer_attach_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_BUFFER_ATTACH, + mpi_buffer_attach, + mpi_buffer_attach_, + mpi_buffer_attach__, + mpi_buffer_attach_f, + (char *buffer, MPI_Fint *size, MPI_Fint *ierr), + (buffer, size, ierr) ) +#endif + +void mpi_buffer_attach_f(char *buffer, MPI_Fint *size, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/buffer_detach_f.c b/src/mpi/f77/buffer_detach_f.c new file mode 100644 index 0000000000..0563bc1081 --- /dev/null +++ b/src/mpi/f77/buffer_detach_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_BUFFER_DETACH = mpi_buffer_detach_f +#pragma weak pmpi_buffer_detach = mpi_buffer_detach_f +#pragma weak pmpi_buffer_detach_ = mpi_buffer_detach_f +#pragma weak pmpi_buffer_detach__ = mpi_buffer_detach_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_BUFFER_DETACH, + pmpi_buffer_detach, + pmpi_buffer_detach_, + pmpi_buffer_detach__, + pmpi_buffer_detach_f, + (char *buffer, MPI_Fint *size, MPI_Fint *ierr), + (buffer, size, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_BUFFER_DETACH = mpi_buffer_detach_f +#pragma weak mpi_buffer_detach = mpi_buffer_detach_f +#pragma weak mpi_buffer_detach_ = mpi_buffer_detach_f +#pragma weak mpi_buffer_detach__ = mpi_buffer_detach_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_BUFFER_DETACH, + mpi_buffer_detach, + mpi_buffer_detach_, + mpi_buffer_detach__, + mpi_buffer_detach_f, + (char *buffer, MPI_Fint *size, MPI_Fint *ierr), + (buffer, size, ierr) ) +#endif + +void mpi_buffer_detach_f(char *buffer, MPI_Fint *size, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/cancel_f.c b/src/mpi/f77/cancel_f.c new file mode 100644 index 0000000000..ff6b0e5518 --- /dev/null +++ b/src/mpi/f77/cancel_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_CANCEL = mpi_cancel_f +#pragma weak pmpi_cancel = mpi_cancel_f +#pragma weak pmpi_cancel_ = mpi_cancel_f +#pragma weak pmpi_cancel__ = mpi_cancel_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_CANCEL, + pmpi_cancel, + pmpi_cancel_, + pmpi_cancel__, + pmpi_cancel_f, + (MPI_Fint *request, MPI_Fint *ierr), + (request, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_CANCEL = mpi_cancel_f +#pragma weak mpi_cancel = mpi_cancel_f +#pragma weak mpi_cancel_ = mpi_cancel_f +#pragma weak mpi_cancel__ = mpi_cancel_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_CANCEL, + mpi_cancel, + mpi_cancel_, + mpi_cancel__, + mpi_cancel_f, + (MPI_Fint *request, MPI_Fint *ierr), + (request, ierr) ) +#endif + +void mpi_cancel_f(MPI_Fint *request, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/cart_coords_f.c b/src/mpi/f77/cart_coords_f.c new file mode 100644 index 0000000000..607f815909 --- /dev/null +++ b/src/mpi/f77/cart_coords_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_CART_COORDS = mpi_cart_coords_f +#pragma weak pmpi_cart_coords = mpi_cart_coords_f +#pragma weak pmpi_cart_coords_ = mpi_cart_coords_f +#pragma weak pmpi_cart_coords__ = mpi_cart_coords_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_CART_COORDS, + pmpi_cart_coords, + pmpi_cart_coords_, + pmpi_cart_coords__, + pmpi_cart_coords_f, + (MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxdims, MPI_Fint *coords, MPI_Fint *ierr), + (comm, rank, maxdims, coords, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_CART_COORDS = mpi_cart_coords_f +#pragma weak mpi_cart_coords = mpi_cart_coords_f +#pragma weak mpi_cart_coords_ = mpi_cart_coords_f +#pragma weak mpi_cart_coords__ = mpi_cart_coords_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_CART_COORDS, + mpi_cart_coords, + mpi_cart_coords_, + mpi_cart_coords__, + mpi_cart_coords_f, + (MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxdims, MPI_Fint *coords, MPI_Fint *ierr), + (comm, rank, maxdims, coords, ierr) ) +#endif + +void mpi_cart_coords_f(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxdims, MPI_Fint *coords, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/cart_create_f.c b/src/mpi/f77/cart_create_f.c new file mode 100644 index 0000000000..f8ae4598d1 --- /dev/null +++ b/src/mpi/f77/cart_create_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_CART_CREATE = mpi_cart_create_f +#pragma weak pmpi_cart_create = mpi_cart_create_f +#pragma weak pmpi_cart_create_ = mpi_cart_create_f +#pragma weak pmpi_cart_create__ = mpi_cart_create_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_CART_CREATE, + pmpi_cart_create, + pmpi_cart_create_, + pmpi_cart_create__, + pmpi_cart_create_f, + (MPI_Fint *old_comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *redorder, MPI_Fint *comm_cart, MPI_Fint *ierr), + (old_comm, ndims, dims, periods, redorder, comm_cart, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_CART_CREATE = mpi_cart_create_f +#pragma weak mpi_cart_create = mpi_cart_create_f +#pragma weak mpi_cart_create_ = mpi_cart_create_f +#pragma weak mpi_cart_create__ = mpi_cart_create_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_CART_CREATE, + mpi_cart_create, + mpi_cart_create_, + mpi_cart_create__, + mpi_cart_create_f, + (MPI_Fint *old_comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *redorder, MPI_Fint *comm_cart, MPI_Fint *ierr), + (old_comm, ndims, dims, periods, redorder, comm_cart, ierr) ) +#endif + +void mpi_cart_create_f(MPI_Fint *old_comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *redorder, MPI_Fint *comm_cart, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/cart_get_f.c b/src/mpi/f77/cart_get_f.c new file mode 100644 index 0000000000..26f20b97aa --- /dev/null +++ b/src/mpi/f77/cart_get_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_CART_GET = mpi_cart_get_f +#pragma weak pmpi_cart_get = mpi_cart_get_f +#pragma weak pmpi_cart_get_ = mpi_cart_get_f +#pragma weak pmpi_cart_get__ = mpi_cart_get_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_CART_GET, + pmpi_cart_get, + pmpi_cart_get_, + pmpi_cart_get__, + pmpi_cart_get_f, + (MPI_Fint *comm, MPI_Fint *maxdims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *coords, MPI_Fint *ierr), + (comm, maxdims, dims, periods, coords, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_CART_GET = mpi_cart_get_f +#pragma weak mpi_cart_get = mpi_cart_get_f +#pragma weak mpi_cart_get_ = mpi_cart_get_f +#pragma weak mpi_cart_get__ = mpi_cart_get_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_CART_GET, + mpi_cart_get, + mpi_cart_get_, + mpi_cart_get__, + mpi_cart_get_f, + (MPI_Fint *comm, MPI_Fint *maxdims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *coords, MPI_Fint *ierr), + (comm, maxdims, dims, periods, coords, ierr) ) +#endif + +void mpi_cart_get_f(MPI_Fint *comm, MPI_Fint *maxdims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *coords, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/cart_map_f.c b/src/mpi/f77/cart_map_f.c new file mode 100644 index 0000000000..3365e77ade --- /dev/null +++ b/src/mpi/f77/cart_map_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_CART_MAP = mpi_cart_map_f +#pragma weak pmpi_cart_map = mpi_cart_map_f +#pragma weak pmpi_cart_map_ = mpi_cart_map_f +#pragma weak pmpi_cart_map__ = mpi_cart_map_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_CART_MAP, + pmpi_cart_map, + pmpi_cart_map_, + pmpi_cart_map__, + pmpi_cart_map_f, + (MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *newrank, MPI_Fint *ierr), + (comm, ndims, dims, periods, newrank, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_CART_MAP = mpi_cart_map_f +#pragma weak mpi_cart_map = mpi_cart_map_f +#pragma weak mpi_cart_map_ = mpi_cart_map_f +#pragma weak mpi_cart_map__ = mpi_cart_map_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_CART_MAP, + mpi_cart_map, + mpi_cart_map_, + mpi_cart_map__, + mpi_cart_map_f, + (MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *newrank, MPI_Fint *ierr), + (comm, ndims, dims, periods, newrank, ierr) ) +#endif + +void mpi_cart_map_f(MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *newrank, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/cart_rank_f.c b/src/mpi/f77/cart_rank_f.c new file mode 100644 index 0000000000..5af2991a8a --- /dev/null +++ b/src/mpi/f77/cart_rank_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_CART_RANK = mpi_cart_rank_f +#pragma weak pmpi_cart_rank = mpi_cart_rank_f +#pragma weak pmpi_cart_rank_ = mpi_cart_rank_f +#pragma weak pmpi_cart_rank__ = mpi_cart_rank_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_CART_RANK, + pmpi_cart_rank, + pmpi_cart_rank_, + pmpi_cart_rank__, + pmpi_cart_rank_f, + (MPI_Fint *comm, MPI_Fint *coords, MPI_Fint *rank, MPI_Fint *ierr), + (comm, coords, rank, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_CART_RANK = mpi_cart_rank_f +#pragma weak mpi_cart_rank = mpi_cart_rank_f +#pragma weak mpi_cart_rank_ = mpi_cart_rank_f +#pragma weak mpi_cart_rank__ = mpi_cart_rank_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_CART_RANK, + mpi_cart_rank, + mpi_cart_rank_, + mpi_cart_rank__, + mpi_cart_rank_f, + (MPI_Fint *comm, MPI_Fint *coords, MPI_Fint *rank, MPI_Fint *ierr), + (comm, coords, rank, ierr) ) +#endif + +void mpi_cart_rank_f(MPI_Fint *comm, MPI_Fint *coords, MPI_Fint *rank, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/cart_shift_f.c b/src/mpi/f77/cart_shift_f.c new file mode 100644 index 0000000000..cfc447d386 --- /dev/null +++ b/src/mpi/f77/cart_shift_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_CART_SHIFT = mpi_cart_shift_f +#pragma weak pmpi_cart_shift = mpi_cart_shift_f +#pragma weak pmpi_cart_shift_ = mpi_cart_shift_f +#pragma weak pmpi_cart_shift__ = mpi_cart_shift_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_CART_SHIFT, + pmpi_cart_shift, + pmpi_cart_shift_, + pmpi_cart_shift__, + pmpi_cart_shift_f, + (MPI_Fint *comm, MPI_Fint *direction, MPI_Fint *disp, MPI_Fint *rank_source, MPI_Fint *rank_dest, MPI_Fint *ierr), + (comm, direction, disp, rank_source, rank_dest, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_CART_SHIFT = mpi_cart_shift_f +#pragma weak mpi_cart_shift = mpi_cart_shift_f +#pragma weak mpi_cart_shift_ = mpi_cart_shift_f +#pragma weak mpi_cart_shift__ = mpi_cart_shift_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_CART_SHIFT, + mpi_cart_shift, + mpi_cart_shift_, + mpi_cart_shift__, + mpi_cart_shift_f, + (MPI_Fint *comm, MPI_Fint *direction, MPI_Fint *disp, MPI_Fint *rank_source, MPI_Fint *rank_dest, MPI_Fint *ierr), + (comm, direction, disp, rank_source, rank_dest, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/cart_sub_f.c b/src/mpi/f77/cart_sub_f.c new file mode 100644 index 0000000000..7fe8477e50 --- /dev/null +++ b/src/mpi/f77/cart_sub_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_CART_SUB = mpi_cart_sub_f +#pragma weak pmpi_cart_sub = mpi_cart_sub_f +#pragma weak pmpi_cart_sub_ = mpi_cart_sub_f +#pragma weak pmpi_cart_sub__ = mpi_cart_sub_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_CART_SUB, + pmpi_cart_sub, + pmpi_cart_sub_, + pmpi_cart_sub__, + pmpi_cart_sub_f, + (MPI_Fint *comm, MPI_Fint *remain_dims, MPI_Fint *new_comm, MPI_Fint *ierr), + (comm, remain_dims, new_comm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_CART_SUB = mpi_cart_sub_f +#pragma weak mpi_cart_sub = mpi_cart_sub_f +#pragma weak mpi_cart_sub_ = mpi_cart_sub_f +#pragma weak mpi_cart_sub__ = mpi_cart_sub_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_CART_SUB, + mpi_cart_sub, + mpi_cart_sub_, + mpi_cart_sub__, + mpi_cart_sub_f, + (MPI_Fint *comm, MPI_Fint *remain_dims, MPI_Fint *new_comm, MPI_Fint *ierr), + (comm, remain_dims, new_comm, ierr) ) +#endif + +void mpi_cart_sub_f(MPI_Fint *comm, MPI_Fint *remain_dims, MPI_Fint *new_comm, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/cartdim_get_f.c b/src/mpi/f77/cartdim_get_f.c new file mode 100644 index 0000000000..e26f34a335 --- /dev/null +++ b/src/mpi/f77/cartdim_get_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_CARTDIM_GET = mpi_cartdim_get_f +#pragma weak pmpi_cartdim_get = mpi_cartdim_get_f +#pragma weak pmpi_cartdim_get_ = mpi_cartdim_get_f +#pragma weak pmpi_cartdim_get__ = mpi_cartdim_get_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_CARTDIM_GET, + pmpi_cartdim_get, + pmpi_cartdim_get_, + pmpi_cartdim_get__, + pmpi_cartdim_get_f, + (MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *ierr), + (comm, ndims, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_CARTDIM_GET = mpi_cartdim_get_f +#pragma weak mpi_cartdim_get = mpi_cartdim_get_f +#pragma weak mpi_cartdim_get_ = mpi_cartdim_get_f +#pragma weak mpi_cartdim_get__ = mpi_cartdim_get_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_CARTDIM_GET, + mpi_cartdim_get, + mpi_cartdim_get_, + mpi_cartdim_get__, + mpi_cartdim_get_f, + (MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *ierr), + (comm, ndims, ierr) ) +#endif + +void mpi_cartdim_get_f(MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/close_port_f.c b/src/mpi/f77/close_port_f.c new file mode 100644 index 0000000000..edadad7616 --- /dev/null +++ b/src/mpi/f77/close_port_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_CLOSE_PORT = mpi_close_port_f +#pragma weak pmpi_close_port = mpi_close_port_f +#pragma weak pmpi_close_port_ = mpi_close_port_f +#pragma weak pmpi_close_port__ = mpi_close_port_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_CLOSE_PORT, + pmpi_close_port, + pmpi_close_port_, + pmpi_close_port__, + pmpi_close_port_f, + (char *port_name, MPI_Fint *ierr), + (port_name, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_CLOSE_PORT = mpi_close_port_f +#pragma weak mpi_close_port = mpi_close_port_f +#pragma weak mpi_close_port_ = mpi_close_port_f +#pragma weak mpi_close_port__ = mpi_close_port_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_CLOSE_PORT, + mpi_close_port, + mpi_close_port_, + mpi_close_port__, + mpi_close_port_f, + (char *port_name, MPI_Fint *ierr), + (port_name, ierr) ) +#endif + +void mpi_close_port_f(char *port_name, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/comm_accept_f.c b/src/mpi/f77/comm_accept_f.c new file mode 100644 index 0000000000..985f6ccff3 --- /dev/null +++ b/src/mpi/f77/comm_accept_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_COMM_ACCEPT = mpi_comm_accept_f +#pragma weak pmpi_comm_accept = mpi_comm_accept_f +#pragma weak pmpi_comm_accept_ = mpi_comm_accept_f +#pragma weak pmpi_comm_accept__ = mpi_comm_accept_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_COMM_ACCEPT, + pmpi_comm_accept, + pmpi_comm_accept_, + pmpi_comm_accept__, + pmpi_comm_accept_f, + (char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr), + (port_name, info, root, comm, newcomm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_COMM_ACCEPT = mpi_comm_accept_f +#pragma weak mpi_comm_accept = mpi_comm_accept_f +#pragma weak mpi_comm_accept_ = mpi_comm_accept_f +#pragma weak mpi_comm_accept__ = mpi_comm_accept_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_COMM_ACCEPT, + mpi_comm_accept, + mpi_comm_accept_, + mpi_comm_accept__, + mpi_comm_accept_f, + (char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr), + (port_name, info, root, comm, newcomm, ierr) ) +#endif + +void mpi_comm_accept_f(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/comm_call_errhandler_f.c b/src/mpi/f77/comm_call_errhandler_f.c new file mode 100644 index 0000000000..58d655c39c --- /dev/null +++ b/src/mpi/f77/comm_call_errhandler_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_COMM_CALL_ERRHANDLER = mpi_comm_call_errhandler_f +#pragma weak pmpi_comm_call_errhandler = mpi_comm_call_errhandler_f +#pragma weak pmpi_comm_call_errhandler_ = mpi_comm_call_errhandler_f +#pragma weak pmpi_comm_call_errhandler__ = mpi_comm_call_errhandler_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_COMM_CALL_ERRHANDLER, + pmpi_comm_call_errhandler, + pmpi_comm_call_errhandler_, + pmpi_comm_call_errhandler__, + pmpi_comm_call_errhandler_f, + (MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr), + (comm, errorcode, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_COMM_CALL_ERRHANDLER = mpi_comm_call_errhandler_f +#pragma weak mpi_comm_call_errhandler = mpi_comm_call_errhandler_f +#pragma weak mpi_comm_call_errhandler_ = mpi_comm_call_errhandler_f +#pragma weak mpi_comm_call_errhandler__ = mpi_comm_call_errhandler_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_COMM_CALL_ERRHANDLER, + mpi_comm_call_errhandler, + mpi_comm_call_errhandler_, + mpi_comm_call_errhandler__, + mpi_comm_call_errhandler_f, + (MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr), + (comm, errorcode, ierr) ) +#endif + +void mpi_comm_call_errhandler_f(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/comm_compare_f.c b/src/mpi/f77/comm_compare_f.c new file mode 100644 index 0000000000..c411c52356 --- /dev/null +++ b/src/mpi/f77/comm_compare_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_COMM_COMPARE = mpi_comm_compare_f +#pragma weak pmpi_comm_compare = mpi_comm_compare_f +#pragma weak pmpi_comm_compare_ = mpi_comm_compare_f +#pragma weak pmpi_comm_compare__ = mpi_comm_compare_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_COMM_COMPARE, + pmpi_comm_compare, + pmpi_comm_compare_, + pmpi_comm_compare__, + pmpi_comm_compare_f, + (MPI_Fint *comm1, MPI_Fint *comm2, MPI_Fint *result, MPI_Fint *ierr), + (comm1, comm2, result, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_COMM_COMPARE = mpi_comm_compare_f +#pragma weak mpi_comm_compare = mpi_comm_compare_f +#pragma weak mpi_comm_compare_ = mpi_comm_compare_f +#pragma weak mpi_comm_compare__ = mpi_comm_compare_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_COMM_COMPARE, + mpi_comm_compare, + mpi_comm_compare_, + mpi_comm_compare__, + mpi_comm_compare_f, + (MPI_Fint *comm1, MPI_Fint *comm2, MPI_Fint *result, MPI_Fint *ierr), + (comm1, comm2, result, ierr) ) +#endif + +void mpi_comm_compare_f(MPI_Fint *comm1, MPI_Fint *comm2, MPI_Fint *result, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/comm_connect_f.c b/src/mpi/f77/comm_connect_f.c new file mode 100644 index 0000000000..15d8fc1253 --- /dev/null +++ b/src/mpi/f77/comm_connect_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_COMM_CONNECT = mpi_comm_connect_f +#pragma weak pmpi_comm_connect = mpi_comm_connect_f +#pragma weak pmpi_comm_connect_ = mpi_comm_connect_f +#pragma weak pmpi_comm_connect__ = mpi_comm_connect_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_COMM_CONNECT, + pmpi_comm_connect, + pmpi_comm_connect_, + pmpi_comm_connect__, + pmpi_comm_connect_f, + (char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr), + (port_name, info, root, comm, newcomm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_COMM_CONNECT = mpi_comm_connect_f +#pragma weak mpi_comm_connect = mpi_comm_connect_f +#pragma weak mpi_comm_connect_ = mpi_comm_connect_f +#pragma weak mpi_comm_connect__ = mpi_comm_connect_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_COMM_CONNECT, + mpi_comm_connect, + mpi_comm_connect_, + mpi_comm_connect__, + mpi_comm_connect_f, + (char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr), + (port_name, info, root, comm, newcomm, ierr) ) +#endif + +void mpi_comm_connect_f(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/comm_create_errhandler_f.c b/src/mpi/f77/comm_create_errhandler_f.c new file mode 100644 index 0000000000..7f95347ace --- /dev/null +++ b/src/mpi/f77/comm_create_errhandler_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_COMM_CREATE_ERRHANDLER = mpi_comm_create_errhandler_f +#pragma weak pmpi_comm_create_errhandler = mpi_comm_create_errhandler_f +#pragma weak pmpi_comm_create_errhandler_ = mpi_comm_create_errhandler_f +#pragma weak pmpi_comm_create_errhandler__ = mpi_comm_create_errhandler_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_COMM_CREATE_ERRHANDLER, + pmpi_comm_create_errhandler, + pmpi_comm_create_errhandler_, + pmpi_comm_create_errhandler__, + pmpi_comm_create_errhandler_f, + (MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr), + (function, errhandler, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_COMM_CREATE_ERRHANDLER = mpi_comm_create_errhandler_f +#pragma weak mpi_comm_create_errhandler = mpi_comm_create_errhandler_f +#pragma weak mpi_comm_create_errhandler_ = mpi_comm_create_errhandler_f +#pragma weak mpi_comm_create_errhandler__ = mpi_comm_create_errhandler_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_COMM_CREATE_ERRHANDLER, + mpi_comm_create_errhandler, + mpi_comm_create_errhandler_, + mpi_comm_create_errhandler__, + mpi_comm_create_errhandler_f, + (MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr), + (function, errhandler, ierr) ) +#endif + +void mpi_comm_create_errhandler_f(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/comm_create_f.c b/src/mpi/f77/comm_create_f.c new file mode 100644 index 0000000000..b875db5b74 --- /dev/null +++ b/src/mpi/f77/comm_create_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_COMM_CREATE = mpi_comm_create_f +#pragma weak pmpi_comm_create = mpi_comm_create_f +#pragma weak pmpi_comm_create_ = mpi_comm_create_f +#pragma weak pmpi_comm_create__ = mpi_comm_create_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_COMM_CREATE, + pmpi_comm_create, + pmpi_comm_create_, + pmpi_comm_create__, + pmpi_comm_create_f, + (MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr), + (comm, group, newcomm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_COMM_CREATE = mpi_comm_create_f +#pragma weak mpi_comm_create = mpi_comm_create_f +#pragma weak mpi_comm_create_ = mpi_comm_create_f +#pragma weak mpi_comm_create__ = mpi_comm_create_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_COMM_CREATE, + mpi_comm_create, + mpi_comm_create_, + mpi_comm_create__, + mpi_comm_create_f, + (MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr), + (comm, group, newcomm, ierr) ) +#endif + +void mpi_comm_create_f(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/comm_create_keyval_f.c b/src/mpi/f77/comm_create_keyval_f.c new file mode 100644 index 0000000000..733241889a --- /dev/null +++ b/src/mpi/f77/comm_create_keyval_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_COMM_CREATE_KEYVAL = mpi_comm_create_keyval_f +#pragma weak pmpi_comm_create_keyval = mpi_comm_create_keyval_f +#pragma weak pmpi_comm_create_keyval_ = mpi_comm_create_keyval_f +#pragma weak pmpi_comm_create_keyval__ = mpi_comm_create_keyval_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_COMM_CREATE_KEYVAL, + pmpi_comm_create_keyval, + pmpi_comm_create_keyval_, + pmpi_comm_create_keyval__, + pmpi_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), + (comm_copy_attr_fn, comm_delete_attr_fn, comm_keyval, extra_state, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_COMM_CREATE_KEYVAL = mpi_comm_create_keyval_f +#pragma weak mpi_comm_create_keyval = mpi_comm_create_keyval_f +#pragma weak mpi_comm_create_keyval_ = mpi_comm_create_keyval_f +#pragma weak mpi_comm_create_keyval__ = mpi_comm_create_keyval_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_COMM_CREATE_KEYVAL, + mpi_comm_create_keyval, + mpi_comm_create_keyval_, + mpi_comm_create_keyval__, + 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), + (comm_copy_attr_fn, comm_delete_attr_fn, comm_keyval, extra_state, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/comm_delete_attr_f.c b/src/mpi/f77/comm_delete_attr_f.c new file mode 100644 index 0000000000..d04271c75a --- /dev/null +++ b/src/mpi/f77/comm_delete_attr_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_COMM_DELETE_ATTR = mpi_comm_delete_attr_f +#pragma weak pmpi_comm_delete_attr = mpi_comm_delete_attr_f +#pragma weak pmpi_comm_delete_attr_ = mpi_comm_delete_attr_f +#pragma weak pmpi_comm_delete_attr__ = mpi_comm_delete_attr_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_COMM_DELETE_ATTR, + pmpi_comm_delete_attr, + pmpi_comm_delete_attr_, + pmpi_comm_delete_attr__, + pmpi_comm_delete_attr_f, + (MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *ierr), + (comm, comm_keyval, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_COMM_DELETE_ATTR = mpi_comm_delete_attr_f +#pragma weak mpi_comm_delete_attr = mpi_comm_delete_attr_f +#pragma weak mpi_comm_delete_attr_ = mpi_comm_delete_attr_f +#pragma weak mpi_comm_delete_attr__ = mpi_comm_delete_attr_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_COMM_DELETE_ATTR, + mpi_comm_delete_attr, + mpi_comm_delete_attr_, + mpi_comm_delete_attr__, + mpi_comm_delete_attr_f, + (MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *ierr), + (comm, comm_keyval, ierr) ) +#endif + +void mpi_comm_delete_attr_f(MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/comm_disconnect_f.c b/src/mpi/f77/comm_disconnect_f.c new file mode 100644 index 0000000000..774a54e0c9 --- /dev/null +++ b/src/mpi/f77/comm_disconnect_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_COMM_DISCONNECT = mpi_comm_disconnect_f +#pragma weak pmpi_comm_disconnect = mpi_comm_disconnect_f +#pragma weak pmpi_comm_disconnect_ = mpi_comm_disconnect_f +#pragma weak pmpi_comm_disconnect__ = mpi_comm_disconnect_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_COMM_DISCONNECT, + pmpi_comm_disconnect, + pmpi_comm_disconnect_, + pmpi_comm_disconnect__, + pmpi_comm_disconnect_f, + (MPI_Fint *comm, MPI_Fint *ierr), + (comm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_COMM_DISCONNECT = mpi_comm_disconnect_f +#pragma weak mpi_comm_disconnect = mpi_comm_disconnect_f +#pragma weak mpi_comm_disconnect_ = mpi_comm_disconnect_f +#pragma weak mpi_comm_disconnect__ = mpi_comm_disconnect_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_COMM_DISCONNECT, + mpi_comm_disconnect, + mpi_comm_disconnect_, + mpi_comm_disconnect__, + mpi_comm_disconnect_f, + (MPI_Fint *comm, MPI_Fint *ierr), + (comm, ierr) ) +#endif + +void mpi_comm_disconnect_f(MPI_Fint *comm, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/comm_dup_f.c b/src/mpi/f77/comm_dup_f.c new file mode 100644 index 0000000000..9948d66875 --- /dev/null +++ b/src/mpi/f77/comm_dup_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_COMM_DUP = mpi_comm_dup_f +#pragma weak pmpi_comm_dup = mpi_comm_dup_f +#pragma weak pmpi_comm_dup_ = mpi_comm_dup_f +#pragma weak pmpi_comm_dup__ = mpi_comm_dup_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_COMM_DUP, + pmpi_comm_dup, + pmpi_comm_dup_, + pmpi_comm_dup__, + pmpi_comm_dup_f, + (MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr), + (comm, newcomm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_COMM_DUP = mpi_comm_dup_f +#pragma weak mpi_comm_dup = mpi_comm_dup_f +#pragma weak mpi_comm_dup_ = mpi_comm_dup_f +#pragma weak mpi_comm_dup__ = mpi_comm_dup_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_COMM_DUP, + mpi_comm_dup, + mpi_comm_dup_, + mpi_comm_dup__, + mpi_comm_dup_f, + (MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr), + (comm, newcomm, ierr) ) +#endif + +void mpi_comm_dup_f(MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/comm_free_f.c b/src/mpi/f77/comm_free_f.c new file mode 100644 index 0000000000..e0a7b48f8b --- /dev/null +++ b/src/mpi/f77/comm_free_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_COMM_FREE = mpi_comm_free_f +#pragma weak pmpi_comm_free = mpi_comm_free_f +#pragma weak pmpi_comm_free_ = mpi_comm_free_f +#pragma weak pmpi_comm_free__ = mpi_comm_free_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_COMM_FREE, + pmpi_comm_free, + pmpi_comm_free_, + pmpi_comm_free__, + pmpi_comm_free_f, + (MPI_Fint *comm, MPI_Fint *ierr), + (comm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_COMM_FREE = mpi_comm_free_f +#pragma weak mpi_comm_free = mpi_comm_free_f +#pragma weak mpi_comm_free_ = mpi_comm_free_f +#pragma weak mpi_comm_free__ = mpi_comm_free_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_COMM_FREE, + mpi_comm_free, + mpi_comm_free_, + mpi_comm_free__, + mpi_comm_free_f, + (MPI_Fint *comm, MPI_Fint *ierr), + (comm, ierr) ) +#endif + +void mpi_comm_free_f(MPI_Fint *comm, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/comm_free_keyval_f.c b/src/mpi/f77/comm_free_keyval_f.c new file mode 100644 index 0000000000..3fd0893faf --- /dev/null +++ b/src/mpi/f77/comm_free_keyval_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_COMM_FREE_KEYVAL = mpi_comm_free_keyval_f +#pragma weak pmpi_comm_free_keyval = mpi_comm_free_keyval_f +#pragma weak pmpi_comm_free_keyval_ = mpi_comm_free_keyval_f +#pragma weak pmpi_comm_free_keyval__ = mpi_comm_free_keyval_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_COMM_FREE_KEYVAL, + pmpi_comm_free_keyval, + pmpi_comm_free_keyval_, + pmpi_comm_free_keyval__, + pmpi_comm_free_keyval_f, + (MPI_Fint *comm_keyval, MPI_Fint *ierr), + (comm_keyval, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_COMM_FREE_KEYVAL = mpi_comm_free_keyval_f +#pragma weak mpi_comm_free_keyval = mpi_comm_free_keyval_f +#pragma weak mpi_comm_free_keyval_ = mpi_comm_free_keyval_f +#pragma weak mpi_comm_free_keyval__ = mpi_comm_free_keyval_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_COMM_FREE_KEYVAL, + mpi_comm_free_keyval, + mpi_comm_free_keyval_, + mpi_comm_free_keyval__, + mpi_comm_free_keyval_f, + (MPI_Fint *comm_keyval, MPI_Fint *ierr), + (comm_keyval, ierr) ) +#endif + +void mpi_comm_free_keyval_f(MPI_Fint *comm_keyval, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/comm_get_attr_f.c b/src/mpi/f77/comm_get_attr_f.c new file mode 100644 index 0000000000..93987ea8a7 --- /dev/null +++ b/src/mpi/f77/comm_get_attr_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_COMM_GET_ATTR = mpi_comm_get_attr_f +#pragma weak pmpi_comm_get_attr = mpi_comm_get_attr_f +#pragma weak pmpi_comm_get_attr_ = mpi_comm_get_attr_f +#pragma weak pmpi_comm_get_attr__ = mpi_comm_get_attr_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_COMM_GET_ATTR, + pmpi_comm_get_attr, + pmpi_comm_get_attr_, + pmpi_comm_get_attr__, + pmpi_comm_get_attr_f, + (MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr), + (comm, comm_keyval, attribute_val, flag, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_COMM_GET_ATTR = mpi_comm_get_attr_f +#pragma weak mpi_comm_get_attr = mpi_comm_get_attr_f +#pragma weak mpi_comm_get_attr_ = mpi_comm_get_attr_f +#pragma weak mpi_comm_get_attr__ = mpi_comm_get_attr_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_COMM_GET_ATTR, + mpi_comm_get_attr, + mpi_comm_get_attr_, + mpi_comm_get_attr__, + mpi_comm_get_attr_f, + (MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr), + (comm, comm_keyval, attribute_val, flag, ierr) ) +#endif + +void mpi_comm_get_attr_f(MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/comm_get_errhandler_f.c b/src/mpi/f77/comm_get_errhandler_f.c new file mode 100644 index 0000000000..fb45edd9c1 --- /dev/null +++ b/src/mpi/f77/comm_get_errhandler_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_COMM_GET_ERRHANDLER = mpi_comm_get_errhandler_f +#pragma weak pmpi_comm_get_errhandler = mpi_comm_get_errhandler_f +#pragma weak pmpi_comm_get_errhandler_ = mpi_comm_get_errhandler_f +#pragma weak pmpi_comm_get_errhandler__ = mpi_comm_get_errhandler_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_COMM_GET_ERRHANDLER, + pmpi_comm_get_errhandler, + pmpi_comm_get_errhandler_, + pmpi_comm_get_errhandler__, + pmpi_comm_get_errhandler_f, + (MPI_Fint *comm, MPI_Fint *erhandler, MPI_Fint *ierr), + (comm, erhandler, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_COMM_GET_ERRHANDLER = mpi_comm_get_errhandler_f +#pragma weak mpi_comm_get_errhandler = mpi_comm_get_errhandler_f +#pragma weak mpi_comm_get_errhandler_ = mpi_comm_get_errhandler_f +#pragma weak mpi_comm_get_errhandler__ = mpi_comm_get_errhandler_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_COMM_GET_ERRHANDLER, + mpi_comm_get_errhandler, + mpi_comm_get_errhandler_, + mpi_comm_get_errhandler__, + mpi_comm_get_errhandler_f, + (MPI_Fint *comm, MPI_Fint *erhandler, MPI_Fint *ierr), + (comm, erhandler, ierr) ) +#endif + +void mpi_comm_get_errhandler_f(MPI_Fint *comm, MPI_Fint *erhandler, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/comm_get_name_f.c b/src/mpi/f77/comm_get_name_f.c index c4409c98c7..e2a374a480 100644 --- a/src/mpi/f77/comm_get_name_f.c +++ b/src/mpi/f77/comm_get_name_f.c @@ -4,10 +4,11 @@ #include "lam_config.h" +#include + #include "mpi.h" #include "mpi/f77/bindings.h" - #if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER #pragma weak PMPI_COMM_GET_NAME = mpi_comm_get_name_f #pragma weak pmpi_comm_get_name = mpi_comm_get_name_f @@ -15,12 +16,12 @@ #pragma weak pmpi_comm_get_name__ = mpi_comm_get_name_f #elif LAM_PROFILE_LAYER LAM_GENERATE_F77_BINDINGS (PMPI_COMM_GET_NAME, - pmpi_comm_get_name, - pmpi_comm_get_name_, - pmpi_comm_get_name__, - pmpi_comm_get_name_f, - (MPI_Fint *comm, char *name, MPI_Fint *l, MPI_Fint *ierror, MPI_Fint charlen), - (comm, name, l, ierror, charlen)) + pmpi_comm_get_name, + pmpi_comm_get_name_, + pmpi_comm_get_name__, + pmpi_comm_get_name_f, + (MPI_Fint *comm, char *comm_name, MPI_Fint *resultlen, MPI_Fint *ierr), + (comm, comm_name, resultlen, ierr) ) #endif #if LAM_HAVE_WEAK_SYMBOLS @@ -30,21 +31,17 @@ LAM_GENERATE_F77_BINDINGS (PMPI_COMM_GET_NAME, #pragma weak mpi_comm_get_name__ = mpi_comm_get_name_f #endif -#if ! LAM_PROFILE_LAYER && ! LAM_HAVE_WEAK_SYMBOLS +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER LAM_GENERATE_F77_BINDINGS (MPI_COMM_GET_NAME, - mpi_comm_get_name, - mpi_comm_get_name_, - mpi_comm_get_name__, - mpi_comm_get_name_f, - (MPI_Fint *comm, char *name, MPI_Fint *l, MPI_Fint *ierror, MPI_Fint charlen), - (comm, name, l, ierror, charlen)) + mpi_comm_get_name, + mpi_comm_get_name_, + mpi_comm_get_name__, + mpi_comm_get_name_f, + (MPI_Fint *comm, char *comm_name, MPI_Fint *resultlen, MPI_Fint *ierr), + (comm, comm_name, resultlen, ierr) ) #endif - -void -mpi_comm_get_name_f(MPI_Fint *comm, char *name, MPI_Fint *l, MPI_Fint *ierror, MPI_Fint charlen) +void mpi_comm_get_name_f(MPI_Fint *comm, char *comm_name, MPI_Fint *resultlen, MPI_Fint *ierr) { - MPI_Comm c_comm = MPI_COMM_WORLD; - *ierror = MPI_Comm_get_name(c_comm, name, l); } diff --git a/src/mpi/f77/comm_get_parent_f.c b/src/mpi/f77/comm_get_parent_f.c new file mode 100644 index 0000000000..823243a10c --- /dev/null +++ b/src/mpi/f77/comm_get_parent_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_COMM_GET_PARENT = mpi_comm_get_parent_f +#pragma weak pmpi_comm_get_parent = mpi_comm_get_parent_f +#pragma weak pmpi_comm_get_parent_ = mpi_comm_get_parent_f +#pragma weak pmpi_comm_get_parent__ = mpi_comm_get_parent_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_COMM_GET_PARENT, + pmpi_comm_get_parent, + pmpi_comm_get_parent_, + pmpi_comm_get_parent__, + pmpi_comm_get_parent_f, + (MPI_Fint *parent, MPI_Fint *ierr), + (parent, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_COMM_GET_PARENT = mpi_comm_get_parent_f +#pragma weak mpi_comm_get_parent = mpi_comm_get_parent_f +#pragma weak mpi_comm_get_parent_ = mpi_comm_get_parent_f +#pragma weak mpi_comm_get_parent__ = mpi_comm_get_parent_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_COMM_GET_PARENT, + mpi_comm_get_parent, + mpi_comm_get_parent_, + mpi_comm_get_parent__, + mpi_comm_get_parent_f, + (MPI_Fint *parent, MPI_Fint *ierr), + (parent, ierr) ) +#endif + +void mpi_comm_get_parent_f(MPI_Fint *parent, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/comm_group_f.c b/src/mpi/f77/comm_group_f.c new file mode 100644 index 0000000000..35f90c5a89 --- /dev/null +++ b/src/mpi/f77/comm_group_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_COMM_GROUP = mpi_comm_group_f +#pragma weak pmpi_comm_group = mpi_comm_group_f +#pragma weak pmpi_comm_group_ = mpi_comm_group_f +#pragma weak pmpi_comm_group__ = mpi_comm_group_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_COMM_GROUP, + pmpi_comm_group, + pmpi_comm_group_, + pmpi_comm_group__, + pmpi_comm_group_f, + (MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr), + (comm, group, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_COMM_GROUP = mpi_comm_group_f +#pragma weak mpi_comm_group = mpi_comm_group_f +#pragma weak mpi_comm_group_ = mpi_comm_group_f +#pragma weak mpi_comm_group__ = mpi_comm_group_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_COMM_GROUP, + mpi_comm_group, + mpi_comm_group_, + mpi_comm_group__, + mpi_comm_group_f, + (MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr), + (comm, group, ierr) ) +#endif + +void mpi_comm_group_f(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/comm_join_f.c b/src/mpi/f77/comm_join_f.c new file mode 100644 index 0000000000..141f47c0bd --- /dev/null +++ b/src/mpi/f77/comm_join_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_COMM_JOIN = mpi_comm_join_f +#pragma weak pmpi_comm_join = mpi_comm_join_f +#pragma weak pmpi_comm_join_ = mpi_comm_join_f +#pragma weak pmpi_comm_join__ = mpi_comm_join_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_COMM_JOIN, + pmpi_comm_join, + pmpi_comm_join_, + pmpi_comm_join__, + pmpi_comm_join_f, + (MPI_Fint *fd, MPI_Fint *intercomm, MPI_Fint *ierr), + (fd, intercomm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_COMM_JOIN = mpi_comm_join_f +#pragma weak mpi_comm_join = mpi_comm_join_f +#pragma weak mpi_comm_join_ = mpi_comm_join_f +#pragma weak mpi_comm_join__ = mpi_comm_join_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_COMM_JOIN, + mpi_comm_join, + mpi_comm_join_, + mpi_comm_join__, + mpi_comm_join_f, + (MPI_Fint *fd, MPI_Fint *intercomm, MPI_Fint *ierr), + (fd, intercomm, ierr) ) +#endif + +void mpi_comm_join_f(MPI_Fint *fd, MPI_Fint *intercomm, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/comm_rank_f.c b/src/mpi/f77/comm_rank_f.c new file mode 100644 index 0000000000..1de95409c9 --- /dev/null +++ b/src/mpi/f77/comm_rank_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_COMM_RANK = mpi_comm_rank_f +#pragma weak pmpi_comm_rank = mpi_comm_rank_f +#pragma weak pmpi_comm_rank_ = mpi_comm_rank_f +#pragma weak pmpi_comm_rank__ = mpi_comm_rank_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_COMM_RANK, + pmpi_comm_rank, + pmpi_comm_rank_, + pmpi_comm_rank__, + pmpi_comm_rank_f, + (MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *ierr), + (comm, rank, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_COMM_RANK = mpi_comm_rank_f +#pragma weak mpi_comm_rank = mpi_comm_rank_f +#pragma weak mpi_comm_rank_ = mpi_comm_rank_f +#pragma weak mpi_comm_rank__ = mpi_comm_rank_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_COMM_RANK, + mpi_comm_rank, + mpi_comm_rank_, + mpi_comm_rank__, + mpi_comm_rank_f, + (MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *ierr), + (comm, rank, ierr) ) +#endif + +void mpi_comm_rank_f(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/comm_remote_group_f.c b/src/mpi/f77/comm_remote_group_f.c new file mode 100644 index 0000000000..d078910231 --- /dev/null +++ b/src/mpi/f77/comm_remote_group_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_COMM_REMOTE_GROUP = mpi_comm_remote_group_f +#pragma weak pmpi_comm_remote_group = mpi_comm_remote_group_f +#pragma weak pmpi_comm_remote_group_ = mpi_comm_remote_group_f +#pragma weak pmpi_comm_remote_group__ = mpi_comm_remote_group_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_COMM_REMOTE_GROUP, + pmpi_comm_remote_group, + pmpi_comm_remote_group_, + pmpi_comm_remote_group__, + pmpi_comm_remote_group_f, + (MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr), + (comm, group, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_COMM_REMOTE_GROUP = mpi_comm_remote_group_f +#pragma weak mpi_comm_remote_group = mpi_comm_remote_group_f +#pragma weak mpi_comm_remote_group_ = mpi_comm_remote_group_f +#pragma weak mpi_comm_remote_group__ = mpi_comm_remote_group_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_COMM_REMOTE_GROUP, + mpi_comm_remote_group, + mpi_comm_remote_group_, + mpi_comm_remote_group__, + mpi_comm_remote_group_f, + (MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr), + (comm, group, ierr) ) +#endif + +void mpi_comm_remote_group_f(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/comm_remote_size_f.c b/src/mpi/f77/comm_remote_size_f.c new file mode 100644 index 0000000000..82a3723d04 --- /dev/null +++ b/src/mpi/f77/comm_remote_size_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_COMM_REMOTE_SIZE = mpi_comm_remote_size_f +#pragma weak pmpi_comm_remote_size = mpi_comm_remote_size_f +#pragma weak pmpi_comm_remote_size_ = mpi_comm_remote_size_f +#pragma weak pmpi_comm_remote_size__ = mpi_comm_remote_size_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_COMM_REMOTE_SIZE, + pmpi_comm_remote_size, + pmpi_comm_remote_size_, + pmpi_comm_remote_size__, + pmpi_comm_remote_size_f, + (MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr), + (comm, size, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_COMM_REMOTE_SIZE = mpi_comm_remote_size_f +#pragma weak mpi_comm_remote_size = mpi_comm_remote_size_f +#pragma weak mpi_comm_remote_size_ = mpi_comm_remote_size_f +#pragma weak mpi_comm_remote_size__ = mpi_comm_remote_size_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_COMM_REMOTE_SIZE, + mpi_comm_remote_size, + mpi_comm_remote_size_, + mpi_comm_remote_size__, + mpi_comm_remote_size_f, + (MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr), + (comm, size, ierr) ) +#endif + +void mpi_comm_remote_size_f(MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/comm_set_attr_f.c b/src/mpi/f77/comm_set_attr_f.c new file mode 100644 index 0000000000..da0a5bda70 --- /dev/null +++ b/src/mpi/f77/comm_set_attr_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_COMM_SET_ATTR = mpi_comm_set_attr_f +#pragma weak pmpi_comm_set_attr = mpi_comm_set_attr_f +#pragma weak pmpi_comm_set_attr_ = mpi_comm_set_attr_f +#pragma weak pmpi_comm_set_attr__ = mpi_comm_set_attr_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_COMM_SET_ATTR, + pmpi_comm_set_attr, + pmpi_comm_set_attr_, + pmpi_comm_set_attr__, + pmpi_comm_set_attr_f, + (MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *ierr), + (comm, comm_keyval, attribute_val, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_COMM_SET_ATTR = mpi_comm_set_attr_f +#pragma weak mpi_comm_set_attr = mpi_comm_set_attr_f +#pragma weak mpi_comm_set_attr_ = mpi_comm_set_attr_f +#pragma weak mpi_comm_set_attr__ = mpi_comm_set_attr_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_COMM_SET_ATTR, + mpi_comm_set_attr, + mpi_comm_set_attr_, + mpi_comm_set_attr__, + mpi_comm_set_attr_f, + (MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *ierr), + (comm, comm_keyval, attribute_val, ierr) ) +#endif + +void mpi_comm_set_attr_f(MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/comm_set_errhandler_f.c b/src/mpi/f77/comm_set_errhandler_f.c new file mode 100644 index 0000000000..328ce7632c --- /dev/null +++ b/src/mpi/f77/comm_set_errhandler_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_COMM_SET_ERRHANDLER = mpi_comm_set_errhandler_f +#pragma weak pmpi_comm_set_errhandler = mpi_comm_set_errhandler_f +#pragma weak pmpi_comm_set_errhandler_ = mpi_comm_set_errhandler_f +#pragma weak pmpi_comm_set_errhandler__ = mpi_comm_set_errhandler_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_COMM_SET_ERRHANDLER, + pmpi_comm_set_errhandler, + pmpi_comm_set_errhandler_, + pmpi_comm_set_errhandler__, + pmpi_comm_set_errhandler_f, + (MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr), + (comm, errhandler, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_COMM_SET_ERRHANDLER = mpi_comm_set_errhandler_f +#pragma weak mpi_comm_set_errhandler = mpi_comm_set_errhandler_f +#pragma weak mpi_comm_set_errhandler_ = mpi_comm_set_errhandler_f +#pragma weak mpi_comm_set_errhandler__ = mpi_comm_set_errhandler_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_COMM_SET_ERRHANDLER, + mpi_comm_set_errhandler, + mpi_comm_set_errhandler_, + mpi_comm_set_errhandler__, + mpi_comm_set_errhandler_f, + (MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr), + (comm, errhandler, ierr) ) +#endif + +void mpi_comm_set_errhandler_f(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/comm_set_name_f.c b/src/mpi/f77/comm_set_name_f.c index e7984bdb41..8a3e323167 100644 --- a/src/mpi/f77/comm_set_name_f.c +++ b/src/mpi/f77/comm_set_name_f.c @@ -4,6 +4,8 @@ #include "lam_config.h" +#include + #include "mpi.h" #include "mpi/f77/bindings.h" @@ -14,12 +16,12 @@ #pragma weak pmpi_comm_set_name__ = mpi_comm_set_name_f #elif LAM_PROFILE_LAYER LAM_GENERATE_F77_BINDINGS (PMPI_COMM_SET_NAME, - pmpi_comm_set_name, - pmpi_comm_set_name_, - pmpi_comm_set_name__, - pmpi_comm_set_name_f, - (MPI_Fint *comm, char *name, MPI_Fint *ierror, MPI_Fint charlen), - (comm, name, ierror, charlen)) + pmpi_comm_set_name, + pmpi_comm_set_name_, + pmpi_comm_set_name__, + pmpi_comm_set_name_f, + (MPI_Fint *comm, char *comm_name, MPI_Fint *ierr), + (comm, comm_name, ierr) ) #endif #if LAM_HAVE_WEAK_SYMBOLS @@ -29,23 +31,17 @@ LAM_GENERATE_F77_BINDINGS (PMPI_COMM_SET_NAME, #pragma weak mpi_comm_set_name__ = mpi_comm_set_name_f #endif -#if ! LAM_PROFILE_LAYER && ! LAM_HAVE_WEAK_SYMBOLS +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER LAM_GENERATE_F77_BINDINGS (MPI_COMM_SET_NAME, - mpi_comm_set_name, - mpi_comm_set_name_, - mpi_comm_set_name__, - mpi_comm_set_name_f, - (MPI_Fint *comm, char *name, MPI_Fint *ierror, MPI_Fint charlen), - (comm, name, ierror, charlen)) + mpi_comm_set_name, + mpi_comm_set_name_, + mpi_comm_set_name__, + mpi_comm_set_name_f, + (MPI_Fint *comm, char *comm_name, MPI_Fint *ierr), + (comm, comm_name, ierr) ) #endif - -void -mpi_comm_set_name_f(MPI_Fint *comm, char *name, MPI_Fint *ierror, MPI_Fint charlen) +void mpi_comm_set_name_f(MPI_Fint *comm, char *comm_name, MPI_Fint *ierr) { - /* JMS: Translate comm from int to MPI_Comm */ - - MPI_Comm c_comm = MPI_COMM_WORLD; - *ierror = MPI_Comm_set_name(c_comm, name); } diff --git a/src/mpi/f77/comm_size_f.c b/src/mpi/f77/comm_size_f.c new file mode 100644 index 0000000000..02f3d9a210 --- /dev/null +++ b/src/mpi/f77/comm_size_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_COMM_SIZE = mpi_comm_size_f +#pragma weak pmpi_comm_size = mpi_comm_size_f +#pragma weak pmpi_comm_size_ = mpi_comm_size_f +#pragma weak pmpi_comm_size__ = mpi_comm_size_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_COMM_SIZE, + pmpi_comm_size, + pmpi_comm_size_, + pmpi_comm_size__, + pmpi_comm_size_f, + (MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr), + (comm, size, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_COMM_SIZE = mpi_comm_size_f +#pragma weak mpi_comm_size = mpi_comm_size_f +#pragma weak mpi_comm_size_ = mpi_comm_size_f +#pragma weak mpi_comm_size__ = mpi_comm_size_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_COMM_SIZE, + mpi_comm_size, + mpi_comm_size_, + mpi_comm_size__, + mpi_comm_size_f, + (MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr), + (comm, size, ierr) ) +#endif + +void mpi_comm_size_f(MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/comm_spawn_f.c b/src/mpi/f77/comm_spawn_f.c new file mode 100644 index 0000000000..aeb2ef12a5 --- /dev/null +++ b/src/mpi/f77/comm_spawn_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_COMM_SPAWN = mpi_comm_spawn_f +#pragma weak pmpi_comm_spawn = mpi_comm_spawn_f +#pragma weak pmpi_comm_spawn_ = mpi_comm_spawn_f +#pragma weak pmpi_comm_spawn__ = mpi_comm_spawn_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_COMM_SPAWN, + pmpi_comm_spawn, + pmpi_comm_spawn_, + pmpi_comm_spawn__, + pmpi_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), + (command, argv, maxprocs, info, root, comm, intercomm, array_of_errcodes, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_COMM_SPAWN = mpi_comm_spawn_f +#pragma weak mpi_comm_spawn = mpi_comm_spawn_f +#pragma weak mpi_comm_spawn_ = mpi_comm_spawn_f +#pragma weak mpi_comm_spawn__ = mpi_comm_spawn_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_COMM_SPAWN, + mpi_comm_spawn, + mpi_comm_spawn_, + mpi_comm_spawn__, + 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), + (command, argv, maxprocs, info, root, comm, intercomm, array_of_errcodes, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/comm_spawn_multiple_f.c b/src/mpi/f77/comm_spawn_multiple_f.c new file mode 100644 index 0000000000..eb7027fb46 --- /dev/null +++ b/src/mpi/f77/comm_spawn_multiple_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_COMM_SPAWN_MULTIPLE = mpi_comm_spawn_multiple_f +#pragma weak pmpi_comm_spawn_multiple = mpi_comm_spawn_multiple_f +#pragma weak pmpi_comm_spawn_multiple_ = mpi_comm_spawn_multiple_f +#pragma weak pmpi_comm_spawn_multiple__ = mpi_comm_spawn_multiple_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_COMM_SPAWN_MULTIPLE, + pmpi_comm_spawn_multiple, + pmpi_comm_spawn_multiple_, + pmpi_comm_spawn_multiple__, + pmpi_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), + (count, array_of_commands, array_of_argv, array_of_maxprocs, array_of_info, root, comm, intercomm, array_of_errcodes, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_COMM_SPAWN_MULTIPLE = mpi_comm_spawn_multiple_f +#pragma weak mpi_comm_spawn_multiple = mpi_comm_spawn_multiple_f +#pragma weak mpi_comm_spawn_multiple_ = mpi_comm_spawn_multiple_f +#pragma weak mpi_comm_spawn_multiple__ = mpi_comm_spawn_multiple_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_COMM_SPAWN_MULTIPLE, + mpi_comm_spawn_multiple, + mpi_comm_spawn_multiple_, + mpi_comm_spawn_multiple__, + 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), + (count, array_of_commands, array_of_argv, array_of_maxprocs, array_of_info, root, comm, intercomm, array_of_errcodes, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/comm_split_f.c b/src/mpi/f77/comm_split_f.c new file mode 100644 index 0000000000..5dbac41947 --- /dev/null +++ b/src/mpi/f77/comm_split_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_COMM_SPLIT = mpi_comm_split_f +#pragma weak pmpi_comm_split = mpi_comm_split_f +#pragma weak pmpi_comm_split_ = mpi_comm_split_f +#pragma weak pmpi_comm_split__ = mpi_comm_split_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_COMM_SPLIT, + pmpi_comm_split, + pmpi_comm_split_, + pmpi_comm_split__, + pmpi_comm_split_f, + (MPI_Fint *comm, MPI_Fint *color, MPI_Fint *key, MPI_Fint *newcomm, MPI_Fint *ierr), + (comm, color, key, newcomm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_COMM_SPLIT = mpi_comm_split_f +#pragma weak mpi_comm_split = mpi_comm_split_f +#pragma weak mpi_comm_split_ = mpi_comm_split_f +#pragma weak mpi_comm_split__ = mpi_comm_split_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_COMM_SPLIT, + mpi_comm_split, + mpi_comm_split_, + mpi_comm_split__, + mpi_comm_split_f, + (MPI_Fint *comm, MPI_Fint *color, MPI_Fint *key, MPI_Fint *newcomm, MPI_Fint *ierr), + (comm, color, key, newcomm, ierr) ) +#endif + +void mpi_comm_split_f(MPI_Fint *comm, MPI_Fint *color, MPI_Fint *key, MPI_Fint *newcomm, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/comm_test_inter_f.c b/src/mpi/f77/comm_test_inter_f.c new file mode 100644 index 0000000000..38212587d9 --- /dev/null +++ b/src/mpi/f77/comm_test_inter_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_COMM_TEST_INTER = mpi_comm_test_inter_f +#pragma weak pmpi_comm_test_inter = mpi_comm_test_inter_f +#pragma weak pmpi_comm_test_inter_ = mpi_comm_test_inter_f +#pragma weak pmpi_comm_test_inter__ = mpi_comm_test_inter_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_COMM_TEST_INTER, + pmpi_comm_test_inter, + pmpi_comm_test_inter_, + pmpi_comm_test_inter__, + pmpi_comm_test_inter_f, + (MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *ierr), + (comm, flag, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_COMM_TEST_INTER = mpi_comm_test_inter_f +#pragma weak mpi_comm_test_inter = mpi_comm_test_inter_f +#pragma weak mpi_comm_test_inter_ = mpi_comm_test_inter_f +#pragma weak mpi_comm_test_inter__ = mpi_comm_test_inter_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_COMM_TEST_INTER, + mpi_comm_test_inter, + mpi_comm_test_inter_, + mpi_comm_test_inter__, + mpi_comm_test_inter_f, + (MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *ierr), + (comm, flag, ierr) ) +#endif + +void mpi_comm_test_inter_f(MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/dims_create_f.c b/src/mpi/f77/dims_create_f.c new file mode 100644 index 0000000000..51be413cee --- /dev/null +++ b/src/mpi/f77/dims_create_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_DIMS_CREATE = mpi_dims_create_f +#pragma weak pmpi_dims_create = mpi_dims_create_f +#pragma weak pmpi_dims_create_ = mpi_dims_create_f +#pragma weak pmpi_dims_create__ = mpi_dims_create_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_DIMS_CREATE, + pmpi_dims_create, + pmpi_dims_create_, + pmpi_dims_create__, + pmpi_dims_create_f, + (MPI_Fint *nnodes, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *ierr), + (nnodes, ndims, dims, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_DIMS_CREATE = mpi_dims_create_f +#pragma weak mpi_dims_create = mpi_dims_create_f +#pragma weak mpi_dims_create_ = mpi_dims_create_f +#pragma weak mpi_dims_create__ = mpi_dims_create_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_DIMS_CREATE, + mpi_dims_create, + mpi_dims_create_, + mpi_dims_create__, + mpi_dims_create_f, + (MPI_Fint *nnodes, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *ierr), + (nnodes, ndims, dims, ierr) ) +#endif + +void mpi_dims_create_f(MPI_Fint *nnodes, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/errhandler_create_f.c b/src/mpi/f77/errhandler_create_f.c new file mode 100644 index 0000000000..624e520032 --- /dev/null +++ b/src/mpi/f77/errhandler_create_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_ERRHANDLER_CREATE = mpi_errhandler_create_f +#pragma weak pmpi_errhandler_create = mpi_errhandler_create_f +#pragma weak pmpi_errhandler_create_ = mpi_errhandler_create_f +#pragma weak pmpi_errhandler_create__ = mpi_errhandler_create_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_ERRHANDLER_CREATE, + pmpi_errhandler_create, + pmpi_errhandler_create_, + pmpi_errhandler_create__, + pmpi_errhandler_create_f, + (MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr), + (function, errhandler, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_ERRHANDLER_CREATE = mpi_errhandler_create_f +#pragma weak mpi_errhandler_create = mpi_errhandler_create_f +#pragma weak mpi_errhandler_create_ = mpi_errhandler_create_f +#pragma weak mpi_errhandler_create__ = mpi_errhandler_create_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_ERRHANDLER_CREATE, + mpi_errhandler_create, + mpi_errhandler_create_, + mpi_errhandler_create__, + mpi_errhandler_create_f, + (MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr), + (function, errhandler, ierr) ) +#endif + +void mpi_errhandler_create_f(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/errhandler_free_f.c b/src/mpi/f77/errhandler_free_f.c new file mode 100644 index 0000000000..0465eb490d --- /dev/null +++ b/src/mpi/f77/errhandler_free_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_ERRHANDLER_FREE = mpi_errhandler_free_f +#pragma weak pmpi_errhandler_free = mpi_errhandler_free_f +#pragma weak pmpi_errhandler_free_ = mpi_errhandler_free_f +#pragma weak pmpi_errhandler_free__ = mpi_errhandler_free_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_ERRHANDLER_FREE, + pmpi_errhandler_free, + pmpi_errhandler_free_, + pmpi_errhandler_free__, + pmpi_errhandler_free_f, + (MPI_Fint *errhandler, MPI_Fint *ierr), + (errhandler, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_ERRHANDLER_FREE = mpi_errhandler_free_f +#pragma weak mpi_errhandler_free = mpi_errhandler_free_f +#pragma weak mpi_errhandler_free_ = mpi_errhandler_free_f +#pragma weak mpi_errhandler_free__ = mpi_errhandler_free_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_ERRHANDLER_FREE, + mpi_errhandler_free, + mpi_errhandler_free_, + mpi_errhandler_free__, + mpi_errhandler_free_f, + (MPI_Fint *errhandler, MPI_Fint *ierr), + (errhandler, ierr) ) +#endif + +void mpi_errhandler_free_f(MPI_Fint *errhandler, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/errhandler_get_f.c b/src/mpi/f77/errhandler_get_f.c new file mode 100644 index 0000000000..724be9b683 --- /dev/null +++ b/src/mpi/f77/errhandler_get_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_ERRHANDLER_GET = mpi_errhandler_get_f +#pragma weak pmpi_errhandler_get = mpi_errhandler_get_f +#pragma weak pmpi_errhandler_get_ = mpi_errhandler_get_f +#pragma weak pmpi_errhandler_get__ = mpi_errhandler_get_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_ERRHANDLER_GET, + pmpi_errhandler_get, + pmpi_errhandler_get_, + pmpi_errhandler_get__, + pmpi_errhandler_get_f, + (MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr), + (comm, errhandler, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_ERRHANDLER_GET = mpi_errhandler_get_f +#pragma weak mpi_errhandler_get = mpi_errhandler_get_f +#pragma weak mpi_errhandler_get_ = mpi_errhandler_get_f +#pragma weak mpi_errhandler_get__ = mpi_errhandler_get_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_ERRHANDLER_GET, + mpi_errhandler_get, + mpi_errhandler_get_, + mpi_errhandler_get__, + mpi_errhandler_get_f, + (MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr), + (comm, errhandler, ierr) ) +#endif + +void mpi_errhandler_get_f(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/errhandler_set_f.c b/src/mpi/f77/errhandler_set_f.c new file mode 100644 index 0000000000..5facf4eeb1 --- /dev/null +++ b/src/mpi/f77/errhandler_set_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_ERRHANDLER_SET = mpi_errhandler_set_f +#pragma weak pmpi_errhandler_set = mpi_errhandler_set_f +#pragma weak pmpi_errhandler_set_ = mpi_errhandler_set_f +#pragma weak pmpi_errhandler_set__ = mpi_errhandler_set_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_ERRHANDLER_SET, + pmpi_errhandler_set, + pmpi_errhandler_set_, + pmpi_errhandler_set__, + pmpi_errhandler_set_f, + (MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr), + (comm, errhandler, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_ERRHANDLER_SET = mpi_errhandler_set_f +#pragma weak mpi_errhandler_set = mpi_errhandler_set_f +#pragma weak mpi_errhandler_set_ = mpi_errhandler_set_f +#pragma weak mpi_errhandler_set__ = mpi_errhandler_set_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_ERRHANDLER_SET, + mpi_errhandler_set, + mpi_errhandler_set_, + mpi_errhandler_set__, + mpi_errhandler_set_f, + (MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr), + (comm, errhandler, ierr) ) +#endif + +void mpi_errhandler_set_f(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/error_class_f.c b/src/mpi/f77/error_class_f.c new file mode 100644 index 0000000000..9e80f5e06e --- /dev/null +++ b/src/mpi/f77/error_class_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_ERROR_CLASS = mpi_error_class_f +#pragma weak pmpi_error_class = mpi_error_class_f +#pragma weak pmpi_error_class_ = mpi_error_class_f +#pragma weak pmpi_error_class__ = mpi_error_class_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_ERROR_CLASS, + pmpi_error_class, + pmpi_error_class_, + pmpi_error_class__, + pmpi_error_class_f, + (MPI_Fint *errorcode, MPI_Fint *errorclass, MPI_Fint *ierr), + (errorcode, errorclass, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_ERROR_CLASS = mpi_error_class_f +#pragma weak mpi_error_class = mpi_error_class_f +#pragma weak mpi_error_class_ = mpi_error_class_f +#pragma weak mpi_error_class__ = mpi_error_class_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_ERROR_CLASS, + mpi_error_class, + mpi_error_class_, + mpi_error_class__, + mpi_error_class_f, + (MPI_Fint *errorcode, MPI_Fint *errorclass, MPI_Fint *ierr), + (errorcode, errorclass, ierr) ) +#endif + +void mpi_error_class_f(MPI_Fint *errorcode, MPI_Fint *errorclass, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/error_string_f.c b/src/mpi/f77/error_string_f.c new file mode 100644 index 0000000000..9b95d524ed --- /dev/null +++ b/src/mpi/f77/error_string_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_ERROR_STRING = mpi_error_string_f +#pragma weak pmpi_error_string = mpi_error_string_f +#pragma weak pmpi_error_string_ = mpi_error_string_f +#pragma weak pmpi_error_string__ = mpi_error_string_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_ERROR_STRING, + pmpi_error_string, + pmpi_error_string_, + pmpi_error_string__, + pmpi_error_string_f, + (MPI_Fint *errorcode, char *string, MPI_Fint *resultlen, MPI_Fint *ierr), + (errorcode, string, resultlen, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_ERROR_STRING = mpi_error_string_f +#pragma weak mpi_error_string = mpi_error_string_f +#pragma weak mpi_error_string_ = mpi_error_string_f +#pragma weak mpi_error_string__ = mpi_error_string_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_ERROR_STRING, + mpi_error_string, + mpi_error_string_, + mpi_error_string__, + mpi_error_string_f, + (MPI_Fint *errorcode, char *string, MPI_Fint *resultlen, MPI_Fint *ierr), + (errorcode, string, resultlen, ierr) ) +#endif + +void mpi_error_string_f(MPI_Fint *errorcode, char *string, MPI_Fint *resultlen, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/exscan_f.c b/src/mpi/f77/exscan_f.c new file mode 100644 index 0000000000..ef8f34e5ad --- /dev/null +++ b/src/mpi/f77/exscan_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_EXSCAN = mpi_exscan_f +#pragma weak pmpi_exscan = mpi_exscan_f +#pragma weak pmpi_exscan_ = mpi_exscan_f +#pragma weak pmpi_exscan__ = mpi_exscan_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_EXSCAN, + pmpi_exscan, + pmpi_exscan_, + pmpi_exscan__, + pmpi_exscan_f, + (char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr), + (sendbuf, recvbuf, count, datatype, op, comm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_EXSCAN = mpi_exscan_f +#pragma weak mpi_exscan = mpi_exscan_f +#pragma weak mpi_exscan_ = mpi_exscan_f +#pragma weak mpi_exscan__ = mpi_exscan_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_EXSCAN, + mpi_exscan, + mpi_exscan_, + mpi_exscan__, + mpi_exscan_f, + (char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr), + (sendbuf, recvbuf, count, datatype, op, comm, ierr) ) +#endif + +void mpi_exscan_f(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_call_errhandler_f.c b/src/mpi/f77/file_call_errhandler_f.c new file mode 100644 index 0000000000..598d280a12 --- /dev/null +++ b/src/mpi/f77/file_call_errhandler_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_CALL_ERRHANDLER = mpi_file_call_errhandler_f +#pragma weak pmpi_file_call_errhandler = mpi_file_call_errhandler_f +#pragma weak pmpi_file_call_errhandler_ = mpi_file_call_errhandler_f +#pragma weak pmpi_file_call_errhandler__ = mpi_file_call_errhandler_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_CALL_ERRHANDLER, + pmpi_file_call_errhandler, + pmpi_file_call_errhandler_, + pmpi_file_call_errhandler__, + pmpi_file_call_errhandler_f, + (MPI_Fint *fh, MPI_Fint *errorcode, MPI_Fint *ierr), + (fh, errorcode, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_CALL_ERRHANDLER = mpi_file_call_errhandler_f +#pragma weak mpi_file_call_errhandler = mpi_file_call_errhandler_f +#pragma weak mpi_file_call_errhandler_ = mpi_file_call_errhandler_f +#pragma weak mpi_file_call_errhandler__ = mpi_file_call_errhandler_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_CALL_ERRHANDLER, + mpi_file_call_errhandler, + mpi_file_call_errhandler_, + mpi_file_call_errhandler__, + mpi_file_call_errhandler_f, + (MPI_Fint *fh, MPI_Fint *errorcode, MPI_Fint *ierr), + (fh, errorcode, ierr) ) +#endif + +void mpi_file_call_errhandler_f(MPI_Fint *fh, MPI_Fint *errorcode, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_close_f.c b/src/mpi/f77/file_close_f.c new file mode 100644 index 0000000000..3ae6593b4f --- /dev/null +++ b/src/mpi/f77/file_close_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_CLOSE = mpi_file_close_f +#pragma weak pmpi_file_close = mpi_file_close_f +#pragma weak pmpi_file_close_ = mpi_file_close_f +#pragma weak pmpi_file_close__ = mpi_file_close_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_CLOSE, + pmpi_file_close, + pmpi_file_close_, + pmpi_file_close__, + pmpi_file_close_f, + (MPI_Fint *fh, MPI_Fint *ierr), + (fh, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_CLOSE = mpi_file_close_f +#pragma weak mpi_file_close = mpi_file_close_f +#pragma weak mpi_file_close_ = mpi_file_close_f +#pragma weak mpi_file_close__ = mpi_file_close_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_CLOSE, + mpi_file_close, + mpi_file_close_, + mpi_file_close__, + mpi_file_close_f, + (MPI_Fint *fh, MPI_Fint *ierr), + (fh, ierr) ) +#endif + +void mpi_file_close_f(MPI_Fint *fh, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_create_errhandler_f.c b/src/mpi/f77/file_create_errhandler_f.c new file mode 100644 index 0000000000..c04092f03f --- /dev/null +++ b/src/mpi/f77/file_create_errhandler_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_CREATE_ERRHANDLER = mpi_file_create_errhandler_f +#pragma weak pmpi_file_create_errhandler = mpi_file_create_errhandler_f +#pragma weak pmpi_file_create_errhandler_ = mpi_file_create_errhandler_f +#pragma weak pmpi_file_create_errhandler__ = mpi_file_create_errhandler_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_CREATE_ERRHANDLER, + pmpi_file_create_errhandler, + pmpi_file_create_errhandler_, + pmpi_file_create_errhandler__, + pmpi_file_create_errhandler_f, + (MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr), + (function, errhandler, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_CREATE_ERRHANDLER = mpi_file_create_errhandler_f +#pragma weak mpi_file_create_errhandler = mpi_file_create_errhandler_f +#pragma weak mpi_file_create_errhandler_ = mpi_file_create_errhandler_f +#pragma weak mpi_file_create_errhandler__ = mpi_file_create_errhandler_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_CREATE_ERRHANDLER, + mpi_file_create_errhandler, + mpi_file_create_errhandler_, + mpi_file_create_errhandler__, + mpi_file_create_errhandler_f, + (MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr), + (function, errhandler, ierr) ) +#endif + +void mpi_file_create_errhandler_f(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_delete_f.c b/src/mpi/f77/file_delete_f.c new file mode 100644 index 0000000000..5621d4dcbc --- /dev/null +++ b/src/mpi/f77/file_delete_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_DELETE = mpi_file_delete_f +#pragma weak pmpi_file_delete = mpi_file_delete_f +#pragma weak pmpi_file_delete_ = mpi_file_delete_f +#pragma weak pmpi_file_delete__ = mpi_file_delete_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_DELETE, + pmpi_file_delete, + pmpi_file_delete_, + pmpi_file_delete__, + pmpi_file_delete_f, + (char *filename, MPI_Fint *info, MPI_Fint *ierr), + (filename, info, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_DELETE = mpi_file_delete_f +#pragma weak mpi_file_delete = mpi_file_delete_f +#pragma weak mpi_file_delete_ = mpi_file_delete_f +#pragma weak mpi_file_delete__ = mpi_file_delete_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_DELETE, + mpi_file_delete, + mpi_file_delete_, + mpi_file_delete__, + mpi_file_delete_f, + (char *filename, MPI_Fint *info, MPI_Fint *ierr), + (filename, info, ierr) ) +#endif + +void mpi_file_delete_f(char *filename, MPI_Fint *info, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_get_amode_f.c b/src/mpi/f77/file_get_amode_f.c new file mode 100644 index 0000000000..45dd6c1b60 --- /dev/null +++ b/src/mpi/f77/file_get_amode_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_GET_AMODE = mpi_file_get_amode_f +#pragma weak pmpi_file_get_amode = mpi_file_get_amode_f +#pragma weak pmpi_file_get_amode_ = mpi_file_get_amode_f +#pragma weak pmpi_file_get_amode__ = mpi_file_get_amode_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_GET_AMODE, + pmpi_file_get_amode, + pmpi_file_get_amode_, + pmpi_file_get_amode__, + pmpi_file_get_amode_f, + (MPI_Fint *fh, MPI_Fint *amode, MPI_Fint *ierr), + (fh, amode, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_GET_AMODE = mpi_file_get_amode_f +#pragma weak mpi_file_get_amode = mpi_file_get_amode_f +#pragma weak mpi_file_get_amode_ = mpi_file_get_amode_f +#pragma weak mpi_file_get_amode__ = mpi_file_get_amode_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_GET_AMODE, + mpi_file_get_amode, + mpi_file_get_amode_, + mpi_file_get_amode__, + mpi_file_get_amode_f, + (MPI_Fint *fh, MPI_Fint *amode, MPI_Fint *ierr), + (fh, amode, ierr) ) +#endif + +void mpi_file_get_amode_f(MPI_Fint *fh, MPI_Fint *amode, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_get_atomicity_f.c b/src/mpi/f77/file_get_atomicity_f.c new file mode 100644 index 0000000000..7874facf5e --- /dev/null +++ b/src/mpi/f77/file_get_atomicity_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_GET_ATOMICITY = mpi_file_get_atomicity_f +#pragma weak pmpi_file_get_atomicity = mpi_file_get_atomicity_f +#pragma weak pmpi_file_get_atomicity_ = mpi_file_get_atomicity_f +#pragma weak pmpi_file_get_atomicity__ = mpi_file_get_atomicity_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_GET_ATOMICITY, + pmpi_file_get_atomicity, + pmpi_file_get_atomicity_, + pmpi_file_get_atomicity__, + pmpi_file_get_atomicity_f, + (MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr), + (fh, flag, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_GET_ATOMICITY = mpi_file_get_atomicity_f +#pragma weak mpi_file_get_atomicity = mpi_file_get_atomicity_f +#pragma weak mpi_file_get_atomicity_ = mpi_file_get_atomicity_f +#pragma weak mpi_file_get_atomicity__ = mpi_file_get_atomicity_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_GET_ATOMICITY, + mpi_file_get_atomicity, + mpi_file_get_atomicity_, + mpi_file_get_atomicity__, + mpi_file_get_atomicity_f, + (MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr), + (fh, flag, ierr) ) +#endif + +void mpi_file_get_atomicity_f(MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_get_byte_offset_f.c b/src/mpi/f77/file_get_byte_offset_f.c new file mode 100644 index 0000000000..61796923ca --- /dev/null +++ b/src/mpi/f77/file_get_byte_offset_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_GET_BYTE_OFFSET = mpi_file_get_byte_offset_f +#pragma weak pmpi_file_get_byte_offset = mpi_file_get_byte_offset_f +#pragma weak pmpi_file_get_byte_offset_ = mpi_file_get_byte_offset_f +#pragma weak pmpi_file_get_byte_offset__ = mpi_file_get_byte_offset_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_GET_BYTE_OFFSET, + pmpi_file_get_byte_offset, + pmpi_file_get_byte_offset_, + pmpi_file_get_byte_offset__, + pmpi_file_get_byte_offset_f, + (MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *disp, MPI_Fint *ierr), + (fh, offset, disp, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_GET_BYTE_OFFSET = mpi_file_get_byte_offset_f +#pragma weak mpi_file_get_byte_offset = mpi_file_get_byte_offset_f +#pragma weak mpi_file_get_byte_offset_ = mpi_file_get_byte_offset_f +#pragma weak mpi_file_get_byte_offset__ = mpi_file_get_byte_offset_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_GET_BYTE_OFFSET, + mpi_file_get_byte_offset, + mpi_file_get_byte_offset_, + mpi_file_get_byte_offset__, + mpi_file_get_byte_offset_f, + (MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *disp, MPI_Fint *ierr), + (fh, offset, disp, ierr) ) +#endif + +void mpi_file_get_byte_offset_f(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *disp, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_get_errhandler_f.c b/src/mpi/f77/file_get_errhandler_f.c new file mode 100644 index 0000000000..47190d73aa --- /dev/null +++ b/src/mpi/f77/file_get_errhandler_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_GET_ERRHANDLER = mpi_file_get_errhandler_f +#pragma weak pmpi_file_get_errhandler = mpi_file_get_errhandler_f +#pragma weak pmpi_file_get_errhandler_ = mpi_file_get_errhandler_f +#pragma weak pmpi_file_get_errhandler__ = mpi_file_get_errhandler_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_GET_ERRHANDLER, + pmpi_file_get_errhandler, + pmpi_file_get_errhandler_, + pmpi_file_get_errhandler__, + pmpi_file_get_errhandler_f, + (MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr), + (file, errhandler, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_GET_ERRHANDLER = mpi_file_get_errhandler_f +#pragma weak mpi_file_get_errhandler = mpi_file_get_errhandler_f +#pragma weak mpi_file_get_errhandler_ = mpi_file_get_errhandler_f +#pragma weak mpi_file_get_errhandler__ = mpi_file_get_errhandler_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_GET_ERRHANDLER, + mpi_file_get_errhandler, + mpi_file_get_errhandler_, + mpi_file_get_errhandler__, + mpi_file_get_errhandler_f, + (MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr), + (file, errhandler, ierr) ) +#endif + +void mpi_file_get_errhandler_f(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_get_group_f.c b/src/mpi/f77/file_get_group_f.c new file mode 100644 index 0000000000..a2e0f18546 --- /dev/null +++ b/src/mpi/f77/file_get_group_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_GET_GROUP = mpi_file_get_group_f +#pragma weak pmpi_file_get_group = mpi_file_get_group_f +#pragma weak pmpi_file_get_group_ = mpi_file_get_group_f +#pragma weak pmpi_file_get_group__ = mpi_file_get_group_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_GET_GROUP, + pmpi_file_get_group, + pmpi_file_get_group_, + pmpi_file_get_group__, + pmpi_file_get_group_f, + (MPI_Fint *fh, MPI_Fint *group, MPI_Fint *ierr), + (fh, group, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_GET_GROUP = mpi_file_get_group_f +#pragma weak mpi_file_get_group = mpi_file_get_group_f +#pragma weak mpi_file_get_group_ = mpi_file_get_group_f +#pragma weak mpi_file_get_group__ = mpi_file_get_group_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_GET_GROUP, + mpi_file_get_group, + mpi_file_get_group_, + mpi_file_get_group__, + mpi_file_get_group_f, + (MPI_Fint *fh, MPI_Fint *group, MPI_Fint *ierr), + (fh, group, ierr) ) +#endif + +void mpi_file_get_group_f(MPI_Fint *fh, MPI_Fint *group, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_get_info_f.c b/src/mpi/f77/file_get_info_f.c new file mode 100644 index 0000000000..7e6375ead7 --- /dev/null +++ b/src/mpi/f77/file_get_info_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_GET_INFO = mpi_file_get_info_f +#pragma weak pmpi_file_get_info = mpi_file_get_info_f +#pragma weak pmpi_file_get_info_ = mpi_file_get_info_f +#pragma weak pmpi_file_get_info__ = mpi_file_get_info_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_GET_INFO, + pmpi_file_get_info, + pmpi_file_get_info_, + pmpi_file_get_info__, + pmpi_file_get_info_f, + (MPI_Fint *fh, MPI_Fint *info_used, MPI_Fint *ierr), + (fh, info_used, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_GET_INFO = mpi_file_get_info_f +#pragma weak mpi_file_get_info = mpi_file_get_info_f +#pragma weak mpi_file_get_info_ = mpi_file_get_info_f +#pragma weak mpi_file_get_info__ = mpi_file_get_info_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_GET_INFO, + mpi_file_get_info, + mpi_file_get_info_, + mpi_file_get_info__, + mpi_file_get_info_f, + (MPI_Fint *fh, MPI_Fint *info_used, MPI_Fint *ierr), + (fh, info_used, ierr) ) +#endif + +void mpi_file_get_info_f(MPI_Fint *fh, MPI_Fint *info_used, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_get_position_f.c b/src/mpi/f77/file_get_position_f.c new file mode 100644 index 0000000000..ec988b1b08 --- /dev/null +++ b/src/mpi/f77/file_get_position_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_GET_POSITION = mpi_file_get_position_f +#pragma weak pmpi_file_get_position = mpi_file_get_position_f +#pragma weak pmpi_file_get_position_ = mpi_file_get_position_f +#pragma weak pmpi_file_get_position__ = mpi_file_get_position_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_GET_POSITION, + pmpi_file_get_position, + pmpi_file_get_position_, + pmpi_file_get_position__, + pmpi_file_get_position_f, + (MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr), + (fh, offset, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_GET_POSITION = mpi_file_get_position_f +#pragma weak mpi_file_get_position = mpi_file_get_position_f +#pragma weak mpi_file_get_position_ = mpi_file_get_position_f +#pragma weak mpi_file_get_position__ = mpi_file_get_position_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_GET_POSITION, + mpi_file_get_position, + mpi_file_get_position_, + mpi_file_get_position__, + mpi_file_get_position_f, + (MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr), + (fh, offset, ierr) ) +#endif + +void mpi_file_get_position_f(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_get_position_shared_f.c b/src/mpi/f77/file_get_position_shared_f.c new file mode 100644 index 0000000000..d4c2b8e9cb --- /dev/null +++ b/src/mpi/f77/file_get_position_shared_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_GET_POSITION_SHARED = mpi_file_get_position_shared_f +#pragma weak pmpi_file_get_position_shared = mpi_file_get_position_shared_f +#pragma weak pmpi_file_get_position_shared_ = mpi_file_get_position_shared_f +#pragma weak pmpi_file_get_position_shared__ = mpi_file_get_position_shared_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_GET_POSITION_SHARED, + pmpi_file_get_position_shared, + pmpi_file_get_position_shared_, + pmpi_file_get_position_shared__, + pmpi_file_get_position_shared_f, + (MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr), + (fh, offset, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_GET_POSITION_SHARED = mpi_file_get_position_shared_f +#pragma weak mpi_file_get_position_shared = mpi_file_get_position_shared_f +#pragma weak mpi_file_get_position_shared_ = mpi_file_get_position_shared_f +#pragma weak mpi_file_get_position_shared__ = mpi_file_get_position_shared_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_GET_POSITION_SHARED, + mpi_file_get_position_shared, + mpi_file_get_position_shared_, + mpi_file_get_position_shared__, + mpi_file_get_position_shared_f, + (MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr), + (fh, offset, ierr) ) +#endif + +void mpi_file_get_position_shared_f(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_get_size_f.c b/src/mpi/f77/file_get_size_f.c new file mode 100644 index 0000000000..e8842ec545 --- /dev/null +++ b/src/mpi/f77/file_get_size_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_GET_SIZE = mpi_file_get_size_f +#pragma weak pmpi_file_get_size = mpi_file_get_size_f +#pragma weak pmpi_file_get_size_ = mpi_file_get_size_f +#pragma weak pmpi_file_get_size__ = mpi_file_get_size_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_GET_SIZE, + pmpi_file_get_size, + pmpi_file_get_size_, + pmpi_file_get_size__, + pmpi_file_get_size_f, + (MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr), + (fh, size, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_GET_SIZE = mpi_file_get_size_f +#pragma weak mpi_file_get_size = mpi_file_get_size_f +#pragma weak mpi_file_get_size_ = mpi_file_get_size_f +#pragma weak mpi_file_get_size__ = mpi_file_get_size_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_GET_SIZE, + mpi_file_get_size, + mpi_file_get_size_, + mpi_file_get_size__, + mpi_file_get_size_f, + (MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr), + (fh, size, ierr) ) +#endif + +void mpi_file_get_size_f(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_get_type_extent_f.c b/src/mpi/f77/file_get_type_extent_f.c new file mode 100644 index 0000000000..14c951e543 --- /dev/null +++ b/src/mpi/f77/file_get_type_extent_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_GET_TYPE_EXTENT = mpi_file_get_type_extent_f +#pragma weak pmpi_file_get_type_extent = mpi_file_get_type_extent_f +#pragma weak pmpi_file_get_type_extent_ = mpi_file_get_type_extent_f +#pragma weak pmpi_file_get_type_extent__ = mpi_file_get_type_extent_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_GET_TYPE_EXTENT, + pmpi_file_get_type_extent, + pmpi_file_get_type_extent_, + pmpi_file_get_type_extent__, + pmpi_file_get_type_extent_f, + (MPI_Fint *fh, MPI_Fint *datatype, MPI_Fint *extent, MPI_Fint *ierr), + (fh, datatype, extent, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_GET_TYPE_EXTENT = mpi_file_get_type_extent_f +#pragma weak mpi_file_get_type_extent = mpi_file_get_type_extent_f +#pragma weak mpi_file_get_type_extent_ = mpi_file_get_type_extent_f +#pragma weak mpi_file_get_type_extent__ = mpi_file_get_type_extent_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_GET_TYPE_EXTENT, + mpi_file_get_type_extent, + mpi_file_get_type_extent_, + mpi_file_get_type_extent__, + mpi_file_get_type_extent_f, + (MPI_Fint *fh, MPI_Fint *datatype, MPI_Fint *extent, MPI_Fint *ierr), + (fh, datatype, extent, ierr) ) +#endif + +void mpi_file_get_type_extent_f(MPI_Fint *fh, MPI_Fint *datatype, MPI_Fint *extent, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_get_view_f.c b/src/mpi/f77/file_get_view_f.c new file mode 100644 index 0000000000..b4044bff72 --- /dev/null +++ b/src/mpi/f77/file_get_view_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_GET_VIEW = mpi_file_get_view_f +#pragma weak pmpi_file_get_view = mpi_file_get_view_f +#pragma weak pmpi_file_get_view_ = mpi_file_get_view_f +#pragma weak pmpi_file_get_view__ = mpi_file_get_view_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_GET_VIEW, + pmpi_file_get_view, + pmpi_file_get_view_, + pmpi_file_get_view__, + pmpi_file_get_view_f, + (MPI_Fint *fh, MPI_Fint *disp, MPI_Fint *etype, MPI_Fint *filetype, char *datarep, MPI_Fint *ierr), + (fh, disp, etype, filetype, datarep, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_GET_VIEW = mpi_file_get_view_f +#pragma weak mpi_file_get_view = mpi_file_get_view_f +#pragma weak mpi_file_get_view_ = mpi_file_get_view_f +#pragma weak mpi_file_get_view__ = mpi_file_get_view_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_GET_VIEW, + mpi_file_get_view, + mpi_file_get_view_, + mpi_file_get_view__, + mpi_file_get_view_f, + (MPI_Fint *fh, MPI_Fint *disp, MPI_Fint *etype, MPI_Fint *filetype, char *datarep, MPI_Fint *ierr), + (fh, disp, etype, filetype, datarep, ierr) ) +#endif + +void mpi_file_get_view_f(MPI_Fint *fh, MPI_Fint *disp, MPI_Fint *etype, MPI_Fint *filetype, char *datarep, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_iread_at_f.c b/src/mpi/f77/file_iread_at_f.c new file mode 100644 index 0000000000..deabcb3368 --- /dev/null +++ b/src/mpi/f77/file_iread_at_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_IREAD_AT = mpi_file_iread_at_f +#pragma weak pmpi_file_iread_at = mpi_file_iread_at_f +#pragma weak pmpi_file_iread_at_ = mpi_file_iread_at_f +#pragma weak pmpi_file_iread_at__ = mpi_file_iread_at_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_IREAD_AT, + pmpi_file_iread_at, + pmpi_file_iread_at_, + pmpi_file_iread_at__, + pmpi_file_iread_at_f, + (MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr), + (fh, offset, buf, count, datatype, request, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_IREAD_AT = mpi_file_iread_at_f +#pragma weak mpi_file_iread_at = mpi_file_iread_at_f +#pragma weak mpi_file_iread_at_ = mpi_file_iread_at_f +#pragma weak mpi_file_iread_at__ = mpi_file_iread_at_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_IREAD_AT, + mpi_file_iread_at, + mpi_file_iread_at_, + mpi_file_iread_at__, + 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), + (fh, offset, buf, count, datatype, request, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/file_iread_f.c b/src/mpi/f77/file_iread_f.c new file mode 100644 index 0000000000..2263c04d36 --- /dev/null +++ b/src/mpi/f77/file_iread_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_IREAD = mpi_file_iread_f +#pragma weak pmpi_file_iread = mpi_file_iread_f +#pragma weak pmpi_file_iread_ = mpi_file_iread_f +#pragma weak pmpi_file_iread__ = mpi_file_iread_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_IREAD, + pmpi_file_iread, + pmpi_file_iread_, + pmpi_file_iread__, + pmpi_file_iread_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr), + (fh, buf, count, datatype, request, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_IREAD = mpi_file_iread_f +#pragma weak mpi_file_iread = mpi_file_iread_f +#pragma weak mpi_file_iread_ = mpi_file_iread_f +#pragma weak mpi_file_iread__ = mpi_file_iread_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_IREAD, + mpi_file_iread, + mpi_file_iread_, + mpi_file_iread__, + mpi_file_iread_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr), + (fh, buf, count, datatype, request, ierr) ) +#endif + +void mpi_file_iread_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_iread_shared_f.c b/src/mpi/f77/file_iread_shared_f.c new file mode 100644 index 0000000000..e99891545d --- /dev/null +++ b/src/mpi/f77/file_iread_shared_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_IREAD_SHARED = mpi_file_iread_shared_f +#pragma weak pmpi_file_iread_shared = mpi_file_iread_shared_f +#pragma weak pmpi_file_iread_shared_ = mpi_file_iread_shared_f +#pragma weak pmpi_file_iread_shared__ = mpi_file_iread_shared_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_IREAD_SHARED, + pmpi_file_iread_shared, + pmpi_file_iread_shared_, + pmpi_file_iread_shared__, + pmpi_file_iread_shared_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr), + (fh, buf, count, datatype, request, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_IREAD_SHARED = mpi_file_iread_shared_f +#pragma weak mpi_file_iread_shared = mpi_file_iread_shared_f +#pragma weak mpi_file_iread_shared_ = mpi_file_iread_shared_f +#pragma weak mpi_file_iread_shared__ = mpi_file_iread_shared_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_IREAD_SHARED, + mpi_file_iread_shared, + mpi_file_iread_shared_, + mpi_file_iread_shared__, + mpi_file_iread_shared_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr), + (fh, buf, count, datatype, request, ierr) ) +#endif + +void mpi_file_iread_shared_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_iwrite_at_f.c b/src/mpi/f77/file_iwrite_at_f.c new file mode 100644 index 0000000000..7aa7e64d88 --- /dev/null +++ b/src/mpi/f77/file_iwrite_at_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_IWRITE_AT = mpi_file_iwrite_at_f +#pragma weak pmpi_file_iwrite_at = mpi_file_iwrite_at_f +#pragma weak pmpi_file_iwrite_at_ = mpi_file_iwrite_at_f +#pragma weak pmpi_file_iwrite_at__ = mpi_file_iwrite_at_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_IWRITE_AT, + pmpi_file_iwrite_at, + pmpi_file_iwrite_at_, + pmpi_file_iwrite_at__, + pmpi_file_iwrite_at_f, + (MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr), + (fh, offset, buf, count, datatype, request, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_IWRITE_AT = mpi_file_iwrite_at_f +#pragma weak mpi_file_iwrite_at = mpi_file_iwrite_at_f +#pragma weak mpi_file_iwrite_at_ = mpi_file_iwrite_at_f +#pragma weak mpi_file_iwrite_at__ = mpi_file_iwrite_at_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_IWRITE_AT, + mpi_file_iwrite_at, + mpi_file_iwrite_at_, + mpi_file_iwrite_at__, + 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), + (fh, offset, buf, count, datatype, request, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/file_iwrite_f.c b/src/mpi/f77/file_iwrite_f.c new file mode 100644 index 0000000000..d104069f12 --- /dev/null +++ b/src/mpi/f77/file_iwrite_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_IWRITE = mpi_file_iwrite_f +#pragma weak pmpi_file_iwrite = mpi_file_iwrite_f +#pragma weak pmpi_file_iwrite_ = mpi_file_iwrite_f +#pragma weak pmpi_file_iwrite__ = mpi_file_iwrite_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_IWRITE, + pmpi_file_iwrite, + pmpi_file_iwrite_, + pmpi_file_iwrite__, + pmpi_file_iwrite_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr), + (fh, buf, count, datatype, request, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_IWRITE = mpi_file_iwrite_f +#pragma weak mpi_file_iwrite = mpi_file_iwrite_f +#pragma weak mpi_file_iwrite_ = mpi_file_iwrite_f +#pragma weak mpi_file_iwrite__ = mpi_file_iwrite_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_IWRITE, + mpi_file_iwrite, + mpi_file_iwrite_, + mpi_file_iwrite__, + mpi_file_iwrite_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr), + (fh, buf, count, datatype, request, ierr) ) +#endif + +void mpi_file_iwrite_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_iwrite_shared_f.c b/src/mpi/f77/file_iwrite_shared_f.c new file mode 100644 index 0000000000..deb490cf5d --- /dev/null +++ b/src/mpi/f77/file_iwrite_shared_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_IWRITE_SHARED = mpi_file_iwrite_shared_f +#pragma weak pmpi_file_iwrite_shared = mpi_file_iwrite_shared_f +#pragma weak pmpi_file_iwrite_shared_ = mpi_file_iwrite_shared_f +#pragma weak pmpi_file_iwrite_shared__ = mpi_file_iwrite_shared_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_IWRITE_SHARED, + pmpi_file_iwrite_shared, + pmpi_file_iwrite_shared_, + pmpi_file_iwrite_shared__, + pmpi_file_iwrite_shared_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr), + (fh, buf, count, datatype, request, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_IWRITE_SHARED = mpi_file_iwrite_shared_f +#pragma weak mpi_file_iwrite_shared = mpi_file_iwrite_shared_f +#pragma weak mpi_file_iwrite_shared_ = mpi_file_iwrite_shared_f +#pragma weak mpi_file_iwrite_shared__ = mpi_file_iwrite_shared_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_IWRITE_SHARED, + mpi_file_iwrite_shared, + mpi_file_iwrite_shared_, + mpi_file_iwrite_shared__, + mpi_file_iwrite_shared_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr), + (fh, buf, count, datatype, request, ierr) ) +#endif + +void mpi_file_iwrite_shared_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_open_f.c b/src/mpi/f77/file_open_f.c new file mode 100644 index 0000000000..339859ac5e --- /dev/null +++ b/src/mpi/f77/file_open_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_OPEN = mpi_file_open_f +#pragma weak pmpi_file_open = mpi_file_open_f +#pragma weak pmpi_file_open_ = mpi_file_open_f +#pragma weak pmpi_file_open__ = mpi_file_open_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_OPEN, + pmpi_file_open, + pmpi_file_open_, + pmpi_file_open__, + pmpi_file_open_f, + (MPI_Fint *comm, char *filename, MPI_Fint *amode, MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr), + (comm, filename, amode, info, fh, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_OPEN = mpi_file_open_f +#pragma weak mpi_file_open = mpi_file_open_f +#pragma weak mpi_file_open_ = mpi_file_open_f +#pragma weak mpi_file_open__ = mpi_file_open_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_OPEN, + mpi_file_open, + mpi_file_open_, + mpi_file_open__, + mpi_file_open_f, + (MPI_Fint *comm, char *filename, MPI_Fint *amode, MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr), + (comm, filename, amode, info, fh, ierr) ) +#endif + +void mpi_file_open_f(MPI_Fint *comm, char *filename, MPI_Fint *amode, MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_preallocate_f.c b/src/mpi/f77/file_preallocate_f.c new file mode 100644 index 0000000000..7da50bb57a --- /dev/null +++ b/src/mpi/f77/file_preallocate_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_PREALLOCATE = mpi_file_preallocate_f +#pragma weak pmpi_file_preallocate = mpi_file_preallocate_f +#pragma weak pmpi_file_preallocate_ = mpi_file_preallocate_f +#pragma weak pmpi_file_preallocate__ = mpi_file_preallocate_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_PREALLOCATE, + pmpi_file_preallocate, + pmpi_file_preallocate_, + pmpi_file_preallocate__, + pmpi_file_preallocate_f, + (MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr), + (fh, size, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_PREALLOCATE = mpi_file_preallocate_f +#pragma weak mpi_file_preallocate = mpi_file_preallocate_f +#pragma weak mpi_file_preallocate_ = mpi_file_preallocate_f +#pragma weak mpi_file_preallocate__ = mpi_file_preallocate_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_PREALLOCATE, + mpi_file_preallocate, + mpi_file_preallocate_, + mpi_file_preallocate__, + mpi_file_preallocate_f, + (MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr), + (fh, size, ierr) ) +#endif + +void mpi_file_preallocate_f(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_read_all_begin_f.c b/src/mpi/f77/file_read_all_begin_f.c new file mode 100644 index 0000000000..5060e816c2 --- /dev/null +++ b/src/mpi/f77/file_read_all_begin_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_READ_ALL_BEGIN = mpi_file_read_all_begin_f +#pragma weak pmpi_file_read_all_begin = mpi_file_read_all_begin_f +#pragma weak pmpi_file_read_all_begin_ = mpi_file_read_all_begin_f +#pragma weak pmpi_file_read_all_begin__ = mpi_file_read_all_begin_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_READ_ALL_BEGIN, + pmpi_file_read_all_begin, + pmpi_file_read_all_begin_, + pmpi_file_read_all_begin__, + pmpi_file_read_all_begin_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr), + (fh, buf, count, datatype, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_READ_ALL_BEGIN = mpi_file_read_all_begin_f +#pragma weak mpi_file_read_all_begin = mpi_file_read_all_begin_f +#pragma weak mpi_file_read_all_begin_ = mpi_file_read_all_begin_f +#pragma weak mpi_file_read_all_begin__ = mpi_file_read_all_begin_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_READ_ALL_BEGIN, + mpi_file_read_all_begin, + mpi_file_read_all_begin_, + mpi_file_read_all_begin__, + mpi_file_read_all_begin_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr), + (fh, buf, count, datatype, ierr) ) +#endif + +void mpi_file_read_all_begin_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_read_all_end_f.c b/src/mpi/f77/file_read_all_end_f.c new file mode 100644 index 0000000000..4c3321291e --- /dev/null +++ b/src/mpi/f77/file_read_all_end_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_READ_ALL_END = mpi_file_read_all_end_f +#pragma weak pmpi_file_read_all_end = mpi_file_read_all_end_f +#pragma weak pmpi_file_read_all_end_ = mpi_file_read_all_end_f +#pragma weak pmpi_file_read_all_end__ = mpi_file_read_all_end_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_READ_ALL_END, + pmpi_file_read_all_end, + pmpi_file_read_all_end_, + pmpi_file_read_all_end__, + pmpi_file_read_all_end_f, + (MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr), + (fh, buf, status, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_READ_ALL_END = mpi_file_read_all_end_f +#pragma weak mpi_file_read_all_end = mpi_file_read_all_end_f +#pragma weak mpi_file_read_all_end_ = mpi_file_read_all_end_f +#pragma weak mpi_file_read_all_end__ = mpi_file_read_all_end_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_READ_ALL_END, + mpi_file_read_all_end, + mpi_file_read_all_end_, + mpi_file_read_all_end__, + mpi_file_read_all_end_f, + (MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr), + (fh, buf, status, ierr) ) +#endif + +void mpi_file_read_all_end_f(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_read_all_f.c b/src/mpi/f77/file_read_all_f.c new file mode 100644 index 0000000000..813152c2aa --- /dev/null +++ b/src/mpi/f77/file_read_all_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_READ_ALL = mpi_file_read_all_f +#pragma weak pmpi_file_read_all = mpi_file_read_all_f +#pragma weak pmpi_file_read_all_ = mpi_file_read_all_f +#pragma weak pmpi_file_read_all__ = mpi_file_read_all_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_READ_ALL, + pmpi_file_read_all, + pmpi_file_read_all_, + pmpi_file_read_all__, + pmpi_file_read_all_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr), + (fh, buf, count, datatype, status, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_READ_ALL = mpi_file_read_all_f +#pragma weak mpi_file_read_all = mpi_file_read_all_f +#pragma weak mpi_file_read_all_ = mpi_file_read_all_f +#pragma weak mpi_file_read_all__ = mpi_file_read_all_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_READ_ALL, + mpi_file_read_all, + mpi_file_read_all_, + mpi_file_read_all__, + mpi_file_read_all_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr), + (fh, buf, count, datatype, status, ierr) ) +#endif + +void mpi_file_read_all_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_read_at_all_begin_f.c b/src/mpi/f77/file_read_at_all_begin_f.c new file mode 100644 index 0000000000..3398340d74 --- /dev/null +++ b/src/mpi/f77/file_read_at_all_begin_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_READ_AT_ALL_BEGIN = mpi_file_read_at_all_begin_f +#pragma weak pmpi_file_read_at_all_begin = mpi_file_read_at_all_begin_f +#pragma weak pmpi_file_read_at_all_begin_ = mpi_file_read_at_all_begin_f +#pragma weak pmpi_file_read_at_all_begin__ = mpi_file_read_at_all_begin_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_READ_AT_ALL_BEGIN, + pmpi_file_read_at_all_begin, + pmpi_file_read_at_all_begin_, + pmpi_file_read_at_all_begin__, + pmpi_file_read_at_all_begin_f, + (MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr), + (fh, offset, buf, count, datatype, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_READ_AT_ALL_BEGIN = mpi_file_read_at_all_begin_f +#pragma weak mpi_file_read_at_all_begin = mpi_file_read_at_all_begin_f +#pragma weak mpi_file_read_at_all_begin_ = mpi_file_read_at_all_begin_f +#pragma weak mpi_file_read_at_all_begin__ = mpi_file_read_at_all_begin_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_READ_AT_ALL_BEGIN, + mpi_file_read_at_all_begin, + mpi_file_read_at_all_begin_, + mpi_file_read_at_all_begin__, + mpi_file_read_at_all_begin_f, + (MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr), + (fh, offset, buf, count, datatype, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/file_read_at_all_end_f.c b/src/mpi/f77/file_read_at_all_end_f.c new file mode 100644 index 0000000000..daaea1501e --- /dev/null +++ b/src/mpi/f77/file_read_at_all_end_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_READ_AT_ALL_END = mpi_file_read_at_all_end_f +#pragma weak pmpi_file_read_at_all_end = mpi_file_read_at_all_end_f +#pragma weak pmpi_file_read_at_all_end_ = mpi_file_read_at_all_end_f +#pragma weak pmpi_file_read_at_all_end__ = mpi_file_read_at_all_end_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_READ_AT_ALL_END, + pmpi_file_read_at_all_end, + pmpi_file_read_at_all_end_, + pmpi_file_read_at_all_end__, + pmpi_file_read_at_all_end_f, + (MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr), + (fh, buf, status, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_READ_AT_ALL_END = mpi_file_read_at_all_end_f +#pragma weak mpi_file_read_at_all_end = mpi_file_read_at_all_end_f +#pragma weak mpi_file_read_at_all_end_ = mpi_file_read_at_all_end_f +#pragma weak mpi_file_read_at_all_end__ = mpi_file_read_at_all_end_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_READ_AT_ALL_END, + mpi_file_read_at_all_end, + mpi_file_read_at_all_end_, + mpi_file_read_at_all_end__, + mpi_file_read_at_all_end_f, + (MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr), + (fh, buf, status, ierr) ) +#endif + +void mpi_file_read_at_all_end_f(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_read_at_all_f.c b/src/mpi/f77/file_read_at_all_f.c new file mode 100644 index 0000000000..c3bc37065b --- /dev/null +++ b/src/mpi/f77/file_read_at_all_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_READ_AT_ALL = mpi_file_read_at_all_f +#pragma weak pmpi_file_read_at_all = mpi_file_read_at_all_f +#pragma weak pmpi_file_read_at_all_ = mpi_file_read_at_all_f +#pragma weak pmpi_file_read_at_all__ = mpi_file_read_at_all_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_READ_AT_ALL, + pmpi_file_read_at_all, + pmpi_file_read_at_all_, + pmpi_file_read_at_all__, + pmpi_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), + (fh, offset, buf, count, datatype, status, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_READ_AT_ALL = mpi_file_read_at_all_f +#pragma weak mpi_file_read_at_all = mpi_file_read_at_all_f +#pragma weak mpi_file_read_at_all_ = mpi_file_read_at_all_f +#pragma weak mpi_file_read_at_all__ = mpi_file_read_at_all_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_READ_AT_ALL, + mpi_file_read_at_all, + mpi_file_read_at_all_, + mpi_file_read_at_all__, + 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), + (fh, offset, buf, count, datatype, status, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/file_read_at_f.c b/src/mpi/f77/file_read_at_f.c new file mode 100644 index 0000000000..8b1493895d --- /dev/null +++ b/src/mpi/f77/file_read_at_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_READ_AT = mpi_file_read_at_f +#pragma weak pmpi_file_read_at = mpi_file_read_at_f +#pragma weak pmpi_file_read_at_ = mpi_file_read_at_f +#pragma weak pmpi_file_read_at__ = mpi_file_read_at_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_READ_AT, + pmpi_file_read_at, + pmpi_file_read_at_, + pmpi_file_read_at__, + pmpi_file_read_at_f, + (MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr), + (fh, offset, buf, count, datatype, status, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_READ_AT = mpi_file_read_at_f +#pragma weak mpi_file_read_at = mpi_file_read_at_f +#pragma weak mpi_file_read_at_ = mpi_file_read_at_f +#pragma weak mpi_file_read_at__ = mpi_file_read_at_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_READ_AT, + mpi_file_read_at, + mpi_file_read_at_, + mpi_file_read_at__, + 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), + (fh, offset, buf, count, datatype, status, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/file_read_f.c b/src/mpi/f77/file_read_f.c new file mode 100644 index 0000000000..0ea8c7e1de --- /dev/null +++ b/src/mpi/f77/file_read_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_READ = mpi_file_read_f +#pragma weak pmpi_file_read = mpi_file_read_f +#pragma weak pmpi_file_read_ = mpi_file_read_f +#pragma weak pmpi_file_read__ = mpi_file_read_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_READ, + pmpi_file_read, + pmpi_file_read_, + pmpi_file_read__, + pmpi_file_read_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr), + (fh, buf, count, datatype, status, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_READ = mpi_file_read_f +#pragma weak mpi_file_read = mpi_file_read_f +#pragma weak mpi_file_read_ = mpi_file_read_f +#pragma weak mpi_file_read__ = mpi_file_read_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_READ, + mpi_file_read, + mpi_file_read_, + mpi_file_read__, + mpi_file_read_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr), + (fh, buf, count, datatype, status, ierr) ) +#endif + +void mpi_file_read_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_read_ordered_begin_f.c b/src/mpi/f77/file_read_ordered_begin_f.c new file mode 100644 index 0000000000..20269ca231 --- /dev/null +++ b/src/mpi/f77/file_read_ordered_begin_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_READ_ORDERED_BEGIN = mpi_file_read_ordered_begin_f +#pragma weak pmpi_file_read_ordered_begin = mpi_file_read_ordered_begin_f +#pragma weak pmpi_file_read_ordered_begin_ = mpi_file_read_ordered_begin_f +#pragma weak pmpi_file_read_ordered_begin__ = mpi_file_read_ordered_begin_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_READ_ORDERED_BEGIN, + pmpi_file_read_ordered_begin, + pmpi_file_read_ordered_begin_, + pmpi_file_read_ordered_begin__, + pmpi_file_read_ordered_begin_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr), + (fh, buf, count, datatype, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_READ_ORDERED_BEGIN = mpi_file_read_ordered_begin_f +#pragma weak mpi_file_read_ordered_begin = mpi_file_read_ordered_begin_f +#pragma weak mpi_file_read_ordered_begin_ = mpi_file_read_ordered_begin_f +#pragma weak mpi_file_read_ordered_begin__ = mpi_file_read_ordered_begin_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_READ_ORDERED_BEGIN, + mpi_file_read_ordered_begin, + mpi_file_read_ordered_begin_, + mpi_file_read_ordered_begin__, + mpi_file_read_ordered_begin_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr), + (fh, buf, count, datatype, ierr) ) +#endif + +void mpi_file_read_ordered_begin_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_read_ordered_end_f.c b/src/mpi/f77/file_read_ordered_end_f.c new file mode 100644 index 0000000000..22e712bcb2 --- /dev/null +++ b/src/mpi/f77/file_read_ordered_end_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_READ_ORDERED_END = mpi_file_read_ordered_end_f +#pragma weak pmpi_file_read_ordered_end = mpi_file_read_ordered_end_f +#pragma weak pmpi_file_read_ordered_end_ = mpi_file_read_ordered_end_f +#pragma weak pmpi_file_read_ordered_end__ = mpi_file_read_ordered_end_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_READ_ORDERED_END, + pmpi_file_read_ordered_end, + pmpi_file_read_ordered_end_, + pmpi_file_read_ordered_end__, + pmpi_file_read_ordered_end_f, + (MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr), + (fh, buf, status, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_READ_ORDERED_END = mpi_file_read_ordered_end_f +#pragma weak mpi_file_read_ordered_end = mpi_file_read_ordered_end_f +#pragma weak mpi_file_read_ordered_end_ = mpi_file_read_ordered_end_f +#pragma weak mpi_file_read_ordered_end__ = mpi_file_read_ordered_end_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_READ_ORDERED_END, + mpi_file_read_ordered_end, + mpi_file_read_ordered_end_, + mpi_file_read_ordered_end__, + mpi_file_read_ordered_end_f, + (MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr), + (fh, buf, status, ierr) ) +#endif + +void mpi_file_read_ordered_end_f(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_read_ordered_f.c b/src/mpi/f77/file_read_ordered_f.c new file mode 100644 index 0000000000..e522bd567e --- /dev/null +++ b/src/mpi/f77/file_read_ordered_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_READ_ORDERED = mpi_file_read_ordered_f +#pragma weak pmpi_file_read_ordered = mpi_file_read_ordered_f +#pragma weak pmpi_file_read_ordered_ = mpi_file_read_ordered_f +#pragma weak pmpi_file_read_ordered__ = mpi_file_read_ordered_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_READ_ORDERED, + pmpi_file_read_ordered, + pmpi_file_read_ordered_, + pmpi_file_read_ordered__, + pmpi_file_read_ordered_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr), + (fh, buf, count, datatype, status, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_READ_ORDERED = mpi_file_read_ordered_f +#pragma weak mpi_file_read_ordered = mpi_file_read_ordered_f +#pragma weak mpi_file_read_ordered_ = mpi_file_read_ordered_f +#pragma weak mpi_file_read_ordered__ = mpi_file_read_ordered_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_READ_ORDERED, + mpi_file_read_ordered, + mpi_file_read_ordered_, + mpi_file_read_ordered__, + mpi_file_read_ordered_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr), + (fh, buf, count, datatype, status, ierr) ) +#endif + +void mpi_file_read_ordered_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_read_shared_f.c b/src/mpi/f77/file_read_shared_f.c new file mode 100644 index 0000000000..58575c65ba --- /dev/null +++ b/src/mpi/f77/file_read_shared_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_READ_SHARED = mpi_file_read_shared_f +#pragma weak pmpi_file_read_shared = mpi_file_read_shared_f +#pragma weak pmpi_file_read_shared_ = mpi_file_read_shared_f +#pragma weak pmpi_file_read_shared__ = mpi_file_read_shared_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_READ_SHARED, + pmpi_file_read_shared, + pmpi_file_read_shared_, + pmpi_file_read_shared__, + pmpi_file_read_shared_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr), + (fh, buf, count, datatype, status, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_READ_SHARED = mpi_file_read_shared_f +#pragma weak mpi_file_read_shared = mpi_file_read_shared_f +#pragma weak mpi_file_read_shared_ = mpi_file_read_shared_f +#pragma weak mpi_file_read_shared__ = mpi_file_read_shared_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_READ_SHARED, + mpi_file_read_shared, + mpi_file_read_shared_, + mpi_file_read_shared__, + mpi_file_read_shared_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr), + (fh, buf, count, datatype, status, ierr) ) +#endif + +void mpi_file_read_shared_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_seek_f.c b/src/mpi/f77/file_seek_f.c new file mode 100644 index 0000000000..161aeffa0e --- /dev/null +++ b/src/mpi/f77/file_seek_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_SEEK = mpi_file_seek_f +#pragma weak pmpi_file_seek = mpi_file_seek_f +#pragma weak pmpi_file_seek_ = mpi_file_seek_f +#pragma weak pmpi_file_seek__ = mpi_file_seek_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_SEEK, + pmpi_file_seek, + pmpi_file_seek_, + pmpi_file_seek__, + pmpi_file_seek_f, + (MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *whence, MPI_Fint *ierr), + (fh, offset, whence, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_SEEK = mpi_file_seek_f +#pragma weak mpi_file_seek = mpi_file_seek_f +#pragma weak mpi_file_seek_ = mpi_file_seek_f +#pragma weak mpi_file_seek__ = mpi_file_seek_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_SEEK, + mpi_file_seek, + mpi_file_seek_, + mpi_file_seek__, + mpi_file_seek_f, + (MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *whence, MPI_Fint *ierr), + (fh, offset, whence, ierr) ) +#endif + +void mpi_file_seek_f(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *whence, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_seek_shared_f.c b/src/mpi/f77/file_seek_shared_f.c new file mode 100644 index 0000000000..d2a86fc51c --- /dev/null +++ b/src/mpi/f77/file_seek_shared_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_SEEK_SHARED = mpi_file_seek_shared_f +#pragma weak pmpi_file_seek_shared = mpi_file_seek_shared_f +#pragma weak pmpi_file_seek_shared_ = mpi_file_seek_shared_f +#pragma weak pmpi_file_seek_shared__ = mpi_file_seek_shared_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_SEEK_SHARED, + pmpi_file_seek_shared, + pmpi_file_seek_shared_, + pmpi_file_seek_shared__, + pmpi_file_seek_shared_f, + (MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *whence, MPI_Fint *ierr), + (fh, offset, whence, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_SEEK_SHARED = mpi_file_seek_shared_f +#pragma weak mpi_file_seek_shared = mpi_file_seek_shared_f +#pragma weak mpi_file_seek_shared_ = mpi_file_seek_shared_f +#pragma weak mpi_file_seek_shared__ = mpi_file_seek_shared_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_SEEK_SHARED, + mpi_file_seek_shared, + mpi_file_seek_shared_, + mpi_file_seek_shared__, + mpi_file_seek_shared_f, + (MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *whence, MPI_Fint *ierr), + (fh, offset, whence, ierr) ) +#endif + +void mpi_file_seek_shared_f(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *whence, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_set_atomicity_f.c b/src/mpi/f77/file_set_atomicity_f.c new file mode 100644 index 0000000000..b266286766 --- /dev/null +++ b/src/mpi/f77/file_set_atomicity_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_SET_ATOMICITY = mpi_file_set_atomicity_f +#pragma weak pmpi_file_set_atomicity = mpi_file_set_atomicity_f +#pragma weak pmpi_file_set_atomicity_ = mpi_file_set_atomicity_f +#pragma weak pmpi_file_set_atomicity__ = mpi_file_set_atomicity_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_SET_ATOMICITY, + pmpi_file_set_atomicity, + pmpi_file_set_atomicity_, + pmpi_file_set_atomicity__, + pmpi_file_set_atomicity_f, + (MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr), + (fh, flag, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_SET_ATOMICITY = mpi_file_set_atomicity_f +#pragma weak mpi_file_set_atomicity = mpi_file_set_atomicity_f +#pragma weak mpi_file_set_atomicity_ = mpi_file_set_atomicity_f +#pragma weak mpi_file_set_atomicity__ = mpi_file_set_atomicity_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_SET_ATOMICITY, + mpi_file_set_atomicity, + mpi_file_set_atomicity_, + mpi_file_set_atomicity__, + mpi_file_set_atomicity_f, + (MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr), + (fh, flag, ierr) ) +#endif + +void mpi_file_set_atomicity_f(MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_set_errhandler_f.c b/src/mpi/f77/file_set_errhandler_f.c new file mode 100644 index 0000000000..a0e3fb8e88 --- /dev/null +++ b/src/mpi/f77/file_set_errhandler_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_SET_ERRHANDLER = mpi_file_set_errhandler_f +#pragma weak pmpi_file_set_errhandler = mpi_file_set_errhandler_f +#pragma weak pmpi_file_set_errhandler_ = mpi_file_set_errhandler_f +#pragma weak pmpi_file_set_errhandler__ = mpi_file_set_errhandler_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_SET_ERRHANDLER, + pmpi_file_set_errhandler, + pmpi_file_set_errhandler_, + pmpi_file_set_errhandler__, + pmpi_file_set_errhandler_f, + (MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr), + (file, errhandler, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_SET_ERRHANDLER = mpi_file_set_errhandler_f +#pragma weak mpi_file_set_errhandler = mpi_file_set_errhandler_f +#pragma weak mpi_file_set_errhandler_ = mpi_file_set_errhandler_f +#pragma weak mpi_file_set_errhandler__ = mpi_file_set_errhandler_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_SET_ERRHANDLER, + mpi_file_set_errhandler, + mpi_file_set_errhandler_, + mpi_file_set_errhandler__, + mpi_file_set_errhandler_f, + (MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr), + (file, errhandler, ierr) ) +#endif + +void mpi_file_set_errhandler_f(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_set_info_f.c b/src/mpi/f77/file_set_info_f.c new file mode 100644 index 0000000000..5a22907ad8 --- /dev/null +++ b/src/mpi/f77/file_set_info_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_SET_INFO = mpi_file_set_info_f +#pragma weak pmpi_file_set_info = mpi_file_set_info_f +#pragma weak pmpi_file_set_info_ = mpi_file_set_info_f +#pragma weak pmpi_file_set_info__ = mpi_file_set_info_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_SET_INFO, + pmpi_file_set_info, + pmpi_file_set_info_, + pmpi_file_set_info__, + pmpi_file_set_info_f, + (MPI_Fint *fh, MPI_Fint *info, MPI_Fint *ierr), + (fh, info, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_SET_INFO = mpi_file_set_info_f +#pragma weak mpi_file_set_info = mpi_file_set_info_f +#pragma weak mpi_file_set_info_ = mpi_file_set_info_f +#pragma weak mpi_file_set_info__ = mpi_file_set_info_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_SET_INFO, + mpi_file_set_info, + mpi_file_set_info_, + mpi_file_set_info__, + mpi_file_set_info_f, + (MPI_Fint *fh, MPI_Fint *info, MPI_Fint *ierr), + (fh, info, ierr) ) +#endif + +void mpi_file_set_info_f(MPI_Fint *fh, MPI_Fint *info, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_set_size_f.c b/src/mpi/f77/file_set_size_f.c new file mode 100644 index 0000000000..8c01097457 --- /dev/null +++ b/src/mpi/f77/file_set_size_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_SET_SIZE = mpi_file_set_size_f +#pragma weak pmpi_file_set_size = mpi_file_set_size_f +#pragma weak pmpi_file_set_size_ = mpi_file_set_size_f +#pragma weak pmpi_file_set_size__ = mpi_file_set_size_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_SET_SIZE, + pmpi_file_set_size, + pmpi_file_set_size_, + pmpi_file_set_size__, + pmpi_file_set_size_f, + (MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr), + (fh, size, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_SET_SIZE = mpi_file_set_size_f +#pragma weak mpi_file_set_size = mpi_file_set_size_f +#pragma weak mpi_file_set_size_ = mpi_file_set_size_f +#pragma weak mpi_file_set_size__ = mpi_file_set_size_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_SET_SIZE, + mpi_file_set_size, + mpi_file_set_size_, + mpi_file_set_size__, + mpi_file_set_size_f, + (MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr), + (fh, size, ierr) ) +#endif + +void mpi_file_set_size_f(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_set_view_f.c b/src/mpi/f77/file_set_view_f.c new file mode 100644 index 0000000000..bf063c861d --- /dev/null +++ b/src/mpi/f77/file_set_view_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_SET_VIEW = mpi_file_set_view_f +#pragma weak pmpi_file_set_view = mpi_file_set_view_f +#pragma weak pmpi_file_set_view_ = mpi_file_set_view_f +#pragma weak pmpi_file_set_view__ = mpi_file_set_view_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_SET_VIEW, + pmpi_file_set_view, + pmpi_file_set_view_, + pmpi_file_set_view__, + pmpi_file_set_view_f, + (MPI_Fint *fh, MPI_Fint *disp, MPI_Fint *etype, MPI_Fint *filetype, char *datarep, MPI_Fint *info, MPI_Fint *ierr), + (fh, disp, etype, filetype, datarep, info, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_SET_VIEW = mpi_file_set_view_f +#pragma weak mpi_file_set_view = mpi_file_set_view_f +#pragma weak mpi_file_set_view_ = mpi_file_set_view_f +#pragma weak mpi_file_set_view__ = mpi_file_set_view_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_SET_VIEW, + mpi_file_set_view, + mpi_file_set_view_, + mpi_file_set_view__, + 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), + (fh, disp, etype, filetype, datarep, info, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/file_sync_f.c b/src/mpi/f77/file_sync_f.c new file mode 100644 index 0000000000..27e740dbec --- /dev/null +++ b/src/mpi/f77/file_sync_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_SYNC = mpi_file_sync_f +#pragma weak pmpi_file_sync = mpi_file_sync_f +#pragma weak pmpi_file_sync_ = mpi_file_sync_f +#pragma weak pmpi_file_sync__ = mpi_file_sync_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_SYNC, + pmpi_file_sync, + pmpi_file_sync_, + pmpi_file_sync__, + pmpi_file_sync_f, + (MPI_Fint *fh, MPI_Fint *ierr), + (fh, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_SYNC = mpi_file_sync_f +#pragma weak mpi_file_sync = mpi_file_sync_f +#pragma weak mpi_file_sync_ = mpi_file_sync_f +#pragma weak mpi_file_sync__ = mpi_file_sync_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_SYNC, + mpi_file_sync, + mpi_file_sync_, + mpi_file_sync__, + mpi_file_sync_f, + (MPI_Fint *fh, MPI_Fint *ierr), + (fh, ierr) ) +#endif + +void mpi_file_sync_f(MPI_Fint *fh, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_write_all_begin_f.c b/src/mpi/f77/file_write_all_begin_f.c new file mode 100644 index 0000000000..1f800c33e4 --- /dev/null +++ b/src/mpi/f77/file_write_all_begin_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_WRITE_ALL_BEGIN = mpi_file_write_all_begin_f +#pragma weak pmpi_file_write_all_begin = mpi_file_write_all_begin_f +#pragma weak pmpi_file_write_all_begin_ = mpi_file_write_all_begin_f +#pragma weak pmpi_file_write_all_begin__ = mpi_file_write_all_begin_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_WRITE_ALL_BEGIN, + pmpi_file_write_all_begin, + pmpi_file_write_all_begin_, + pmpi_file_write_all_begin__, + pmpi_file_write_all_begin_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr), + (fh, buf, count, datatype, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_WRITE_ALL_BEGIN = mpi_file_write_all_begin_f +#pragma weak mpi_file_write_all_begin = mpi_file_write_all_begin_f +#pragma weak mpi_file_write_all_begin_ = mpi_file_write_all_begin_f +#pragma weak mpi_file_write_all_begin__ = mpi_file_write_all_begin_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_WRITE_ALL_BEGIN, + mpi_file_write_all_begin, + mpi_file_write_all_begin_, + mpi_file_write_all_begin__, + mpi_file_write_all_begin_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr), + (fh, buf, count, datatype, ierr) ) +#endif + +void mpi_file_write_all_begin_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_write_all_end_f.c b/src/mpi/f77/file_write_all_end_f.c new file mode 100644 index 0000000000..6d91380e35 --- /dev/null +++ b/src/mpi/f77/file_write_all_end_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_WRITE_ALL_END = mpi_file_write_all_end_f +#pragma weak pmpi_file_write_all_end = mpi_file_write_all_end_f +#pragma weak pmpi_file_write_all_end_ = mpi_file_write_all_end_f +#pragma weak pmpi_file_write_all_end__ = mpi_file_write_all_end_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_WRITE_ALL_END, + pmpi_file_write_all_end, + pmpi_file_write_all_end_, + pmpi_file_write_all_end__, + pmpi_file_write_all_end_f, + (MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr), + (fh, buf, status, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_WRITE_ALL_END = mpi_file_write_all_end_f +#pragma weak mpi_file_write_all_end = mpi_file_write_all_end_f +#pragma weak mpi_file_write_all_end_ = mpi_file_write_all_end_f +#pragma weak mpi_file_write_all_end__ = mpi_file_write_all_end_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_WRITE_ALL_END, + mpi_file_write_all_end, + mpi_file_write_all_end_, + mpi_file_write_all_end__, + mpi_file_write_all_end_f, + (MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr), + (fh, buf, status, ierr) ) +#endif + +void mpi_file_write_all_end_f(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_write_all_f.c b/src/mpi/f77/file_write_all_f.c new file mode 100644 index 0000000000..a64b04c449 --- /dev/null +++ b/src/mpi/f77/file_write_all_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_WRITE_ALL = mpi_file_write_all_f +#pragma weak pmpi_file_write_all = mpi_file_write_all_f +#pragma weak pmpi_file_write_all_ = mpi_file_write_all_f +#pragma weak pmpi_file_write_all__ = mpi_file_write_all_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_WRITE_ALL, + pmpi_file_write_all, + pmpi_file_write_all_, + pmpi_file_write_all__, + pmpi_file_write_all_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr), + (fh, buf, count, datatype, status, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_WRITE_ALL = mpi_file_write_all_f +#pragma weak mpi_file_write_all = mpi_file_write_all_f +#pragma weak mpi_file_write_all_ = mpi_file_write_all_f +#pragma weak mpi_file_write_all__ = mpi_file_write_all_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_WRITE_ALL, + mpi_file_write_all, + mpi_file_write_all_, + mpi_file_write_all__, + mpi_file_write_all_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr), + (fh, buf, count, datatype, status, ierr) ) +#endif + +void mpi_file_write_all_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_write_at_all_begin_f.c b/src/mpi/f77/file_write_at_all_begin_f.c new file mode 100644 index 0000000000..28ad3a27f5 --- /dev/null +++ b/src/mpi/f77/file_write_at_all_begin_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_WRITE_AT_ALL_BEGIN = mpi_file_write_at_all_begin_f +#pragma weak pmpi_file_write_at_all_begin = mpi_file_write_at_all_begin_f +#pragma weak pmpi_file_write_at_all_begin_ = mpi_file_write_at_all_begin_f +#pragma weak pmpi_file_write_at_all_begin__ = mpi_file_write_at_all_begin_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_WRITE_AT_ALL_BEGIN, + pmpi_file_write_at_all_begin, + pmpi_file_write_at_all_begin_, + pmpi_file_write_at_all_begin__, + pmpi_file_write_at_all_begin_f, + (MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr), + (fh, offset, buf, count, datatype, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_WRITE_AT_ALL_BEGIN = mpi_file_write_at_all_begin_f +#pragma weak mpi_file_write_at_all_begin = mpi_file_write_at_all_begin_f +#pragma weak mpi_file_write_at_all_begin_ = mpi_file_write_at_all_begin_f +#pragma weak mpi_file_write_at_all_begin__ = mpi_file_write_at_all_begin_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_WRITE_AT_ALL_BEGIN, + mpi_file_write_at_all_begin, + mpi_file_write_at_all_begin_, + mpi_file_write_at_all_begin__, + mpi_file_write_at_all_begin_f, + (MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr), + (fh, offset, buf, count, datatype, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/file_write_at_all_end_f.c b/src/mpi/f77/file_write_at_all_end_f.c new file mode 100644 index 0000000000..058fc4010a --- /dev/null +++ b/src/mpi/f77/file_write_at_all_end_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_WRITE_AT_ALL_END = mpi_file_write_at_all_end_f +#pragma weak pmpi_file_write_at_all_end = mpi_file_write_at_all_end_f +#pragma weak pmpi_file_write_at_all_end_ = mpi_file_write_at_all_end_f +#pragma weak pmpi_file_write_at_all_end__ = mpi_file_write_at_all_end_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_WRITE_AT_ALL_END, + pmpi_file_write_at_all_end, + pmpi_file_write_at_all_end_, + pmpi_file_write_at_all_end__, + pmpi_file_write_at_all_end_f, + (MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr), + (fh, buf, status, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_WRITE_AT_ALL_END = mpi_file_write_at_all_end_f +#pragma weak mpi_file_write_at_all_end = mpi_file_write_at_all_end_f +#pragma weak mpi_file_write_at_all_end_ = mpi_file_write_at_all_end_f +#pragma weak mpi_file_write_at_all_end__ = mpi_file_write_at_all_end_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_WRITE_AT_ALL_END, + mpi_file_write_at_all_end, + mpi_file_write_at_all_end_, + mpi_file_write_at_all_end__, + mpi_file_write_at_all_end_f, + (MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr), + (fh, buf, status, ierr) ) +#endif + +void mpi_file_write_at_all_end_f(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_write_at_all_f.c b/src/mpi/f77/file_write_at_all_f.c new file mode 100644 index 0000000000..b9b28805e7 --- /dev/null +++ b/src/mpi/f77/file_write_at_all_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_WRITE_AT_ALL = mpi_file_write_at_all_f +#pragma weak pmpi_file_write_at_all = mpi_file_write_at_all_f +#pragma weak pmpi_file_write_at_all_ = mpi_file_write_at_all_f +#pragma weak pmpi_file_write_at_all__ = mpi_file_write_at_all_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_WRITE_AT_ALL, + pmpi_file_write_at_all, + pmpi_file_write_at_all_, + pmpi_file_write_at_all__, + pmpi_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), + (fh, offset, buf, count, datatype, status, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_WRITE_AT_ALL = mpi_file_write_at_all_f +#pragma weak mpi_file_write_at_all = mpi_file_write_at_all_f +#pragma weak mpi_file_write_at_all_ = mpi_file_write_at_all_f +#pragma weak mpi_file_write_at_all__ = mpi_file_write_at_all_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_WRITE_AT_ALL, + mpi_file_write_at_all, + mpi_file_write_at_all_, + mpi_file_write_at_all__, + 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), + (fh, offset, buf, count, datatype, status, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/file_write_at_f.c b/src/mpi/f77/file_write_at_f.c new file mode 100644 index 0000000000..d0696b5b50 --- /dev/null +++ b/src/mpi/f77/file_write_at_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_WRITE_AT = mpi_file_write_at_f +#pragma weak pmpi_file_write_at = mpi_file_write_at_f +#pragma weak pmpi_file_write_at_ = mpi_file_write_at_f +#pragma weak pmpi_file_write_at__ = mpi_file_write_at_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_WRITE_AT, + pmpi_file_write_at, + pmpi_file_write_at_, + pmpi_file_write_at__, + pmpi_file_write_at_f, + (MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr), + (fh, offset, buf, count, datatype, status, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_WRITE_AT = mpi_file_write_at_f +#pragma weak mpi_file_write_at = mpi_file_write_at_f +#pragma weak mpi_file_write_at_ = mpi_file_write_at_f +#pragma weak mpi_file_write_at__ = mpi_file_write_at_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_WRITE_AT, + mpi_file_write_at, + mpi_file_write_at_, + mpi_file_write_at__, + 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), + (fh, offset, buf, count, datatype, status, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/file_write_f.c b/src/mpi/f77/file_write_f.c new file mode 100644 index 0000000000..da32c1242e --- /dev/null +++ b/src/mpi/f77/file_write_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_WRITE = mpi_file_write_f +#pragma weak pmpi_file_write = mpi_file_write_f +#pragma weak pmpi_file_write_ = mpi_file_write_f +#pragma weak pmpi_file_write__ = mpi_file_write_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_WRITE, + pmpi_file_write, + pmpi_file_write_, + pmpi_file_write__, + pmpi_file_write_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr), + (fh, buf, count, datatype, status, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_WRITE = mpi_file_write_f +#pragma weak mpi_file_write = mpi_file_write_f +#pragma weak mpi_file_write_ = mpi_file_write_f +#pragma weak mpi_file_write__ = mpi_file_write_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_WRITE, + mpi_file_write, + mpi_file_write_, + mpi_file_write__, + mpi_file_write_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr), + (fh, buf, count, datatype, status, ierr) ) +#endif + +void mpi_file_write_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_write_ordered_begin_f.c b/src/mpi/f77/file_write_ordered_begin_f.c new file mode 100644 index 0000000000..8015048a68 --- /dev/null +++ b/src/mpi/f77/file_write_ordered_begin_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_WRITE_ORDERED_BEGIN = mpi_file_write_ordered_begin_f +#pragma weak pmpi_file_write_ordered_begin = mpi_file_write_ordered_begin_f +#pragma weak pmpi_file_write_ordered_begin_ = mpi_file_write_ordered_begin_f +#pragma weak pmpi_file_write_ordered_begin__ = mpi_file_write_ordered_begin_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_WRITE_ORDERED_BEGIN, + pmpi_file_write_ordered_begin, + pmpi_file_write_ordered_begin_, + pmpi_file_write_ordered_begin__, + pmpi_file_write_ordered_begin_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr), + (fh, buf, count, datatype, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_WRITE_ORDERED_BEGIN = mpi_file_write_ordered_begin_f +#pragma weak mpi_file_write_ordered_begin = mpi_file_write_ordered_begin_f +#pragma weak mpi_file_write_ordered_begin_ = mpi_file_write_ordered_begin_f +#pragma weak mpi_file_write_ordered_begin__ = mpi_file_write_ordered_begin_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_WRITE_ORDERED_BEGIN, + mpi_file_write_ordered_begin, + mpi_file_write_ordered_begin_, + mpi_file_write_ordered_begin__, + mpi_file_write_ordered_begin_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr), + (fh, buf, count, datatype, ierr) ) +#endif + +void mpi_file_write_ordered_begin_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_write_ordered_end_f.c b/src/mpi/f77/file_write_ordered_end_f.c new file mode 100644 index 0000000000..843db8868b --- /dev/null +++ b/src/mpi/f77/file_write_ordered_end_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_WRITE_ORDERED_END = mpi_file_write_ordered_end_f +#pragma weak pmpi_file_write_ordered_end = mpi_file_write_ordered_end_f +#pragma weak pmpi_file_write_ordered_end_ = mpi_file_write_ordered_end_f +#pragma weak pmpi_file_write_ordered_end__ = mpi_file_write_ordered_end_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_WRITE_ORDERED_END, + pmpi_file_write_ordered_end, + pmpi_file_write_ordered_end_, + pmpi_file_write_ordered_end__, + pmpi_file_write_ordered_end_f, + (MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr), + (fh, buf, status, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_WRITE_ORDERED_END = mpi_file_write_ordered_end_f +#pragma weak mpi_file_write_ordered_end = mpi_file_write_ordered_end_f +#pragma weak mpi_file_write_ordered_end_ = mpi_file_write_ordered_end_f +#pragma weak mpi_file_write_ordered_end__ = mpi_file_write_ordered_end_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_WRITE_ORDERED_END, + mpi_file_write_ordered_end, + mpi_file_write_ordered_end_, + mpi_file_write_ordered_end__, + mpi_file_write_ordered_end_f, + (MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr), + (fh, buf, status, ierr) ) +#endif + +void mpi_file_write_ordered_end_f(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_write_ordered_f.c b/src/mpi/f77/file_write_ordered_f.c new file mode 100644 index 0000000000..11d3c21932 --- /dev/null +++ b/src/mpi/f77/file_write_ordered_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_WRITE_ORDERED = mpi_file_write_ordered_f +#pragma weak pmpi_file_write_ordered = mpi_file_write_ordered_f +#pragma weak pmpi_file_write_ordered_ = mpi_file_write_ordered_f +#pragma weak pmpi_file_write_ordered__ = mpi_file_write_ordered_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_WRITE_ORDERED, + pmpi_file_write_ordered, + pmpi_file_write_ordered_, + pmpi_file_write_ordered__, + pmpi_file_write_ordered_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr), + (fh, buf, count, datatype, status, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_WRITE_ORDERED = mpi_file_write_ordered_f +#pragma weak mpi_file_write_ordered = mpi_file_write_ordered_f +#pragma weak mpi_file_write_ordered_ = mpi_file_write_ordered_f +#pragma weak mpi_file_write_ordered__ = mpi_file_write_ordered_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_WRITE_ORDERED, + mpi_file_write_ordered, + mpi_file_write_ordered_, + mpi_file_write_ordered__, + mpi_file_write_ordered_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr), + (fh, buf, count, datatype, status, ierr) ) +#endif + +void mpi_file_write_ordered_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/file_write_shared_f.c b/src/mpi/f77/file_write_shared_f.c new file mode 100644 index 0000000000..b6028e52a0 --- /dev/null +++ b/src/mpi/f77/file_write_shared_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FILE_WRITE_SHARED = mpi_file_write_shared_f +#pragma weak pmpi_file_write_shared = mpi_file_write_shared_f +#pragma weak pmpi_file_write_shared_ = mpi_file_write_shared_f +#pragma weak pmpi_file_write_shared__ = mpi_file_write_shared_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FILE_WRITE_SHARED, + pmpi_file_write_shared, + pmpi_file_write_shared_, + pmpi_file_write_shared__, + pmpi_file_write_shared_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr), + (fh, buf, count, datatype, status, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FILE_WRITE_SHARED = mpi_file_write_shared_f +#pragma weak mpi_file_write_shared = mpi_file_write_shared_f +#pragma weak mpi_file_write_shared_ = mpi_file_write_shared_f +#pragma weak mpi_file_write_shared__ = mpi_file_write_shared_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FILE_WRITE_SHARED, + mpi_file_write_shared, + mpi_file_write_shared_, + mpi_file_write_shared__, + mpi_file_write_shared_f, + (MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr), + (fh, buf, count, datatype, status, ierr) ) +#endif + +void mpi_file_write_shared_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/finalize_f.c b/src/mpi/f77/finalize_f.c index ac3808ab57..e5656e69ef 100644 --- a/src/mpi/f77/finalize_f.c +++ b/src/mpi/f77/finalize_f.c @@ -9,7 +9,6 @@ #include "mpi.h" #include "mpi/f77/bindings.h" - #if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER #pragma weak PMPI_FINALIZE = mpi_finalize_f #pragma weak pmpi_finalize = mpi_finalize_f @@ -17,12 +16,12 @@ #pragma weak pmpi_finalize__ = mpi_finalize_f #elif LAM_PROFILE_LAYER LAM_GENERATE_F77_BINDINGS (PMPI_FINALIZE, - pmpi_finalize, - pmpi_finalize_, - pmpi_finalize__, - pmpi_finalize_f, - (MPI_Fint *ierror), - (ierror)) + pmpi_finalize, + pmpi_finalize_, + pmpi_finalize__, + pmpi_finalize_f, + (MPI_Fint *ierr), + (ierr) ) #endif #if LAM_HAVE_WEAK_SYMBOLS @@ -32,19 +31,17 @@ LAM_GENERATE_F77_BINDINGS (PMPI_FINALIZE, #pragma weak mpi_finalize__ = mpi_finalize_f #endif -#if ! LAM_PROFILE_LAYER && ! LAM_HAVE_WEAK_SYMBOLS +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER LAM_GENERATE_F77_BINDINGS (MPI_FINALIZE, - mpi_finalize, - mpi_finalize_, - mpi_finalize__, - mpi_finalize_f, - (MPI_Fint *ierror), - (ierror)) + mpi_finalize, + mpi_finalize_, + mpi_finalize__, + mpi_finalize_f, + (MPI_Fint *ierr), + (ierr) ) #endif - -void -mpi_finalize_f(MPI_Fint *ierror) +void mpi_finalize_f(MPI_Fint *ierr) { - *ierror = MPI_Finalize(); + } diff --git a/src/mpi/f77/finalized_f.c b/src/mpi/f77/finalized_f.c new file mode 100644 index 0000000000..3cf589d041 --- /dev/null +++ b/src/mpi/f77/finalized_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_FINALIZED = mpi_finalized_f +#pragma weak pmpi_finalized = mpi_finalized_f +#pragma weak pmpi_finalized_ = mpi_finalized_f +#pragma weak pmpi_finalized__ = mpi_finalized_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_FINALIZED, + pmpi_finalized, + pmpi_finalized_, + pmpi_finalized__, + pmpi_finalized_f, + (MPI_Fint *flag, MPI_Fint *ierr), + (flag, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_FINALIZED = mpi_finalized_f +#pragma weak mpi_finalized = mpi_finalized_f +#pragma weak mpi_finalized_ = mpi_finalized_f +#pragma weak mpi_finalized__ = mpi_finalized_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_FINALIZED, + mpi_finalized, + mpi_finalized_, + mpi_finalized__, + mpi_finalized_f, + (MPI_Fint *flag, MPI_Fint *ierr), + (flag, ierr) ) +#endif + +void mpi_finalized_f(MPI_Fint *flag, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/free_mem_f.c b/src/mpi/f77/free_mem_f.c index a99a8cbb7a..d2afbbaf6b 100644 --- a/src/mpi/f77/free_mem_f.c +++ b/src/mpi/f77/free_mem_f.c @@ -9,7 +9,6 @@ #include "mpi.h" #include "mpi/f77/bindings.h" - #if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER #pragma weak PMPI_FREE_MEM = mpi_free_mem_f #pragma weak pmpi_free_mem = mpi_free_mem_f @@ -17,12 +16,12 @@ #pragma weak pmpi_free_mem__ = mpi_free_mem_f #elif LAM_PROFILE_LAYER LAM_GENERATE_F77_BINDINGS (PMPI_FREE_MEM, - pmpi_free_mem, - pmpi_free_mem_, - pmpi_free_mem__, - pmpi_free_mem_f, - (char *baseptr, MPI_Fint *ierr), - (baseptr, ierr)) + pmpi_free_mem, + pmpi_free_mem_, + pmpi_free_mem__, + pmpi_free_mem_f, + (char *base, MPI_Fint *ierr), + (base, ierr) ) #endif #if LAM_HAVE_WEAK_SYMBOLS @@ -32,21 +31,17 @@ LAM_GENERATE_F77_BINDINGS (PMPI_FREE_MEM, #pragma weak mpi_free_mem__ = mpi_free_mem_f #endif -#if ! LAM_PROFILE_LAYER && ! LAM_HAVE_WEAK_SYMBOLS +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER LAM_GENERATE_F77_BINDINGS (MPI_FREE_MEM, - mpi_free_mem, - mpi_free_mem_, - mpi_free_mem__, - mpi_free_mem_f, - (char *baseptr, MPI_Fint *ierr), - (baseptr, ierr)) + mpi_free_mem, + mpi_free_mem_, + mpi_free_mem__, + mpi_free_mem_f, + (char *base, MPI_Fint *ierr), + (base, ierr) ) #endif -void mpi_free_mem_f(char *baseptr, MPI_Fint *ierr) +void mpi_free_mem_f(char *base, MPI_Fint *ierr) { -#if 0 - /* JMS Need fortran -> C handle lookups, and a safe way to do the - baseptr pointer */ - *ierr = MPI_Free_mem(BUF(baseptr)); -#endif + } diff --git a/src/mpi/f77/gather_f.c b/src/mpi/f77/gather_f.c new file mode 100644 index 0000000000..7872798431 --- /dev/null +++ b/src/mpi/f77/gather_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_GATHER = mpi_gather_f +#pragma weak pmpi_gather = mpi_gather_f +#pragma weak pmpi_gather_ = mpi_gather_f +#pragma weak pmpi_gather__ = mpi_gather_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_GATHER, + pmpi_gather, + pmpi_gather_, + pmpi_gather__, + pmpi_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), + (sendbuf, sendcount, sendtype, recvbuf, recvcount, recvtype, root, comm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_GATHER = mpi_gather_f +#pragma weak mpi_gather = mpi_gather_f +#pragma weak mpi_gather_ = mpi_gather_f +#pragma weak mpi_gather__ = mpi_gather_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_GATHER, + mpi_gather, + mpi_gather_, + mpi_gather__, + 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), + (sendbuf, sendcount, sendtype, recvbuf, recvcount, recvtype, root, comm, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/gatherv_f.c b/src/mpi/f77/gatherv_f.c new file mode 100644 index 0000000000..b8fd0f85db --- /dev/null +++ b/src/mpi/f77/gatherv_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_GATHERV = mpi_gatherv_f +#pragma weak pmpi_gatherv = mpi_gatherv_f +#pragma weak pmpi_gatherv_ = mpi_gatherv_f +#pragma weak pmpi_gatherv__ = mpi_gatherv_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_GATHERV, + pmpi_gatherv, + pmpi_gatherv_, + pmpi_gatherv__, + pmpi_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), + (sendbuf, sendcount, sendtype, recvbuf, recvcounts, displs, recvtype, root, comm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_GATHERV = mpi_gatherv_f +#pragma weak mpi_gatherv = mpi_gatherv_f +#pragma weak mpi_gatherv_ = mpi_gatherv_f +#pragma weak mpi_gatherv__ = mpi_gatherv_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_GATHERV, + mpi_gatherv, + mpi_gatherv_, + mpi_gatherv__, + 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), + (sendbuf, sendcount, sendtype, recvbuf, recvcounts, displs, recvtype, root, comm, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/get_address_f.c b/src/mpi/f77/get_address_f.c new file mode 100644 index 0000000000..cbc80b7fad --- /dev/null +++ b/src/mpi/f77/get_address_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_GET_ADDRESS = mpi_get_address_f +#pragma weak pmpi_get_address = mpi_get_address_f +#pragma weak pmpi_get_address_ = mpi_get_address_f +#pragma weak pmpi_get_address__ = mpi_get_address_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_GET_ADDRESS, + pmpi_get_address, + pmpi_get_address_, + pmpi_get_address__, + pmpi_get_address_f, + (char *location, MPI_Fint *address, MPI_Fint *ierr), + (location, address, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_GET_ADDRESS = mpi_get_address_f +#pragma weak mpi_get_address = mpi_get_address_f +#pragma weak mpi_get_address_ = mpi_get_address_f +#pragma weak mpi_get_address__ = mpi_get_address_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_GET_ADDRESS, + mpi_get_address, + mpi_get_address_, + mpi_get_address__, + mpi_get_address_f, + (char *location, MPI_Fint *address, MPI_Fint *ierr), + (location, address, ierr) ) +#endif + +void mpi_get_address_f(char *location, MPI_Fint *address, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/get_count_f.c b/src/mpi/f77/get_count_f.c new file mode 100644 index 0000000000..2eb2ca5aef --- /dev/null +++ b/src/mpi/f77/get_count_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_GET_COUNT = mpi_get_count_f +#pragma weak pmpi_get_count = mpi_get_count_f +#pragma weak pmpi_get_count_ = mpi_get_count_f +#pragma weak pmpi_get_count__ = mpi_get_count_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_GET_COUNT, + pmpi_get_count, + pmpi_get_count_, + pmpi_get_count__, + pmpi_get_count_f, + (MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr), + (status, datatype, count, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_GET_COUNT = mpi_get_count_f +#pragma weak mpi_get_count = mpi_get_count_f +#pragma weak mpi_get_count_ = mpi_get_count_f +#pragma weak mpi_get_count__ = mpi_get_count_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_GET_COUNT, + mpi_get_count, + mpi_get_count_, + mpi_get_count__, + mpi_get_count_f, + (MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr), + (status, datatype, count, ierr) ) +#endif + +void mpi_get_count_f(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/get_elements_f.c b/src/mpi/f77/get_elements_f.c new file mode 100644 index 0000000000..80f9011f57 --- /dev/null +++ b/src/mpi/f77/get_elements_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_GET_ELEMENTS = mpi_get_elements_f +#pragma weak pmpi_get_elements = mpi_get_elements_f +#pragma weak pmpi_get_elements_ = mpi_get_elements_f +#pragma weak pmpi_get_elements__ = mpi_get_elements_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_GET_ELEMENTS, + pmpi_get_elements, + pmpi_get_elements_, + pmpi_get_elements__, + pmpi_get_elements_f, + (MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr), + (status, datatype, count, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_GET_ELEMENTS = mpi_get_elements_f +#pragma weak mpi_get_elements = mpi_get_elements_f +#pragma weak mpi_get_elements_ = mpi_get_elements_f +#pragma weak mpi_get_elements__ = mpi_get_elements_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_GET_ELEMENTS, + mpi_get_elements, + mpi_get_elements_, + mpi_get_elements__, + mpi_get_elements_f, + (MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr), + (status, datatype, count, ierr) ) +#endif + +void mpi_get_elements_f(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/get_f.c b/src/mpi/f77/get_f.c new file mode 100644 index 0000000000..2d3d24fc7e --- /dev/null +++ b/src/mpi/f77/get_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_GET = mpi_get_f +#pragma weak pmpi_get = mpi_get_f +#pragma weak pmpi_get_ = mpi_get_f +#pragma weak pmpi_get__ = mpi_get_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_GET, + pmpi_get, + pmpi_get_, + pmpi_get__, + pmpi_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), + (origin_addr, origin_count, origin_datatype, target_rank, target_disp, target_count, target_datatype, win, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_GET = mpi_get_f +#pragma weak mpi_get = mpi_get_f +#pragma weak mpi_get_ = mpi_get_f +#pragma weak mpi_get__ = mpi_get_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_GET, + mpi_get, + mpi_get_, + mpi_get__, + 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), + (origin_addr, origin_count, origin_datatype, target_rank, target_disp, target_count, target_datatype, win, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/get_processor_name_f.c b/src/mpi/f77/get_processor_name_f.c new file mode 100644 index 0000000000..61a861a3c2 --- /dev/null +++ b/src/mpi/f77/get_processor_name_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_GET_PROCESSOR_NAME = mpi_get_processor_name_f +#pragma weak pmpi_get_processor_name = mpi_get_processor_name_f +#pragma weak pmpi_get_processor_name_ = mpi_get_processor_name_f +#pragma weak pmpi_get_processor_name__ = mpi_get_processor_name_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_GET_PROCESSOR_NAME, + pmpi_get_processor_name, + pmpi_get_processor_name_, + pmpi_get_processor_name__, + pmpi_get_processor_name_f, + (char *name, MPI_Fint *resultlen, MPI_Fint *ierr), + (name, resultlen, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_GET_PROCESSOR_NAME = mpi_get_processor_name_f +#pragma weak mpi_get_processor_name = mpi_get_processor_name_f +#pragma weak mpi_get_processor_name_ = mpi_get_processor_name_f +#pragma weak mpi_get_processor_name__ = mpi_get_processor_name_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_GET_PROCESSOR_NAME, + mpi_get_processor_name, + mpi_get_processor_name_, + mpi_get_processor_name__, + mpi_get_processor_name_f, + (char *name, MPI_Fint *resultlen, MPI_Fint *ierr), + (name, resultlen, ierr) ) +#endif + +void mpi_get_processor_name_f(char *name, MPI_Fint *resultlen, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/get_version_f.c b/src/mpi/f77/get_version_f.c new file mode 100644 index 0000000000..806f381a2d --- /dev/null +++ b/src/mpi/f77/get_version_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_GET_VERSION = mpi_get_version_f +#pragma weak pmpi_get_version = mpi_get_version_f +#pragma weak pmpi_get_version_ = mpi_get_version_f +#pragma weak pmpi_get_version__ = mpi_get_version_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_GET_VERSION, + pmpi_get_version, + pmpi_get_version_, + pmpi_get_version__, + pmpi_get_version_f, + (MPI_Fint *version, MPI_Fint *subversion, MPI_Fint *ierr), + (version, subversion, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_GET_VERSION = mpi_get_version_f +#pragma weak mpi_get_version = mpi_get_version_f +#pragma weak mpi_get_version_ = mpi_get_version_f +#pragma weak mpi_get_version__ = mpi_get_version_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_GET_VERSION, + mpi_get_version, + mpi_get_version_, + mpi_get_version__, + mpi_get_version_f, + (MPI_Fint *version, MPI_Fint *subversion, MPI_Fint *ierr), + (version, subversion, ierr) ) +#endif + +void mpi_get_version_f(MPI_Fint *version, MPI_Fint *subversion, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/graph_create_f.c b/src/mpi/f77/graph_create_f.c new file mode 100644 index 0000000000..13c1a2671a --- /dev/null +++ b/src/mpi/f77/graph_create_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_GRAPH_CREATE = mpi_graph_create_f +#pragma weak pmpi_graph_create = mpi_graph_create_f +#pragma weak pmpi_graph_create_ = mpi_graph_create_f +#pragma weak pmpi_graph_create__ = mpi_graph_create_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_GRAPH_CREATE, + pmpi_graph_create, + pmpi_graph_create_, + pmpi_graph_create__, + pmpi_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), + (comm_old, nnodes, index, edges, reorder, comm_graph, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_GRAPH_CREATE = mpi_graph_create_f +#pragma weak mpi_graph_create = mpi_graph_create_f +#pragma weak mpi_graph_create_ = mpi_graph_create_f +#pragma weak mpi_graph_create__ = mpi_graph_create_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_GRAPH_CREATE, + mpi_graph_create, + mpi_graph_create_, + mpi_graph_create__, + 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), + (comm_old, nnodes, index, edges, reorder, comm_graph, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/graph_get_f.c b/src/mpi/f77/graph_get_f.c new file mode 100644 index 0000000000..7d57fd8b95 --- /dev/null +++ b/src/mpi/f77/graph_get_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_GRAPH_GET = mpi_graph_get_f +#pragma weak pmpi_graph_get = mpi_graph_get_f +#pragma weak pmpi_graph_get_ = mpi_graph_get_f +#pragma weak pmpi_graph_get__ = mpi_graph_get_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_GRAPH_GET, + pmpi_graph_get, + pmpi_graph_get_, + pmpi_graph_get__, + pmpi_graph_get_f, + (MPI_Fint *comm, MPI_Fint *maxindex, MPI_Fint *maxedges, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *ierr), + (comm, maxindex, maxedges, index, edges, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_GRAPH_GET = mpi_graph_get_f +#pragma weak mpi_graph_get = mpi_graph_get_f +#pragma weak mpi_graph_get_ = mpi_graph_get_f +#pragma weak mpi_graph_get__ = mpi_graph_get_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_GRAPH_GET, + mpi_graph_get, + mpi_graph_get_, + mpi_graph_get__, + mpi_graph_get_f, + (MPI_Fint *comm, MPI_Fint *maxindex, MPI_Fint *maxedges, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *ierr), + (comm, maxindex, maxedges, index, edges, ierr) ) +#endif + +void mpi_graph_get_f(MPI_Fint *comm, MPI_Fint *maxindex, MPI_Fint *maxedges, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/graph_map_f.c b/src/mpi/f77/graph_map_f.c new file mode 100644 index 0000000000..20633f4c43 --- /dev/null +++ b/src/mpi/f77/graph_map_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_GRAPH_MAP = mpi_graph_map_f +#pragma weak pmpi_graph_map = mpi_graph_map_f +#pragma weak pmpi_graph_map_ = mpi_graph_map_f +#pragma weak pmpi_graph_map__ = mpi_graph_map_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_GRAPH_MAP, + pmpi_graph_map, + pmpi_graph_map_, + pmpi_graph_map__, + pmpi_graph_map_f, + (MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *newrank, MPI_Fint *ierr), + (comm, nnodes, index, edges, newrank, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_GRAPH_MAP = mpi_graph_map_f +#pragma weak mpi_graph_map = mpi_graph_map_f +#pragma weak mpi_graph_map_ = mpi_graph_map_f +#pragma weak mpi_graph_map__ = mpi_graph_map_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_GRAPH_MAP, + mpi_graph_map, + mpi_graph_map_, + mpi_graph_map__, + mpi_graph_map_f, + (MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *newrank, MPI_Fint *ierr), + (comm, nnodes, index, edges, newrank, ierr) ) +#endif + +void mpi_graph_map_f(MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *newrank, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/graph_neighbors_count_f.c b/src/mpi/f77/graph_neighbors_count_f.c new file mode 100644 index 0000000000..afa1dd5053 --- /dev/null +++ b/src/mpi/f77/graph_neighbors_count_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_GRAPH_NEIGHBORS_COUNT = mpi_graph_neighbors_count_f +#pragma weak pmpi_graph_neighbors_count = mpi_graph_neighbors_count_f +#pragma weak pmpi_graph_neighbors_count_ = mpi_graph_neighbors_count_f +#pragma weak pmpi_graph_neighbors_count__ = mpi_graph_neighbors_count_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_GRAPH_NEIGHBORS_COUNT, + pmpi_graph_neighbors_count, + pmpi_graph_neighbors_count_, + pmpi_graph_neighbors_count__, + pmpi_graph_neighbors_count_f, + (MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *nneighbors, MPI_Fint *ierr), + (comm, rank, nneighbors, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_GRAPH_NEIGHBORS_COUNT = mpi_graph_neighbors_count_f +#pragma weak mpi_graph_neighbors_count = mpi_graph_neighbors_count_f +#pragma weak mpi_graph_neighbors_count_ = mpi_graph_neighbors_count_f +#pragma weak mpi_graph_neighbors_count__ = mpi_graph_neighbors_count_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_GRAPH_NEIGHBORS_COUNT, + mpi_graph_neighbors_count, + mpi_graph_neighbors_count_, + mpi_graph_neighbors_count__, + mpi_graph_neighbors_count_f, + (MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *nneighbors, MPI_Fint *ierr), + (comm, rank, nneighbors, ierr) ) +#endif + +void mpi_graph_neighbors_count_f(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *nneighbors, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/graph_neighbors_f.c b/src/mpi/f77/graph_neighbors_f.c new file mode 100644 index 0000000000..3ebefa68af --- /dev/null +++ b/src/mpi/f77/graph_neighbors_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_GRAPH_NEIGHBORS = mpi_graph_neighbors_f +#pragma weak pmpi_graph_neighbors = mpi_graph_neighbors_f +#pragma weak pmpi_graph_neighbors_ = mpi_graph_neighbors_f +#pragma weak pmpi_graph_neighbors__ = mpi_graph_neighbors_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_GRAPH_NEIGHBORS, + pmpi_graph_neighbors, + pmpi_graph_neighbors_, + pmpi_graph_neighbors__, + pmpi_graph_neighbors_f, + (MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxneighbors, MPI_Fint *neighbors, MPI_Fint *ierr), + (comm, rank, maxneighbors, neighbors, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_GRAPH_NEIGHBORS = mpi_graph_neighbors_f +#pragma weak mpi_graph_neighbors = mpi_graph_neighbors_f +#pragma weak mpi_graph_neighbors_ = mpi_graph_neighbors_f +#pragma weak mpi_graph_neighbors__ = mpi_graph_neighbors_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_GRAPH_NEIGHBORS, + mpi_graph_neighbors, + mpi_graph_neighbors_, + mpi_graph_neighbors__, + mpi_graph_neighbors_f, + (MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxneighbors, MPI_Fint *neighbors, MPI_Fint *ierr), + (comm, rank, maxneighbors, neighbors, ierr) ) +#endif + +void mpi_graph_neighbors_f(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxneighbors, MPI_Fint *neighbors, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/graphdims_get_f.c b/src/mpi/f77/graphdims_get_f.c new file mode 100644 index 0000000000..4cbc032a91 --- /dev/null +++ b/src/mpi/f77/graphdims_get_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_GRAPHDIMS_GET = mpi_graphdims_get_f +#pragma weak pmpi_graphdims_get = mpi_graphdims_get_f +#pragma weak pmpi_graphdims_get_ = mpi_graphdims_get_f +#pragma weak pmpi_graphdims_get__ = mpi_graphdims_get_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_GRAPHDIMS_GET, + pmpi_graphdims_get, + pmpi_graphdims_get_, + pmpi_graphdims_get__, + pmpi_graphdims_get_f, + (MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *nedges, MPI_Fint *ierr), + (comm, nnodes, nedges, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_GRAPHDIMS_GET = mpi_graphdims_get_f +#pragma weak mpi_graphdims_get = mpi_graphdims_get_f +#pragma weak mpi_graphdims_get_ = mpi_graphdims_get_f +#pragma weak mpi_graphdims_get__ = mpi_graphdims_get_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_GRAPHDIMS_GET, + mpi_graphdims_get, + mpi_graphdims_get_, + mpi_graphdims_get__, + mpi_graphdims_get_f, + (MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *nedges, MPI_Fint *ierr), + (comm, nnodes, nedges, ierr) ) +#endif + +void mpi_graphdims_get_f(MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *nedges, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/grequest_complete_f.c b/src/mpi/f77/grequest_complete_f.c new file mode 100644 index 0000000000..0071bb5e53 --- /dev/null +++ b/src/mpi/f77/grequest_complete_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_GREQUEST_COMPLETE = mpi_grequest_complete_f +#pragma weak pmpi_grequest_complete = mpi_grequest_complete_f +#pragma weak pmpi_grequest_complete_ = mpi_grequest_complete_f +#pragma weak pmpi_grequest_complete__ = mpi_grequest_complete_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_GREQUEST_COMPLETE, + pmpi_grequest_complete, + pmpi_grequest_complete_, + pmpi_grequest_complete__, + pmpi_grequest_complete_f, + (MPI_Fint *request, MPI_Fint *ierr), + (request, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_GREQUEST_COMPLETE = mpi_grequest_complete_f +#pragma weak mpi_grequest_complete = mpi_grequest_complete_f +#pragma weak mpi_grequest_complete_ = mpi_grequest_complete_f +#pragma weak mpi_grequest_complete__ = mpi_grequest_complete_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_GREQUEST_COMPLETE, + mpi_grequest_complete, + mpi_grequest_complete_, + mpi_grequest_complete__, + mpi_grequest_complete_f, + (MPI_Fint *request, MPI_Fint *ierr), + (request, ierr) ) +#endif + +void mpi_grequest_complete_f(MPI_Fint *request, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/grequest_start_f.c b/src/mpi/f77/grequest_start_f.c new file mode 100644 index 0000000000..327aac782d --- /dev/null +++ b/src/mpi/f77/grequest_start_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_GREQUEST_START = mpi_grequest_start_f +#pragma weak pmpi_grequest_start = mpi_grequest_start_f +#pragma weak pmpi_grequest_start_ = mpi_grequest_start_f +#pragma weak pmpi_grequest_start__ = mpi_grequest_start_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_GREQUEST_START, + pmpi_grequest_start, + pmpi_grequest_start_, + pmpi_grequest_start__, + pmpi_grequest_start_f, + (MPI_Fint *query_fn, MPI_Fint *free_fn, MPI_Fint *cancel_fn, char *extra_state, MPI_Fint *request, MPI_Fint *ierr), + (query_fn, free_fn, cancel_fn, extra_state, request, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_GREQUEST_START = mpi_grequest_start_f +#pragma weak mpi_grequest_start = mpi_grequest_start_f +#pragma weak mpi_grequest_start_ = mpi_grequest_start_f +#pragma weak mpi_grequest_start__ = mpi_grequest_start_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_GREQUEST_START, + mpi_grequest_start, + mpi_grequest_start_, + mpi_grequest_start__, + 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), + (query_fn, free_fn, cancel_fn, extra_state, request, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/group_difference_f.c b/src/mpi/f77/group_difference_f.c new file mode 100644 index 0000000000..ad687e4792 --- /dev/null +++ b/src/mpi/f77/group_difference_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_GROUP_DIFFERENCE = mpi_group_difference_f +#pragma weak pmpi_group_difference = mpi_group_difference_f +#pragma weak pmpi_group_difference_ = mpi_group_difference_f +#pragma weak pmpi_group_difference__ = mpi_group_difference_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_GROUP_DIFFERENCE, + pmpi_group_difference, + pmpi_group_difference_, + pmpi_group_difference__, + pmpi_group_difference_f, + (MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr), + (group1, group2, newgroup, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_GROUP_DIFFERENCE = mpi_group_difference_f +#pragma weak mpi_group_difference = mpi_group_difference_f +#pragma weak mpi_group_difference_ = mpi_group_difference_f +#pragma weak mpi_group_difference__ = mpi_group_difference_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_GROUP_DIFFERENCE, + mpi_group_difference, + mpi_group_difference_, + mpi_group_difference__, + mpi_group_difference_f, + (MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr), + (group1, group2, newgroup, ierr) ) +#endif + +void mpi_group_difference_f(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/group_excl_f.c b/src/mpi/f77/group_excl_f.c new file mode 100644 index 0000000000..dccee14f8a --- /dev/null +++ b/src/mpi/f77/group_excl_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_GROUP_EXCL = mpi_group_excl_f +#pragma weak pmpi_group_excl = mpi_group_excl_f +#pragma weak pmpi_group_excl_ = mpi_group_excl_f +#pragma weak pmpi_group_excl__ = mpi_group_excl_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_GROUP_EXCL, + pmpi_group_excl, + pmpi_group_excl_, + pmpi_group_excl__, + pmpi_group_excl_f, + (MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *newgroup, MPI_Fint *ierr), + (group, n, ranks, newgroup, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_GROUP_EXCL = mpi_group_excl_f +#pragma weak mpi_group_excl = mpi_group_excl_f +#pragma weak mpi_group_excl_ = mpi_group_excl_f +#pragma weak mpi_group_excl__ = mpi_group_excl_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_GROUP_EXCL, + mpi_group_excl, + mpi_group_excl_, + mpi_group_excl__, + mpi_group_excl_f, + (MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *newgroup, MPI_Fint *ierr), + (group, n, ranks, newgroup, ierr) ) +#endif + +void mpi_group_excl_f(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *newgroup, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/group_free_f.c b/src/mpi/f77/group_free_f.c new file mode 100644 index 0000000000..ca89c8e484 --- /dev/null +++ b/src/mpi/f77/group_free_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_GROUP_FREE = mpi_group_free_f +#pragma weak pmpi_group_free = mpi_group_free_f +#pragma weak pmpi_group_free_ = mpi_group_free_f +#pragma weak pmpi_group_free__ = mpi_group_free_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_GROUP_FREE, + pmpi_group_free, + pmpi_group_free_, + pmpi_group_free__, + pmpi_group_free_f, + (MPI_Fint *group, MPI_Fint *ierr), + (group, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_GROUP_FREE = mpi_group_free_f +#pragma weak mpi_group_free = mpi_group_free_f +#pragma weak mpi_group_free_ = mpi_group_free_f +#pragma weak mpi_group_free__ = mpi_group_free_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_GROUP_FREE, + mpi_group_free, + mpi_group_free_, + mpi_group_free__, + mpi_group_free_f, + (MPI_Fint *group, MPI_Fint *ierr), + (group, ierr) ) +#endif + +void mpi_group_free_f(MPI_Fint *group, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/group_incl_f.c b/src/mpi/f77/group_incl_f.c new file mode 100644 index 0000000000..a4052adc83 --- /dev/null +++ b/src/mpi/f77/group_incl_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_GROUP_INCL = mpi_group_incl_f +#pragma weak pmpi_group_incl = mpi_group_incl_f +#pragma weak pmpi_group_incl_ = mpi_group_incl_f +#pragma weak pmpi_group_incl__ = mpi_group_incl_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_GROUP_INCL, + pmpi_group_incl, + pmpi_group_incl_, + pmpi_group_incl__, + pmpi_group_incl_f, + (MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *newgroup, MPI_Fint *ierr), + (group, n, ranks, newgroup, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_GROUP_INCL = mpi_group_incl_f +#pragma weak mpi_group_incl = mpi_group_incl_f +#pragma weak mpi_group_incl_ = mpi_group_incl_f +#pragma weak mpi_group_incl__ = mpi_group_incl_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_GROUP_INCL, + mpi_group_incl, + mpi_group_incl_, + mpi_group_incl__, + mpi_group_incl_f, + (MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *newgroup, MPI_Fint *ierr), + (group, n, ranks, newgroup, ierr) ) +#endif + +void mpi_group_incl_f(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *newgroup, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/group_intersection_f.c b/src/mpi/f77/group_intersection_f.c new file mode 100644 index 0000000000..a998412746 --- /dev/null +++ b/src/mpi/f77/group_intersection_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_GROUP_INTERSECTION = mpi_group_intersection_f +#pragma weak pmpi_group_intersection = mpi_group_intersection_f +#pragma weak pmpi_group_intersection_ = mpi_group_intersection_f +#pragma weak pmpi_group_intersection__ = mpi_group_intersection_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_GROUP_INTERSECTION, + pmpi_group_intersection, + pmpi_group_intersection_, + pmpi_group_intersection__, + pmpi_group_intersection_f, + (MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr), + (group1, group2, newgroup, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_GROUP_INTERSECTION = mpi_group_intersection_f +#pragma weak mpi_group_intersection = mpi_group_intersection_f +#pragma weak mpi_group_intersection_ = mpi_group_intersection_f +#pragma weak mpi_group_intersection__ = mpi_group_intersection_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_GROUP_INTERSECTION, + mpi_group_intersection, + mpi_group_intersection_, + mpi_group_intersection__, + mpi_group_intersection_f, + (MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr), + (group1, group2, newgroup, ierr) ) +#endif + +void mpi_group_intersection_f(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/group_range_excl_f.c b/src/mpi/f77/group_range_excl_f.c new file mode 100644 index 0000000000..c2644c1e52 --- /dev/null +++ b/src/mpi/f77/group_range_excl_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_GROUP_RANGE_EXCL = mpi_group_range_excl_f +#pragma weak pmpi_group_range_excl = mpi_group_range_excl_f +#pragma weak pmpi_group_range_excl_ = mpi_group_range_excl_f +#pragma weak pmpi_group_range_excl__ = mpi_group_range_excl_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_GROUP_RANGE_EXCL, + pmpi_group_range_excl, + pmpi_group_range_excl_, + pmpi_group_range_excl__, + pmpi_group_range_excl_f, + (MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranges3, MPI_Fint *newgroup, MPI_Fint *ierr), + (group, n, ranges3, newgroup, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_GROUP_RANGE_EXCL = mpi_group_range_excl_f +#pragma weak mpi_group_range_excl = mpi_group_range_excl_f +#pragma weak mpi_group_range_excl_ = mpi_group_range_excl_f +#pragma weak mpi_group_range_excl__ = mpi_group_range_excl_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_GROUP_RANGE_EXCL, + mpi_group_range_excl, + mpi_group_range_excl_, + mpi_group_range_excl__, + mpi_group_range_excl_f, + (MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranges3, MPI_Fint *newgroup, MPI_Fint *ierr), + (group, n, ranges3, newgroup, ierr) ) +#endif + +void mpi_group_range_excl_f(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranges3, MPI_Fint *newgroup, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/group_range_incl_f.c b/src/mpi/f77/group_range_incl_f.c new file mode 100644 index 0000000000..19eee452f9 --- /dev/null +++ b/src/mpi/f77/group_range_incl_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_GROUP_RANGE_INCL = mpi_group_range_incl_f +#pragma weak pmpi_group_range_incl = mpi_group_range_incl_f +#pragma weak pmpi_group_range_incl_ = mpi_group_range_incl_f +#pragma weak pmpi_group_range_incl__ = mpi_group_range_incl_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_GROUP_RANGE_INCL, + pmpi_group_range_incl, + pmpi_group_range_incl_, + pmpi_group_range_incl__, + pmpi_group_range_incl_f, + (MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranges3, MPI_Fint *newgroup, MPI_Fint *ierr), + (group, n, ranges3, newgroup, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_GROUP_RANGE_INCL = mpi_group_range_incl_f +#pragma weak mpi_group_range_incl = mpi_group_range_incl_f +#pragma weak mpi_group_range_incl_ = mpi_group_range_incl_f +#pragma weak mpi_group_range_incl__ = mpi_group_range_incl_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_GROUP_RANGE_INCL, + mpi_group_range_incl, + mpi_group_range_incl_, + mpi_group_range_incl__, + mpi_group_range_incl_f, + (MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranges3, MPI_Fint *newgroup, MPI_Fint *ierr), + (group, n, ranges3, newgroup, ierr) ) +#endif + +void mpi_group_range_incl_f(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranges3, MPI_Fint *newgroup, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/group_rank_f.c b/src/mpi/f77/group_rank_f.c new file mode 100644 index 0000000000..b3ccaff2f4 --- /dev/null +++ b/src/mpi/f77/group_rank_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_GROUP_RANK = mpi_group_rank_f +#pragma weak pmpi_group_rank = mpi_group_rank_f +#pragma weak pmpi_group_rank_ = mpi_group_rank_f +#pragma weak pmpi_group_rank__ = mpi_group_rank_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_GROUP_RANK, + pmpi_group_rank, + pmpi_group_rank_, + pmpi_group_rank__, + pmpi_group_rank_f, + (MPI_Fint *group, MPI_Fint *rank, MPI_Fint *ierr), + (group, rank, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_GROUP_RANK = mpi_group_rank_f +#pragma weak mpi_group_rank = mpi_group_rank_f +#pragma weak mpi_group_rank_ = mpi_group_rank_f +#pragma weak mpi_group_rank__ = mpi_group_rank_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_GROUP_RANK, + mpi_group_rank, + mpi_group_rank_, + mpi_group_rank__, + mpi_group_rank_f, + (MPI_Fint *group, MPI_Fint *rank, MPI_Fint *ierr), + (group, rank, ierr) ) +#endif + +void mpi_group_rank_f(MPI_Fint *group, MPI_Fint *rank, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/group_size_f.c b/src/mpi/f77/group_size_f.c new file mode 100644 index 0000000000..535e2fa3da --- /dev/null +++ b/src/mpi/f77/group_size_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_GROUP_SIZE = mpi_group_size_f +#pragma weak pmpi_group_size = mpi_group_size_f +#pragma weak pmpi_group_size_ = mpi_group_size_f +#pragma weak pmpi_group_size__ = mpi_group_size_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_GROUP_SIZE, + pmpi_group_size, + pmpi_group_size_, + pmpi_group_size__, + pmpi_group_size_f, + (MPI_Fint *group, MPI_Fint *size, MPI_Fint *ierr), + (group, size, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_GROUP_SIZE = mpi_group_size_f +#pragma weak mpi_group_size = mpi_group_size_f +#pragma weak mpi_group_size_ = mpi_group_size_f +#pragma weak mpi_group_size__ = mpi_group_size_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_GROUP_SIZE, + mpi_group_size, + mpi_group_size_, + mpi_group_size__, + mpi_group_size_f, + (MPI_Fint *group, MPI_Fint *size, MPI_Fint *ierr), + (group, size, ierr) ) +#endif + +void mpi_group_size_f(MPI_Fint *group, MPI_Fint *size, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/group_translate_ranks_f.c b/src/mpi/f77/group_translate_ranks_f.c new file mode 100644 index 0000000000..2b914ecd93 --- /dev/null +++ b/src/mpi/f77/group_translate_ranks_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_GROUP_TRANSLATE_RANKS = mpi_group_translate_ranks_f +#pragma weak pmpi_group_translate_ranks = mpi_group_translate_ranks_f +#pragma weak pmpi_group_translate_ranks_ = mpi_group_translate_ranks_f +#pragma weak pmpi_group_translate_ranks__ = mpi_group_translate_ranks_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_GROUP_TRANSLATE_RANKS, + pmpi_group_translate_ranks, + pmpi_group_translate_ranks_, + pmpi_group_translate_ranks__, + pmpi_group_translate_ranks_f, + (MPI_Fint *group1, MPI_Fint *n, MPI_Fint *ranks1, MPI_Fint *group2, MPI_Fint *ranks2, MPI_Fint *ierr), + (group1, n, ranks1, group2, ranks2, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_GROUP_TRANSLATE_RANKS = mpi_group_translate_ranks_f +#pragma weak mpi_group_translate_ranks = mpi_group_translate_ranks_f +#pragma weak mpi_group_translate_ranks_ = mpi_group_translate_ranks_f +#pragma weak mpi_group_translate_ranks__ = mpi_group_translate_ranks_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_GROUP_TRANSLATE_RANKS, + mpi_group_translate_ranks, + mpi_group_translate_ranks_, + mpi_group_translate_ranks__, + mpi_group_translate_ranks_f, + (MPI_Fint *group1, MPI_Fint *n, MPI_Fint *ranks1, MPI_Fint *group2, MPI_Fint *ranks2, MPI_Fint *ierr), + (group1, n, ranks1, group2, ranks2, ierr) ) +#endif + +void mpi_group_translate_ranks_f(MPI_Fint *group1, MPI_Fint *n, MPI_Fint *ranks1, MPI_Fint *group2, MPI_Fint *ranks2, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/group_union_f.c b/src/mpi/f77/group_union_f.c new file mode 100644 index 0000000000..630469306c --- /dev/null +++ b/src/mpi/f77/group_union_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_GROUP_UNION = mpi_group_union_f +#pragma weak pmpi_group_union = mpi_group_union_f +#pragma weak pmpi_group_union_ = mpi_group_union_f +#pragma weak pmpi_group_union__ = mpi_group_union_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_GROUP_UNION, + pmpi_group_union, + pmpi_group_union_, + pmpi_group_union__, + pmpi_group_union_f, + (MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr), + (group1, group2, newgroup, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_GROUP_UNION = mpi_group_union_f +#pragma weak mpi_group_union = mpi_group_union_f +#pragma weak mpi_group_union_ = mpi_group_union_f +#pragma weak mpi_group_union__ = mpi_group_union_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_GROUP_UNION, + mpi_group_union, + mpi_group_union_, + mpi_group_union__, + mpi_group_union_f, + (MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr), + (group1, group2, newgroup, ierr) ) +#endif + +void mpi_group_union_f(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/ibsend_f.c b/src/mpi/f77/ibsend_f.c new file mode 100644 index 0000000000..05b7fcdf1f --- /dev/null +++ b/src/mpi/f77/ibsend_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_IBSEND = mpi_ibsend_f +#pragma weak pmpi_ibsend = mpi_ibsend_f +#pragma weak pmpi_ibsend_ = mpi_ibsend_f +#pragma weak pmpi_ibsend__ = mpi_ibsend_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_IBSEND, + pmpi_ibsend, + pmpi_ibsend_, + pmpi_ibsend__, + pmpi_ibsend_f, + (char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr), + (buf, count, datatype, dest, tag, comm, request, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_IBSEND = mpi_ibsend_f +#pragma weak mpi_ibsend = mpi_ibsend_f +#pragma weak mpi_ibsend_ = mpi_ibsend_f +#pragma weak mpi_ibsend__ = mpi_ibsend_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_IBSEND, + mpi_ibsend, + mpi_ibsend_, + mpi_ibsend__, + mpi_ibsend_f, + (char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr), + (buf, count, datatype, dest, tag, comm, request, ierr) ) +#endif + +void mpi_ibsend_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/info_create_f.c b/src/mpi/f77/info_create_f.c new file mode 100644 index 0000000000..ff2aa05ba0 --- /dev/null +++ b/src/mpi/f77/info_create_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_INFO_CREATE = mpi_info_create_f +#pragma weak pmpi_info_create = mpi_info_create_f +#pragma weak pmpi_info_create_ = mpi_info_create_f +#pragma weak pmpi_info_create__ = mpi_info_create_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_INFO_CREATE, + pmpi_info_create, + pmpi_info_create_, + pmpi_info_create__, + pmpi_info_create_f, + (MPI_Fint *info, MPI_Fint *ierr), + (info, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_INFO_CREATE = mpi_info_create_f +#pragma weak mpi_info_create = mpi_info_create_f +#pragma weak mpi_info_create_ = mpi_info_create_f +#pragma weak mpi_info_create__ = mpi_info_create_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_INFO_CREATE, + mpi_info_create, + mpi_info_create_, + mpi_info_create__, + mpi_info_create_f, + (MPI_Fint *info, MPI_Fint *ierr), + (info, ierr) ) +#endif + +void mpi_info_create_f(MPI_Fint *info, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/info_delete_f.c b/src/mpi/f77/info_delete_f.c new file mode 100644 index 0000000000..e34b39ab99 --- /dev/null +++ b/src/mpi/f77/info_delete_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_INFO_DELETE = mpi_info_delete_f +#pragma weak pmpi_info_delete = mpi_info_delete_f +#pragma weak pmpi_info_delete_ = mpi_info_delete_f +#pragma weak pmpi_info_delete__ = mpi_info_delete_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_INFO_DELETE, + pmpi_info_delete, + pmpi_info_delete_, + pmpi_info_delete__, + pmpi_info_delete_f, + (MPI_Fint *info, char *key, MPI_Fint *ierr), + (info, key, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_INFO_DELETE = mpi_info_delete_f +#pragma weak mpi_info_delete = mpi_info_delete_f +#pragma weak mpi_info_delete_ = mpi_info_delete_f +#pragma weak mpi_info_delete__ = mpi_info_delete_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_INFO_DELETE, + mpi_info_delete, + mpi_info_delete_, + mpi_info_delete__, + mpi_info_delete_f, + (MPI_Fint *info, char *key, MPI_Fint *ierr), + (info, key, ierr) ) +#endif + +void mpi_info_delete_f(MPI_Fint *info, char *key, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/info_dup_f.c b/src/mpi/f77/info_dup_f.c new file mode 100644 index 0000000000..049e9dbc0a --- /dev/null +++ b/src/mpi/f77/info_dup_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_INFO_DUP = mpi_info_dup_f +#pragma weak pmpi_info_dup = mpi_info_dup_f +#pragma weak pmpi_info_dup_ = mpi_info_dup_f +#pragma weak pmpi_info_dup__ = mpi_info_dup_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_INFO_DUP, + pmpi_info_dup, + pmpi_info_dup_, + pmpi_info_dup__, + pmpi_info_dup_f, + (MPI_Fint *info, MPI_Fint *newinfo, MPI_Fint *ierr), + (info, newinfo, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_INFO_DUP = mpi_info_dup_f +#pragma weak mpi_info_dup = mpi_info_dup_f +#pragma weak mpi_info_dup_ = mpi_info_dup_f +#pragma weak mpi_info_dup__ = mpi_info_dup_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_INFO_DUP, + mpi_info_dup, + mpi_info_dup_, + mpi_info_dup__, + mpi_info_dup_f, + (MPI_Fint *info, MPI_Fint *newinfo, MPI_Fint *ierr), + (info, newinfo, ierr) ) +#endif + +void mpi_info_dup_f(MPI_Fint *info, MPI_Fint *newinfo, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/info_free_f.c b/src/mpi/f77/info_free_f.c new file mode 100644 index 0000000000..d5fd8e08af --- /dev/null +++ b/src/mpi/f77/info_free_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_INFO_FREE = mpi_info_free_f +#pragma weak pmpi_info_free = mpi_info_free_f +#pragma weak pmpi_info_free_ = mpi_info_free_f +#pragma weak pmpi_info_free__ = mpi_info_free_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_INFO_FREE, + pmpi_info_free, + pmpi_info_free_, + pmpi_info_free__, + pmpi_info_free_f, + (MPI_Fint *info, MPI_Fint *ierr), + (info, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_INFO_FREE = mpi_info_free_f +#pragma weak mpi_info_free = mpi_info_free_f +#pragma weak mpi_info_free_ = mpi_info_free_f +#pragma weak mpi_info_free__ = mpi_info_free_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_INFO_FREE, + mpi_info_free, + mpi_info_free_, + mpi_info_free__, + mpi_info_free_f, + (MPI_Fint *info, MPI_Fint *ierr), + (info, ierr) ) +#endif + +void mpi_info_free_f(MPI_Fint *info, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/info_get_f.c b/src/mpi/f77/info_get_f.c new file mode 100644 index 0000000000..49758f8624 --- /dev/null +++ b/src/mpi/f77/info_get_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_INFO_GET = mpi_info_get_f +#pragma weak pmpi_info_get = mpi_info_get_f +#pragma weak pmpi_info_get_ = mpi_info_get_f +#pragma weak pmpi_info_get__ = mpi_info_get_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_INFO_GET, + pmpi_info_get, + pmpi_info_get_, + pmpi_info_get__, + pmpi_info_get_f, + (MPI_Fint *info, char *key, MPI_Fint *valuelen, char *value, MPI_Fint *flag, MPI_Fint *ierr), + (info, key, valuelen, value, flag, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_INFO_GET = mpi_info_get_f +#pragma weak mpi_info_get = mpi_info_get_f +#pragma weak mpi_info_get_ = mpi_info_get_f +#pragma weak mpi_info_get__ = mpi_info_get_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_INFO_GET, + mpi_info_get, + mpi_info_get_, + mpi_info_get__, + mpi_info_get_f, + (MPI_Fint *info, char *key, MPI_Fint *valuelen, char *value, MPI_Fint *flag, MPI_Fint *ierr), + (info, key, valuelen, value, flag, ierr) ) +#endif + +void mpi_info_get_f(MPI_Fint *info, char *key, MPI_Fint *valuelen, char *value, MPI_Fint *flag, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/info_get_nkeys_f.c b/src/mpi/f77/info_get_nkeys_f.c new file mode 100644 index 0000000000..f589627a86 --- /dev/null +++ b/src/mpi/f77/info_get_nkeys_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_INFO_GET_NKEYS = mpi_info_get_nkeys_f +#pragma weak pmpi_info_get_nkeys = mpi_info_get_nkeys_f +#pragma weak pmpi_info_get_nkeys_ = mpi_info_get_nkeys_f +#pragma weak pmpi_info_get_nkeys__ = mpi_info_get_nkeys_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_INFO_GET_NKEYS, + pmpi_info_get_nkeys, + pmpi_info_get_nkeys_, + pmpi_info_get_nkeys__, + pmpi_info_get_nkeys_f, + (MPI_Fint *info, MPI_Fint *nkeys, MPI_Fint *ierr), + (info, nkeys, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_INFO_GET_NKEYS = mpi_info_get_nkeys_f +#pragma weak mpi_info_get_nkeys = mpi_info_get_nkeys_f +#pragma weak mpi_info_get_nkeys_ = mpi_info_get_nkeys_f +#pragma weak mpi_info_get_nkeys__ = mpi_info_get_nkeys_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_INFO_GET_NKEYS, + mpi_info_get_nkeys, + mpi_info_get_nkeys_, + mpi_info_get_nkeys__, + mpi_info_get_nkeys_f, + (MPI_Fint *info, MPI_Fint *nkeys, MPI_Fint *ierr), + (info, nkeys, ierr) ) +#endif + +void mpi_info_get_nkeys_f(MPI_Fint *info, MPI_Fint *nkeys, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/info_get_nthkey_f.c b/src/mpi/f77/info_get_nthkey_f.c new file mode 100644 index 0000000000..ed0d006272 --- /dev/null +++ b/src/mpi/f77/info_get_nthkey_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_INFO_GET_NTHKEY = mpi_info_get_nthkey_f +#pragma weak pmpi_info_get_nthkey = mpi_info_get_nthkey_f +#pragma weak pmpi_info_get_nthkey_ = mpi_info_get_nthkey_f +#pragma weak pmpi_info_get_nthkey__ = mpi_info_get_nthkey_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_INFO_GET_NTHKEY, + pmpi_info_get_nthkey, + pmpi_info_get_nthkey_, + pmpi_info_get_nthkey__, + pmpi_info_get_nthkey_f, + (MPI_Fint *info, MPI_Fint *n, char *key, MPI_Fint *ierr), + (info, n, key, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_INFO_GET_NTHKEY = mpi_info_get_nthkey_f +#pragma weak mpi_info_get_nthkey = mpi_info_get_nthkey_f +#pragma weak mpi_info_get_nthkey_ = mpi_info_get_nthkey_f +#pragma weak mpi_info_get_nthkey__ = mpi_info_get_nthkey_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_INFO_GET_NTHKEY, + mpi_info_get_nthkey, + mpi_info_get_nthkey_, + mpi_info_get_nthkey__, + mpi_info_get_nthkey_f, + (MPI_Fint *info, MPI_Fint *n, char *key, MPI_Fint *ierr), + (info, n, key, ierr) ) +#endif + +void mpi_info_get_nthkey_f(MPI_Fint *info, MPI_Fint *n, char *key, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/info_get_valuelen_f.c b/src/mpi/f77/info_get_valuelen_f.c new file mode 100644 index 0000000000..e08abf011a --- /dev/null +++ b/src/mpi/f77/info_get_valuelen_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_INFO_GET_VALUELEN = mpi_info_get_valuelen_f +#pragma weak pmpi_info_get_valuelen = mpi_info_get_valuelen_f +#pragma weak pmpi_info_get_valuelen_ = mpi_info_get_valuelen_f +#pragma weak pmpi_info_get_valuelen__ = mpi_info_get_valuelen_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_INFO_GET_VALUELEN, + pmpi_info_get_valuelen, + pmpi_info_get_valuelen_, + pmpi_info_get_valuelen__, + pmpi_info_get_valuelen_f, + (MPI_Fint *info, char *key, MPI_Fint *valuelen, MPI_Fint *flag, MPI_Fint *ierr), + (info, key, valuelen, flag, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_INFO_GET_VALUELEN = mpi_info_get_valuelen_f +#pragma weak mpi_info_get_valuelen = mpi_info_get_valuelen_f +#pragma weak mpi_info_get_valuelen_ = mpi_info_get_valuelen_f +#pragma weak mpi_info_get_valuelen__ = mpi_info_get_valuelen_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_INFO_GET_VALUELEN, + mpi_info_get_valuelen, + mpi_info_get_valuelen_, + mpi_info_get_valuelen__, + mpi_info_get_valuelen_f, + (MPI_Fint *info, char *key, MPI_Fint *valuelen, MPI_Fint *flag, MPI_Fint *ierr), + (info, key, valuelen, flag, ierr) ) +#endif + +void mpi_info_get_valuelen_f(MPI_Fint *info, char *key, MPI_Fint *valuelen, MPI_Fint *flag, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/info_set_f.c b/src/mpi/f77/info_set_f.c new file mode 100644 index 0000000000..678835f128 --- /dev/null +++ b/src/mpi/f77/info_set_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_INFO_SET = mpi_info_set_f +#pragma weak pmpi_info_set = mpi_info_set_f +#pragma weak pmpi_info_set_ = mpi_info_set_f +#pragma weak pmpi_info_set__ = mpi_info_set_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_INFO_SET, + pmpi_info_set, + pmpi_info_set_, + pmpi_info_set__, + pmpi_info_set_f, + (MPI_Fint *info, char *key, char *value, MPI_Fint *ierr), + (info, key, value, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_INFO_SET = mpi_info_set_f +#pragma weak mpi_info_set = mpi_info_set_f +#pragma weak mpi_info_set_ = mpi_info_set_f +#pragma weak mpi_info_set__ = mpi_info_set_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_INFO_SET, + mpi_info_set, + mpi_info_set_, + mpi_info_set__, + mpi_info_set_f, + (MPI_Fint *info, char *key, char *value, MPI_Fint *ierr), + (info, key, value, ierr) ) +#endif + +void mpi_info_set_f(MPI_Fint *info, char *key, char *value, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/init_f.c b/src/mpi/f77/init_f.c index 9b03d9edd4..6b92abffa0 100644 --- a/src/mpi/f77/init_f.c +++ b/src/mpi/f77/init_f.c @@ -9,7 +9,6 @@ #include "mpi.h" #include "mpi/f77/bindings.h" - #if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER #pragma weak PMPI_INIT = mpi_init_f #pragma weak pmpi_init = mpi_init_f @@ -17,12 +16,12 @@ #pragma weak pmpi_init__ = mpi_init_f #elif LAM_PROFILE_LAYER LAM_GENERATE_F77_BINDINGS (PMPI_INIT, - pmpi_init, - pmpi_init_, - pmpi_init__, - pmpi_init_f, - (MPI_Fint *ierror), - (ierror)) + pmpi_init, + pmpi_init_, + pmpi_init__, + pmpi_init_f, + (MPI_Fint *argc, char *argv, MPI_Fint *ierr), + (argc, argv, ierr) ) #endif #if LAM_HAVE_WEAK_SYMBOLS @@ -32,19 +31,17 @@ LAM_GENERATE_F77_BINDINGS (PMPI_INIT, #pragma weak mpi_init__ = mpi_init_f #endif -#if ! LAM_PROFILE_LAYER && ! LAM_HAVE_WEAK_SYMBOLS +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER LAM_GENERATE_F77_BINDINGS (MPI_INIT, - mpi_init, - mpi_init_, - mpi_init__, - mpi_init_f, - (MPI_Fint *ierror), - (ierror)) + mpi_init, + mpi_init_, + mpi_init__, + mpi_init_f, + (MPI_Fint *argc, char *argv, MPI_Fint *ierr), + (argc, argv, ierr) ) #endif - -void -mpi_init_f(MPI_Fint *ierror) +void mpi_init_f(MPI_Fint *argc, char *argv, MPI_Fint *ierr) { - *ierror = MPI_Init(NULL, NULL); + } diff --git a/src/mpi/f77/init_thread_f.c b/src/mpi/f77/init_thread_f.c new file mode 100644 index 0000000000..e8ce576016 --- /dev/null +++ b/src/mpi/f77/init_thread_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_INIT_THREAD = mpi_init_thread_f +#pragma weak pmpi_init_thread = mpi_init_thread_f +#pragma weak pmpi_init_thread_ = mpi_init_thread_f +#pragma weak pmpi_init_thread__ = mpi_init_thread_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_INIT_THREAD, + pmpi_init_thread, + pmpi_init_thread_, + pmpi_init_thread__, + pmpi_init_thread_f, + (MPI_Fint *argc, char *argv, MPI_Fint *required, MPI_Fint *provided, MPI_Fint *ierr), + (argc, argv, required, provided, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_INIT_THREAD = mpi_init_thread_f +#pragma weak mpi_init_thread = mpi_init_thread_f +#pragma weak mpi_init_thread_ = mpi_init_thread_f +#pragma weak mpi_init_thread__ = mpi_init_thread_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_INIT_THREAD, + mpi_init_thread, + mpi_init_thread_, + mpi_init_thread__, + mpi_init_thread_f, + (MPI_Fint *argc, char *argv, MPI_Fint *required, MPI_Fint *provided, MPI_Fint *ierr), + (argc, argv, required, provided, ierr) ) +#endif + +void mpi_init_thread_f(MPI_Fint *argc, char *argv, MPI_Fint *required, MPI_Fint *provided, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/initialized_f.c b/src/mpi/f77/initialized_f.c new file mode 100644 index 0000000000..f4dd356e9a --- /dev/null +++ b/src/mpi/f77/initialized_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_INITIALIZED = mpi_initialized_f +#pragma weak pmpi_initialized = mpi_initialized_f +#pragma weak pmpi_initialized_ = mpi_initialized_f +#pragma weak pmpi_initialized__ = mpi_initialized_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_INITIALIZED, + pmpi_initialized, + pmpi_initialized_, + pmpi_initialized__, + pmpi_initialized_f, + (MPI_Fint *flag, MPI_Fint *ierr), + (flag, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_INITIALIZED = mpi_initialized_f +#pragma weak mpi_initialized = mpi_initialized_f +#pragma weak mpi_initialized_ = mpi_initialized_f +#pragma weak mpi_initialized__ = mpi_initialized_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_INITIALIZED, + mpi_initialized, + mpi_initialized_, + mpi_initialized__, + mpi_initialized_f, + (MPI_Fint *flag, MPI_Fint *ierr), + (flag, ierr) ) +#endif + +void mpi_initialized_f(MPI_Fint *flag, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/intercomm_create_f.c b/src/mpi/f77/intercomm_create_f.c new file mode 100644 index 0000000000..63549b2a55 --- /dev/null +++ b/src/mpi/f77/intercomm_create_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_INTERCOMM_CREATE = mpi_intercomm_create_f +#pragma weak pmpi_intercomm_create = mpi_intercomm_create_f +#pragma weak pmpi_intercomm_create_ = mpi_intercomm_create_f +#pragma weak pmpi_intercomm_create__ = mpi_intercomm_create_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_INTERCOMM_CREATE, + pmpi_intercomm_create, + pmpi_intercomm_create_, + pmpi_intercomm_create__, + pmpi_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), + (local_comm, local_leader, bridge_comm, remote_leader, tag, newintercomm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_INTERCOMM_CREATE = mpi_intercomm_create_f +#pragma weak mpi_intercomm_create = mpi_intercomm_create_f +#pragma weak mpi_intercomm_create_ = mpi_intercomm_create_f +#pragma weak mpi_intercomm_create__ = mpi_intercomm_create_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_INTERCOMM_CREATE, + mpi_intercomm_create, + mpi_intercomm_create_, + mpi_intercomm_create__, + 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), + (local_comm, local_leader, bridge_comm, remote_leader, tag, newintercomm, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/intercomm_merge_f.c b/src/mpi/f77/intercomm_merge_f.c new file mode 100644 index 0000000000..a07929b0ad --- /dev/null +++ b/src/mpi/f77/intercomm_merge_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_INTERCOMM_MERGE = mpi_intercomm_merge_f +#pragma weak pmpi_intercomm_merge = mpi_intercomm_merge_f +#pragma weak pmpi_intercomm_merge_ = mpi_intercomm_merge_f +#pragma weak pmpi_intercomm_merge__ = mpi_intercomm_merge_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_INTERCOMM_MERGE, + pmpi_intercomm_merge, + pmpi_intercomm_merge_, + pmpi_intercomm_merge__, + pmpi_intercomm_merge_f, + (MPI_Fint *intercomm, MPI_Fint *high, MPI_Fint *newintercomm, MPI_Fint *ierr), + (intercomm, high, newintercomm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_INTERCOMM_MERGE = mpi_intercomm_merge_f +#pragma weak mpi_intercomm_merge = mpi_intercomm_merge_f +#pragma weak mpi_intercomm_merge_ = mpi_intercomm_merge_f +#pragma weak mpi_intercomm_merge__ = mpi_intercomm_merge_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_INTERCOMM_MERGE, + mpi_intercomm_merge, + mpi_intercomm_merge_, + mpi_intercomm_merge__, + mpi_intercomm_merge_f, + (MPI_Fint *intercomm, MPI_Fint *high, MPI_Fint *newintercomm, MPI_Fint *ierr), + (intercomm, high, newintercomm, ierr) ) +#endif + +void mpi_intercomm_merge_f(MPI_Fint *intercomm, MPI_Fint *high, MPI_Fint *newintercomm, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/iprobe_f.c b/src/mpi/f77/iprobe_f.c new file mode 100644 index 0000000000..881208cf2c --- /dev/null +++ b/src/mpi/f77/iprobe_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_IPROBE = mpi_iprobe_f +#pragma weak pmpi_iprobe = mpi_iprobe_f +#pragma weak pmpi_iprobe_ = mpi_iprobe_f +#pragma weak pmpi_iprobe__ = mpi_iprobe_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_IPROBE, + pmpi_iprobe, + pmpi_iprobe_, + pmpi_iprobe__, + pmpi_iprobe_f, + (MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr), + (source, tag, comm, flag, status, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_IPROBE = mpi_iprobe_f +#pragma weak mpi_iprobe = mpi_iprobe_f +#pragma weak mpi_iprobe_ = mpi_iprobe_f +#pragma weak mpi_iprobe__ = mpi_iprobe_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_IPROBE, + mpi_iprobe, + mpi_iprobe_, + mpi_iprobe__, + mpi_iprobe_f, + (MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr), + (source, tag, comm, flag, status, ierr) ) +#endif + +void mpi_iprobe_f(MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/irecv_f.c b/src/mpi/f77/irecv_f.c new file mode 100644 index 0000000000..7c90d014f4 --- /dev/null +++ b/src/mpi/f77/irecv_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_IRECV = mpi_irecv_f +#pragma weak pmpi_irecv = mpi_irecv_f +#pragma weak pmpi_irecv_ = mpi_irecv_f +#pragma weak pmpi_irecv__ = mpi_irecv_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_IRECV, + pmpi_irecv, + pmpi_irecv_, + pmpi_irecv__, + pmpi_irecv_f, + (char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr), + (buf, count, datatype, source, tag, comm, request, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_IRECV = mpi_irecv_f +#pragma weak mpi_irecv = mpi_irecv_f +#pragma weak mpi_irecv_ = mpi_irecv_f +#pragma weak mpi_irecv__ = mpi_irecv_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_IRECV, + mpi_irecv, + mpi_irecv_, + mpi_irecv__, + mpi_irecv_f, + (char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr), + (buf, count, datatype, source, tag, comm, request, ierr) ) +#endif + +void mpi_irecv_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/irsend_f.c b/src/mpi/f77/irsend_f.c new file mode 100644 index 0000000000..9b1f3cf3c2 --- /dev/null +++ b/src/mpi/f77/irsend_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_IRSEND = mpi_irsend_f +#pragma weak pmpi_irsend = mpi_irsend_f +#pragma weak pmpi_irsend_ = mpi_irsend_f +#pragma weak pmpi_irsend__ = mpi_irsend_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_IRSEND, + pmpi_irsend, + pmpi_irsend_, + pmpi_irsend__, + pmpi_irsend_f, + (char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr), + (buf, count, datatype, dest, tag, comm, request, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_IRSEND = mpi_irsend_f +#pragma weak mpi_irsend = mpi_irsend_f +#pragma weak mpi_irsend_ = mpi_irsend_f +#pragma weak mpi_irsend__ = mpi_irsend_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_IRSEND, + mpi_irsend, + mpi_irsend_, + mpi_irsend__, + mpi_irsend_f, + (char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr), + (buf, count, datatype, dest, tag, comm, request, ierr) ) +#endif + +void mpi_irsend_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/is_thread_main_f.c b/src/mpi/f77/is_thread_main_f.c new file mode 100644 index 0000000000..b4712dadef --- /dev/null +++ b/src/mpi/f77/is_thread_main_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_IS_THREAD_MAIN = mpi_is_thread_main_f +#pragma weak pmpi_is_thread_main = mpi_is_thread_main_f +#pragma weak pmpi_is_thread_main_ = mpi_is_thread_main_f +#pragma weak pmpi_is_thread_main__ = mpi_is_thread_main_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_IS_THREAD_MAIN, + pmpi_is_thread_main, + pmpi_is_thread_main_, + pmpi_is_thread_main__, + pmpi_is_thread_main_f, + (MPI_Fint *flag, MPI_Fint *ierr), + (flag, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_IS_THREAD_MAIN = mpi_is_thread_main_f +#pragma weak mpi_is_thread_main = mpi_is_thread_main_f +#pragma weak mpi_is_thread_main_ = mpi_is_thread_main_f +#pragma weak mpi_is_thread_main__ = mpi_is_thread_main_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_IS_THREAD_MAIN, + mpi_is_thread_main, + mpi_is_thread_main_, + mpi_is_thread_main__, + mpi_is_thread_main_f, + (MPI_Fint *flag, MPI_Fint *ierr), + (flag, ierr) ) +#endif + +void mpi_is_thread_main_f(MPI_Fint *flag, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/isend_f.c b/src/mpi/f77/isend_f.c new file mode 100644 index 0000000000..c1efde3bef --- /dev/null +++ b/src/mpi/f77/isend_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_ISEND = mpi_isend_f +#pragma weak pmpi_isend = mpi_isend_f +#pragma weak pmpi_isend_ = mpi_isend_f +#pragma weak pmpi_isend__ = mpi_isend_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_ISEND, + pmpi_isend, + pmpi_isend_, + pmpi_isend__, + pmpi_isend_f, + (char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr), + (buf, count, datatype, dest, tag, comm, request, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_ISEND = mpi_isend_f +#pragma weak mpi_isend = mpi_isend_f +#pragma weak mpi_isend_ = mpi_isend_f +#pragma weak mpi_isend__ = mpi_isend_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_ISEND, + mpi_isend, + mpi_isend_, + mpi_isend__, + mpi_isend_f, + (char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr), + (buf, count, datatype, dest, tag, comm, request, ierr) ) +#endif + +void mpi_isend_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/issend_f.c b/src/mpi/f77/issend_f.c new file mode 100644 index 0000000000..916f90a536 --- /dev/null +++ b/src/mpi/f77/issend_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_ISSEND = mpi_issend_f +#pragma weak pmpi_issend = mpi_issend_f +#pragma weak pmpi_issend_ = mpi_issend_f +#pragma weak pmpi_issend__ = mpi_issend_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_ISSEND, + pmpi_issend, + pmpi_issend_, + pmpi_issend__, + pmpi_issend_f, + (char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr), + (buf, count, datatype, dest, tag, comm, request, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_ISSEND = mpi_issend_f +#pragma weak mpi_issend = mpi_issend_f +#pragma weak mpi_issend_ = mpi_issend_f +#pragma weak mpi_issend__ = mpi_issend_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_ISSEND, + mpi_issend, + mpi_issend_, + mpi_issend__, + mpi_issend_f, + (char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr), + (buf, count, datatype, dest, tag, comm, request, ierr) ) +#endif + +void mpi_issend_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/keyval_create_f.c b/src/mpi/f77/keyval_create_f.c new file mode 100644 index 0000000000..621b4e5be0 --- /dev/null +++ b/src/mpi/f77/keyval_create_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_KEYVAL_CREATE = mpi_keyval_create_f +#pragma weak pmpi_keyval_create = mpi_keyval_create_f +#pragma weak pmpi_keyval_create_ = mpi_keyval_create_f +#pragma weak pmpi_keyval_create__ = mpi_keyval_create_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_KEYVAL_CREATE, + pmpi_keyval_create, + pmpi_keyval_create_, + pmpi_keyval_create__, + pmpi_keyval_create_f, + (MPI_Fint *copy_fn, MPI_Fint *delete_fn, MPI_Fint *keyval, char *extra_state, MPI_Fint *ierr), + (copy_fn, delete_fn, keyval, extra_state, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_KEYVAL_CREATE = mpi_keyval_create_f +#pragma weak mpi_keyval_create = mpi_keyval_create_f +#pragma weak mpi_keyval_create_ = mpi_keyval_create_f +#pragma weak mpi_keyval_create__ = mpi_keyval_create_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_KEYVAL_CREATE, + mpi_keyval_create, + mpi_keyval_create_, + mpi_keyval_create__, + mpi_keyval_create_f, + (MPI_Fint *copy_fn, MPI_Fint *delete_fn, MPI_Fint *keyval, char *extra_state, MPI_Fint *ierr), + (copy_fn, delete_fn, keyval, extra_state, ierr) ) +#endif + +void mpi_keyval_create_f(MPI_Fint *copy_fn, MPI_Fint *delete_fn, MPI_Fint *keyval, char *extra_state, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/keyval_free_f.c b/src/mpi/f77/keyval_free_f.c new file mode 100644 index 0000000000..91f6b38910 --- /dev/null +++ b/src/mpi/f77/keyval_free_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_KEYVAL_FREE = mpi_keyval_free_f +#pragma weak pmpi_keyval_free = mpi_keyval_free_f +#pragma weak pmpi_keyval_free_ = mpi_keyval_free_f +#pragma weak pmpi_keyval_free__ = mpi_keyval_free_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_KEYVAL_FREE, + pmpi_keyval_free, + pmpi_keyval_free_, + pmpi_keyval_free__, + pmpi_keyval_free_f, + (MPI_Fint *keyval, MPI_Fint *ierr), + (keyval, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_KEYVAL_FREE = mpi_keyval_free_f +#pragma weak mpi_keyval_free = mpi_keyval_free_f +#pragma weak mpi_keyval_free_ = mpi_keyval_free_f +#pragma weak mpi_keyval_free__ = mpi_keyval_free_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_KEYVAL_FREE, + mpi_keyval_free, + mpi_keyval_free_, + mpi_keyval_free__, + mpi_keyval_free_f, + (MPI_Fint *keyval, MPI_Fint *ierr), + (keyval, ierr) ) +#endif + +void mpi_keyval_free_f(MPI_Fint *keyval, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/lookup_name_f.c b/src/mpi/f77/lookup_name_f.c new file mode 100644 index 0000000000..b4ab562e6c --- /dev/null +++ b/src/mpi/f77/lookup_name_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_LOOKUP_NAME = mpi_lookup_name_f +#pragma weak pmpi_lookup_name = mpi_lookup_name_f +#pragma weak pmpi_lookup_name_ = mpi_lookup_name_f +#pragma weak pmpi_lookup_name__ = mpi_lookup_name_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_LOOKUP_NAME, + pmpi_lookup_name, + pmpi_lookup_name_, + pmpi_lookup_name__, + pmpi_lookup_name_f, + (char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr), + (service_name, info, port_name, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_LOOKUP_NAME = mpi_lookup_name_f +#pragma weak mpi_lookup_name = mpi_lookup_name_f +#pragma weak mpi_lookup_name_ = mpi_lookup_name_f +#pragma weak mpi_lookup_name__ = mpi_lookup_name_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_LOOKUP_NAME, + mpi_lookup_name, + mpi_lookup_name_, + mpi_lookup_name__, + mpi_lookup_name_f, + (char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr), + (service_name, info, port_name, ierr) ) +#endif + +void mpi_lookup_name_f(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/op_create_f.c b/src/mpi/f77/op_create_f.c new file mode 100644 index 0000000000..aef92b0c50 --- /dev/null +++ b/src/mpi/f77/op_create_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_OP_CREATE = mpi_op_create_f +#pragma weak pmpi_op_create = mpi_op_create_f +#pragma weak pmpi_op_create_ = mpi_op_create_f +#pragma weak pmpi_op_create__ = mpi_op_create_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_OP_CREATE, + pmpi_op_create, + pmpi_op_create_, + pmpi_op_create__, + pmpi_op_create_f, + (MPI_Fint *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr), + (function, commute, op, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_OP_CREATE = mpi_op_create_f +#pragma weak mpi_op_create = mpi_op_create_f +#pragma weak mpi_op_create_ = mpi_op_create_f +#pragma weak mpi_op_create__ = mpi_op_create_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_OP_CREATE, + mpi_op_create, + mpi_op_create_, + mpi_op_create__, + mpi_op_create_f, + (MPI_Fint *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr), + (function, commute, op, ierr) ) +#endif + +void mpi_op_create_f(MPI_Fint *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/op_free_f.c b/src/mpi/f77/op_free_f.c new file mode 100644 index 0000000000..8a9a884f83 --- /dev/null +++ b/src/mpi/f77/op_free_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_OP_FREE = mpi_op_free_f +#pragma weak pmpi_op_free = mpi_op_free_f +#pragma weak pmpi_op_free_ = mpi_op_free_f +#pragma weak pmpi_op_free__ = mpi_op_free_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_OP_FREE, + pmpi_op_free, + pmpi_op_free_, + pmpi_op_free__, + pmpi_op_free_f, + (MPI_Fint *op, MPI_Fint *ierr), + (op, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_OP_FREE = mpi_op_free_f +#pragma weak mpi_op_free = mpi_op_free_f +#pragma weak mpi_op_free_ = mpi_op_free_f +#pragma weak mpi_op_free__ = mpi_op_free_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_OP_FREE, + mpi_op_free, + mpi_op_free_, + mpi_op_free__, + mpi_op_free_f, + (MPI_Fint *op, MPI_Fint *ierr), + (op, ierr) ) +#endif + +void mpi_op_free_f(MPI_Fint *op, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/open_port_f.c b/src/mpi/f77/open_port_f.c new file mode 100644 index 0000000000..a31d5891d6 --- /dev/null +++ b/src/mpi/f77/open_port_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_OPEN_PORT = mpi_open_port_f +#pragma weak pmpi_open_port = mpi_open_port_f +#pragma weak pmpi_open_port_ = mpi_open_port_f +#pragma weak pmpi_open_port__ = mpi_open_port_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_OPEN_PORT, + pmpi_open_port, + pmpi_open_port_, + pmpi_open_port__, + pmpi_open_port_f, + (MPI_Fint *info, char *port_name, MPI_Fint *ierr), + (info, port_name, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_OPEN_PORT = mpi_open_port_f +#pragma weak mpi_open_port = mpi_open_port_f +#pragma weak mpi_open_port_ = mpi_open_port_f +#pragma weak mpi_open_port__ = mpi_open_port_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_OPEN_PORT, + mpi_open_port, + mpi_open_port_, + mpi_open_port__, + mpi_open_port_f, + (MPI_Fint *info, char *port_name, MPI_Fint *ierr), + (info, port_name, ierr) ) +#endif + +void mpi_open_port_f(MPI_Fint *info, char *port_name, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/pack_external_f.c b/src/mpi/f77/pack_external_f.c new file mode 100644 index 0000000000..e14ccf69ad --- /dev/null +++ b/src/mpi/f77/pack_external_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_PACK_EXTERNAL = mpi_pack_external_f +#pragma weak pmpi_pack_external = mpi_pack_external_f +#pragma weak pmpi_pack_external_ = mpi_pack_external_f +#pragma weak pmpi_pack_external__ = mpi_pack_external_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_PACK_EXTERNAL, + pmpi_pack_external, + pmpi_pack_external_, + pmpi_pack_external__, + pmpi_pack_external_f, + (char *datarep, char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *ierr), + (datarep, inbuf, incount, datatype, outbuf, outsize, position, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_PACK_EXTERNAL = mpi_pack_external_f +#pragma weak mpi_pack_external = mpi_pack_external_f +#pragma weak mpi_pack_external_ = mpi_pack_external_f +#pragma weak mpi_pack_external__ = mpi_pack_external_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_PACK_EXTERNAL, + mpi_pack_external, + mpi_pack_external_, + mpi_pack_external__, + mpi_pack_external_f, + (char *datarep, char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *ierr), + (datarep, inbuf, incount, datatype, outbuf, outsize, position, ierr) ) +#endif + +void mpi_pack_external_f(char *datarep, char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/pack_external_size_f.c b/src/mpi/f77/pack_external_size_f.c new file mode 100644 index 0000000000..62129eb44c --- /dev/null +++ b/src/mpi/f77/pack_external_size_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_PACK_EXTERNAL_SIZE = mpi_pack_external_size_f +#pragma weak pmpi_pack_external_size = mpi_pack_external_size_f +#pragma weak pmpi_pack_external_size_ = mpi_pack_external_size_f +#pragma weak pmpi_pack_external_size__ = mpi_pack_external_size_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_PACK_EXTERNAL_SIZE, + pmpi_pack_external_size, + pmpi_pack_external_size_, + pmpi_pack_external_size__, + pmpi_pack_external_size_f, + (char *datarep, MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *size, MPI_Fint *ierr), + (datarep, incount, datatype, size, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_PACK_EXTERNAL_SIZE = mpi_pack_external_size_f +#pragma weak mpi_pack_external_size = mpi_pack_external_size_f +#pragma weak mpi_pack_external_size_ = mpi_pack_external_size_f +#pragma weak mpi_pack_external_size__ = mpi_pack_external_size_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_PACK_EXTERNAL_SIZE, + mpi_pack_external_size, + mpi_pack_external_size_, + mpi_pack_external_size__, + mpi_pack_external_size_f, + (char *datarep, MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *size, MPI_Fint *ierr), + (datarep, incount, datatype, size, ierr) ) +#endif + +void mpi_pack_external_size_f(char *datarep, MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *size, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/pack_f.c b/src/mpi/f77/pack_f.c new file mode 100644 index 0000000000..8040c50895 --- /dev/null +++ b/src/mpi/f77/pack_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_PACK = mpi_pack_f +#pragma weak pmpi_pack = mpi_pack_f +#pragma weak pmpi_pack_ = mpi_pack_f +#pragma weak pmpi_pack__ = mpi_pack_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_PACK, + pmpi_pack, + pmpi_pack_, + pmpi_pack__, + pmpi_pack_f, + (char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *comm, MPI_Fint *ierr), + (inbuf, incount, datatype, outbuf, outsize, position, comm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_PACK = mpi_pack_f +#pragma weak mpi_pack = mpi_pack_f +#pragma weak mpi_pack_ = mpi_pack_f +#pragma weak mpi_pack__ = mpi_pack_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_PACK, + mpi_pack, + mpi_pack_, + mpi_pack__, + 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), + (inbuf, incount, datatype, outbuf, outsize, position, comm, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/pack_size_f.c b/src/mpi/f77/pack_size_f.c new file mode 100644 index 0000000000..14e7517f78 --- /dev/null +++ b/src/mpi/f77/pack_size_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_PACK_SIZE = mpi_pack_size_f +#pragma weak pmpi_pack_size = mpi_pack_size_f +#pragma weak pmpi_pack_size_ = mpi_pack_size_f +#pragma weak pmpi_pack_size__ = mpi_pack_size_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_PACK_SIZE, + pmpi_pack_size, + pmpi_pack_size_, + pmpi_pack_size__, + pmpi_pack_size_f, + (MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr), + (incount, datatype, comm, size, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_PACK_SIZE = mpi_pack_size_f +#pragma weak mpi_pack_size = mpi_pack_size_f +#pragma weak mpi_pack_size_ = mpi_pack_size_f +#pragma weak mpi_pack_size__ = mpi_pack_size_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_PACK_SIZE, + mpi_pack_size, + mpi_pack_size_, + mpi_pack_size__, + mpi_pack_size_f, + (MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr), + (incount, datatype, comm, size, ierr) ) +#endif + +void mpi_pack_size_f(MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/pcontrol_f.c b/src/mpi/f77/pcontrol_f.c new file mode 100644 index 0000000000..21a4a118f1 --- /dev/null +++ b/src/mpi/f77/pcontrol_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_PCONTROL = mpi_pcontrol_f +#pragma weak pmpi_pcontrol = mpi_pcontrol_f +#pragma weak pmpi_pcontrol_ = mpi_pcontrol_f +#pragma weak pmpi_pcontrol__ = mpi_pcontrol_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_PCONTROL, + pmpi_pcontrol, + pmpi_pcontrol_, + pmpi_pcontrol__, + pmpi_pcontrol_f, + (MPI_Fint *level), + (level) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_PCONTROL = mpi_pcontrol_f +#pragma weak mpi_pcontrol = mpi_pcontrol_f +#pragma weak mpi_pcontrol_ = mpi_pcontrol_f +#pragma weak mpi_pcontrol__ = mpi_pcontrol_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_PCONTROL, + mpi_pcontrol, + mpi_pcontrol_, + mpi_pcontrol__, + mpi_pcontrol_f, + (MPI_Fint *level), + (level) ) +#endif + +void mpi_pcontrol_f(MPI_Fint *level) +{ + +} diff --git a/src/mpi/f77/probe_f.c b/src/mpi/f77/probe_f.c new file mode 100644 index 0000000000..f795ad16dd --- /dev/null +++ b/src/mpi/f77/probe_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_PROBE = mpi_probe_f +#pragma weak pmpi_probe = mpi_probe_f +#pragma weak pmpi_probe_ = mpi_probe_f +#pragma weak pmpi_probe__ = mpi_probe_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_PROBE, + pmpi_probe, + pmpi_probe_, + pmpi_probe__, + pmpi_probe_f, + (MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr), + (source, tag, comm, status, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_PROBE = mpi_probe_f +#pragma weak mpi_probe = mpi_probe_f +#pragma weak mpi_probe_ = mpi_probe_f +#pragma weak mpi_probe__ = mpi_probe_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_PROBE, + mpi_probe, + mpi_probe_, + mpi_probe__, + mpi_probe_f, + (MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr), + (source, tag, comm, status, ierr) ) +#endif + +void mpi_probe_f(MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/profile/Makefile.am b/src/mpi/f77/profile/Makefile.am index 6f5c5b8cd2..9ed79e9d7f 100644 --- a/src/mpi/f77/profile/Makefile.am +++ b/src/mpi/f77/profile/Makefile.am @@ -17,7 +17,7 @@ AM_CPPFLAGS = -DLAM_PROFILE_LAYER=1 # Further, this build HAS to go through if profiling is required. # -if WANT_PMPI_BINDINGS_LAYER +if WANT_PMPI_F77_BINDINGS_LAYER pmpi_lib = libmpi_f77_pmpi.la else pmpi_lib = @@ -26,13 +26,289 @@ endif noinst_LTLIBRARIES = $(pmpi_lib) nodist_libmpi_f77_pmpi_la_SOURCES = \ + pabort_f.c \ + paccumulate_f.c \ + padd_error_class_f.c \ + padd_error_code_f.c \ + padd_error_string_f.c \ + paddress_f.c \ + pallgather_f.c \ + pallgatherv_f.c \ palloc_mem_f.c \ + pallreduce_f.c \ + palltoall_f.c \ + palltoallv_f.c \ + palltoallw_f.c \ + pattr_delete_f.c \ + pattr_get_f.c \ + pattr_put_f.c \ + pbarrier_f.c \ + pbcast_f.c \ + pbsend_f.c \ + pbsend_init_f.c \ + pbuffer_attach_f.c \ + pbuffer_detach_f.c \ + pcancel_f.c \ + pcart_coords_f.c \ + pcart_create_f.c \ + pcartdim_get_f.c \ + pcart_get_f.c \ + pcart_map_f.c \ + pcart_rank_f.c \ + pcart_shift_f.c \ + pcart_sub_f.c \ + pclose_port_f.c \ + pcomm_accept_f.c \ + pcomm_call_errhandler_f.c \ + pcomm_compare_f.c \ + pcomm_connect_f.c \ + pcomm_create_errhandler_f.c \ + pcomm_create_f.c \ + pcomm_create_keyval_f.c \ + pcomm_delete_attr_f.c \ + pcomm_disconnect_f.c \ + pcomm_dup_f.c \ + pcomm_free_f.c \ + pcomm_free_keyval_f.c \ + pcomm_get_attr_f.c \ + pcomm_get_errhandler_f.c \ pcomm_get_name_f.c \ + pcomm_get_parent_f.c \ + pcomm_group_f.c \ + pcomm_join_f.c \ + pcomm_rank_f.c \ + pcomm_remote_group_f.c \ + pcomm_remote_size_f.c \ + pcomm_set_attr_f.c \ + pcomm_set_errhandler_f.c \ pcomm_set_name_f.c \ - pinit_f.c \ + pcomm_size_f.c \ + pcomm_spawn_f.c \ + pcomm_spawn_multiple_f.c \ + pcomm_split_f.c \ + pcomm_test_inter_f.c \ + pdims_create_f.c \ + perrhandler_create_f.c \ + perrhandler_free_f.c \ + perrhandler_get_f.c \ + perrhandler_set_f.c \ + perror_class_f.c \ + perror_string_f.c \ + pexscan_f.c \ + pfile_call_errhandler_f.c \ + pfile_close_f.c \ + pfile_create_errhandler_f.c \ + pfile_delete_f.c \ + pfile_get_amode_f.c \ + pfile_get_atomicity_f.c \ + pfile_get_byte_offset_f.c \ + pfile_get_errhandler_f.c \ + pfile_get_group_f.c \ + pfile_get_info_f.c \ + pfile_get_position_f.c \ + pfile_get_position_shared_f.c \ + pfile_get_size_f.c \ + pfile_get_type_extent_f.c \ + pfile_get_view_f.c \ + pfile_iread_at_f.c \ + pfile_iread_f.c \ + pfile_iread_shared_f.c \ + pfile_iwrite_at_f.c \ + pfile_iwrite_f.c \ + pfile_iwrite_shared_f.c \ + pfile_open_f.c \ + pfile_preallocate_f.c \ + pfile_read_all_begin_f.c \ + pfile_read_all_end_f.c \ + pfile_read_all_f.c \ + pfile_read_at_all_begin_f.c \ + pfile_read_at_all_end_f.c \ + pfile_read_at_all_f.c \ + pfile_read_at_f.c \ + pfile_read_f.c \ + pfile_read_ordered_begin_f.c \ + pfile_read_ordered_end_f.c \ + pfile_read_ordered_f.c \ + pfile_read_shared_f.c \ + pfile_seek_f.c \ + pfile_seek_shared_f.c \ + pfile_set_atomicity_f.c \ + pfile_set_errhandler_f.c \ + pfile_set_info_f.c \ + pfile_set_size_f.c \ + pfile_set_view_f.c \ + pfile_sync_f.c \ + pfile_write_all_begin_f.c \ + pfile_write_all_end_f.c \ + pfile_write_all_f.c \ + pfile_write_at_all_begin_f.c \ + pfile_write_at_all_end_f.c \ + pfile_write_at_all_f.c \ + pfile_write_at_f.c \ + pfile_write_f.c \ + pfile_write_ordered_begin_f.c \ + pfile_write_ordered_end_f.c \ + pfile_write_ordered_f.c \ + pfile_write_shared_f.c \ + pfinalized_f.c \ pfinalize_f.c \ pfree_mem_f.c \ - pgroup_compare_f.c + pgather_f.c \ + pgatherv_f.c \ + pget_address_f.c \ + pget_count_f.c \ + pget_elements_f.c \ + pget_f.c \ + pget_processor_name_f.c \ + pget_version_f.c \ + pgraph_create_f.c \ + pgraphdims_get_f.c \ + pgraph_get_f.c \ + pgraph_map_f.c \ + pgraph_neighbors_count_f.c \ + pgraph_neighbors_f.c \ + pgrequest_complete_f.c \ + pgrequest_start_f.c \ + pgroup_compare_f.c \ + pgroup_difference_f.c \ + pgroup_excl_f.c \ + pgroup_free_f.c \ + pgroup_incl_f.c \ + pgroup_intersection_f.c \ + pgroup_range_excl_f.c \ + pgroup_range_incl_f.c \ + pgroup_rank_f.c \ + pgroup_size_f.c \ + pgroup_translate_ranks_f.c \ + pgroup_union_f.c \ + pibsend_f.c \ + pinfo_create_f.c \ + pinfo_delete_f.c \ + pinfo_dup_f.c \ + pinfo_free_f.c \ + pinfo_get_f.c \ + pinfo_get_nkeys_f.c \ + pinfo_get_nthkey_f.c \ + pinfo_get_valuelen_f.c \ + pinfo_set_f.c \ + pinit_f.c \ + pinitialized_f.c \ + pinit_thread_f.c \ + pintercomm_create_f.c \ + pintercomm_merge_f.c \ + piprobe_f.c \ + pirecv_f.c \ + pirsend_f.c \ + pisend_f.c \ + pissend_f.c \ + pis_thread_main_f.c \ + pkeyval_create_f.c \ + pkeyval_free_f.c \ + plookup_name_f.c \ + pop_create_f.c \ + popen_port_f.c \ + pop_free_f.c \ + ppack_external_f.c \ + ppack_external_size_f.c \ + ppack_f.c \ + ppack_size_f.c \ + ppcontrol_f.c \ + pprobe_f.c \ + ppublish_name_f.c \ + pput_f.c \ + pquery_thread_f.c \ + precv_f.c \ + precv_init_f.c \ + preduce_f.c \ + preduce_scatter_f.c \ + pregister_datarep_f.c \ + prequest_free_f.c \ + prequest_get_status_f.c \ + prsend_f.c \ + prsend_init_f.c \ + pscan_f.c \ + pscatter_f.c \ + pscatterv_f.c \ + psend_f.c \ + psend_init_f.c \ + psendrecv_f.c \ + psendrecv_replace_f.c \ + pssend_f.c \ + pssend_init_f.c \ + pstartall_f.c \ + pstart_f.c \ + pstatus_set_cancelled_f.c \ + pstatus_set_elements_f.c \ + ptestall_f.c \ + ptestany_f.c \ + ptest_cancelled_f.c \ + ptest_f.c \ + ptestsome_f.c \ + ptopo_test_f.c \ + ptype_commit_f.c \ + ptype_contiguous_f.c \ + ptype_create_darray_f.c \ + ptype_create_f90_complex_f.c \ + ptype_create_f90_integer_f.c \ + ptype_create_f90_real_f.c \ + ptype_create_hindexed_f.c \ + ptype_create_hvector_f.c \ + ptype_create_indexed_block_f.c \ + ptype_create_keyval_f.c \ + ptype_create_resized_f.c \ + ptype_create_struct_f.c \ + ptype_create_subarray_f.c \ + ptype_delete_attr_f.c \ + ptype_dup_f.c \ + ptype_extent_f.c \ + ptype_free_f.c \ + ptype_free_keyval_f.c \ + ptype_get_attr_f.c \ + ptype_get_contents_f.c \ + ptype_get_envelope_f.c \ + ptype_get_extent_f.c \ + ptype_get_name_f.c \ + ptype_get_true_extent_f.c \ + ptype_hindexed_f.c \ + ptype_hvector_f.c \ + ptype_indexed_f.c \ + ptype_lb_f.c \ + ptype_match_size_f.c \ + ptype_set_attr_f.c \ + ptype_set_name_f.c \ + ptype_size_f.c \ + ptype_struct_f.c \ + ptype_ub_f.c \ + ptype_vector_f.c \ + punpack_external_f.c \ + punpack_f.c \ + punpublish_name_f.c \ + pwaitall_f.c \ + pwaitany_f.c \ + pwait_f.c \ + pwaitsome_f.c \ + pwin_call_errhandler_f.c \ + pwin_complete_f.c \ + pwin_create_errhandler_f.c \ + pwin_create_f.c \ + pwin_create_keyval_f.c \ + pwin_delete_attr_f.c \ + pwin_fence_f.c \ + pwin_free_f.c \ + pwin_free_keyval_f.c \ + pwin_get_attr_f.c \ + pwin_get_errhandler_f.c \ + pwin_get_group_f.c \ + pwin_get_name_f.c \ + pwin_lock_f.c \ + pwin_post_f.c \ + pwin_set_attr_f.c \ + pwin_set_errhandler_f.c \ + pwin_set_name_f.c \ + pwin_start_f.c \ + pwin_test_f.c \ + pwin_unlock_f.c \ + pwin_wait_f.c # # Sym link in the sources from the real MPI directory # diff --git a/src/mpi/f77/profile/defines.h b/src/mpi/f77/profile/defines.h index ee51661b8f..6c5143cf82 100644 --- a/src/mpi/f77/profile/defines.h +++ b/src/mpi/f77/profile/defines.h @@ -1,16 +1,294 @@ + /* * $HEADER$ */ - #ifndef LAM_F77_PROFILE_DEFINES_H #define LAM_F77_PROFILE_DEFINES_H -#define mpi_comm_set_name_f pmpi_comm_set_name_f -#define mpi_comm_get_name_f pmpi_comm_get_name_f -#define mpi_group_compare_f pmpi_group_compare_f -#define mpi_init_f pmpi_init_f -#define mpi_finalize_f pmpi_finalize_f +#define mpi_abort_f pmpi_abort_f +#define mpi_accumulate_f pmpi_accumulate_f +#define mpi_add_error_class_f pmpi_add_error_class_f +#define mpi_add_error_code_f pmpi_add_error_code_f +#define mpi_add_error_string_f pmpi_add_error_string_f +#define mpi_address_f pmpi_address_f +#define mpi_allgather_f pmpi_allgather_f +#define mpi_allgatherv_f pmpi_allgatherv_f #define mpi_alloc_mem_f pmpi_alloc_mem_f +#define mpi_allreduce_f pmpi_allreduce_f +#define mpi_alltoall_f pmpi_alltoall_f +#define mpi_alltoallv_f pmpi_alltoallv_f +#define mpi_alltoallw_f pmpi_alltoallw_f +#define mpi_attr_delete_f pmpi_attr_delete_f +#define mpi_attr_get_f pmpi_attr_get_f +#define mpi_attr_put_f pmpi_attr_put_f +#define mpi_barrier_f pmpi_barrier_f +#define mpi_bcast_f pmpi_bcast_f +#define mpi_bsend_f pmpi_bsend_f +#define mpi_bsend_init_f pmpi_bsend_init_f +#define mpi_buffer_attach_f pmpi_buffer_attach_f +#define mpi_buffer_detach_f pmpi_buffer_detach_f +#define mpi_cancel_f pmpi_cancel_f +#define mpi_cart_coords_f pmpi_cart_coords_f +#define mpi_cart_create_f pmpi_cart_create_f +#define mpi_cart_get_f pmpi_cart_get_f +#define mpi_cart_map_f pmpi_cart_map_f +#define mpi_cart_rank_f pmpi_cart_rank_f +#define mpi_cart_shift_f pmpi_cart_shift_f +#define mpi_cart_sub_f pmpi_cart_sub_f +#define mpi_cartdim_get_f pmpi_cartdim_get_f +#define mpi_close_port_f pmpi_close_port_f +#define mpi_comm_accept_f pmpi_comm_accept_f +#define mpi_comm_call_errhandler_f pmpi_comm_call_errhandler_f +#define mpi_comm_compare_f pmpi_comm_compare_f +#define mpi_comm_connect_f pmpi_comm_connect_f +#define mpi_comm_create_errhandler_f pmpi_comm_create_errhandler_f +#define mpi_comm_create_keyval_f pmpi_comm_create_keyval_f +#define mpi_comm_create_f pmpi_comm_create_f +#define mpi_comm_delete_attr_f pmpi_comm_delete_attr_f +#define mpi_comm_disconnect_f pmpi_comm_disconnect_f +#define mpi_comm_dup_f pmpi_comm_dup_f +#define mpi_comm_free_keyval_f pmpi_comm_free_keyval_f +#define mpi_comm_free_f pmpi_comm_free_f +#define mpi_comm_get_attr_f pmpi_comm_get_attr_f +#define mpi_comm_get_errhandler_f pmpi_comm_get_errhandler_f +#define mpi_comm_get_name_f pmpi_comm_get_name_f +#define mpi_comm_get_parent_f pmpi_comm_get_parent_f +#define mpi_comm_group_f pmpi_comm_group_f +#define mpi_comm_join_f pmpi_comm_join_f +#define mpi_comm_rank_f pmpi_comm_rank_f +#define mpi_comm_remote_group_f pmpi_comm_remote_group_f +#define mpi_comm_remote_size_f pmpi_comm_remote_size_f +#define mpi_comm_set_attr_f pmpi_comm_set_attr_f +#define mpi_comm_set_errhandler_f pmpi_comm_set_errhandler_f +#define mpi_comm_set_name_f pmpi_comm_set_name_f +#define mpi_comm_size_f pmpi_comm_size_f +#define mpi_comm_spawn_f pmpi_comm_spawn_f +#define mpi_comm_spawn_multiple_f pmpi_comm_spawn_multiple_f +#define mpi_comm_split_f pmpi_comm_split_f +#define mpi_comm_test_inter_f pmpi_comm_test_inter_f +#define mpi_dims_create_f pmpi_dims_create_f +#define mpi_errhandler_create_f pmpi_errhandler_create_f +#define mpi_errhandler_free_f pmpi_errhandler_free_f +#define mpi_errhandler_get_f pmpi_errhandler_get_f +#define mpi_errhandler_set_f pmpi_errhandler_set_f +#define mpi_error_class_f pmpi_error_class_f +#define mpi_error_string_f pmpi_error_string_f +#define mpi_exscan_f pmpi_exscan_f +#define mpi_file_call_errhandler_f pmpi_file_call_errhandler_f +#define mpi_file_create_errhandler_f pmpi_file_create_errhandler_f +#define mpi_file_set_errhandler_f pmpi_file_set_errhandler_f +#define mpi_file_get_errhandler_f pmpi_file_get_errhandler_f +#define mpi_file_open_f pmpi_file_open_f +#define mpi_file_close_f pmpi_file_close_f +#define mpi_file_delete_f pmpi_file_delete_f +#define mpi_file_set_size_f pmpi_file_set_size_f +#define mpi_file_preallocate_f pmpi_file_preallocate_f +#define mpi_file_get_size_f pmpi_file_get_size_f +#define mpi_file_get_group_f pmpi_file_get_group_f +#define mpi_file_get_amode_f pmpi_file_get_amode_f +#define mpi_file_set_info_f pmpi_file_set_info_f +#define mpi_file_get_info_f pmpi_file_get_info_f +#define mpi_file_set_view_f pmpi_file_set_view_f +#define mpi_file_get_view_f pmpi_file_get_view_f +#define mpi_file_read_at_f pmpi_file_read_at_f +#define mpi_file_read_at_all_f pmpi_file_read_at_all_f +#define mpi_file_write_at_f pmpi_file_write_at_f +#define mpi_file_write_at_all_f pmpi_file_write_at_all_f +#define mpi_file_iread_at_f pmpi_file_iread_at_f +#define mpi_file_iwrite_at_f pmpi_file_iwrite_at_f +#define mpi_file_read_f pmpi_file_read_f +#define mpi_file_read_all_f pmpi_file_read_all_f +#define mpi_file_write_f pmpi_file_write_f +#define mpi_file_write_all_f pmpi_file_write_all_f +#define mpi_file_iread_f pmpi_file_iread_f +#define mpi_file_iwrite_f pmpi_file_iwrite_f +#define mpi_file_seek_f pmpi_file_seek_f +#define mpi_file_get_position_f pmpi_file_get_position_f +#define mpi_file_get_byte_offset_f pmpi_file_get_byte_offset_f +#define mpi_file_read_shared_f pmpi_file_read_shared_f +#define mpi_file_write_shared_f pmpi_file_write_shared_f +#define mpi_file_iread_shared_f pmpi_file_iread_shared_f +#define mpi_file_iwrite_shared_f pmpi_file_iwrite_shared_f +#define mpi_file_read_ordered_f pmpi_file_read_ordered_f +#define mpi_file_write_ordered_f pmpi_file_write_ordered_f +#define mpi_file_seek_shared_f pmpi_file_seek_shared_f +#define mpi_file_get_position_shared_f pmpi_file_get_position_shared_f +#define mpi_file_read_at_all_begin_f pmpi_file_read_at_all_begin_f +#define mpi_file_read_at_all_end_f pmpi_file_read_at_all_end_f +#define mpi_file_write_at_all_begin_f pmpi_file_write_at_all_begin_f +#define mpi_file_write_at_all_end_f pmpi_file_write_at_all_end_f +#define mpi_file_read_all_begin_f pmpi_file_read_all_begin_f +#define mpi_file_read_all_end_f pmpi_file_read_all_end_f +#define mpi_file_write_all_begin_f pmpi_file_write_all_begin_f +#define mpi_file_write_all_end_f pmpi_file_write_all_end_f +#define mpi_file_read_ordered_begin_f pmpi_file_read_ordered_begin_f +#define mpi_file_read_ordered_end_f pmpi_file_read_ordered_end_f +#define mpi_file_write_ordered_begin_f pmpi_file_write_ordered_begin_f +#define mpi_file_write_ordered_end_f pmpi_file_write_ordered_end_f +#define mpi_file_get_type_extent_f pmpi_file_get_type_extent_f +#define mpi_file_set_atomicity_f pmpi_file_set_atomicity_f +#define mpi_file_get_atomicity_f pmpi_file_get_atomicity_f +#define mpi_file_sync_f pmpi_file_sync_f +#define mpi_finalize_f pmpi_finalize_f +#define mpi_finalized_f pmpi_finalized_f #define mpi_free_mem_f pmpi_free_mem_f +#define mpi_gather_f pmpi_gather_f +#define mpi_gatherv_f pmpi_gatherv_f +#define mpi_get_address_f pmpi_get_address_f +#define mpi_get_count_f pmpi_get_count_f +#define mpi_get_elements_f pmpi_get_elements_f +#define mpi_get_f pmpi_get_f +#define mpi_get_processor_name_f pmpi_get_processor_name_f +#define mpi_get_version_f pmpi_get_version_f +#define mpi_graph_create_f pmpi_graph_create_f +#define mpi_graph_get_f pmpi_graph_get_f +#define mpi_graph_map_f pmpi_graph_map_f +#define mpi_graph_neighbors_count_f pmpi_graph_neighbors_count_f +#define mpi_graph_neighbors_f pmpi_graph_neighbors_f +#define mpi_graphdims_get_f pmpi_graphdims_get_f +#define mpi_grequest_complete_f pmpi_grequest_complete_f +#define mpi_grequest_start_f pmpi_grequest_start_f +#define mpi_group_compare_f pmpi_group_compare_f +#define mpi_group_difference_f pmpi_group_difference_f +#define mpi_group_excl_f pmpi_group_excl_f +#define mpi_group_free_f pmpi_group_free_f +#define mpi_group_incl_f pmpi_group_incl_f +#define mpi_group_intersection_f pmpi_group_intersection_f +#define mpi_group_range_excl_f pmpi_group_range_excl_f +#define mpi_group_range_incl_f pmpi_group_range_incl_f +#define mpi_group_rank_f pmpi_group_rank_f +#define mpi_group_size_f pmpi_group_size_f +#define mpi_group_translate_ranks_f pmpi_group_translate_ranks_f +#define mpi_group_union_f pmpi_group_union_f +#define mpi_ibsend_f pmpi_ibsend_f +#define mpi_info_create_f pmpi_info_create_f +#define mpi_info_delete_f pmpi_info_delete_f +#define mpi_info_dup_f pmpi_info_dup_f +#define mpi_info_free_f pmpi_info_free_f +#define mpi_info_get_f pmpi_info_get_f +#define mpi_info_get_nkeys_f pmpi_info_get_nkeys_f +#define mpi_info_get_nthkey_f pmpi_info_get_nthkey_f +#define mpi_info_get_valuelen_f pmpi_info_get_valuelen_f +#define mpi_info_set_f pmpi_info_set_f +#define mpi_init_f pmpi_init_f +#define mpi_initialized_f pmpi_initialized_f +#define mpi_init_thread_f pmpi_init_thread_f +#define mpi_intercomm_create_f pmpi_intercomm_create_f +#define mpi_intercomm_merge_f pmpi_intercomm_merge_f +#define mpi_iprobe_f pmpi_iprobe_f +#define mpi_irecv_f pmpi_irecv_f +#define mpi_irsend_f pmpi_irsend_f +#define mpi_isend_f pmpi_isend_f +#define mpi_issend_f pmpi_issend_f +#define mpi_is_thread_main_f pmpi_is_thread_main_f +#define mpi_keyval_create_f pmpi_keyval_create_f +#define mpi_keyval_free_f pmpi_keyval_free_f +#define mpi_lookup_name_f pmpi_lookup_name_f +#define mpi_op_create_f pmpi_op_create_f +#define mpi_open_port_f pmpi_open_port_f +#define mpi_op_free_f pmpi_op_free_f +#define mpi_pack_external_f pmpi_pack_external_f +#define mpi_pack_external_size_f pmpi_pack_external_size_f +#define mpi_pack_f pmpi_pack_f +#define mpi_pack_size_f pmpi_pack_size_f +#define mpi_pcontrol_f pmpi_pcontrol_f +#define mpi_probe_f pmpi_probe_f +#define mpi_publish_name_f pmpi_publish_name_f +#define mpi_put_f pmpi_put_f +#define mpi_query_thread_f pmpi_query_thread_f +#define mpi_recv_init_f pmpi_recv_init_f +#define mpi_recv_f pmpi_recv_f +#define mpi_reduce_f pmpi_reduce_f +#define mpi_reduce_scatter_f pmpi_reduce_scatter_f +#define mpi_register_datarep_f pmpi_register_datarep_f +#define mpi_request_free_f pmpi_request_free_f +#define mpi_request_get_status_f pmpi_request_get_status_f +#define mpi_rsend_f pmpi_rsend_f +#define mpi_rsend_init_f pmpi_rsend_init_f +#define mpi_scan_f pmpi_scan_f +#define mpi_scatter_f pmpi_scatter_f +#define mpi_scatterv_f pmpi_scatterv_f +#define mpi_send_init_f pmpi_send_init_f +#define mpi_send_f pmpi_send_f +#define mpi_sendrecv_f pmpi_sendrecv_f +#define mpi_sendrecv_replace_f pmpi_sendrecv_replace_f +#define mpi_ssend_init_f pmpi_ssend_init_f +#define mpi_ssend_f pmpi_ssend_f +#define mpi_start_f pmpi_start_f +#define mpi_startall_f pmpi_startall_f +#define mpi_status_set_cancelled_f pmpi_status_set_cancelled_f +#define mpi_status_set_elements_f pmpi_status_set_elements_f +#define mpi_testall_f pmpi_testall_f +#define mpi_testany_f pmpi_testany_f +#define mpi_test_f pmpi_test_f +#define mpi_test_cancelled_f pmpi_test_cancelled_f +#define mpi_testsome_f pmpi_testsome_f +#define mpi_topo_test_f pmpi_topo_test_f +#define mpi_type_commit_f pmpi_type_commit_f +#define mpi_type_contiguous_f pmpi_type_contiguous_f +#define mpi_type_create_darray_f pmpi_type_create_darray_f +#define mpi_type_create_f90_complex_f pmpi_type_create_f90_complex_f +#define mpi_type_create_f90_integer_f pmpi_type_create_f90_integer_f +#define mpi_type_create_f90_real_f pmpi_type_create_f90_real_f +#define mpi_type_create_hindexed_f pmpi_type_create_hindexed_f +#define mpi_type_create_hvector_f pmpi_type_create_hvector_f +#define mpi_type_create_keyval_f pmpi_type_create_keyval_f +#define mpi_type_create_indexed_block_f pmpi_type_create_indexed_block_f +#define mpi_type_create_struct_f pmpi_type_create_struct_f +#define mpi_type_create_subarray_f pmpi_type_create_subarray_f +#define mpi_type_create_resized_f pmpi_type_create_resized_f +#define mpi_type_delete_attr_f pmpi_type_delete_attr_f +#define mpi_type_dup_f pmpi_type_dup_f +#define mpi_type_extent_f pmpi_type_extent_f +#define mpi_type_free_f pmpi_type_free_f +#define mpi_type_free_keyval_f pmpi_type_free_keyval_f +#define mpi_type_get_attr_f pmpi_type_get_attr_f +#define mpi_type_get_contents_f pmpi_type_get_contents_f +#define mpi_type_get_envelope_f pmpi_type_get_envelope_f +#define mpi_type_get_extent_f pmpi_type_get_extent_f +#define mpi_type_get_name_f pmpi_type_get_name_f +#define mpi_type_get_true_extent_f pmpi_type_get_true_extent_f +#define mpi_type_hindexed_f pmpi_type_hindexed_f +#define mpi_type_hvector_f pmpi_type_hvector_f +#define mpi_type_indexed_f pmpi_type_indexed_f +#define mpi_type_lb_f pmpi_type_lb_f +#define mpi_type_match_size_f pmpi_type_match_size_f +#define mpi_type_set_attr_f pmpi_type_set_attr_f +#define mpi_type_set_name_f pmpi_type_set_name_f +#define mpi_type_size_f pmpi_type_size_f +#define mpi_type_struct_f pmpi_type_struct_f +#define mpi_type_ub_f pmpi_type_ub_f +#define mpi_type_vector_f pmpi_type_vector_f +#define mpi_unpack_f pmpi_unpack_f +#define mpi_unpublish_name_f pmpi_unpublish_name_f +#define mpi_unpack_external_f pmpi_unpack_external_f +#define mpi_waitall_f pmpi_waitall_f +#define mpi_waitany_f pmpi_waitany_f +#define mpi_wait_f pmpi_wait_f +#define mpi_waitsome_f pmpi_waitsome_f +#define mpi_win_call_errhandler_f pmpi_win_call_errhandler_f +#define mpi_win_complete_f pmpi_win_complete_f +#define mpi_win_create_f pmpi_win_create_f +#define mpi_win_create_errhandler_f pmpi_win_create_errhandler_f +#define mpi_win_create_keyval_f pmpi_win_create_keyval_f +#define mpi_win_delete_attr_f pmpi_win_delete_attr_f +#define mpi_win_fence_f pmpi_win_fence_f +#define mpi_win_free_f pmpi_win_free_f +#define mpi_win_free_keyval_f pmpi_win_free_keyval_f +#define mpi_win_get_attr_f pmpi_win_get_attr_f +#define mpi_win_get_errhandler_f pmpi_win_get_errhandler_f +#define mpi_win_get_group_f pmpi_win_get_group_f +#define mpi_win_get_name_f pmpi_win_get_name_f +#define mpi_win_lock_f pmpi_win_lock_f +#define mpi_win_post_f pmpi_win_post_f +#define mpi_win_set_attr_f pmpi_win_set_attr_f +#define mpi_win_set_errhandler_f pmpi_win_set_errhandler_f +#define mpi_win_set_name_f pmpi_win_set_name_f +#define mpi_win_start_f pmpi_win_start_f +#define mpi_win_test_f pmpi_win_test_f +#define mpi_win_unlock_f pmpi_win_unlock_f +#define mpi_win_wait_f pmpi_win_wait_f +#define mpi_wtick_f pmpi_wtick_f +#define mpi_wtime_f pmpi_wtime_f +#endif -#endif /* LAM_F77_PROFILE_DEFINES_H */ diff --git a/src/mpi/f77/profile/prototypes_pmpi.h b/src/mpi/f77/profile/prototypes_pmpi.h index a24b92e8df..7e241536ba 100644 --- a/src/mpi/f77/profile/prototypes_pmpi.h +++ b/src/mpi/f77/profile/prototypes_pmpi.h @@ -1,85 +1,1454 @@ #ifndef LAM_F77_PROTOTYPES_PMPI_H #define LAM_F77_PROTOTYPES_PMPI_H - /* * $HEADER$ - */ - -/* * This file prototypes all MPI fortran functions in all four fortran - * symbol conventions as well as all the internal "real" LAM wrapper + * symbol conventions as well as all the internal real LAM wrapper * functions (different from any of the four fortran symbol * conventions for clarity, at the cost of more typing for me...). - * This file is included in the lower-level build ONLY. The prototyping - * is done ONLY for PMPI_* bindings + * This file is included in the top-level build ONLY. The prototyping + * is done ONLY for MPI_* bindings + * + * Zeroth, the LAM wrapper functions, with a _f suffix. + * + * This is needed ONLY if the lower-level prototypes_pmpi.h has not + * already been included */ - -/* - * Zeroth, the LAM wrapper functions, with a "_f" suffix. - */ -/* This needs to be included ONLY if the top level "prototypes_mpi.h" - * has not yet been included +/* + * pmpi_*_f definitions go here --- .mpif_f.h */ + void pmpi_abort_f(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr); +void pmpi_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); +void pmpi_add_error_class_f(MPI_Fint *errorclass, MPI_Fint *ierr); +void pmpi_add_error_code_f(MPI_Fint *errorclass, MPI_Fint *errorcode, MPI_Fint *ierr); +void pmpi_add_error_string_f(MPI_Fint *errorcode, char *string, MPI_Fint *ierr); +void pmpi_address_f(char *location, MPI_Fint *address, MPI_Fint *ierr); +void pmpi_allgather_f(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_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); void pmpi_alloc_mem_f(MPI_Fint *size, MPI_Fint *info, char *baseptr, MPI_Fint *ierr); -void pmpi_comm_get_name_f(MPI_Fint *comm, char *name, MPI_Fint *l, MPI_Fint *ierror, - MPI_Fint charlen); -void pmpi_comm_set_name_f(MPI_Fint *comm, char *name, MPI_Fint *ierror, MPI_Fint charlen); -void pmpi_init_f(MPI_Fint *ierror); -void pmpi_finalize_f(MPI_Fint *ierror); -void pmpi_free_mem_f(char *baseptr, MPI_Fint *ierr); -void pmpi_group_compare_f(MPI_Fint *group1, MPI_Fint *group2, - MPI_Fint *result, MPI_Fint *ierror); +void pmpi_allreduce_f(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_alltoall_f(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_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); +void pmpi_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); +void pmpi_attr_delete_f(MPI_Fint *comm, MPI_Fint *keyval, MPI_Fint *ierr); +void pmpi_attr_get_f(MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_attr_put_f(MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *ierr); +void pmpi_barrier_f(MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_bcast_f(char *buffer, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_bsend_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_bsend_init_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_buffer_attach_f(char *buffer, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_buffer_detach_f(char *buffer, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_cancel_f(MPI_Fint *request, MPI_Fint *ierr); +void pmpi_cart_coords_f(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxdims, MPI_Fint *coords, MPI_Fint *ierr); +void pmpi_cart_create_f(MPI_Fint *old_comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *redorder, MPI_Fint *comm_cart, MPI_Fint *ierr); +void pmpi_cart_get_f(MPI_Fint *comm, MPI_Fint *maxdims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *coords, MPI_Fint *ierr); +void pmpi_cart_map_f(MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *newrank, MPI_Fint *ierr); +void pmpi_cart_rank_f(MPI_Fint *comm, MPI_Fint *coords, MPI_Fint *rank, MPI_Fint *ierr); +void pmpi_cart_shift_f(MPI_Fint *comm, MPI_Fint *direction, MPI_Fint *disp, MPI_Fint *rank_source, MPI_Fint *rank_dest, MPI_Fint *ierr); +void pmpi_cart_sub_f(MPI_Fint *comm, MPI_Fint *remain_dims, MPI_Fint *new_comm, MPI_Fint *ierr); +void pmpi_cartdim_get_f(MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *ierr); +void pmpi_close_port_f(char *port_name, MPI_Fint *ierr); +void pmpi_comm_accept_f(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr); +void pmpi_comm_call_errhandler_f(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr); +void pmpi_comm_compare_f(MPI_Fint *comm1, MPI_Fint *comm2, MPI_Fint *result, MPI_Fint *ierr); +void pmpi_comm_connect_f(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr); +void pmpi_comm_create_errhandler_f(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_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); +void pmpi_comm_create_f(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr); +void pmpi_comm_delete_attr_f(MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *ierr); +void pmpi_comm_disconnect_f(MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_comm_dup_f(MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr); +void pmpi_comm_free_keyval_f(MPI_Fint *comm_keyval, MPI_Fint *ierr); +void pmpi_comm_free_f(MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_comm_get_attr_f(MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_comm_get_errhandler_f(MPI_Fint *comm, MPI_Fint *erhandler, MPI_Fint *ierr); +void pmpi_comm_get_name_f(MPI_Fint *comm, char *comm_name, MPI_Fint *resultlen, MPI_Fint *ierr); +void pmpi_comm_get_parent_f(MPI_Fint *parent, MPI_Fint *ierr); +void pmpi_comm_group_f(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr); +void pmpi_comm_join_f(MPI_Fint *fd, MPI_Fint *intercomm, MPI_Fint *ierr); +void pmpi_comm_rank_f(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *ierr); +void pmpi_comm_remote_group_f(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr); +void pmpi_comm_remote_size_f(MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_comm_set_attr_f(MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *ierr); +void pmpi_comm_set_errhandler_f(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_comm_set_name_f(MPI_Fint *comm, char *comm_name, MPI_Fint *ierr); +void pmpi_comm_size_f(MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_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); +void pmpi_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); +void pmpi_comm_split_f(MPI_Fint *comm, MPI_Fint *color, MPI_Fint *key, MPI_Fint *newcomm, MPI_Fint *ierr); +void pmpi_comm_test_inter_f(MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_dims_create_f(MPI_Fint *nnodes, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *ierr); +void pmpi_errhandler_create_f(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_errhandler_free_f(MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_errhandler_get_f(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_errhandler_set_f(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_error_class_f(MPI_Fint *errorcode, MPI_Fint *errorclass, MPI_Fint *ierr); +void pmpi_error_string_f(MPI_Fint *errorcode, char *string, MPI_Fint *resultlen, MPI_Fint *ierr); +void pmpi_exscan_f(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_file_call_errhandler_f(MPI_Fint *fh, MPI_Fint *errorcode, MPI_Fint *ierr); +void pmpi_file_create_errhandler_f(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_file_set_errhandler_f(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_file_get_errhandler_f(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_file_open_f(MPI_Fint *comm, char *filename, MPI_Fint *amode, MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr); +void pmpi_file_close_f(MPI_Fint *fh, MPI_Fint *ierr); +void pmpi_file_delete_f(char *filename, MPI_Fint *info, MPI_Fint *ierr); +void pmpi_file_set_size_f(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_file_preallocate_f(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_file_get_size_f(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_file_get_group_f(MPI_Fint *fh, MPI_Fint *group, MPI_Fint *ierr); +void pmpi_file_get_amode_f(MPI_Fint *fh, MPI_Fint *amode, MPI_Fint *ierr); +void pmpi_file_set_info_f(MPI_Fint *fh, MPI_Fint *info, MPI_Fint *ierr); +void pmpi_file_get_info_f(MPI_Fint *fh, MPI_Fint *info_used, MPI_Fint *ierr); +void pmpi_file_set_view_f(MPI_Fint *fh, MPI_Fint *disp, MPI_Fint *etype, MPI_Fint *filetype, char *datarep, MPI_Fint *info, MPI_Fint *ierr); +void pmpi_file_get_view_f(MPI_Fint *fh, MPI_Fint *disp, MPI_Fint *etype, MPI_Fint *filetype, char *datarep, MPI_Fint *ierr); +void pmpi_file_read_at_f(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_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); +void pmpi_file_write_at_f(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_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); +void pmpi_file_iread_at_f(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_file_iwrite_at_f(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_file_read_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_read_all_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_all_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_iread_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_file_iwrite_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_file_seek_f(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *whence, MPI_Fint *ierr); +void pmpi_file_get_position_f(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr); +void pmpi_file_get_byte_offset_f(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *disp, MPI_Fint *ierr); +void pmpi_file_read_shared_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_shared_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_iread_shared_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_file_iwrite_shared_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_file_read_ordered_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_ordered_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_seek_shared_f(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *whence, MPI_Fint *ierr); +void pmpi_file_get_position_shared_f(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr); +void pmpi_file_read_at_all_begin_f(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void pmpi_file_read_at_all_end_f(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_at_all_begin_f(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void pmpi_file_write_at_all_end_f(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_read_all_begin_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void pmpi_file_read_all_end_f(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_all_begin_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void pmpi_file_write_all_end_f(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_read_ordered_begin_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void pmpi_file_read_ordered_end_f(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_ordered_begin_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void pmpi_file_write_ordered_end_f(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_get_type_extent_f(MPI_Fint *fh, MPI_Fint *datatype, MPI_Fint *extent, MPI_Fint *ierr); +void pmpi_file_set_atomicity_f(MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_file_get_atomicity_f(MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_file_sync_f(MPI_Fint *fh, MPI_Fint *ierr); +void pmpi_finalize_f(MPI_Fint *ierr); +void pmpi_finalized_f(MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_free_mem_f(char *base, MPI_Fint *ierr); +void pmpi_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); +void pmpi_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); +void pmpi_get_address_f(char *location, MPI_Fint *address, MPI_Fint *ierr); +void pmpi_get_count_f(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr); +void pmpi_get_elements_f(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr); +void pmpi_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); +void pmpi_get_processor_name_f(char *name, MPI_Fint *resultlen, MPI_Fint *ierr); +void pmpi_get_version_f(MPI_Fint *version, MPI_Fint *subversion, MPI_Fint *ierr); +void pmpi_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); +void pmpi_graph_get_f(MPI_Fint *comm, MPI_Fint *maxindex, MPI_Fint *maxedges, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *ierr); +void pmpi_graph_map_f(MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *newrank, MPI_Fint *ierr); +void pmpi_graph_neighbors_count_f(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *nneighbors, MPI_Fint *ierr); +void pmpi_graph_neighbors_f(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxneighbors, MPI_Fint *neighbors, MPI_Fint *ierr); +void pmpi_graphdims_get_f(MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *nedges, MPI_Fint *ierr); +void pmpi_grequest_complete_f(MPI_Fint *request, MPI_Fint *ierr); +void pmpi_grequest_start_f(MPI_Fint *query_fn, MPI_Fint *free_fn, MPI_Fint *cancel_fn, char *extra_state, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_group_compare_f(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *result, MPI_Fint *ierr); +void pmpi_group_difference_f(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr); +void pmpi_group_excl_f(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *newgroup, MPI_Fint *ierr); +void pmpi_group_free_f(MPI_Fint *group, MPI_Fint *ierr); +void pmpi_group_incl_f(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *newgroup, MPI_Fint *ierr); +void pmpi_group_intersection_f(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr); +void pmpi_group_range_excl_f(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranges3, MPI_Fint *newgroup, MPI_Fint *ierr); +void pmpi_group_range_incl_f(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranges3, MPI_Fint *newgroup, MPI_Fint *ierr); +void pmpi_group_rank_f(MPI_Fint *group, MPI_Fint *rank, MPI_Fint *ierr); +void pmpi_group_size_f(MPI_Fint *group, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_group_translate_ranks_f(MPI_Fint *group1, MPI_Fint *n, MPI_Fint *ranks1, MPI_Fint *group2, MPI_Fint *ranks2, MPI_Fint *ierr); +void pmpi_group_union_f(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr); +void pmpi_ibsend_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_info_create_f(MPI_Fint *info, MPI_Fint *ierr); +void pmpi_info_delete_f(MPI_Fint *info, char *key, MPI_Fint *ierr); +void pmpi_info_dup_f(MPI_Fint *info, MPI_Fint *newinfo, MPI_Fint *ierr); +void pmpi_info_free_f(MPI_Fint *info, MPI_Fint *ierr); +void pmpi_info_get_f(MPI_Fint *info, char *key, MPI_Fint *valuelen, char *value, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_info_get_nkeys_f(MPI_Fint *info, MPI_Fint *nkeys, MPI_Fint *ierr); +void pmpi_info_get_nthkey_f(MPI_Fint *info, MPI_Fint *n, char *key, MPI_Fint *ierr); +void pmpi_info_get_valuelen_f(MPI_Fint *info, char *key, MPI_Fint *valuelen, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_info_set_f(MPI_Fint *info, char *key, char *value, MPI_Fint *ierr); +void pmpi_init_f(MPI_Fint *argc, char *argv, MPI_Fint *ierr); +void pmpi_initialized_f(MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_init_thread_f(MPI_Fint *argc, char *argv, MPI_Fint *required, MPI_Fint *provided, MPI_Fint *ierr); +void pmpi_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); +void pmpi_intercomm_merge_f(MPI_Fint *intercomm, MPI_Fint *high, MPI_Fint *newintercomm, MPI_Fint *ierr); +void pmpi_iprobe_f(MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_irecv_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_irsend_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_isend_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_issend_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_is_thread_main_f(MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_keyval_create_f(MPI_Fint *copy_fn, MPI_Fint *delete_fn, MPI_Fint *keyval, char *extra_state, MPI_Fint *ierr); +void pmpi_keyval_free_f(MPI_Fint *keyval, MPI_Fint *ierr); +void pmpi_lookup_name_f(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void pmpi_op_create_f(MPI_Fint *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr); +void pmpi_open_port_f(MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void pmpi_op_free_f(MPI_Fint *op, MPI_Fint *ierr); +void pmpi_pack_external_f(char *datarep, char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *ierr); +void pmpi_pack_external_size_f(char *datarep, MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_pack_f(char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_pack_size_f(MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_pcontrol_f(MPI_Fint *level); +void pmpi_probe_f(MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_publish_name_f(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void pmpi_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); +void pmpi_query_thread_f(MPI_Fint *provided, MPI_Fint *ierr); +void pmpi_recv_init_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_recv_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_reduce_f(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_reduce_scatter_f(char *sendbuf, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_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); +void pmpi_request_free_f(MPI_Fint *request, MPI_Fint *ierr); +void pmpi_request_get_status_f(MPI_Fint *request, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_rsend_f(char *ibuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_rsend_init_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_scan_f(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_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); +void pmpi_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); +void pmpi_send_init_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_send_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_sendrecv_f(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *dest, MPI_Fint *sendtag, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_sendrecv_replace_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *sendtag, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_ssend_init_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_ssend_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_start_f(MPI_Fint *request, MPI_Fint *ierr); +void pmpi_startall_f(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *ierr); +void pmpi_status_set_cancelled_f(MPI_Fint *status, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_status_set_elements_f(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr); +void pmpi_testall_f(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *flag, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void pmpi_testany_f(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_test_f(MPI_Fint *request, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_test_cancelled_f(MPI_Fint *status, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_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); +void pmpi_topo_test_f(MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_type_commit_f(MPI_Fint *type, MPI_Fint *ierr); +void pmpi_type_contiguous_f(MPI_Fint *count, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_darray_f(MPI_Fint *size, MPI_Fint *rank, MPI_Fint *ndims, MPI_Fint *gsize_array, MPI_Fint *distrib_array, MPI_Fint *darg_array, MPI_Fint *psize_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_f90_complex_f(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_f90_integer_f(MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_f90_real_f(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_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); +void pmpi_type_create_hvector_f(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_keyval_f(MPI_Fint *type_copy_attr_fn, MPI_Fint *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr); +void pmpi_type_create_indexed_block_f(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_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); +void pmpi_type_create_subarray_f(MPI_Fint *ndims, MPI_Fint *size_array, MPI_Fint *subsize_array, MPI_Fint *start_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_resized_f(MPI_Fint *oldtype, MPI_Fint *lb, MPI_Fint *extent, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_delete_attr_f(MPI_Fint *type, MPI_Fint *type_keyval, MPI_Fint *ierr); +void pmpi_type_dup_f(MPI_Fint *type, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_extent_f(MPI_Fint *type, MPI_Fint *extent, MPI_Fint *ierr); +void pmpi_type_free_f(MPI_Fint *type, MPI_Fint *ierr); +void pmpi_type_free_keyval_f(MPI_Fint *type_keyval, MPI_Fint *ierr); +void pmpi_type_get_attr_f(MPI_Fint *type, MPI_Fint *type_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_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); +void pmpi_type_get_envelope_f(MPI_Fint *type, MPI_Fint *num_integers, MPI_Fint *num_addresses, MPI_Fint *num_datatypes, MPI_Fint *combiner, MPI_Fint *ierr); +void pmpi_type_get_extent_f(MPI_Fint *type, MPI_Fint *lb, MPI_Fint *extent, MPI_Fint *ierr); +void pmpi_type_get_name_f(MPI_Fint *type, char *type_name, MPI_Fint *resultlen, MPI_Fint *ierr); +void pmpi_type_get_true_extent_f(MPI_Fint *datatype, MPI_Fint *true_lb, MPI_Fint *true_extent, MPI_Fint *ierr); +void pmpi_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); +void pmpi_type_hvector_f(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_indexed_f(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_lb_f(MPI_Fint *type, MPI_Fint *lb, MPI_Fint *ierr); +void pmpi_type_match_size_f(MPI_Fint *typeclass, MPI_Fint *size, MPI_Fint *type, MPI_Fint *ierr); +void pmpi_type_set_attr_f(MPI_Fint *type, MPI_Fint *type_keyval, char *attr_val, MPI_Fint *ierr); +void pmpi_type_set_name_f(MPI_Fint *type, char *type_name, MPI_Fint *ierr); +void pmpi_type_size_f(MPI_Fint *type, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_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); +void pmpi_type_ub_f(MPI_Fint *mtype, MPI_Fint *ub, MPI_Fint *ierr); +void pmpi_type_vector_f(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_unpack_f(char *inbuf, MPI_Fint *insize, MPI_Fint *position, char *outbuf, MPI_Fint *outcount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_unpublish_name_f(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void pmpi_unpack_external_f (char *datarep, char *inbuf, MPI_Fint *insize, MPI_Fint *position, char *outbuf, MPI_Fint *outcount, MPI_Fint *datatype, MPI_Fint *ierr); +void pmpi_waitall_f(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void pmpi_waitany_f(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_wait_f(MPI_Fint *request, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_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); +void pmpi_win_call_errhandler_f(MPI_Fint *win, MPI_Fint *errorcode, MPI_Fint *ierr); +void pmpi_win_complete_f(MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_create_f(char *base, MPI_Fint *size, MPI_Fint *disp_unit, MPI_Fint *info, MPI_Fint *comm, MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_create_errhandler_f(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_win_create_keyval_f(MPI_Fint *win_copy_attr_fn, MPI_Fint *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr); +void pmpi_win_delete_attr_f(MPI_Fint *win, MPI_Fint *win_keyval, MPI_Fint *ierr); +void pmpi_win_fence_f(MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_free_f(MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_free_keyval_f(MPI_Fint *win_keyval, MPI_Fint *ierr); +void pmpi_win_get_attr_f(MPI_Fint *win, MPI_Fint *win_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_win_get_errhandler_f(MPI_Fint *win, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_win_get_group_f(MPI_Fint *win, MPI_Fint *group, MPI_Fint *ierr); +void pmpi_win_get_name_f(MPI_Fint *win, char *win_name, MPI_Fint *resultlen, MPI_Fint *ierr); +void pmpi_win_lock_f(MPI_Fint *lock_type, MPI_Fint *rank, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_post_f(MPI_Fint *group, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_set_attr_f(MPI_Fint *win, MPI_Fint *win_keyval, char *attribute_val, MPI_Fint *ierr); +void pmpi_win_set_errhandler_f(MPI_Fint *win, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_win_set_name_f(MPI_Fint *win, char *win_name, MPI_Fint *ierr); +void pmpi_win_start_f(MPI_Fint *group, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_test_f(MPI_Fint *win, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_win_unlock_f(MPI_Fint *rank, MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_wait_f(MPI_Fint *win, MPI_Fint *ierr); +double pmpi_wtick_f(MPI_Fint *ierr); +double pmpi_wtime_f(MPI_Fint *ierr); +/*This is the all lower case prototypes*/ -/* - * First, all caps. - */ -void PMPI_ALLOC_MEM(MPI_Fint *size, MPI_Fint *info, char *baseptr, MPI_Fint *ierr); -void PMPI_COMM_GET_NAME(MPI_Fint *comm, char *name, MPI_Fint *l, MPI_Fint *ierror, - MPI_Fint charlen); -void PMPI_COMM_SET_NAME(MPI_Fint *comm, char *name, MPI_Fint *ierror, MPI_Fint charlen); -void PMPI_INIT(MPI_Fint *ierror); -void PMPI_FINALIZE(MPI_Fint *ierror); -void PMPI_FREE_MEM(char *baseptr, MPI_Fint *ierr); -void PMPI_GROUP_COMPARE(MPI_Fint *group1, MPI_Fint *group2, - MPI_Fint *result, MPI_Fint *ierror); - -/* - * Second, all lower case. - */ +void pmpi_abort(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr); +void pmpi_accumulate(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); +void pmpi_add_error_class(MPI_Fint *errorclass, MPI_Fint *ierr); +void pmpi_add_error_code(MPI_Fint *errorclass, MPI_Fint *errorcode, MPI_Fint *ierr); +void pmpi_add_error_string(MPI_Fint *errorcode, char *string, MPI_Fint *ierr); +void pmpi_address(char *location, MPI_Fint *address, MPI_Fint *ierr); +void pmpi_allgather(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_allgatherv(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); void pmpi_alloc_mem(MPI_Fint *size, MPI_Fint *info, char *baseptr, MPI_Fint *ierr); -void pmpi_comm_get_name(MPI_Fint *comm, char *name, MPI_Fint *l, MPI_Fint *ierror, - MPI_Fint charlen); -void pmpi_comm_set_name(MPI_Fint *comm, char *name, MPI_Fint *ierror, MPI_Fint charlen); -void pmpi_init(MPI_Fint *ierror); -void pmpi_finalize(MPI_Fint *ierror); -void pmpi_free_mem(char *baseptr, MPI_Fint *ierr); -void pmpi_group_compare(MPI_Fint *group1, MPI_Fint *group2, - MPI_Fint *result, MPI_Fint *ierror); +void pmpi_allreduce(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_alltoall(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_alltoallv(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); +void pmpi_alltoallw(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); +void pmpi_attr_delete(MPI_Fint *comm, MPI_Fint *keyval, MPI_Fint *ierr); +void pmpi_attr_get(MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_attr_put(MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *ierr); +void pmpi_barrier(MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_bcast(char *buffer, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_bsend(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_bsend_init(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_buffer_attach(char *buffer, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_buffer_detach(char *buffer, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_cancel(MPI_Fint *request, MPI_Fint *ierr); +void pmpi_cart_coords(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxdims, MPI_Fint *coords, MPI_Fint *ierr); +void pmpi_cart_create(MPI_Fint *old_comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *redorder, MPI_Fint *comm_cart, MPI_Fint *ierr); +void pmpi_cart_get(MPI_Fint *comm, MPI_Fint *maxdims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *coords, MPI_Fint *ierr); +void pmpi_cart_map(MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *newrank, MPI_Fint *ierr); +void pmpi_cart_rank(MPI_Fint *comm, MPI_Fint *coords, MPI_Fint *rank, MPI_Fint *ierr); +void pmpi_cart_shift(MPI_Fint *comm, MPI_Fint *direction, MPI_Fint *disp, MPI_Fint *rank_source, MPI_Fint *rank_dest, MPI_Fint *ierr); +void pmpi_cart_sub(MPI_Fint *comm, MPI_Fint *remain_dims, MPI_Fint *new_comm, MPI_Fint *ierr); +void pmpi_cartdim_get(MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *ierr); +void pmpi_close_port(char *port_name, MPI_Fint *ierr); +void pmpi_comm_accept(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr); +void pmpi_comm_call_errhandler(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr); +void pmpi_comm_compare(MPI_Fint *comm1, MPI_Fint *comm2, MPI_Fint *result, MPI_Fint *ierr); +void pmpi_comm_connect(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr); +void pmpi_comm_create_errhandler(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_comm_create_keyval(MPI_Fint *comm_copy_attr_fn, MPI_Fint *comm_delete_attr_fn, MPI_Fint *comm_keyval, char *extra_state, MPI_Fint *ierr); +void pmpi_comm_create(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr); +void pmpi_comm_delete_attr(MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *ierr); +void pmpi_comm_disconnect(MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_comm_dup(MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr); +void pmpi_comm_free_keyval(MPI_Fint *comm_keyval, MPI_Fint *ierr); +void pmpi_comm_free(MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_comm_get_attr(MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_comm_get_errhandler(MPI_Fint *comm, MPI_Fint *erhandler, MPI_Fint *ierr); +void pmpi_comm_get_name(MPI_Fint *comm, char *comm_name, MPI_Fint *resultlen, MPI_Fint *ierr); +void pmpi_comm_get_parent(MPI_Fint *parent, MPI_Fint *ierr); +void pmpi_comm_group(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr); +void pmpi_comm_join(MPI_Fint *fd, MPI_Fint *intercomm, MPI_Fint *ierr); +void pmpi_comm_rank(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *ierr); +void pmpi_comm_remote_group(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr); +void pmpi_comm_remote_size(MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_comm_set_attr(MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *ierr); +void pmpi_comm_set_errhandler(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_comm_set_name(MPI_Fint *comm, char *comm_name, MPI_Fint *ierr); +void pmpi_comm_size(MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_comm_spawn(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); +void pmpi_comm_spawn_multiple(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); +void pmpi_comm_split(MPI_Fint *comm, MPI_Fint *color, MPI_Fint *key, MPI_Fint *newcomm, MPI_Fint *ierr); +void pmpi_comm_test_inter(MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_dims_create(MPI_Fint *nnodes, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *ierr); +void pmpi_errhandler_create(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_errhandler_free(MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_errhandler_get(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_errhandler_set(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_error_class(MPI_Fint *errorcode, MPI_Fint *errorclass, MPI_Fint *ierr); +void pmpi_error_string(MPI_Fint *errorcode, char *string, MPI_Fint *resultlen, MPI_Fint *ierr); +void pmpi_exscan(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_file_call_errhandler(MPI_Fint *fh, MPI_Fint *errorcode, MPI_Fint *ierr); +void pmpi_file_create_errhandler(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_file_set_errhandler(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_file_get_errhandler(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_file_open(MPI_Fint *comm, char *filename, MPI_Fint *amode, MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr); +void pmpi_file_close(MPI_Fint *fh, MPI_Fint *ierr); +void pmpi_file_delete(char *filename, MPI_Fint *info, MPI_Fint *ierr); +void pmpi_file_set_size(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_file_preallocate(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_file_get_size(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_file_get_group(MPI_Fint *fh, MPI_Fint *group, MPI_Fint *ierr); +void pmpi_file_get_amode(MPI_Fint *fh, MPI_Fint *amode, MPI_Fint *ierr); +void pmpi_file_set_info(MPI_Fint *fh, MPI_Fint *info, MPI_Fint *ierr); +void pmpi_file_get_info(MPI_Fint *fh, MPI_Fint *info_used, MPI_Fint *ierr); +void pmpi_file_set_view(MPI_Fint *fh, MPI_Fint *disp, MPI_Fint *etype, MPI_Fint *filetype, char *datarep, MPI_Fint *info, MPI_Fint *ierr); +void pmpi_file_get_view(MPI_Fint *fh, MPI_Fint *disp, MPI_Fint *etype, MPI_Fint *filetype, char *datarep, MPI_Fint *ierr); +void pmpi_file_read_at(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_read_at_all(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_at(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_at_all(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_iread_at(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_file_iwrite_at(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_file_read(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_read_all(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_all(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_iread(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_file_iwrite(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_file_seek(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *whence, MPI_Fint *ierr); +void pmpi_file_get_position(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr); +void pmpi_file_get_byte_offset(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *disp, MPI_Fint *ierr); +void pmpi_file_read_shared(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_shared(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_iread_shared(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_file_iwrite_shared(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_file_read_ordered(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_ordered(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_seek_shared(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *whence, MPI_Fint *ierr); +void pmpi_file_get_position_shared(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr); +void pmpi_file_read_at_all_begin(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void pmpi_file_read_at_all_end(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_at_all_begin(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void pmpi_file_write_at_all_end(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_read_all_begin(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void pmpi_file_read_all_end(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_all_begin(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void pmpi_file_write_all_end(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_read_ordered_begin(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void pmpi_file_read_ordered_end(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_ordered_begin(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void pmpi_file_write_ordered_end(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_get_type_extent(MPI_Fint *fh, MPI_Fint *datatype, MPI_Fint *extent, MPI_Fint *ierr); +void pmpi_file_set_atomicity(MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_file_get_atomicity(MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_file_sync(MPI_Fint *fh, MPI_Fint *ierr); +void pmpi_finalize(MPI_Fint *ierr); +void pmpi_finalized(MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_free_mem(char *base, MPI_Fint *ierr); +void pmpi_gather(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); +void pmpi_gatherv(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); +void pmpi_get_address(char *location, MPI_Fint *address, MPI_Fint *ierr); +void pmpi_get_count(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr); +void pmpi_get_elements(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr); +void pmpi_get(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); +void pmpi_get_processor_name(char *name, MPI_Fint *resultlen, MPI_Fint *ierr); +void pmpi_get_version(MPI_Fint *version, MPI_Fint *subversion, MPI_Fint *ierr); +void pmpi_graph_create(MPI_Fint *comm_old, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *reorder, MPI_Fint *comm_graph, MPI_Fint *ierr); +void pmpi_graph_get(MPI_Fint *comm, MPI_Fint *maxindex, MPI_Fint *maxedges, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *ierr); +void pmpi_graph_map(MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *newrank, MPI_Fint *ierr); +void pmpi_graph_neighbors_count(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *nneighbors, MPI_Fint *ierr); +void pmpi_graph_neighbors(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxneighbors, MPI_Fint *neighbors, MPI_Fint *ierr); +void pmpi_graphdims_get(MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *nedges, MPI_Fint *ierr); +void pmpi_grequest_complete(MPI_Fint *request, MPI_Fint *ierr); +void pmpi_grequest_start(MPI_Fint *query_fn, MPI_Fint *free_fn, MPI_Fint *cancel_fn, char *extra_state, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_group_compare(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *result, MPI_Fint *ierr); +void pmpi_group_difference(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr); +void pmpi_group_excl(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *newgroup, MPI_Fint *ierr); +void pmpi_group_free(MPI_Fint *group, MPI_Fint *ierr); +void pmpi_group_incl(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *newgroup, MPI_Fint *ierr); +void pmpi_group_intersection(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr); +void pmpi_group_range_excl(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranges3, MPI_Fint *newgroup, MPI_Fint *ierr); +void pmpi_group_range_incl(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranges3, MPI_Fint *newgroup, MPI_Fint *ierr); +void pmpi_group_rank(MPI_Fint *group, MPI_Fint *rank, MPI_Fint *ierr); +void pmpi_group_size(MPI_Fint *group, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_group_translate_ranks(MPI_Fint *group1, MPI_Fint *n, MPI_Fint *ranks1, MPI_Fint *group2, MPI_Fint *ranks2, MPI_Fint *ierr); +void pmpi_group_union(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr); +void pmpi_ibsend(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_info_create(MPI_Fint *info, MPI_Fint *ierr); +void pmpi_info_delete(MPI_Fint *info, char *key, MPI_Fint *ierr); +void pmpi_info_dup(MPI_Fint *info, MPI_Fint *newinfo, MPI_Fint *ierr); +void pmpi_info_free(MPI_Fint *info, MPI_Fint *ierr); +void pmpi_info_get(MPI_Fint *info, char *key, MPI_Fint *valuelen, char *value, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_info_get_nkeys(MPI_Fint *info, MPI_Fint *nkeys, MPI_Fint *ierr); +void pmpi_info_get_nthkey(MPI_Fint *info, MPI_Fint *n, char *key, MPI_Fint *ierr); +void pmpi_info_get_valuelen(MPI_Fint *info, char *key, MPI_Fint *valuelen, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_info_set(MPI_Fint *info, char *key, char *value, MPI_Fint *ierr); +void pmpi_init(MPI_Fint *argc, char *argv, MPI_Fint *ierr); +void pmpi_initialized(MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_init_thread(MPI_Fint *argc, char *argv, MPI_Fint *required, MPI_Fint *provided, MPI_Fint *ierr); +void pmpi_intercomm_create(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); +void pmpi_intercomm_merge(MPI_Fint *intercomm, MPI_Fint *high, MPI_Fint *newintercomm, MPI_Fint *ierr); +void pmpi_iprobe(MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_irecv(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_irsend(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_isend(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_issend(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_is_thread_main(MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_keyval_create(MPI_Fint *copy_fn, MPI_Fint *delete_fn, MPI_Fint *keyval, char *extra_state, MPI_Fint *ierr); +void pmpi_keyval_free(MPI_Fint *keyval, MPI_Fint *ierr); +void pmpi_lookup_name(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void pmpi_op_create(MPI_Fint *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr); +void pmpi_open_port(MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void pmpi_op_free(MPI_Fint *op, MPI_Fint *ierr); +void pmpi_pack_external(char *datarep, char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *ierr); +void pmpi_pack_external_size(char *datarep, MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_pack(char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_pack_size(MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_pcontrol(MPI_Fint *level); +void pmpi_probe(MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_publish_name(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void pmpi_put(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); +void pmpi_query_thread(MPI_Fint *provided, MPI_Fint *ierr); +void pmpi_recv_init(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_recv(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_reduce(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_reduce_scatter(char *sendbuf, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_register_datarep(char *datarep, MPI_Fint *read_conversion_fn, MPI_Fint *write_conversion_fn, MPI_Fint *dtype_file_extent_fn, char *extra_state, MPI_Fint *ierr); +void pmpi_request_free(MPI_Fint *request, MPI_Fint *ierr); +void pmpi_request_get_status(MPI_Fint *request, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_rsend(char *ibuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_rsend_init(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_scan(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_scatter(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); +void pmpi_scatterv(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); +void pmpi_send_init(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_send(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_sendrecv(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *dest, MPI_Fint *sendtag, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_sendrecv_replace(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *sendtag, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_ssend_init(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_ssend(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_start(MPI_Fint *request, MPI_Fint *ierr); +void pmpi_startall(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *ierr); +void pmpi_status_set_cancelled(MPI_Fint *status, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_status_set_elements(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr); +void pmpi_testall(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *flag, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void pmpi_testany(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_test(MPI_Fint *request, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_test_cancelled(MPI_Fint *status, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_testsome(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *outcount, MPI_Fint *array_of_indices, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void pmpi_topo_test(MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_type_commit(MPI_Fint *type, MPI_Fint *ierr); +void pmpi_type_contiguous(MPI_Fint *count, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_darray(MPI_Fint *size, MPI_Fint *rank, MPI_Fint *ndims, MPI_Fint *gsize_array, MPI_Fint *distrib_array, MPI_Fint *darg_array, MPI_Fint *psize_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_f90_complex(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_f90_integer(MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_f90_real(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_hindexed(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_hvector(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_keyval(MPI_Fint *type_copy_attr_fn, MPI_Fint *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr); +void pmpi_type_create_indexed_block(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_struct(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); +void pmpi_type_create_subarray(MPI_Fint *ndims, MPI_Fint *size_array, MPI_Fint *subsize_array, MPI_Fint *start_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_resized(MPI_Fint *oldtype, MPI_Fint *lb, MPI_Fint *extent, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_delete_attr(MPI_Fint *type, MPI_Fint *type_keyval, MPI_Fint *ierr); +void pmpi_type_dup(MPI_Fint *type, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_extent(MPI_Fint *type, MPI_Fint *extent, MPI_Fint *ierr); +void pmpi_type_free(MPI_Fint *type, MPI_Fint *ierr); +void pmpi_type_free_keyval(MPI_Fint *type_keyval, MPI_Fint *ierr); +void pmpi_type_get_attr(MPI_Fint *type, MPI_Fint *type_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_type_get_contents(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); +void pmpi_type_get_envelope(MPI_Fint *type, MPI_Fint *num_integers, MPI_Fint *num_addresses, MPI_Fint *num_datatypes, MPI_Fint *combiner, MPI_Fint *ierr); +void pmpi_type_get_extent(MPI_Fint *type, MPI_Fint *lb, MPI_Fint *extent, MPI_Fint *ierr); +void pmpi_type_get_name(MPI_Fint *type, char *type_name, MPI_Fint *resultlen, MPI_Fint *ierr); +void pmpi_type_get_true_extent(MPI_Fint *datatype, MPI_Fint *true_lb, MPI_Fint *true_extent, MPI_Fint *ierr); +void pmpi_type_hindexed(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_hvector(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_indexed(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_lb(MPI_Fint *type, MPI_Fint *lb, MPI_Fint *ierr); +void pmpi_type_match_size(MPI_Fint *typeclass, MPI_Fint *size, MPI_Fint *type, MPI_Fint *ierr); +void pmpi_type_set_attr(MPI_Fint *type, MPI_Fint *type_keyval, char *attr_val, MPI_Fint *ierr); +void pmpi_type_set_name(MPI_Fint *type, char *type_name, MPI_Fint *ierr); +void pmpi_type_size(MPI_Fint *type, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_type_struct(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *array_of_types, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_ub(MPI_Fint *mtype, MPI_Fint *ub, MPI_Fint *ierr); +void pmpi_type_vector(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_unpack(char *inbuf, MPI_Fint *insize, MPI_Fint *position, char *outbuf, MPI_Fint *outcount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_unpublish_name(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void pmpi_unpack_external (char *datarep, char *inbuf, MPI_Fint *insize, MPI_Fint *position, char *outbuf, MPI_Fint *outcount, MPI_Fint *datatype, MPI_Fint *ierr); +void pmpi_waitall(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void pmpi_waitany(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_wait(MPI_Fint *request, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_waitsome(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *outcount, MPI_Fint *array_of_indices, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void pmpi_win_call_errhandler(MPI_Fint *win, MPI_Fint *errorcode, MPI_Fint *ierr); +void pmpi_win_complete(MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_create(char *base, MPI_Fint *size, MPI_Fint *disp_unit, MPI_Fint *info, MPI_Fint *comm, MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_create_errhandler(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_win_create_keyval(MPI_Fint *win_copy_attr_fn, MPI_Fint *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr); +void pmpi_win_delete_attr(MPI_Fint *win, MPI_Fint *win_keyval, MPI_Fint *ierr); +void pmpi_win_fence(MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_free(MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_free_keyval(MPI_Fint *win_keyval, MPI_Fint *ierr); +void pmpi_win_get_attr(MPI_Fint *win, MPI_Fint *win_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_win_get_errhandler(MPI_Fint *win, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_win_get_group(MPI_Fint *win, MPI_Fint *group, MPI_Fint *ierr); +void pmpi_win_get_name(MPI_Fint *win, char *win_name, MPI_Fint *resultlen, MPI_Fint *ierr); +void pmpi_win_lock(MPI_Fint *lock_type, MPI_Fint *rank, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_post(MPI_Fint *group, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_set_attr(MPI_Fint *win, MPI_Fint *win_keyval, char *attribute_val, MPI_Fint *ierr); +void pmpi_win_set_errhandler(MPI_Fint *win, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_win_set_name(MPI_Fint *win, char *win_name, MPI_Fint *ierr); +void pmpi_win_start(MPI_Fint *group, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_test(MPI_Fint *win, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_win_unlock(MPI_Fint *rank, MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_wait(MPI_Fint *win, MPI_Fint *ierr); +double pmpi_wtick(MPI_Fint *ierr); +double pmpi_wtime(MPI_Fint *ierr); +/*This is the single underscore prototypes*/ -/* - * Third, one trailing underscore. - */ +void pmpi_abort_(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr); +void pmpi_accumulate_(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); +void pmpi_add_error_class_(MPI_Fint *errorclass, MPI_Fint *ierr); +void pmpi_add_error_code_(MPI_Fint *errorclass, MPI_Fint *errorcode, MPI_Fint *ierr); +void pmpi_add_error_string_(MPI_Fint *errorcode, char *string, MPI_Fint *ierr); +void pmpi_address_(char *location, MPI_Fint *address, MPI_Fint *ierr); +void pmpi_allgather_(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_allgatherv_(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); void pmpi_alloc_mem_(MPI_Fint *size, MPI_Fint *info, char *baseptr, MPI_Fint *ierr); -void pmpi_comm_get_name_(MPI_Fint *comm, char *name, MPI_Fint *l, MPI_Fint *ierror, - MPI_Fint charlen); -void pmpi_comm_set_name_(MPI_Fint *comm, char *name, MPI_Fint *ierror, MPI_Fint charlen); -void pmpi_init_(MPI_Fint *ierror); -void pmpi_finalize_(MPI_Fint *ierror); -void pmpi_free_mem_(char *baseptr, MPI_Fint *ierr); -void pmpi_group_compare_(MPI_Fint *group1, MPI_Fint *group2, - MPI_Fint *result, MPI_Fint *ierror); +void pmpi_allreduce_(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_alltoall_(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_alltoallv_(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); +void pmpi_alltoallw_(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); +void pmpi_attr_delete_(MPI_Fint *comm, MPI_Fint *keyval, MPI_Fint *ierr); +void pmpi_attr_get_(MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_attr_put_(MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *ierr); +void pmpi_barrier_(MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_bcast_(char *buffer, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_bsend_(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_bsend_init_(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_buffer_attach_(char *buffer, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_buffer_detach_(char *buffer, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_cancel_(MPI_Fint *request, MPI_Fint *ierr); +void pmpi_cart_coords_(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxdims, MPI_Fint *coords, MPI_Fint *ierr); +void pmpi_cart_create_(MPI_Fint *old_comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *redorder, MPI_Fint *comm_cart, MPI_Fint *ierr); +void pmpi_cart_get_(MPI_Fint *comm, MPI_Fint *maxdims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *coords, MPI_Fint *ierr); +void pmpi_cart_map_(MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *newrank, MPI_Fint *ierr); +void pmpi_cart_rank_(MPI_Fint *comm, MPI_Fint *coords, MPI_Fint *rank, MPI_Fint *ierr); +void pmpi_cart_shift_(MPI_Fint *comm, MPI_Fint *direction, MPI_Fint *disp, MPI_Fint *rank_source, MPI_Fint *rank_dest, MPI_Fint *ierr); +void pmpi_cart_sub_(MPI_Fint *comm, MPI_Fint *remain_dims, MPI_Fint *new_comm, MPI_Fint *ierr); +void pmpi_cartdim_get_(MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *ierr); +void pmpi_close_port_(char *port_name, MPI_Fint *ierr); +void pmpi_comm_accept_(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr); +void pmpi_comm_call_errhandler_(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr); +void pmpi_comm_compare_(MPI_Fint *comm1, MPI_Fint *comm2, MPI_Fint *result, MPI_Fint *ierr); +void pmpi_comm_connect_(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr); +void pmpi_comm_create_errhandler_(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_comm_create_keyval_(MPI_Fint *comm_copy_attr_fn, MPI_Fint *comm_delete_attr_fn, MPI_Fint *comm_keyval, char *extra_state, MPI_Fint *ierr); +void pmpi_comm_create_(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr); +void pmpi_comm_delete_attr_(MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *ierr); +void pmpi_comm_disconnect_(MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_comm_dup_(MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr); +void pmpi_comm_free_keyval_(MPI_Fint *comm_keyval, MPI_Fint *ierr); +void pmpi_comm_free_(MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_comm_get_attr_(MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_comm_get_errhandler_(MPI_Fint *comm, MPI_Fint *erhandler, MPI_Fint *ierr); +void pmpi_comm_get_name_(MPI_Fint *comm, char *comm_name, MPI_Fint *resultlen, MPI_Fint *ierr); +void pmpi_comm_get_parent_(MPI_Fint *parent, MPI_Fint *ierr); +void pmpi_comm_group_(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr); +void pmpi_comm_join_(MPI_Fint *fd, MPI_Fint *intercomm, MPI_Fint *ierr); +void pmpi_comm_rank_(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *ierr); +void pmpi_comm_remote_group_(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr); +void pmpi_comm_remote_size_(MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_comm_set_attr_(MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *ierr); +void pmpi_comm_set_errhandler_(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_comm_set_name_(MPI_Fint *comm, char *comm_name, MPI_Fint *ierr); +void pmpi_comm_size_(MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_comm_spawn_(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); +void pmpi_comm_spawn_multiple_(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); +void pmpi_comm_split_(MPI_Fint *comm, MPI_Fint *color, MPI_Fint *key, MPI_Fint *newcomm, MPI_Fint *ierr); +void pmpi_comm_test_inter_(MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_dims_create_(MPI_Fint *nnodes, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *ierr); +void pmpi_errhandler_create_(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_errhandler_free_(MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_errhandler_get_(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_errhandler_set_(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_error_class_(MPI_Fint *errorcode, MPI_Fint *errorclass, MPI_Fint *ierr); +void pmpi_error_string_(MPI_Fint *errorcode, char *string, MPI_Fint *resultlen, MPI_Fint *ierr); +void pmpi_exscan_(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_file_call_errhandler_(MPI_Fint *fh, MPI_Fint *errorcode, MPI_Fint *ierr); +void pmpi_file_create_errhandler_(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_file_set_errhandler_(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_file_get_errhandler_(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_file_open_(MPI_Fint *comm, char *filename, MPI_Fint *amode, MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr); +void pmpi_file_close_(MPI_Fint *fh, MPI_Fint *ierr); +void pmpi_file_delete_(char *filename, MPI_Fint *info, MPI_Fint *ierr); +void pmpi_file_set_size_(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_file_preallocate_(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_file_get_size_(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_file_get_group_(MPI_Fint *fh, MPI_Fint *group, MPI_Fint *ierr); +void pmpi_file_get_amode_(MPI_Fint *fh, MPI_Fint *amode, MPI_Fint *ierr); +void pmpi_file_set_info_(MPI_Fint *fh, MPI_Fint *info, MPI_Fint *ierr); +void pmpi_file_get_info_(MPI_Fint *fh, MPI_Fint *info_used, MPI_Fint *ierr); +void pmpi_file_set_view_(MPI_Fint *fh, MPI_Fint *disp, MPI_Fint *etype, MPI_Fint *filetype, char *datarep, MPI_Fint *info, MPI_Fint *ierr); +void pmpi_file_get_view_(MPI_Fint *fh, MPI_Fint *disp, MPI_Fint *etype, MPI_Fint *filetype, char *datarep, MPI_Fint *ierr); +void pmpi_file_read_at_(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_read_at_all_(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_at_(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_at_all_(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_iread_at_(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_file_iwrite_at_(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_file_read_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_read_all_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_all_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_iread_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_file_iwrite_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_file_seek_(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *whence, MPI_Fint *ierr); +void pmpi_file_get_position_(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr); +void pmpi_file_get_byte_offset_(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *disp, MPI_Fint *ierr); +void pmpi_file_read_shared_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_shared_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_iread_shared_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_file_iwrite_shared_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_file_read_ordered_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_ordered_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_seek_shared_(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *whence, MPI_Fint *ierr); +void pmpi_file_get_position_shared_(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr); +void pmpi_file_read_at_all_begin_(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void pmpi_file_read_at_all_end_(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_at_all_begin_(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void pmpi_file_write_at_all_end_(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_read_all_begin_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void pmpi_file_read_all_end_(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_all_begin_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void pmpi_file_write_all_end_(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_read_ordered_begin_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void pmpi_file_read_ordered_end_(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_ordered_begin_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void pmpi_file_write_ordered_end_(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_get_type_extent_(MPI_Fint *fh, MPI_Fint *datatype, MPI_Fint *extent, MPI_Fint *ierr); +void pmpi_file_set_atomicity_(MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_file_get_atomicity_(MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_file_sync_(MPI_Fint *fh, MPI_Fint *ierr); +void pmpi_finalize_(MPI_Fint *ierr); +void pmpi_finalized_(MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_free_mem_(char *base, MPI_Fint *ierr); +void pmpi_gather_(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); +void pmpi_gatherv_(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); +void pmpi_get_address_(char *location, MPI_Fint *address, MPI_Fint *ierr); +void pmpi_get_count_(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr); +void pmpi_get_elements_(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr); +void pmpi_get_(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); +void pmpi_get_processor_name_(char *name, MPI_Fint *resultlen, MPI_Fint *ierr); +void pmpi_get_version_(MPI_Fint *version, MPI_Fint *subversion, MPI_Fint *ierr); +void pmpi_graph_create_(MPI_Fint *comm_old, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *reorder, MPI_Fint *comm_graph, MPI_Fint *ierr); +void pmpi_graph_get_(MPI_Fint *comm, MPI_Fint *maxindex, MPI_Fint *maxedges, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *ierr); +void pmpi_graph_map_(MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *newrank, MPI_Fint *ierr); +void pmpi_graph_neighbors_count_(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *nneighbors, MPI_Fint *ierr); +void pmpi_graph_neighbors_(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxneighbors, MPI_Fint *neighbors, MPI_Fint *ierr); +void pmpi_graphdims_get_(MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *nedges, MPI_Fint *ierr); +void pmpi_grequest_complete_(MPI_Fint *request, MPI_Fint *ierr); +void pmpi_grequest_start_(MPI_Fint *query_fn, MPI_Fint *free_fn, MPI_Fint *cancel_fn, char *extra_state, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_group_compare_(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *result, MPI_Fint *ierr); +void pmpi_group_difference_(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr); +void pmpi_group_excl_(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *newgroup, MPI_Fint *ierr); +void pmpi_group_free_(MPI_Fint *group, MPI_Fint *ierr); +void pmpi_group_incl_(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *newgroup, MPI_Fint *ierr); +void pmpi_group_intersection_(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr); +void pmpi_group_range_excl_(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranges3, MPI_Fint *newgroup, MPI_Fint *ierr); +void pmpi_group_range_incl_(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranges3, MPI_Fint *newgroup, MPI_Fint *ierr); +void pmpi_group_rank_(MPI_Fint *group, MPI_Fint *rank, MPI_Fint *ierr); +void pmpi_group_size_(MPI_Fint *group, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_group_translate_ranks_(MPI_Fint *group1, MPI_Fint *n, MPI_Fint *ranks1, MPI_Fint *group2, MPI_Fint *ranks2, MPI_Fint *ierr); +void pmpi_group_union_(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr); +void pmpi_ibsend_(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_info_create_(MPI_Fint *info, MPI_Fint *ierr); +void pmpi_info_delete_(MPI_Fint *info, char *key, MPI_Fint *ierr); +void pmpi_info_dup_(MPI_Fint *info, MPI_Fint *newinfo, MPI_Fint *ierr); +void pmpi_info_free_(MPI_Fint *info, MPI_Fint *ierr); +void pmpi_info_get_(MPI_Fint *info, char *key, MPI_Fint *valuelen, char *value, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_info_get_nkeys_(MPI_Fint *info, MPI_Fint *nkeys, MPI_Fint *ierr); +void pmpi_info_get_nthkey_(MPI_Fint *info, MPI_Fint *n, char *key, MPI_Fint *ierr); +void pmpi_info_get_valuelen_(MPI_Fint *info, char *key, MPI_Fint *valuelen, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_info_set_(MPI_Fint *info, char *key, char *value, MPI_Fint *ierr); +void pmpi_init_(MPI_Fint *argc, char *argv, MPI_Fint *ierr); +void pmpi_initialized_(MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_init_thread_(MPI_Fint *argc, char *argv, MPI_Fint *required, MPI_Fint *provided, MPI_Fint *ierr); +void pmpi_intercomm_create_(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); +void pmpi_intercomm_merge_(MPI_Fint *intercomm, MPI_Fint *high, MPI_Fint *newintercomm, MPI_Fint *ierr); +void pmpi_iprobe_(MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_irecv_(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_irsend_(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_isend_(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_issend_(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_is_thread_main_(MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_keyval_create_(MPI_Fint *copy_fn, MPI_Fint *delete_fn, MPI_Fint *keyval, char *extra_state, MPI_Fint *ierr); +void pmpi_keyval_free_(MPI_Fint *keyval, MPI_Fint *ierr); +void pmpi_lookup_name_(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void pmpi_op_create_(MPI_Fint *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr); +void pmpi_open_port_(MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void pmpi_op_free_(MPI_Fint *op, MPI_Fint *ierr); +void pmpi_pack_external_(char *datarep, char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *ierr); +void pmpi_pack_external_size_(char *datarep, MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_pack_(char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_pack_size_(MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_pcontrol_(MPI_Fint *level); +void pmpi_probe_(MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_publish_name_(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void pmpi_put_(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); +void pmpi_query_thread_(MPI_Fint *provided, MPI_Fint *ierr); +void pmpi_recv_init_(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_recv_(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_reduce_(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_reduce_scatter_(char *sendbuf, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_register_datarep_(char *datarep, MPI_Fint *read_conversion_fn, MPI_Fint *write_conversion_fn, MPI_Fint *dtype_file_extent_fn, char *extra_state, MPI_Fint *ierr); +void pmpi_request_free_(MPI_Fint *request, MPI_Fint *ierr); +void pmpi_request_get_status_(MPI_Fint *request, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_rsend_(char *ibuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_rsend_init_(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_scan_(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_scatter_(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); +void pmpi_scatterv_(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); +void pmpi_send_init_(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_send_(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_sendrecv_(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *dest, MPI_Fint *sendtag, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_sendrecv_replace_(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *sendtag, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_ssend_init_(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_ssend_(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_start_(MPI_Fint *request, MPI_Fint *ierr); +void pmpi_startall_(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *ierr); +void pmpi_status_set_cancelled_(MPI_Fint *status, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_status_set_elements_(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr); +void pmpi_testall_(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *flag, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void pmpi_testany_(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_test_(MPI_Fint *request, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_test_cancelled_(MPI_Fint *status, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_testsome_(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *outcount, MPI_Fint *array_of_indices, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void pmpi_topo_test_(MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_type_commit_(MPI_Fint *type, MPI_Fint *ierr); +void pmpi_type_contiguous_(MPI_Fint *count, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_darray_(MPI_Fint *size, MPI_Fint *rank, MPI_Fint *ndims, MPI_Fint *gsize_array, MPI_Fint *distrib_array, MPI_Fint *darg_array, MPI_Fint *psize_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_f90_complex_(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_f90_integer_(MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_f90_real_(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_hindexed_(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_hvector_(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_keyval_(MPI_Fint *type_copy_attr_fn, MPI_Fint *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr); +void pmpi_type_create_indexed_block_(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_struct_(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); +void pmpi_type_create_subarray_(MPI_Fint *ndims, MPI_Fint *size_array, MPI_Fint *subsize_array, MPI_Fint *start_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_resized_(MPI_Fint *oldtype, MPI_Fint *lb, MPI_Fint *extent, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_delete_attr_(MPI_Fint *type, MPI_Fint *type_keyval, MPI_Fint *ierr); +void pmpi_type_dup_(MPI_Fint *type, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_extent_(MPI_Fint *type, MPI_Fint *extent, MPI_Fint *ierr); +void pmpi_type_free_(MPI_Fint *type, MPI_Fint *ierr); +void pmpi_type_free_keyval_(MPI_Fint *type_keyval, MPI_Fint *ierr); +void pmpi_type_get_attr_(MPI_Fint *type, MPI_Fint *type_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_type_get_contents_(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); +void pmpi_type_get_envelope_(MPI_Fint *type, MPI_Fint *num_integers, MPI_Fint *num_addresses, MPI_Fint *num_datatypes, MPI_Fint *combiner, MPI_Fint *ierr); +void pmpi_type_get_extent_(MPI_Fint *type, MPI_Fint *lb, MPI_Fint *extent, MPI_Fint *ierr); +void pmpi_type_get_name_(MPI_Fint *type, char *type_name, MPI_Fint *resultlen, MPI_Fint *ierr); +void pmpi_type_get_true_extent_(MPI_Fint *datatype, MPI_Fint *true_lb, MPI_Fint *true_extent, MPI_Fint *ierr); +void pmpi_type_hindexed_(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_hvector_(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_indexed_(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_lb_(MPI_Fint *type, MPI_Fint *lb, MPI_Fint *ierr); +void pmpi_type_match_size_(MPI_Fint *typeclass, MPI_Fint *size, MPI_Fint *type, MPI_Fint *ierr); +void pmpi_type_set_attr_(MPI_Fint *type, MPI_Fint *type_keyval, char *attr_val, MPI_Fint *ierr); +void pmpi_type_set_name_(MPI_Fint *type, char *type_name, MPI_Fint *ierr); +void pmpi_type_size_(MPI_Fint *type, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_type_struct_(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *array_of_types, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_ub_(MPI_Fint *mtype, MPI_Fint *ub, MPI_Fint *ierr); +void pmpi_type_vector_(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_unpack_(char *inbuf, MPI_Fint *insize, MPI_Fint *position, char *outbuf, MPI_Fint *outcount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_unpublish_name_(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void pmpi_unpack_external_ (char *datarep, char *inbuf, MPI_Fint *insize, MPI_Fint *position, char *outbuf, MPI_Fint *outcount, MPI_Fint *datatype, MPI_Fint *ierr); +void pmpi_waitall_(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void pmpi_waitany_(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_wait_(MPI_Fint *request, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_waitsome_(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *outcount, MPI_Fint *array_of_indices, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void pmpi_win_call_errhandler_(MPI_Fint *win, MPI_Fint *errorcode, MPI_Fint *ierr); +void pmpi_win_complete_(MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_create_(char *base, MPI_Fint *size, MPI_Fint *disp_unit, MPI_Fint *info, MPI_Fint *comm, MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_create_errhandler_(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_win_create_keyval_(MPI_Fint *win_copy_attr_fn, MPI_Fint *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr); +void pmpi_win_delete_attr_(MPI_Fint *win, MPI_Fint *win_keyval, MPI_Fint *ierr); +void pmpi_win_fence_(MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_free_(MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_free_keyval_(MPI_Fint *win_keyval, MPI_Fint *ierr); +void pmpi_win_get_attr_(MPI_Fint *win, MPI_Fint *win_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_win_get_errhandler_(MPI_Fint *win, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_win_get_group_(MPI_Fint *win, MPI_Fint *group, MPI_Fint *ierr); +void pmpi_win_get_name_(MPI_Fint *win, char *win_name, MPI_Fint *resultlen, MPI_Fint *ierr); +void pmpi_win_lock_(MPI_Fint *lock_type, MPI_Fint *rank, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_post_(MPI_Fint *group, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_set_attr_(MPI_Fint *win, MPI_Fint *win_keyval, char *attribute_val, MPI_Fint *ierr); +void pmpi_win_set_errhandler_(MPI_Fint *win, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_win_set_name_(MPI_Fint *win, char *win_name, MPI_Fint *ierr); +void pmpi_win_start_(MPI_Fint *group, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_test_(MPI_Fint *win, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_win_unlock_(MPI_Fint *rank, MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_wait_(MPI_Fint *win, MPI_Fint *ierr); +double pmpi_wtick_(MPI_Fint *ierr); +double pmpi_wtime_(MPI_Fint *ierr); +/*This is the double underscore prototypes*/ -/* - * Fourth, two trailing underscores. - */ +void pmpi_abort__(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr); +void pmpi_accumulate__(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); +void pmpi_add_error_class__(MPI_Fint *errorclass, MPI_Fint *ierr); +void pmpi_add_error_code__(MPI_Fint *errorclass, MPI_Fint *errorcode, MPI_Fint *ierr); +void pmpi_add_error_string__(MPI_Fint *errorcode, char *string, MPI_Fint *ierr); +void pmpi_address__(char *location, MPI_Fint *address, MPI_Fint *ierr); +void pmpi_allgather__(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_allgatherv__(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); void pmpi_alloc_mem__(MPI_Fint *size, MPI_Fint *info, char *baseptr, MPI_Fint *ierr); -void pmpi_comm_get_name__(MPI_Fint *comm, char *name, MPI_Fint *l, MPI_Fint *ierror, - MPI_Fint charlen); -void pmpi_comm_set_name__(MPI_Fint *comm, char *name, MPI_Fint *ierror, MPI_Fint charlen); -void pmpi_init__(MPI_Fint *ierror); -void pmpi_finalize__(MPI_Fint *ierror); -void pmpi_free_mem__(char *baseptr, MPI_Fint *ierr); -void pmpi_group_compare__(MPI_Fint *group1, MPI_Fint *group2, - MPI_Fint *result, MPI_Fint *ierror); +void pmpi_allreduce__(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_alltoall__(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_alltoallv__(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); +void pmpi_alltoallw__(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); +void pmpi_attr_delete__(MPI_Fint *comm, MPI_Fint *keyval, MPI_Fint *ierr); +void pmpi_attr_get__(MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_attr_put__(MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *ierr); +void pmpi_barrier__(MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_bcast__(char *buffer, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_bsend__(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_bsend_init__(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_buffer_attach__(char *buffer, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_buffer_detach__(char *buffer, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_cancel__(MPI_Fint *request, MPI_Fint *ierr); +void pmpi_cart_coords__(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxdims, MPI_Fint *coords, MPI_Fint *ierr); +void pmpi_cart_create__(MPI_Fint *old_comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *redorder, MPI_Fint *comm_cart, MPI_Fint *ierr); +void pmpi_cart_get__(MPI_Fint *comm, MPI_Fint *maxdims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *coords, MPI_Fint *ierr); +void pmpi_cart_map__(MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *newrank, MPI_Fint *ierr); +void pmpi_cart_rank__(MPI_Fint *comm, MPI_Fint *coords, MPI_Fint *rank, MPI_Fint *ierr); +void pmpi_cart_shift__(MPI_Fint *comm, MPI_Fint *direction, MPI_Fint *disp, MPI_Fint *rank_source, MPI_Fint *rank_dest, MPI_Fint *ierr); +void pmpi_cart_sub__(MPI_Fint *comm, MPI_Fint *remain_dims, MPI_Fint *new_comm, MPI_Fint *ierr); +void pmpi_cartdim_get__(MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *ierr); +void pmpi_close_port__(char *port_name, MPI_Fint *ierr); +void pmpi_comm_accept__(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr); +void pmpi_comm_call_errhandler__(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr); +void pmpi_comm_compare__(MPI_Fint *comm1, MPI_Fint *comm2, MPI_Fint *result, MPI_Fint *ierr); +void pmpi_comm_connect__(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr); +void pmpi_comm_create_errhandler__(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_comm_create_keyval__(MPI_Fint *comm_copy_attr_fn, MPI_Fint *comm_delete_attr_fn, MPI_Fint *comm_keyval, char *extra_state, MPI_Fint *ierr); +void pmpi_comm_create__(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr); +void pmpi_comm_delete_attr__(MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *ierr); +void pmpi_comm_disconnect__(MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_comm_dup__(MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr); +void pmpi_comm_free_keyval__(MPI_Fint *comm_keyval, MPI_Fint *ierr); +void pmpi_comm_free__(MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_comm_get_attr__(MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_comm_get_errhandler__(MPI_Fint *comm, MPI_Fint *erhandler, MPI_Fint *ierr); +void pmpi_comm_get_name__(MPI_Fint *comm, char *comm_name, MPI_Fint *resultlen, MPI_Fint *ierr); +void pmpi_comm_get_parent__(MPI_Fint *parent, MPI_Fint *ierr); +void pmpi_comm_group__(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr); +void pmpi_comm_join__(MPI_Fint *fd, MPI_Fint *intercomm, MPI_Fint *ierr); +void pmpi_comm_rank__(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *ierr); +void pmpi_comm_remote_group__(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr); +void pmpi_comm_remote_size__(MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_comm_set_attr__(MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *ierr); +void pmpi_comm_set_errhandler__(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_comm_set_name__(MPI_Fint *comm, char *comm_name, MPI_Fint *ierr); +void pmpi_comm_size__(MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_comm_spawn__(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); +void pmpi_comm_spawn_multiple__(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); +void pmpi_comm_split__(MPI_Fint *comm, MPI_Fint *color, MPI_Fint *key, MPI_Fint *newcomm, MPI_Fint *ierr); +void pmpi_comm_test_inter__(MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_dims_create__(MPI_Fint *nnodes, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *ierr); +void pmpi_errhandler_create__(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_errhandler_free__(MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_errhandler_get__(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_errhandler_set__(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_error_class__(MPI_Fint *errorcode, MPI_Fint *errorclass, MPI_Fint *ierr); +void pmpi_error_string__(MPI_Fint *errorcode, char *string, MPI_Fint *resultlen, MPI_Fint *ierr); +void pmpi_exscan__(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_file_call_errhandler__(MPI_Fint *fh, MPI_Fint *errorcode, MPI_Fint *ierr); +void pmpi_file_create_errhandler__(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_file_set_errhandler__(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_file_get_errhandler__(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_file_open__(MPI_Fint *comm, char *filename, MPI_Fint *amode, MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr); +void pmpi_file_close__(MPI_Fint *fh, MPI_Fint *ierr); +void pmpi_file_delete__(char *filename, MPI_Fint *info, MPI_Fint *ierr); +void pmpi_file_set_size__(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_file_preallocate__(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_file_get_size__(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_file_get_group__(MPI_Fint *fh, MPI_Fint *group, MPI_Fint *ierr); +void pmpi_file_get_amode__(MPI_Fint *fh, MPI_Fint *amode, MPI_Fint *ierr); +void pmpi_file_set_info__(MPI_Fint *fh, MPI_Fint *info, MPI_Fint *ierr); +void pmpi_file_get_info__(MPI_Fint *fh, MPI_Fint *info_used, MPI_Fint *ierr); +void pmpi_file_set_view__(MPI_Fint *fh, MPI_Fint *disp, MPI_Fint *etype, MPI_Fint *filetype, char *datarep, MPI_Fint *info, MPI_Fint *ierr); +void pmpi_file_get_view__(MPI_Fint *fh, MPI_Fint *disp, MPI_Fint *etype, MPI_Fint *filetype, char *datarep, MPI_Fint *ierr); +void pmpi_file_read_at__(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_read_at_all__(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_at__(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_at_all__(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_iread_at__(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_file_iwrite_at__(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_file_read__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_read_all__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_all__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_iread__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_file_iwrite__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_file_seek__(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *whence, MPI_Fint *ierr); +void pmpi_file_get_position__(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr); +void pmpi_file_get_byte_offset__(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *disp, MPI_Fint *ierr); +void pmpi_file_read_shared__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_shared__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_iread_shared__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_file_iwrite_shared__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_file_read_ordered__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_ordered__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_seek_shared__(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *whence, MPI_Fint *ierr); +void pmpi_file_get_position_shared__(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr); +void pmpi_file_read_at_all_begin__(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void pmpi_file_read_at_all_end__(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_at_all_begin__(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void pmpi_file_write_at_all_end__(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_read_all_begin__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void pmpi_file_read_all_end__(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_all_begin__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void pmpi_file_write_all_end__(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_read_ordered_begin__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void pmpi_file_read_ordered_end__(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_write_ordered_begin__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void pmpi_file_write_ordered_end__(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_file_get_type_extent__(MPI_Fint *fh, MPI_Fint *datatype, MPI_Fint *extent, MPI_Fint *ierr); +void pmpi_file_set_atomicity__(MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_file_get_atomicity__(MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_file_sync__(MPI_Fint *fh, MPI_Fint *ierr); +void pmpi_finalize__(MPI_Fint *ierr); +void pmpi_finalized__(MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_free_mem__(char *base, MPI_Fint *ierr); +void pmpi_gather__(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); +void pmpi_gatherv__(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); +void pmpi_get_address__(char *location, MPI_Fint *address, MPI_Fint *ierr); +void pmpi_get_count__(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr); +void pmpi_get_elements__(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr); +void pmpi_get__(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); +void pmpi_get_processor_name__(char *name, MPI_Fint *resultlen, MPI_Fint *ierr); +void pmpi_get_version__(MPI_Fint *version, MPI_Fint *subversion, MPI_Fint *ierr); +void pmpi_graph_create__(MPI_Fint *comm_old, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *reorder, MPI_Fint *comm_graph, MPI_Fint *ierr); +void pmpi_graph_get__(MPI_Fint *comm, MPI_Fint *maxindex, MPI_Fint *maxedges, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *ierr); +void pmpi_graph_map__(MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *newrank, MPI_Fint *ierr); +void pmpi_graph_neighbors_count__(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *nneighbors, MPI_Fint *ierr); +void pmpi_graph_neighbors__(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxneighbors, MPI_Fint *neighbors, MPI_Fint *ierr); +void pmpi_graphdims_get__(MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *nedges, MPI_Fint *ierr); +void pmpi_grequest_complete__(MPI_Fint *request, MPI_Fint *ierr); +void pmpi_grequest_start__(MPI_Fint *query_fn, MPI_Fint *free_fn, MPI_Fint *cancel_fn, char *extra_state, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_group_compare__(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *result, MPI_Fint *ierr); +void pmpi_group_difference__(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr); +void pmpi_group_excl__(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *newgroup, MPI_Fint *ierr); +void pmpi_group_free__(MPI_Fint *group, MPI_Fint *ierr); +void pmpi_group_incl__(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *newgroup, MPI_Fint *ierr); +void pmpi_group_intersection__(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr); +void pmpi_group_range_excl__(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranges3, MPI_Fint *newgroup, MPI_Fint *ierr); +void pmpi_group_range_incl__(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranges3, MPI_Fint *newgroup, MPI_Fint *ierr); +void pmpi_group_rank__(MPI_Fint *group, MPI_Fint *rank, MPI_Fint *ierr); +void pmpi_group_size__(MPI_Fint *group, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_group_translate_ranks__(MPI_Fint *group1, MPI_Fint *n, MPI_Fint *ranks1, MPI_Fint *group2, MPI_Fint *ranks2, MPI_Fint *ierr); +void pmpi_group_union__(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr); +void pmpi_ibsend__(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_info_create__(MPI_Fint *info, MPI_Fint *ierr); +void pmpi_info_delete__(MPI_Fint *info, char *key, MPI_Fint *ierr); +void pmpi_info_dup__(MPI_Fint *info, MPI_Fint *newinfo, MPI_Fint *ierr); +void pmpi_info_free__(MPI_Fint *info, MPI_Fint *ierr); +void pmpi_info_get__(MPI_Fint *info, char *key, MPI_Fint *valuelen, char *value, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_info_get_nkeys__(MPI_Fint *info, MPI_Fint *nkeys, MPI_Fint *ierr); +void pmpi_info_get_nthkey__(MPI_Fint *info, MPI_Fint *n, char *key, MPI_Fint *ierr); +void pmpi_info_get_valuelen__(MPI_Fint *info, char *key, MPI_Fint *valuelen, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_info_set__(MPI_Fint *info, char *key, char *value, MPI_Fint *ierr); +void pmpi_init__(MPI_Fint *argc, char *argv, MPI_Fint *ierr); +void pmpi_initialized__(MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_init_thread__(MPI_Fint *argc, char *argv, MPI_Fint *required, MPI_Fint *provided, MPI_Fint *ierr); +void pmpi_intercomm_create__(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); +void pmpi_intercomm_merge__(MPI_Fint *intercomm, MPI_Fint *high, MPI_Fint *newintercomm, MPI_Fint *ierr); +void pmpi_iprobe__(MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_irecv__(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_irsend__(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_isend__(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_issend__(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_is_thread_main__(MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_keyval_create__(MPI_Fint *copy_fn, MPI_Fint *delete_fn, MPI_Fint *keyval, char *extra_state, MPI_Fint *ierr); +void pmpi_keyval_free__(MPI_Fint *keyval, MPI_Fint *ierr); +void pmpi_lookup_name__(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void pmpi_op_create__(MPI_Fint *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr); +void pmpi_open_port__(MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void pmpi_op_free__(MPI_Fint *op, MPI_Fint *ierr); +void pmpi_pack_external__(char *datarep, char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *ierr); +void pmpi_pack_external_size__(char *datarep, MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_pack__(char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_pack_size__(MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_pcontrol__(MPI_Fint *level); +void pmpi_probe__(MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_publish_name__(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void pmpi_put__(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); +void pmpi_query_thread__(MPI_Fint *provided, MPI_Fint *ierr); +void pmpi_recv_init__(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_recv__(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_reduce__(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_reduce_scatter__(char *sendbuf, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_register_datarep__(char *datarep, MPI_Fint *read_conversion_fn, MPI_Fint *write_conversion_fn, MPI_Fint *dtype_file_extent_fn, char *extra_state, MPI_Fint *ierr); +void pmpi_request_free__(MPI_Fint *request, MPI_Fint *ierr); +void pmpi_request_get_status__(MPI_Fint *request, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_rsend__(char *ibuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_rsend_init__(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_scan__(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_scatter__(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); +void pmpi_scatterv__(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); +void pmpi_send_init__(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_send__(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_sendrecv__(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *dest, MPI_Fint *sendtag, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_sendrecv_replace__(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *sendtag, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_ssend_init__(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void pmpi_ssend__(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_start__(MPI_Fint *request, MPI_Fint *ierr); +void pmpi_startall__(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *ierr); +void pmpi_status_set_cancelled__(MPI_Fint *status, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_status_set_elements__(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr); +void pmpi_testall__(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *flag, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void pmpi_testany__(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_test__(MPI_Fint *request, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_test_cancelled__(MPI_Fint *status, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_testsome__(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *outcount, MPI_Fint *array_of_indices, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void pmpi_topo_test__(MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_type_commit__(MPI_Fint *type, MPI_Fint *ierr); +void pmpi_type_contiguous__(MPI_Fint *count, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_darray__(MPI_Fint *size, MPI_Fint *rank, MPI_Fint *ndims, MPI_Fint *gsize_array, MPI_Fint *distrib_array, MPI_Fint *darg_array, MPI_Fint *psize_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_f90_complex__(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_f90_integer__(MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_f90_real__(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_hindexed__(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_hvector__(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_keyval__(MPI_Fint *type_copy_attr_fn, MPI_Fint *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr); +void pmpi_type_create_indexed_block__(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_struct__(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); +void pmpi_type_create_subarray__(MPI_Fint *ndims, MPI_Fint *size_array, MPI_Fint *subsize_array, MPI_Fint *start_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_create_resized__(MPI_Fint *oldtype, MPI_Fint *lb, MPI_Fint *extent, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_delete_attr__(MPI_Fint *type, MPI_Fint *type_keyval, MPI_Fint *ierr); +void pmpi_type_dup__(MPI_Fint *type, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_extent__(MPI_Fint *type, MPI_Fint *extent, MPI_Fint *ierr); +void pmpi_type_free__(MPI_Fint *type, MPI_Fint *ierr); +void pmpi_type_free_keyval__(MPI_Fint *type_keyval, MPI_Fint *ierr); +void pmpi_type_get_attr__(MPI_Fint *type, MPI_Fint *type_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_type_get_contents__(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); +void pmpi_type_get_envelope__(MPI_Fint *type, MPI_Fint *num_integers, MPI_Fint *num_addresses, MPI_Fint *num_datatypes, MPI_Fint *combiner, MPI_Fint *ierr); +void pmpi_type_get_extent__(MPI_Fint *type, MPI_Fint *lb, MPI_Fint *extent, MPI_Fint *ierr); +void pmpi_type_get_name__(MPI_Fint *type, char *type_name, MPI_Fint *resultlen, MPI_Fint *ierr); +void pmpi_type_get_true_extent__(MPI_Fint *datatype, MPI_Fint *true_lb, MPI_Fint *true_extent, MPI_Fint *ierr); +void pmpi_type_hindexed__(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_hvector__(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_indexed__(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_lb__(MPI_Fint *type, MPI_Fint *lb, MPI_Fint *ierr); +void pmpi_type_match_size__(MPI_Fint *typeclass, MPI_Fint *size, MPI_Fint *type, MPI_Fint *ierr); +void pmpi_type_set_attr__(MPI_Fint *type, MPI_Fint *type_keyval, char *attr_val, MPI_Fint *ierr); +void pmpi_type_set_name__(MPI_Fint *type, char *type_name, MPI_Fint *ierr); +void pmpi_type_size__(MPI_Fint *type, MPI_Fint *size, MPI_Fint *ierr); +void pmpi_type_struct__(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *array_of_types, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_type_ub__(MPI_Fint *mtype, MPI_Fint *ub, MPI_Fint *ierr); +void pmpi_type_vector__(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void pmpi_unpack__(char *inbuf, MPI_Fint *insize, MPI_Fint *position, char *outbuf, MPI_Fint *outcount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *ierr); +void pmpi_unpublish_name__(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void pmpi_unpack_external__ (char *datarep, char *inbuf, MPI_Fint *insize, MPI_Fint *position, char *outbuf, MPI_Fint *outcount, MPI_Fint *datatype, MPI_Fint *ierr); +void pmpi_waitall__(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void pmpi_waitany__(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_wait__(MPI_Fint *request, MPI_Fint *status, MPI_Fint *ierr); +void pmpi_waitsome__(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *outcount, MPI_Fint *array_of_indices, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void pmpi_win_call_errhandler__(MPI_Fint *win, MPI_Fint *errorcode, MPI_Fint *ierr); +void pmpi_win_complete__(MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_create__(char *base, MPI_Fint *size, MPI_Fint *disp_unit, MPI_Fint *info, MPI_Fint *comm, MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_create_errhandler__(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_win_create_keyval__(MPI_Fint *win_copy_attr_fn, MPI_Fint *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr); +void pmpi_win_delete_attr__(MPI_Fint *win, MPI_Fint *win_keyval, MPI_Fint *ierr); +void pmpi_win_fence__(MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_free__(MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_free_keyval__(MPI_Fint *win_keyval, MPI_Fint *ierr); +void pmpi_win_get_attr__(MPI_Fint *win, MPI_Fint *win_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_win_get_errhandler__(MPI_Fint *win, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_win_get_group__(MPI_Fint *win, MPI_Fint *group, MPI_Fint *ierr); +void pmpi_win_get_name__(MPI_Fint *win, char *win_name, MPI_Fint *resultlen, MPI_Fint *ierr); +void pmpi_win_lock__(MPI_Fint *lock_type, MPI_Fint *rank, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_post__(MPI_Fint *group, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_set_attr__(MPI_Fint *win, MPI_Fint *win_keyval, char *attribute_val, MPI_Fint *ierr); +void pmpi_win_set_errhandler__(MPI_Fint *win, MPI_Fint *errhandler, MPI_Fint *ierr); +void pmpi_win_set_name__(MPI_Fint *win, char *win_name, MPI_Fint *ierr); +void pmpi_win_start__(MPI_Fint *group, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_test__(MPI_Fint *win, MPI_Fint *flag, MPI_Fint *ierr); +void pmpi_win_unlock__(MPI_Fint *rank, MPI_Fint *win, MPI_Fint *ierr); +void pmpi_win_wait__(MPI_Fint *win, MPI_Fint *ierr); +double pmpi_wtick__(MPI_Fint *ierr); +double pmpi_wtime__(MPI_Fint *ierr); +/*This is the all upper case prototypes*/ + +void PMPI_ABORT(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr); +void PMPI_ACCUMULATE(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); +void PMPI_ADD_ERROR_CLASS(MPI_Fint *errorclass, MPI_Fint *ierr); +void PMPI_ADD_ERROR_CODE(MPI_Fint *errorclass, MPI_Fint *errorcode, MPI_Fint *ierr); +void PMPI_ADD_ERROR_STRING(MPI_Fint *errorcode, char *string, MPI_Fint *ierr); +void PMPI_ADDRESS(char *location, MPI_Fint *address, MPI_Fint *ierr); +void PMPI_ALLGATHER(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr); +void PMPI_ALLGATHERV(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); +void PMPI_ALLOC_MEM(MPI_Fint *size, MPI_Fint *info, char *baseptr, MPI_Fint *ierr); +void PMPI_ALLREDUCE(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void PMPI_ALLTOALL(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr); +void PMPI_ALLTOALLV(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); +void PMPI_ALLTOALLW(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); +void PMPI_ATTR_DELETE(MPI_Fint *comm, MPI_Fint *keyval, MPI_Fint *ierr); +void PMPI_ATTR_GET(MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void PMPI_ATTR_PUT(MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *ierr); +void PMPI_BARRIER(MPI_Fint *comm, MPI_Fint *ierr); +void PMPI_BCAST(char *buffer, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr); +void PMPI_BSEND(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void PMPI_BSEND_INIT(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void PMPI_BUFFER_ATTACH(char *buffer, MPI_Fint *size, MPI_Fint *ierr); +void PMPI_BUFFER_DETACH(char *buffer, MPI_Fint *size, MPI_Fint *ierr); +void PMPI_CANCEL(MPI_Fint *request, MPI_Fint *ierr); +void PMPI_CART_COORDS(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxdims, MPI_Fint *coords, MPI_Fint *ierr); +void PMPI_CART_CREATE(MPI_Fint *old_comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *redorder, MPI_Fint *comm_cart, MPI_Fint *ierr); +void PMPI_CART_GET(MPI_Fint *comm, MPI_Fint *maxdims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *coords, MPI_Fint *ierr); +void PMPI_CART_MAP(MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *newrank, MPI_Fint *ierr); +void PMPI_CART_RANK(MPI_Fint *comm, MPI_Fint *coords, MPI_Fint *rank, MPI_Fint *ierr); +void PMPI_CART_SHIFT(MPI_Fint *comm, MPI_Fint *direction, MPI_Fint *disp, MPI_Fint *rank_source, MPI_Fint *rank_dest, MPI_Fint *ierr); +void PMPI_CART_SUB(MPI_Fint *comm, MPI_Fint *remain_dims, MPI_Fint *new_comm, MPI_Fint *ierr); +void PMPI_CARTDIM_GET(MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *ierr); +void PMPI_CLOSE_PORT(char *port_name, MPI_Fint *ierr); +void PMPI_COMM_ACCEPT(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr); +void PMPI_COMM_CALL_ERRHANDLER(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr); +void PMPI_COMM_COMPARE(MPI_Fint *comm1, MPI_Fint *comm2, MPI_Fint *result, MPI_Fint *ierr); +void PMPI_COMM_CONNECT(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr); +void PMPI_COMM_CREATE_ERRHANDLER(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void PMPI_COMM_CREATE_KEYVAL(MPI_Fint *comm_copy_attr_fn, MPI_Fint *comm_delete_attr_fn, MPI_Fint *comm_keyval, char *extra_state, MPI_Fint *ierr); +void PMPI_COMM_CREATE(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr); +void PMPI_COMM_DELETE_ATTR(MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *ierr); +void PMPI_COMM_DISCONNECT(MPI_Fint *comm, MPI_Fint *ierr); +void PMPI_COMM_DUP(MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr); +void PMPI_COMM_FREE_KEYVAL(MPI_Fint *comm_keyval, MPI_Fint *ierr); +void PMPI_COMM_FREE(MPI_Fint *comm, MPI_Fint *ierr); +void PMPI_COMM_GET_ATTR(MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void PMPI_COMM_GET_ERRHANDLER(MPI_Fint *comm, MPI_Fint *erhandler, MPI_Fint *ierr); +void PMPI_COMM_GET_NAME(MPI_Fint *comm, char *comm_name, MPI_Fint *resultlen, MPI_Fint *ierr); +void PMPI_COMM_GET_PARENT(MPI_Fint *parent, MPI_Fint *ierr); +void PMPI_COMM_GROUP(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr); +void PMPI_COMM_JOIN(MPI_Fint *fd, MPI_Fint *intercomm, MPI_Fint *ierr); +void PMPI_COMM_RANK(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *ierr); +void PMPI_COMM_REMOTE_GROUP(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr); +void PMPI_COMM_REMOTE_SIZE(MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr); +void PMPI_COMM_SET_ATTR(MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *ierr); +void PMPI_COMM_SET_ERRHANDLER(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr); +void PMPI_COMM_SET_NAME(MPI_Fint *comm, char *comm_name, MPI_Fint *ierr); +void PMPI_COMM_SIZE(MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr); +void PMPI_COMM_SPAWN(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); +void PMPI_COMM_SPAWN_MULTIPLE(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); +void PMPI_COMM_SPLIT(MPI_Fint *comm, MPI_Fint *color, MPI_Fint *key, MPI_Fint *newcomm, MPI_Fint *ierr); +void PMPI_COMM_TEST_INTER(MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *ierr); +void PMPI_DIMS_CREATE(MPI_Fint *nnodes, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *ierr); +void PMPI_ERRHANDLER_CREATE(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void PMPI_ERRHANDLER_FREE(MPI_Fint *errhandler, MPI_Fint *ierr); +void PMPI_ERRHANDLER_GET(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr); +void PMPI_ERRHANDLER_SET(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr); +void PMPI_ERROR_CLASS(MPI_Fint *errorcode, MPI_Fint *errorclass, MPI_Fint *ierr); +void PMPI_ERROR_STRING(MPI_Fint *errorcode, char *string, MPI_Fint *resultlen, MPI_Fint *ierr); +void PMPI_EXSCAN(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void PMPI_FILE_CALL_ERRHANDLER(MPI_Fint *fh, MPI_Fint *errorcode, MPI_Fint *ierr); +void PMPI_FILE_CREATE_ERRHANDLER(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void PMPI_FILE_SET_ERRHANDLER(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr); +void PMPI_FILE_GET_ERRHANDLER(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr); +void PMPI_FILE_OPEN(MPI_Fint *comm, char *filename, MPI_Fint *amode, MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr); +void PMPI_FILE_CLOSE(MPI_Fint *fh, MPI_Fint *ierr); +void PMPI_FILE_DELETE(char *filename, MPI_Fint *info, MPI_Fint *ierr); +void PMPI_FILE_SET_SIZE(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr); +void PMPI_FILE_PREALLOCATE(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr); +void PMPI_FILE_GET_SIZE(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr); +void PMPI_FILE_GET_GROUP(MPI_Fint *fh, MPI_Fint *group, MPI_Fint *ierr); +void PMPI_FILE_GET_AMODE(MPI_Fint *fh, MPI_Fint *amode, MPI_Fint *ierr); +void PMPI_FILE_SET_INFO(MPI_Fint *fh, MPI_Fint *info, MPI_Fint *ierr); +void PMPI_FILE_GET_INFO(MPI_Fint *fh, MPI_Fint *info_used, MPI_Fint *ierr); +void PMPI_FILE_SET_VIEW(MPI_Fint *fh, MPI_Fint *disp, MPI_Fint *etype, MPI_Fint *filetype, char *datarep, MPI_Fint *info, MPI_Fint *ierr); +void PMPI_FILE_GET_VIEW(MPI_Fint *fh, MPI_Fint *disp, MPI_Fint *etype, MPI_Fint *filetype, char *datarep, MPI_Fint *ierr); +void PMPI_FILE_READ_AT(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void PMPI_FILE_READ_AT_ALL(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void PMPI_FILE_WRITE_AT(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void PMPI_FILE_WRITE_AT_ALL(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void PMPI_FILE_IREAD_AT(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void PMPI_FILE_IWRITE_AT(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void PMPI_FILE_READ(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void PMPI_FILE_READ_ALL(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void PMPI_FILE_WRITE(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void PMPI_FILE_WRITE_ALL(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void PMPI_FILE_IREAD(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void PMPI_FILE_IWRITE(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void PMPI_FILE_SEEK(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *whence, MPI_Fint *ierr); +void PMPI_FILE_GET_POSITION(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr); +void PMPI_FILE_GET_BYTE_OFFSET(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *disp, MPI_Fint *ierr); +void PMPI_FILE_READ_SHARED(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void PMPI_FILE_WRITE_SHARED(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void PMPI_FILE_IREAD_SHARED(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void PMPI_FILE_IWRITE_SHARED(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void PMPI_FILE_READ_ORDERED(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void PMPI_FILE_WRITE_ORDERED(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void PMPI_FILE_SEEK_SHARED(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *whence, MPI_Fint *ierr); +void PMPI_FILE_GET_POSITION_SHARED(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr); +void PMPI_FILE_READ_AT_ALL_BEGIN(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void PMPI_FILE_READ_AT_ALL_END(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void PMPI_FILE_WRITE_AT_ALL_BEGIN(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void PMPI_FILE_WRITE_AT_ALL_END(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void PMPI_FILE_READ_ALL_BEGIN(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void PMPI_FILE_READ_ALL_END(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void PMPI_FILE_WRITE_ALL_BEGIN(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void PMPI_FILE_WRITE_ALL_END(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void PMPI_FILE_READ_ORDERED_BEGIN(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void PMPI_FILE_READ_ORDERED_END(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void PMPI_FILE_WRITE_ORDERED_BEGIN(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void PMPI_FILE_WRITE_ORDERED_END(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void PMPI_FILE_GET_TYPE_EXTENT(MPI_Fint *fh, MPI_Fint *datatype, MPI_Fint *extent, MPI_Fint *ierr); +void PMPI_FILE_SET_ATOMICITY(MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr); +void PMPI_FILE_GET_ATOMICITY(MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr); +void PMPI_FILE_SYNC(MPI_Fint *fh, MPI_Fint *ierr); +void PMPI_FINALIZE(MPI_Fint *ierr); +void PMPI_FINALIZED(MPI_Fint *flag, MPI_Fint *ierr); +void PMPI_FREE_MEM(char *base, MPI_Fint *ierr); +void PMPI_GATHER(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); +void PMPI_GATHERV(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); +void PMPI_GET_ADDRESS(char *location, MPI_Fint *address, MPI_Fint *ierr); +void PMPI_GET_COUNT(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr); +void PMPI_GET_ELEMENTS(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr); +void PMPI_GET(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); +void PMPI_GET_PROCESSOR_NAME(char *name, MPI_Fint *resultlen, MPI_Fint *ierr); +void PMPI_GET_VERSION(MPI_Fint *version, MPI_Fint *subversion, MPI_Fint *ierr); +void PMPI_GRAPH_CREATE(MPI_Fint *comm_old, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *reorder, MPI_Fint *comm_graph, MPI_Fint *ierr); +void PMPI_GRAPH_GET(MPI_Fint *comm, MPI_Fint *maxindex, MPI_Fint *maxedges, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *ierr); +void PMPI_GRAPH_MAP(MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *newrank, MPI_Fint *ierr); +void PMPI_GRAPH_NEIGHBORS_COUNT(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *nneighbors, MPI_Fint *ierr); +void PMPI_GRAPH_NEIGHBORS(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxneighbors, MPI_Fint *neighbors, MPI_Fint *ierr); +void PMPI_GRAPHDIMS_GET(MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *nedges, MPI_Fint *ierr); +void PMPI_GREQUEST_COMPLETE(MPI_Fint *request, MPI_Fint *ierr); +void PMPI_GREQUEST_START(MPI_Fint *query_fn, MPI_Fint *free_fn, MPI_Fint *cancel_fn, char *extra_state, MPI_Fint *request, MPI_Fint *ierr); +void PMPI_GROUP_COMPARE(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *result, MPI_Fint *ierr); +void PMPI_GROUP_DIFFERENCE(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr); +void PMPI_GROUP_EXCL(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *newgroup, MPI_Fint *ierr); +void PMPI_GROUP_FREE(MPI_Fint *group, MPI_Fint *ierr); +void PMPI_GROUP_INCL(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *newgroup, MPI_Fint *ierr); +void PMPI_GROUP_INTERSECTION(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr); +void PMPI_GROUP_RANGE_EXCL(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranges3, MPI_Fint *newgroup, MPI_Fint *ierr); +void PMPI_GROUP_RANGE_INCL(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranges3, MPI_Fint *newgroup, MPI_Fint *ierr); +void PMPI_GROUP_RANK(MPI_Fint *group, MPI_Fint *rank, MPI_Fint *ierr); +void PMPI_GROUP_SIZE(MPI_Fint *group, MPI_Fint *size, MPI_Fint *ierr); +void PMPI_GROUP_TRANSLATE_RANKS(MPI_Fint *group1, MPI_Fint *n, MPI_Fint *ranks1, MPI_Fint *group2, MPI_Fint *ranks2, MPI_Fint *ierr); +void PMPI_GROUP_UNION(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr); +void PMPI_IBSEND(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void PMPI_INFO_CREATE(MPI_Fint *info, MPI_Fint *ierr); +void PMPI_INFO_DELETE(MPI_Fint *info, char *key, MPI_Fint *ierr); +void PMPI_INFO_DUP(MPI_Fint *info, MPI_Fint *newinfo, MPI_Fint *ierr); +void PMPI_INFO_FREE(MPI_Fint *info, MPI_Fint *ierr); +void PMPI_INFO_GET(MPI_Fint *info, char *key, MPI_Fint *valuelen, char *value, MPI_Fint *flag, MPI_Fint *ierr); +void PMPI_INFO_GET_NKEYS(MPI_Fint *info, MPI_Fint *nkeys, MPI_Fint *ierr); +void PMPI_INFO_GET_NTHKEY(MPI_Fint *info, MPI_Fint *n, char *key, MPI_Fint *ierr); +void PMPI_INFO_GET_VALUELEN(MPI_Fint *info, char *key, MPI_Fint *valuelen, MPI_Fint *flag, MPI_Fint *ierr); +void PMPI_INFO_SET(MPI_Fint *info, char *key, char *value, MPI_Fint *ierr); +void PMPI_INIT(MPI_Fint *argc, char *argv, MPI_Fint *ierr); +void PMPI_INITIALIZED(MPI_Fint *flag, MPI_Fint *ierr); +void PMPI_INIT_THREAD(MPI_Fint *argc, char *argv, MPI_Fint *required, MPI_Fint *provided, MPI_Fint *ierr); +void PMPI_INTERCOMM_CREATE(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); +void PMPI_INTERCOMM_MERGE(MPI_Fint *intercomm, MPI_Fint *high, MPI_Fint *newintercomm, MPI_Fint *ierr); +void PMPI_IPROBE(MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void PMPI_IRECV(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void PMPI_IRSEND(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void PMPI_ISEND(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void PMPI_ISSEND(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void PMPI_IS_THREAD_MAIN(MPI_Fint *flag, MPI_Fint *ierr); +void PMPI_KEYVAL_CREATE(MPI_Fint *copy_fn, MPI_Fint *delete_fn, MPI_Fint *keyval, char *extra_state, MPI_Fint *ierr); +void PMPI_KEYVAL_FREE(MPI_Fint *keyval, MPI_Fint *ierr); +void PMPI_LOOKUP_NAME(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void PMPI_OP_CREATE(MPI_Fint *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr); +void PMPI_OPEN_PORT(MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void PMPI_OP_FREE(MPI_Fint *op, MPI_Fint *ierr); +void PMPI_PACK_EXTERNAL(char *datarep, char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *ierr); +void PMPI_PACK_EXTERNAL_SIZE(char *datarep, MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *size, MPI_Fint *ierr); +void PMPI_PACK(char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *comm, MPI_Fint *ierr); +void PMPI_PACK_SIZE(MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr); +void PMPI_PCONTROL(MPI_Fint *level); +void PMPI_PROBE(MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void PMPI_PUBLISH_NAME(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void PMPI_PUT(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); +void PMPI_QUERY_THREAD(MPI_Fint *provided, MPI_Fint *ierr); +void PMPI_RECV_INIT(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void PMPI_RECV(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void PMPI_REDUCE(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr); +void PMPI_REDUCE_SCATTER(char *sendbuf, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void PMPI_REGISTER_DATAREP(char *datarep, MPI_Fint *read_conversion_fn, MPI_Fint *write_conversion_fn, MPI_Fint *dtype_file_extent_fn, char *extra_state, MPI_Fint *ierr); +void PMPI_REQUEST_FREE(MPI_Fint *request, MPI_Fint *ierr); +void PMPI_REQUEST_GET_STATUS(MPI_Fint *request, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void PMPI_RSEND(char *ibuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void PMPI_RSEND_INIT(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void PMPI_SCAN(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void PMPI_SCATTER(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); +void PMPI_SCATTERV(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); +void PMPI_SEND_INIT(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void PMPI_SEND(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void PMPI_SENDRECV(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *dest, MPI_Fint *sendtag, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void PMPI_SENDRECV_REPLACE(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *sendtag, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void PMPI_SSEND_INIT(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void PMPI_SSEND(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void PMPI_START(MPI_Fint *request, MPI_Fint *ierr); +void PMPI_STARTALL(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *ierr); +void PMPI_STATUS_SET_CANCELLED(MPI_Fint *status, MPI_Fint *flag, MPI_Fint *ierr); +void PMPI_STATUS_SET_ELEMENTS(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr); +void PMPI_TESTALL(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *flag, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void PMPI_TESTANY(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void PMPI_TEST(MPI_Fint *request, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void PMPI_TEST_CANCELLED(MPI_Fint *status, MPI_Fint *flag, MPI_Fint *ierr); +void PMPI_TESTSOME(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *outcount, MPI_Fint *array_of_indices, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void PMPI_TOPO_TEST(MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void PMPI_TYPE_COMMIT(MPI_Fint *type, MPI_Fint *ierr); +void PMPI_TYPE_CONTIGUOUS(MPI_Fint *count, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void PMPI_TYPE_CREATE_DARRAY(MPI_Fint *size, MPI_Fint *rank, MPI_Fint *ndims, MPI_Fint *gsize_array, MPI_Fint *distrib_array, MPI_Fint *darg_array, MPI_Fint *psize_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void PMPI_TYPE_CREATE_F90_COMPLEX(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr); +void PMPI_TYPE_CREATE_F90_INTEGER(MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr); +void PMPI_TYPE_CREATE_F90_REAL(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr); +void PMPI_TYPE_CREATE_HINDEXED(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void PMPI_TYPE_CREATE_HVECTOR(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void PMPI_TYPE_CREATE_KEYVAL(MPI_Fint *type_copy_attr_fn, MPI_Fint *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr); +void PMPI_TYPE_CREATE_INDEXED_BLOCK(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void PMPI_TYPE_CREATE_STRUCT(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); +void PMPI_TYPE_CREATE_SUBARRAY(MPI_Fint *ndims, MPI_Fint *size_array, MPI_Fint *subsize_array, MPI_Fint *start_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void PMPI_TYPE_CREATE_RESIZED(MPI_Fint *oldtype, MPI_Fint *lb, MPI_Fint *extent, MPI_Fint *newtype, MPI_Fint *ierr); +void PMPI_TYPE_DELETE_ATTR(MPI_Fint *type, MPI_Fint *type_keyval, MPI_Fint *ierr); +void PMPI_TYPE_DUP(MPI_Fint *type, MPI_Fint *newtype, MPI_Fint *ierr); +void PMPI_TYPE_EXTENT(MPI_Fint *type, MPI_Fint *extent, MPI_Fint *ierr); +void PMPI_TYPE_FREE(MPI_Fint *type, MPI_Fint *ierr); +void PMPI_TYPE_FREE_KEYVAL(MPI_Fint *type_keyval, MPI_Fint *ierr); +void PMPI_TYPE_GET_ATTR(MPI_Fint *type, MPI_Fint *type_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void PMPI_TYPE_GET_CONTENTS(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); +void PMPI_TYPE_GET_ENVELOPE(MPI_Fint *type, MPI_Fint *num_integers, MPI_Fint *num_addresses, MPI_Fint *num_datatypes, MPI_Fint *combiner, MPI_Fint *ierr); +void PMPI_TYPE_GET_EXTENT(MPI_Fint *type, MPI_Fint *lb, MPI_Fint *extent, MPI_Fint *ierr); +void PMPI_TYPE_GET_NAME(MPI_Fint *type, char *type_name, MPI_Fint *resultlen, MPI_Fint *ierr); +void PMPI_TYPE_GET_TRUE_EXTENT(MPI_Fint *datatype, MPI_Fint *true_lb, MPI_Fint *true_extent, MPI_Fint *ierr); +void PMPI_TYPE_HINDEXED(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void PMPI_TYPE_HVECTOR(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void PMPI_TYPE_INDEXED(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void PMPI_TYPE_LB(MPI_Fint *type, MPI_Fint *lb, MPI_Fint *ierr); +void PMPI_TYPE_MATCH_SIZE(MPI_Fint *typeclass, MPI_Fint *size, MPI_Fint *type, MPI_Fint *ierr); +void PMPI_TYPE_SET_ATTR(MPI_Fint *type, MPI_Fint *type_keyval, char *attr_val, MPI_Fint *ierr); +void PMPI_TYPE_SET_NAME(MPI_Fint *type, char *type_name, MPI_Fint *ierr); +void PMPI_TYPE_SIZE(MPI_Fint *type, MPI_Fint *size, MPI_Fint *ierr); +void PMPI_TYPE_STRUCT(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *array_of_types, MPI_Fint *newtype, MPI_Fint *ierr); +void PMPI_TYPE_UB(MPI_Fint *mtype, MPI_Fint *ub, MPI_Fint *ierr); +void PMPI_TYPE_VECTOR(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void PMPI_UNPACK(char *inbuf, MPI_Fint *insize, MPI_Fint *position, char *outbuf, MPI_Fint *outcount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *ierr); +void PMPI_UNPUBLISH_NAME(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void PMPI_UNPACK_EXTERNAL (char *datarep, char *inbuf, MPI_Fint *insize, MPI_Fint *position, char *outbuf, MPI_Fint *outcount, MPI_Fint *datatype, MPI_Fint *ierr); +void PMPI_WAITALL(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void PMPI_WAITANY(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *status, MPI_Fint *ierr); +void PMPI_WAIT(MPI_Fint *request, MPI_Fint *status, MPI_Fint *ierr); +void PMPI_WAITSOME(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *outcount, MPI_Fint *array_of_indices, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void PMPI_WIN_CALL_ERRHANDLER(MPI_Fint *win, MPI_Fint *errorcode, MPI_Fint *ierr); +void PMPI_WIN_COMPLETE(MPI_Fint *win, MPI_Fint *ierr); +void PMPI_WIN_CREATE(char *base, MPI_Fint *size, MPI_Fint *disp_unit, MPI_Fint *info, MPI_Fint *comm, MPI_Fint *win, MPI_Fint *ierr); +void PMPI_WIN_CREATE_ERRHANDLER(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void PMPI_WIN_CREATE_KEYVAL(MPI_Fint *win_copy_attr_fn, MPI_Fint *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr); +void PMPI_WIN_DELETE_ATTR(MPI_Fint *win, MPI_Fint *win_keyval, MPI_Fint *ierr); +void PMPI_WIN_FENCE(MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void PMPI_WIN_FREE(MPI_Fint *win, MPI_Fint *ierr); +void PMPI_WIN_FREE_KEYVAL(MPI_Fint *win_keyval, MPI_Fint *ierr); +void PMPI_WIN_GET_ATTR(MPI_Fint *win, MPI_Fint *win_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void PMPI_WIN_GET_ERRHANDLER(MPI_Fint *win, MPI_Fint *errhandler, MPI_Fint *ierr); +void PMPI_WIN_GET_GROUP(MPI_Fint *win, MPI_Fint *group, MPI_Fint *ierr); +void PMPI_WIN_GET_NAME(MPI_Fint *win, char *win_name, MPI_Fint *resultlen, MPI_Fint *ierr); +void PMPI_WIN_LOCK(MPI_Fint *lock_type, MPI_Fint *rank, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void PMPI_WIN_POST(MPI_Fint *group, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void PMPI_WIN_SET_ATTR(MPI_Fint *win, MPI_Fint *win_keyval, char *attribute_val, MPI_Fint *ierr); +void PMPI_WIN_SET_ERRHANDLER(MPI_Fint *win, MPI_Fint *errhandler, MPI_Fint *ierr); +void PMPI_WIN_SET_NAME(MPI_Fint *win, char *win_name, MPI_Fint *ierr); +void PMPI_WIN_START(MPI_Fint *group, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void PMPI_WIN_TEST(MPI_Fint *win, MPI_Fint *flag, MPI_Fint *ierr); +void PMPI_WIN_UNLOCK(MPI_Fint *rank, MPI_Fint *win, MPI_Fint *ierr); +void PMPI_WIN_WAIT(MPI_Fint *win, MPI_Fint *ierr); +double PMPI_WTICK(MPI_Fint *ierr); +double PMPI_WTIME(MPI_Fint *ierr); +#endif -#endif /* PROTOTYPE_H */ diff --git a/src/mpi/f77/prototypes_mpi.h b/src/mpi/f77/prototypes_mpi.h index 134e615405..db855f5865 100644 --- a/src/mpi/f77/prototypes_mpi.h +++ b/src/mpi/f77/prototypes_mpi.h @@ -1,87 +1,1457 @@ #ifndef LAM_F77_PROTOTYPES_MPI_H #define LAM_F77_PROTOTYPES_MPI_H - /* * $HEADER$ - */ - -/* * This file prototypes all MPI fortran functions in all four fortran - * symbol conventions as well as all the internal "real" LAM wrapper + * symbol conventions as well as all the internal real LAM wrapper * functions (different from any of the four fortran symbol * conventions for clarity, at the cost of more typing for me...). * This file is included in the top-level build ONLY. The prototyping * is done ONLY for MPI_* bindings - */ - -/* - * Zeroth, the LAM wrapper functions, with a "_f" suffix. - */ -/* This is needed ONLY if the "lower-level prototypes_pmpi.h" has not + * + * Zeroth, the LAM wrapper functions, with a _f suffix. + * + * This is needed ONLY if the lower-level prototypes_pmpi.h has not * already been included */ #ifndef LAM_F77_PROTOTYPES_PMPI_H +/* + * mpi_*_f definitions go here --- .mpif_f.h + */ +void mpi_abort_f(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr); +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); +void mpi_add_error_class_f(MPI_Fint *errorclass, MPI_Fint *ierr); +void mpi_add_error_code_f(MPI_Fint *errorclass, MPI_Fint *errorcode, MPI_Fint *ierr); +void mpi_add_error_string_f(MPI_Fint *errorcode, char *string, MPI_Fint *ierr); +void mpi_address_f(char *location, MPI_Fint *address, MPI_Fint *ierr); +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); +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); void mpi_alloc_mem_f(MPI_Fint *size, MPI_Fint *info, char *baseptr, MPI_Fint *ierr); -void mpi_comm_get_name_f(MPI_Fint *comm, char *name, MPI_Fint *l, MPI_Fint *ierror, - MPI_Fint charlen); -void mpi_comm_set_name_f(MPI_Fint *comm, char *name, MPI_Fint *ierror, MPI_Fint charlen); -void mpi_init_f(MPI_Fint *ierror); -void mpi_finalize_f(MPI_Fint *ierror); -void mpi_free_mem_f(char *baseptr, MPI_Fint *ierr); -void mpi_group_compare_f(MPI_Fint *group1, MPI_Fint *group2, - MPI_Fint *result, MPI_Fint *ierror); +void mpi_allreduce_f(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +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); +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); +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); +void mpi_attr_delete_f(MPI_Fint *comm, MPI_Fint *keyval, MPI_Fint *ierr); +void mpi_attr_get_f(MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_attr_put_f(MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *ierr); +void mpi_barrier_f(MPI_Fint *comm, MPI_Fint *ierr); +void mpi_bcast_f(char *buffer, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_bsend_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_bsend_init_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_buffer_attach_f(char *buffer, MPI_Fint *size, MPI_Fint *ierr); +void mpi_buffer_detach_f(char *buffer, MPI_Fint *size, MPI_Fint *ierr); +void mpi_cancel_f(MPI_Fint *request, MPI_Fint *ierr); +void mpi_cart_coords_f(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxdims, MPI_Fint *coords, MPI_Fint *ierr); +void mpi_cart_create_f(MPI_Fint *old_comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *redorder, MPI_Fint *comm_cart, MPI_Fint *ierr); +void mpi_cart_get_f(MPI_Fint *comm, MPI_Fint *maxdims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *coords, MPI_Fint *ierr); +void mpi_cart_map_f(MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *newrank, MPI_Fint *ierr); +void mpi_cart_rank_f(MPI_Fint *comm, MPI_Fint *coords, MPI_Fint *rank, MPI_Fint *ierr); +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); +void mpi_cart_sub_f(MPI_Fint *comm, MPI_Fint *remain_dims, MPI_Fint *new_comm, MPI_Fint *ierr); +void mpi_cartdim_get_f(MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *ierr); +void mpi_close_port_f(char *port_name, MPI_Fint *ierr); +void mpi_comm_accept_f(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr); +void mpi_comm_call_errhandler_f(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr); +void mpi_comm_compare_f(MPI_Fint *comm1, MPI_Fint *comm2, MPI_Fint *result, MPI_Fint *ierr); +void mpi_comm_connect_f(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr); +void mpi_comm_create_errhandler_f(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +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); +void mpi_comm_create_f(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr); +void mpi_comm_delete_attr_f(MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *ierr); +void mpi_comm_disconnect_f(MPI_Fint *comm, MPI_Fint *ierr); +void mpi_comm_dup_f(MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr); +void mpi_comm_free_keyval_f(MPI_Fint *comm_keyval, MPI_Fint *ierr); +void mpi_comm_free_f(MPI_Fint *comm, MPI_Fint *ierr); +void mpi_comm_get_attr_f(MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_comm_get_errhandler_f(MPI_Fint *comm, MPI_Fint *erhandler, MPI_Fint *ierr); +void mpi_comm_get_name_f(MPI_Fint *comm, char *comm_name, MPI_Fint *resultlen, MPI_Fint *ierr); +void mpi_comm_get_parent_f(MPI_Fint *parent, MPI_Fint *ierr); +void mpi_comm_group_f(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr); +void mpi_comm_join_f(MPI_Fint *fd, MPI_Fint *intercomm, MPI_Fint *ierr); +void mpi_comm_rank_f(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *ierr); +void mpi_comm_remote_group_f(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr); +void mpi_comm_remote_size_f(MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr); +void mpi_comm_set_attr_f(MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *ierr); +void mpi_comm_set_errhandler_f(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_comm_set_name_f(MPI_Fint *comm, char *comm_name, MPI_Fint *ierr); +void mpi_comm_size_f(MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr); +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); +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); +void mpi_comm_split_f(MPI_Fint *comm, MPI_Fint *color, MPI_Fint *key, MPI_Fint *newcomm, MPI_Fint *ierr); +void mpi_comm_test_inter_f(MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_dims_create_f(MPI_Fint *nnodes, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *ierr); +void mpi_errhandler_create_f(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_errhandler_free_f(MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_errhandler_get_f(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_errhandler_set_f(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_error_class_f(MPI_Fint *errorcode, MPI_Fint *errorclass, MPI_Fint *ierr); +void mpi_error_string_f(MPI_Fint *errorcode, char *string, MPI_Fint *resultlen, MPI_Fint *ierr); +void mpi_exscan_f(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_file_call_errhandler_f(MPI_Fint *fh, MPI_Fint *errorcode, MPI_Fint *ierr); +void mpi_file_create_errhandler_f(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_file_set_errhandler_f(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_file_get_errhandler_f(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_file_open_f(MPI_Fint *comm, char *filename, MPI_Fint *amode, MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr); +void mpi_file_close_f(MPI_Fint *fh, MPI_Fint *ierr); +void mpi_file_delete_f(char *filename, MPI_Fint *info, MPI_Fint *ierr); +void mpi_file_set_size_f(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr); +void mpi_file_preallocate_f(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr); +void mpi_file_get_size_f(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr); +void mpi_file_get_group_f(MPI_Fint *fh, MPI_Fint *group, MPI_Fint *ierr); +void mpi_file_get_amode_f(MPI_Fint *fh, MPI_Fint *amode, MPI_Fint *ierr); +void mpi_file_set_info_f(MPI_Fint *fh, MPI_Fint *info, MPI_Fint *ierr); +void mpi_file_get_info_f(MPI_Fint *fh, MPI_Fint *info_used, MPI_Fint *ierr); +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); +void mpi_file_get_view_f(MPI_Fint *fh, MPI_Fint *disp, MPI_Fint *etype, MPI_Fint *filetype, char *datarep, MPI_Fint *ierr); +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); +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); +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); +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); +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); +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); +void mpi_file_read_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_read_all_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write_all_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_iread_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void mpi_file_iwrite_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void mpi_file_seek_f(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *whence, MPI_Fint *ierr); +void mpi_file_get_position_f(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr); +void mpi_file_get_byte_offset_f(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *disp, MPI_Fint *ierr); +void mpi_file_read_shared_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write_shared_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_iread_shared_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void mpi_file_iwrite_shared_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void mpi_file_read_ordered_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write_ordered_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_seek_shared_f(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *whence, MPI_Fint *ierr); +void mpi_file_get_position_shared_f(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr); +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); +void mpi_file_read_at_all_end_f(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +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); +void mpi_file_write_at_all_end_f(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_read_all_begin_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void mpi_file_read_all_end_f(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write_all_begin_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void mpi_file_write_all_end_f(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_read_ordered_begin_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void mpi_file_read_ordered_end_f(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write_ordered_begin_f(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void mpi_file_write_ordered_end_f(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_get_type_extent_f(MPI_Fint *fh, MPI_Fint *datatype, MPI_Fint *extent, MPI_Fint *ierr); +void mpi_file_set_atomicity_f(MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_file_get_atomicity_f(MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_file_sync_f(MPI_Fint *fh, MPI_Fint *ierr); +void mpi_finalize_f(MPI_Fint *ierr); +void mpi_finalized_f(MPI_Fint *flag, MPI_Fint *ierr); +void mpi_free_mem_f(char *base, MPI_Fint *ierr); +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); +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); +void mpi_get_address_f(char *location, MPI_Fint *address, MPI_Fint *ierr); +void mpi_get_count_f(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr); +void mpi_get_elements_f(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr); +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); +void mpi_get_processor_name_f(char *name, MPI_Fint *resultlen, MPI_Fint *ierr); +void mpi_get_version_f(MPI_Fint *version, MPI_Fint *subversion, MPI_Fint *ierr); +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); +void mpi_graph_get_f(MPI_Fint *comm, MPI_Fint *maxindex, MPI_Fint *maxedges, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *ierr); +void mpi_graph_map_f(MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *newrank, MPI_Fint *ierr); +void mpi_graph_neighbors_count_f(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *nneighbors, MPI_Fint *ierr); +void mpi_graph_neighbors_f(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxneighbors, MPI_Fint *neighbors, MPI_Fint *ierr); +void mpi_graphdims_get_f(MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *nedges, MPI_Fint *ierr); +void mpi_grequest_complete_f(MPI_Fint *request, MPI_Fint *ierr); +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); +void mpi_group_compare_f(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *result, MPI_Fint *ierr); +void mpi_group_difference_f(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr); +void mpi_group_excl_f(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *newgroup, MPI_Fint *ierr); +void mpi_group_free_f(MPI_Fint *group, MPI_Fint *ierr); +void mpi_group_incl_f(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *newgroup, MPI_Fint *ierr); +void mpi_group_intersection_f(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr); +void mpi_group_range_excl_f(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranges3, MPI_Fint *newgroup, MPI_Fint *ierr); +void mpi_group_range_incl_f(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranges3, MPI_Fint *newgroup, MPI_Fint *ierr); +void mpi_group_rank_f(MPI_Fint *group, MPI_Fint *rank, MPI_Fint *ierr); +void mpi_group_size_f(MPI_Fint *group, MPI_Fint *size, MPI_Fint *ierr); +void mpi_group_translate_ranks_f(MPI_Fint *group1, MPI_Fint *n, MPI_Fint *ranks1, MPI_Fint *group2, MPI_Fint *ranks2, MPI_Fint *ierr); +void mpi_group_union_f(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr); +void mpi_ibsend_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_info_create_f(MPI_Fint *info, MPI_Fint *ierr); +void mpi_info_delete_f(MPI_Fint *info, char *key, MPI_Fint *ierr); +void mpi_info_dup_f(MPI_Fint *info, MPI_Fint *newinfo, MPI_Fint *ierr); +void mpi_info_free_f(MPI_Fint *info, MPI_Fint *ierr); +void mpi_info_get_f(MPI_Fint *info, char *key, MPI_Fint *valuelen, char *value, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_info_get_nkeys_f(MPI_Fint *info, MPI_Fint *nkeys, MPI_Fint *ierr); +void mpi_info_get_nthkey_f(MPI_Fint *info, MPI_Fint *n, char *key, MPI_Fint *ierr); +void mpi_info_get_valuelen_f(MPI_Fint *info, char *key, MPI_Fint *valuelen, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_info_set_f(MPI_Fint *info, char *key, char *value, MPI_Fint *ierr); +void mpi_init_f(MPI_Fint *argc, char *argv, MPI_Fint *ierr); +void mpi_initialized_f(MPI_Fint *flag, MPI_Fint *ierr); +void mpi_init_thread_f(MPI_Fint *argc, char *argv, MPI_Fint *required, MPI_Fint *provided, MPI_Fint *ierr); +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); +void mpi_intercomm_merge_f(MPI_Fint *intercomm, MPI_Fint *high, MPI_Fint *newintercomm, MPI_Fint *ierr); +void mpi_iprobe_f(MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void mpi_irecv_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_irsend_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_isend_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_issend_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_is_thread_main_f(MPI_Fint *flag, MPI_Fint *ierr); +void mpi_keyval_create_f(MPI_Fint *copy_fn, MPI_Fint *delete_fn, MPI_Fint *keyval, char *extra_state, MPI_Fint *ierr); +void mpi_keyval_free_f(MPI_Fint *keyval, MPI_Fint *ierr); +void mpi_lookup_name_f(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void mpi_op_create_f(MPI_Fint *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr); +void mpi_open_port_f(MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void mpi_op_free_f(MPI_Fint *op, MPI_Fint *ierr); +void mpi_pack_external_f(char *datarep, char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *ierr); +void mpi_pack_external_size_f(char *datarep, MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *size, MPI_Fint *ierr); +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); +void mpi_pack_size_f(MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr); +void mpi_pcontrol_f(MPI_Fint *level); +void mpi_probe_f(MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void mpi_publish_name_f(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr); +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); +void mpi_query_thread_f(MPI_Fint *provided, MPI_Fint *ierr); +void mpi_recv_init_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_recv_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +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); +void mpi_reduce_scatter_f(char *sendbuf, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +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); +void mpi_request_free_f(MPI_Fint *request, MPI_Fint *ierr); +void mpi_request_get_status_f(MPI_Fint *request, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void mpi_rsend_f(char *ibuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_rsend_init_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_scan_f(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +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); +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); +void mpi_send_init_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_send_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_sendrecv_f(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *dest, MPI_Fint *sendtag, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void mpi_sendrecv_replace_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *sendtag, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void mpi_ssend_init_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_ssend_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_start_f(MPI_Fint *request, MPI_Fint *ierr); +void mpi_startall_f(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *ierr); +void mpi_status_set_cancelled_f(MPI_Fint *status, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_status_set_elements_f(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr); +void mpi_testall_f(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *flag, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void mpi_testany_f(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void mpi_test_f(MPI_Fint *request, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void mpi_test_cancelled_f(MPI_Fint *status, MPI_Fint *flag, MPI_Fint *ierr); +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); +void mpi_topo_test_f(MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void mpi_type_commit_f(MPI_Fint *type, MPI_Fint *ierr); +void mpi_type_contiguous_f(MPI_Fint *count, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_darray_f(MPI_Fint *size, MPI_Fint *rank, MPI_Fint *ndims, MPI_Fint *gsize_array, MPI_Fint *distrib_array, MPI_Fint *darg_array, MPI_Fint *psize_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_f90_complex_f(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_f90_integer_f(MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_f90_real_f(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr); +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); +void mpi_type_create_hvector_f(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_keyval_f(MPI_Fint *type_copy_attr_fn, MPI_Fint *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr); +void mpi_type_create_indexed_block_f(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +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); +void mpi_type_create_subarray_f(MPI_Fint *ndims, MPI_Fint *size_array, MPI_Fint *subsize_array, MPI_Fint *start_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_resized_f(MPI_Fint *oldtype, MPI_Fint *lb, MPI_Fint *extent, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_delete_attr_f(MPI_Fint *type, MPI_Fint *type_keyval, MPI_Fint *ierr); +void mpi_type_dup_f(MPI_Fint *type, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_extent_f(MPI_Fint *type, MPI_Fint *extent, MPI_Fint *ierr); +void mpi_type_free_f(MPI_Fint *type, MPI_Fint *ierr); +void mpi_type_free_keyval_f(MPI_Fint *type_keyval, MPI_Fint *ierr); +void mpi_type_get_attr_f(MPI_Fint *type, MPI_Fint *type_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +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); +void mpi_type_get_envelope_f(MPI_Fint *type, MPI_Fint *num_integers, MPI_Fint *num_addresses, MPI_Fint *num_datatypes, MPI_Fint *combiner, MPI_Fint *ierr); +void mpi_type_get_extent_f(MPI_Fint *type, MPI_Fint *lb, MPI_Fint *extent, MPI_Fint *ierr); +void mpi_type_get_name_f(MPI_Fint *type, char *type_name, MPI_Fint *resultlen, MPI_Fint *ierr); +void mpi_type_get_true_extent_f(MPI_Fint *datatype, MPI_Fint *true_lb, MPI_Fint *true_extent, MPI_Fint *ierr); +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); +void mpi_type_hvector_f(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_indexed_f(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_lb_f(MPI_Fint *type, MPI_Fint *lb, MPI_Fint *ierr); +void mpi_type_match_size_f(MPI_Fint *typeclass, MPI_Fint *size, MPI_Fint *type, MPI_Fint *ierr); +void mpi_type_set_attr_f(MPI_Fint *type, MPI_Fint *type_keyval, char *attr_val, MPI_Fint *ierr); +void mpi_type_set_name_f(MPI_Fint *type, char *type_name, MPI_Fint *ierr); +void mpi_type_size_f(MPI_Fint *type, MPI_Fint *size, MPI_Fint *ierr); +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); +void mpi_type_ub_f(MPI_Fint *mtype, MPI_Fint *ub, MPI_Fint *ierr); +void mpi_type_vector_f(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +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); +void mpi_unpublish_name_f(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void mpi_unpack_external_f (char *datarep, char *inbuf, MPI_Fint *insize, MPI_Fint *position, char *outbuf, MPI_Fint *outcount, MPI_Fint *datatype, MPI_Fint *ierr); +void mpi_waitall_f(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void mpi_waitany_f(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *status, MPI_Fint *ierr); +void mpi_wait_f(MPI_Fint *request, MPI_Fint *status, MPI_Fint *ierr); +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); +void mpi_win_call_errhandler_f(MPI_Fint *win, MPI_Fint *errorcode, MPI_Fint *ierr); +void mpi_win_complete_f(MPI_Fint *win, MPI_Fint *ierr); +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); +void mpi_win_create_errhandler_f(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_win_create_keyval_f(MPI_Fint *win_copy_attr_fn, MPI_Fint *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr); +void mpi_win_delete_attr_f(MPI_Fint *win, MPI_Fint *win_keyval, MPI_Fint *ierr); +void mpi_win_fence_f(MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void mpi_win_free_f(MPI_Fint *win, MPI_Fint *ierr); +void mpi_win_free_keyval_f(MPI_Fint *win_keyval, MPI_Fint *ierr); +void mpi_win_get_attr_f(MPI_Fint *win, MPI_Fint *win_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_win_get_errhandler_f(MPI_Fint *win, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_win_get_group_f(MPI_Fint *win, MPI_Fint *group, MPI_Fint *ierr); +void mpi_win_get_name_f(MPI_Fint *win, char *win_name, MPI_Fint *resultlen, MPI_Fint *ierr); +void mpi_win_lock_f(MPI_Fint *lock_type, MPI_Fint *rank, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void mpi_win_post_f(MPI_Fint *group, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void mpi_win_set_attr_f(MPI_Fint *win, MPI_Fint *win_keyval, char *attribute_val, MPI_Fint *ierr); +void mpi_win_set_errhandler_f(MPI_Fint *win, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_win_set_name_f(MPI_Fint *win, char *win_name, MPI_Fint *ierr); +void mpi_win_start_f(MPI_Fint *group, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void mpi_win_test_f(MPI_Fint *win, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_win_unlock_f(MPI_Fint *rank, MPI_Fint *win, MPI_Fint *ierr); +void mpi_win_wait_f(MPI_Fint *win, MPI_Fint *ierr); +double mpi_wtick_f(MPI_Fint *ierr); +double mpi_wtime_f(MPI_Fint *ierr); #endif -/* - * First, all caps. - */ -void MPI_ALLOC_MEM(MPI_Fint *size, MPI_Fint *info, char *baseptr, MPI_Fint *ierr); -void MPI_COMM_GET_NAME(MPI_Fint *comm, char *name, MPI_Fint *l, MPI_Fint *ierror, - MPI_Fint charlen); -void MPI_COMM_SET_NAME(MPI_Fint *comm, char *name, MPI_Fint *ierror, MPI_Fint charlen); -void MPI_INIT(MPI_Fint *ierror); -void MPI_FINALIZE(MPI_Fint *ierror); -void MPI_FREE_MEM(char *baseptr, MPI_Fint *ierr); -void MPI_GROUP_COMPARE(MPI_Fint *group1, MPI_Fint *group2, - MPI_Fint *result, MPI_Fint *ierror); +/*These are the all lower case prototypes*/ -/* - * Second, all lower case. - */ +void mpi_abort(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr); +void mpi_accumulate(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); +void mpi_add_error_class(MPI_Fint *errorclass, MPI_Fint *ierr); +void mpi_add_error_code(MPI_Fint *errorclass, MPI_Fint *errorcode, MPI_Fint *ierr); +void mpi_add_error_string(MPI_Fint *errorcode, char *string, MPI_Fint *ierr); +void mpi_address(char *location, MPI_Fint *address, MPI_Fint *ierr); +void mpi_allgather(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_allgatherv(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); void mpi_alloc_mem(MPI_Fint *size, MPI_Fint *info, char *baseptr, MPI_Fint *ierr); -void mpi_comm_get_name(MPI_Fint *comm, char *name, MPI_Fint *l, MPI_Fint *ierror, - MPI_Fint charlen); -void mpi_comm_set_name(MPI_Fint *comm, char *name, MPI_Fint *ierror, MPI_Fint charlen); -void mpi_init(MPI_Fint *ierror); -void mpi_finalize(MPI_Fint *ierror); -void mpi_free_mem(char *baseptr, MPI_Fint *ierr); -void mpi_group_compare(MPI_Fint *group1, MPI_Fint *group2, - MPI_Fint *result, MPI_Fint *ierror); +void mpi_allreduce(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_alltoall(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_alltoallv(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); +void mpi_alltoallw(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); +void mpi_attr_delete(MPI_Fint *comm, MPI_Fint *keyval, MPI_Fint *ierr); +void mpi_attr_get(MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_attr_put(MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *ierr); +void mpi_barrier(MPI_Fint *comm, MPI_Fint *ierr); +void mpi_bcast(char *buffer, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_bsend(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_bsend_init(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_buffer_attach(char *buffer, MPI_Fint *size, MPI_Fint *ierr); +void mpi_buffer_detach(char *buffer, MPI_Fint *size, MPI_Fint *ierr); +void mpi_cancel(MPI_Fint *request, MPI_Fint *ierr); +void mpi_cart_coords(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxdims, MPI_Fint *coords, MPI_Fint *ierr); +void mpi_cart_create(MPI_Fint *old_comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *redorder, MPI_Fint *comm_cart, MPI_Fint *ierr); +void mpi_cart_get(MPI_Fint *comm, MPI_Fint *maxdims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *coords, MPI_Fint *ierr); +void mpi_cart_map(MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *newrank, MPI_Fint *ierr); +void mpi_cart_rank(MPI_Fint *comm, MPI_Fint *coords, MPI_Fint *rank, MPI_Fint *ierr); +void mpi_cart_shift(MPI_Fint *comm, MPI_Fint *direction, MPI_Fint *disp, MPI_Fint *rank_source, MPI_Fint *rank_dest, MPI_Fint *ierr); +void mpi_cart_sub(MPI_Fint *comm, MPI_Fint *remain_dims, MPI_Fint *new_comm, MPI_Fint *ierr); +void mpi_cartdim_get(MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *ierr); +void mpi_close_port(char *port_name, MPI_Fint *ierr); +void mpi_comm_accept(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr); +void mpi_comm_call_errhandler(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr); +void mpi_comm_compare(MPI_Fint *comm1, MPI_Fint *comm2, MPI_Fint *result, MPI_Fint *ierr); +void mpi_comm_connect(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr); +void mpi_comm_create_errhandler(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_comm_create_keyval(MPI_Fint *comm_copy_attr_fn, MPI_Fint *comm_delete_attr_fn, MPI_Fint *comm_keyval, char *extra_state, MPI_Fint *ierr); +void mpi_comm_create(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr); +void mpi_comm_delete_attr(MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *ierr); +void mpi_comm_disconnect(MPI_Fint *comm, MPI_Fint *ierr); +void mpi_comm_dup(MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr); +void mpi_comm_free_keyval(MPI_Fint *comm_keyval, MPI_Fint *ierr); +void mpi_comm_free(MPI_Fint *comm, MPI_Fint *ierr); +void mpi_comm_get_attr(MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_comm_get_errhandler(MPI_Fint *comm, MPI_Fint *erhandler, MPI_Fint *ierr); +void mpi_comm_get_name(MPI_Fint *comm, char *comm_name, MPI_Fint *resultlen, MPI_Fint *ierr); +void mpi_comm_get_parent(MPI_Fint *parent, MPI_Fint *ierr); +void mpi_comm_group(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr); +void mpi_comm_join(MPI_Fint *fd, MPI_Fint *intercomm, MPI_Fint *ierr); +void mpi_comm_rank(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *ierr); +void mpi_comm_remote_group(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr); +void mpi_comm_remote_size(MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr); +void mpi_comm_set_attr(MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *ierr); +void mpi_comm_set_errhandler(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_comm_set_name(MPI_Fint *comm, char *comm_name, MPI_Fint *ierr); +void mpi_comm_size(MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr); +void mpi_comm_spawn(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); +void mpi_comm_spawn_multiple(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); +void mpi_comm_split(MPI_Fint *comm, MPI_Fint *color, MPI_Fint *key, MPI_Fint *newcomm, MPI_Fint *ierr); +void mpi_comm_test_inter(MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_dims_create(MPI_Fint *nnodes, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *ierr); +void mpi_errhandler_create(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_errhandler_free(MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_errhandler_get(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_errhandler_set(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_error_class(MPI_Fint *errorcode, MPI_Fint *errorclass, MPI_Fint *ierr); +void mpi_error_string(MPI_Fint *errorcode, char *string, MPI_Fint *resultlen, MPI_Fint *ierr); +void mpi_exscan(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_file_call_errhandler(MPI_Fint *fh, MPI_Fint *errorcode, MPI_Fint *ierr); +void mpi_file_create_errhandler(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_file_set_errhandler(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_file_get_errhandler(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_file_open(MPI_Fint *comm, char *filename, MPI_Fint *amode, MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr); +void mpi_file_close(MPI_Fint *fh, MPI_Fint *ierr); +void mpi_file_delete(char *filename, MPI_Fint *info, MPI_Fint *ierr); +void mpi_file_set_size(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr); +void mpi_file_preallocate(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr); +void mpi_file_get_size(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr); +void mpi_file_get_group(MPI_Fint *fh, MPI_Fint *group, MPI_Fint *ierr); +void mpi_file_get_amode(MPI_Fint *fh, MPI_Fint *amode, MPI_Fint *ierr); +void mpi_file_set_info(MPI_Fint *fh, MPI_Fint *info, MPI_Fint *ierr); +void mpi_file_get_info(MPI_Fint *fh, MPI_Fint *info_used, MPI_Fint *ierr); +void mpi_file_set_view(MPI_Fint *fh, MPI_Fint *disp, MPI_Fint *etype, MPI_Fint *filetype, char *datarep, MPI_Fint *info, MPI_Fint *ierr); +void mpi_file_get_view(MPI_Fint *fh, MPI_Fint *disp, MPI_Fint *etype, MPI_Fint *filetype, char *datarep, MPI_Fint *ierr); +void mpi_file_read_at(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_read_at_all(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write_at(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write_at_all(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_iread_at(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void mpi_file_iwrite_at(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void mpi_file_read(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_read_all(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write_all(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_iread(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void mpi_file_iwrite(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void mpi_file_seek(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *whence, MPI_Fint *ierr); +void mpi_file_get_position(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr); +void mpi_file_get_byte_offset(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *disp, MPI_Fint *ierr); +void mpi_file_read_shared(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write_shared(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_iread_shared(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void mpi_file_iwrite_shared(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void mpi_file_read_ordered(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write_ordered(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_seek_shared(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *whence, MPI_Fint *ierr); +void mpi_file_get_position_shared(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr); +void mpi_file_read_at_all_begin(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void mpi_file_read_at_all_end(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write_at_all_begin(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void mpi_file_write_at_all_end(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_read_all_begin(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void mpi_file_read_all_end(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write_all_begin(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void mpi_file_write_all_end(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_read_ordered_begin(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void mpi_file_read_ordered_end(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write_ordered_begin(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void mpi_file_write_ordered_end(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_get_type_extent(MPI_Fint *fh, MPI_Fint *datatype, MPI_Fint *extent, MPI_Fint *ierr); +void mpi_file_set_atomicity(MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_file_get_atomicity(MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_file_sync(MPI_Fint *fh, MPI_Fint *ierr); +void mpi_finalize(MPI_Fint *ierr); +void mpi_finalized(MPI_Fint *flag, MPI_Fint *ierr); +void mpi_free_mem(char *base, MPI_Fint *ierr); +void mpi_gather(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); +void mpi_gatherv(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); +void mpi_get_address(char *location, MPI_Fint *address, MPI_Fint *ierr); +void mpi_get_count(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr); +void mpi_get_elements(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr); +void mpi_get(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); +void mpi_get_processor_name(char *name, MPI_Fint *resultlen, MPI_Fint *ierr); +void mpi_get_version(MPI_Fint *version, MPI_Fint *subversion, MPI_Fint *ierr); +void mpi_graph_create(MPI_Fint *comm_old, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *reorder, MPI_Fint *comm_graph, MPI_Fint *ierr); +void mpi_graph_get(MPI_Fint *comm, MPI_Fint *maxindex, MPI_Fint *maxedges, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *ierr); +void mpi_graph_map(MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *newrank, MPI_Fint *ierr); +void mpi_graph_neighbors_count(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *nneighbors, MPI_Fint *ierr); +void mpi_graph_neighbors(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxneighbors, MPI_Fint *neighbors, MPI_Fint *ierr); +void mpi_graphdims_get(MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *nedges, MPI_Fint *ierr); +void mpi_grequest_complete(MPI_Fint *request, MPI_Fint *ierr); +void mpi_grequest_start(MPI_Fint *query_fn, MPI_Fint *free_fn, MPI_Fint *cancel_fn, char *extra_state, MPI_Fint *request, MPI_Fint *ierr); +void mpi_group_compare(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *result, MPI_Fint *ierr); +void mpi_group_difference(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr); +void mpi_group_excl(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *newgroup, MPI_Fint *ierr); +void mpi_group_free(MPI_Fint *group, MPI_Fint *ierr); +void mpi_group_incl(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *newgroup, MPI_Fint *ierr); +void mpi_group_intersection(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr); +void mpi_group_range_excl(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranges3, MPI_Fint *newgroup, MPI_Fint *ierr); +void mpi_group_range_incl(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranges3, MPI_Fint *newgroup, MPI_Fint *ierr); +void mpi_group_rank(MPI_Fint *group, MPI_Fint *rank, MPI_Fint *ierr); +void mpi_group_size(MPI_Fint *group, MPI_Fint *size, MPI_Fint *ierr); +void mpi_group_translate_ranks(MPI_Fint *group1, MPI_Fint *n, MPI_Fint *ranks1, MPI_Fint *group2, MPI_Fint *ranks2, MPI_Fint *ierr); +void mpi_group_union(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr); +void mpi_ibsend(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_info_create(MPI_Fint *info, MPI_Fint *ierr); +void mpi_info_delete(MPI_Fint *info, char *key, MPI_Fint *ierr); +void mpi_info_dup(MPI_Fint *info, MPI_Fint *newinfo, MPI_Fint *ierr); +void mpi_info_free(MPI_Fint *info, MPI_Fint *ierr); +void mpi_info_get(MPI_Fint *info, char *key, MPI_Fint *valuelen, char *value, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_info_get_nkeys(MPI_Fint *info, MPI_Fint *nkeys, MPI_Fint *ierr); +void mpi_info_get_nthkey(MPI_Fint *info, MPI_Fint *n, char *key, MPI_Fint *ierr); +void mpi_info_get_valuelen(MPI_Fint *info, char *key, MPI_Fint *valuelen, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_info_set(MPI_Fint *info, char *key, char *value, MPI_Fint *ierr); +void mpi_init(MPI_Fint *argc, char *argv, MPI_Fint *ierr); +void mpi_initialized(MPI_Fint *flag, MPI_Fint *ierr); +void mpi_init_thread(MPI_Fint *argc, char *argv, MPI_Fint *required, MPI_Fint *provided, MPI_Fint *ierr); +void mpi_intercomm_create(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); +void mpi_intercomm_merge(MPI_Fint *intercomm, MPI_Fint *high, MPI_Fint *newintercomm, MPI_Fint *ierr); +void mpi_iprobe(MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void mpi_irecv(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_irsend(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_isend(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_issend(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_is_thread_main(MPI_Fint *flag, MPI_Fint *ierr); +void mpi_keyval_create(MPI_Fint *copy_fn, MPI_Fint *delete_fn, MPI_Fint *keyval, char *extra_state, MPI_Fint *ierr); +void mpi_keyval_free(MPI_Fint *keyval, MPI_Fint *ierr); +void mpi_lookup_name(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void mpi_op_create(MPI_Fint *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr); +void mpi_open_port(MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void mpi_op_free(MPI_Fint *op, MPI_Fint *ierr); +void mpi_pack_external(char *datarep, char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *ierr); +void mpi_pack_external_size(char *datarep, MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *size, MPI_Fint *ierr); +void mpi_pack(char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_pack_size(MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr); +void mpi_pcontrol(MPI_Fint *level); +void mpi_probe(MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void mpi_publish_name(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void mpi_put(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); +void mpi_query_thread(MPI_Fint *provided, MPI_Fint *ierr); +void mpi_recv_init(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_recv(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void mpi_reduce(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_reduce_scatter(char *sendbuf, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_register_datarep(char *datarep, MPI_Fint *read_conversion_fn, MPI_Fint *write_conversion_fn, MPI_Fint *dtype_file_extent_fn, char *extra_state, MPI_Fint *ierr); +void mpi_request_free(MPI_Fint *request, MPI_Fint *ierr); +void mpi_request_get_status(MPI_Fint *request, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void mpi_rsend(char *ibuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_rsend_init(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_scan(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_scatter(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); +void mpi_scatterv(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); +void mpi_send_init(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_send(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_sendrecv(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *dest, MPI_Fint *sendtag, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void mpi_sendrecv_replace(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *sendtag, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void mpi_ssend_init(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_ssend(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_start(MPI_Fint *request, MPI_Fint *ierr); +void mpi_startall(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *ierr); +void mpi_status_set_cancelled(MPI_Fint *status, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_status_set_elements(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr); +void mpi_testall(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *flag, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void mpi_testany(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void mpi_test(MPI_Fint *request, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void mpi_test_cancelled(MPI_Fint *status, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_testsome(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *outcount, MPI_Fint *array_of_indices, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void mpi_topo_test(MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void mpi_type_commit(MPI_Fint *type, MPI_Fint *ierr); +void mpi_type_contiguous(MPI_Fint *count, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_darray(MPI_Fint *size, MPI_Fint *rank, MPI_Fint *ndims, MPI_Fint *gsize_array, MPI_Fint *distrib_array, MPI_Fint *darg_array, MPI_Fint *psize_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_f90_complex(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_f90_integer(MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_f90_real(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_hindexed(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_hvector(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_keyval(MPI_Fint *type_copy_attr_fn, MPI_Fint *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr); +void mpi_type_create_indexed_block(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_struct(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); +void mpi_type_create_subarray(MPI_Fint *ndims, MPI_Fint *size_array, MPI_Fint *subsize_array, MPI_Fint *start_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_resized(MPI_Fint *oldtype, MPI_Fint *lb, MPI_Fint *extent, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_delete_attr(MPI_Fint *type, MPI_Fint *type_keyval, MPI_Fint *ierr); +void mpi_type_dup(MPI_Fint *type, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_extent(MPI_Fint *type, MPI_Fint *extent, MPI_Fint *ierr); +void mpi_type_free(MPI_Fint *type, MPI_Fint *ierr); +void mpi_type_free_keyval(MPI_Fint *type_keyval, MPI_Fint *ierr); +void mpi_type_get_attr(MPI_Fint *type, MPI_Fint *type_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_type_get_contents(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); +void mpi_type_get_envelope(MPI_Fint *type, MPI_Fint *num_integers, MPI_Fint *num_addresses, MPI_Fint *num_datatypes, MPI_Fint *combiner, MPI_Fint *ierr); +void mpi_type_get_extent(MPI_Fint *type, MPI_Fint *lb, MPI_Fint *extent, MPI_Fint *ierr); +void mpi_type_get_name(MPI_Fint *type, char *type_name, MPI_Fint *resultlen, MPI_Fint *ierr); +void mpi_type_get_true_extent(MPI_Fint *datatype, MPI_Fint *true_lb, MPI_Fint *true_extent, MPI_Fint *ierr); +void mpi_type_hindexed(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_hvector(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_indexed(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_lb(MPI_Fint *type, MPI_Fint *lb, MPI_Fint *ierr); +void mpi_type_match_size(MPI_Fint *typeclass, MPI_Fint *size, MPI_Fint *type, MPI_Fint *ierr); +void mpi_type_set_attr(MPI_Fint *type, MPI_Fint *type_keyval, char *attr_val, MPI_Fint *ierr); +void mpi_type_set_name(MPI_Fint *type, char *type_name, MPI_Fint *ierr); +void mpi_type_size(MPI_Fint *type, MPI_Fint *size, MPI_Fint *ierr); +void mpi_type_struct(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *array_of_types, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_ub(MPI_Fint *mtype, MPI_Fint *ub, MPI_Fint *ierr); +void mpi_type_vector(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_unpack(char *inbuf, MPI_Fint *insize, MPI_Fint *position, char *outbuf, MPI_Fint *outcount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_unpublish_name(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void mpi_unpack_external (char *datarep, char *inbuf, MPI_Fint *insize, MPI_Fint *position, char *outbuf, MPI_Fint *outcount, MPI_Fint *datatype, MPI_Fint *ierr); +void mpi_waitall(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void mpi_waitany(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *status, MPI_Fint *ierr); +void mpi_wait(MPI_Fint *request, MPI_Fint *status, MPI_Fint *ierr); +void mpi_waitsome(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *outcount, MPI_Fint *array_of_indices, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void mpi_win_call_errhandler(MPI_Fint *win, MPI_Fint *errorcode, MPI_Fint *ierr); +void mpi_win_complete(MPI_Fint *win, MPI_Fint *ierr); +void mpi_win_create(char *base, MPI_Fint *size, MPI_Fint *disp_unit, MPI_Fint *info, MPI_Fint *comm, MPI_Fint *win, MPI_Fint *ierr); +void mpi_win_create_errhandler(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_win_create_keyval(MPI_Fint *win_copy_attr_fn, MPI_Fint *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr); +void mpi_win_delete_attr(MPI_Fint *win, MPI_Fint *win_keyval, MPI_Fint *ierr); +void mpi_win_fence(MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void mpi_win_free(MPI_Fint *win, MPI_Fint *ierr); +void mpi_win_free_keyval(MPI_Fint *win_keyval, MPI_Fint *ierr); +void mpi_win_get_attr(MPI_Fint *win, MPI_Fint *win_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_win_get_errhandler(MPI_Fint *win, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_win_get_group(MPI_Fint *win, MPI_Fint *group, MPI_Fint *ierr); +void mpi_win_get_name(MPI_Fint *win, char *win_name, MPI_Fint *resultlen, MPI_Fint *ierr); +void mpi_win_lock(MPI_Fint *lock_type, MPI_Fint *rank, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void mpi_win_post(MPI_Fint *group, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void mpi_win_set_attr(MPI_Fint *win, MPI_Fint *win_keyval, char *attribute_val, MPI_Fint *ierr); +void mpi_win_set_errhandler(MPI_Fint *win, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_win_set_name(MPI_Fint *win, char *win_name, MPI_Fint *ierr); +void mpi_win_start(MPI_Fint *group, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void mpi_win_test(MPI_Fint *win, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_win_unlock(MPI_Fint *rank, MPI_Fint *win, MPI_Fint *ierr); +void mpi_win_wait(MPI_Fint *win, MPI_Fint *ierr); +double mpi_wtick(MPI_Fint *ierr); +double mpi_wtime(MPI_Fint *ierr); +/*This is the single underscore prototypes*/ -/* - * Third, one trailing underscore. - */ +void mpi_abort_(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr); +void mpi_accumulate_(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); +void mpi_add_error_class_(MPI_Fint *errorclass, MPI_Fint *ierr); +void mpi_add_error_code_(MPI_Fint *errorclass, MPI_Fint *errorcode, MPI_Fint *ierr); +void mpi_add_error_string_(MPI_Fint *errorcode, char *string, MPI_Fint *ierr); +void mpi_address_(char *location, MPI_Fint *address, MPI_Fint *ierr); +void mpi_allgather_(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_allgatherv_(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); void mpi_alloc_mem_(MPI_Fint *size, MPI_Fint *info, char *baseptr, MPI_Fint *ierr); -void mpi_comm_get_name_(MPI_Fint *comm, char *name, MPI_Fint *l, MPI_Fint *ierror, - MPI_Fint charlen); -void mpi_comm_set_name_(MPI_Fint *comm, char *name, MPI_Fint *ierror, MPI_Fint charlen); -void mpi_init_(MPI_Fint *ierror); -void mpi_finalize_(MPI_Fint *ierror); -void mpi_free_mem_(char *baseptr, MPI_Fint *ierr); -void mpi_group_compare_(MPI_Fint *group1, MPI_Fint *group2, - MPI_Fint *result, MPI_Fint *ierror); +void mpi_allreduce_(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_alltoall_(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_alltoallv_(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); +void mpi_alltoallw_(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); +void mpi_attr_delete_(MPI_Fint *comm, MPI_Fint *keyval, MPI_Fint *ierr); +void mpi_attr_get_(MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_attr_put_(MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *ierr); +void mpi_barrier_(MPI_Fint *comm, MPI_Fint *ierr); +void mpi_bcast_(char *buffer, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_bsend_(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_bsend_init_(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_buffer_attach_(char *buffer, MPI_Fint *size, MPI_Fint *ierr); +void mpi_buffer_detach_(char *buffer, MPI_Fint *size, MPI_Fint *ierr); +void mpi_cancel_(MPI_Fint *request, MPI_Fint *ierr); +void mpi_cart_coords_(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxdims, MPI_Fint *coords, MPI_Fint *ierr); +void mpi_cart_create_(MPI_Fint *old_comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *redorder, MPI_Fint *comm_cart, MPI_Fint *ierr); +void mpi_cart_get_(MPI_Fint *comm, MPI_Fint *maxdims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *coords, MPI_Fint *ierr); +void mpi_cart_map_(MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *newrank, MPI_Fint *ierr); +void mpi_cart_rank_(MPI_Fint *comm, MPI_Fint *coords, MPI_Fint *rank, MPI_Fint *ierr); +void mpi_cart_shift_(MPI_Fint *comm, MPI_Fint *direction, MPI_Fint *disp, MPI_Fint *rank_source, MPI_Fint *rank_dest, MPI_Fint *ierr); +void mpi_cart_sub_(MPI_Fint *comm, MPI_Fint *remain_dims, MPI_Fint *new_comm, MPI_Fint *ierr); +void mpi_cartdim_get_(MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *ierr); +void mpi_close_port_(char *port_name, MPI_Fint *ierr); +void mpi_comm_accept_(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr); +void mpi_comm_call_errhandler_(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr); +void mpi_comm_compare_(MPI_Fint *comm1, MPI_Fint *comm2, MPI_Fint *result, MPI_Fint *ierr); +void mpi_comm_connect_(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr); +void mpi_comm_create_errhandler_(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_comm_create_keyval_(MPI_Fint *comm_copy_attr_fn, MPI_Fint *comm_delete_attr_fn, MPI_Fint *comm_keyval, char *extra_state, MPI_Fint *ierr); +void mpi_comm_create_(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr); +void mpi_comm_delete_attr_(MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *ierr); +void mpi_comm_disconnect_(MPI_Fint *comm, MPI_Fint *ierr); +void mpi_comm_dup_(MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr); +void mpi_comm_free_keyval_(MPI_Fint *comm_keyval, MPI_Fint *ierr); +void mpi_comm_free_(MPI_Fint *comm, MPI_Fint *ierr); +void mpi_comm_get_attr_(MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_comm_get_errhandler_(MPI_Fint *comm, MPI_Fint *erhandler, MPI_Fint *ierr); +void mpi_comm_get_name_(MPI_Fint *comm, char *comm_name, MPI_Fint *resultlen, MPI_Fint *ierr); +void mpi_comm_get_parent_(MPI_Fint *parent, MPI_Fint *ierr); +void mpi_comm_group_(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr); +void mpi_comm_join_(MPI_Fint *fd, MPI_Fint *intercomm, MPI_Fint *ierr); +void mpi_comm_rank_(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *ierr); +void mpi_comm_remote_group_(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr); +void mpi_comm_remote_size_(MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr); +void mpi_comm_set_attr_(MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *ierr); +void mpi_comm_set_errhandler_(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_comm_set_name_(MPI_Fint *comm, char *comm_name, MPI_Fint *ierr); +void mpi_comm_size_(MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr); +void mpi_comm_spawn_(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); +void mpi_comm_spawn_multiple_(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); +void mpi_comm_split_(MPI_Fint *comm, MPI_Fint *color, MPI_Fint *key, MPI_Fint *newcomm, MPI_Fint *ierr); +void mpi_comm_test_inter_(MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_dims_create_(MPI_Fint *nnodes, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *ierr); +void mpi_errhandler_create_(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_errhandler_free_(MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_errhandler_get_(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_errhandler_set_(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_error_class_(MPI_Fint *errorcode, MPI_Fint *errorclass, MPI_Fint *ierr); +void mpi_error_string_(MPI_Fint *errorcode, char *string, MPI_Fint *resultlen, MPI_Fint *ierr); +void mpi_exscan_(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_file_call_errhandler_(MPI_Fint *fh, MPI_Fint *errorcode, MPI_Fint *ierr); +void mpi_file_create_errhandler_(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_file_set_errhandler_(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_file_get_errhandler_(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_file_open_(MPI_Fint *comm, char *filename, MPI_Fint *amode, MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr); +void mpi_file_close_(MPI_Fint *fh, MPI_Fint *ierr); +void mpi_file_delete_(char *filename, MPI_Fint *info, MPI_Fint *ierr); +void mpi_file_set_size_(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr); +void mpi_file_preallocate_(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr); +void mpi_file_get_size_(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr); +void mpi_file_get_group_(MPI_Fint *fh, MPI_Fint *group, MPI_Fint *ierr); +void mpi_file_get_amode_(MPI_Fint *fh, MPI_Fint *amode, MPI_Fint *ierr); +void mpi_file_set_info_(MPI_Fint *fh, MPI_Fint *info, MPI_Fint *ierr); +void mpi_file_get_info_(MPI_Fint *fh, MPI_Fint *info_used, MPI_Fint *ierr); +void mpi_file_set_view_(MPI_Fint *fh, MPI_Fint *disp, MPI_Fint *etype, MPI_Fint *filetype, char *datarep, MPI_Fint *info, MPI_Fint *ierr); +void mpi_file_get_view_(MPI_Fint *fh, MPI_Fint *disp, MPI_Fint *etype, MPI_Fint *filetype, char *datarep, MPI_Fint *ierr); +void mpi_file_read_at_(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_read_at_all_(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write_at_(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write_at_all_(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_iread_at_(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void mpi_file_iwrite_at_(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void mpi_file_read_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_read_all_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write_all_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_iread_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void mpi_file_iwrite_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void mpi_file_seek_(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *whence, MPI_Fint *ierr); +void mpi_file_get_position_(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr); +void mpi_file_get_byte_offset_(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *disp, MPI_Fint *ierr); +void mpi_file_read_shared_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write_shared_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_iread_shared_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void mpi_file_iwrite_shared_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void mpi_file_read_ordered_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write_ordered_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_seek_shared_(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *whence, MPI_Fint *ierr); +void mpi_file_get_position_shared_(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr); +void mpi_file_read_at_all_begin_(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void mpi_file_read_at_all_end_(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write_at_all_begin_(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void mpi_file_write_at_all_end_(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_read_all_begin_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void mpi_file_read_all_end_(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write_all_begin_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void mpi_file_write_all_end_(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_read_ordered_begin_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void mpi_file_read_ordered_end_(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write_ordered_begin_(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void mpi_file_write_ordered_end_(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_get_type_extent_(MPI_Fint *fh, MPI_Fint *datatype, MPI_Fint *extent, MPI_Fint *ierr); +void mpi_file_set_atomicity_(MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_file_get_atomicity_(MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_file_sync_(MPI_Fint *fh, MPI_Fint *ierr); +void mpi_finalize_(MPI_Fint *ierr); +void mpi_finalized_(MPI_Fint *flag, MPI_Fint *ierr); +void mpi_free_mem_(char *base, MPI_Fint *ierr); +void mpi_gather_(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); +void mpi_gatherv_(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); +void mpi_get_address_(char *location, MPI_Fint *address, MPI_Fint *ierr); +void mpi_get_count_(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr); +void mpi_get_elements_(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr); +void mpi_get_(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); +void mpi_get_processor_name_(char *name, MPI_Fint *resultlen, MPI_Fint *ierr); +void mpi_get_version_(MPI_Fint *version, MPI_Fint *subversion, MPI_Fint *ierr); +void mpi_graph_create_(MPI_Fint *comm_old, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *reorder, MPI_Fint *comm_graph, MPI_Fint *ierr); +void mpi_graph_get_(MPI_Fint *comm, MPI_Fint *maxindex, MPI_Fint *maxedges, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *ierr); +void mpi_graph_map_(MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *newrank, MPI_Fint *ierr); +void mpi_graph_neighbors_count_(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *nneighbors, MPI_Fint *ierr); +void mpi_graph_neighbors_(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxneighbors, MPI_Fint *neighbors, MPI_Fint *ierr); +void mpi_graphdims_get_(MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *nedges, MPI_Fint *ierr); +void mpi_grequest_complete_(MPI_Fint *request, MPI_Fint *ierr); +void mpi_grequest_start_(MPI_Fint *query_fn, MPI_Fint *free_fn, MPI_Fint *cancel_fn, char *extra_state, MPI_Fint *request, MPI_Fint *ierr); +void mpi_group_compare_(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *result, MPI_Fint *ierr); +void mpi_group_difference_(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr); +void mpi_group_excl_(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *newgroup, MPI_Fint *ierr); +void mpi_group_free_(MPI_Fint *group, MPI_Fint *ierr); +void mpi_group_incl_(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *newgroup, MPI_Fint *ierr); +void mpi_group_intersection_(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr); +void mpi_group_range_excl_(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranges3, MPI_Fint *newgroup, MPI_Fint *ierr); +void mpi_group_range_incl_(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranges3, MPI_Fint *newgroup, MPI_Fint *ierr); +void mpi_group_rank_(MPI_Fint *group, MPI_Fint *rank, MPI_Fint *ierr); +void mpi_group_size_(MPI_Fint *group, MPI_Fint *size, MPI_Fint *ierr); +void mpi_group_translate_ranks_(MPI_Fint *group1, MPI_Fint *n, MPI_Fint *ranks1, MPI_Fint *group2, MPI_Fint *ranks2, MPI_Fint *ierr); +void mpi_group_union_(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr); +void mpi_ibsend_(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_info_create_(MPI_Fint *info, MPI_Fint *ierr); +void mpi_info_delete_(MPI_Fint *info, char *key, MPI_Fint *ierr); +void mpi_info_dup_(MPI_Fint *info, MPI_Fint *newinfo, MPI_Fint *ierr); +void mpi_info_free_(MPI_Fint *info, MPI_Fint *ierr); +void mpi_info_get_(MPI_Fint *info, char *key, MPI_Fint *valuelen, char *value, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_info_get_nkeys_(MPI_Fint *info, MPI_Fint *nkeys, MPI_Fint *ierr); +void mpi_info_get_nthkey_(MPI_Fint *info, MPI_Fint *n, char *key, MPI_Fint *ierr); +void mpi_info_get_valuelen_(MPI_Fint *info, char *key, MPI_Fint *valuelen, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_info_set_(MPI_Fint *info, char *key, char *value, MPI_Fint *ierr); +void mpi_init_(MPI_Fint *argc, char *argv, MPI_Fint *ierr); +void mpi_initialized_(MPI_Fint *flag, MPI_Fint *ierr); +void mpi_init_thread_(MPI_Fint *argc, char *argv, MPI_Fint *required, MPI_Fint *provided, MPI_Fint *ierr); +void mpi_intercomm_create_(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); +void mpi_intercomm_merge_(MPI_Fint *intercomm, MPI_Fint *high, MPI_Fint *newintercomm, MPI_Fint *ierr); +void mpi_iprobe_(MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void mpi_irecv_(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_irsend_(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_isend_(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_issend_(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_is_thread_main_(MPI_Fint *flag, MPI_Fint *ierr); +void mpi_keyval_create_(MPI_Fint *copy_fn, MPI_Fint *delete_fn, MPI_Fint *keyval, char *extra_state, MPI_Fint *ierr); +void mpi_keyval_free_(MPI_Fint *keyval, MPI_Fint *ierr); +void mpi_lookup_name_(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void mpi_op_create_(MPI_Fint *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr); +void mpi_open_port_(MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void mpi_op_free_(MPI_Fint *op, MPI_Fint *ierr); +void mpi_pack_external_(char *datarep, char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *ierr); +void mpi_pack_external_size_(char *datarep, MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *size, MPI_Fint *ierr); +void mpi_pack_(char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_pack_size_(MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr); +void mpi_pcontrol_(MPI_Fint *level); +void mpi_probe_(MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void mpi_publish_name_(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void mpi_put_(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); +void mpi_query_thread_(MPI_Fint *provided, MPI_Fint *ierr); +void mpi_recv_init_(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_recv_(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void mpi_reduce_(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_reduce_scatter_(char *sendbuf, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_register_datarep_(char *datarep, MPI_Fint *read_conversion_fn, MPI_Fint *write_conversion_fn, MPI_Fint *dtype_file_extent_fn, char *extra_state, MPI_Fint *ierr); +void mpi_request_free_(MPI_Fint *request, MPI_Fint *ierr); +void mpi_request_get_status_(MPI_Fint *request, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void mpi_rsend_(char *ibuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_rsend_init_(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_scan_(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_scatter_(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); +void mpi_scatterv_(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); +void mpi_send_init_(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_send_(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_sendrecv_(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *dest, MPI_Fint *sendtag, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void mpi_sendrecv_replace_(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *sendtag, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void mpi_ssend_init_(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_ssend_(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_start_(MPI_Fint *request, MPI_Fint *ierr); +void mpi_startall_(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *ierr); +void mpi_status_set_cancelled_(MPI_Fint *status, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_status_set_elements_(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr); +void mpi_testall_(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *flag, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void mpi_testany_(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void mpi_test_(MPI_Fint *request, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void mpi_test_cancelled_(MPI_Fint *status, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_testsome_(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *outcount, MPI_Fint *array_of_indices, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void mpi_topo_test_(MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void mpi_type_commit_(MPI_Fint *type, MPI_Fint *ierr); +void mpi_type_contiguous_(MPI_Fint *count, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_darray_(MPI_Fint *size, MPI_Fint *rank, MPI_Fint *ndims, MPI_Fint *gsize_array, MPI_Fint *distrib_array, MPI_Fint *darg_array, MPI_Fint *psize_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_f90_complex_(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_f90_integer_(MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_f90_real_(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_hindexed_(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_hvector_(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_keyval_(MPI_Fint *type_copy_attr_fn, MPI_Fint *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr); +void mpi_type_create_indexed_block_(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_struct_(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); +void mpi_type_create_subarray_(MPI_Fint *ndims, MPI_Fint *size_array, MPI_Fint *subsize_array, MPI_Fint *start_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_resized_(MPI_Fint *oldtype, MPI_Fint *lb, MPI_Fint *extent, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_delete_attr_(MPI_Fint *type, MPI_Fint *type_keyval, MPI_Fint *ierr); +void mpi_type_dup_(MPI_Fint *type, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_extent_(MPI_Fint *type, MPI_Fint *extent, MPI_Fint *ierr); +void mpi_type_free_(MPI_Fint *type, MPI_Fint *ierr); +void mpi_type_free_keyval_(MPI_Fint *type_keyval, MPI_Fint *ierr); +void mpi_type_get_attr_(MPI_Fint *type, MPI_Fint *type_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_type_get_contents_(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); +void mpi_type_get_envelope_(MPI_Fint *type, MPI_Fint *num_integers, MPI_Fint *num_addresses, MPI_Fint *num_datatypes, MPI_Fint *combiner, MPI_Fint *ierr); +void mpi_type_get_extent_(MPI_Fint *type, MPI_Fint *lb, MPI_Fint *extent, MPI_Fint *ierr); +void mpi_type_get_name_(MPI_Fint *type, char *type_name, MPI_Fint *resultlen, MPI_Fint *ierr); +void mpi_type_get_true_extent_(MPI_Fint *datatype, MPI_Fint *true_lb, MPI_Fint *true_extent, MPI_Fint *ierr); +void mpi_type_hindexed_(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_hvector_(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_indexed_(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_lb_(MPI_Fint *type, MPI_Fint *lb, MPI_Fint *ierr); +void mpi_type_match_size_(MPI_Fint *typeclass, MPI_Fint *size, MPI_Fint *type, MPI_Fint *ierr); +void mpi_type_set_attr_(MPI_Fint *type, MPI_Fint *type_keyval, char *attr_val, MPI_Fint *ierr); +void mpi_type_set_name_(MPI_Fint *type, char *type_name, MPI_Fint *ierr); +void mpi_type_size_(MPI_Fint *type, MPI_Fint *size, MPI_Fint *ierr); +void mpi_type_struct_(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *array_of_types, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_ub_(MPI_Fint *mtype, MPI_Fint *ub, MPI_Fint *ierr); +void mpi_type_vector_(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_unpack_(char *inbuf, MPI_Fint *insize, MPI_Fint *position, char *outbuf, MPI_Fint *outcount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_unpublish_name_(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void mpi_unpack_external_ (char *datarep, char *inbuf, MPI_Fint *insize, MPI_Fint *position, char *outbuf, MPI_Fint *outcount, MPI_Fint *datatype, MPI_Fint *ierr); +void mpi_waitall_(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void mpi_waitany_(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *status, MPI_Fint *ierr); +void mpi_wait_(MPI_Fint *request, MPI_Fint *status, MPI_Fint *ierr); +void mpi_waitsome_(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *outcount, MPI_Fint *array_of_indices, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void mpi_win_call_errhandler_(MPI_Fint *win, MPI_Fint *errorcode, MPI_Fint *ierr); +void mpi_win_complete_(MPI_Fint *win, MPI_Fint *ierr); +void mpi_win_create_(char *base, MPI_Fint *size, MPI_Fint *disp_unit, MPI_Fint *info, MPI_Fint *comm, MPI_Fint *win, MPI_Fint *ierr); +void mpi_win_create_errhandler_(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_win_create_keyval_(MPI_Fint *win_copy_attr_fn, MPI_Fint *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr); +void mpi_win_delete_attr_(MPI_Fint *win, MPI_Fint *win_keyval, MPI_Fint *ierr); +void mpi_win_fence_(MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void mpi_win_free_(MPI_Fint *win, MPI_Fint *ierr); +void mpi_win_free_keyval_(MPI_Fint *win_keyval, MPI_Fint *ierr); +void mpi_win_get_attr_(MPI_Fint *win, MPI_Fint *win_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_win_get_errhandler_(MPI_Fint *win, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_win_get_group_(MPI_Fint *win, MPI_Fint *group, MPI_Fint *ierr); +void mpi_win_get_name_(MPI_Fint *win, char *win_name, MPI_Fint *resultlen, MPI_Fint *ierr); +void mpi_win_lock_(MPI_Fint *lock_type, MPI_Fint *rank, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void mpi_win_post_(MPI_Fint *group, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void mpi_win_set_attr_(MPI_Fint *win, MPI_Fint *win_keyval, char *attribute_val, MPI_Fint *ierr); +void mpi_win_set_errhandler_(MPI_Fint *win, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_win_set_name_(MPI_Fint *win, char *win_name, MPI_Fint *ierr); +void mpi_win_start_(MPI_Fint *group, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void mpi_win_test_(MPI_Fint *win, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_win_unlock_(MPI_Fint *rank, MPI_Fint *win, MPI_Fint *ierr); +void mpi_win_wait_(MPI_Fint *win, MPI_Fint *ierr); +double mpi_wtick_(MPI_Fint *ierr); +double mpi_wtime_(MPI_Fint *ierr); +/*This is the double underscore prototypes*/ -/* - * Fourth, two trailing underscores. - */ +void mpi_abort__(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr); +void mpi_accumulate__(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); +void mpi_add_error_class__(MPI_Fint *errorclass, MPI_Fint *ierr); +void mpi_add_error_code__(MPI_Fint *errorclass, MPI_Fint *errorcode, MPI_Fint *ierr); +void mpi_add_error_string__(MPI_Fint *errorcode, char *string, MPI_Fint *ierr); +void mpi_address__(char *location, MPI_Fint *address, MPI_Fint *ierr); +void mpi_allgather__(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_allgatherv__(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); void mpi_alloc_mem__(MPI_Fint *size, MPI_Fint *info, char *baseptr, MPI_Fint *ierr); -void mpi_comm_get_name__(MPI_Fint *comm, char *name, MPI_Fint *l, MPI_Fint *ierror, - MPI_Fint charlen); -void mpi_comm_set_name__(MPI_Fint *comm, char *name, MPI_Fint *ierror, MPI_Fint charlen); -void mpi_init__(MPI_Fint *ierror); -void mpi_finalize__(MPI_Fint *ierror); -void mpi_free_mem__(char *baseptr, MPI_Fint *ierr); -void mpi_group_compare__(MPI_Fint *group1, MPI_Fint *group2, - MPI_Fint *result, MPI_Fint *ierror); +void mpi_allreduce__(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_alltoall__(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_alltoallv__(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); +void mpi_alltoallw__(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); +void mpi_attr_delete__(MPI_Fint *comm, MPI_Fint *keyval, MPI_Fint *ierr); +void mpi_attr_get__(MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_attr_put__(MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *ierr); +void mpi_barrier__(MPI_Fint *comm, MPI_Fint *ierr); +void mpi_bcast__(char *buffer, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_bsend__(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_bsend_init__(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_buffer_attach__(char *buffer, MPI_Fint *size, MPI_Fint *ierr); +void mpi_buffer_detach__(char *buffer, MPI_Fint *size, MPI_Fint *ierr); +void mpi_cancel__(MPI_Fint *request, MPI_Fint *ierr); +void mpi_cart_coords__(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxdims, MPI_Fint *coords, MPI_Fint *ierr); +void mpi_cart_create__(MPI_Fint *old_comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *redorder, MPI_Fint *comm_cart, MPI_Fint *ierr); +void mpi_cart_get__(MPI_Fint *comm, MPI_Fint *maxdims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *coords, MPI_Fint *ierr); +void mpi_cart_map__(MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *newrank, MPI_Fint *ierr); +void mpi_cart_rank__(MPI_Fint *comm, MPI_Fint *coords, MPI_Fint *rank, MPI_Fint *ierr); +void mpi_cart_shift__(MPI_Fint *comm, MPI_Fint *direction, MPI_Fint *disp, MPI_Fint *rank_source, MPI_Fint *rank_dest, MPI_Fint *ierr); +void mpi_cart_sub__(MPI_Fint *comm, MPI_Fint *remain_dims, MPI_Fint *new_comm, MPI_Fint *ierr); +void mpi_cartdim_get__(MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *ierr); +void mpi_close_port__(char *port_name, MPI_Fint *ierr); +void mpi_comm_accept__(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr); +void mpi_comm_call_errhandler__(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr); +void mpi_comm_compare__(MPI_Fint *comm1, MPI_Fint *comm2, MPI_Fint *result, MPI_Fint *ierr); +void mpi_comm_connect__(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr); +void mpi_comm_create_errhandler__(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_comm_create_keyval__(MPI_Fint *comm_copy_attr_fn, MPI_Fint *comm_delete_attr_fn, MPI_Fint *comm_keyval, char *extra_state, MPI_Fint *ierr); +void mpi_comm_create__(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr); +void mpi_comm_delete_attr__(MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *ierr); +void mpi_comm_disconnect__(MPI_Fint *comm, MPI_Fint *ierr); +void mpi_comm_dup__(MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr); +void mpi_comm_free_keyval__(MPI_Fint *comm_keyval, MPI_Fint *ierr); +void mpi_comm_free__(MPI_Fint *comm, MPI_Fint *ierr); +void mpi_comm_get_attr__(MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_comm_get_errhandler__(MPI_Fint *comm, MPI_Fint *erhandler, MPI_Fint *ierr); +void mpi_comm_get_name__(MPI_Fint *comm, char *comm_name, MPI_Fint *resultlen, MPI_Fint *ierr); +void mpi_comm_get_parent__(MPI_Fint *parent, MPI_Fint *ierr); +void mpi_comm_group__(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr); +void mpi_comm_join__(MPI_Fint *fd, MPI_Fint *intercomm, MPI_Fint *ierr); +void mpi_comm_rank__(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *ierr); +void mpi_comm_remote_group__(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr); +void mpi_comm_remote_size__(MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr); +void mpi_comm_set_attr__(MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *ierr); +void mpi_comm_set_errhandler__(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_comm_set_name__(MPI_Fint *comm, char *comm_name, MPI_Fint *ierr); +void mpi_comm_size__(MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr); +void mpi_comm_spawn__(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); +void mpi_comm_spawn_multiple__(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); +void mpi_comm_split__(MPI_Fint *comm, MPI_Fint *color, MPI_Fint *key, MPI_Fint *newcomm, MPI_Fint *ierr); +void mpi_comm_test_inter__(MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_dims_create__(MPI_Fint *nnodes, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *ierr); +void mpi_errhandler_create__(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_errhandler_free__(MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_errhandler_get__(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_errhandler_set__(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_error_class__(MPI_Fint *errorcode, MPI_Fint *errorclass, MPI_Fint *ierr); +void mpi_error_string__(MPI_Fint *errorcode, char *string, MPI_Fint *resultlen, MPI_Fint *ierr); +void mpi_exscan__(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_file_call_errhandler__(MPI_Fint *fh, MPI_Fint *errorcode, MPI_Fint *ierr); +void mpi_file_create_errhandler__(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_file_set_errhandler__(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_file_get_errhandler__(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_file_open__(MPI_Fint *comm, char *filename, MPI_Fint *amode, MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr); +void mpi_file_close__(MPI_Fint *fh, MPI_Fint *ierr); +void mpi_file_delete__(char *filename, MPI_Fint *info, MPI_Fint *ierr); +void mpi_file_set_size__(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr); +void mpi_file_preallocate__(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr); +void mpi_file_get_size__(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr); +void mpi_file_get_group__(MPI_Fint *fh, MPI_Fint *group, MPI_Fint *ierr); +void mpi_file_get_amode__(MPI_Fint *fh, MPI_Fint *amode, MPI_Fint *ierr); +void mpi_file_set_info__(MPI_Fint *fh, MPI_Fint *info, MPI_Fint *ierr); +void mpi_file_get_info__(MPI_Fint *fh, MPI_Fint *info_used, MPI_Fint *ierr); +void mpi_file_set_view__(MPI_Fint *fh, MPI_Fint *disp, MPI_Fint *etype, MPI_Fint *filetype, char *datarep, MPI_Fint *info, MPI_Fint *ierr); +void mpi_file_get_view__(MPI_Fint *fh, MPI_Fint *disp, MPI_Fint *etype, MPI_Fint *filetype, char *datarep, MPI_Fint *ierr); +void mpi_file_read_at__(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_read_at_all__(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write_at__(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write_at_all__(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_iread_at__(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void mpi_file_iwrite_at__(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void mpi_file_read__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_read_all__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write_all__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_iread__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void mpi_file_iwrite__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void mpi_file_seek__(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *whence, MPI_Fint *ierr); +void mpi_file_get_position__(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr); +void mpi_file_get_byte_offset__(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *disp, MPI_Fint *ierr); +void mpi_file_read_shared__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write_shared__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_iread_shared__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void mpi_file_iwrite_shared__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void mpi_file_read_ordered__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write_ordered__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_seek_shared__(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *whence, MPI_Fint *ierr); +void mpi_file_get_position_shared__(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr); +void mpi_file_read_at_all_begin__(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void mpi_file_read_at_all_end__(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write_at_all_begin__(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void mpi_file_write_at_all_end__(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_read_all_begin__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void mpi_file_read_all_end__(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write_all_begin__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void mpi_file_write_all_end__(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_read_ordered_begin__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void mpi_file_read_ordered_end__(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_write_ordered_begin__(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void mpi_file_write_ordered_end__(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void mpi_file_get_type_extent__(MPI_Fint *fh, MPI_Fint *datatype, MPI_Fint *extent, MPI_Fint *ierr); +void mpi_file_set_atomicity__(MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_file_get_atomicity__(MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_file_sync__(MPI_Fint *fh, MPI_Fint *ierr); +void mpi_finalize__(MPI_Fint *ierr); +void mpi_finalized__(MPI_Fint *flag, MPI_Fint *ierr); +void mpi_free_mem__(char *base, MPI_Fint *ierr); +void mpi_gather__(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); +void mpi_gatherv__(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); +void mpi_get_address__(char *location, MPI_Fint *address, MPI_Fint *ierr); +void mpi_get_count__(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr); +void mpi_get_elements__(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr); +void mpi_get__(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); +void mpi_get_processor_name__(char *name, MPI_Fint *resultlen, MPI_Fint *ierr); +void mpi_get_version__(MPI_Fint *version, MPI_Fint *subversion, MPI_Fint *ierr); +void mpi_graph_create__(MPI_Fint *comm_old, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *reorder, MPI_Fint *comm_graph, MPI_Fint *ierr); +void mpi_graph_get__(MPI_Fint *comm, MPI_Fint *maxindex, MPI_Fint *maxedges, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *ierr); +void mpi_graph_map__(MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *newrank, MPI_Fint *ierr); +void mpi_graph_neighbors_count__(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *nneighbors, MPI_Fint *ierr); +void mpi_graph_neighbors__(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxneighbors, MPI_Fint *neighbors, MPI_Fint *ierr); +void mpi_graphdims_get__(MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *nedges, MPI_Fint *ierr); +void mpi_grequest_complete__(MPI_Fint *request, MPI_Fint *ierr); +void mpi_grequest_start__(MPI_Fint *query_fn, MPI_Fint *free_fn, MPI_Fint *cancel_fn, char *extra_state, MPI_Fint *request, MPI_Fint *ierr); +void mpi_group_compare__(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *result, MPI_Fint *ierr); +void mpi_group_difference__(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr); +void mpi_group_excl__(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *newgroup, MPI_Fint *ierr); +void mpi_group_free__(MPI_Fint *group, MPI_Fint *ierr); +void mpi_group_incl__(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *newgroup, MPI_Fint *ierr); +void mpi_group_intersection__(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr); +void mpi_group_range_excl__(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranges3, MPI_Fint *newgroup, MPI_Fint *ierr); +void mpi_group_range_incl__(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranges3, MPI_Fint *newgroup, MPI_Fint *ierr); +void mpi_group_rank__(MPI_Fint *group, MPI_Fint *rank, MPI_Fint *ierr); +void mpi_group_size__(MPI_Fint *group, MPI_Fint *size, MPI_Fint *ierr); +void mpi_group_translate_ranks__(MPI_Fint *group1, MPI_Fint *n, MPI_Fint *ranks1, MPI_Fint *group2, MPI_Fint *ranks2, MPI_Fint *ierr); +void mpi_group_union__(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr); +void mpi_ibsend__(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_info_create__(MPI_Fint *info, MPI_Fint *ierr); +void mpi_info_delete__(MPI_Fint *info, char *key, MPI_Fint *ierr); +void mpi_info_dup__(MPI_Fint *info, MPI_Fint *newinfo, MPI_Fint *ierr); +void mpi_info_free__(MPI_Fint *info, MPI_Fint *ierr); +void mpi_info_get__(MPI_Fint *info, char *key, MPI_Fint *valuelen, char *value, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_info_get_nkeys__(MPI_Fint *info, MPI_Fint *nkeys, MPI_Fint *ierr); +void mpi_info_get_nthkey__(MPI_Fint *info, MPI_Fint *n, char *key, MPI_Fint *ierr); +void mpi_info_get_valuelen__(MPI_Fint *info, char *key, MPI_Fint *valuelen, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_info_set__(MPI_Fint *info, char *key, char *value, MPI_Fint *ierr); +void mpi_init__(MPI_Fint *argc, char *argv, MPI_Fint *ierr); +void mpi_initialized__(MPI_Fint *flag, MPI_Fint *ierr); +void mpi_init_thread__(MPI_Fint *argc, char *argv, MPI_Fint *required, MPI_Fint *provided, MPI_Fint *ierr); +void mpi_intercomm_create__(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); +void mpi_intercomm_merge__(MPI_Fint *intercomm, MPI_Fint *high, MPI_Fint *newintercomm, MPI_Fint *ierr); +void mpi_iprobe__(MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void mpi_irecv__(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_irsend__(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_isend__(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_issend__(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_is_thread_main__(MPI_Fint *flag, MPI_Fint *ierr); +void mpi_keyval_create__(MPI_Fint *copy_fn, MPI_Fint *delete_fn, MPI_Fint *keyval, char *extra_state, MPI_Fint *ierr); +void mpi_keyval_free__(MPI_Fint *keyval, MPI_Fint *ierr); +void mpi_lookup_name__(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void mpi_op_create__(MPI_Fint *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr); +void mpi_open_port__(MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void mpi_op_free__(MPI_Fint *op, MPI_Fint *ierr); +void mpi_pack_external__(char *datarep, char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *ierr); +void mpi_pack_external_size__(char *datarep, MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *size, MPI_Fint *ierr); +void mpi_pack__(char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_pack_size__(MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr); +void mpi_pcontrol__(MPI_Fint *level); +void mpi_probe__(MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void mpi_publish_name__(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void mpi_put__(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); +void mpi_query_thread__(MPI_Fint *provided, MPI_Fint *ierr); +void mpi_recv_init__(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_recv__(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void mpi_reduce__(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_reduce_scatter__(char *sendbuf, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_register_datarep__(char *datarep, MPI_Fint *read_conversion_fn, MPI_Fint *write_conversion_fn, MPI_Fint *dtype_file_extent_fn, char *extra_state, MPI_Fint *ierr); +void mpi_request_free__(MPI_Fint *request, MPI_Fint *ierr); +void mpi_request_get_status__(MPI_Fint *request, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void mpi_rsend__(char *ibuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_rsend_init__(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_scan__(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_scatter__(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); +void mpi_scatterv__(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); +void mpi_send_init__(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_send__(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_sendrecv__(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *dest, MPI_Fint *sendtag, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void mpi_sendrecv_replace__(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *sendtag, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void mpi_ssend_init__(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void mpi_ssend__(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_start__(MPI_Fint *request, MPI_Fint *ierr); +void mpi_startall__(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *ierr); +void mpi_status_set_cancelled__(MPI_Fint *status, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_status_set_elements__(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr); +void mpi_testall__(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *flag, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void mpi_testany__(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void mpi_test__(MPI_Fint *request, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void mpi_test_cancelled__(MPI_Fint *status, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_testsome__(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *outcount, MPI_Fint *array_of_indices, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void mpi_topo_test__(MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void mpi_type_commit__(MPI_Fint *type, MPI_Fint *ierr); +void mpi_type_contiguous__(MPI_Fint *count, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_darray__(MPI_Fint *size, MPI_Fint *rank, MPI_Fint *ndims, MPI_Fint *gsize_array, MPI_Fint *distrib_array, MPI_Fint *darg_array, MPI_Fint *psize_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_f90_complex__(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_f90_integer__(MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_f90_real__(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_hindexed__(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_hvector__(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_keyval__(MPI_Fint *type_copy_attr_fn, MPI_Fint *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr); +void mpi_type_create_indexed_block__(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_struct__(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); +void mpi_type_create_subarray__(MPI_Fint *ndims, MPI_Fint *size_array, MPI_Fint *subsize_array, MPI_Fint *start_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_create_resized__(MPI_Fint *oldtype, MPI_Fint *lb, MPI_Fint *extent, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_delete_attr__(MPI_Fint *type, MPI_Fint *type_keyval, MPI_Fint *ierr); +void mpi_type_dup__(MPI_Fint *type, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_extent__(MPI_Fint *type, MPI_Fint *extent, MPI_Fint *ierr); +void mpi_type_free__(MPI_Fint *type, MPI_Fint *ierr); +void mpi_type_free_keyval__(MPI_Fint *type_keyval, MPI_Fint *ierr); +void mpi_type_get_attr__(MPI_Fint *type, MPI_Fint *type_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_type_get_contents__(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); +void mpi_type_get_envelope__(MPI_Fint *type, MPI_Fint *num_integers, MPI_Fint *num_addresses, MPI_Fint *num_datatypes, MPI_Fint *combiner, MPI_Fint *ierr); +void mpi_type_get_extent__(MPI_Fint *type, MPI_Fint *lb, MPI_Fint *extent, MPI_Fint *ierr); +void mpi_type_get_name__(MPI_Fint *type, char *type_name, MPI_Fint *resultlen, MPI_Fint *ierr); +void mpi_type_get_true_extent__(MPI_Fint *datatype, MPI_Fint *true_lb, MPI_Fint *true_extent, MPI_Fint *ierr); +void mpi_type_hindexed__(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_hvector__(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_indexed__(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_lb__(MPI_Fint *type, MPI_Fint *lb, MPI_Fint *ierr); +void mpi_type_match_size__(MPI_Fint *typeclass, MPI_Fint *size, MPI_Fint *type, MPI_Fint *ierr); +void mpi_type_set_attr__(MPI_Fint *type, MPI_Fint *type_keyval, char *attr_val, MPI_Fint *ierr); +void mpi_type_set_name__(MPI_Fint *type, char *type_name, MPI_Fint *ierr); +void mpi_type_size__(MPI_Fint *type, MPI_Fint *size, MPI_Fint *ierr); +void mpi_type_struct__(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *array_of_types, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_type_ub__(MPI_Fint *mtype, MPI_Fint *ub, MPI_Fint *ierr); +void mpi_type_vector__(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void mpi_unpack__(char *inbuf, MPI_Fint *insize, MPI_Fint *position, char *outbuf, MPI_Fint *outcount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *ierr); +void mpi_unpublish_name__(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void mpi_unpack_external__ (char *datarep, char *inbuf, MPI_Fint *insize, MPI_Fint *position, char *outbuf, MPI_Fint *outcount, MPI_Fint *datatype, MPI_Fint *ierr); +void mpi_waitall__(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void mpi_waitany__(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *status, MPI_Fint *ierr); +void mpi_wait__(MPI_Fint *request, MPI_Fint *status, MPI_Fint *ierr); +void mpi_waitsome__(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *outcount, MPI_Fint *array_of_indices, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void mpi_win_call_errhandler__(MPI_Fint *win, MPI_Fint *errorcode, MPI_Fint *ierr); +void mpi_win_complete__(MPI_Fint *win, MPI_Fint *ierr); +void mpi_win_create__(char *base, MPI_Fint *size, MPI_Fint *disp_unit, MPI_Fint *info, MPI_Fint *comm, MPI_Fint *win, MPI_Fint *ierr); +void mpi_win_create_errhandler__(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_win_create_keyval__(MPI_Fint *win_copy_attr_fn, MPI_Fint *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr); +void mpi_win_delete_attr__(MPI_Fint *win, MPI_Fint *win_keyval, MPI_Fint *ierr); +void mpi_win_fence__(MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void mpi_win_free__(MPI_Fint *win, MPI_Fint *ierr); +void mpi_win_free_keyval__(MPI_Fint *win_keyval, MPI_Fint *ierr); +void mpi_win_get_attr__(MPI_Fint *win, MPI_Fint *win_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_win_get_errhandler__(MPI_Fint *win, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_win_get_group__(MPI_Fint *win, MPI_Fint *group, MPI_Fint *ierr); +void mpi_win_get_name__(MPI_Fint *win, char *win_name, MPI_Fint *resultlen, MPI_Fint *ierr); +void mpi_win_lock__(MPI_Fint *lock_type, MPI_Fint *rank, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void mpi_win_post__(MPI_Fint *group, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void mpi_win_set_attr__(MPI_Fint *win, MPI_Fint *win_keyval, char *attribute_val, MPI_Fint *ierr); +void mpi_win_set_errhandler__(MPI_Fint *win, MPI_Fint *errhandler, MPI_Fint *ierr); +void mpi_win_set_name__(MPI_Fint *win, char *win_name, MPI_Fint *ierr); +void mpi_win_start__(MPI_Fint *group, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void mpi_win_test__(MPI_Fint *win, MPI_Fint *flag, MPI_Fint *ierr); +void mpi_win_unlock__(MPI_Fint *rank, MPI_Fint *win, MPI_Fint *ierr); +void mpi_win_wait__(MPI_Fint *win, MPI_Fint *ierr); +double mpi_wtick__(MPI_Fint *ierr); +double mpi_wtime__(MPI_Fint *ierr); +/*This is the all upper case prototypes*/ + +void MPI_ABORT(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr); +void MPI_ACCUMULATE(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); +void MPI_ADD_ERROR_CLASS(MPI_Fint *errorclass, MPI_Fint *ierr); +void MPI_ADD_ERROR_CODE(MPI_Fint *errorclass, MPI_Fint *errorcode, MPI_Fint *ierr); +void MPI_ADD_ERROR_STRING(MPI_Fint *errorcode, char *string, MPI_Fint *ierr); +void MPI_ADDRESS(char *location, MPI_Fint *address, MPI_Fint *ierr); +void MPI_ALLGATHER(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr); +void MPI_ALLGATHERV(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); +void MPI_ALLOC_MEM(MPI_Fint *size, MPI_Fint *info, char *baseptr, MPI_Fint *ierr); +void MPI_ALLREDUCE(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void MPI_ALLTOALL(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *comm, MPI_Fint *ierr); +void MPI_ALLTOALLV(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); +void MPI_ALLTOALLW(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); +void MPI_ATTR_DELETE(MPI_Fint *comm, MPI_Fint *keyval, MPI_Fint *ierr); +void MPI_ATTR_GET(MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void MPI_ATTR_PUT(MPI_Fint *comm, MPI_Fint *keyval, char *attribute_val, MPI_Fint *ierr); +void MPI_BARRIER(MPI_Fint *comm, MPI_Fint *ierr); +void MPI_BCAST(char *buffer, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr); +void MPI_BSEND(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void MPI_BSEND_INIT(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void MPI_BUFFER_ATTACH(char *buffer, MPI_Fint *size, MPI_Fint *ierr); +void MPI_BUFFER_DETACH(char *buffer, MPI_Fint *size, MPI_Fint *ierr); +void MPI_CANCEL(MPI_Fint *request, MPI_Fint *ierr); +void MPI_CART_COORDS(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxdims, MPI_Fint *coords, MPI_Fint *ierr); +void MPI_CART_CREATE(MPI_Fint *old_comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *redorder, MPI_Fint *comm_cart, MPI_Fint *ierr); +void MPI_CART_GET(MPI_Fint *comm, MPI_Fint *maxdims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *coords, MPI_Fint *ierr); +void MPI_CART_MAP(MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *periods, MPI_Fint *newrank, MPI_Fint *ierr); +void MPI_CART_RANK(MPI_Fint *comm, MPI_Fint *coords, MPI_Fint *rank, MPI_Fint *ierr); +void MPI_CART_SHIFT(MPI_Fint *comm, MPI_Fint *direction, MPI_Fint *disp, MPI_Fint *rank_source, MPI_Fint *rank_dest, MPI_Fint *ierr); +void MPI_CART_SUB(MPI_Fint *comm, MPI_Fint *remain_dims, MPI_Fint *new_comm, MPI_Fint *ierr); +void MPI_CARTDIM_GET(MPI_Fint *comm, MPI_Fint *ndims, MPI_Fint *ierr); +void MPI_CLOSE_PORT(char *port_name, MPI_Fint *ierr); +void MPI_COMM_ACCEPT(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr); +void MPI_COMM_CALL_ERRHANDLER(MPI_Fint *comm, MPI_Fint *errorcode, MPI_Fint *ierr); +void MPI_COMM_COMPARE(MPI_Fint *comm1, MPI_Fint *comm2, MPI_Fint *result, MPI_Fint *ierr); +void MPI_COMM_CONNECT(char *port_name, MPI_Fint *info, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr); +void MPI_COMM_CREATE_ERRHANDLER(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void MPI_COMM_CREATE_KEYVAL(MPI_Fint *comm_copy_attr_fn, MPI_Fint *comm_delete_attr_fn, MPI_Fint *comm_keyval, char *extra_state, MPI_Fint *ierr); +void MPI_COMM_CREATE(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *newcomm, MPI_Fint *ierr); +void MPI_COMM_DELETE_ATTR(MPI_Fint *comm, MPI_Fint *comm_keyval, MPI_Fint *ierr); +void MPI_COMM_DISCONNECT(MPI_Fint *comm, MPI_Fint *ierr); +void MPI_COMM_DUP(MPI_Fint *comm, MPI_Fint *newcomm, MPI_Fint *ierr); +void MPI_COMM_FREE_KEYVAL(MPI_Fint *comm_keyval, MPI_Fint *ierr); +void MPI_COMM_FREE(MPI_Fint *comm, MPI_Fint *ierr); +void MPI_COMM_GET_ATTR(MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void MPI_COMM_GET_ERRHANDLER(MPI_Fint *comm, MPI_Fint *erhandler, MPI_Fint *ierr); +void MPI_COMM_GET_NAME(MPI_Fint *comm, char *comm_name, MPI_Fint *resultlen, MPI_Fint *ierr); +void MPI_COMM_GET_PARENT(MPI_Fint *parent, MPI_Fint *ierr); +void MPI_COMM_GROUP(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr); +void MPI_COMM_JOIN(MPI_Fint *fd, MPI_Fint *intercomm, MPI_Fint *ierr); +void MPI_COMM_RANK(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *ierr); +void MPI_COMM_REMOTE_GROUP(MPI_Fint *comm, MPI_Fint *group, MPI_Fint *ierr); +void MPI_COMM_REMOTE_SIZE(MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr); +void MPI_COMM_SET_ATTR(MPI_Fint *comm, MPI_Fint *comm_keyval, char *attribute_val, MPI_Fint *ierr); +void MPI_COMM_SET_ERRHANDLER(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr); +void MPI_COMM_SET_NAME(MPI_Fint *comm, char *comm_name, MPI_Fint *ierr); +void MPI_COMM_SIZE(MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr); +void MPI_COMM_SPAWN(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); +void MPI_COMM_SPAWN_MULTIPLE(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); +void MPI_COMM_SPLIT(MPI_Fint *comm, MPI_Fint *color, MPI_Fint *key, MPI_Fint *newcomm, MPI_Fint *ierr); +void MPI_COMM_TEST_INTER(MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *ierr); +void MPI_DIMS_CREATE(MPI_Fint *nnodes, MPI_Fint *ndims, MPI_Fint *dims, MPI_Fint *ierr); +void MPI_ERRHANDLER_CREATE(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void MPI_ERRHANDLER_FREE(MPI_Fint *errhandler, MPI_Fint *ierr); +void MPI_ERRHANDLER_GET(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr); +void MPI_ERRHANDLER_SET(MPI_Fint *comm, MPI_Fint *errhandler, MPI_Fint *ierr); +void MPI_ERROR_CLASS(MPI_Fint *errorcode, MPI_Fint *errorclass, MPI_Fint *ierr); +void MPI_ERROR_STRING(MPI_Fint *errorcode, char *string, MPI_Fint *resultlen, MPI_Fint *ierr); +void MPI_EXSCAN(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void MPI_FILE_CALL_ERRHANDLER(MPI_Fint *fh, MPI_Fint *errorcode, MPI_Fint *ierr); +void MPI_FILE_CREATE_ERRHANDLER(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void MPI_FILE_SET_ERRHANDLER(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr); +void MPI_FILE_GET_ERRHANDLER(MPI_Fint *file, MPI_Fint *errhandler, MPI_Fint *ierr); +void MPI_FILE_OPEN(MPI_Fint *comm, char *filename, MPI_Fint *amode, MPI_Fint *info, MPI_Fint *fh, MPI_Fint *ierr); +void MPI_FILE_CLOSE(MPI_Fint *fh, MPI_Fint *ierr); +void MPI_FILE_DELETE(char *filename, MPI_Fint *info, MPI_Fint *ierr); +void MPI_FILE_SET_SIZE(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr); +void MPI_FILE_PREALLOCATE(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr); +void MPI_FILE_GET_SIZE(MPI_Fint *fh, MPI_Fint *size, MPI_Fint *ierr); +void MPI_FILE_GET_GROUP(MPI_Fint *fh, MPI_Fint *group, MPI_Fint *ierr); +void MPI_FILE_GET_AMODE(MPI_Fint *fh, MPI_Fint *amode, MPI_Fint *ierr); +void MPI_FILE_SET_INFO(MPI_Fint *fh, MPI_Fint *info, MPI_Fint *ierr); +void MPI_FILE_GET_INFO(MPI_Fint *fh, MPI_Fint *info_used, MPI_Fint *ierr); +void MPI_FILE_SET_VIEW(MPI_Fint *fh, MPI_Fint *disp, MPI_Fint *etype, MPI_Fint *filetype, char *datarep, MPI_Fint *info, MPI_Fint *ierr); +void MPI_FILE_GET_VIEW(MPI_Fint *fh, MPI_Fint *disp, MPI_Fint *etype, MPI_Fint *filetype, char *datarep, MPI_Fint *ierr); +void MPI_FILE_READ_AT(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void MPI_FILE_READ_AT_ALL(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void MPI_FILE_WRITE_AT(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void MPI_FILE_WRITE_AT_ALL(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void MPI_FILE_IREAD_AT(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void MPI_FILE_IWRITE_AT(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void MPI_FILE_READ(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void MPI_FILE_READ_ALL(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void MPI_FILE_WRITE(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void MPI_FILE_WRITE_ALL(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void MPI_FILE_IREAD(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void MPI_FILE_IWRITE(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void MPI_FILE_SEEK(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *whence, MPI_Fint *ierr); +void MPI_FILE_GET_POSITION(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr); +void MPI_FILE_GET_BYTE_OFFSET(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *disp, MPI_Fint *ierr); +void MPI_FILE_READ_SHARED(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void MPI_FILE_WRITE_SHARED(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void MPI_FILE_IREAD_SHARED(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void MPI_FILE_IWRITE_SHARED(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *request, MPI_Fint *ierr); +void MPI_FILE_READ_ORDERED(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void MPI_FILE_WRITE_ORDERED(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *status, MPI_Fint *ierr); +void MPI_FILE_SEEK_SHARED(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *whence, MPI_Fint *ierr); +void MPI_FILE_GET_POSITION_SHARED(MPI_Fint *fh, MPI_Fint *offset, MPI_Fint *ierr); +void MPI_FILE_READ_AT_ALL_BEGIN(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void MPI_FILE_READ_AT_ALL_END(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void MPI_FILE_WRITE_AT_ALL_BEGIN(MPI_Fint *fh, MPI_Fint *offset, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void MPI_FILE_WRITE_AT_ALL_END(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void MPI_FILE_READ_ALL_BEGIN(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void MPI_FILE_READ_ALL_END(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void MPI_FILE_WRITE_ALL_BEGIN(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void MPI_FILE_WRITE_ALL_END(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void MPI_FILE_READ_ORDERED_BEGIN(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void MPI_FILE_READ_ORDERED_END(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void MPI_FILE_WRITE_ORDERED_BEGIN(MPI_Fint *fh, char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *ierr); +void MPI_FILE_WRITE_ORDERED_END(MPI_Fint *fh, char *buf, MPI_Fint *status, MPI_Fint *ierr); +void MPI_FILE_GET_TYPE_EXTENT(MPI_Fint *fh, MPI_Fint *datatype, MPI_Fint *extent, MPI_Fint *ierr); +void MPI_FILE_SET_ATOMICITY(MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr); +void MPI_FILE_GET_ATOMICITY(MPI_Fint *fh, MPI_Fint *flag, MPI_Fint *ierr); +void MPI_FILE_SYNC(MPI_Fint *fh, MPI_Fint *ierr); +void MPI_FINALIZE(MPI_Fint *ierr); +void MPI_FINALIZED(MPI_Fint *flag, MPI_Fint *ierr); +void MPI_FREE_MEM(char *base, MPI_Fint *ierr); +void MPI_GATHER(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); +void MPI_GATHERV(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); +void MPI_GET_ADDRESS(char *location, MPI_Fint *address, MPI_Fint *ierr); +void MPI_GET_COUNT(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr); +void MPI_GET_ELEMENTS(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr); +void MPI_GET(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); +void MPI_GET_PROCESSOR_NAME(char *name, MPI_Fint *resultlen, MPI_Fint *ierr); +void MPI_GET_VERSION(MPI_Fint *version, MPI_Fint *subversion, MPI_Fint *ierr); +void MPI_GRAPH_CREATE(MPI_Fint *comm_old, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *reorder, MPI_Fint *comm_graph, MPI_Fint *ierr); +void MPI_GRAPH_GET(MPI_Fint *comm, MPI_Fint *maxindex, MPI_Fint *maxedges, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *ierr); +void MPI_GRAPH_MAP(MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *index, MPI_Fint *edges, MPI_Fint *newrank, MPI_Fint *ierr); +void MPI_GRAPH_NEIGHBORS_COUNT(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *nneighbors, MPI_Fint *ierr); +void MPI_GRAPH_NEIGHBORS(MPI_Fint *comm, MPI_Fint *rank, MPI_Fint *maxneighbors, MPI_Fint *neighbors, MPI_Fint *ierr); +void MPI_GRAPHDIMS_GET(MPI_Fint *comm, MPI_Fint *nnodes, MPI_Fint *nedges, MPI_Fint *ierr); +void MPI_GREQUEST_COMPLETE(MPI_Fint *request, MPI_Fint *ierr); +void MPI_GREQUEST_START(MPI_Fint *query_fn, MPI_Fint *free_fn, MPI_Fint *cancel_fn, char *extra_state, MPI_Fint *request, MPI_Fint *ierr); +void MPI_GROUP_COMPARE(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *result, MPI_Fint *ierr); +void MPI_GROUP_DIFFERENCE(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr); +void MPI_GROUP_EXCL(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *newgroup, MPI_Fint *ierr); +void MPI_GROUP_FREE(MPI_Fint *group, MPI_Fint *ierr); +void MPI_GROUP_INCL(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranks, MPI_Fint *newgroup, MPI_Fint *ierr); +void MPI_GROUP_INTERSECTION(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr); +void MPI_GROUP_RANGE_EXCL(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranges3, MPI_Fint *newgroup, MPI_Fint *ierr); +void MPI_GROUP_RANGE_INCL(MPI_Fint *group, MPI_Fint *n, MPI_Fint *ranges3, MPI_Fint *newgroup, MPI_Fint *ierr); +void MPI_GROUP_RANK(MPI_Fint *group, MPI_Fint *rank, MPI_Fint *ierr); +void MPI_GROUP_SIZE(MPI_Fint *group, MPI_Fint *size, MPI_Fint *ierr); +void MPI_GROUP_TRANSLATE_RANKS(MPI_Fint *group1, MPI_Fint *n, MPI_Fint *ranks1, MPI_Fint *group2, MPI_Fint *ranks2, MPI_Fint *ierr); +void MPI_GROUP_UNION(MPI_Fint *group1, MPI_Fint *group2, MPI_Fint *newgroup, MPI_Fint *ierr); +void MPI_IBSEND(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void MPI_INFO_CREATE(MPI_Fint *info, MPI_Fint *ierr); +void MPI_INFO_DELETE(MPI_Fint *info, char *key, MPI_Fint *ierr); +void MPI_INFO_DUP(MPI_Fint *info, MPI_Fint *newinfo, MPI_Fint *ierr); +void MPI_INFO_FREE(MPI_Fint *info, MPI_Fint *ierr); +void MPI_INFO_GET(MPI_Fint *info, char *key, MPI_Fint *valuelen, char *value, MPI_Fint *flag, MPI_Fint *ierr); +void MPI_INFO_GET_NKEYS(MPI_Fint *info, MPI_Fint *nkeys, MPI_Fint *ierr); +void MPI_INFO_GET_NTHKEY(MPI_Fint *info, MPI_Fint *n, char *key, MPI_Fint *ierr); +void MPI_INFO_GET_VALUELEN(MPI_Fint *info, char *key, MPI_Fint *valuelen, MPI_Fint *flag, MPI_Fint *ierr); +void MPI_INFO_SET(MPI_Fint *info, char *key, char *value, MPI_Fint *ierr); +void MPI_INIT(MPI_Fint *argc, char *argv, MPI_Fint *ierr); +void MPI_INITIALIZED(MPI_Fint *flag, MPI_Fint *ierr); +void MPI_INIT_THREAD(MPI_Fint *argc, char *argv, MPI_Fint *required, MPI_Fint *provided, MPI_Fint *ierr); +void MPI_INTERCOMM_CREATE(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); +void MPI_INTERCOMM_MERGE(MPI_Fint *intercomm, MPI_Fint *high, MPI_Fint *newintercomm, MPI_Fint *ierr); +void MPI_IPROBE(MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void MPI_IRECV(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void MPI_IRSEND(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void MPI_ISEND(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void MPI_ISSEND(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void MPI_IS_THREAD_MAIN(MPI_Fint *flag, MPI_Fint *ierr); +void MPI_KEYVAL_CREATE(MPI_Fint *copy_fn, MPI_Fint *delete_fn, MPI_Fint *keyval, char *extra_state, MPI_Fint *ierr); +void MPI_KEYVAL_FREE(MPI_Fint *keyval, MPI_Fint *ierr); +void MPI_LOOKUP_NAME(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void MPI_OP_CREATE(MPI_Fint *function, MPI_Fint *commute, MPI_Fint *op, MPI_Fint *ierr); +void MPI_OPEN_PORT(MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void MPI_OP_FREE(MPI_Fint *op, MPI_Fint *ierr); +void MPI_PACK_EXTERNAL(char *datarep, char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *ierr); +void MPI_PACK_EXTERNAL_SIZE(char *datarep, MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *size, MPI_Fint *ierr); +void MPI_PACK(char *inbuf, MPI_Fint *incount, MPI_Fint *datatype, char *outbuf, MPI_Fint *outsize, MPI_Fint *position, MPI_Fint *comm, MPI_Fint *ierr); +void MPI_PACK_SIZE(MPI_Fint *incount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *size, MPI_Fint *ierr); +void MPI_PCONTROL(MPI_Fint *level); +void MPI_PROBE(MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void MPI_PUBLISH_NAME(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void MPI_PUT(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); +void MPI_QUERY_THREAD(MPI_Fint *provided, MPI_Fint *ierr); +void MPI_RECV_INIT(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void MPI_RECV(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void MPI_REDUCE(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr); +void MPI_REDUCE_SCATTER(char *sendbuf, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void MPI_REGISTER_DATAREP(char *datarep, MPI_Fint *read_conversion_fn, MPI_Fint *write_conversion_fn, MPI_Fint *dtype_file_extent_fn, char *extra_state, MPI_Fint *ierr); +void MPI_REQUEST_FREE(MPI_Fint *request, MPI_Fint *ierr); +void MPI_REQUEST_GET_STATUS(MPI_Fint *request, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void MPI_RSEND(char *ibuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void MPI_RSEND_INIT(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void MPI_SCAN(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr); +void MPI_SCATTER(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); +void MPI_SCATTERV(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); +void MPI_SEND_INIT(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void MPI_SEND(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void MPI_SENDRECV(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *dest, MPI_Fint *sendtag, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void MPI_SENDRECV_REPLACE(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *sendtag, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void MPI_SSEND_INIT(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr); +void MPI_SSEND(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr); +void MPI_START(MPI_Fint *request, MPI_Fint *ierr); +void MPI_STARTALL(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *ierr); +void MPI_STATUS_SET_CANCELLED(MPI_Fint *status, MPI_Fint *flag, MPI_Fint *ierr); +void MPI_STATUS_SET_ELEMENTS(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr); +void MPI_TESTALL(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *flag, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void MPI_TESTANY(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void MPI_TEST(MPI_Fint *request, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr); +void MPI_TEST_CANCELLED(MPI_Fint *status, MPI_Fint *flag, MPI_Fint *ierr); +void MPI_TESTSOME(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *outcount, MPI_Fint *array_of_indices, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void MPI_TOPO_TEST(MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr); +void MPI_TYPE_COMMIT(MPI_Fint *type, MPI_Fint *ierr); +void MPI_TYPE_CONTIGUOUS(MPI_Fint *count, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void MPI_TYPE_CREATE_DARRAY(MPI_Fint *size, MPI_Fint *rank, MPI_Fint *ndims, MPI_Fint *gsize_array, MPI_Fint *distrib_array, MPI_Fint *darg_array, MPI_Fint *psize_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void MPI_TYPE_CREATE_F90_COMPLEX(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr); +void MPI_TYPE_CREATE_F90_INTEGER(MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr); +void MPI_TYPE_CREATE_F90_REAL(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr); +void MPI_TYPE_CREATE_HINDEXED(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void MPI_TYPE_CREATE_HVECTOR(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void MPI_TYPE_CREATE_KEYVAL(MPI_Fint *type_copy_attr_fn, MPI_Fint *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr); +void MPI_TYPE_CREATE_INDEXED_BLOCK(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void MPI_TYPE_CREATE_STRUCT(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); +void MPI_TYPE_CREATE_SUBARRAY(MPI_Fint *ndims, MPI_Fint *size_array, MPI_Fint *subsize_array, MPI_Fint *start_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void MPI_TYPE_CREATE_RESIZED(MPI_Fint *oldtype, MPI_Fint *lb, MPI_Fint *extent, MPI_Fint *newtype, MPI_Fint *ierr); +void MPI_TYPE_DELETE_ATTR(MPI_Fint *type, MPI_Fint *type_keyval, MPI_Fint *ierr); +void MPI_TYPE_DUP(MPI_Fint *type, MPI_Fint *newtype, MPI_Fint *ierr); +void MPI_TYPE_EXTENT(MPI_Fint *type, MPI_Fint *extent, MPI_Fint *ierr); +void MPI_TYPE_FREE(MPI_Fint *type, MPI_Fint *ierr); +void MPI_TYPE_FREE_KEYVAL(MPI_Fint *type_keyval, MPI_Fint *ierr); +void MPI_TYPE_GET_ATTR(MPI_Fint *type, MPI_Fint *type_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void MPI_TYPE_GET_CONTENTS(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); +void MPI_TYPE_GET_ENVELOPE(MPI_Fint *type, MPI_Fint *num_integers, MPI_Fint *num_addresses, MPI_Fint *num_datatypes, MPI_Fint *combiner, MPI_Fint *ierr); +void MPI_TYPE_GET_EXTENT(MPI_Fint *type, MPI_Fint *lb, MPI_Fint *extent, MPI_Fint *ierr); +void MPI_TYPE_GET_NAME(MPI_Fint *type, char *type_name, MPI_Fint *resultlen, MPI_Fint *ierr); +void MPI_TYPE_GET_TRUE_EXTENT(MPI_Fint *datatype, MPI_Fint *true_lb, MPI_Fint *true_extent, MPI_Fint *ierr); +void MPI_TYPE_HINDEXED(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void MPI_TYPE_HVECTOR(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void MPI_TYPE_INDEXED(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void MPI_TYPE_LB(MPI_Fint *type, MPI_Fint *lb, MPI_Fint *ierr); +void MPI_TYPE_MATCH_SIZE(MPI_Fint *typeclass, MPI_Fint *size, MPI_Fint *type, MPI_Fint *ierr); +void MPI_TYPE_SET_ATTR(MPI_Fint *type, MPI_Fint *type_keyval, char *attr_val, MPI_Fint *ierr); +void MPI_TYPE_SET_NAME(MPI_Fint *type, char *type_name, MPI_Fint *ierr); +void MPI_TYPE_SIZE(MPI_Fint *type, MPI_Fint *size, MPI_Fint *ierr); +void MPI_TYPE_STRUCT(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *array_of_types, MPI_Fint *newtype, MPI_Fint *ierr); +void MPI_TYPE_UB(MPI_Fint *mtype, MPI_Fint *ub, MPI_Fint *ierr); +void MPI_TYPE_VECTOR(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr); +void MPI_UNPACK(char *inbuf, MPI_Fint *insize, MPI_Fint *position, char *outbuf, MPI_Fint *outcount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *ierr); +void MPI_UNPUBLISH_NAME(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr); +void MPI_UNPACK_EXTERNAL (char *datarep, char *inbuf, MPI_Fint *insize, MPI_Fint *position, char *outbuf, MPI_Fint *outcount, MPI_Fint *datatype, MPI_Fint *ierr); +void MPI_WAITALL(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void MPI_WAITANY(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *status, MPI_Fint *ierr); +void MPI_WAIT(MPI_Fint *request, MPI_Fint *status, MPI_Fint *ierr); +void MPI_WAITSOME(MPI_Fint *incount, MPI_Fint *array_of_requests, MPI_Fint *outcount, MPI_Fint *array_of_indices, MPI_Fint *array_of_statuses, MPI_Fint *ierr); +void MPI_WIN_CALL_ERRHANDLER(MPI_Fint *win, MPI_Fint *errorcode, MPI_Fint *ierr); +void MPI_WIN_COMPLETE(MPI_Fint *win, MPI_Fint *ierr); +void MPI_WIN_CREATE(char *base, MPI_Fint *size, MPI_Fint *disp_unit, MPI_Fint *info, MPI_Fint *comm, MPI_Fint *win, MPI_Fint *ierr); +void MPI_WIN_CREATE_ERRHANDLER(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr); +void MPI_WIN_CREATE_KEYVAL(MPI_Fint *win_copy_attr_fn, MPI_Fint *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr); +void MPI_WIN_DELETE_ATTR(MPI_Fint *win, MPI_Fint *win_keyval, MPI_Fint *ierr); +void MPI_WIN_FENCE(MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void MPI_WIN_FREE(MPI_Fint *win, MPI_Fint *ierr); +void MPI_WIN_FREE_KEYVAL(MPI_Fint *win_keyval, MPI_Fint *ierr); +void MPI_WIN_GET_ATTR(MPI_Fint *win, MPI_Fint *win_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr); +void MPI_WIN_GET_ERRHANDLER(MPI_Fint *win, MPI_Fint *errhandler, MPI_Fint *ierr); +void MPI_WIN_GET_GROUP(MPI_Fint *win, MPI_Fint *group, MPI_Fint *ierr); +void MPI_WIN_GET_NAME(MPI_Fint *win, char *win_name, MPI_Fint *resultlen, MPI_Fint *ierr); +void MPI_WIN_LOCK(MPI_Fint *lock_type, MPI_Fint *rank, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void MPI_WIN_POST(MPI_Fint *group, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void MPI_WIN_SET_ATTR(MPI_Fint *win, MPI_Fint *win_keyval, char *attribute_val, MPI_Fint *ierr); +void MPI_WIN_SET_ERRHANDLER(MPI_Fint *win, MPI_Fint *errhandler, MPI_Fint *ierr); +void MPI_WIN_SET_NAME(MPI_Fint *win, char *win_name, MPI_Fint *ierr); +void MPI_WIN_START(MPI_Fint *group, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr); +void MPI_WIN_TEST(MPI_Fint *win, MPI_Fint *flag, MPI_Fint *ierr); +void MPI_WIN_UNLOCK(MPI_Fint *rank, MPI_Fint *win, MPI_Fint *ierr); +void MPI_WIN_WAIT(MPI_Fint *win, MPI_Fint *ierr); +double MPI_WTICK(MPI_Fint *ierr); +double MPI_WTIME(MPI_Fint *ierr); +#endif -#endif /* PROTOTYPE_H */ diff --git a/src/mpi/f77/publish_name_f.c b/src/mpi/f77/publish_name_f.c new file mode 100644 index 0000000000..6b39bc6d25 --- /dev/null +++ b/src/mpi/f77/publish_name_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_PUBLISH_NAME = mpi_publish_name_f +#pragma weak pmpi_publish_name = mpi_publish_name_f +#pragma weak pmpi_publish_name_ = mpi_publish_name_f +#pragma weak pmpi_publish_name__ = mpi_publish_name_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_PUBLISH_NAME, + pmpi_publish_name, + pmpi_publish_name_, + pmpi_publish_name__, + pmpi_publish_name_f, + (char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr), + (service_name, info, port_name, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_PUBLISH_NAME = mpi_publish_name_f +#pragma weak mpi_publish_name = mpi_publish_name_f +#pragma weak mpi_publish_name_ = mpi_publish_name_f +#pragma weak mpi_publish_name__ = mpi_publish_name_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_PUBLISH_NAME, + mpi_publish_name, + mpi_publish_name_, + mpi_publish_name__, + mpi_publish_name_f, + (char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr), + (service_name, info, port_name, ierr) ) +#endif + +void mpi_publish_name_f(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/put_f.c b/src/mpi/f77/put_f.c new file mode 100644 index 0000000000..19e61dffe4 --- /dev/null +++ b/src/mpi/f77/put_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_PUT = mpi_put_f +#pragma weak pmpi_put = mpi_put_f +#pragma weak pmpi_put_ = mpi_put_f +#pragma weak pmpi_put__ = mpi_put_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_PUT, + pmpi_put, + pmpi_put_, + pmpi_put__, + pmpi_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), + (origin_addr, origin_count, origin_datatype, target_rank, target_disp, target_count, target_datatype, win, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_PUT = mpi_put_f +#pragma weak mpi_put = mpi_put_f +#pragma weak mpi_put_ = mpi_put_f +#pragma weak mpi_put__ = mpi_put_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_PUT, + mpi_put, + mpi_put_, + mpi_put__, + 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), + (origin_addr, origin_count, origin_datatype, target_rank, target_disp, target_count, target_datatype, win, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/query_thread_f.c b/src/mpi/f77/query_thread_f.c new file mode 100644 index 0000000000..f7974ad1de --- /dev/null +++ b/src/mpi/f77/query_thread_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_QUERY_THREAD = mpi_query_thread_f +#pragma weak pmpi_query_thread = mpi_query_thread_f +#pragma weak pmpi_query_thread_ = mpi_query_thread_f +#pragma weak pmpi_query_thread__ = mpi_query_thread_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_QUERY_THREAD, + pmpi_query_thread, + pmpi_query_thread_, + pmpi_query_thread__, + pmpi_query_thread_f, + (MPI_Fint *provided, MPI_Fint *ierr), + (provided, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_QUERY_THREAD = mpi_query_thread_f +#pragma weak mpi_query_thread = mpi_query_thread_f +#pragma weak mpi_query_thread_ = mpi_query_thread_f +#pragma weak mpi_query_thread__ = mpi_query_thread_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_QUERY_THREAD, + mpi_query_thread, + mpi_query_thread_, + mpi_query_thread__, + mpi_query_thread_f, + (MPI_Fint *provided, MPI_Fint *ierr), + (provided, ierr) ) +#endif + +void mpi_query_thread_f(MPI_Fint *provided, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/recv_f.c b/src/mpi/f77/recv_f.c new file mode 100644 index 0000000000..acc7f981b8 --- /dev/null +++ b/src/mpi/f77/recv_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_RECV = mpi_recv_f +#pragma weak pmpi_recv = mpi_recv_f +#pragma weak pmpi_recv_ = mpi_recv_f +#pragma weak pmpi_recv__ = mpi_recv_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_RECV, + pmpi_recv, + pmpi_recv_, + pmpi_recv__, + pmpi_recv_f, + (char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr), + (buf, count, datatype, source, tag, comm, status, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_RECV = mpi_recv_f +#pragma weak mpi_recv = mpi_recv_f +#pragma weak mpi_recv_ = mpi_recv_f +#pragma weak mpi_recv__ = mpi_recv_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_RECV, + mpi_recv, + mpi_recv_, + mpi_recv__, + mpi_recv_f, + (char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr), + (buf, count, datatype, source, tag, comm, status, ierr) ) +#endif + +void mpi_recv_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/recv_init_f.c b/src/mpi/f77/recv_init_f.c new file mode 100644 index 0000000000..7cfbcba65d --- /dev/null +++ b/src/mpi/f77/recv_init_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_RECV_INIT = mpi_recv_init_f +#pragma weak pmpi_recv_init = mpi_recv_init_f +#pragma weak pmpi_recv_init_ = mpi_recv_init_f +#pragma weak pmpi_recv_init__ = mpi_recv_init_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_RECV_INIT, + pmpi_recv_init, + pmpi_recv_init_, + pmpi_recv_init__, + pmpi_recv_init_f, + (char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr), + (buf, count, datatype, source, tag, comm, request, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_RECV_INIT = mpi_recv_init_f +#pragma weak mpi_recv_init = mpi_recv_init_f +#pragma weak mpi_recv_init_ = mpi_recv_init_f +#pragma weak mpi_recv_init__ = mpi_recv_init_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_RECV_INIT, + mpi_recv_init, + mpi_recv_init_, + mpi_recv_init__, + mpi_recv_init_f, + (char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr), + (buf, count, datatype, source, tag, comm, request, ierr) ) +#endif + +void mpi_recv_init_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *source, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/reduce_f.c b/src/mpi/f77/reduce_f.c new file mode 100644 index 0000000000..67956460e4 --- /dev/null +++ b/src/mpi/f77/reduce_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_REDUCE = mpi_reduce_f +#pragma weak pmpi_reduce = mpi_reduce_f +#pragma weak pmpi_reduce_ = mpi_reduce_f +#pragma weak pmpi_reduce__ = mpi_reduce_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_REDUCE, + pmpi_reduce, + pmpi_reduce_, + pmpi_reduce__, + pmpi_reduce_f, + (char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *root, MPI_Fint *comm, MPI_Fint *ierr), + (sendbuf, recvbuf, count, datatype, op, root, comm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_REDUCE = mpi_reduce_f +#pragma weak mpi_reduce = mpi_reduce_f +#pragma weak mpi_reduce_ = mpi_reduce_f +#pragma weak mpi_reduce__ = mpi_reduce_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_REDUCE, + mpi_reduce, + mpi_reduce_, + mpi_reduce__, + 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), + (sendbuf, recvbuf, count, datatype, op, root, comm, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/reduce_scatter_f.c b/src/mpi/f77/reduce_scatter_f.c new file mode 100644 index 0000000000..cb871d9a52 --- /dev/null +++ b/src/mpi/f77/reduce_scatter_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_REDUCE_SCATTER = mpi_reduce_scatter_f +#pragma weak pmpi_reduce_scatter = mpi_reduce_scatter_f +#pragma weak pmpi_reduce_scatter_ = mpi_reduce_scatter_f +#pragma weak pmpi_reduce_scatter__ = mpi_reduce_scatter_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_REDUCE_SCATTER, + pmpi_reduce_scatter, + pmpi_reduce_scatter_, + pmpi_reduce_scatter__, + pmpi_reduce_scatter_f, + (char *sendbuf, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr), + (sendbuf, recvbuf, recvcounts, datatype, op, comm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_REDUCE_SCATTER = mpi_reduce_scatter_f +#pragma weak mpi_reduce_scatter = mpi_reduce_scatter_f +#pragma weak mpi_reduce_scatter_ = mpi_reduce_scatter_f +#pragma weak mpi_reduce_scatter__ = mpi_reduce_scatter_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_REDUCE_SCATTER, + mpi_reduce_scatter, + mpi_reduce_scatter_, + mpi_reduce_scatter__, + mpi_reduce_scatter_f, + (char *sendbuf, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr), + (sendbuf, recvbuf, recvcounts, datatype, op, comm, ierr) ) +#endif + +void mpi_reduce_scatter_f(char *sendbuf, char *recvbuf, MPI_Fint *recvcounts, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/register_datarep_f.c b/src/mpi/f77/register_datarep_f.c new file mode 100644 index 0000000000..c6d54ef5e7 --- /dev/null +++ b/src/mpi/f77/register_datarep_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_REGISTER_DATAREP = mpi_register_datarep_f +#pragma weak pmpi_register_datarep = mpi_register_datarep_f +#pragma weak pmpi_register_datarep_ = mpi_register_datarep_f +#pragma weak pmpi_register_datarep__ = mpi_register_datarep_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_REGISTER_DATAREP, + pmpi_register_datarep, + pmpi_register_datarep_, + pmpi_register_datarep__, + pmpi_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), + (datarep, read_conversion_fn, write_conversion_fn, dtype_file_extent_fn, extra_state, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_REGISTER_DATAREP = mpi_register_datarep_f +#pragma weak mpi_register_datarep = mpi_register_datarep_f +#pragma weak mpi_register_datarep_ = mpi_register_datarep_f +#pragma weak mpi_register_datarep__ = mpi_register_datarep_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_REGISTER_DATAREP, + mpi_register_datarep, + mpi_register_datarep_, + mpi_register_datarep__, + 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), + (datarep, read_conversion_fn, write_conversion_fn, dtype_file_extent_fn, extra_state, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/request_free_f.c b/src/mpi/f77/request_free_f.c new file mode 100644 index 0000000000..102aed02cd --- /dev/null +++ b/src/mpi/f77/request_free_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_REQUEST_FREE = mpi_request_free_f +#pragma weak pmpi_request_free = mpi_request_free_f +#pragma weak pmpi_request_free_ = mpi_request_free_f +#pragma weak pmpi_request_free__ = mpi_request_free_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_REQUEST_FREE, + pmpi_request_free, + pmpi_request_free_, + pmpi_request_free__, + pmpi_request_free_f, + (MPI_Fint *request, MPI_Fint *ierr), + (request, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_REQUEST_FREE = mpi_request_free_f +#pragma weak mpi_request_free = mpi_request_free_f +#pragma weak mpi_request_free_ = mpi_request_free_f +#pragma weak mpi_request_free__ = mpi_request_free_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_REQUEST_FREE, + mpi_request_free, + mpi_request_free_, + mpi_request_free__, + mpi_request_free_f, + (MPI_Fint *request, MPI_Fint *ierr), + (request, ierr) ) +#endif + +void mpi_request_free_f(MPI_Fint *request, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/request_get_status_f.c b/src/mpi/f77/request_get_status_f.c new file mode 100644 index 0000000000..d631d7ae36 --- /dev/null +++ b/src/mpi/f77/request_get_status_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_REQUEST_GET_STATUS = mpi_request_get_status_f +#pragma weak pmpi_request_get_status = mpi_request_get_status_f +#pragma weak pmpi_request_get_status_ = mpi_request_get_status_f +#pragma weak pmpi_request_get_status__ = mpi_request_get_status_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_REQUEST_GET_STATUS, + pmpi_request_get_status, + pmpi_request_get_status_, + pmpi_request_get_status__, + pmpi_request_get_status_f, + (MPI_Fint *request, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr), + (request, flag, status, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_REQUEST_GET_STATUS = mpi_request_get_status_f +#pragma weak mpi_request_get_status = mpi_request_get_status_f +#pragma weak mpi_request_get_status_ = mpi_request_get_status_f +#pragma weak mpi_request_get_status__ = mpi_request_get_status_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_REQUEST_GET_STATUS, + mpi_request_get_status, + mpi_request_get_status_, + mpi_request_get_status__, + mpi_request_get_status_f, + (MPI_Fint *request, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr), + (request, flag, status, ierr) ) +#endif + +void mpi_request_get_status_f(MPI_Fint *request, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/rsend_f.c b/src/mpi/f77/rsend_f.c new file mode 100644 index 0000000000..50abb38baa --- /dev/null +++ b/src/mpi/f77/rsend_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_RSEND = mpi_rsend_f +#pragma weak pmpi_rsend = mpi_rsend_f +#pragma weak pmpi_rsend_ = mpi_rsend_f +#pragma weak pmpi_rsend__ = mpi_rsend_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_RSEND, + pmpi_rsend, + pmpi_rsend_, + pmpi_rsend__, + pmpi_rsend_f, + (char *ibuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr), + (ibuf, count, datatype, dest, tag, comm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_RSEND = mpi_rsend_f +#pragma weak mpi_rsend = mpi_rsend_f +#pragma weak mpi_rsend_ = mpi_rsend_f +#pragma weak mpi_rsend__ = mpi_rsend_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_RSEND, + mpi_rsend, + mpi_rsend_, + mpi_rsend__, + mpi_rsend_f, + (char *ibuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr), + (ibuf, count, datatype, dest, tag, comm, ierr) ) +#endif + +void mpi_rsend_f(char *ibuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/rsend_init_f.c b/src/mpi/f77/rsend_init_f.c new file mode 100644 index 0000000000..e3a64db2f9 --- /dev/null +++ b/src/mpi/f77/rsend_init_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_RSEND_INIT = mpi_rsend_init_f +#pragma weak pmpi_rsend_init = mpi_rsend_init_f +#pragma weak pmpi_rsend_init_ = mpi_rsend_init_f +#pragma weak pmpi_rsend_init__ = mpi_rsend_init_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_RSEND_INIT, + pmpi_rsend_init, + pmpi_rsend_init_, + pmpi_rsend_init__, + pmpi_rsend_init_f, + (char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr), + (buf, count, datatype, dest, tag, comm, request, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_RSEND_INIT = mpi_rsend_init_f +#pragma weak mpi_rsend_init = mpi_rsend_init_f +#pragma weak mpi_rsend_init_ = mpi_rsend_init_f +#pragma weak mpi_rsend_init__ = mpi_rsend_init_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_RSEND_INIT, + mpi_rsend_init, + mpi_rsend_init_, + mpi_rsend_init__, + mpi_rsend_init_f, + (char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr), + (buf, count, datatype, dest, tag, comm, request, ierr) ) +#endif + +void mpi_rsend_init_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/scan_f.c b/src/mpi/f77/scan_f.c new file mode 100644 index 0000000000..f482be9152 --- /dev/null +++ b/src/mpi/f77/scan_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_SCAN = mpi_scan_f +#pragma weak pmpi_scan = mpi_scan_f +#pragma weak pmpi_scan_ = mpi_scan_f +#pragma weak pmpi_scan__ = mpi_scan_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_SCAN, + pmpi_scan, + pmpi_scan_, + pmpi_scan__, + pmpi_scan_f, + (char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr), + (sendbuf, recvbuf, count, datatype, op, comm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_SCAN = mpi_scan_f +#pragma weak mpi_scan = mpi_scan_f +#pragma weak mpi_scan_ = mpi_scan_f +#pragma weak mpi_scan__ = mpi_scan_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_SCAN, + mpi_scan, + mpi_scan_, + mpi_scan__, + mpi_scan_f, + (char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr), + (sendbuf, recvbuf, count, datatype, op, comm, ierr) ) +#endif + +void mpi_scan_f(char *sendbuf, char *recvbuf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *op, MPI_Fint *comm, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/scatter_f.c b/src/mpi/f77/scatter_f.c new file mode 100644 index 0000000000..43fd65772f --- /dev/null +++ b/src/mpi/f77/scatter_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_SCATTER = mpi_scatter_f +#pragma weak pmpi_scatter = mpi_scatter_f +#pragma weak pmpi_scatter_ = mpi_scatter_f +#pragma weak pmpi_scatter__ = mpi_scatter_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_SCATTER, + pmpi_scatter, + pmpi_scatter_, + pmpi_scatter__, + pmpi_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), + (sendbuf, sendcount, sendtype, recvbuf, recvcount, recvtype, root, comm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_SCATTER = mpi_scatter_f +#pragma weak mpi_scatter = mpi_scatter_f +#pragma weak mpi_scatter_ = mpi_scatter_f +#pragma weak mpi_scatter__ = mpi_scatter_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_SCATTER, + mpi_scatter, + mpi_scatter_, + mpi_scatter__, + 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), + (sendbuf, sendcount, sendtype, recvbuf, recvcount, recvtype, root, comm, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/scatterv_f.c b/src/mpi/f77/scatterv_f.c new file mode 100644 index 0000000000..22609a2a33 --- /dev/null +++ b/src/mpi/f77/scatterv_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_SCATTERV = mpi_scatterv_f +#pragma weak pmpi_scatterv = mpi_scatterv_f +#pragma weak pmpi_scatterv_ = mpi_scatterv_f +#pragma weak pmpi_scatterv__ = mpi_scatterv_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_SCATTERV, + pmpi_scatterv, + pmpi_scatterv_, + pmpi_scatterv__, + pmpi_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), + (sendbuf, sendcounts, displs, sendtype, recvbuf, recvcount, recvtype, root, comm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_SCATTERV = mpi_scatterv_f +#pragma weak mpi_scatterv = mpi_scatterv_f +#pragma weak mpi_scatterv_ = mpi_scatterv_f +#pragma weak mpi_scatterv__ = mpi_scatterv_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_SCATTERV, + mpi_scatterv, + mpi_scatterv_, + mpi_scatterv__, + 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), + (sendbuf, sendcounts, displs, sendtype, recvbuf, recvcount, recvtype, root, comm, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/send_f.c b/src/mpi/f77/send_f.c new file mode 100644 index 0000000000..5e02d99522 --- /dev/null +++ b/src/mpi/f77/send_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_SEND = mpi_send_f +#pragma weak pmpi_send = mpi_send_f +#pragma weak pmpi_send_ = mpi_send_f +#pragma weak pmpi_send__ = mpi_send_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_SEND, + pmpi_send, + pmpi_send_, + pmpi_send__, + pmpi_send_f, + (char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr), + (buf, count, datatype, dest, tag, comm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_SEND = mpi_send_f +#pragma weak mpi_send = mpi_send_f +#pragma weak mpi_send_ = mpi_send_f +#pragma weak mpi_send__ = mpi_send_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_SEND, + mpi_send, + mpi_send_, + mpi_send__, + mpi_send_f, + (char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr), + (buf, count, datatype, dest, tag, comm, ierr) ) +#endif + +void mpi_send_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/send_init_f.c b/src/mpi/f77/send_init_f.c new file mode 100644 index 0000000000..2c88ff4b9c --- /dev/null +++ b/src/mpi/f77/send_init_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_SEND_INIT = mpi_send_init_f +#pragma weak pmpi_send_init = mpi_send_init_f +#pragma weak pmpi_send_init_ = mpi_send_init_f +#pragma weak pmpi_send_init__ = mpi_send_init_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_SEND_INIT, + pmpi_send_init, + pmpi_send_init_, + pmpi_send_init__, + pmpi_send_init_f, + (char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr), + (buf, count, datatype, dest, tag, comm, request, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_SEND_INIT = mpi_send_init_f +#pragma weak mpi_send_init = mpi_send_init_f +#pragma weak mpi_send_init_ = mpi_send_init_f +#pragma weak mpi_send_init__ = mpi_send_init_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_SEND_INIT, + mpi_send_init, + mpi_send_init_, + mpi_send_init__, + mpi_send_init_f, + (char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr), + (buf, count, datatype, dest, tag, comm, request, ierr) ) +#endif + +void mpi_send_init_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/sendrecv_f.c b/src/mpi/f77/sendrecv_f.c new file mode 100644 index 0000000000..28f5850dc4 --- /dev/null +++ b/src/mpi/f77/sendrecv_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_SENDRECV = mpi_sendrecv_f +#pragma weak pmpi_sendrecv = mpi_sendrecv_f +#pragma weak pmpi_sendrecv_ = mpi_sendrecv_f +#pragma weak pmpi_sendrecv__ = mpi_sendrecv_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_SENDRECV, + pmpi_sendrecv, + pmpi_sendrecv_, + pmpi_sendrecv__, + pmpi_sendrecv_f, + (char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *dest, MPI_Fint *sendtag, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr), + (sendbuf, sendcount, sendtype, dest, sendtag, recvbuf, recvcount, recvtype, source, recvtag, comm, status, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_SENDRECV = mpi_sendrecv_f +#pragma weak mpi_sendrecv = mpi_sendrecv_f +#pragma weak mpi_sendrecv_ = mpi_sendrecv_f +#pragma weak mpi_sendrecv__ = mpi_sendrecv_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_SENDRECV, + mpi_sendrecv, + mpi_sendrecv_, + mpi_sendrecv__, + mpi_sendrecv_f, + (char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *dest, MPI_Fint *sendtag, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr), + (sendbuf, sendcount, sendtype, dest, sendtag, recvbuf, recvcount, recvtype, source, recvtag, comm, status, ierr) ) +#endif + +void mpi_sendrecv_f(char *sendbuf, MPI_Fint *sendcount, MPI_Fint *sendtype, MPI_Fint *dest, MPI_Fint *sendtag, char *recvbuf, MPI_Fint *recvcount, MPI_Fint *recvtype, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/sendrecv_replace_f.c b/src/mpi/f77/sendrecv_replace_f.c new file mode 100644 index 0000000000..714903f1cb --- /dev/null +++ b/src/mpi/f77/sendrecv_replace_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_SENDRECV_REPLACE = mpi_sendrecv_replace_f +#pragma weak pmpi_sendrecv_replace = mpi_sendrecv_replace_f +#pragma weak pmpi_sendrecv_replace_ = mpi_sendrecv_replace_f +#pragma weak pmpi_sendrecv_replace__ = mpi_sendrecv_replace_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_SENDRECV_REPLACE, + pmpi_sendrecv_replace, + pmpi_sendrecv_replace_, + pmpi_sendrecv_replace__, + pmpi_sendrecv_replace_f, + (char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *sendtag, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr), + (buf, count, datatype, dest, sendtag, source, recvtag, comm, status, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_SENDRECV_REPLACE = mpi_sendrecv_replace_f +#pragma weak mpi_sendrecv_replace = mpi_sendrecv_replace_f +#pragma weak mpi_sendrecv_replace_ = mpi_sendrecv_replace_f +#pragma weak mpi_sendrecv_replace__ = mpi_sendrecv_replace_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_SENDRECV_REPLACE, + mpi_sendrecv_replace, + mpi_sendrecv_replace_, + mpi_sendrecv_replace__, + mpi_sendrecv_replace_f, + (char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *sendtag, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr), + (buf, count, datatype, dest, sendtag, source, recvtag, comm, status, ierr) ) +#endif + +void mpi_sendrecv_replace_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *sendtag, MPI_Fint *source, MPI_Fint *recvtag, MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/ssend_f.c b/src/mpi/f77/ssend_f.c new file mode 100644 index 0000000000..4f3f7a0c42 --- /dev/null +++ b/src/mpi/f77/ssend_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_SSEND = mpi_ssend_f +#pragma weak pmpi_ssend = mpi_ssend_f +#pragma weak pmpi_ssend_ = mpi_ssend_f +#pragma weak pmpi_ssend__ = mpi_ssend_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_SSEND, + pmpi_ssend, + pmpi_ssend_, + pmpi_ssend__, + pmpi_ssend_f, + (char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr), + (buf, count, datatype, dest, tag, comm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_SSEND = mpi_ssend_f +#pragma weak mpi_ssend = mpi_ssend_f +#pragma weak mpi_ssend_ = mpi_ssend_f +#pragma weak mpi_ssend__ = mpi_ssend_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_SSEND, + mpi_ssend, + mpi_ssend_, + mpi_ssend__, + mpi_ssend_f, + (char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr), + (buf, count, datatype, dest, tag, comm, ierr) ) +#endif + +void mpi_ssend_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/ssend_init_f.c b/src/mpi/f77/ssend_init_f.c new file mode 100644 index 0000000000..7a4a7378a8 --- /dev/null +++ b/src/mpi/f77/ssend_init_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_SSEND_INIT = mpi_ssend_init_f +#pragma weak pmpi_ssend_init = mpi_ssend_init_f +#pragma weak pmpi_ssend_init_ = mpi_ssend_init_f +#pragma weak pmpi_ssend_init__ = mpi_ssend_init_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_SSEND_INIT, + pmpi_ssend_init, + pmpi_ssend_init_, + pmpi_ssend_init__, + pmpi_ssend_init_f, + (char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr), + (buf, count, datatype, dest, tag, comm, request, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_SSEND_INIT = mpi_ssend_init_f +#pragma weak mpi_ssend_init = mpi_ssend_init_f +#pragma weak mpi_ssend_init_ = mpi_ssend_init_f +#pragma weak mpi_ssend_init__ = mpi_ssend_init_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_SSEND_INIT, + mpi_ssend_init, + mpi_ssend_init_, + mpi_ssend_init__, + mpi_ssend_init_f, + (char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr), + (buf, count, datatype, dest, tag, comm, request, ierr) ) +#endif + +void mpi_ssend_init_f(char *buf, MPI_Fint *count, MPI_Fint *datatype, MPI_Fint *dest, MPI_Fint *tag, MPI_Fint *comm, MPI_Fint *request, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/start_f.c b/src/mpi/f77/start_f.c new file mode 100644 index 0000000000..3ad9e2c4f0 --- /dev/null +++ b/src/mpi/f77/start_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_START = mpi_start_f +#pragma weak pmpi_start = mpi_start_f +#pragma weak pmpi_start_ = mpi_start_f +#pragma weak pmpi_start__ = mpi_start_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_START, + pmpi_start, + pmpi_start_, + pmpi_start__, + pmpi_start_f, + (MPI_Fint *request, MPI_Fint *ierr), + (request, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_START = mpi_start_f +#pragma weak mpi_start = mpi_start_f +#pragma weak mpi_start_ = mpi_start_f +#pragma weak mpi_start__ = mpi_start_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_START, + mpi_start, + mpi_start_, + mpi_start__, + mpi_start_f, + (MPI_Fint *request, MPI_Fint *ierr), + (request, ierr) ) +#endif + +void mpi_start_f(MPI_Fint *request, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/startall_f.c b/src/mpi/f77/startall_f.c new file mode 100644 index 0000000000..45352c061e --- /dev/null +++ b/src/mpi/f77/startall_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_STARTALL = mpi_startall_f +#pragma weak pmpi_startall = mpi_startall_f +#pragma weak pmpi_startall_ = mpi_startall_f +#pragma weak pmpi_startall__ = mpi_startall_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_STARTALL, + pmpi_startall, + pmpi_startall_, + pmpi_startall__, + pmpi_startall_f, + (MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *ierr), + (count, array_of_requests, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_STARTALL = mpi_startall_f +#pragma weak mpi_startall = mpi_startall_f +#pragma weak mpi_startall_ = mpi_startall_f +#pragma weak mpi_startall__ = mpi_startall_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_STARTALL, + mpi_startall, + mpi_startall_, + mpi_startall__, + mpi_startall_f, + (MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *ierr), + (count, array_of_requests, ierr) ) +#endif + +void mpi_startall_f(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/status_set_cancelled_f.c b/src/mpi/f77/status_set_cancelled_f.c new file mode 100644 index 0000000000..5788b12ed2 --- /dev/null +++ b/src/mpi/f77/status_set_cancelled_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_STATUS_SET_CANCELLED = mpi_status_set_cancelled_f +#pragma weak pmpi_status_set_cancelled = mpi_status_set_cancelled_f +#pragma weak pmpi_status_set_cancelled_ = mpi_status_set_cancelled_f +#pragma weak pmpi_status_set_cancelled__ = mpi_status_set_cancelled_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_STATUS_SET_CANCELLED, + pmpi_status_set_cancelled, + pmpi_status_set_cancelled_, + pmpi_status_set_cancelled__, + pmpi_status_set_cancelled_f, + (MPI_Fint *status, MPI_Fint *flag, MPI_Fint *ierr), + (status, flag, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_STATUS_SET_CANCELLED = mpi_status_set_cancelled_f +#pragma weak mpi_status_set_cancelled = mpi_status_set_cancelled_f +#pragma weak mpi_status_set_cancelled_ = mpi_status_set_cancelled_f +#pragma weak mpi_status_set_cancelled__ = mpi_status_set_cancelled_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_STATUS_SET_CANCELLED, + mpi_status_set_cancelled, + mpi_status_set_cancelled_, + mpi_status_set_cancelled__, + mpi_status_set_cancelled_f, + (MPI_Fint *status, MPI_Fint *flag, MPI_Fint *ierr), + (status, flag, ierr) ) +#endif + +void mpi_status_set_cancelled_f(MPI_Fint *status, MPI_Fint *flag, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/status_set_elements_f.c b/src/mpi/f77/status_set_elements_f.c new file mode 100644 index 0000000000..a740312238 --- /dev/null +++ b/src/mpi/f77/status_set_elements_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_STATUS_SET_ELEMENTS = mpi_status_set_elements_f +#pragma weak pmpi_status_set_elements = mpi_status_set_elements_f +#pragma weak pmpi_status_set_elements_ = mpi_status_set_elements_f +#pragma weak pmpi_status_set_elements__ = mpi_status_set_elements_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_STATUS_SET_ELEMENTS, + pmpi_status_set_elements, + pmpi_status_set_elements_, + pmpi_status_set_elements__, + pmpi_status_set_elements_f, + (MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr), + (status, datatype, count, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_STATUS_SET_ELEMENTS = mpi_status_set_elements_f +#pragma weak mpi_status_set_elements = mpi_status_set_elements_f +#pragma weak mpi_status_set_elements_ = mpi_status_set_elements_f +#pragma weak mpi_status_set_elements__ = mpi_status_set_elements_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_STATUS_SET_ELEMENTS, + mpi_status_set_elements, + mpi_status_set_elements_, + mpi_status_set_elements__, + mpi_status_set_elements_f, + (MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr), + (status, datatype, count, ierr) ) +#endif + +void mpi_status_set_elements_f(MPI_Fint *status, MPI_Fint *datatype, MPI_Fint *count, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/test_cancelled_f.c b/src/mpi/f77/test_cancelled_f.c new file mode 100644 index 0000000000..0ab170afd4 --- /dev/null +++ b/src/mpi/f77/test_cancelled_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TEST_CANCELLED = mpi_test_cancelled_f +#pragma weak pmpi_test_cancelled = mpi_test_cancelled_f +#pragma weak pmpi_test_cancelled_ = mpi_test_cancelled_f +#pragma weak pmpi_test_cancelled__ = mpi_test_cancelled_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TEST_CANCELLED, + pmpi_test_cancelled, + pmpi_test_cancelled_, + pmpi_test_cancelled__, + pmpi_test_cancelled_f, + (MPI_Fint *status, MPI_Fint *flag, MPI_Fint *ierr), + (status, flag, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TEST_CANCELLED = mpi_test_cancelled_f +#pragma weak mpi_test_cancelled = mpi_test_cancelled_f +#pragma weak mpi_test_cancelled_ = mpi_test_cancelled_f +#pragma weak mpi_test_cancelled__ = mpi_test_cancelled_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TEST_CANCELLED, + mpi_test_cancelled, + mpi_test_cancelled_, + mpi_test_cancelled__, + mpi_test_cancelled_f, + (MPI_Fint *status, MPI_Fint *flag, MPI_Fint *ierr), + (status, flag, ierr) ) +#endif + +void mpi_test_cancelled_f(MPI_Fint *status, MPI_Fint *flag, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/test_f.c b/src/mpi/f77/test_f.c new file mode 100644 index 0000000000..475f67fbe6 --- /dev/null +++ b/src/mpi/f77/test_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TEST = mpi_test_f +#pragma weak pmpi_test = mpi_test_f +#pragma weak pmpi_test_ = mpi_test_f +#pragma weak pmpi_test__ = mpi_test_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TEST, + pmpi_test, + pmpi_test_, + pmpi_test__, + pmpi_test_f, + (MPI_Fint *request, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr), + (request, flag, status, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TEST = mpi_test_f +#pragma weak mpi_test = mpi_test_f +#pragma weak mpi_test_ = mpi_test_f +#pragma weak mpi_test__ = mpi_test_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TEST, + mpi_test, + mpi_test_, + mpi_test__, + mpi_test_f, + (MPI_Fint *request, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr), + (request, flag, status, ierr) ) +#endif + +void mpi_test_f(MPI_Fint *request, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/testall_f.c b/src/mpi/f77/testall_f.c new file mode 100644 index 0000000000..7e6ee92cb6 --- /dev/null +++ b/src/mpi/f77/testall_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TESTALL = mpi_testall_f +#pragma weak pmpi_testall = mpi_testall_f +#pragma weak pmpi_testall_ = mpi_testall_f +#pragma weak pmpi_testall__ = mpi_testall_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TESTALL, + pmpi_testall, + pmpi_testall_, + pmpi_testall__, + pmpi_testall_f, + (MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *flag, MPI_Fint *array_of_statuses, MPI_Fint *ierr), + (count, array_of_requests, flag, array_of_statuses, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TESTALL = mpi_testall_f +#pragma weak mpi_testall = mpi_testall_f +#pragma weak mpi_testall_ = mpi_testall_f +#pragma weak mpi_testall__ = mpi_testall_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TESTALL, + mpi_testall, + mpi_testall_, + mpi_testall__, + mpi_testall_f, + (MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *flag, MPI_Fint *array_of_statuses, MPI_Fint *ierr), + (count, array_of_requests, flag, array_of_statuses, ierr) ) +#endif + +void mpi_testall_f(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *flag, MPI_Fint *array_of_statuses, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/testany_f.c b/src/mpi/f77/testany_f.c new file mode 100644 index 0000000000..477a9aa284 --- /dev/null +++ b/src/mpi/f77/testany_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TESTANY = mpi_testany_f +#pragma weak pmpi_testany = mpi_testany_f +#pragma weak pmpi_testany_ = mpi_testany_f +#pragma weak pmpi_testany__ = mpi_testany_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TESTANY, + pmpi_testany, + pmpi_testany_, + pmpi_testany__, + pmpi_testany_f, + (MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr), + (count, array_of_requests, index, flag, status, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TESTANY = mpi_testany_f +#pragma weak mpi_testany = mpi_testany_f +#pragma weak mpi_testany_ = mpi_testany_f +#pragma weak mpi_testany__ = mpi_testany_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TESTANY, + mpi_testany, + mpi_testany_, + mpi_testany__, + mpi_testany_f, + (MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr), + (count, array_of_requests, index, flag, status, ierr) ) +#endif + +void mpi_testany_f(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *flag, MPI_Fint *status, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/testsome_f.c b/src/mpi/f77/testsome_f.c new file mode 100644 index 0000000000..91e871df71 --- /dev/null +++ b/src/mpi/f77/testsome_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TESTSOME = mpi_testsome_f +#pragma weak pmpi_testsome = mpi_testsome_f +#pragma weak pmpi_testsome_ = mpi_testsome_f +#pragma weak pmpi_testsome__ = mpi_testsome_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TESTSOME, + pmpi_testsome, + pmpi_testsome_, + pmpi_testsome__, + pmpi_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), + (incount, array_of_requests, outcount, array_of_indices, array_of_statuses, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TESTSOME = mpi_testsome_f +#pragma weak mpi_testsome = mpi_testsome_f +#pragma weak mpi_testsome_ = mpi_testsome_f +#pragma weak mpi_testsome__ = mpi_testsome_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TESTSOME, + mpi_testsome, + mpi_testsome_, + mpi_testsome__, + 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), + (incount, array_of_requests, outcount, array_of_indices, array_of_statuses, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/topo_test_f.c b/src/mpi/f77/topo_test_f.c new file mode 100644 index 0000000000..672d49dc5c --- /dev/null +++ b/src/mpi/f77/topo_test_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TOPO_TEST = mpi_topo_test_f +#pragma weak pmpi_topo_test = mpi_topo_test_f +#pragma weak pmpi_topo_test_ = mpi_topo_test_f +#pragma weak pmpi_topo_test__ = mpi_topo_test_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TOPO_TEST, + pmpi_topo_test, + pmpi_topo_test_, + pmpi_topo_test__, + pmpi_topo_test_f, + (MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr), + (comm, status, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TOPO_TEST = mpi_topo_test_f +#pragma weak mpi_topo_test = mpi_topo_test_f +#pragma weak mpi_topo_test_ = mpi_topo_test_f +#pragma weak mpi_topo_test__ = mpi_topo_test_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TOPO_TEST, + mpi_topo_test, + mpi_topo_test_, + mpi_topo_test__, + mpi_topo_test_f, + (MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr), + (comm, status, ierr) ) +#endif + +void mpi_topo_test_f(MPI_Fint *comm, MPI_Fint *status, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/type_commit_f.c b/src/mpi/f77/type_commit_f.c new file mode 100644 index 0000000000..bfdbf49eb1 --- /dev/null +++ b/src/mpi/f77/type_commit_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_COMMIT = mpi_type_commit_f +#pragma weak pmpi_type_commit = mpi_type_commit_f +#pragma weak pmpi_type_commit_ = mpi_type_commit_f +#pragma weak pmpi_type_commit__ = mpi_type_commit_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_COMMIT, + pmpi_type_commit, + pmpi_type_commit_, + pmpi_type_commit__, + pmpi_type_commit_f, + (MPI_Fint *type, MPI_Fint *ierr), + (type, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_COMMIT = mpi_type_commit_f +#pragma weak mpi_type_commit = mpi_type_commit_f +#pragma weak mpi_type_commit_ = mpi_type_commit_f +#pragma weak mpi_type_commit__ = mpi_type_commit_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_COMMIT, + mpi_type_commit, + mpi_type_commit_, + mpi_type_commit__, + mpi_type_commit_f, + (MPI_Fint *type, MPI_Fint *ierr), + (type, ierr) ) +#endif + +void mpi_type_commit_f(MPI_Fint *type, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/type_contiguous_f.c b/src/mpi/f77/type_contiguous_f.c new file mode 100644 index 0000000000..da9d8a8aba --- /dev/null +++ b/src/mpi/f77/type_contiguous_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_CONTIGUOUS = mpi_type_contiguous_f +#pragma weak pmpi_type_contiguous = mpi_type_contiguous_f +#pragma weak pmpi_type_contiguous_ = mpi_type_contiguous_f +#pragma weak pmpi_type_contiguous__ = mpi_type_contiguous_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_CONTIGUOUS, + pmpi_type_contiguous, + pmpi_type_contiguous_, + pmpi_type_contiguous__, + pmpi_type_contiguous_f, + (MPI_Fint *count, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr), + (count, oldtype, newtype, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_CONTIGUOUS = mpi_type_contiguous_f +#pragma weak mpi_type_contiguous = mpi_type_contiguous_f +#pragma weak mpi_type_contiguous_ = mpi_type_contiguous_f +#pragma weak mpi_type_contiguous__ = mpi_type_contiguous_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_CONTIGUOUS, + mpi_type_contiguous, + mpi_type_contiguous_, + mpi_type_contiguous__, + mpi_type_contiguous_f, + (MPI_Fint *count, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr), + (count, oldtype, newtype, ierr) ) +#endif + +void mpi_type_contiguous_f(MPI_Fint *count, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/type_create_darray_f.c b/src/mpi/f77/type_create_darray_f.c new file mode 100644 index 0000000000..b9fc9ddddd --- /dev/null +++ b/src/mpi/f77/type_create_darray_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_CREATE_DARRAY = mpi_type_create_darray_f +#pragma weak pmpi_type_create_darray = mpi_type_create_darray_f +#pragma weak pmpi_type_create_darray_ = mpi_type_create_darray_f +#pragma weak pmpi_type_create_darray__ = mpi_type_create_darray_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_CREATE_DARRAY, + pmpi_type_create_darray, + pmpi_type_create_darray_, + pmpi_type_create_darray__, + pmpi_type_create_darray_f, + (MPI_Fint *size, MPI_Fint *rank, MPI_Fint *ndims, MPI_Fint *gsize_array, MPI_Fint *distrib_array, MPI_Fint *darg_array, MPI_Fint *psize_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr), + (size, rank, ndims, gsize_array, distrib_array, darg_array, psize_array, order, oldtype, newtype, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_CREATE_DARRAY = mpi_type_create_darray_f +#pragma weak mpi_type_create_darray = mpi_type_create_darray_f +#pragma weak mpi_type_create_darray_ = mpi_type_create_darray_f +#pragma weak mpi_type_create_darray__ = mpi_type_create_darray_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_CREATE_DARRAY, + mpi_type_create_darray, + mpi_type_create_darray_, + mpi_type_create_darray__, + mpi_type_create_darray_f, + (MPI_Fint *size, MPI_Fint *rank, MPI_Fint *ndims, MPI_Fint *gsize_array, MPI_Fint *distrib_array, MPI_Fint *darg_array, MPI_Fint *psize_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr), + (size, rank, ndims, gsize_array, distrib_array, darg_array, psize_array, order, oldtype, newtype, ierr) ) +#endif + +void mpi_type_create_darray_f(MPI_Fint *size, MPI_Fint *rank, MPI_Fint *ndims, MPI_Fint *gsize_array, MPI_Fint *distrib_array, MPI_Fint *darg_array, MPI_Fint *psize_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/type_create_f90_complex_f.c b/src/mpi/f77/type_create_f90_complex_f.c new file mode 100644 index 0000000000..7b373b15fc --- /dev/null +++ b/src/mpi/f77/type_create_f90_complex_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_CREATE_F90_COMPLEX = mpi_type_create_f90_complex_f +#pragma weak pmpi_type_create_f90_complex = mpi_type_create_f90_complex_f +#pragma weak pmpi_type_create_f90_complex_ = mpi_type_create_f90_complex_f +#pragma weak pmpi_type_create_f90_complex__ = mpi_type_create_f90_complex_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_CREATE_F90_COMPLEX, + pmpi_type_create_f90_complex, + pmpi_type_create_f90_complex_, + pmpi_type_create_f90_complex__, + pmpi_type_create_f90_complex_f, + (MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr), + (p, r, newtype, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_CREATE_F90_COMPLEX = mpi_type_create_f90_complex_f +#pragma weak mpi_type_create_f90_complex = mpi_type_create_f90_complex_f +#pragma weak mpi_type_create_f90_complex_ = mpi_type_create_f90_complex_f +#pragma weak mpi_type_create_f90_complex__ = mpi_type_create_f90_complex_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_CREATE_F90_COMPLEX, + mpi_type_create_f90_complex, + mpi_type_create_f90_complex_, + mpi_type_create_f90_complex__, + mpi_type_create_f90_complex_f, + (MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr), + (p, r, newtype, ierr) ) +#endif + +void mpi_type_create_f90_complex_f(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/type_create_f90_integer_f.c b/src/mpi/f77/type_create_f90_integer_f.c new file mode 100644 index 0000000000..a6dedb5279 --- /dev/null +++ b/src/mpi/f77/type_create_f90_integer_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_CREATE_F90_INTEGER = mpi_type_create_f90_integer_f +#pragma weak pmpi_type_create_f90_integer = mpi_type_create_f90_integer_f +#pragma weak pmpi_type_create_f90_integer_ = mpi_type_create_f90_integer_f +#pragma weak pmpi_type_create_f90_integer__ = mpi_type_create_f90_integer_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_CREATE_F90_INTEGER, + pmpi_type_create_f90_integer, + pmpi_type_create_f90_integer_, + pmpi_type_create_f90_integer__, + pmpi_type_create_f90_integer_f, + (MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr), + (r, newtype, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_CREATE_F90_INTEGER = mpi_type_create_f90_integer_f +#pragma weak mpi_type_create_f90_integer = mpi_type_create_f90_integer_f +#pragma weak mpi_type_create_f90_integer_ = mpi_type_create_f90_integer_f +#pragma weak mpi_type_create_f90_integer__ = mpi_type_create_f90_integer_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_CREATE_F90_INTEGER, + mpi_type_create_f90_integer, + mpi_type_create_f90_integer_, + mpi_type_create_f90_integer__, + mpi_type_create_f90_integer_f, + (MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr), + (r, newtype, ierr) ) +#endif + +void mpi_type_create_f90_integer_f(MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/type_create_f90_real_f.c b/src/mpi/f77/type_create_f90_real_f.c new file mode 100644 index 0000000000..d07ebb0a67 --- /dev/null +++ b/src/mpi/f77/type_create_f90_real_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_CREATE_F90_REAL = mpi_type_create_f90_real_f +#pragma weak pmpi_type_create_f90_real = mpi_type_create_f90_real_f +#pragma weak pmpi_type_create_f90_real_ = mpi_type_create_f90_real_f +#pragma weak pmpi_type_create_f90_real__ = mpi_type_create_f90_real_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_CREATE_F90_REAL, + pmpi_type_create_f90_real, + pmpi_type_create_f90_real_, + pmpi_type_create_f90_real__, + pmpi_type_create_f90_real_f, + (MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr), + (p, r, newtype, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_CREATE_F90_REAL = mpi_type_create_f90_real_f +#pragma weak mpi_type_create_f90_real = mpi_type_create_f90_real_f +#pragma weak mpi_type_create_f90_real_ = mpi_type_create_f90_real_f +#pragma weak mpi_type_create_f90_real__ = mpi_type_create_f90_real_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_CREATE_F90_REAL, + mpi_type_create_f90_real, + mpi_type_create_f90_real_, + mpi_type_create_f90_real__, + mpi_type_create_f90_real_f, + (MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr), + (p, r, newtype, ierr) ) +#endif + +void mpi_type_create_f90_real_f(MPI_Fint *p, MPI_Fint *r, MPI_Fint *newtype, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/type_create_hindexed_f.c b/src/mpi/f77/type_create_hindexed_f.c new file mode 100644 index 0000000000..e64cf4eb6f --- /dev/null +++ b/src/mpi/f77/type_create_hindexed_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_CREATE_HINDEXED = mpi_type_create_hindexed_f +#pragma weak pmpi_type_create_hindexed = mpi_type_create_hindexed_f +#pragma weak pmpi_type_create_hindexed_ = mpi_type_create_hindexed_f +#pragma weak pmpi_type_create_hindexed__ = mpi_type_create_hindexed_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_CREATE_HINDEXED, + pmpi_type_create_hindexed, + pmpi_type_create_hindexed_, + pmpi_type_create_hindexed__, + pmpi_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), + (count, array_of_blocklengths, array_of_displacements, oldtype, newtype, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_CREATE_HINDEXED = mpi_type_create_hindexed_f +#pragma weak mpi_type_create_hindexed = mpi_type_create_hindexed_f +#pragma weak mpi_type_create_hindexed_ = mpi_type_create_hindexed_f +#pragma weak mpi_type_create_hindexed__ = mpi_type_create_hindexed_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_CREATE_HINDEXED, + mpi_type_create_hindexed, + mpi_type_create_hindexed_, + mpi_type_create_hindexed__, + 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), + (count, array_of_blocklengths, array_of_displacements, oldtype, newtype, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/type_create_hvector_f.c b/src/mpi/f77/type_create_hvector_f.c new file mode 100644 index 0000000000..8e79d078dd --- /dev/null +++ b/src/mpi/f77/type_create_hvector_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_CREATE_HVECTOR = mpi_type_create_hvector_f +#pragma weak pmpi_type_create_hvector = mpi_type_create_hvector_f +#pragma weak pmpi_type_create_hvector_ = mpi_type_create_hvector_f +#pragma weak pmpi_type_create_hvector__ = mpi_type_create_hvector_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_CREATE_HVECTOR, + pmpi_type_create_hvector, + pmpi_type_create_hvector_, + pmpi_type_create_hvector__, + pmpi_type_create_hvector_f, + (MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr), + (count, blocklength, stride, oldtype, newtype, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_CREATE_HVECTOR = mpi_type_create_hvector_f +#pragma weak mpi_type_create_hvector = mpi_type_create_hvector_f +#pragma weak mpi_type_create_hvector_ = mpi_type_create_hvector_f +#pragma weak mpi_type_create_hvector__ = mpi_type_create_hvector_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_CREATE_HVECTOR, + mpi_type_create_hvector, + mpi_type_create_hvector_, + mpi_type_create_hvector__, + mpi_type_create_hvector_f, + (MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr), + (count, blocklength, stride, oldtype, newtype, ierr) ) +#endif + +void mpi_type_create_hvector_f(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/type_create_indexed_block_f.c b/src/mpi/f77/type_create_indexed_block_f.c new file mode 100644 index 0000000000..2f944f17b5 --- /dev/null +++ b/src/mpi/f77/type_create_indexed_block_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_CREATE_INDEXED_BLOCK = mpi_type_create_indexed_block_f +#pragma weak pmpi_type_create_indexed_block = mpi_type_create_indexed_block_f +#pragma weak pmpi_type_create_indexed_block_ = mpi_type_create_indexed_block_f +#pragma weak pmpi_type_create_indexed_block__ = mpi_type_create_indexed_block_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_CREATE_INDEXED_BLOCK, + pmpi_type_create_indexed_block, + pmpi_type_create_indexed_block_, + pmpi_type_create_indexed_block__, + pmpi_type_create_indexed_block_f, + (MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr), + (count, blocklength, array_of_displacements, oldtype, newtype, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_CREATE_INDEXED_BLOCK = mpi_type_create_indexed_block_f +#pragma weak mpi_type_create_indexed_block = mpi_type_create_indexed_block_f +#pragma weak mpi_type_create_indexed_block_ = mpi_type_create_indexed_block_f +#pragma weak mpi_type_create_indexed_block__ = mpi_type_create_indexed_block_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_CREATE_INDEXED_BLOCK, + mpi_type_create_indexed_block, + mpi_type_create_indexed_block_, + mpi_type_create_indexed_block__, + mpi_type_create_indexed_block_f, + (MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr), + (count, blocklength, array_of_displacements, oldtype, newtype, ierr) ) +#endif + +void mpi_type_create_indexed_block_f(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/type_create_keyval_f.c b/src/mpi/f77/type_create_keyval_f.c new file mode 100644 index 0000000000..79f9f64e90 --- /dev/null +++ b/src/mpi/f77/type_create_keyval_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_CREATE_KEYVAL = mpi_type_create_keyval_f +#pragma weak pmpi_type_create_keyval = mpi_type_create_keyval_f +#pragma weak pmpi_type_create_keyval_ = mpi_type_create_keyval_f +#pragma weak pmpi_type_create_keyval__ = mpi_type_create_keyval_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_CREATE_KEYVAL, + pmpi_type_create_keyval, + pmpi_type_create_keyval_, + pmpi_type_create_keyval__, + pmpi_type_create_keyval_f, + (MPI_Fint *type_copy_attr_fn, MPI_Fint *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr), + (type_copy_attr_fn, type_delete_attr_fn, type_keyval, extra_state, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_CREATE_KEYVAL = mpi_type_create_keyval_f +#pragma weak mpi_type_create_keyval = mpi_type_create_keyval_f +#pragma weak mpi_type_create_keyval_ = mpi_type_create_keyval_f +#pragma weak mpi_type_create_keyval__ = mpi_type_create_keyval_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_CREATE_KEYVAL, + mpi_type_create_keyval, + mpi_type_create_keyval_, + mpi_type_create_keyval__, + mpi_type_create_keyval_f, + (MPI_Fint *type_copy_attr_fn, MPI_Fint *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr), + (type_copy_attr_fn, type_delete_attr_fn, type_keyval, extra_state, ierr) ) +#endif + +void mpi_type_create_keyval_f(MPI_Fint *type_copy_attr_fn, MPI_Fint *type_delete_attr_fn, MPI_Fint *type_keyval, char *extra_state, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/type_create_resized_f.c b/src/mpi/f77/type_create_resized_f.c new file mode 100644 index 0000000000..d4e01994d9 --- /dev/null +++ b/src/mpi/f77/type_create_resized_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_CREATE_RESIZED = mpi_type_create_resized_f +#pragma weak pmpi_type_create_resized = mpi_type_create_resized_f +#pragma weak pmpi_type_create_resized_ = mpi_type_create_resized_f +#pragma weak pmpi_type_create_resized__ = mpi_type_create_resized_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_CREATE_RESIZED, + pmpi_type_create_resized, + pmpi_type_create_resized_, + pmpi_type_create_resized__, + pmpi_type_create_resized_f, + (MPI_Fint *oldtype, MPI_Fint *lb, MPI_Fint *extent, MPI_Fint *newtype, MPI_Fint *ierr), + (oldtype, lb, extent, newtype, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_CREATE_RESIZED = mpi_type_create_resized_f +#pragma weak mpi_type_create_resized = mpi_type_create_resized_f +#pragma weak mpi_type_create_resized_ = mpi_type_create_resized_f +#pragma weak mpi_type_create_resized__ = mpi_type_create_resized_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_CREATE_RESIZED, + mpi_type_create_resized, + mpi_type_create_resized_, + mpi_type_create_resized__, + mpi_type_create_resized_f, + (MPI_Fint *oldtype, MPI_Fint *lb, MPI_Fint *extent, MPI_Fint *newtype, MPI_Fint *ierr), + (oldtype, lb, extent, newtype, ierr) ) +#endif + +void mpi_type_create_resized_f(MPI_Fint *oldtype, MPI_Fint *lb, MPI_Fint *extent, MPI_Fint *newtype, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/type_create_struct_f.c b/src/mpi/f77/type_create_struct_f.c new file mode 100644 index 0000000000..3be3ce6117 --- /dev/null +++ b/src/mpi/f77/type_create_struct_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_CREATE_STRUCT = mpi_type_create_struct_f +#pragma weak pmpi_type_create_struct = mpi_type_create_struct_f +#pragma weak pmpi_type_create_struct_ = mpi_type_create_struct_f +#pragma weak pmpi_type_create_struct__ = mpi_type_create_struct_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_CREATE_STRUCT, + pmpi_type_create_struct, + pmpi_type_create_struct_, + pmpi_type_create_struct__, + pmpi_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), + (count, array_of_block_lengths, array_of_displacements, array_of_types, newtype, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_CREATE_STRUCT = mpi_type_create_struct_f +#pragma weak mpi_type_create_struct = mpi_type_create_struct_f +#pragma weak mpi_type_create_struct_ = mpi_type_create_struct_f +#pragma weak mpi_type_create_struct__ = mpi_type_create_struct_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_CREATE_STRUCT, + mpi_type_create_struct, + mpi_type_create_struct_, + mpi_type_create_struct__, + 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), + (count, array_of_block_lengths, array_of_displacements, array_of_types, newtype, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/type_create_subarray_f.c b/src/mpi/f77/type_create_subarray_f.c new file mode 100644 index 0000000000..a5f834771f --- /dev/null +++ b/src/mpi/f77/type_create_subarray_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_CREATE_SUBARRAY = mpi_type_create_subarray_f +#pragma weak pmpi_type_create_subarray = mpi_type_create_subarray_f +#pragma weak pmpi_type_create_subarray_ = mpi_type_create_subarray_f +#pragma weak pmpi_type_create_subarray__ = mpi_type_create_subarray_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_CREATE_SUBARRAY, + pmpi_type_create_subarray, + pmpi_type_create_subarray_, + pmpi_type_create_subarray__, + pmpi_type_create_subarray_f, + (MPI_Fint *ndims, MPI_Fint *size_array, MPI_Fint *subsize_array, MPI_Fint *start_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr), + (ndims, size_array, subsize_array, start_array, order, oldtype, newtype, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_CREATE_SUBARRAY = mpi_type_create_subarray_f +#pragma weak mpi_type_create_subarray = mpi_type_create_subarray_f +#pragma weak mpi_type_create_subarray_ = mpi_type_create_subarray_f +#pragma weak mpi_type_create_subarray__ = mpi_type_create_subarray_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_CREATE_SUBARRAY, + mpi_type_create_subarray, + mpi_type_create_subarray_, + mpi_type_create_subarray__, + mpi_type_create_subarray_f, + (MPI_Fint *ndims, MPI_Fint *size_array, MPI_Fint *subsize_array, MPI_Fint *start_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr), + (ndims, size_array, subsize_array, start_array, order, oldtype, newtype, ierr) ) +#endif + +void mpi_type_create_subarray_f(MPI_Fint *ndims, MPI_Fint *size_array, MPI_Fint *subsize_array, MPI_Fint *start_array, MPI_Fint *order, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/type_delete_attr_f.c b/src/mpi/f77/type_delete_attr_f.c new file mode 100644 index 0000000000..b25a3a085f --- /dev/null +++ b/src/mpi/f77/type_delete_attr_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_DELETE_ATTR = mpi_type_delete_attr_f +#pragma weak pmpi_type_delete_attr = mpi_type_delete_attr_f +#pragma weak pmpi_type_delete_attr_ = mpi_type_delete_attr_f +#pragma weak pmpi_type_delete_attr__ = mpi_type_delete_attr_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_DELETE_ATTR, + pmpi_type_delete_attr, + pmpi_type_delete_attr_, + pmpi_type_delete_attr__, + pmpi_type_delete_attr_f, + (MPI_Fint *type, MPI_Fint *type_keyval, MPI_Fint *ierr), + (type, type_keyval, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_DELETE_ATTR = mpi_type_delete_attr_f +#pragma weak mpi_type_delete_attr = mpi_type_delete_attr_f +#pragma weak mpi_type_delete_attr_ = mpi_type_delete_attr_f +#pragma weak mpi_type_delete_attr__ = mpi_type_delete_attr_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_DELETE_ATTR, + mpi_type_delete_attr, + mpi_type_delete_attr_, + mpi_type_delete_attr__, + mpi_type_delete_attr_f, + (MPI_Fint *type, MPI_Fint *type_keyval, MPI_Fint *ierr), + (type, type_keyval, ierr) ) +#endif + +void mpi_type_delete_attr_f(MPI_Fint *type, MPI_Fint *type_keyval, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/type_dup_f.c b/src/mpi/f77/type_dup_f.c new file mode 100644 index 0000000000..f260ac88d8 --- /dev/null +++ b/src/mpi/f77/type_dup_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_DUP = mpi_type_dup_f +#pragma weak pmpi_type_dup = mpi_type_dup_f +#pragma weak pmpi_type_dup_ = mpi_type_dup_f +#pragma weak pmpi_type_dup__ = mpi_type_dup_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_DUP, + pmpi_type_dup, + pmpi_type_dup_, + pmpi_type_dup__, + pmpi_type_dup_f, + (MPI_Fint *type, MPI_Fint *newtype, MPI_Fint *ierr), + (type, newtype, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_DUP = mpi_type_dup_f +#pragma weak mpi_type_dup = mpi_type_dup_f +#pragma weak mpi_type_dup_ = mpi_type_dup_f +#pragma weak mpi_type_dup__ = mpi_type_dup_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_DUP, + mpi_type_dup, + mpi_type_dup_, + mpi_type_dup__, + mpi_type_dup_f, + (MPI_Fint *type, MPI_Fint *newtype, MPI_Fint *ierr), + (type, newtype, ierr) ) +#endif + +void mpi_type_dup_f(MPI_Fint *type, MPI_Fint *newtype, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/type_extent_f.c b/src/mpi/f77/type_extent_f.c new file mode 100644 index 0000000000..54b85d0ef3 --- /dev/null +++ b/src/mpi/f77/type_extent_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_EXTENT = mpi_type_extent_f +#pragma weak pmpi_type_extent = mpi_type_extent_f +#pragma weak pmpi_type_extent_ = mpi_type_extent_f +#pragma weak pmpi_type_extent__ = mpi_type_extent_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_EXTENT, + pmpi_type_extent, + pmpi_type_extent_, + pmpi_type_extent__, + pmpi_type_extent_f, + (MPI_Fint *type, MPI_Fint *extent, MPI_Fint *ierr), + (type, extent, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_EXTENT = mpi_type_extent_f +#pragma weak mpi_type_extent = mpi_type_extent_f +#pragma weak mpi_type_extent_ = mpi_type_extent_f +#pragma weak mpi_type_extent__ = mpi_type_extent_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_EXTENT, + mpi_type_extent, + mpi_type_extent_, + mpi_type_extent__, + mpi_type_extent_f, + (MPI_Fint *type, MPI_Fint *extent, MPI_Fint *ierr), + (type, extent, ierr) ) +#endif + +void mpi_type_extent_f(MPI_Fint *type, MPI_Fint *extent, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/type_free_f.c b/src/mpi/f77/type_free_f.c new file mode 100644 index 0000000000..075525f9aa --- /dev/null +++ b/src/mpi/f77/type_free_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_FREE = mpi_type_free_f +#pragma weak pmpi_type_free = mpi_type_free_f +#pragma weak pmpi_type_free_ = mpi_type_free_f +#pragma weak pmpi_type_free__ = mpi_type_free_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_FREE, + pmpi_type_free, + pmpi_type_free_, + pmpi_type_free__, + pmpi_type_free_f, + (MPI_Fint *type, MPI_Fint *ierr), + (type, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_FREE = mpi_type_free_f +#pragma weak mpi_type_free = mpi_type_free_f +#pragma weak mpi_type_free_ = mpi_type_free_f +#pragma weak mpi_type_free__ = mpi_type_free_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_FREE, + mpi_type_free, + mpi_type_free_, + mpi_type_free__, + mpi_type_free_f, + (MPI_Fint *type, MPI_Fint *ierr), + (type, ierr) ) +#endif + +void mpi_type_free_f(MPI_Fint *type, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/type_free_keyval_f.c b/src/mpi/f77/type_free_keyval_f.c new file mode 100644 index 0000000000..5b249f1cc0 --- /dev/null +++ b/src/mpi/f77/type_free_keyval_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_FREE_KEYVAL = mpi_type_free_keyval_f +#pragma weak pmpi_type_free_keyval = mpi_type_free_keyval_f +#pragma weak pmpi_type_free_keyval_ = mpi_type_free_keyval_f +#pragma weak pmpi_type_free_keyval__ = mpi_type_free_keyval_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_FREE_KEYVAL, + pmpi_type_free_keyval, + pmpi_type_free_keyval_, + pmpi_type_free_keyval__, + pmpi_type_free_keyval_f, + (MPI_Fint *type_keyval, MPI_Fint *ierr), + (type_keyval, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_FREE_KEYVAL = mpi_type_free_keyval_f +#pragma weak mpi_type_free_keyval = mpi_type_free_keyval_f +#pragma weak mpi_type_free_keyval_ = mpi_type_free_keyval_f +#pragma weak mpi_type_free_keyval__ = mpi_type_free_keyval_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_FREE_KEYVAL, + mpi_type_free_keyval, + mpi_type_free_keyval_, + mpi_type_free_keyval__, + mpi_type_free_keyval_f, + (MPI_Fint *type_keyval, MPI_Fint *ierr), + (type_keyval, ierr) ) +#endif + +void mpi_type_free_keyval_f(MPI_Fint *type_keyval, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/type_get_attr_f.c b/src/mpi/f77/type_get_attr_f.c new file mode 100644 index 0000000000..7df5f1fdb0 --- /dev/null +++ b/src/mpi/f77/type_get_attr_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_GET_ATTR = mpi_type_get_attr_f +#pragma weak pmpi_type_get_attr = mpi_type_get_attr_f +#pragma weak pmpi_type_get_attr_ = mpi_type_get_attr_f +#pragma weak pmpi_type_get_attr__ = mpi_type_get_attr_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_GET_ATTR, + pmpi_type_get_attr, + pmpi_type_get_attr_, + pmpi_type_get_attr__, + pmpi_type_get_attr_f, + (MPI_Fint *type, MPI_Fint *type_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr), + (type, type_keyval, attribute_val, flag, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_GET_ATTR = mpi_type_get_attr_f +#pragma weak mpi_type_get_attr = mpi_type_get_attr_f +#pragma weak mpi_type_get_attr_ = mpi_type_get_attr_f +#pragma weak mpi_type_get_attr__ = mpi_type_get_attr_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_GET_ATTR, + mpi_type_get_attr, + mpi_type_get_attr_, + mpi_type_get_attr__, + mpi_type_get_attr_f, + (MPI_Fint *type, MPI_Fint *type_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr), + (type, type_keyval, attribute_val, flag, ierr) ) +#endif + +void mpi_type_get_attr_f(MPI_Fint *type, MPI_Fint *type_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/type_get_contents_f.c b/src/mpi/f77/type_get_contents_f.c new file mode 100644 index 0000000000..1044211c42 --- /dev/null +++ b/src/mpi/f77/type_get_contents_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_GET_CONTENTS = mpi_type_get_contents_f +#pragma weak pmpi_type_get_contents = mpi_type_get_contents_f +#pragma weak pmpi_type_get_contents_ = mpi_type_get_contents_f +#pragma weak pmpi_type_get_contents__ = mpi_type_get_contents_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_GET_CONTENTS, + pmpi_type_get_contents, + pmpi_type_get_contents_, + pmpi_type_get_contents__, + pmpi_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), + (mtype, max_integers, max_addresses, max_datatypes, array_of_integers, array_of_addresses, array_of_datatypes, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_GET_CONTENTS = mpi_type_get_contents_f +#pragma weak mpi_type_get_contents = mpi_type_get_contents_f +#pragma weak mpi_type_get_contents_ = mpi_type_get_contents_f +#pragma weak mpi_type_get_contents__ = mpi_type_get_contents_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_GET_CONTENTS, + mpi_type_get_contents, + mpi_type_get_contents_, + mpi_type_get_contents__, + 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), + (mtype, max_integers, max_addresses, max_datatypes, array_of_integers, array_of_addresses, array_of_datatypes, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/type_get_envelope_f.c b/src/mpi/f77/type_get_envelope_f.c new file mode 100644 index 0000000000..2d2cf5efb4 --- /dev/null +++ b/src/mpi/f77/type_get_envelope_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_GET_ENVELOPE = mpi_type_get_envelope_f +#pragma weak pmpi_type_get_envelope = mpi_type_get_envelope_f +#pragma weak pmpi_type_get_envelope_ = mpi_type_get_envelope_f +#pragma weak pmpi_type_get_envelope__ = mpi_type_get_envelope_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_GET_ENVELOPE, + pmpi_type_get_envelope, + pmpi_type_get_envelope_, + pmpi_type_get_envelope__, + pmpi_type_get_envelope_f, + (MPI_Fint *type, MPI_Fint *num_integers, MPI_Fint *num_addresses, MPI_Fint *num_datatypes, MPI_Fint *combiner, MPI_Fint *ierr), + (type, num_integers, num_addresses, num_datatypes, combiner, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_GET_ENVELOPE = mpi_type_get_envelope_f +#pragma weak mpi_type_get_envelope = mpi_type_get_envelope_f +#pragma weak mpi_type_get_envelope_ = mpi_type_get_envelope_f +#pragma weak mpi_type_get_envelope__ = mpi_type_get_envelope_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_GET_ENVELOPE, + mpi_type_get_envelope, + mpi_type_get_envelope_, + mpi_type_get_envelope__, + mpi_type_get_envelope_f, + (MPI_Fint *type, MPI_Fint *num_integers, MPI_Fint *num_addresses, MPI_Fint *num_datatypes, MPI_Fint *combiner, MPI_Fint *ierr), + (type, num_integers, num_addresses, num_datatypes, combiner, ierr) ) +#endif + +void mpi_type_get_envelope_f(MPI_Fint *type, MPI_Fint *num_integers, MPI_Fint *num_addresses, MPI_Fint *num_datatypes, MPI_Fint *combiner, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/type_get_extent_f.c b/src/mpi/f77/type_get_extent_f.c new file mode 100644 index 0000000000..15a3bc656d --- /dev/null +++ b/src/mpi/f77/type_get_extent_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_GET_EXTENT = mpi_type_get_extent_f +#pragma weak pmpi_type_get_extent = mpi_type_get_extent_f +#pragma weak pmpi_type_get_extent_ = mpi_type_get_extent_f +#pragma weak pmpi_type_get_extent__ = mpi_type_get_extent_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_GET_EXTENT, + pmpi_type_get_extent, + pmpi_type_get_extent_, + pmpi_type_get_extent__, + pmpi_type_get_extent_f, + (MPI_Fint *type, MPI_Fint *lb, MPI_Fint *extent, MPI_Fint *ierr), + (type, lb, extent, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_GET_EXTENT = mpi_type_get_extent_f +#pragma weak mpi_type_get_extent = mpi_type_get_extent_f +#pragma weak mpi_type_get_extent_ = mpi_type_get_extent_f +#pragma weak mpi_type_get_extent__ = mpi_type_get_extent_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_GET_EXTENT, + mpi_type_get_extent, + mpi_type_get_extent_, + mpi_type_get_extent__, + mpi_type_get_extent_f, + (MPI_Fint *type, MPI_Fint *lb, MPI_Fint *extent, MPI_Fint *ierr), + (type, lb, extent, ierr) ) +#endif + +void mpi_type_get_extent_f(MPI_Fint *type, MPI_Fint *lb, MPI_Fint *extent, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/type_get_name_f.c b/src/mpi/f77/type_get_name_f.c new file mode 100644 index 0000000000..b40ccc86a0 --- /dev/null +++ b/src/mpi/f77/type_get_name_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_GET_NAME = mpi_type_get_name_f +#pragma weak pmpi_type_get_name = mpi_type_get_name_f +#pragma weak pmpi_type_get_name_ = mpi_type_get_name_f +#pragma weak pmpi_type_get_name__ = mpi_type_get_name_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_GET_NAME, + pmpi_type_get_name, + pmpi_type_get_name_, + pmpi_type_get_name__, + pmpi_type_get_name_f, + (MPI_Fint *type, char *type_name, MPI_Fint *resultlen, MPI_Fint *ierr), + (type, type_name, resultlen, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_GET_NAME = mpi_type_get_name_f +#pragma weak mpi_type_get_name = mpi_type_get_name_f +#pragma weak mpi_type_get_name_ = mpi_type_get_name_f +#pragma weak mpi_type_get_name__ = mpi_type_get_name_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_GET_NAME, + mpi_type_get_name, + mpi_type_get_name_, + mpi_type_get_name__, + mpi_type_get_name_f, + (MPI_Fint *type, char *type_name, MPI_Fint *resultlen, MPI_Fint *ierr), + (type, type_name, resultlen, ierr) ) +#endif + +void mpi_type_get_name_f(MPI_Fint *type, char *type_name, MPI_Fint *resultlen, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/type_get_true_extent_f.c b/src/mpi/f77/type_get_true_extent_f.c new file mode 100644 index 0000000000..dc63b72d43 --- /dev/null +++ b/src/mpi/f77/type_get_true_extent_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_GET_TRUE_EXTENT = mpi_type_get_true_extent_f +#pragma weak pmpi_type_get_true_extent = mpi_type_get_true_extent_f +#pragma weak pmpi_type_get_true_extent_ = mpi_type_get_true_extent_f +#pragma weak pmpi_type_get_true_extent__ = mpi_type_get_true_extent_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_GET_TRUE_EXTENT, + pmpi_type_get_true_extent, + pmpi_type_get_true_extent_, + pmpi_type_get_true_extent__, + pmpi_type_get_true_extent_f, + (MPI_Fint *datatype, MPI_Fint *true_lb, MPI_Fint *true_extent, MPI_Fint *ierr), + (datatype, true_lb, true_extent, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_GET_TRUE_EXTENT = mpi_type_get_true_extent_f +#pragma weak mpi_type_get_true_extent = mpi_type_get_true_extent_f +#pragma weak mpi_type_get_true_extent_ = mpi_type_get_true_extent_f +#pragma weak mpi_type_get_true_extent__ = mpi_type_get_true_extent_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_GET_TRUE_EXTENT, + mpi_type_get_true_extent, + mpi_type_get_true_extent_, + mpi_type_get_true_extent__, + mpi_type_get_true_extent_f, + (MPI_Fint *datatype, MPI_Fint *true_lb, MPI_Fint *true_extent, MPI_Fint *ierr), + (datatype, true_lb, true_extent, ierr) ) +#endif + +void mpi_type_get_true_extent_f(MPI_Fint *datatype, MPI_Fint *true_lb, MPI_Fint *true_extent, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/type_hindexed_f.c b/src/mpi/f77/type_hindexed_f.c new file mode 100644 index 0000000000..0ac8c887e8 --- /dev/null +++ b/src/mpi/f77/type_hindexed_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_HINDEXED = mpi_type_hindexed_f +#pragma weak pmpi_type_hindexed = mpi_type_hindexed_f +#pragma weak pmpi_type_hindexed_ = mpi_type_hindexed_f +#pragma weak pmpi_type_hindexed__ = mpi_type_hindexed_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_HINDEXED, + pmpi_type_hindexed, + pmpi_type_hindexed_, + pmpi_type_hindexed__, + pmpi_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), + (count, array_of_blocklengths, array_of_displacements, oldtype, newtype, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_HINDEXED = mpi_type_hindexed_f +#pragma weak mpi_type_hindexed = mpi_type_hindexed_f +#pragma weak mpi_type_hindexed_ = mpi_type_hindexed_f +#pragma weak mpi_type_hindexed__ = mpi_type_hindexed_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_HINDEXED, + mpi_type_hindexed, + mpi_type_hindexed_, + mpi_type_hindexed__, + 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), + (count, array_of_blocklengths, array_of_displacements, oldtype, newtype, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/type_hvector_f.c b/src/mpi/f77/type_hvector_f.c new file mode 100644 index 0000000000..0da80d6614 --- /dev/null +++ b/src/mpi/f77/type_hvector_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_HVECTOR = mpi_type_hvector_f +#pragma weak pmpi_type_hvector = mpi_type_hvector_f +#pragma weak pmpi_type_hvector_ = mpi_type_hvector_f +#pragma weak pmpi_type_hvector__ = mpi_type_hvector_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_HVECTOR, + pmpi_type_hvector, + pmpi_type_hvector_, + pmpi_type_hvector__, + pmpi_type_hvector_f, + (MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr), + (count, blocklength, stride, oldtype, newtype, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_HVECTOR = mpi_type_hvector_f +#pragma weak mpi_type_hvector = mpi_type_hvector_f +#pragma weak mpi_type_hvector_ = mpi_type_hvector_f +#pragma weak mpi_type_hvector__ = mpi_type_hvector_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_HVECTOR, + mpi_type_hvector, + mpi_type_hvector_, + mpi_type_hvector__, + mpi_type_hvector_f, + (MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr), + (count, blocklength, stride, oldtype, newtype, ierr) ) +#endif + +void mpi_type_hvector_f(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/type_indexed_f.c b/src/mpi/f77/type_indexed_f.c new file mode 100644 index 0000000000..4570f0afa8 --- /dev/null +++ b/src/mpi/f77/type_indexed_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_INDEXED = mpi_type_indexed_f +#pragma weak pmpi_type_indexed = mpi_type_indexed_f +#pragma weak pmpi_type_indexed_ = mpi_type_indexed_f +#pragma weak pmpi_type_indexed__ = mpi_type_indexed_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_INDEXED, + pmpi_type_indexed, + pmpi_type_indexed_, + pmpi_type_indexed__, + pmpi_type_indexed_f, + (MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr), + (count, array_of_blocklengths, array_of_displacements, oldtype, newtype, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_INDEXED = mpi_type_indexed_f +#pragma weak mpi_type_indexed = mpi_type_indexed_f +#pragma weak mpi_type_indexed_ = mpi_type_indexed_f +#pragma weak mpi_type_indexed__ = mpi_type_indexed_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_INDEXED, + mpi_type_indexed, + mpi_type_indexed_, + mpi_type_indexed__, + mpi_type_indexed_f, + (MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr), + (count, array_of_blocklengths, array_of_displacements, oldtype, newtype, ierr) ) +#endif + +void mpi_type_indexed_f(MPI_Fint *count, MPI_Fint *array_of_blocklengths, MPI_Fint *array_of_displacements, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/type_lb_f.c b/src/mpi/f77/type_lb_f.c new file mode 100644 index 0000000000..043e3d1f79 --- /dev/null +++ b/src/mpi/f77/type_lb_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_LB = mpi_type_lb_f +#pragma weak pmpi_type_lb = mpi_type_lb_f +#pragma weak pmpi_type_lb_ = mpi_type_lb_f +#pragma weak pmpi_type_lb__ = mpi_type_lb_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_LB, + pmpi_type_lb, + pmpi_type_lb_, + pmpi_type_lb__, + pmpi_type_lb_f, + (MPI_Fint *type, MPI_Fint *lb, MPI_Fint *ierr), + (type, lb, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_LB = mpi_type_lb_f +#pragma weak mpi_type_lb = mpi_type_lb_f +#pragma weak mpi_type_lb_ = mpi_type_lb_f +#pragma weak mpi_type_lb__ = mpi_type_lb_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_LB, + mpi_type_lb, + mpi_type_lb_, + mpi_type_lb__, + mpi_type_lb_f, + (MPI_Fint *type, MPI_Fint *lb, MPI_Fint *ierr), + (type, lb, ierr) ) +#endif + +void mpi_type_lb_f(MPI_Fint *type, MPI_Fint *lb, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/type_match_size_f.c b/src/mpi/f77/type_match_size_f.c new file mode 100644 index 0000000000..4e000fad87 --- /dev/null +++ b/src/mpi/f77/type_match_size_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_MATCH_SIZE = mpi_type_match_size_f +#pragma weak pmpi_type_match_size = mpi_type_match_size_f +#pragma weak pmpi_type_match_size_ = mpi_type_match_size_f +#pragma weak pmpi_type_match_size__ = mpi_type_match_size_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_MATCH_SIZE, + pmpi_type_match_size, + pmpi_type_match_size_, + pmpi_type_match_size__, + pmpi_type_match_size_f, + (MPI_Fint *typeclass, MPI_Fint *size, MPI_Fint *type, MPI_Fint *ierr), + (typeclass, size, type, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_MATCH_SIZE = mpi_type_match_size_f +#pragma weak mpi_type_match_size = mpi_type_match_size_f +#pragma weak mpi_type_match_size_ = mpi_type_match_size_f +#pragma weak mpi_type_match_size__ = mpi_type_match_size_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_MATCH_SIZE, + mpi_type_match_size, + mpi_type_match_size_, + mpi_type_match_size__, + mpi_type_match_size_f, + (MPI_Fint *typeclass, MPI_Fint *size, MPI_Fint *type, MPI_Fint *ierr), + (typeclass, size, type, ierr) ) +#endif + +void mpi_type_match_size_f(MPI_Fint *typeclass, MPI_Fint *size, MPI_Fint *type, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/type_set_attr_f.c b/src/mpi/f77/type_set_attr_f.c new file mode 100644 index 0000000000..41427d963d --- /dev/null +++ b/src/mpi/f77/type_set_attr_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_SET_ATTR = mpi_type_set_attr_f +#pragma weak pmpi_type_set_attr = mpi_type_set_attr_f +#pragma weak pmpi_type_set_attr_ = mpi_type_set_attr_f +#pragma weak pmpi_type_set_attr__ = mpi_type_set_attr_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_SET_ATTR, + pmpi_type_set_attr, + pmpi_type_set_attr_, + pmpi_type_set_attr__, + pmpi_type_set_attr_f, + (MPI_Fint *type, MPI_Fint *type_keyval, char *attr_val, MPI_Fint *ierr), + (type, type_keyval, attr_val, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_SET_ATTR = mpi_type_set_attr_f +#pragma weak mpi_type_set_attr = mpi_type_set_attr_f +#pragma weak mpi_type_set_attr_ = mpi_type_set_attr_f +#pragma weak mpi_type_set_attr__ = mpi_type_set_attr_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_SET_ATTR, + mpi_type_set_attr, + mpi_type_set_attr_, + mpi_type_set_attr__, + mpi_type_set_attr_f, + (MPI_Fint *type, MPI_Fint *type_keyval, char *attr_val, MPI_Fint *ierr), + (type, type_keyval, attr_val, ierr) ) +#endif + +void mpi_type_set_attr_f(MPI_Fint *type, MPI_Fint *type_keyval, char *attr_val, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/type_set_name_f.c b/src/mpi/f77/type_set_name_f.c new file mode 100644 index 0000000000..c6e44fdf9f --- /dev/null +++ b/src/mpi/f77/type_set_name_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_SET_NAME = mpi_type_set_name_f +#pragma weak pmpi_type_set_name = mpi_type_set_name_f +#pragma weak pmpi_type_set_name_ = mpi_type_set_name_f +#pragma weak pmpi_type_set_name__ = mpi_type_set_name_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_SET_NAME, + pmpi_type_set_name, + pmpi_type_set_name_, + pmpi_type_set_name__, + pmpi_type_set_name_f, + (MPI_Fint *type, char *type_name, MPI_Fint *ierr), + (type, type_name, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_SET_NAME = mpi_type_set_name_f +#pragma weak mpi_type_set_name = mpi_type_set_name_f +#pragma weak mpi_type_set_name_ = mpi_type_set_name_f +#pragma weak mpi_type_set_name__ = mpi_type_set_name_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_SET_NAME, + mpi_type_set_name, + mpi_type_set_name_, + mpi_type_set_name__, + mpi_type_set_name_f, + (MPI_Fint *type, char *type_name, MPI_Fint *ierr), + (type, type_name, ierr) ) +#endif + +void mpi_type_set_name_f(MPI_Fint *type, char *type_name, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/type_size_f.c b/src/mpi/f77/type_size_f.c new file mode 100644 index 0000000000..d57ae81ac8 --- /dev/null +++ b/src/mpi/f77/type_size_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_SIZE = mpi_type_size_f +#pragma weak pmpi_type_size = mpi_type_size_f +#pragma weak pmpi_type_size_ = mpi_type_size_f +#pragma weak pmpi_type_size__ = mpi_type_size_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_SIZE, + pmpi_type_size, + pmpi_type_size_, + pmpi_type_size__, + pmpi_type_size_f, + (MPI_Fint *type, MPI_Fint *size, MPI_Fint *ierr), + (type, size, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_SIZE = mpi_type_size_f +#pragma weak mpi_type_size = mpi_type_size_f +#pragma weak mpi_type_size_ = mpi_type_size_f +#pragma weak mpi_type_size__ = mpi_type_size_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_SIZE, + mpi_type_size, + mpi_type_size_, + mpi_type_size__, + mpi_type_size_f, + (MPI_Fint *type, MPI_Fint *size, MPI_Fint *ierr), + (type, size, ierr) ) +#endif + +void mpi_type_size_f(MPI_Fint *type, MPI_Fint *size, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/type_struct_f.c b/src/mpi/f77/type_struct_f.c new file mode 100644 index 0000000000..872b694ff1 --- /dev/null +++ b/src/mpi/f77/type_struct_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_STRUCT = mpi_type_struct_f +#pragma weak pmpi_type_struct = mpi_type_struct_f +#pragma weak pmpi_type_struct_ = mpi_type_struct_f +#pragma weak pmpi_type_struct__ = mpi_type_struct_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_STRUCT, + pmpi_type_struct, + pmpi_type_struct_, + pmpi_type_struct__, + pmpi_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), + (count, array_of_blocklengths, array_of_displacements, array_of_types, newtype, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_STRUCT = mpi_type_struct_f +#pragma weak mpi_type_struct = mpi_type_struct_f +#pragma weak mpi_type_struct_ = mpi_type_struct_f +#pragma weak mpi_type_struct__ = mpi_type_struct_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_STRUCT, + mpi_type_struct, + mpi_type_struct_, + mpi_type_struct__, + 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), + (count, array_of_blocklengths, array_of_displacements, array_of_types, newtype, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/type_ub_f.c b/src/mpi/f77/type_ub_f.c new file mode 100644 index 0000000000..8f684e5f86 --- /dev/null +++ b/src/mpi/f77/type_ub_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_UB = mpi_type_ub_f +#pragma weak pmpi_type_ub = mpi_type_ub_f +#pragma weak pmpi_type_ub_ = mpi_type_ub_f +#pragma weak pmpi_type_ub__ = mpi_type_ub_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_UB, + pmpi_type_ub, + pmpi_type_ub_, + pmpi_type_ub__, + pmpi_type_ub_f, + (MPI_Fint *mtype, MPI_Fint *ub, MPI_Fint *ierr), + (mtype, ub, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_UB = mpi_type_ub_f +#pragma weak mpi_type_ub = mpi_type_ub_f +#pragma weak mpi_type_ub_ = mpi_type_ub_f +#pragma weak mpi_type_ub__ = mpi_type_ub_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_UB, + mpi_type_ub, + mpi_type_ub_, + mpi_type_ub__, + mpi_type_ub_f, + (MPI_Fint *mtype, MPI_Fint *ub, MPI_Fint *ierr), + (mtype, ub, ierr) ) +#endif + +void mpi_type_ub_f(MPI_Fint *mtype, MPI_Fint *ub, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/type_vector_f.c b/src/mpi/f77/type_vector_f.c new file mode 100644 index 0000000000..9348f8c2d6 --- /dev/null +++ b/src/mpi/f77/type_vector_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_TYPE_VECTOR = mpi_type_vector_f +#pragma weak pmpi_type_vector = mpi_type_vector_f +#pragma weak pmpi_type_vector_ = mpi_type_vector_f +#pragma weak pmpi_type_vector__ = mpi_type_vector_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_TYPE_VECTOR, + pmpi_type_vector, + pmpi_type_vector_, + pmpi_type_vector__, + pmpi_type_vector_f, + (MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr), + (count, blocklength, stride, oldtype, newtype, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_TYPE_VECTOR = mpi_type_vector_f +#pragma weak mpi_type_vector = mpi_type_vector_f +#pragma weak mpi_type_vector_ = mpi_type_vector_f +#pragma weak mpi_type_vector__ = mpi_type_vector_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_TYPE_VECTOR, + mpi_type_vector, + mpi_type_vector_, + mpi_type_vector__, + mpi_type_vector_f, + (MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr), + (count, blocklength, stride, oldtype, newtype, ierr) ) +#endif + +void mpi_type_vector_f(MPI_Fint *count, MPI_Fint *blocklength, MPI_Fint *stride, MPI_Fint *oldtype, MPI_Fint *newtype, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/unpack_external_f.c b/src/mpi/f77/unpack_external_f.c new file mode 100644 index 0000000000..bb19d18274 --- /dev/null +++ b/src/mpi/f77/unpack_external_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_UNPACK_EXTERNAL = mpi_unpack_external_f +#pragma weak pmpi_unpack_external = mpi_unpack_external_f +#pragma weak pmpi_unpack_external_ = mpi_unpack_external_f +#pragma weak pmpi_unpack_external__ = mpi_unpack_external_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_UNPACK_EXTERNAL, + pmpi_unpack_external, + pmpi_unpack_external_, + pmpi_unpack_external__, + pmpi_unpack_external_f, + (char *datarep, char *inbuf, MPI_Fint *insize, MPI_Fint *position, char *outbuf, MPI_Fint *outcount, MPI_Fint *datatype, MPI_Fint *ierr), + (datarep, inbuf, insize, position, outbuf, outcount, datatype, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_UNPACK_EXTERNAL = mpi_unpack_external_f +#pragma weak mpi_unpack_external = mpi_unpack_external_f +#pragma weak mpi_unpack_external_ = mpi_unpack_external_f +#pragma weak mpi_unpack_external__ = mpi_unpack_external_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_UNPACK_EXTERNAL, + mpi_unpack_external, + mpi_unpack_external_, + mpi_unpack_external__, + mpi_unpack_external_f, + (char *datarep, char *inbuf, MPI_Fint *insize, MPI_Fint *position, char *outbuf, MPI_Fint *outcount, MPI_Fint *datatype, MPI_Fint *ierr), + (datarep, inbuf, insize, position, outbuf, outcount, datatype, ierr) ) +#endif + +void mpi_unpack_external_f (char *datarep, char *inbuf, MPI_Fint *insize, MPI_Fint *position, char *outbuf, MPI_Fint *outcount, MPI_Fint *datatype, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/unpack_f.c b/src/mpi/f77/unpack_f.c new file mode 100644 index 0000000000..20d45db6b0 --- /dev/null +++ b/src/mpi/f77/unpack_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_UNPACK = mpi_unpack_f +#pragma weak pmpi_unpack = mpi_unpack_f +#pragma weak pmpi_unpack_ = mpi_unpack_f +#pragma weak pmpi_unpack__ = mpi_unpack_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_UNPACK, + pmpi_unpack, + pmpi_unpack_, + pmpi_unpack__, + pmpi_unpack_f, + (char *inbuf, MPI_Fint *insize, MPI_Fint *position, char *outbuf, MPI_Fint *outcount, MPI_Fint *datatype, MPI_Fint *comm, MPI_Fint *ierr), + (inbuf, insize, position, outbuf, outcount, datatype, comm, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_UNPACK = mpi_unpack_f +#pragma weak mpi_unpack = mpi_unpack_f +#pragma weak mpi_unpack_ = mpi_unpack_f +#pragma weak mpi_unpack__ = mpi_unpack_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_UNPACK, + mpi_unpack, + mpi_unpack_, + mpi_unpack__, + 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), + (inbuf, insize, position, outbuf, outcount, datatype, comm, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/unpublish_name_f.c b/src/mpi/f77/unpublish_name_f.c new file mode 100644 index 0000000000..2c57fb1a70 --- /dev/null +++ b/src/mpi/f77/unpublish_name_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_UNPUBLISH_NAME = mpi_unpublish_name_f +#pragma weak pmpi_unpublish_name = mpi_unpublish_name_f +#pragma weak pmpi_unpublish_name_ = mpi_unpublish_name_f +#pragma weak pmpi_unpublish_name__ = mpi_unpublish_name_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_UNPUBLISH_NAME, + pmpi_unpublish_name, + pmpi_unpublish_name_, + pmpi_unpublish_name__, + pmpi_unpublish_name_f, + (char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr), + (service_name, info, port_name, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_UNPUBLISH_NAME = mpi_unpublish_name_f +#pragma weak mpi_unpublish_name = mpi_unpublish_name_f +#pragma weak mpi_unpublish_name_ = mpi_unpublish_name_f +#pragma weak mpi_unpublish_name__ = mpi_unpublish_name_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_UNPUBLISH_NAME, + mpi_unpublish_name, + mpi_unpublish_name_, + mpi_unpublish_name__, + mpi_unpublish_name_f, + (char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr), + (service_name, info, port_name, ierr) ) +#endif + +void mpi_unpublish_name_f(char *service_name, MPI_Fint *info, char *port_name, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/wait_f.c b/src/mpi/f77/wait_f.c new file mode 100644 index 0000000000..8bde978cda --- /dev/null +++ b/src/mpi/f77/wait_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_WAIT = mpi_wait_f +#pragma weak pmpi_wait = mpi_wait_f +#pragma weak pmpi_wait_ = mpi_wait_f +#pragma weak pmpi_wait__ = mpi_wait_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_WAIT, + pmpi_wait, + pmpi_wait_, + pmpi_wait__, + pmpi_wait_f, + (MPI_Fint *request, MPI_Fint *status, MPI_Fint *ierr), + (request, status, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_WAIT = mpi_wait_f +#pragma weak mpi_wait = mpi_wait_f +#pragma weak mpi_wait_ = mpi_wait_f +#pragma weak mpi_wait__ = mpi_wait_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_WAIT, + mpi_wait, + mpi_wait_, + mpi_wait__, + mpi_wait_f, + (MPI_Fint *request, MPI_Fint *status, MPI_Fint *ierr), + (request, status, ierr) ) +#endif + +void mpi_wait_f(MPI_Fint *request, MPI_Fint *status, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/waitall_f.c b/src/mpi/f77/waitall_f.c new file mode 100644 index 0000000000..0d5729c5fb --- /dev/null +++ b/src/mpi/f77/waitall_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_WAITALL = mpi_waitall_f +#pragma weak pmpi_waitall = mpi_waitall_f +#pragma weak pmpi_waitall_ = mpi_waitall_f +#pragma weak pmpi_waitall__ = mpi_waitall_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_WAITALL, + pmpi_waitall, + pmpi_waitall_, + pmpi_waitall__, + pmpi_waitall_f, + (MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *array_of_statuses, MPI_Fint *ierr), + (count, array_of_requests, array_of_statuses, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_WAITALL = mpi_waitall_f +#pragma weak mpi_waitall = mpi_waitall_f +#pragma weak mpi_waitall_ = mpi_waitall_f +#pragma weak mpi_waitall__ = mpi_waitall_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_WAITALL, + mpi_waitall, + mpi_waitall_, + mpi_waitall__, + mpi_waitall_f, + (MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *array_of_statuses, MPI_Fint *ierr), + (count, array_of_requests, array_of_statuses, ierr) ) +#endif + +void mpi_waitall_f(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *array_of_statuses, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/waitany_f.c b/src/mpi/f77/waitany_f.c new file mode 100644 index 0000000000..c1708d4914 --- /dev/null +++ b/src/mpi/f77/waitany_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_WAITANY = mpi_waitany_f +#pragma weak pmpi_waitany = mpi_waitany_f +#pragma weak pmpi_waitany_ = mpi_waitany_f +#pragma weak pmpi_waitany__ = mpi_waitany_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_WAITANY, + pmpi_waitany, + pmpi_waitany_, + pmpi_waitany__, + pmpi_waitany_f, + (MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *status, MPI_Fint *ierr), + (count, array_of_requests, index, status, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_WAITANY = mpi_waitany_f +#pragma weak mpi_waitany = mpi_waitany_f +#pragma weak mpi_waitany_ = mpi_waitany_f +#pragma weak mpi_waitany__ = mpi_waitany_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_WAITANY, + mpi_waitany, + mpi_waitany_, + mpi_waitany__, + mpi_waitany_f, + (MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *status, MPI_Fint *ierr), + (count, array_of_requests, index, status, ierr) ) +#endif + +void mpi_waitany_f(MPI_Fint *count, MPI_Fint *array_of_requests, MPI_Fint *index, MPI_Fint *status, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/waitsome_f.c b/src/mpi/f77/waitsome_f.c new file mode 100644 index 0000000000..3048ecfd95 --- /dev/null +++ b/src/mpi/f77/waitsome_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_WAITSOME = mpi_waitsome_f +#pragma weak pmpi_waitsome = mpi_waitsome_f +#pragma weak pmpi_waitsome_ = mpi_waitsome_f +#pragma weak pmpi_waitsome__ = mpi_waitsome_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_WAITSOME, + pmpi_waitsome, + pmpi_waitsome_, + pmpi_waitsome__, + pmpi_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), + (incount, array_of_requests, outcount, array_of_indices, array_of_statuses, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_WAITSOME = mpi_waitsome_f +#pragma weak mpi_waitsome = mpi_waitsome_f +#pragma weak mpi_waitsome_ = mpi_waitsome_f +#pragma weak mpi_waitsome__ = mpi_waitsome_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_WAITSOME, + mpi_waitsome, + mpi_waitsome_, + mpi_waitsome__, + 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), + (incount, array_of_requests, outcount, array_of_indices, array_of_statuses, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/win_call_errhandler_f.c b/src/mpi/f77/win_call_errhandler_f.c new file mode 100644 index 0000000000..93ac2ef73d --- /dev/null +++ b/src/mpi/f77/win_call_errhandler_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_WIN_CALL_ERRHANDLER = mpi_win_call_errhandler_f +#pragma weak pmpi_win_call_errhandler = mpi_win_call_errhandler_f +#pragma weak pmpi_win_call_errhandler_ = mpi_win_call_errhandler_f +#pragma weak pmpi_win_call_errhandler__ = mpi_win_call_errhandler_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_WIN_CALL_ERRHANDLER, + pmpi_win_call_errhandler, + pmpi_win_call_errhandler_, + pmpi_win_call_errhandler__, + pmpi_win_call_errhandler_f, + (MPI_Fint *win, MPI_Fint *errorcode, MPI_Fint *ierr), + (win, errorcode, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_WIN_CALL_ERRHANDLER = mpi_win_call_errhandler_f +#pragma weak mpi_win_call_errhandler = mpi_win_call_errhandler_f +#pragma weak mpi_win_call_errhandler_ = mpi_win_call_errhandler_f +#pragma weak mpi_win_call_errhandler__ = mpi_win_call_errhandler_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_WIN_CALL_ERRHANDLER, + mpi_win_call_errhandler, + mpi_win_call_errhandler_, + mpi_win_call_errhandler__, + mpi_win_call_errhandler_f, + (MPI_Fint *win, MPI_Fint *errorcode, MPI_Fint *ierr), + (win, errorcode, ierr) ) +#endif + +void mpi_win_call_errhandler_f(MPI_Fint *win, MPI_Fint *errorcode, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/win_complete_f.c b/src/mpi/f77/win_complete_f.c new file mode 100644 index 0000000000..d06ea63c04 --- /dev/null +++ b/src/mpi/f77/win_complete_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_WIN_COMPLETE = mpi_win_complete_f +#pragma weak pmpi_win_complete = mpi_win_complete_f +#pragma weak pmpi_win_complete_ = mpi_win_complete_f +#pragma weak pmpi_win_complete__ = mpi_win_complete_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_WIN_COMPLETE, + pmpi_win_complete, + pmpi_win_complete_, + pmpi_win_complete__, + pmpi_win_complete_f, + (MPI_Fint *win, MPI_Fint *ierr), + (win, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_WIN_COMPLETE = mpi_win_complete_f +#pragma weak mpi_win_complete = mpi_win_complete_f +#pragma weak mpi_win_complete_ = mpi_win_complete_f +#pragma weak mpi_win_complete__ = mpi_win_complete_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_WIN_COMPLETE, + mpi_win_complete, + mpi_win_complete_, + mpi_win_complete__, + mpi_win_complete_f, + (MPI_Fint *win, MPI_Fint *ierr), + (win, ierr) ) +#endif + +void mpi_win_complete_f(MPI_Fint *win, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/win_create_errhandler_f.c b/src/mpi/f77/win_create_errhandler_f.c new file mode 100644 index 0000000000..0f38ac4de5 --- /dev/null +++ b/src/mpi/f77/win_create_errhandler_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_WIN_CREATE_ERRHANDLER = mpi_win_create_errhandler_f +#pragma weak pmpi_win_create_errhandler = mpi_win_create_errhandler_f +#pragma weak pmpi_win_create_errhandler_ = mpi_win_create_errhandler_f +#pragma weak pmpi_win_create_errhandler__ = mpi_win_create_errhandler_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_WIN_CREATE_ERRHANDLER, + pmpi_win_create_errhandler, + pmpi_win_create_errhandler_, + pmpi_win_create_errhandler__, + pmpi_win_create_errhandler_f, + (MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr), + (function, errhandler, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_WIN_CREATE_ERRHANDLER = mpi_win_create_errhandler_f +#pragma weak mpi_win_create_errhandler = mpi_win_create_errhandler_f +#pragma weak mpi_win_create_errhandler_ = mpi_win_create_errhandler_f +#pragma weak mpi_win_create_errhandler__ = mpi_win_create_errhandler_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_WIN_CREATE_ERRHANDLER, + mpi_win_create_errhandler, + mpi_win_create_errhandler_, + mpi_win_create_errhandler__, + mpi_win_create_errhandler_f, + (MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr), + (function, errhandler, ierr) ) +#endif + +void mpi_win_create_errhandler_f(MPI_Fint *function, MPI_Fint *errhandler, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/win_create_f.c b/src/mpi/f77/win_create_f.c new file mode 100644 index 0000000000..aae1c82a4f --- /dev/null +++ b/src/mpi/f77/win_create_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_WIN_CREATE = mpi_win_create_f +#pragma weak pmpi_win_create = mpi_win_create_f +#pragma weak pmpi_win_create_ = mpi_win_create_f +#pragma weak pmpi_win_create__ = mpi_win_create_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_WIN_CREATE, + pmpi_win_create, + pmpi_win_create_, + pmpi_win_create__, + pmpi_win_create_f, + (char *base, MPI_Fint *size, MPI_Fint *disp_unit, MPI_Fint *info, MPI_Fint *comm, MPI_Fint *win, MPI_Fint *ierr), + (base, size, disp_unit, info, comm, win, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_WIN_CREATE = mpi_win_create_f +#pragma weak mpi_win_create = mpi_win_create_f +#pragma weak mpi_win_create_ = mpi_win_create_f +#pragma weak mpi_win_create__ = mpi_win_create_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_WIN_CREATE, + mpi_win_create, + mpi_win_create_, + mpi_win_create__, + 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), + (base, size, disp_unit, info, comm, win, ierr) ) +#endif + +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) +{ + +} diff --git a/src/mpi/f77/win_create_keyval_f.c b/src/mpi/f77/win_create_keyval_f.c new file mode 100644 index 0000000000..1006ea9e97 --- /dev/null +++ b/src/mpi/f77/win_create_keyval_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_WIN_CREATE_KEYVAL = mpi_win_create_keyval_f +#pragma weak pmpi_win_create_keyval = mpi_win_create_keyval_f +#pragma weak pmpi_win_create_keyval_ = mpi_win_create_keyval_f +#pragma weak pmpi_win_create_keyval__ = mpi_win_create_keyval_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_WIN_CREATE_KEYVAL, + pmpi_win_create_keyval, + pmpi_win_create_keyval_, + pmpi_win_create_keyval__, + pmpi_win_create_keyval_f, + (MPI_Fint *win_copy_attr_fn, MPI_Fint *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr), + (win_copy_attr_fn, win_delete_attr_fn, win_keyval, extra_state, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_WIN_CREATE_KEYVAL = mpi_win_create_keyval_f +#pragma weak mpi_win_create_keyval = mpi_win_create_keyval_f +#pragma weak mpi_win_create_keyval_ = mpi_win_create_keyval_f +#pragma weak mpi_win_create_keyval__ = mpi_win_create_keyval_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_WIN_CREATE_KEYVAL, + mpi_win_create_keyval, + mpi_win_create_keyval_, + mpi_win_create_keyval__, + mpi_win_create_keyval_f, + (MPI_Fint *win_copy_attr_fn, MPI_Fint *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr), + (win_copy_attr_fn, win_delete_attr_fn, win_keyval, extra_state, ierr) ) +#endif + +void mpi_win_create_keyval_f(MPI_Fint *win_copy_attr_fn, MPI_Fint *win_delete_attr_fn, MPI_Fint *win_keyval, char *extra_state, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/win_delete_attr_f.c b/src/mpi/f77/win_delete_attr_f.c new file mode 100644 index 0000000000..9bcaf1753e --- /dev/null +++ b/src/mpi/f77/win_delete_attr_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_WIN_DELETE_ATTR = mpi_win_delete_attr_f +#pragma weak pmpi_win_delete_attr = mpi_win_delete_attr_f +#pragma weak pmpi_win_delete_attr_ = mpi_win_delete_attr_f +#pragma weak pmpi_win_delete_attr__ = mpi_win_delete_attr_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_WIN_DELETE_ATTR, + pmpi_win_delete_attr, + pmpi_win_delete_attr_, + pmpi_win_delete_attr__, + pmpi_win_delete_attr_f, + (MPI_Fint *win, MPI_Fint *win_keyval, MPI_Fint *ierr), + (win, win_keyval, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_WIN_DELETE_ATTR = mpi_win_delete_attr_f +#pragma weak mpi_win_delete_attr = mpi_win_delete_attr_f +#pragma weak mpi_win_delete_attr_ = mpi_win_delete_attr_f +#pragma weak mpi_win_delete_attr__ = mpi_win_delete_attr_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_WIN_DELETE_ATTR, + mpi_win_delete_attr, + mpi_win_delete_attr_, + mpi_win_delete_attr__, + mpi_win_delete_attr_f, + (MPI_Fint *win, MPI_Fint *win_keyval, MPI_Fint *ierr), + (win, win_keyval, ierr) ) +#endif + +void mpi_win_delete_attr_f(MPI_Fint *win, MPI_Fint *win_keyval, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/win_fence_f.c b/src/mpi/f77/win_fence_f.c new file mode 100644 index 0000000000..52bcb2136f --- /dev/null +++ b/src/mpi/f77/win_fence_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_WIN_FENCE = mpi_win_fence_f +#pragma weak pmpi_win_fence = mpi_win_fence_f +#pragma weak pmpi_win_fence_ = mpi_win_fence_f +#pragma weak pmpi_win_fence__ = mpi_win_fence_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_WIN_FENCE, + pmpi_win_fence, + pmpi_win_fence_, + pmpi_win_fence__, + pmpi_win_fence_f, + (MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr), + (assert, win, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_WIN_FENCE = mpi_win_fence_f +#pragma weak mpi_win_fence = mpi_win_fence_f +#pragma weak mpi_win_fence_ = mpi_win_fence_f +#pragma weak mpi_win_fence__ = mpi_win_fence_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_WIN_FENCE, + mpi_win_fence, + mpi_win_fence_, + mpi_win_fence__, + mpi_win_fence_f, + (MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr), + (assert, win, ierr) ) +#endif + +void mpi_win_fence_f(MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/win_free_f.c b/src/mpi/f77/win_free_f.c new file mode 100644 index 0000000000..40bcabf74d --- /dev/null +++ b/src/mpi/f77/win_free_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_WIN_FREE = mpi_win_free_f +#pragma weak pmpi_win_free = mpi_win_free_f +#pragma weak pmpi_win_free_ = mpi_win_free_f +#pragma weak pmpi_win_free__ = mpi_win_free_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_WIN_FREE, + pmpi_win_free, + pmpi_win_free_, + pmpi_win_free__, + pmpi_win_free_f, + (MPI_Fint *win, MPI_Fint *ierr), + (win, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_WIN_FREE = mpi_win_free_f +#pragma weak mpi_win_free = mpi_win_free_f +#pragma weak mpi_win_free_ = mpi_win_free_f +#pragma weak mpi_win_free__ = mpi_win_free_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_WIN_FREE, + mpi_win_free, + mpi_win_free_, + mpi_win_free__, + mpi_win_free_f, + (MPI_Fint *win, MPI_Fint *ierr), + (win, ierr) ) +#endif + +void mpi_win_free_f(MPI_Fint *win, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/win_free_keyval_f.c b/src/mpi/f77/win_free_keyval_f.c new file mode 100644 index 0000000000..058742916a --- /dev/null +++ b/src/mpi/f77/win_free_keyval_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_WIN_FREE_KEYVAL = mpi_win_free_keyval_f +#pragma weak pmpi_win_free_keyval = mpi_win_free_keyval_f +#pragma weak pmpi_win_free_keyval_ = mpi_win_free_keyval_f +#pragma weak pmpi_win_free_keyval__ = mpi_win_free_keyval_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_WIN_FREE_KEYVAL, + pmpi_win_free_keyval, + pmpi_win_free_keyval_, + pmpi_win_free_keyval__, + pmpi_win_free_keyval_f, + (MPI_Fint *win_keyval, MPI_Fint *ierr), + (win_keyval, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_WIN_FREE_KEYVAL = mpi_win_free_keyval_f +#pragma weak mpi_win_free_keyval = mpi_win_free_keyval_f +#pragma weak mpi_win_free_keyval_ = mpi_win_free_keyval_f +#pragma weak mpi_win_free_keyval__ = mpi_win_free_keyval_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_WIN_FREE_KEYVAL, + mpi_win_free_keyval, + mpi_win_free_keyval_, + mpi_win_free_keyval__, + mpi_win_free_keyval_f, + (MPI_Fint *win_keyval, MPI_Fint *ierr), + (win_keyval, ierr) ) +#endif + +void mpi_win_free_keyval_f(MPI_Fint *win_keyval, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/win_get_attr_f.c b/src/mpi/f77/win_get_attr_f.c new file mode 100644 index 0000000000..9ffa86e924 --- /dev/null +++ b/src/mpi/f77/win_get_attr_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_WIN_GET_ATTR = mpi_win_get_attr_f +#pragma weak pmpi_win_get_attr = mpi_win_get_attr_f +#pragma weak pmpi_win_get_attr_ = mpi_win_get_attr_f +#pragma weak pmpi_win_get_attr__ = mpi_win_get_attr_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_WIN_GET_ATTR, + pmpi_win_get_attr, + pmpi_win_get_attr_, + pmpi_win_get_attr__, + pmpi_win_get_attr_f, + (MPI_Fint *win, MPI_Fint *win_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr), + (win, win_keyval, attribute_val, flag, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_WIN_GET_ATTR = mpi_win_get_attr_f +#pragma weak mpi_win_get_attr = mpi_win_get_attr_f +#pragma weak mpi_win_get_attr_ = mpi_win_get_attr_f +#pragma weak mpi_win_get_attr__ = mpi_win_get_attr_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_WIN_GET_ATTR, + mpi_win_get_attr, + mpi_win_get_attr_, + mpi_win_get_attr__, + mpi_win_get_attr_f, + (MPI_Fint *win, MPI_Fint *win_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr), + (win, win_keyval, attribute_val, flag, ierr) ) +#endif + +void mpi_win_get_attr_f(MPI_Fint *win, MPI_Fint *win_keyval, char *attribute_val, MPI_Fint *flag, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/win_get_errhandler_f.c b/src/mpi/f77/win_get_errhandler_f.c new file mode 100644 index 0000000000..14f84160ac --- /dev/null +++ b/src/mpi/f77/win_get_errhandler_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_WIN_GET_ERRHANDLER = mpi_win_get_errhandler_f +#pragma weak pmpi_win_get_errhandler = mpi_win_get_errhandler_f +#pragma weak pmpi_win_get_errhandler_ = mpi_win_get_errhandler_f +#pragma weak pmpi_win_get_errhandler__ = mpi_win_get_errhandler_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_WIN_GET_ERRHANDLER, + pmpi_win_get_errhandler, + pmpi_win_get_errhandler_, + pmpi_win_get_errhandler__, + pmpi_win_get_errhandler_f, + (MPI_Fint *win, MPI_Fint *errhandler, MPI_Fint *ierr), + (win, errhandler, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_WIN_GET_ERRHANDLER = mpi_win_get_errhandler_f +#pragma weak mpi_win_get_errhandler = mpi_win_get_errhandler_f +#pragma weak mpi_win_get_errhandler_ = mpi_win_get_errhandler_f +#pragma weak mpi_win_get_errhandler__ = mpi_win_get_errhandler_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_WIN_GET_ERRHANDLER, + mpi_win_get_errhandler, + mpi_win_get_errhandler_, + mpi_win_get_errhandler__, + mpi_win_get_errhandler_f, + (MPI_Fint *win, MPI_Fint *errhandler, MPI_Fint *ierr), + (win, errhandler, ierr) ) +#endif + +void mpi_win_get_errhandler_f(MPI_Fint *win, MPI_Fint *errhandler, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/win_get_group_f.c b/src/mpi/f77/win_get_group_f.c new file mode 100644 index 0000000000..6590c41113 --- /dev/null +++ b/src/mpi/f77/win_get_group_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_WIN_GET_GROUP = mpi_win_get_group_f +#pragma weak pmpi_win_get_group = mpi_win_get_group_f +#pragma weak pmpi_win_get_group_ = mpi_win_get_group_f +#pragma weak pmpi_win_get_group__ = mpi_win_get_group_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_WIN_GET_GROUP, + pmpi_win_get_group, + pmpi_win_get_group_, + pmpi_win_get_group__, + pmpi_win_get_group_f, + (MPI_Fint *win, MPI_Fint *group, MPI_Fint *ierr), + (win, group, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_WIN_GET_GROUP = mpi_win_get_group_f +#pragma weak mpi_win_get_group = mpi_win_get_group_f +#pragma weak mpi_win_get_group_ = mpi_win_get_group_f +#pragma weak mpi_win_get_group__ = mpi_win_get_group_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_WIN_GET_GROUP, + mpi_win_get_group, + mpi_win_get_group_, + mpi_win_get_group__, + mpi_win_get_group_f, + (MPI_Fint *win, MPI_Fint *group, MPI_Fint *ierr), + (win, group, ierr) ) +#endif + +void mpi_win_get_group_f(MPI_Fint *win, MPI_Fint *group, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/win_get_name_f.c b/src/mpi/f77/win_get_name_f.c new file mode 100644 index 0000000000..2541c4fd98 --- /dev/null +++ b/src/mpi/f77/win_get_name_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_WIN_GET_NAME = mpi_win_get_name_f +#pragma weak pmpi_win_get_name = mpi_win_get_name_f +#pragma weak pmpi_win_get_name_ = mpi_win_get_name_f +#pragma weak pmpi_win_get_name__ = mpi_win_get_name_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_WIN_GET_NAME, + pmpi_win_get_name, + pmpi_win_get_name_, + pmpi_win_get_name__, + pmpi_win_get_name_f, + (MPI_Fint *win, char *win_name, MPI_Fint *resultlen, MPI_Fint *ierr), + (win, win_name, resultlen, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_WIN_GET_NAME = mpi_win_get_name_f +#pragma weak mpi_win_get_name = mpi_win_get_name_f +#pragma weak mpi_win_get_name_ = mpi_win_get_name_f +#pragma weak mpi_win_get_name__ = mpi_win_get_name_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_WIN_GET_NAME, + mpi_win_get_name, + mpi_win_get_name_, + mpi_win_get_name__, + mpi_win_get_name_f, + (MPI_Fint *win, char *win_name, MPI_Fint *resultlen, MPI_Fint *ierr), + (win, win_name, resultlen, ierr) ) +#endif + +void mpi_win_get_name_f(MPI_Fint *win, char *win_name, MPI_Fint *resultlen, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/win_lock_f.c b/src/mpi/f77/win_lock_f.c new file mode 100644 index 0000000000..c37d9f897d --- /dev/null +++ b/src/mpi/f77/win_lock_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_WIN_LOCK = mpi_win_lock_f +#pragma weak pmpi_win_lock = mpi_win_lock_f +#pragma weak pmpi_win_lock_ = mpi_win_lock_f +#pragma weak pmpi_win_lock__ = mpi_win_lock_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_WIN_LOCK, + pmpi_win_lock, + pmpi_win_lock_, + pmpi_win_lock__, + pmpi_win_lock_f, + (MPI_Fint *lock_type, MPI_Fint *rank, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr), + (lock_type, rank, assert, win, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_WIN_LOCK = mpi_win_lock_f +#pragma weak mpi_win_lock = mpi_win_lock_f +#pragma weak mpi_win_lock_ = mpi_win_lock_f +#pragma weak mpi_win_lock__ = mpi_win_lock_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_WIN_LOCK, + mpi_win_lock, + mpi_win_lock_, + mpi_win_lock__, + mpi_win_lock_f, + (MPI_Fint *lock_type, MPI_Fint *rank, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr), + (lock_type, rank, assert, win, ierr) ) +#endif + +void mpi_win_lock_f(MPI_Fint *lock_type, MPI_Fint *rank, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/win_post_f.c b/src/mpi/f77/win_post_f.c new file mode 100644 index 0000000000..fcb7307523 --- /dev/null +++ b/src/mpi/f77/win_post_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_WIN_POST = mpi_win_post_f +#pragma weak pmpi_win_post = mpi_win_post_f +#pragma weak pmpi_win_post_ = mpi_win_post_f +#pragma weak pmpi_win_post__ = mpi_win_post_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_WIN_POST, + pmpi_win_post, + pmpi_win_post_, + pmpi_win_post__, + pmpi_win_post_f, + (MPI_Fint *group, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr), + (group, assert, win, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_WIN_POST = mpi_win_post_f +#pragma weak mpi_win_post = mpi_win_post_f +#pragma weak mpi_win_post_ = mpi_win_post_f +#pragma weak mpi_win_post__ = mpi_win_post_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_WIN_POST, + mpi_win_post, + mpi_win_post_, + mpi_win_post__, + mpi_win_post_f, + (MPI_Fint *group, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr), + (group, assert, win, ierr) ) +#endif + +void mpi_win_post_f(MPI_Fint *group, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/win_set_attr_f.c b/src/mpi/f77/win_set_attr_f.c new file mode 100644 index 0000000000..7b326b741d --- /dev/null +++ b/src/mpi/f77/win_set_attr_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_WIN_SET_ATTR = mpi_win_set_attr_f +#pragma weak pmpi_win_set_attr = mpi_win_set_attr_f +#pragma weak pmpi_win_set_attr_ = mpi_win_set_attr_f +#pragma weak pmpi_win_set_attr__ = mpi_win_set_attr_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_WIN_SET_ATTR, + pmpi_win_set_attr, + pmpi_win_set_attr_, + pmpi_win_set_attr__, + pmpi_win_set_attr_f, + (MPI_Fint *win, MPI_Fint *win_keyval, char *attribute_val, MPI_Fint *ierr), + (win, win_keyval, attribute_val, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_WIN_SET_ATTR = mpi_win_set_attr_f +#pragma weak mpi_win_set_attr = mpi_win_set_attr_f +#pragma weak mpi_win_set_attr_ = mpi_win_set_attr_f +#pragma weak mpi_win_set_attr__ = mpi_win_set_attr_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_WIN_SET_ATTR, + mpi_win_set_attr, + mpi_win_set_attr_, + mpi_win_set_attr__, + mpi_win_set_attr_f, + (MPI_Fint *win, MPI_Fint *win_keyval, char *attribute_val, MPI_Fint *ierr), + (win, win_keyval, attribute_val, ierr) ) +#endif + +void mpi_win_set_attr_f(MPI_Fint *win, MPI_Fint *win_keyval, char *attribute_val, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/win_set_errhandler_f.c b/src/mpi/f77/win_set_errhandler_f.c new file mode 100644 index 0000000000..17b6aa9166 --- /dev/null +++ b/src/mpi/f77/win_set_errhandler_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_WIN_SET_ERRHANDLER = mpi_win_set_errhandler_f +#pragma weak pmpi_win_set_errhandler = mpi_win_set_errhandler_f +#pragma weak pmpi_win_set_errhandler_ = mpi_win_set_errhandler_f +#pragma weak pmpi_win_set_errhandler__ = mpi_win_set_errhandler_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_WIN_SET_ERRHANDLER, + pmpi_win_set_errhandler, + pmpi_win_set_errhandler_, + pmpi_win_set_errhandler__, + pmpi_win_set_errhandler_f, + (MPI_Fint *win, MPI_Fint *errhandler, MPI_Fint *ierr), + (win, errhandler, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_WIN_SET_ERRHANDLER = mpi_win_set_errhandler_f +#pragma weak mpi_win_set_errhandler = mpi_win_set_errhandler_f +#pragma weak mpi_win_set_errhandler_ = mpi_win_set_errhandler_f +#pragma weak mpi_win_set_errhandler__ = mpi_win_set_errhandler_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_WIN_SET_ERRHANDLER, + mpi_win_set_errhandler, + mpi_win_set_errhandler_, + mpi_win_set_errhandler__, + mpi_win_set_errhandler_f, + (MPI_Fint *win, MPI_Fint *errhandler, MPI_Fint *ierr), + (win, errhandler, ierr) ) +#endif + +void mpi_win_set_errhandler_f(MPI_Fint *win, MPI_Fint *errhandler, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/win_set_name_f.c b/src/mpi/f77/win_set_name_f.c new file mode 100644 index 0000000000..902f1f285f --- /dev/null +++ b/src/mpi/f77/win_set_name_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_WIN_SET_NAME = mpi_win_set_name_f +#pragma weak pmpi_win_set_name = mpi_win_set_name_f +#pragma weak pmpi_win_set_name_ = mpi_win_set_name_f +#pragma weak pmpi_win_set_name__ = mpi_win_set_name_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_WIN_SET_NAME, + pmpi_win_set_name, + pmpi_win_set_name_, + pmpi_win_set_name__, + pmpi_win_set_name_f, + (MPI_Fint *win, char *win_name, MPI_Fint *ierr), + (win, win_name, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_WIN_SET_NAME = mpi_win_set_name_f +#pragma weak mpi_win_set_name = mpi_win_set_name_f +#pragma weak mpi_win_set_name_ = mpi_win_set_name_f +#pragma weak mpi_win_set_name__ = mpi_win_set_name_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_WIN_SET_NAME, + mpi_win_set_name, + mpi_win_set_name_, + mpi_win_set_name__, + mpi_win_set_name_f, + (MPI_Fint *win, char *win_name, MPI_Fint *ierr), + (win, win_name, ierr) ) +#endif + +void mpi_win_set_name_f(MPI_Fint *win, char *win_name, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/win_start_f.c b/src/mpi/f77/win_start_f.c new file mode 100644 index 0000000000..35f609aa53 --- /dev/null +++ b/src/mpi/f77/win_start_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_WIN_START = mpi_win_start_f +#pragma weak pmpi_win_start = mpi_win_start_f +#pragma weak pmpi_win_start_ = mpi_win_start_f +#pragma weak pmpi_win_start__ = mpi_win_start_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_WIN_START, + pmpi_win_start, + pmpi_win_start_, + pmpi_win_start__, + pmpi_win_start_f, + (MPI_Fint *group, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr), + (group, assert, win, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_WIN_START = mpi_win_start_f +#pragma weak mpi_win_start = mpi_win_start_f +#pragma weak mpi_win_start_ = mpi_win_start_f +#pragma weak mpi_win_start__ = mpi_win_start_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_WIN_START, + mpi_win_start, + mpi_win_start_, + mpi_win_start__, + mpi_win_start_f, + (MPI_Fint *group, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr), + (group, assert, win, ierr) ) +#endif + +void mpi_win_start_f(MPI_Fint *group, MPI_Fint *assert, MPI_Fint *win, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/win_test_f.c b/src/mpi/f77/win_test_f.c new file mode 100644 index 0000000000..100a453481 --- /dev/null +++ b/src/mpi/f77/win_test_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_WIN_TEST = mpi_win_test_f +#pragma weak pmpi_win_test = mpi_win_test_f +#pragma weak pmpi_win_test_ = mpi_win_test_f +#pragma weak pmpi_win_test__ = mpi_win_test_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_WIN_TEST, + pmpi_win_test, + pmpi_win_test_, + pmpi_win_test__, + pmpi_win_test_f, + (MPI_Fint *win, MPI_Fint *flag, MPI_Fint *ierr), + (win, flag, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_WIN_TEST = mpi_win_test_f +#pragma weak mpi_win_test = mpi_win_test_f +#pragma weak mpi_win_test_ = mpi_win_test_f +#pragma weak mpi_win_test__ = mpi_win_test_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_WIN_TEST, + mpi_win_test, + mpi_win_test_, + mpi_win_test__, + mpi_win_test_f, + (MPI_Fint *win, MPI_Fint *flag, MPI_Fint *ierr), + (win, flag, ierr) ) +#endif + +void mpi_win_test_f(MPI_Fint *win, MPI_Fint *flag, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/win_unlock_f.c b/src/mpi/f77/win_unlock_f.c new file mode 100644 index 0000000000..049dd4eccc --- /dev/null +++ b/src/mpi/f77/win_unlock_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_WIN_UNLOCK = mpi_win_unlock_f +#pragma weak pmpi_win_unlock = mpi_win_unlock_f +#pragma weak pmpi_win_unlock_ = mpi_win_unlock_f +#pragma weak pmpi_win_unlock__ = mpi_win_unlock_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_WIN_UNLOCK, + pmpi_win_unlock, + pmpi_win_unlock_, + pmpi_win_unlock__, + pmpi_win_unlock_f, + (MPI_Fint *rank, MPI_Fint *win, MPI_Fint *ierr), + (rank, win, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_WIN_UNLOCK = mpi_win_unlock_f +#pragma weak mpi_win_unlock = mpi_win_unlock_f +#pragma weak mpi_win_unlock_ = mpi_win_unlock_f +#pragma weak mpi_win_unlock__ = mpi_win_unlock_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_WIN_UNLOCK, + mpi_win_unlock, + mpi_win_unlock_, + mpi_win_unlock__, + mpi_win_unlock_f, + (MPI_Fint *rank, MPI_Fint *win, MPI_Fint *ierr), + (rank, win, ierr) ) +#endif + +void mpi_win_unlock_f(MPI_Fint *rank, MPI_Fint *win, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/win_wait_f.c b/src/mpi/f77/win_wait_f.c new file mode 100644 index 0000000000..5a7fe187a2 --- /dev/null +++ b/src/mpi/f77/win_wait_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_WIN_WAIT = mpi_win_wait_f +#pragma weak pmpi_win_wait = mpi_win_wait_f +#pragma weak pmpi_win_wait_ = mpi_win_wait_f +#pragma weak pmpi_win_wait__ = mpi_win_wait_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_WIN_WAIT, + pmpi_win_wait, + pmpi_win_wait_, + pmpi_win_wait__, + pmpi_win_wait_f, + (MPI_Fint *win, MPI_Fint *ierr), + (win, ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_WIN_WAIT = mpi_win_wait_f +#pragma weak mpi_win_wait = mpi_win_wait_f +#pragma weak mpi_win_wait_ = mpi_win_wait_f +#pragma weak mpi_win_wait__ = mpi_win_wait_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_WIN_WAIT, + mpi_win_wait, + mpi_win_wait_, + mpi_win_wait__, + mpi_win_wait_f, + (MPI_Fint *win, MPI_Fint *ierr), + (win, ierr) ) +#endif + +void mpi_win_wait_f(MPI_Fint *win, MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/wtick_f.c b/src/mpi/f77/wtick_f.c new file mode 100644 index 0000000000..86c8ebc333 --- /dev/null +++ b/src/mpi/f77/wtick_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_WTICK = mpi_wtick_f +#pragma weak pmpi_wtick = mpi_wtick_f +#pragma weak pmpi_wtick_ = mpi_wtick_f +#pragma weak pmpi_wtick__ = mpi_wtick_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_WTICK, + pmpi_wtick, + pmpi_wtick_, + pmpi_wtick__, + pmpi_wtick_f, + (MPI_Fint *ierr), + (ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_WTICK = mpi_wtick_f +#pragma weak mpi_wtick = mpi_wtick_f +#pragma weak mpi_wtick_ = mpi_wtick_f +#pragma weak mpi_wtick__ = mpi_wtick_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_WTICK, + mpi_wtick, + mpi_wtick_, + mpi_wtick__, + mpi_wtick_f, + (MPI_Fint *ierr), + (ierr) ) +#endif + +double mpi_wtick_f(MPI_Fint *ierr) +{ + +} diff --git a/src/mpi/f77/wtime_f.c b/src/mpi/f77/wtime_f.c new file mode 100644 index 0000000000..41ecaaf728 --- /dev/null +++ b/src/mpi/f77/wtime_f.c @@ -0,0 +1,47 @@ +/* + * $HEADER$ + */ + +#include "lam_config.h" + +#include + +#include "mpi.h" +#include "mpi/f77/bindings.h" + +#if LAM_HAVE_WEAK_SYMBOLS && LAM_PROFILE_LAYER +#pragma weak PMPI_WTIME = mpi_wtime_f +#pragma weak pmpi_wtime = mpi_wtime_f +#pragma weak pmpi_wtime_ = mpi_wtime_f +#pragma weak pmpi_wtime__ = mpi_wtime_f +#elif LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (PMPI_WTIME, + pmpi_wtime, + pmpi_wtime_, + pmpi_wtime__, + pmpi_wtime_f, + (MPI_Fint *ierr), + (ierr) ) +#endif + +#if LAM_HAVE_WEAK_SYMBOLS +#pragma weak MPI_WTIME = mpi_wtime_f +#pragma weak mpi_wtime = mpi_wtime_f +#pragma weak mpi_wtime_ = mpi_wtime_f +#pragma weak mpi_wtime__ = mpi_wtime_f +#endif + +#if ! LAM_HAVE_WEAK_SYMBOLS && ! LAM_PROFILE_LAYER +LAM_GENERATE_F77_BINDINGS (MPI_WTIME, + mpi_wtime, + mpi_wtime_, + mpi_wtime__, + mpi_wtime_f, + (MPI_Fint *ierr), + (ierr) ) +#endif + +double mpi_wtime_f(MPI_Fint *ierr) +{ + +}