Commit d01d645a authored by Thomas Jahns's avatar Thomas Jahns 🤸
Browse files

Remove unneeded VALUE attribute.

parent ab265509
...@@ -195,7 +195,7 @@ CONTAINS ...@@ -195,7 +195,7 @@ CONTAINS
IMPLICIT NONE IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_idxlist TYPE(xt_idxlist), INTENT(in) :: src_idxlist
TYPE(xt_idxlist), INTENT(in) :: dst_idxlist TYPE(xt_idxlist), INTENT(in) :: dst_idxlist
INTEGER, VALUE, INTENT(in) :: comm INTEGER, INTENT(in) :: comm
TYPE(xt_xmap) :: xmap TYPE(xt_xmap) :: xmap
INTERFACE INTERFACE
...@@ -241,7 +241,7 @@ CONTAINS ...@@ -241,7 +241,7 @@ CONTAINS
IMPLICIT NONE IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_idxlist TYPE(xt_idxlist), INTENT(in) :: src_idxlist
TYPE(xt_idxlist), INTENT(in) :: dst_idxlist TYPE(xt_idxlist), INTENT(in) :: dst_idxlist
INTEGER, VALUE, INTENT(in) :: comm INTEGER, INTENT(in) :: comm
TYPE(xt_xmap) :: xmap TYPE(xt_xmap) :: xmap
INTERFACE INTERFACE
...@@ -287,7 +287,7 @@ CONTAINS ...@@ -287,7 +287,7 @@ CONTAINS
IMPLICIT NONE IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_idxlist TYPE(xt_idxlist), INTENT(in) :: src_idxlist
TYPE(xt_idxlist), INTENT(in) :: dst_idxlist TYPE(xt_idxlist), INTENT(in) :: dst_idxlist
INTEGER, VALUE, INTENT(in) :: inter_comm, intra_comm INTEGER, INTENT(in) :: inter_comm, intra_comm
TYPE(xt_xmap) :: xmap TYPE(xt_xmap) :: xmap
INTERFACE INTERFACE
......
...@@ -69,7 +69,7 @@ CONTAINS ...@@ -69,7 +69,7 @@ CONTAINS
IMPLICIT NONE IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_idxlist TYPE(xt_idxlist), INTENT(in) :: src_idxlist
TYPE(xt_idxlist), INTENT(in) :: dst_idxlist TYPE(xt_idxlist), INTENT(in) :: dst_idxlist
INTEGER, VALUE, INTENT(in) :: comm INTEGER, INTENT(in) :: comm
TYPE(xt_xmap) :: res TYPE(xt_xmap) :: res
END FUNCTION xmap_new END FUNCTION xmap_new
END INTERFACE END INTERFACE
...@@ -141,7 +141,7 @@ CONTAINS ...@@ -141,7 +141,7 @@ CONTAINS
IMPLICIT NONE IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_idxlist TYPE(xt_idxlist), INTENT(in) :: src_idxlist
TYPE(xt_idxlist), INTENT(in) :: dst_idxlist TYPE(xt_idxlist), INTENT(in) :: dst_idxlist
INTEGER, VALUE, INTENT(in) :: comm INTEGER, INTENT(in) :: comm
TYPE(xt_xmap) :: res TYPE(xt_xmap) :: res
END FUNCTION xmap_new END FUNCTION xmap_new
END INTERFACE END INTERFACE
...@@ -170,7 +170,7 @@ CONTAINS ...@@ -170,7 +170,7 @@ CONTAINS
IMPLICIT NONE IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_idxlist TYPE(xt_idxlist), INTENT(in) :: src_idxlist
TYPE(xt_idxlist), INTENT(in) :: dst_idxlist TYPE(xt_idxlist), INTENT(in) :: dst_idxlist
INTEGER, VALUE, INTENT(in) :: comm INTEGER, INTENT(in) :: comm
TYPE(xt_xmap) :: res TYPE(xt_xmap) :: res
END FUNCTION xmap_new END FUNCTION xmap_new
END INTERFACE END INTERFACE
...@@ -198,7 +198,7 @@ CONTAINS ...@@ -198,7 +198,7 @@ CONTAINS
IMPLICIT NONE IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_idxlist TYPE(xt_idxlist), INTENT(in) :: src_idxlist
TYPE(xt_idxlist), INTENT(in) :: dst_idxlist TYPE(xt_idxlist), INTENT(in) :: dst_idxlist
INTEGER, VALUE, INTENT(in) :: comm INTEGER, INTENT(in) :: comm
TYPE(xt_xmap) :: res TYPE(xt_xmap) :: res
END FUNCTION xmap_new END FUNCTION xmap_new
END INTERFACE END INTERFACE
......
...@@ -73,7 +73,7 @@ CONTAINS ...@@ -73,7 +73,7 @@ CONTAINS
IMPLICIT NONE IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_idxlist TYPE(xt_idxlist), INTENT(in) :: src_idxlist
TYPE(xt_idxlist), INTENT(in) :: dst_idxlist TYPE(xt_idxlist), INTENT(in) :: dst_idxlist
INTEGER, VALUE, INTENT(in) :: comm INTEGER, INTENT(in) :: comm
TYPE(xt_xmap) :: res TYPE(xt_xmap) :: res
END FUNCTION xmap_new END FUNCTION xmap_new
END INTERFACE END INTERFACE
...@@ -155,7 +155,7 @@ CONTAINS ...@@ -155,7 +155,7 @@ CONTAINS
IMPLICIT NONE IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_idxlist TYPE(xt_idxlist), INTENT(in) :: src_idxlist
TYPE(xt_idxlist), INTENT(in) :: dst_idxlist TYPE(xt_idxlist), INTENT(in) :: dst_idxlist
INTEGER, VALUE, INTENT(in) :: comm INTEGER, INTENT(in) :: comm
TYPE(xt_xmap) :: res TYPE(xt_xmap) :: res
END FUNCTION xmap_new END FUNCTION xmap_new
END INTERFACE END INTERFACE
...@@ -280,7 +280,7 @@ CONTAINS ...@@ -280,7 +280,7 @@ CONTAINS
IMPLICIT NONE IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_idxlist TYPE(xt_idxlist), INTENT(in) :: src_idxlist
TYPE(xt_idxlist), INTENT(in) :: dst_idxlist TYPE(xt_idxlist), INTENT(in) :: dst_idxlist
INTEGER, VALUE, INTENT(in) :: comm INTEGER, INTENT(in) :: comm
TYPE(xt_xmap) :: res TYPE(xt_xmap) :: res
END FUNCTION xmap_new END FUNCTION xmap_new
END INTERFACE END INTERFACE
......
...@@ -72,7 +72,7 @@ CONTAINS ...@@ -72,7 +72,7 @@ CONTAINS
IMPLICIT NONE IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_idxlist TYPE(xt_idxlist), INTENT(in) :: src_idxlist
TYPE(xt_idxlist), INTENT(in) :: dst_idxlist TYPE(xt_idxlist), INTENT(in) :: dst_idxlist
INTEGER, VALUE, INTENT(in) :: comm INTEGER, INTENT(in) :: comm
TYPE(xt_xmap) :: res TYPE(xt_xmap) :: res
END FUNCTION xmap_new END FUNCTION xmap_new
END INTERFACE END INTERFACE
...@@ -169,7 +169,7 @@ CONTAINS ...@@ -169,7 +169,7 @@ CONTAINS
IMPLICIT NONE IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_idxlist TYPE(xt_idxlist), INTENT(in) :: src_idxlist
TYPE(xt_idxlist), INTENT(in) :: dst_idxlist TYPE(xt_idxlist), INTENT(in) :: dst_idxlist
INTEGER, VALUE, INTENT(in) :: comm INTEGER, INTENT(in) :: comm
TYPE(xt_xmap) :: res TYPE(xt_xmap) :: res
END FUNCTION xmap_new END FUNCTION xmap_new
END INTERFACE END INTERFACE
...@@ -245,7 +245,7 @@ CONTAINS ...@@ -245,7 +245,7 @@ CONTAINS
IMPLICIT NONE IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_idxlist TYPE(xt_idxlist), INTENT(in) :: src_idxlist
TYPE(xt_idxlist), INTENT(in) :: dst_idxlist TYPE(xt_idxlist), INTENT(in) :: dst_idxlist
INTEGER, VALUE, INTENT(in) :: comm INTEGER, INTENT(in) :: comm
TYPE(xt_xmap) :: res TYPE(xt_xmap) :: res
END FUNCTION xmap_new END FUNCTION xmap_new
END INTERFACE END INTERFACE
...@@ -294,7 +294,7 @@ CONTAINS ...@@ -294,7 +294,7 @@ CONTAINS
IMPLICIT NONE IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_idxlist TYPE(xt_idxlist), INTENT(in) :: src_idxlist
TYPE(xt_idxlist), INTENT(in) :: dst_idxlist TYPE(xt_idxlist), INTENT(in) :: dst_idxlist
INTEGER, VALUE, INTENT(in) :: comm INTEGER, INTENT(in) :: comm
TYPE(xt_xmap) :: res TYPE(xt_xmap) :: res
END FUNCTION xmap_new END FUNCTION xmap_new
END INTERFACE END INTERFACE
...@@ -428,7 +428,7 @@ CONTAINS ...@@ -428,7 +428,7 @@ CONTAINS
IMPLICIT NONE IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_idxlist TYPE(xt_idxlist), INTENT(in) :: src_idxlist
TYPE(xt_idxlist), INTENT(in) :: dst_idxlist TYPE(xt_idxlist), INTENT(in) :: dst_idxlist
INTEGER, VALUE, INTENT(in) :: comm INTEGER, INTENT(in) :: comm
TYPE(xt_xmap) :: res TYPE(xt_xmap) :: res
END FUNCTION xmap_new END FUNCTION xmap_new
END INTERFACE END INTERFACE
...@@ -529,7 +529,7 @@ CONTAINS ...@@ -529,7 +529,7 @@ CONTAINS
IMPLICIT NONE IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_idxlist TYPE(xt_idxlist), INTENT(in) :: src_idxlist
TYPE(xt_idxlist), INTENT(in) :: dst_idxlist TYPE(xt_idxlist), INTENT(in) :: dst_idxlist
INTEGER, VALUE, INTENT(in) :: comm INTEGER, INTENT(in) :: comm
TYPE(xt_xmap) :: res TYPE(xt_xmap) :: res
END FUNCTION xmap_new END FUNCTION xmap_new
END INTERFACE END INTERFACE
......
...@@ -53,7 +53,7 @@ PROGRAM test_xmap_dist_dir_intercomm_parallel ...@@ -53,7 +53,7 @@ PROGRAM test_xmap_dist_dir_intercomm_parallel
inter_comm) RESULT(xmap) inter_comm) RESULT(xmap)
USE yaxt, ONLY: xt_xmap, xt_idxlist USE yaxt, ONLY: xt_xmap, xt_idxlist
TYPE(xt_idxlist), INTENT(in) :: src_idxlist, dst_idxlist TYPE(xt_idxlist), INTENT(in) :: src_idxlist, dst_idxlist
INTEGER, VALUE, INTENT(in) :: inter_comm INTEGER, INTENT(in) :: inter_comm
TYPE(xt_xmap) :: xmap TYPE(xt_xmap) :: xmap
END FUNCTION xmap_dist_dir_intercomm_wrap END FUNCTION xmap_dist_dir_intercomm_wrap
END INTERFACE END INTERFACE
...@@ -68,7 +68,7 @@ FUNCTION xmap_dist_dir_intercomm_wrap(src_idxlist, dst_idxlist, inter_comm) & ...@@ -68,7 +68,7 @@ FUNCTION xmap_dist_dir_intercomm_wrap(src_idxlist, dst_idxlist, inter_comm) &
USE yaxt, ONLY: xt_xmap_dist_dir_intercomm_new, xt_xmap, xt_idxlist USE yaxt, ONLY: xt_xmap_dist_dir_intercomm_new, xt_xmap, xt_idxlist
USE test_xmap_common_intercomm_parallel, ONLY: intra_group_comm USE test_xmap_common_intercomm_parallel, ONLY: intra_group_comm
TYPE(xt_idxlist), INTENT(in) :: src_idxlist, dst_idxlist TYPE(xt_idxlist), INTENT(in) :: src_idxlist, dst_idxlist
INTEGER, VALUE, INTENT(in) :: inter_comm INTEGER, INTENT(in) :: inter_comm
TYPE(xt_xmap) :: xmap TYPE(xt_xmap) :: xmap
xmap = xt_xmap_dist_dir_intercomm_new(src_idxlist, dst_idxlist, & xmap = xt_xmap_dist_dir_intercomm_new(src_idxlist, dst_idxlist, &
inter_comm, intra_group_comm) inter_comm, intra_group_comm)
......
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