print_to_unit_add Subroutine

  subroutine print_to_unit_add(this, unit)
    !! Print add layer to unit
    implicit none

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

    ! Local variables
    integer :: i
    !! Loop index
    character(100) :: fmt


    ! 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(fmt,'("(3X,""INPUT_LAYER_IDS ="",",I0,"(1X,I0))")') size(this%input_layer_ids)
    write(unit,fmt) this%input_layer_ids

  end subroutine print_to_unit_add