8c2b916048
only declare MPI_* bindings and use macros to deduce the PMPI_* bindings Signed-off-by: Gilles Gouaillardet <gilles@rist.or.jp>
211 строки
8.9 KiB
Fortran
211 строки
8.9 KiB
Fortran
! -*- fortran -*-
|
|
!
|
|
! Copyright (c) 2020 Research Organization for Information Science
|
|
! and Technology (RIST). All rights reserved.
|
|
! $COPYRIGHT$
|
|
!
|
|
! Additional copyrights may follow
|
|
!
|
|
! $HEADER$
|
|
|
|
#define MPI_Wtick PMPI_Wtick
|
|
#define MPI_Wtime PMPI_Wtime
|
|
#define MPI_Abort PMPI_Abort
|
|
#define MPI_Add_error_class PMPI_Add_error_class
|
|
#define MPI_Add_error_code PMPI_Add_error_code
|
|
#define MPI_Add_error_string PMPI_Add_error_string
|
|
#define MPI_Aint_add PMPI_Aint_add
|
|
#define MPI_Aint_diff PMPI_Aint_diff
|
|
#define MPI_Barrier PMPI_Barrier
|
|
#define MPI_Ibarrier PMPI_Ibarrier
|
|
#define MPI_Cancel PMPI_Cancel
|
|
#define MPI_Cart_coords PMPI_Cart_coords
|
|
#define MPI_Cart_create PMPI_Cart_create
|
|
#define MPI_Cart_get PMPI_Cart_get
|
|
#define MPI_Cart_map PMPI_Cart_map
|
|
#define MPI_Cart_rank PMPI_Cart_rank
|
|
#define MPI_Cart_shift PMPI_Cart_shift
|
|
#define MPI_Cart_sub PMPI_Cart_sub
|
|
#define MPI_Cartdim_get PMPI_Cartdim_get
|
|
#define MPI_Comm_call_errhandler PMPI_Comm_call_errhandler
|
|
#define MPI_Comm_compare PMPI_Comm_compare
|
|
#define MPI_Comm_create PMPI_Comm_create
|
|
#define MPI_Comm_create_group PMPI_Comm_create_group
|
|
#define MPI_Comm_create_errhandler PMPI_Comm_create_errhandler
|
|
#define MPI_Comm_create_keyval PMPI_Comm_create_keyval
|
|
#define MPI_Comm_delete_attr PMPI_Comm_delete_attr
|
|
#define MPI_Comm_dup PMPI_Comm_dup
|
|
#define MPI_Comm_dup_with_info PMPI_Comm_dup_with_info
|
|
#define MPI_Comm_idup PMPI_Comm_idup
|
|
#define MPI_Comm_free PMPI_Comm_free
|
|
#define MPI_Comm_free_keyval PMPI_Comm_free_keyval
|
|
#define MPI_Comm_get_info PMPI_Comm_get_info
|
|
#define MPI_Comm_get_attr PMPI_Comm_get_attr
|
|
#define MPI_Comm_get_errhandler PMPI_Comm_get_errhandler
|
|
#define MPI_Comm_get_name PMPI_Comm_get_name
|
|
#define MPI_Comm_group PMPI_Comm_group
|
|
#define MPI_Comm_rank PMPI_Comm_rank
|
|
#define MPI_Comm_remote_group PMPI_Comm_remote_group
|
|
#define MPI_Comm_remote_size PMPI_Comm_remote_size
|
|
#define MPI_Comm_set_info PMPI_Comm_set_info
|
|
#define MPI_Comm_set_attr PMPI_Comm_set_attr
|
|
#define MPI_Comm_set_errhandler PMPI_Comm_set_errhandler
|
|
#define MPI_Comm_set_name PMPI_Comm_set_name
|
|
#define MPI_Comm_size PMPI_Comm_size
|
|
#define MPI_Comm_split PMPI_Comm_split
|
|
#define MPI_Comm_test_inter PMPI_Comm_test_inter
|
|
#define MPI_Dims_create PMPI_Dims_create
|
|
#define MPI_Errhandler_free PMPI_Errhandler_free
|
|
#define MPI_Error_class PMPI_Error_class
|
|
#define MPI_Error_string PMPI_Error_string
|
|
#define MPI_Finalize PMPI_Finalize
|
|
#define MPI_Finalized PMPI_Finalized
|
|
#define MPI_Get_count PMPI_Get_count
|
|
#define MPI_Get_elements PMPI_Get_elements
|
|
#define MPI_Get_elements_x PMPI_Get_elements_x
|
|
#define MPI_Get_processor_name PMPI_Get_processor_name
|
|
#define MPI_Get_version PMPI_Get_version
|
|
#define MPI_Graph_create PMPI_Graph_create
|
|
#define MPI_Graph_get PMPI_Graph_get
|
|
#define MPI_Graph_map PMPI_Graph_map
|
|
#define MPI_Graph_neighbors PMPI_Graph_neighbors
|
|
#define MPI_Graph_neighbors_count PMPI_Graph_neighbors_count
|
|
#define MPI_Graphdims_get PMPI_Graphdims_get
|
|
#define MPI_Grequest_complete PMPI_Grequest_complete
|
|
#define MPI_Grequest_start PMPI_Grequest_start
|
|
#define MPI_Group_compare PMPI_Group_compare
|
|
#define MPI_Group_difference PMPI_Group_difference
|
|
#define MPI_Group_excl PMPI_Group_excl
|
|
#define MPI_Group_free PMPI_Group_free
|
|
#define MPI_Group_incl PMPI_Group_incl
|
|
#define MPI_Group_intersection PMPI_Group_intersection
|
|
#define MPI_Group_range_excl PMPI_Group_range_excl
|
|
#define MPI_Group_range_incl PMPI_Group_range_incl
|
|
#define MPI_Group_rank PMPI_Group_rank
|
|
#define MPI_Group_size PMPI_Group_size
|
|
#define MPI_Group_translate_ranks PMPI_Group_translate_ranks
|
|
#define MPI_Group_union PMPI_Group_union
|
|
#define MPI_Info_create PMPI_Info_create
|
|
#define MPI_Info_delete PMPI_Info_delete
|
|
#define MPI_Info_dup PMPI_Info_dup
|
|
#define MPI_Info_free PMPI_Info_free
|
|
#define MPI_Info_get PMPI_Info_get
|
|
#define MPI_Info_get_nkeys PMPI_Info_get_nkeys
|
|
#define MPI_Info_get_nthkey PMPI_Info_get_nthkey
|
|
#define MPI_Info_get_valuelen PMPI_Info_get_valuelen
|
|
#define MPI_Info_set PMPI_Info_set
|
|
#define MPI_Init PMPI_Init
|
|
#define MPI_Init_thread PMPI_Init_thread
|
|
#define MPI_Initialized PMPI_Initialized
|
|
#define MPI_Intercomm_create PMPI_Intercomm_create
|
|
#define MPI_Intercomm_merge PMPI_Intercomm_merge
|
|
#define MPI_Iprobe PMPI_Iprobe
|
|
#define MPI_Is_thread_main PMPI_Is_thread_main
|
|
#define MPI_Op_commutative PMPI_Op_commutative
|
|
#define MPI_Op_create PMPI_Op_create
|
|
#define MPI_Op_free PMPI_Op_free
|
|
#define MPI_Pack_external_size PMPI_Pack_external_size
|
|
#define MPI_Pack_size PMPI_Pack_size
|
|
#define MPI_Pcontrol PMPI_Pcontrol
|
|
#define MPI_Probe PMPI_Probe
|
|
#define MPI_Query_thread PMPI_Query_thread
|
|
#define MPI_Register_datarep PMPI_Register_datarep
|
|
#define MPI_Request_free PMPI_Request_free
|
|
#define MPI_Request_get_status PMPI_Request_get_status
|
|
#define MPI_Start PMPI_Start
|
|
#define MPI_Startall PMPI_Startall
|
|
#define MPI_Status_f2f08 PMPI_Status_f2f08
|
|
#define MPI_Status_f082f PMPI_Status_f082f
|
|
#define MPI_Status_set_cancelled PMPI_Status_set_cancelled
|
|
#define MPI_Status_set_elements PMPI_Status_set_elements
|
|
#define MPI_Test PMPI_Test
|
|
#define MPI_Test_cancelled PMPI_Test_cancelled
|
|
#define MPI_Testall PMPI_Testall
|
|
#define MPI_Testany PMPI_Testany
|
|
#define MPI_Testsome PMPI_Testsome
|
|
#define MPI_Topo_test PMPI_Topo_test
|
|
#define MPI_Type_commit PMPI_Type_commit
|
|
#define MPI_Type_contiguous PMPI_Type_contiguous
|
|
#define MPI_Type_create_darray PMPI_Type_create_darray
|
|
#define MPI_Type_create_f90_complex PMPI_Type_create_f90_complex
|
|
#define MPI_Type_create_f90_integer PMPI_Type_create_f90_integer
|
|
#define MPI_Type_create_f90_real PMPI_Type_create_f90_real
|
|
#define MPI_Type_create_hindexed PMPI_Type_create_hindexed
|
|
#define MPI_Type_create_hvector PMPI_Type_create_hvector
|
|
#define MPI_Type_create_indexed_block PMPI_Type_create_indexed_block
|
|
#define MPI_Type_create_keyval PMPI_Type_create_keyval
|
|
#define MPI_Type_create_resized PMPI_Type_create_resized
|
|
#define MPI_Type_create_struct PMPI_Type_create_struct
|
|
#define MPI_Type_create_subarray PMPI_Type_create_subarray
|
|
#define MPI_Type_delete_attr PMPI_Type_delete_attr
|
|
#define MPI_Type_dup PMPI_Type_dup
|
|
#define MPI_Type_free PMPI_Type_free
|
|
#define MPI_Type_free_keyval PMPI_Type_free_keyval
|
|
#define MPI_Type_get_attr PMPI_Type_get_attr
|
|
#define MPI_Type_get_contents PMPI_Type_get_contents
|
|
#define MPI_Type_get_envelope PMPI_Type_get_envelope
|
|
#define MPI_Type_get_extent PMPI_Type_get_extent
|
|
#define MPI_Type_get_extent_x PMPI_Type_get_extent_x
|
|
#define MPI_Type_get_name PMPI_Type_get_name
|
|
#define MPI_Type_get_true_extent PMPI_Type_get_true_extent
|
|
#define MPI_Type_get_true_extent_x PMPI_Type_get_true_extent_x
|
|
#define MPI_Type_indexed PMPI_Type_indexed
|
|
#define MPI_Type_match_size PMPI_Type_match_size
|
|
#define MPI_Type_set_attr PMPI_Type_set_attr
|
|
#define MPI_Type_set_name PMPI_Type_set_name
|
|
#define MPI_Type_size PMPI_Type_size
|
|
#define MPI_Type_size_x PMPI_Type_size_x
|
|
#define MPI_Type_vector PMPI_Type_vector
|
|
#define MPI_Wait PMPI_Wait
|
|
#define MPI_Waitall PMPI_Waitall
|
|
#define MPI_Waitany PMPI_Waitany
|
|
#define MPI_Waitsome PMPI_Waitsome
|
|
#define MPI_Win_call_errhandler PMPI_Win_call_errhandler
|
|
#define MPI_Win_complete PMPI_Win_complete
|
|
#define MPI_Win_create_errhandler PMPI_Win_create_errhandler
|
|
#define MPI_Win_create_keyval PMPI_Win_create_keyval
|
|
#define MPI_Win_delete_attr PMPI_Win_delete_attr
|
|
#define MPI_Win_fence PMPI_Win_fence
|
|
#define MPI_Win_free PMPI_Win_free
|
|
#define MPI_Win_free_keyval PMPI_Win_free_keyval
|
|
#define MPI_Win_get_attr PMPI_Win_get_attr
|
|
#define MPI_Win_get_errhandler PMPI_Win_get_errhandler
|
|
#define MPI_Win_get_group PMPI_Win_get_group
|
|
#define MPI_Win_get_name PMPI_Win_get_name
|
|
#define MPI_Win_lock PMPI_Win_lock
|
|
#define MPI_Win_post PMPI_Win_post
|
|
#define MPI_Win_set_attr PMPI_Win_set_attr
|
|
#define MPI_Win_set_errhandler PMPI_Win_set_errhandler
|
|
#define MPI_Win_set_name PMPI_Win_set_name
|
|
#define MPI_Win_start PMPI_Win_start
|
|
#define MPI_Win_test PMPI_Win_test
|
|
#define MPI_Win_unlock PMPI_Win_unlock
|
|
#define MPI_Win_wait PMPI_Win_wait
|
|
#define MPI_Close_port PMPI_Close_port
|
|
#define MPI_Lookup_name PMPI_Lookup_name
|
|
#define MPI_Open_port PMPI_Open_port
|
|
#define MPI_Publish_name PMPI_Publish_name
|
|
#define MPI_Unpublish_name PMPI_Unpublish_name
|
|
#define MPI_Comm_disconnect PMPI_Comm_disconnect
|
|
#define MPI_Comm_get_parent PMPI_Comm_get_parent
|
|
#define MPI_Comm_join PMPI_Comm_join
|
|
#define MPI_Comm_accept PMPI_Comm_accept
|
|
#define MPI_Comm_connect PMPI_Comm_connect
|
|
#define MPI_Comm_spawn PMPI_Comm_spawn
|
|
#define MPI_Comm_spawn_multiple PMPI_Comm_spawn_multiple
|
|
#define MPI_Mprobe PMPI_Mprobe
|
|
#define MPI_Improbe PMPI_Improbe
|
|
#define MPI_Get_library_version PMPI_Get_library_version
|
|
#define MPI_Comm_split_type PMPI_Comm_split_type
|
|
#define MPI_Type_create_hindexed_block PMPI_Type_create_hindexed_block
|
|
#define MPI_Dist_graph_create PMPI_Dist_graph_create
|
|
#define MPI_Dist_graph_create_adjacent PMPI_Dist_graph_create_adjacent
|
|
#define MPI_Dist_graph_neighbors_count PMPI_Dist_graph_neighbors_count
|
|
#define MPI_Dist_graph_neighbors PMPI_Dist_graph_neighbors
|
|
#define MPI_Win_flush PMPI_Win_flush
|
|
#define MPI_Win_flush_all PMPI_Win_flush_all
|
|
#define MPI_Win_flush_local PMPI_Win_flush_local
|
|
#define MPI_Win_flush_local_all PMPI_Win_flush_local_all
|
|
|
|
#include "ompi/mpi/fortran/use-mpi-tkr/mpi-f90-interfaces.h"
|