Commit 5bb87391 authored by Thomas Jahns's avatar Thomas Jahns 🤸
Browse files

Elide wrapper call.

parent c306de8c
This diff is collapsed.
...@@ -209,7 +209,7 @@ CONTAINS ...@@ -209,7 +209,7 @@ CONTAINS
END FUNCTION xt_xmap_all2all_new_f END FUNCTION xt_xmap_all2all_new_f
END INTERFACE END INTERFACE
xmap = xt_xmap_c2f(xt_xmap_all2all_new_f(src_idxlist, dst_idxlist, comm)) xmap%cptr = xt_xmap_all2all_new_f(src_idxlist, dst_idxlist, comm)
END FUNCTION xt_xmap_all2all_new END FUNCTION xt_xmap_all2all_new
FUNCTION xt_xmap_all2all_custom_new(src_idxlist, dst_idxlist, comm, config) & FUNCTION xt_xmap_all2all_custom_new(src_idxlist, dst_idxlist, comm, config) &
...@@ -233,8 +233,8 @@ CONTAINS ...@@ -233,8 +233,8 @@ CONTAINS
END FUNCTION xt_xmap_all2all_custom_new_f END FUNCTION xt_xmap_all2all_custom_new_f
END INTERFACE END INTERFACE
xmap = xt_xmap_c2f(xt_xmap_all2all_custom_new_f(src_idxlist, dst_idxlist, & xmap%cptr = xt_xmap_all2all_custom_new_f(src_idxlist, dst_idxlist, &
comm, config)) comm, config)
END FUNCTION xt_xmap_all2all_custom_new END FUNCTION xt_xmap_all2all_custom_new
FUNCTION xt_xmap_dist_dir_new(src_idxlist, dst_idxlist, comm) RESULT(xmap) FUNCTION xt_xmap_dist_dir_new(src_idxlist, dst_idxlist, comm) RESULT(xmap)
...@@ -255,7 +255,7 @@ CONTAINS ...@@ -255,7 +255,7 @@ CONTAINS
END FUNCTION xt_xmap_dist_dir_new_f END FUNCTION xt_xmap_dist_dir_new_f
END INTERFACE END INTERFACE
xmap = xt_xmap_c2f(xt_xmap_dist_dir_new_f(src_idxlist, dst_idxlist, comm)) xmap%cptr = xt_xmap_dist_dir_new_f(src_idxlist, dst_idxlist, comm)
END FUNCTION xt_xmap_dist_dir_new END FUNCTION xt_xmap_dist_dir_new
FUNCTION xt_xmap_dist_dir_custom_new(src_idxlist, dst_idxlist, comm, config) & FUNCTION xt_xmap_dist_dir_custom_new(src_idxlist, dst_idxlist, comm, config) &
...@@ -278,8 +278,8 @@ CONTAINS ...@@ -278,8 +278,8 @@ CONTAINS
TYPE(c_ptr) :: xmap_ptr TYPE(c_ptr) :: xmap_ptr
END FUNCTION xt_xmap_dist_dir_custom_new_f END FUNCTION xt_xmap_dist_dir_custom_new_f
END INTERFACE END INTERFACE
xmap = xt_xmap_c2f(xt_xmap_dist_dir_custom_new_f(src_idxlist, dst_idxlist, & xmap%cptr = xt_xmap_dist_dir_custom_new_f(src_idxlist, dst_idxlist, &
comm, config)) comm, config)
END FUNCTION xt_xmap_dist_dir_custom_new END FUNCTION xt_xmap_dist_dir_custom_new
FUNCTION xt_xmap_dist_dir_intercomm_new(src_idxlist, dst_idxlist, & FUNCTION xt_xmap_dist_dir_intercomm_new(src_idxlist, dst_idxlist, &
...@@ -302,8 +302,8 @@ CONTAINS ...@@ -302,8 +302,8 @@ CONTAINS
END FUNCTION xt_xmap_dist_dir_intercomm_new_f END FUNCTION xt_xmap_dist_dir_intercomm_new_f
END INTERFACE END INTERFACE
xmap = xt_xmap_c2f(xt_xmap_dist_dir_intercomm_new_f(src_idxlist, & xmap%cptr = xt_xmap_dist_dir_intercomm_new_f(src_idxlist, &
dst_idxlist, inter_comm, intra_comm)) dst_idxlist, inter_comm, intra_comm)
END FUNCTION xt_xmap_dist_dir_intercomm_new END FUNCTION xt_xmap_dist_dir_intercomm_new
FUNCTION xt_xmap_dist_dir_intercomm_custom_new(src_idxlist, dst_idxlist, & FUNCTION xt_xmap_dist_dir_intercomm_custom_new(src_idxlist, dst_idxlist, &
...@@ -329,8 +329,8 @@ CONTAINS ...@@ -329,8 +329,8 @@ CONTAINS
END FUNCTION xt_xmap_dist_dir_intercomm_custom_new_f END FUNCTION xt_xmap_dist_dir_intercomm_custom_new_f
END INTERFACE END INTERFACE
xmap = xt_xmap_c2f(xt_xmap_dist_dir_intercomm_custom_new_f(src_idxlist, & xmap%cptr = xt_xmap_dist_dir_intercomm_custom_new_f(src_idxlist, &
dst_idxlist, inter_comm, intra_comm, config)) dst_idxlist, inter_comm, intra_comm, config)
END FUNCTION xt_xmap_dist_dir_intercomm_custom_new END FUNCTION xt_xmap_dist_dir_intercomm_custom_new
FUNCTION xt_xmap_get_num_destinations(xmap) RESULT(num) FUNCTION xt_xmap_get_num_destinations(xmap) RESULT(num)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment