set_batch_size Module Subroutine

  module subroutine set_batch_size(this, batch_size)
    !! Set the batch size for the network
    implicit none

    ! Arguments
    class(network_type), intent(inout) :: this
    !! Instance of network
    integer, intent(in) :: batch_size
    !! Batch size

    ! Local variables
    integer :: l
    !! Loop index


    this%batch_size = batch_size

  end subroutine set_batch_size