block_add_s Subroutine

private pure subroutine block_add_s(block_a, block_b, len)

Arguments

Type IntentOptional Attributes Name
real(kind=real_4), intent(inout), DIMENSION(len) :: block_a
real(kind=real_4), intent(in), DIMENSION(len) :: block_b
integer, intent(in) :: len

Source Code

      PURE SUBROUTINE block_add_s (block_a, block_b, len)
         INTEGER, INTENT(IN) :: len
         REAL(kind=real_4), DIMENSION(len), INTENT(INOUT) :: block_a
         REAL(kind=real_4), DIMENSION(len), INTENT(IN)    :: block_b
         block_a(1:len) = block_a(1:len) + block_b(1:len)
      END SUBROUTINE block_add_s