Skip to content

Commit db852bf

Browse files
author
Daniel Vickers
committed
Parenthesis change
1 parent c451b20 commit db852bf

File tree

1 file changed

+18
-18
lines changed

1 file changed

+18
-18
lines changed

‎src/common/m_mpi_common.fpp‎

Lines changed: 18 additions & 18 deletions
Original file line numberDiff line numberDiff line change
@@ -757,7 +757,7 @@ contains
757757
#:for mpi_dir in [1, 2, 3]
758758
if (mpi_dir == ${mpi_dir}$) then
759759
#:if mpi_dir == 1
760-
$:GPU_PARALLEL_LOOP()(collapse=4,private='[r]')
760+
$:GPU_PARALLEL_LOOP(collapse=4,private='[r]')
761761
do l = 0, p
762762
do k = 0, n
763763
do j = 0, buff_size - 1
@@ -771,7 +771,7 @@ contains
771771
$:END_GPU_PARALLEL_LOOP()
772772
773773
if (qbmm_comm) then
774-
$:GPU_PARALLEL_LOOP()(collapse=4,private='[r]')
774+
$:GPU_PARALLEL_LOOP(collapse=4,private='[r]')
775775
do l = 0, p
776776
do k = 0, n
777777
do j = 0, buff_size - 1
@@ -787,7 +787,7 @@ contains
787787
end do
788788
$:END_GPU_PARALLEL_LOOP()
789789
790-
$:GPU_PARALLEL_LOOP()(collapse=5,private='[r]')
790+
$:GPU_PARALLEL_LOOP(collapse=5,private='[r]')
791791
do l = 0, p
792792
do k = 0, n
793793
do j = 0, buff_size - 1
@@ -804,7 +804,7 @@ contains
804804
$:END_GPU_PARALLEL_LOOP()
805805
end if
806806
#:elif mpi_dir == 2
807-
$:GPU_PARALLEL_LOOP()(collapse=4,private='[r]')
807+
$:GPU_PARALLEL_LOOP(collapse=4,private='[r]')
808808
do i = 1, nVar
809809
do l = 0, p
810810
do k = 0, buff_size - 1
@@ -820,7 +820,7 @@ contains
820820
$:END_GPU_PARALLEL_LOOP()
821821
822822
if (qbmm_comm) then
823-
$:GPU_PARALLEL_LOOP()(collapse=5,private='[r]')
823+
$:GPU_PARALLEL_LOOP(collapse=5,private='[r]')
824824
do i = nVar + 1, nVar + 4
825825
do l = 0, p
826826
do k = 0, buff_size - 1
@@ -837,7 +837,7 @@ contains
837837
end do
838838
$:END_GPU_PARALLEL_LOOP()
839839
840-
$:GPU_PARALLEL_LOOP()(collapse=5,private='[r]')
840+
$:GPU_PARALLEL_LOOP(collapse=5,private='[r]')
841841
do i = nVar + 1, nVar + 4
842842
do l = 0, p
843843
do k = 0, buff_size - 1
@@ -855,7 +855,7 @@ contains
855855
$:END_GPU_PARALLEL_LOOP()
856856
end if
857857
#:else
858-
$:GPU_PARALLEL_LOOP()(collapse=4,private='[r]')
858+
$:GPU_PARALLEL_LOOP(collapse=4,private='[r]')
859859
do i = 1, nVar
860860
do l = 0, buff_size - 1
861861
do k = -buff_size, n + buff_size
@@ -871,7 +871,7 @@ contains
871871
$:END_GPU_PARALLEL_LOOP()
872872
873873
if (qbmm_comm) then
874-
$:GPU_PARALLEL_LOOP()(collapse=5,private='[r]')
874+
$:GPU_PARALLEL_LOOP(collapse=5,private='[r]')
875875
do i = nVar + 1, nVar + 4
876876
do l = 0, buff_size - 1
877877
do k = -buff_size, n + buff_size
@@ -888,7 +888,7 @@ contains
888888
end do
889889
$:END_GPU_PARALLEL_LOOP()
890890
891-
$:GPU_PARALLEL_LOOP()(collapse=5,private='[r]')
891+
$:GPU_PARALLEL_LOOP(collapse=5,private='[r]')
892892
do i = nVar + 1, nVar + 4
893893
do l = 0, buff_size - 1
894894
do k = -buff_size, n + buff_size
@@ -958,7 +958,7 @@ contains
958958
#:for mpi_dir in [1, 2, 3]
959959
if (mpi_dir == ${mpi_dir}$) then
960960
#:if mpi_dir == 1
961-
$:GPU_PARALLEL_LOOP()(collapse=4,private='[r]')
961+
$:GPU_PARALLEL_LOOP(collapse=4,private='[r]')
962962
do l = 0, p
963963
do k = 0, n
964964
do j = -buff_size, -1
@@ -979,7 +979,7 @@ contains
979979
$:END_GPU_PARALLEL_LOOP()
980980
981981
if (qbmm_comm) then
982-
$:GPU_PARALLEL_LOOP()(collapse=5,private='[r]')
982+
$:GPU_PARALLEL_LOOP(collapse=5,private='[r]')
983983
do l = 0, p
984984
do k = 0, n
985985
do j = -buff_size, -1
@@ -995,7 +995,7 @@ contains
995995
end do
996996
$:END_GPU_PARALLEL_LOOP()
997997
998-
$:GPU_PARALLEL_LOOP()(collapse=5,private='[r]')
998+
$:GPU_PARALLEL_LOOP(collapse=5,private='[r]')
999999
do l = 0, p
10001000
do k = 0, n
10011001
do j = -buff_size, -1
@@ -1012,7 +1012,7 @@ contains
10121012
$:END_GPU_PARALLEL_LOOP()
10131013
end if
10141014
#:elif mpi_dir == 2
1015-
$:GPU_PARALLEL_LOOP()(collapse=4,private='[r]')
1015+
$:GPU_PARALLEL_LOOP(collapse=4,private='[r]')
10161016
do i = 1, nVar
10171017
do l = 0, p
10181018
do k = -buff_size, -1
@@ -1034,7 +1034,7 @@ contains
10341034
$:END_GPU_PARALLEL_LOOP()
10351035
10361036
if (qbmm_comm) then
1037-
$:GPU_PARALLEL_LOOP()(collapse=5,private='[r]')
1037+
$:GPU_PARALLEL_LOOP(collapse=5,private='[r]')
10381038
do i = nVar + 1, nVar + 4
10391039
do l = 0, p
10401040
do k = -buff_size, -1
@@ -1051,7 +1051,7 @@ contains
10511051
end do
10521052
$:END_GPU_PARALLEL_LOOP()
10531053
1054-
$:GPU_PARALLEL_LOOP()(collapse=5,private='[r]')
1054+
$:GPU_PARALLEL_LOOP(collapse=5,private='[r]')
10551055
do i = nVar + 1, nVar + 4
10561056
do l = 0, p
10571057
do k = -buff_size, -1
@@ -1070,7 +1070,7 @@ contains
10701070
end if
10711071
#:else
10721072
! Unpacking buffer from bc_z%beg
1073-
$:GPU_PARALLEL_LOOP()(collapse=4,private='[r]')
1073+
$:GPU_PARALLEL_LOOP(collapse=4,private='[r]')
10741074
do i = 1, nVar
10751075
do l = -buff_size, -1
10761076
do k = -buff_size, n + buff_size
@@ -1093,7 +1093,7 @@ contains
10931093
$:END_GPU_PARALLEL_LOOP()
10941094
10951095
if (qbmm_comm) then
1096-
$:GPU_PARALLEL_LOOP()(collapse=5,private='[r]')
1096+
$:GPU_PARALLEL_LOOP(collapse=5,private='[r]')
10971097
do i = nVar + 1, nVar + 4
10981098
do l = -buff_size, -1
10991099
do k = -buff_size, n + buff_size
@@ -1111,7 +1111,7 @@ contains
11111111
end do
11121112
$:END_GPU_PARALLEL_LOOP()
11131113
1114-
$:GPU_PARALLEL_LOOP()(collapse=5,private='[r]')
1114+
$:GPU_PARALLEL_LOOP(collapse=5,private='[r]')
11151115
do i = nVar + 1, nVar + 4
11161116
do l = -buff_size, -1
11171117
do k = -buff_size, n + buff_size

0 commit comments

Comments
 (0)