Zeros memory area
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=real_8), | intent(out), | DIMENSION(1:n) | :: | dst |
destination memory |
|
integer, | intent(in) | :: | n |
length of elements to zero |
SUBROUTINE mem_zero_d (dst, n)
!! Zeros memory area
INTEGER, INTENT(IN) :: n
!! length of elements to zero
REAL(kind=real_8), DIMENSION(1:n), INTENT(OUT) :: dst
!! destination memory
#if !defined(__DBCSR_DISABLE_WORKSHARE)
!$OMP PARALLEL WORKSHARE DEFAULT(none) SHARED(dst)
#endif
dst(:) = 0.0_real_8
#if !defined(__DBCSR_DISABLE_WORKSHARE)
!$OMP END PARALLEL WORKSHARE
#endif
END SUBROUTINE mem_zero_d