block_copy_s Subroutine

public pure subroutine block_copy_s(extent_out, extent_in, n, out_fe, in_fe)

Copy a block

Arguments

Type IntentOptional 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

Source Code

      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