File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change @@ -1228,6 +1228,9 @@ contains
12281228 @:PREFER_GPU(dx)
12291229 x%cb => x_cb; x%cc => x_cc; x%spacing => dx
12301230 $:GPU_ENTER_DATA(attach=' [x%cb, x%cc, x%spacing]' )
1231+ #:call GPU_PARALLEL(default=None)
1232+ x%cb => x_cb; x%cc => x_cc; x%spacing => dx
1233+ #:endcall GPU_PARALLEL
12311234
12321235 if (n == 0) return
12331236 @:ALLOCATE(y_cb(-1 - buff_size:n + buff_size))
@@ -1238,6 +1241,9 @@ contains
12381241 @:PREFER_GPU(dy)
12391242 y%cb => y_cb; y%cc => y_cc; y%spacing => dy
12401243 $:GPU_ENTER_DATA(attach=' [y%cb, y%cc, y%spacing]' )
1244+ #:call GPU_PARALLEL(default=None)
1245+ y%cb => y_cb; y%cc => y_cc; y%spacing => dy
1246+ #:endcall GPU_PARALLEL
12411247
12421248 if (p == 0) return
12431249 @:ALLOCATE(z_cb(-1 - buff_size:p + buff_size))
@@ -1248,6 +1254,9 @@ contains
12481254 @:PREFER_GPU(dz)
12491255 z%cb => z_cb; z%cc => z_cc; z%spacing => dz
12501256 $:GPU_ENTER_DATA(attach=' [z%cb, z%cc, z%spacing]' )
1257+ #:call GPU_PARALLEL(default=None)
1258+ z%cb => z_cb; z%cc => z_cc; z%spacing => dz
1259+ #:endcall GPU_PARALLEL
12511260
12521261 end subroutine s_initialize_global_parameters_module
12531262
You can’t perform that action at this time.
0 commit comments