monitor_obj_Print Subroutine

    impure subroutine monitor_obj_Print(this,print_labels)
      !> Prints to file or stdout content of the monitor
      implicit none
      class(monitor_obj), intent(inout) :: this                                !! A monitor object
      logical,            intent(in)    :: print_labels                        !! True if we want to print labels
      ! Work variables
      integer :: n

      if (print_labels) then
        ! Write output
        write (this%fid,fmt=this%FMT(4))  (trim(adjustl(this%col(n)%label)),this%sep, n=1,size(this%col))
      else
        write (this%fid,fmt=this%FMT(4))  (trim(adjustl(this%col(n)%value)),this%sep, n=1,size(this%col))
      end if
      flush(this%fid)

      return
    end subroutine monitor_obj_Print