Skip to content

Commit b5079f6

Browse files
author
Daniel Vickers
committed
The previous test compiled. If this does not compile then I am certain it is line 891-906 in m_mpi_common.fpp. I will then have to figure out why that causes a seg fault.
1 parent 1875e3c commit b5079f6

File tree

1 file changed

+12
-12
lines changed

1 file changed

+12
-12
lines changed

src/common/m_mpi_common.fpp

Lines changed: 12 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -888,22 +888,22 @@ contains
888888
end do
889889
$:END_GPU_PARALLEL_LOOP()
890890
891-
#:call GPU_PARALLEL_LOOP_OLD(collapse=5,private='[r]')
892-
do i = nVar + 1, nVar + 4
893-
do l = 0, buff_size - 1
894-
do k = -buff_size, n + buff_size
895-
do j = -buff_size, m + buff_size
896-
do q = 1, nb
897-
r = (i - 1) + (q - 1)*4 + nb*4 + v_size* &
898-
((j + buff_size) + (m + 2*buff_size + 1)* &
899-
((k + buff_size) + (n + 2*buff_size + 1)*l))
900-
buff_send(r) = real(mv_in(j, k, l + pack_offset, i - nVar, q), kind=wp)
901-
end do
891+
$:GPU_PARALLEL_LOOP(collapse=5,private='[r]')
892+
do i = nVar + 1, nVar + 4
893+
do l = 0, buff_size - 1
894+
do k = -buff_size, n + buff_size
895+
do j = -buff_size, m + buff_size
896+
do q = 1, nb
897+
r = (i - 1) + (q - 1)*4 + nb*4 + v_size* &
898+
((j + buff_size) + (m + 2*buff_size + 1)* &
899+
((k + buff_size) + (n + 2*buff_size + 1)*l))
900+
buff_send(r) = real(mv_in(j, k, l + pack_offset, i - nVar, q), kind=wp)
902901
end do
903902
end do
904903
end do
905904
end do
906-
#:endcall GPU_PARALLEL_LOOP_OLD
905+
end do
906+
$:END_GPU_PARALLEL_LOOP()
907907
end if
908908
#:endif
909909
end if

0 commit comments

Comments
 (0)