monitor_set_Info Subroutine

    impure subroutine monitor_set_Info(this)
      !> Print a number of diagnostics information.
      implicit none
      class(monitor_set), intent(inout) :: this                                !! Set of monitor objects
      ! Work variables
      integer :: n

      associate(mpi => this%parallel)
        if (mpi%RankIsRoot()) then
          write(stdout,*) 'Number of monitors = ', size(this%m)
          do n=1,size(this%m)
            write(stdout,*) 'Name = ',     this%m(n)%name
            write(stdout,*) 'FMT  = ',     this%m(n)%FMT
            write(stdout,*) 'Sep  = ', '"',this%m(n)%sep,'"'
            end do
        end if
      end associate

      return
    end subroutine monitor_set_Info