print_to_unit_input Subroutine

  subroutine print_to_unit_input(this, unit)
    !! Print input layer to unit
    implicit none

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

    ! Local variables
    integer :: t
    !! Loop index
    character(100) :: fmt
    !! Format string


    ! Write initial parameters
    !---------------------------------------------------------------------------
    write(unit,'(3X,"INPUT_RANK = ",I0)') this%input_rank
    write(fmt,'("(3X,""INPUT_SHAPE ="",",I0,"(1X,I0))")') size(this%input_shape)
    write(unit,fmt) this%input_shape
    write(unit,'(3X,"USE_GRAPH_INPUT = ",L1)') this%use_graph_input

  end subroutine print_to_unit_input