Copy a block
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=real_4), | intent(out), | DIMENSION(*) | :: | extent_out |
output data |
|
real(kind=real_4), | intent(in), | DIMENSION(*) | :: | extent_in |
input data |
|
integer, | intent(in) | :: | n |
number of elements to copy first element of output first element of input |
||
integer, | intent(in) | :: | out_fe |
number of elements to copy first element of output first element of input |
||
integer, | intent(in) | :: | in_fe |
number of elements to copy first element of output first element of input |
PURE SUBROUTINE block_copy_s (extent_out, extent_in, n, out_fe, in_fe)
!! Copy a block
INTEGER, INTENT(IN) :: n, out_fe, in_fe
!! number of elements to copy
!! first element of output
!! first element of input
REAL(kind=real_4), DIMENSION(*), INTENT(OUT) :: extent_out
!! output data
REAL(kind=real_4), DIMENSION(*), INTENT(IN) :: extent_in
!! input data
! ---------------------------------------------------------------------------
extent_out(out_fe:out_fe + n - 1) = extent_in(in_fe:in_fe + n - 1)
END SUBROUTINE block_copy_s