read_reshape_layer Function

  function read_reshape_layer(unit, verbose) result(layer)
    !! Read reshape layer from file
    implicit none

    ! Arguments
    integer, intent(in) :: unit
    !! File unit
    integer, intent(in), optional :: verbose
    !! Verbosity level
    class(base_layer_type), allocatable :: layer
    !! Instance of the reshape layer

    ! Local variables
    integer :: verbose_ = 0
    !! Verbosity level

    if(present(verbose)) verbose_ = verbose
    allocate(layer, source=reshape_layer_type(output_shape=[0]))
    call layer%read(unit, verbose=verbose_)

  end function read_reshape_layer