Skip to content

GitLab

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

Remove unneeded VALUE attribute.

parent ab265509
Hide whitespace changes
Inline Side-by-side
src/xt_xmap_f.f90
View file @ d01d645a
......@@ -195,7 +195,7 @@ CONTAINS
IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_idxlist
TYPE(xt_idxlist), INTENT(in) :: dst_idxlist
INTEGER, VALUE, INTENT(in) :: comm
INTEGER, INTENT(in) :: comm
TYPE(xt_xmap) :: xmap
INTERFACE
......@@ -241,7 +241,7 @@ CONTAINS
IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_idxlist
TYPE(xt_idxlist), INTENT(in) :: dst_idxlist
INTEGER, VALUE, INTENT(in) :: comm
INTEGER, INTENT(in) :: comm
TYPE(xt_xmap) :: xmap
INTERFACE
......@@ -287,7 +287,7 @@ CONTAINS
IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_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
INTERFACE
......
tests/test_xmap_common_f.f90
View file @ d01d645a
......@@ -69,7 +69,7 @@ CONTAINS
IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_idxlist
TYPE(xt_idxlist), INTENT(in) :: dst_idxlist
INTEGER, VALUE, INTENT(in) :: comm
INTEGER, INTENT(in) :: comm
TYPE(xt_xmap) :: res
END FUNCTION xmap_new
END INTERFACE
......@@ -141,7 +141,7 @@ CONTAINS
IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_idxlist
TYPE(xt_idxlist), INTENT(in) :: dst_idxlist
INTEGER, VALUE, INTENT(in) :: comm
INTEGER, INTENT(in) :: comm
TYPE(xt_xmap) :: res
END FUNCTION xmap_new
END INTERFACE
......@@ -170,7 +170,7 @@ CONTAINS
IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_idxlist
TYPE(xt_idxlist), INTENT(in) :: dst_idxlist
INTEGER, VALUE, INTENT(in) :: comm
INTEGER, INTENT(in) :: comm
TYPE(xt_xmap) :: res
END FUNCTION xmap_new
END INTERFACE
......@@ -198,7 +198,7 @@ CONTAINS
IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_idxlist
TYPE(xt_idxlist), INTENT(in) :: dst_idxlist
INTEGER, VALUE, INTENT(in) :: comm
INTEGER, INTENT(in) :: comm
TYPE(xt_xmap) :: res
END FUNCTION xmap_new
END INTERFACE
......
tests/test_xmap_common_intercomm_parallel_f.f90
View file @ d01d645a
......@@ -73,7 +73,7 @@ CONTAINS
IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_idxlist
TYPE(xt_idxlist), INTENT(in) :: dst_idxlist
INTEGER, VALUE, INTENT(in) :: comm
INTEGER, INTENT(in) :: comm
TYPE(xt_xmap) :: res
END FUNCTION xmap_new
END INTERFACE
......@@ -155,7 +155,7 @@ CONTAINS
IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_idxlist
TYPE(xt_idxlist), INTENT(in) :: dst_idxlist
INTEGER, VALUE, INTENT(in) :: comm
INTEGER, INTENT(in) :: comm
TYPE(xt_xmap) :: res
END FUNCTION xmap_new
END INTERFACE
......@@ -280,7 +280,7 @@ CONTAINS
IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_idxlist
TYPE(xt_idxlist), INTENT(in) :: dst_idxlist
INTEGER, VALUE, INTENT(in) :: comm
INTEGER, INTENT(in) :: comm
TYPE(xt_xmap) :: res
END FUNCTION xmap_new
END INTERFACE
......
tests/test_xmap_common_parallel_f.f90
View file @ d01d645a
......@@ -72,7 +72,7 @@ CONTAINS
IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_idxlist
TYPE(xt_idxlist), INTENT(in) :: dst_idxlist
INTEGER, VALUE, INTENT(in) :: comm
INTEGER, INTENT(in) :: comm
TYPE(xt_xmap) :: res
END FUNCTION xmap_new
END INTERFACE
......@@ -169,7 +169,7 @@ CONTAINS
IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_idxlist
TYPE(xt_idxlist), INTENT(in) :: dst_idxlist
INTEGER, VALUE, INTENT(in) :: comm
INTEGER, INTENT(in) :: comm
TYPE(xt_xmap) :: res
END FUNCTION xmap_new
END INTERFACE
......@@ -245,7 +245,7 @@ CONTAINS
IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_idxlist
TYPE(xt_idxlist), INTENT(in) :: dst_idxlist
INTEGER, VALUE, INTENT(in) :: comm
INTEGER, INTENT(in) :: comm
TYPE(xt_xmap) :: res
END FUNCTION xmap_new
END INTERFACE
......@@ -294,7 +294,7 @@ CONTAINS
IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_idxlist
TYPE(xt_idxlist), INTENT(in) :: dst_idxlist
INTEGER, VALUE, INTENT(in) :: comm
INTEGER, INTENT(in) :: comm
TYPE(xt_xmap) :: res
END FUNCTION xmap_new
END INTERFACE
......@@ -428,7 +428,7 @@ CONTAINS
IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_idxlist
TYPE(xt_idxlist), INTENT(in) :: dst_idxlist
INTEGER, VALUE, INTENT(in) :: comm
INTEGER, INTENT(in) :: comm
TYPE(xt_xmap) :: res
END FUNCTION xmap_new
END INTERFACE
......@@ -529,7 +529,7 @@ CONTAINS
IMPLICIT NONE
TYPE(xt_idxlist), INTENT(in) :: src_idxlist
TYPE(xt_idxlist), INTENT(in) :: dst_idxlist
INTEGER, VALUE, INTENT(in) :: comm
INTEGER, INTENT(in) :: comm
TYPE(xt_xmap) :: res
END FUNCTION xmap_new
END INTERFACE
......
tests/test_xmap_dist_dir_intercomm_parallel_f.f90
View file @ d01d645a
......@@ -53,7 +53,7 @@ PROGRAM test_xmap_dist_dir_intercomm_parallel
inter_comm) RESULT(xmap)
USE yaxt, ONLY: xt_xmap, xt_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
END FUNCTION xmap_dist_dir_intercomm_wrap
END INTERFACE
......@@ -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 test_xmap_common_intercomm_parallel, ONLY: intra_group_comm
TYPE(xt_idxlist), INTENT(in) :: src_idxlist, dst_idxlist
INTEGER, VALUE, INTENT(in) :: inter_comm
INTEGER, INTENT(in) :: inter_comm
TYPE(xt_xmap) :: xmap
xmap = xt_xmap_dist_dir_intercomm_new(src_idxlist, dst_idxlist, &
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

Imprint | Privacy Policy