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