fortran/use-mpi-f08: generates PMPI bindings from the MPI bindings
- via the OMPI_BUILD_MPI_PROFILING macro, avoid the need to have two distinct source files for MPI_* and PMPI_* bindings. - move the PMPI bindings into ompi/mpi/fortran/use-mpi-f08/profile. - remove an useless dependency to mpi-f08.lo - share most of mod/[p]mpi-f08-interfaces.F90 code in a single mod/mpi-f08-interfaces.h Signed-off-by: Gilles Gouaillardet <gilles@rist.or.jp>
Этот коммит содержится в:
Gilles Gouaillardet
родитель
3ba35c97ce
Коммит
5219241d13
@ -40,6 +40,7 @@ AC_DEFUN([OMPI_CONFIG_FILES],[
|
||||
ompi/mpi/fortran/use-mpi-ignore-tkr/mpi-ignore-tkr-removed-interfaces.h
|
||||
ompi/mpi/fortran/use-mpi-f08/Makefile
|
||||
ompi/mpi/fortran/use-mpi-f08/base/Makefile
|
||||
ompi/mpi/fortran/use-mpi-f08/profile/Makefile
|
||||
ompi/mpi/fortran/use-mpi-f08/bindings/Makefile
|
||||
ompi/mpi/fortran/use-mpi-f08/mod/Makefile
|
||||
ompi/mpi/fortran/mpiext-use-mpi/Makefile
|
||||
|
||||
@ -21,6 +21,8 @@
|
||||
# $HEADER$
|
||||
#
|
||||
|
||||
SUBDIRS = profile
|
||||
|
||||
include $(top_srcdir)/Makefile.ompi-rules
|
||||
|
||||
# Note that Automake's Fortran-buidling rules uses CPPFLAGS and
|
||||
@ -34,13 +36,15 @@ AM_CPPFLAGS =
|
||||
# MPI bindings.
|
||||
if OMPI_BUILD_FORTRAN_USEMPIF08_BINDINGS
|
||||
|
||||
AM_FCFLAGS = -I$(top_builddir)/ompi/include \
|
||||
AM_FCFLAGS = -I$(top_srcdir)/ompi/mpi/fortran/use-mpi-f08/mod \
|
||||
-I$(top_builddir)/ompi/include \
|
||||
-I$(top_srcdir)/ompi/include \
|
||||
$(OMPI_FC_MODULE_FLAG)$(top_builddir)/ompi/mpi/fortran/use-mpi \
|
||||
$(OMPI_FC_MODULE_FLAG)$(top_builddir)/ompi/$(OMPI_FORTRAN_USEMPI_DIR) \
|
||||
$(OMPI_FC_MODULE_FLAG)mod \
|
||||
$(OMPI_FC_MODULE_FLAG)bindings \
|
||||
-I$(top_srcdir) -I$(top_builddir) $(FCFLAGS_f90)
|
||||
-I$(top_srcdir) -I$(top_builddir) $(FCFLAGS_f90) \
|
||||
-DOMPI_BUILD_MPI_PROFILING=0
|
||||
|
||||
MOSTLYCLEANFILES = *.mod
|
||||
|
||||
@ -458,361 +462,8 @@ mpi_api_files = \
|
||||
# list. :-(
|
||||
#pmpi_api_files = $(mpi_api_files:%=profile/p%)
|
||||
|
||||
pmpi_api_files = \
|
||||
profile/pabort_f08.F90 \
|
||||
profile/paccumulate_f08.F90 \
|
||||
profile/padd_error_class_f08.F90 \
|
||||
profile/padd_error_code_f08.F90 \
|
||||
profile/padd_error_string_f08.F90 \
|
||||
profile/paint_add_f08.F90 \
|
||||
profile/paint_diff_f08.F90 \
|
||||
profile/pallgather_f08.F90 \
|
||||
profile/pallgatherv_f08.F90 \
|
||||
profile/palloc_mem_f08.F90 \
|
||||
profile/pallreduce_f08.F90 \
|
||||
profile/palltoall_f08.F90 \
|
||||
profile/palltoallv_f08.F90 \
|
||||
profile/palltoallw_f08.F90 \
|
||||
profile/pbarrier_f08.F90 \
|
||||
profile/pbcast_f08.F90 \
|
||||
profile/pbsend_f08.F90 \
|
||||
profile/pbsend_init_f08.F90 \
|
||||
profile/pbuffer_attach_f08.F90 \
|
||||
profile/pbuffer_detach_f08.F90 \
|
||||
profile/pcancel_f08.F90 \
|
||||
profile/pcart_coords_f08.F90 \
|
||||
profile/pcart_create_f08.F90 \
|
||||
profile/pcartdim_get_f08.F90 \
|
||||
profile/pcart_get_f08.F90 \
|
||||
profile/pcart_map_f08.F90 \
|
||||
profile/pcart_rank_f08.F90 \
|
||||
profile/pcart_shift_f08.F90 \
|
||||
profile/pcart_sub_f08.F90 \
|
||||
profile/pclose_port_f08.F90 \
|
||||
profile/pcomm_accept_f08.F90 \
|
||||
profile/pcomm_call_errhandler_f08.F90 \
|
||||
profile/pcomm_compare_f08.F90 \
|
||||
profile/pcomm_connect_f08.F90 \
|
||||
profile/pcomm_create_errhandler_f08.F90 \
|
||||
profile/pcomm_create_f08.F90 \
|
||||
profile/pcomm_create_group_f08.F90 \
|
||||
profile/pcomm_create_keyval_f08.F90 \
|
||||
profile/pcomm_delete_attr_f08.F90 \
|
||||
profile/pcomm_disconnect_f08.F90 \
|
||||
profile/pcomm_dup_f08.F90 \
|
||||
profile/pcomm_dup_with_info_f08.F90 \
|
||||
profile/pcomm_idup_f08.F90 \
|
||||
profile/pcomm_free_f08.F90 \
|
||||
profile/pcomm_free_keyval_f08.F90 \
|
||||
profile/pcomm_get_attr_f08.F90 \
|
||||
profile/pcomm_get_errhandler_f08.F90 \
|
||||
profile/pcomm_get_info_f08.F90 \
|
||||
profile/pcomm_get_name_f08.F90 \
|
||||
profile/pcomm_get_parent_f08.F90 \
|
||||
profile/pcomm_group_f08.F90 \
|
||||
profile/pcomm_join_f08.F90 \
|
||||
profile/pcomm_rank_f08.F90 \
|
||||
profile/pcomm_remote_group_f08.F90 \
|
||||
profile/pcomm_remote_size_f08.F90 \
|
||||
profile/pcomm_set_attr_f08.F90 \
|
||||
profile/pcomm_set_errhandler_f08.F90 \
|
||||
profile/pcomm_set_info_f08.F90 \
|
||||
profile/pcomm_set_name_f08.F90 \
|
||||
profile/pcomm_size_f08.F90 \
|
||||
profile/pcomm_spawn_f08.F90 \
|
||||
profile/pcomm_spawn_multiple_f08.F90 \
|
||||
profile/pcomm_split_f08.F90 \
|
||||
profile/pcomm_split_type_f08.F90 \
|
||||
profile/pcomm_test_inter_f08.F90 \
|
||||
profile/pcompare_and_swap_f08.F90 \
|
||||
profile/pdims_create_f08.F90 \
|
||||
profile/pdist_graph_create_adjacent_f08.F90 \
|
||||
profile/pdist_graph_create_f08.F90 \
|
||||
profile/pdist_graph_neighbors_count_f08.F90 \
|
||||
profile/pdist_graph_neighbors_f08.F90 \
|
||||
profile/perrhandler_free_f08.F90 \
|
||||
profile/perror_class_f08.F90 \
|
||||
profile/perror_string_f08.F90 \
|
||||
profile/pexscan_f08.F90 \
|
||||
profile/pf_sync_reg_f08.F90 \
|
||||
profile/pfetch_and_op_f08.F90 \
|
||||
profile/pfile_call_errhandler_f08.F90 \
|
||||
profile/pfile_close_f08.F90 \
|
||||
profile/pfile_create_errhandler_f08.F90 \
|
||||
profile/pfile_delete_f08.F90 \
|
||||
profile/pfile_get_amode_f08.F90 \
|
||||
profile/pfile_get_atomicity_f08.F90 \
|
||||
profile/pfile_get_byte_offset_f08.F90 \
|
||||
profile/pfile_get_errhandler_f08.F90 \
|
||||
profile/pfile_get_group_f08.F90 \
|
||||
profile/pfile_get_info_f08.F90 \
|
||||
profile/pfile_get_position_f08.F90 \
|
||||
profile/pfile_get_position_shared_f08.F90 \
|
||||
profile/pfile_get_size_f08.F90 \
|
||||
profile/pfile_get_type_extent_f08.F90 \
|
||||
profile/pfile_get_view_f08.F90 \
|
||||
profile/pfile_iread_at_f08.F90 \
|
||||
profile/pfile_iread_f08.F90 \
|
||||
profile/pfile_iread_at_all_f08.F90 \
|
||||
profile/pfile_iread_all_f08.F90 \
|
||||
profile/pfile_iread_shared_f08.F90 \
|
||||
profile/pfile_iwrite_at_f08.F90 \
|
||||
profile/pfile_iwrite_f08.F90 \
|
||||
profile/pfile_iwrite_at_all_f08.F90 \
|
||||
profile/pfile_iwrite_all_f08.F90 \
|
||||
profile/pfile_iwrite_shared_f08.F90 \
|
||||
profile/pfile_open_f08.F90 \
|
||||
profile/pfile_preallocate_f08.F90 \
|
||||
profile/pfile_read_all_begin_f08.F90 \
|
||||
profile/pfile_read_all_end_f08.F90 \
|
||||
profile/pfile_read_all_f08.F90 \
|
||||
profile/pfile_read_at_all_begin_f08.F90 \
|
||||
profile/pfile_read_at_all_end_f08.F90 \
|
||||
profile/pfile_read_at_all_f08.F90 \
|
||||
profile/pfile_read_at_f08.F90 \
|
||||
profile/pfile_read_f08.F90 \
|
||||
profile/pfile_read_ordered_begin_f08.F90 \
|
||||
profile/pfile_read_ordered_end_f08.F90 \
|
||||
profile/pfile_read_ordered_f08.F90 \
|
||||
profile/pfile_read_shared_f08.F90 \
|
||||
profile/pfile_seek_f08.F90 \
|
||||
profile/pfile_seek_shared_f08.F90 \
|
||||
profile/pfile_set_atomicity_f08.F90 \
|
||||
profile/pfile_set_errhandler_f08.F90 \
|
||||
profile/pfile_set_info_f08.F90 \
|
||||
profile/pfile_set_size_f08.F90 \
|
||||
profile/pfile_set_view_f08.F90 \
|
||||
profile/pfile_sync_f08.F90 \
|
||||
profile/pfile_write_all_begin_f08.F90 \
|
||||
profile/pfile_write_all_end_f08.F90 \
|
||||
profile/pfile_write_all_f08.F90 \
|
||||
profile/pfile_write_at_all_begin_f08.F90 \
|
||||
profile/pfile_write_at_all_end_f08.F90 \
|
||||
profile/pfile_write_at_all_f08.F90 \
|
||||
profile/pfile_write_at_f08.F90 \
|
||||
profile/pfile_write_f08.F90 \
|
||||
profile/pfile_write_ordered_begin_f08.F90 \
|
||||
profile/pfile_write_ordered_end_f08.F90 \
|
||||
profile/pfile_write_ordered_f08.F90 \
|
||||
profile/pfile_write_shared_f08.F90 \
|
||||
profile/pfinalized_f08.F90 \
|
||||
profile/pfinalize_f08.F90 \
|
||||
profile/pfree_mem_f08.F90 \
|
||||
profile/pgather_f08.F90 \
|
||||
profile/pgatherv_f08.F90 \
|
||||
profile/pget_accumulate_f08.F90 \
|
||||
profile/pget_address_f08.F90 \
|
||||
profile/pget_count_f08.F90 \
|
||||
profile/pget_elements_f08.F90 \
|
||||
profile/pget_elements_x_f08.F90 \
|
||||
profile/pget_f08.F90 \
|
||||
profile/pget_library_version_f08.F90 \
|
||||
profile/pget_processor_name_f08.F90 \
|
||||
profile/pget_version_f08.F90 \
|
||||
profile/pgraph_create_f08.F90 \
|
||||
profile/pgraphdims_get_f08.F90 \
|
||||
profile/pgraph_get_f08.F90 \
|
||||
profile/pgraph_map_f08.F90 \
|
||||
profile/pgraph_neighbors_count_f08.F90 \
|
||||
profile/pgraph_neighbors_f08.F90 \
|
||||
profile/pgrequest_complete_f08.F90 \
|
||||
profile/pgrequest_start_f08.F90 \
|
||||
profile/pgroup_compare_f08.F90 \
|
||||
profile/pgroup_difference_f08.F90 \
|
||||
profile/pgroup_excl_f08.F90 \
|
||||
profile/pgroup_free_f08.F90 \
|
||||
profile/pgroup_incl_f08.F90 \
|
||||
profile/pgroup_intersection_f08.F90 \
|
||||
profile/pgroup_range_excl_f08.F90 \
|
||||
profile/pgroup_range_incl_f08.F90 \
|
||||
profile/pgroup_rank_f08.F90 \
|
||||
profile/pgroup_size_f08.F90 \
|
||||
profile/pgroup_translate_ranks_f08.F90 \
|
||||
profile/pgroup_union_f08.F90 \
|
||||
profile/piallgather_f08.F90 \
|
||||
profile/piallgatherv_f08.F90 \
|
||||
profile/piallreduce_f08.F90 \
|
||||
profile/pialltoall_f08.F90 \
|
||||
profile/pialltoallv_f08.F90 \
|
||||
profile/pialltoallw_f08.F90 \
|
||||
profile/pibarrier_f08.F90 \
|
||||
profile/pibcast_f08.F90 \
|
||||
profile/pibsend_f08.F90 \
|
||||
profile/pigather_f08.F90 \
|
||||
profile/pigatherv_f08.F90 \
|
||||
profile/piexscan_f08.F90 \
|
||||
profile/pimprobe_f08.F90 \
|
||||
profile/pimrecv_f08.F90 \
|
||||
profile/pineighbor_allgather_f08.F90 \
|
||||
profile/pineighbor_allgatherv_f08.F90 \
|
||||
profile/pineighbor_alltoall_f08.F90 \
|
||||
profile/pineighbor_alltoallv_f08.F90 \
|
||||
profile/pineighbor_alltoallw_f08.F90 \
|
||||
profile/pinfo_create_f08.F90 \
|
||||
profile/pinfo_delete_f08.F90 \
|
||||
profile/pinfo_dup_f08.F90 \
|
||||
profile/pinfo_free_f08.F90 \
|
||||
profile/pinfo_get_f08.F90 \
|
||||
profile/pinfo_get_nkeys_f08.F90 \
|
||||
profile/pinfo_get_nthkey_f08.F90 \
|
||||
profile/pinfo_get_valuelen_f08.F90 \
|
||||
profile/pinfo_set_f08.F90 \
|
||||
profile/pinit_f08.F90 \
|
||||
profile/pinitialized_f08.F90 \
|
||||
profile/pinit_thread_f08.F90 \
|
||||
profile/pintercomm_create_f08.F90 \
|
||||
profile/pintercomm_merge_f08.F90 \
|
||||
profile/piprobe_f08.F90 \
|
||||
profile/pirecv_f08.F90 \
|
||||
profile/pireduce_f08.F90 \
|
||||
profile/pireduce_scatter_f08.F90 \
|
||||
profile/pireduce_scatter_block_f08.F90 \
|
||||
profile/pirsend_f08.F90 \
|
||||
profile/piscan_f08.F90 \
|
||||
profile/piscatter_f08.F90 \
|
||||
profile/piscatterv_f08.F90 \
|
||||
profile/pisend_f08.F90 \
|
||||
profile/pissend_f08.F90 \
|
||||
profile/pis_thread_main_f08.F90 \
|
||||
profile/plookup_name_f08.F90 \
|
||||
profile/pmprobe_f08.F90 \
|
||||
profile/pmrecv_f08.F90 \
|
||||
profile/pneighbor_allgather_f08.F90 \
|
||||
profile/pneighbor_allgatherv_f08.F90 \
|
||||
profile/pneighbor_alltoall_f08.F90 \
|
||||
profile/pneighbor_alltoallv_f08.F90 \
|
||||
profile/pneighbor_alltoallw_f08.F90 \
|
||||
profile/pop_commutative_f08.F90 \
|
||||
profile/pop_create_f08.F90 \
|
||||
profile/popen_port_f08.F90 \
|
||||
profile/pop_free_f08.F90 \
|
||||
profile/ppack_external_f08.F90 \
|
||||
profile/ppack_external_size_f08.F90 \
|
||||
profile/ppack_f08.F90 \
|
||||
profile/ppack_size_f08.F90 \
|
||||
profile/ppcontrol_f08.F90 \
|
||||
profile/pprobe_f08.F90 \
|
||||
profile/ppublish_name_f08.F90 \
|
||||
profile/pput_f08.F90 \
|
||||
profile/pquery_thread_f08.F90 \
|
||||
profile/praccumulate_f08.F90 \
|
||||
profile/precv_f08.F90 \
|
||||
profile/precv_init_f08.F90 \
|
||||
profile/preduce_f08.F90 \
|
||||
profile/preduce_local_f08.F90 \
|
||||
profile/preduce_scatter_f08.F90 \
|
||||
profile/preduce_scatter_block_f08.F90 \
|
||||
profile/pregister_datarep_f08.F90 \
|
||||
profile/prequest_free_f08.F90 \
|
||||
profile/prequest_get_status_f08.F90 \
|
||||
profile/prget_f08.F90 \
|
||||
profile/prget_accumulate_f08.F90 \
|
||||
profile/prput_f08.F90 \
|
||||
profile/prsend_f08.F90 \
|
||||
profile/prsend_init_f08.F90 \
|
||||
profile/pscan_f08.F90 \
|
||||
profile/pscatter_f08.F90 \
|
||||
profile/pscatterv_f08.F90 \
|
||||
profile/psend_f08.F90 \
|
||||
profile/psend_init_f08.F90 \
|
||||
profile/psendrecv_f08.F90 \
|
||||
profile/psendrecv_replace_f08.F90 \
|
||||
profile/pssend_f08.F90 \
|
||||
profile/pssend_init_f08.F90 \
|
||||
profile/pstartall_f08.F90 \
|
||||
profile/pstart_f08.F90 \
|
||||
profile/pstatus_f082f_f08.F90 \
|
||||
profile/pstatus_f2f08_f08.F90 \
|
||||
profile/pstatus_set_cancelled_f08.F90 \
|
||||
profile/pstatus_set_elements_f08.F90 \
|
||||
profile/pstatus_set_elements_x_f08.F90 \
|
||||
profile/ptestall_f08.F90 \
|
||||
profile/ptestany_f08.F90 \
|
||||
profile/ptest_cancelled_f08.F90 \
|
||||
profile/ptest_f08.F90 \
|
||||
profile/ptestsome_f08.F90 \
|
||||
profile/ptopo_test_f08.F90 \
|
||||
profile/ptype_commit_f08.F90 \
|
||||
profile/ptype_contiguous_f08.F90 \
|
||||
profile/ptype_create_darray_f08.F90 \
|
||||
profile/ptype_create_f90_complex_f08.F90 \
|
||||
profile/ptype_create_f90_integer_f08.F90 \
|
||||
profile/ptype_create_f90_real_f08.F90 \
|
||||
profile/ptype_create_hindexed_f08.F90 \
|
||||
profile/ptype_create_hvector_f08.F90 \
|
||||
profile/ptype_create_indexed_block_f08.F90 \
|
||||
profile/ptype_create_hindexed_block_f08.F90 \
|
||||
profile/ptype_create_keyval_f08.F90 \
|
||||
profile/ptype_create_resized_f08.F90 \
|
||||
profile/ptype_create_struct_f08.F90 \
|
||||
profile/ptype_create_subarray_f08.F90 \
|
||||
profile/ptype_delete_attr_f08.F90 \
|
||||
profile/ptype_dup_f08.F90 \
|
||||
profile/ptype_free_f08.F90 \
|
||||
profile/ptype_free_keyval_f08.F90 \
|
||||
profile/ptype_get_attr_f08.F90 \
|
||||
profile/ptype_get_contents_f08.F90 \
|
||||
profile/ptype_get_envelope_f08.F90 \
|
||||
profile/ptype_get_extent_f08.F90 \
|
||||
profile/ptype_get_extent_x_f08.F90 \
|
||||
profile/ptype_get_name_f08.F90 \
|
||||
profile/ptype_get_true_extent_f08.F90 \
|
||||
profile/ptype_get_true_extent_x_f08.F90 \
|
||||
profile/ptype_indexed_f08.F90 \
|
||||
profile/ptype_match_size_f08.F90 \
|
||||
profile/ptype_set_attr_f08.F90 \
|
||||
profile/ptype_set_name_f08.F90 \
|
||||
profile/ptype_size_f08.F90 \
|
||||
profile/ptype_size_x_f08.F90 \
|
||||
profile/ptype_vector_f08.F90 \
|
||||
profile/punpack_external_f08.F90 \
|
||||
profile/punpack_f08.F90 \
|
||||
profile/punpublish_name_f08.F90 \
|
||||
profile/pwaitall_f08.F90 \
|
||||
profile/pwaitany_f08.F90 \
|
||||
profile/pwait_f08.F90 \
|
||||
profile/pwaitsome_f08.F90 \
|
||||
profile/pwin_allocate_f08.F90 \
|
||||
profile/pwin_allocate_shared_f08.F90 \
|
||||
profile/pwin_attach_f08.F90 \
|
||||
profile/pwin_call_errhandler_f08.F90 \
|
||||
profile/pwin_complete_f08.F90 \
|
||||
profile/pwin_create_dynamic_f08.F90 \
|
||||
profile/pwin_create_errhandler_f08.F90 \
|
||||
profile/pwin_create_f08.F90 \
|
||||
profile/pwin_create_keyval_f08.F90 \
|
||||
profile/pwin_delete_attr_f08.F90 \
|
||||
profile/pwin_detach_f08.F90 \
|
||||
profile/pwin_fence_f08.F90 \
|
||||
profile/pwin_flush_f08.F90 \
|
||||
profile/pwin_flush_all_f08.F90 \
|
||||
profile/pwin_flush_local_f08.F90 \
|
||||
profile/pwin_flush_local_all_f08.F90 \
|
||||
profile/pwin_free_f08.F90 \
|
||||
profile/pwin_free_keyval_f08.F90 \
|
||||
profile/pwin_get_attr_f08.F90 \
|
||||
profile/pwin_get_errhandler_f08.F90 \
|
||||
profile/pwin_get_group_f08.F90 \
|
||||
profile/pwin_get_info_f08.F90 \
|
||||
profile/pwin_get_name_f08.F90 \
|
||||
profile/pwin_lock_f08.F90 \
|
||||
profile/pwin_lock_all_f08.F90 \
|
||||
profile/pwin_post_f08.F90 \
|
||||
profile/pwin_set_attr_f08.F90 \
|
||||
profile/pwin_set_errhandler_f08.F90 \
|
||||
profile/pwin_set_info_f08.F90 \
|
||||
profile/pwin_set_name_f08.F90 \
|
||||
profile/pwin_shared_query_f08.F90 \
|
||||
profile/pwin_start_f08.F90 \
|
||||
profile/pwin_sync_f08.F90 \
|
||||
profile/pwin_test_f08.F90 \
|
||||
profile/pwin_unlock_f08.F90 \
|
||||
profile/pwin_unlock_all_f08.F90 \
|
||||
profile/pwin_wait_f08.F90
|
||||
|
||||
lib@OMPI_LIBMPI_NAME@_usempif08_la_SOURCES = \
|
||||
$(mpi_api_files) \
|
||||
$(pmpi_api_files) \
|
||||
mpi-f08.F90
|
||||
|
||||
# These are generated; do not ship them
|
||||
@ -835,6 +486,7 @@ endif
|
||||
#
|
||||
|
||||
lib@OMPI_LIBMPI_NAME@_usempif08_la_LIBADD = \
|
||||
profile/libmpi_usempif08_pmpi.la \
|
||||
$(OMPI_MPIEXT_USEMPIF08_LIBS) \
|
||||
$(top_builddir)/ompi/mpi/fortran/mpif-h/lib@OMPI_LIBMPI_NAME@_mpifh.la \
|
||||
$(top_builddir)/ompi/lib@OMPI_LIBMPI_NAME@.la \
|
||||
@ -849,10 +501,8 @@ lib@OMPI_LIBMPI_NAME@_usempif08_la_LDFLAGS = -version-info $(libmpi_usempif08_so
|
||||
#
|
||||
|
||||
mpi_api_lo_files = $(mpi_api_files:.F90=.lo)
|
||||
pmpi_api_lo_files = $(pmpi_api_files:.F90=.lo)
|
||||
|
||||
$(mpi_api_lo_files): mpi-f08.lo bindings/libforce_usempif08_internal_bindings_to_be_built.la
|
||||
$(pmpi_api_lo_files): mpi-f08.lo bindings/libforce_usempif08_internal_bindings_to_be_built.la
|
||||
$(mpi_api_lo_files): bindings/libforce_usempif08_internal_bindings_to_be_built.la
|
||||
|
||||
mpi-f08.lo: $(module_sentinel_files) $(SIZEOF_H)
|
||||
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Abort_f08(comm,errorcode,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm
|
||||
use :: ompi_mpifh_bindings, only : ompi_abort_f
|
||||
|
||||
@ -3,12 +3,14 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Accumulate_f08(origin_addr,origin_count,origin_datatype,&
|
||||
target_rank,target_disp,target_count, &
|
||||
target_datatype,op,win,ierror)
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Add_error_class_f08(errorclass,ierror)
|
||||
use :: ompi_mpifh_bindings, only : ompi_add_error_class_f
|
||||
implicit none
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Add_error_code_f08(errorclass,errorcode,ierror)
|
||||
use :: ompi_mpifh_bindings, only : ompi_add_error_code_f
|
||||
implicit none
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2011 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Add_error_string_f08(errorcode,string,ierror)
|
||||
use :: ompi_mpifh_bindings, only : ompi_add_error_string_f
|
||||
implicit none
|
||||
|
||||
@ -3,13 +3,15 @@
|
||||
! Copyright (c) 2010-2015 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2015 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! Copyright (c) 2018 FUJITSU LIMITED. All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
function MPI_Aint_add_f08(base, disp)
|
||||
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
||||
use :: ompi_mpifh_bindings, only : ompi_aint_add_f
|
||||
|
||||
@ -3,12 +3,14 @@
|
||||
! Copyright (c) 2010-2015 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2015 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
function MPI_Aint_diff_f08(addr1, addr2)
|
||||
use :: mpi_f08_types, only : MPI_ADDRESS_KIND
|
||||
use :: ompi_mpifh_bindings, only : ompi_aint_diff_f
|
||||
|
||||
@ -3,12 +3,14 @@
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Allgather_f08(sendbuf,sendcount,sendtype,recvbuf,recvcount,recvtype,comm,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm
|
||||
use :: ompi_mpifh_bindings, only : ompi_allgather_f
|
||||
|
||||
@ -3,12 +3,14 @@
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Allgatherv_f08(sendbuf,sendcount,sendtype,recvbuf,recvcounts,&
|
||||
displs,recvtype,comm,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Alloc_mem_f08(size,info,baseptr,ierror)
|
||||
use, intrinsic :: ISO_C_BINDING, only : C_PTR
|
||||
use :: mpi_f08_types, only : MPI_Info, MPI_ADDRESS_KIND
|
||||
|
||||
@ -3,12 +3,14 @@
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Allreduce_f08(sendbuf,recvbuf,count,datatype,op,comm,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Comm
|
||||
use :: ompi_mpifh_bindings, only : ompi_allreduce_f
|
||||
|
||||
@ -3,12 +3,14 @@
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Alltoall_f08(sendbuf,sendcount,sendtype,recvbuf,&
|
||||
recvcount,recvtype,comm,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm
|
||||
|
||||
@ -3,12 +3,14 @@
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Alltoallv_f08(sendbuf,sendcounts,sdispls,sendtype,recvbuf,&
|
||||
recvcounts,rdispls,recvtype,comm,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm
|
||||
|
||||
@ -3,12 +3,14 @@
|
||||
! Copyright (c) 2009-2013 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Alltoallw_f08(sendbuf,sendcounts,sdispls,sendtypes,&
|
||||
recvbuf,recvcounts,rdispls,recvtypes,comm,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Barrier_f08(comm,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm
|
||||
use :: ompi_mpifh_bindings, only : ompi_barrier_f
|
||||
|
||||
@ -3,13 +3,15 @@
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! Copyright (c) 2018 FUJITSU LIMITED. All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Bcast_f08(buffer,count,datatype,root,comm,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm
|
||||
use :: ompi_mpifh_bindings, only : ompi_bcast_f
|
||||
|
||||
@ -3,12 +3,14 @@
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Bsend_f08(buf,count,datatype,dest,tag,comm,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm
|
||||
use :: ompi_mpifh_bindings, only : ompi_bsend_f
|
||||
|
||||
@ -3,12 +3,14 @@
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Bsend_init_f08(buf,count,datatype,dest,tag,comm,request,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Datatype, MPI_Comm, MPI_Request
|
||||
use :: ompi_mpifh_bindings, only : ompi_bsend_init_f
|
||||
|
||||
@ -3,13 +3,15 @@
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! Copyright (c) 2018 FUJITSU LIMITED. All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Buffer_attach_f08(buffer,size,ierror)
|
||||
use :: ompi_mpifh_bindings, only : ompi_buffer_attach_f
|
||||
implicit none
|
||||
|
||||
@ -3,13 +3,15 @@
|
||||
! Copyright (c) 2009-2015 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! Copyright (c) 2018 FUJITSU LIMITED. All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Buffer_detach_f08(buffer_addr,size,ierror)
|
||||
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_PTR
|
||||
use :: ompi_mpifh_bindings, only : ompi_buffer_detach_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Cancel_f08(request,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Request
|
||||
use :: ompi_mpifh_bindings, only : ompi_cancel_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Cart_coords_f08(comm,rank,maxdims,coords,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm
|
||||
use :: ompi_mpifh_bindings, only : ompi_cart_coords_f
|
||||
|
||||
@ -3,8 +3,12 @@
|
||||
! Copyright (c) 2010-2013 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2019-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Cart_create_f08(comm_old,ndims,dims,periods,reorder,comm_cart,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm
|
||||
! See note in mpi-f-interfaces-bind.h for why we "use mpi" here and
|
||||
|
||||
@ -3,8 +3,12 @@
|
||||
! Copyright (c) 2010-2013 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2019-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Cart_get_f08(comm,maxdims,dims,periods,coords,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm
|
||||
! See note in mpi-f-interfaces-bind.h for why we "use mpi" here and
|
||||
|
||||
@ -3,8 +3,12 @@
|
||||
! Copyright (c) 2010-2013 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2019-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Cart_map_f08(comm,ndims,dims,periods,newrank,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm
|
||||
! See note in mpi-f-interfaces-bind.h for why we "use mpi" here and
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Cart_rank_f08(comm,coords,rank,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm
|
||||
use :: ompi_mpifh_bindings, only : ompi_cart_rank_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Cart_shift_f08(comm,direction,disp,rank_source,rank_dest,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm
|
||||
use :: ompi_mpifh_bindings, only : ompi_cart_shift_f
|
||||
|
||||
@ -3,8 +3,12 @@
|
||||
! Copyright (c) 2010-2013 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2019-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Cart_sub_f08(comm,remain_dims,newcomm,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm
|
||||
! See note in mpi-f-interfaces-bind.h for why we "use mpi" here and
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Cartdim_get_f08(comm,ndims,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm
|
||||
use :: ompi_mpifh_bindings, only : ompi_cartdim_get_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Close_port_f08(port_name,ierror)
|
||||
use :: ompi_mpifh_bindings, only : ompi_close_port_f
|
||||
implicit none
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_accept_f08(port_name,info,root,comm,newcomm,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Info, MPI_Comm
|
||||
use :: ompi_mpifh_bindings, only : ompi_comm_accept_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_call_errhandler_f08(comm,errorcode,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm
|
||||
use :: ompi_mpifh_bindings, only : ompi_comm_call_errhandler_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_compare_f08(comm1,comm2,result,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm
|
||||
use :: ompi_mpifh_bindings, only : ompi_comm_compare_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_connect_f08(port_name,info,root,comm,newcomm,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Info, MPI_Comm
|
||||
use :: ompi_mpifh_bindings, only : ompi_comm_connect_f
|
||||
|
||||
@ -3,12 +3,14 @@
|
||||
! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_create_errhandler_f08(comm_errhandler_fn,errhandler,ierror)
|
||||
use, intrinsic :: iso_c_binding, only: c_funptr, c_funloc
|
||||
use :: mpi_f08_types, only : MPI_Errhandler
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_create_f08(comm,group,newcomm,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm, MPI_Group
|
||||
use :: ompi_mpifh_bindings, only : ompi_comm_create_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2013 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_create_group_f08(comm,group,tag,newcomm,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm, MPI_Group
|
||||
use :: ompi_mpifh_bindings, only : ompi_comm_create_group_f
|
||||
|
||||
@ -3,12 +3,14 @@
|
||||
! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_create_keyval_f08(comm_copy_attr_fn,comm_delete_attr_fn,&
|
||||
comm_keyval,extra_state,ierror)
|
||||
use, intrinsic :: iso_c_binding, only: c_funptr, c_funloc
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_delete_attr_f08(comm,comm_keyval,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm
|
||||
use :: ompi_mpifh_bindings, only : ompi_comm_delete_attr_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_disconnect_f08(comm,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm
|
||||
use :: ompi_mpifh_bindings, only : ompi_comm_disconnect_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_dup_f08(comm,newcomm,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm
|
||||
use :: ompi_mpifh_bindings, only : ompi_comm_dup_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2013 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_dup_with_info_f08(comm,info,newcomm,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm, MPI_Info
|
||||
use :: ompi_mpifh_bindings, only : ompi_comm_dup_with_info_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_free_f08(comm,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm
|
||||
use :: ompi_mpifh_bindings, only : ompi_comm_free_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_free_keyval_f08(comm_keyval,ierror)
|
||||
use :: ompi_mpifh_bindings, only : ompi_comm_free_keyval_f
|
||||
implicit none
|
||||
|
||||
@ -3,8 +3,12 @@
|
||||
! Copyright (c) 2009-2013 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2019-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_get_attr_f08(comm,comm_keyval,attribute_val,flag,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm, MPI_ADDRESS_KIND
|
||||
! See note in mpi-f-interfaces-bind.h for why we "use mpi" here and
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_get_errhandler_f08(comm,errhandler,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm, MPI_Errhandler
|
||||
use :: ompi_mpifh_bindings, only : ompi_comm_get_errhandler_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2009-2014 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_get_info_f08(comm,info_used,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm, MPI_Info
|
||||
use :: ompi_mpifh_bindings, only : ompi_comm_get_info_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_get_name_f08(comm,comm_name,resultlen,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm, MPI_MAX_OBJECT_NAME
|
||||
use :: ompi_mpifh_bindings, only : ompi_comm_get_name_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_get_parent_f08(parent,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm
|
||||
use :: ompi_mpifh_bindings, only : ompi_comm_get_parent_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_group_f08(comm,group,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm, MPI_Group
|
||||
use :: ompi_mpifh_bindings, only : ompi_comm_group_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2013 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_idup_f08(comm,newcomm,request,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm, MPI_Request
|
||||
use :: ompi_mpifh_bindings, only : ompi_comm_idup_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_join_f08(fd,intercomm,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm
|
||||
use :: ompi_mpifh_bindings, only : ompi_comm_join_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_rank_f08(comm,rank,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm
|
||||
use :: ompi_mpifh_bindings, only : ompi_comm_rank_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_remote_group_f08(comm,group,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm, MPI_Group
|
||||
use :: ompi_mpifh_bindings, only : ompi_comm_remote_group_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_remote_size_f08(comm,size,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm
|
||||
use :: ompi_mpifh_bindings, only : ompi_comm_remote_size_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_set_attr_f08(comm,comm_keyval,attribute_val,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm, MPI_ADDRESS_KIND
|
||||
use :: ompi_mpifh_bindings, only : ompi_comm_set_attr_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_set_errhandler_f08(comm,errhandler,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm, MPI_Errhandler
|
||||
use :: ompi_mpifh_bindings, only : ompi_comm_set_errhandler_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2009-2014 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_set_info_f08(comm,info,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm, MPI_Info
|
||||
use :: ompi_mpifh_bindings, only : ompi_comm_set_info_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_set_name_f08(comm,comm_name,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm
|
||||
use :: ompi_mpifh_bindings, only : ompi_comm_set_name_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_size_f08(comm,size,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm
|
||||
use :: ompi_mpifh_bindings, only : ompi_comm_size_f
|
||||
|
||||
@ -3,11 +3,13 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! Copyright (c) 2018 FUJITSU LIMITED. All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_spawn_f08(command,argv,maxprocs,info,root,comm,intercomm, &
|
||||
array_of_errcodes,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Info, MPI_Comm
|
||||
|
||||
@ -3,11 +3,13 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2015-2018 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! Copyright (c) 2015-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! Copyright (c) 2018 FUJITSU LIMITED. All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_spawn_multiple_f08(count,array_of_commands,array_of_argv, &
|
||||
array_of_maxprocs,array_of_info,root, &
|
||||
comm,intercomm,array_of_errcodes,ierror)
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_split_f08(comm,color,key,newcomm,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm
|
||||
use :: ompi_mpifh_bindings, only : ompi_comm_split_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_split_type_f08(comm,split_type,key,info,newcomm,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm, MPI_Info
|
||||
use :: ompi_mpifh_bindings, only : ompi_comm_split_type_f
|
||||
|
||||
@ -3,8 +3,12 @@
|
||||
! Copyright (c) 2009-2013 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2019-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Comm_test_inter_f08(comm,flag,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm
|
||||
! See note in mpi-f-interfaces-bind.h for why we "use mpi" here and
|
||||
|
||||
@ -3,12 +3,14 @@
|
||||
! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2014 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Compare_and_swap_f08(origin_addr,compare_addr,result_addr,&
|
||||
datatype,target_rank,target_disp,win,&
|
||||
ierror)
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Dims_create_f08(nnodes,ndims,dims,ierror)
|
||||
use :: ompi_mpifh_bindings, only : ompi_dims_create_f
|
||||
implicit none
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2013 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Dist_graph_create_adjacent_f08(comm_old,indegree,sources,sourceweights,&
|
||||
outdegree,destinations,destweights,info,&
|
||||
reorder,comm_dist_graph,ierror)
|
||||
|
||||
@ -3,8 +3,12 @@
|
||||
! Copyright (c) 2010-2013 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2019-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Dist_graph_create_f08(comm_old,n,sources,degrees,destinations,&
|
||||
weights,info,reorder,comm_dist_graph,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm, MPI_Info
|
||||
|
||||
@ -3,8 +3,12 @@
|
||||
! Copyright (c) 2010-2013 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2019-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Dist_graph_neighbors_count_f08(comm,indegree,outdegree,weighted,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm
|
||||
! See note in mpi-f-interfaces-bind.h for why we "use mpi" here and
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Dist_graph_neighbors_f08(comm,maxindegree,sources,sourceweights,&
|
||||
maxoutdegree,destinations,destweights,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Comm
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Errhandler_free_f08(errhandler,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Errhandler
|
||||
use :: ompi_mpifh_bindings, only : ompi_errhandler_free_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Error_class_f08(errorcode,errorclass,ierror)
|
||||
use :: ompi_mpifh_bindings, only : ompi_error_class_f
|
||||
implicit none
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Error_string_f08(errorcode,string,resultlen,ierror)
|
||||
use :: ompi_mpifh_bindings, only : ompi_error_string_f
|
||||
implicit none
|
||||
|
||||
@ -3,12 +3,14 @@
|
||||
! Copyright (c) 2009-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Exscan_f08(sendbuf,recvbuf,count,datatype,op,comm,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Comm
|
||||
use :: ompi_mpifh_bindings, only : ompi_exscan_f
|
||||
|
||||
@ -4,12 +4,14 @@
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All rights reserved.
|
||||
! Copyright (c) 2012 University of Oregon. All rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_F_sync_reg_f08(buf)
|
||||
use :: ompi_mpifh_bindings, only : ompi_f_sync_reg_f
|
||||
implicit none
|
||||
|
||||
@ -3,12 +3,14 @@
|
||||
! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2014 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_Fetch_and_op_f08(origin_addr,result_addr,datatype,target_rank, &
|
||||
target_disp,op,win,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Datatype, MPI_Op, MPI_Win, MPI_ADDRESS_KIND
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_File_call_errhandler_f08(fh,errorcode,ierror)
|
||||
use :: mpi_f08_types, only : MPI_File
|
||||
use :: ompi_mpifh_bindings, only : ompi_file_call_errhandler_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_File_close_f08(fh,ierror)
|
||||
use :: mpi_f08_types, only : MPI_File
|
||||
use :: ompi_mpifh_bindings, only : ompi_file_close_f
|
||||
|
||||
@ -3,12 +3,14 @@
|
||||
! Copyright (c) 2010-2014 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_File_create_errhandler_f08(file_errhandler_fn,errhandler,ierror)
|
||||
use, intrinsic :: iso_c_binding, only: c_funptr, c_funloc
|
||||
use :: mpi_f08_types, only : MPI_Errhandler
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_File_delete_f08(filename,info,ierror)
|
||||
use :: mpi_f08_types, only : MPI_Info
|
||||
use :: ompi_mpifh_bindings, only : ompi_file_delete_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_File_get_amode_f08(fh,amode,ierror)
|
||||
use :: mpi_f08_types, only : MPI_File
|
||||
use :: ompi_mpifh_bindings, only : ompi_file_get_amode_f
|
||||
|
||||
@ -3,8 +3,12 @@
|
||||
! Copyright (c) 2010-2013 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2019-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_File_get_atomicity_f08(fh,flag,ierror)
|
||||
use :: mpi_f08_types, only : MPI_File
|
||||
! See note in mpi-f-interfaces-bind.h for why we "use mpi" here and
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_File_get_byte_offset_f08(fh,offset,disp,ierror)
|
||||
use :: mpi_f08_types, only : MPI_File, MPI_OFFSET_KIND
|
||||
use :: ompi_mpifh_bindings, only : ompi_file_get_byte_offset_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_File_get_errhandler_f08(file,errhandler,ierror)
|
||||
use :: mpi_f08_types, only : MPI_File, MPI_Errhandler
|
||||
use :: ompi_mpifh_bindings, only : ompi_file_get_errhandler_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_File_get_group_f08(fh,group,ierror)
|
||||
use :: mpi_f08_types, only : MPI_File, MPI_Group
|
||||
use :: ompi_mpifh_bindings, only : ompi_file_get_group_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_File_get_info_f08(fh,info_used,ierror)
|
||||
use :: mpi_f08_types, only : MPI_File, MPI_Info
|
||||
use :: ompi_mpifh_bindings, only : ompi_file_get_info_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_File_get_position_f08(fh,offset,ierror)
|
||||
use :: mpi_f08_types, only : MPI_File, MPI_OFFSET_KIND
|
||||
use :: ompi_mpifh_bindings, only : ompi_file_get_position_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_File_get_position_shared_f08(fh,offset,ierror)
|
||||
use :: mpi_f08_types, only : MPI_File, MPI_OFFSET_KIND
|
||||
use :: ompi_mpifh_bindings, only : ompi_file_get_position_shared_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_File_get_size_f08(fh,size,ierror)
|
||||
use :: mpi_f08_types, only : MPI_File, MPI_OFFSET_KIND
|
||||
use :: ompi_mpifh_bindings, only : ompi_file_get_size_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_File_get_type_extent_f08(fh,datatype,extent,ierror)
|
||||
use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_ADDRESS_KIND
|
||||
use :: ompi_mpifh_bindings, only : ompi_file_get_type_extent_f
|
||||
|
||||
@ -3,10 +3,12 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_File_get_view_f08(fh,disp,etype,filetype,datarep,ierror)
|
||||
use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_OFFSET_KIND
|
||||
use :: ompi_mpifh_bindings, only : ompi_file_get_view_f
|
||||
|
||||
@ -3,12 +3,14 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_File_iread_all_f08(fh,buf,count,datatype,request,ierror)
|
||||
use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request
|
||||
use :: ompi_mpifh_bindings, only : ompi_file_iread_all_f
|
||||
|
||||
@ -3,12 +3,14 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_File_iread_at_all_f08(fh,offset,buf,count,datatype,request,ierror)
|
||||
use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request, MPI_OFFSET_KIND
|
||||
use :: ompi_mpifh_bindings, only : ompi_file_iread_at_all_f
|
||||
|
||||
@ -3,12 +3,14 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_File_iread_at_f08(fh,offset,buf,count,datatype,request,ierror)
|
||||
use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request, MPI_OFFSET_KIND
|
||||
use :: ompi_mpifh_bindings, only : ompi_file_iread_at_f
|
||||
|
||||
@ -3,12 +3,14 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_File_iread_f08(fh,buf,count,datatype,request,ierror)
|
||||
use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request
|
||||
use :: ompi_mpifh_bindings, only : ompi_file_iread_f
|
||||
|
||||
@ -3,12 +3,14 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_File_iread_shared_f08(fh,buf,count,datatype,request,ierror)
|
||||
use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request
|
||||
use :: ompi_mpifh_bindings, only : ompi_file_iread_shared_f
|
||||
|
||||
@ -3,12 +3,14 @@
|
||||
! Copyright (c) 2010-2012 Cisco Systems, Inc. All rights reserved.
|
||||
! Copyright (c) 2009-2012 Los Alamos National Security, LLC.
|
||||
! All Rights reserved.
|
||||
! Copyright (c) 2018 Research Organization for Information Science
|
||||
! Copyright (c) 2018-2020 Research Organization for Information Science
|
||||
! and Technology (RIST). All rights reserved.
|
||||
! $COPYRIGHT$
|
||||
|
||||
#include "ompi/mpi/fortran/configure-fortran-output.h"
|
||||
|
||||
#include "mpi-f08-rename.h"
|
||||
|
||||
subroutine MPI_File_iwrite_all_f08(fh,buf,count,datatype,request,ierror)
|
||||
use :: mpi_f08_types, only : MPI_File, MPI_Datatype, MPI_Request
|
||||
use :: ompi_mpifh_bindings, only : ompi_file_iwrite_all_f
|
||||
|
||||
Некоторые файлы не были показаны из-за слишком большого количества измененных файлов Показать больше
Загрузка…
x
Ссылка в новой задаче
Block a user