%N display %F $MIR/src/subs/tvsubs.for
%D Load a map onto a TV device with user specified ranges.
%P jm
%: image-data, tv, display
%B
      subroutine display(map, Mx, Nx, Ny, chan, x0, y0, pmin, pmax)

      implicit none
      integer Mx, Nx, Ny, chan, x0, y0
      real map(Mx, Ny), pmin, pmax

  Displays an array of real numbers on the TV device scaled to the
  limits of the device.  An internal integer array is used to hold
  the scaled data and quietly accounts for very large array
  dimensions.

  Input:
    map(Nx,Ny)   Input real array of values.
    Mx           The maximum (or declared) X dimension of the array.
    Nx, Ny       X/Y working dimensions of the map array.
    chan         The TV channel to load the image.
    x0, y0       The lower left corner to start loading the image.
    pmin         The minimum value of the array.
    pmax         The maximum value of the array.

  Output:
    none
