@@ -161,8 +161,8 @@ contains
161161 p_cmplx = > data_cmplx_gpu
162162 p_fltr_cmplx = > data_fltr_cmplx_gpu
163163
164- $:GPU_DATA(attach= ' [p_real, p_cmplx, p_fltr_cmplx]' )
165- $:GPU_HOST_DATA(use_device= ' [p_real, p_cmplx, p_fltr_cmplx]' )
164+ $:GPU_DATA(attach= ' [p_real, p_cmplx, p_fltr_cmplx]' )
165+ $:GPU_HOST_DATA(use_device= ' [p_real, p_cmplx, p_fltr_cmplx]' )
166166#if defined(__PGI)
167167 ierr = cufftExecD2Z(fwd_plan_gpu, data_real_gpu, data_cmplx_gpu)
168168#else
@@ -182,7 +182,7 @@ $:GPU_HOST_DATA(use_device='[p_real, p_cmplx, p_fltr_cmplx]')
182182 end do
183183 end do
184184
185- $:GPU_HOST_DATA(use_device= ' [p_real, p_fltr_cmplx]' )
185+ $:GPU_HOST_DATA(use_device= ' [p_real, p_fltr_cmplx]' )
186186#if defined(__PGI)
187187 ierr = cufftExecZ2D(bwd_plan_gpu, data_fltr_cmplx_gpu, data_real_gpu)
188188#else
@@ -221,7 +221,7 @@ $:GPU_HOST_DATA(use_device='[p_real, p_fltr_cmplx]')
221221 end do
222222 end do
223223
224- $:GPU_HOST_DATA(use_device= ' [p_real, p_cmplx]' )
224+ $:GPU_HOST_DATA(use_device= ' [p_real, p_cmplx]' )
225225#if defined(__PGI)
226226 ierr = cufftExecD2Z(fwd_plan_gpu, data_real_gpu, data_cmplx_gpu)
227227#else
@@ -242,7 +242,7 @@ $:GPU_HOST_DATA(use_device='[p_real, p_cmplx]')
242242 end do
243243 end do
244244
245- $:GPU_HOST_DATA(use_device= ' [p_real, p_fltr_cmplx]' )
245+ $:GPU_HOST_DATA(use_device= ' [p_real, p_fltr_cmplx]' )
246246#if defined(__PGI)
247247 ierr = cufftExecZ2D(bwd_plan_gpu, data_fltr_cmplx_gpu, data_real_gpu)
248248#else
0 commit comments