Copies memory area
Type | Intent | Optional | 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 |
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
#if !defined(__DBCSR_DISABLE_WORKSHARE)
!$OMP PARALLEL WORKSHARE DEFAULT(none) SHARED(dst,src)
#endif
dst(:) = src(:)
#if !defined(__DBCSR_DISABLE_WORKSHARE)
!$OMP END PARALLEL WORKSHARE
#endif
END SUBROUTINE mem_copy_s