mem_copy_d Subroutine

private subroutine mem_copy_d(dst, src, n)

Copies memory area

Arguments

TypeIntentOptionalAttributesName
real(kind=real_8), intent(out), DIMENSION(1:n):: dst

destination memory

real(kind=real_8), intent(in), DIMENSION(1:n):: src

source memory

integer, intent(in) :: n

length of copy


Contents

Source Code


Source Code

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

         INTEGER, INTENT(IN) :: n
        !! length of copy
         REAL(kind=real_8), DIMENSION(1:n), INTENT(OUT) :: dst
        !! destination memory
         REAL(kind=real_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_d