%N tvlut %F $MIR/src/subs/tv.for
%D Load a image display device's lookup table.
%P jm
%: tv, display
%B
        subroutine TVLut(table)

        implicit none
        character table*(*)

  This allows the caller to load a particular colour lookup table into
  the image display device.

  Inputs:
    table      The name of the table to load. Valid values are:
                 'B&W'
                 'Colour'
                 'Rainbow'
