Copies memory area
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer(kind=int_8), | intent(out), | DIMENSION(1:n) | :: | dst |
destination memory |
|
integer(kind=int_8), | intent(in), | DIMENSION(1:n) | :: | src |
source memory |
|
integer, | intent(in) | :: | n |
length of copy |
SUBROUTINE mem_copy_l (dst, src, n)
!! Copies memory area
INTEGER, INTENT(IN) :: n
!! length of copy
INTEGER(kind=int_8), DIMENSION(1:n), INTENT(OUT) :: dst
!! destination memory
INTEGER(kind=int_8), 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_l