mem_zero_z Subroutine

private subroutine mem_zero_z(dst, n)

Zeros memory area

Arguments

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

destination memory

integer, intent(in) :: n

length of elements to zero


Contents

Source Code


Source Code

      SUBROUTINE mem_zero_z (dst, n)
     !! Zeros memory area

         INTEGER, INTENT(IN) :: n
        !! length of elements to zero
         COMPLEX(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(:) = CMPLX(0.0, 0.0, real_8)
#if !defined(__DBCSR_DISABLE_WORKSHARE)
!$OMP     END PARALLEL WORKSHARE
#endif
      END SUBROUTINE mem_zero_z