Fortran bindings, here they come
This commit was SVN r1036.
Этот коммит содержится в:
Prabhanjan Kambadur
родитель
3bdd6f3433
Коммит
044ff3749a
@ -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)
|
||||
#
|
||||
|
||||
47
src/mpi/f77/abort_f.c
Обычный файл
47
src/mpi/f77/abort_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/accumulate_f.c
Обычный файл
47
src/mpi/f77/accumulate_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/add_error_class_f.c
Обычный файл
47
src/mpi/f77/add_error_class_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/add_error_code_f.c
Обычный файл
47
src/mpi/f77/add_error_code_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/add_error_string_f.c
Обычный файл
47
src/mpi/f77/add_error_string_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/address_f.c
Обычный файл
47
src/mpi/f77/address_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/allgather_f.c
Обычный файл
47
src/mpi/f77/allgather_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/allgatherv_f.c
Обычный файл
47
src/mpi/f77/allgatherv_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
@ -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
|
||||
|
||||
}
|
||||
|
||||
47
src/mpi/f77/allreduce_f.c
Обычный файл
47
src/mpi/f77/allreduce_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/alltoall_f.c
Обычный файл
47
src/mpi/f77/alltoall_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/alltoallv_f.c
Обычный файл
47
src/mpi/f77/alltoallv_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/alltoallw_f.c
Обычный файл
47
src/mpi/f77/alltoallw_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/attr_delete_f.c
Обычный файл
47
src/mpi/f77/attr_delete_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/attr_get_f.c
Обычный файл
47
src/mpi/f77/attr_get_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/attr_put_f.c
Обычный файл
47
src/mpi/f77/attr_put_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/barrier_f.c
Обычный файл
47
src/mpi/f77/barrier_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/bcast_f.c
Обычный файл
47
src/mpi/f77/bcast_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/bsend_f.c
Обычный файл
47
src/mpi/f77/bsend_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/bsend_init_f.c
Обычный файл
47
src/mpi/f77/bsend_init_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/buffer_attach_f.c
Обычный файл
47
src/mpi/f77/buffer_attach_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/buffer_detach_f.c
Обычный файл
47
src/mpi/f77/buffer_detach_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/cancel_f.c
Обычный файл
47
src/mpi/f77/cancel_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/cart_coords_f.c
Обычный файл
47
src/mpi/f77/cart_coords_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/cart_create_f.c
Обычный файл
47
src/mpi/f77/cart_create_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/cart_get_f.c
Обычный файл
47
src/mpi/f77/cart_get_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/cart_map_f.c
Обычный файл
47
src/mpi/f77/cart_map_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/cart_rank_f.c
Обычный файл
47
src/mpi/f77/cart_rank_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/cart_shift_f.c
Обычный файл
47
src/mpi/f77/cart_shift_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/cart_sub_f.c
Обычный файл
47
src/mpi/f77/cart_sub_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/cartdim_get_f.c
Обычный файл
47
src/mpi/f77/cartdim_get_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/close_port_f.c
Обычный файл
47
src/mpi/f77/close_port_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/comm_accept_f.c
Обычный файл
47
src/mpi/f77/comm_accept_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/comm_call_errhandler_f.c
Обычный файл
47
src/mpi/f77/comm_call_errhandler_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/comm_compare_f.c
Обычный файл
47
src/mpi/f77/comm_compare_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/comm_connect_f.c
Обычный файл
47
src/mpi/f77/comm_connect_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/comm_create_errhandler_f.c
Обычный файл
47
src/mpi/f77/comm_create_errhandler_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/comm_create_f.c
Обычный файл
47
src/mpi/f77/comm_create_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/comm_create_keyval_f.c
Обычный файл
47
src/mpi/f77/comm_create_keyval_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/comm_delete_attr_f.c
Обычный файл
47
src/mpi/f77/comm_delete_attr_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/comm_disconnect_f.c
Обычный файл
47
src/mpi/f77/comm_disconnect_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/comm_dup_f.c
Обычный файл
47
src/mpi/f77/comm_dup_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/comm_free_f.c
Обычный файл
47
src/mpi/f77/comm_free_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/comm_free_keyval_f.c
Обычный файл
47
src/mpi/f77/comm_free_keyval_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/comm_get_attr_f.c
Обычный файл
47
src/mpi/f77/comm_get_attr_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/comm_get_errhandler_f.c
Обычный файл
47
src/mpi/f77/comm_get_errhandler_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
@ -4,10 +4,11 @@
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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);
|
||||
}
|
||||
|
||||
47
src/mpi/f77/comm_get_parent_f.c
Обычный файл
47
src/mpi/f77/comm_get_parent_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/comm_group_f.c
Обычный файл
47
src/mpi/f77/comm_group_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/comm_join_f.c
Обычный файл
47
src/mpi/f77/comm_join_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/comm_rank_f.c
Обычный файл
47
src/mpi/f77/comm_rank_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/comm_remote_group_f.c
Обычный файл
47
src/mpi/f77/comm_remote_group_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/comm_remote_size_f.c
Обычный файл
47
src/mpi/f77/comm_remote_size_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/comm_set_attr_f.c
Обычный файл
47
src/mpi/f77/comm_set_attr_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/comm_set_errhandler_f.c
Обычный файл
47
src/mpi/f77/comm_set_errhandler_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
@ -4,6 +4,8 @@
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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);
|
||||
}
|
||||
|
||||
47
src/mpi/f77/comm_size_f.c
Обычный файл
47
src/mpi/f77/comm_size_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/comm_spawn_f.c
Обычный файл
47
src/mpi/f77/comm_spawn_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/comm_spawn_multiple_f.c
Обычный файл
47
src/mpi/f77/comm_spawn_multiple_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/comm_split_f.c
Обычный файл
47
src/mpi/f77/comm_split_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/comm_test_inter_f.c
Обычный файл
47
src/mpi/f77/comm_test_inter_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/dims_create_f.c
Обычный файл
47
src/mpi/f77/dims_create_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/errhandler_create_f.c
Обычный файл
47
src/mpi/f77/errhandler_create_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/errhandler_free_f.c
Обычный файл
47
src/mpi/f77/errhandler_free_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/errhandler_get_f.c
Обычный файл
47
src/mpi/f77/errhandler_get_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/errhandler_set_f.c
Обычный файл
47
src/mpi/f77/errhandler_set_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/error_class_f.c
Обычный файл
47
src/mpi/f77/error_class_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/error_string_f.c
Обычный файл
47
src/mpi/f77/error_string_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/exscan_f.c
Обычный файл
47
src/mpi/f77/exscan_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/file_call_errhandler_f.c
Обычный файл
47
src/mpi/f77/file_call_errhandler_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/file_close_f.c
Обычный файл
47
src/mpi/f77/file_close_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/file_create_errhandler_f.c
Обычный файл
47
src/mpi/f77/file_create_errhandler_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/file_delete_f.c
Обычный файл
47
src/mpi/f77/file_delete_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/file_get_amode_f.c
Обычный файл
47
src/mpi/f77/file_get_amode_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/file_get_atomicity_f.c
Обычный файл
47
src/mpi/f77/file_get_atomicity_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/file_get_byte_offset_f.c
Обычный файл
47
src/mpi/f77/file_get_byte_offset_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/file_get_errhandler_f.c
Обычный файл
47
src/mpi/f77/file_get_errhandler_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/file_get_group_f.c
Обычный файл
47
src/mpi/f77/file_get_group_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/file_get_info_f.c
Обычный файл
47
src/mpi/f77/file_get_info_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/file_get_position_f.c
Обычный файл
47
src/mpi/f77/file_get_position_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/file_get_position_shared_f.c
Обычный файл
47
src/mpi/f77/file_get_position_shared_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/file_get_size_f.c
Обычный файл
47
src/mpi/f77/file_get_size_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/file_get_type_extent_f.c
Обычный файл
47
src/mpi/f77/file_get_type_extent_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/file_get_view_f.c
Обычный файл
47
src/mpi/f77/file_get_view_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/file_iread_at_f.c
Обычный файл
47
src/mpi/f77/file_iread_at_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/file_iread_f.c
Обычный файл
47
src/mpi/f77/file_iread_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/file_iread_shared_f.c
Обычный файл
47
src/mpi/f77/file_iread_shared_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/file_iwrite_at_f.c
Обычный файл
47
src/mpi/f77/file_iwrite_at_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/file_iwrite_f.c
Обычный файл
47
src/mpi/f77/file_iwrite_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/file_iwrite_shared_f.c
Обычный файл
47
src/mpi/f77/file_iwrite_shared_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/file_open_f.c
Обычный файл
47
src/mpi/f77/file_open_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/file_preallocate_f.c
Обычный файл
47
src/mpi/f77/file_preallocate_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/file_read_all_begin_f.c
Обычный файл
47
src/mpi/f77/file_read_all_begin_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/file_read_all_end_f.c
Обычный файл
47
src/mpi/f77/file_read_all_end_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/file_read_all_f.c
Обычный файл
47
src/mpi/f77/file_read_all_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/file_read_at_all_begin_f.c
Обычный файл
47
src/mpi/f77/file_read_at_all_begin_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/file_read_at_all_end_f.c
Обычный файл
47
src/mpi/f77/file_read_at_all_end_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/file_read_at_all_f.c
Обычный файл
47
src/mpi/f77/file_read_at_all_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
47
src/mpi/f77/file_read_at_f.c
Обычный файл
47
src/mpi/f77/file_read_at_f.c
Обычный файл
@ -0,0 +1,47 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include "lam_config.h"
|
||||
|
||||
#include <stdio.h>
|
||||
|
||||
#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)
|
||||
{
|
||||
|
||||
}
|
||||
Некоторые файлы не были показаны из-за слишком большого количества измененных файлов Показать больше
Загрузка…
Ссылка в новой задаче
Block a user