monitor_set_Print Subroutine

    impure subroutine monitor_set_Print(this,print_labels)
      !> Prints content of monitors.
      implicit none
      class(monitor_set), intent(inout) :: this                                !! Set of monitor objects
      logical,            intent(in),    &
                               optional :: print_labels                        !! True if we want to print the labels
      ! Work variables
      integer :: n

      associate(mpi => this%parallel)
        if (mpi%RankIsRoot()) then
          if (present(print_labels)) then
            do n=1,size(this%m)
              call this%m(n)%Print(print_labels)
            end do
          else
            do n=1,size(this%m)
              call this%m(n)%Print(.false.)
            end do
          end if
        end if
      end associate

      return
    end subroutine monitor_set_Print