print_to_unit_actv Subroutine

  subroutine print_to_unit_actv(this, unit)
    !! Print activation layer to unit
    use coreutils, only: to_upper
    implicit none

    ! Arguments
    class(actv_layer_type), intent(in) :: this
    !! Instance of the activation layer
    integer, intent(in) :: unit
    !! File unit


    ! Write initial parameters
    !---------------------------------------------------------------------------
    write(unit,'(3X,"INPUT_SHAPE = ",3(1X,I0))') this%input_shape
    if(this%activation%name .ne. 'none')then
       call this%activation%print_to_unit(unit)
    end if

  end subroutine print_to_unit_actv