pack_pipelined_f128_block_64 Subroutine

private pure subroutine pack_pipelined_f128_block_64(in, out, dims, locals)

Pack part in buffer into contiguous buffer in order to send to a single rank, complex(real64) version.

For 3D arrays:

out(out_displacement + z * nxx * nyy + y * nxx + x) = in(x + in_displacement, y, z)

where in buffer x,y,z are full slab indices, while out buffer x,y,z are indices that are to be send to neighbor rank.

Arguments

Type IntentOptional Attributes Name
complex(kind=real64), intent(in) :: in(:)

Source host-allocated buffer
complex(kind=real64), intent(inout) :: out(:)

Target host-allocated buffer
integer(kind=int32), intent(in) :: dims(:)

Dimensions of the array
integer(kind=int32), intent(in) :: locals(:)

Neighbor data

Called by

proc~~pack_pipelined_f128_block_64~~CalledByGraph proc~pack_pipelined_f128_block_64 pack_pipelined_f128_block_64 proc~pack_f128_block_64 pack_f128_block_64 proc~pack_f128_block_64->proc~pack_pipelined_f128_block_64 proc~execute_f128_block_64 execute_f128_block_64 proc~execute_f128_block_64->proc~pack_f128_block_64