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