The IDL procedure plotdata

pro plotdata, a, maxv, ax, az
  
;   Bo Milvang-Jensen, May 20, 1994.

    if n_params() eq (0) then begin
      print
      print, 'Procedure plotdata'
      print
      print, 'Usage:'
      print, 'plotdata, a, maxv, ax, az
      print
      print, 'Description:'
      print, 'This procedure plots the data in the array a.'
      print, 'Run the procedure calcdata first.'
      print
      print, 'file_in : name of data ascii input file with alpha, delta, redshift'
      print, 'a      : array which returns catesian coordinates'
      print, 'mav    : array which return maximum absolute values in x, y and z'
      print, 'ax     : ax angle (?)'
      print, 'az     : az angle (?)'
      print
      return
    end

    kgbox, -[maxv(0),maxv(1),maxv(2)],[maxv(0),maxv(1),maxv(2)],ax,az
    plots, a(*,0), a(*,1), a(*,2), psym=3, /t3d

end