forward_actv Subroutine

  subroutine forward_actv(this, input)
    !! Forward propagation
    implicit none

    ! Arguments
    class(actv_layer_type), intent(inout) :: this
    !! Instance of the fully connected layer
    class(array_type), dimension(:,:), intent(in) :: input
    !! Input values

    ! Local variables
    integer :: i, s
    !! Loop indices
    type(array_type), pointer :: ptr
    !! Pointer array

    do s = 1, size(input, 2)
       do i = 1, size(input, 1)
          ptr => this%activation%apply(input(i,s))
          call this%output(i,s)%assign_and_deallocate_source(ptr)
       end do
    end do

  end subroutine forward_actv