monitor_obj_SetVal Subroutine

    impure subroutine monitor_obj_SetVal(this,n,value)
      !> Sets the value in the nth column of a monitor.
      implicit none
      class(monitor_obj),intent(inout) :: this                                 !! A monitor object
      integer,           intent(in)    :: n                                    !! Column index
      class(*),          intent(in)    :: value                                !! Value

      select type (value)
      type is (logical)
        write(this%col(n)%value,fmt=this%FMT(3)) value
      type is (real(leapDP))
        write(this%col(n)%value,fmt=this%FMT(2)) value
      type is (real(leapSP))
        write(this%col(n)%value,fmt=this%FMT(2)) value
      type is (integer(leapI4))
        write(this%col(n)%value,fmt=this%FMT(1)) value
      type is (integer(leapI8))
        write(this%col(n)%value,fmt=this%FMT(1)) value
      class default
        stop "Cannot pass anything other than logical or real or integer numbers to the monitor"
      end select

      return
    end subroutine monitor_obj_SetVal