mem_zero_s Subroutine

private subroutine mem_zero_s(dst, n)

Zeros memory area

Arguments

Type IntentOptional Attributes Name
real(kind=real_4), intent(out), DIMENSION(1:n) :: dst

destination memory

integer, intent(in) :: n

length of elements to zero


Source Code

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

         INTEGER, INTENT(IN) :: n
        !! length of elements to zero
         REAL(kind=real_4), DIMENSION(1:n), INTENT(OUT) :: dst
        !! destination memory
         dst(:) = 0.0_real_4
      END SUBROUTINE mem_zero_s