mem_copy_s Subroutine

private subroutine mem_copy_s(dst, src, n)

Copies memory area

Arguments

Type IntentOptional Attributes Name
real(kind=real_4), intent(out), DIMENSION(1:n) :: dst

destination memory
real(kind=real_4), intent(in), DIMENSION(1:n) :: src

source memory
integer, intent(in) :: n

length of copy

Source Code

      SUBROUTINE mem_copy_s (dst, src, n)
     !! Copies memory area

         INTEGER, INTENT(IN) :: n
        !! length of copy
         REAL(kind=real_4), DIMENSION(1:n), INTENT(OUT) :: dst
        !! destination memory
         REAL(kind=real_4), DIMENSION(1:n), INTENT(IN)  :: src
        !! source memory
         dst(:) = src(:)
      END SUBROUTINE mem_copy_s