PRO Error, n, procName

;+
;CALLING SEQUENCE:
;	Error, n [, procName ]
;PURPOSE:
;	List of errors for enrad and mdisp systems.
; INPUTS:
;	n: number of the message to display
;	procName: name of the calling procedure
;-

  IF N_Elements( procName ) EQ 0 THEN procName = '' $
  ELSE procName = ' in ' + procName 

  CASE n OF
    1: text = 'Not enough parameters '
    2: text = 'Too much parameters'
    3: text = 'Works only in on X Windows terminals'
    4: text = 'Wrong number of parameters'  
    5: text = 'There must be an image to display'
    6: text = 'The dimension is not correct'
    7: text = 'There must be data to transform'
    8: text = 'There is no plot with such a name in the list'
    9: text = 'Equal sign in header line not found '
    10: text = 'Keyword not defined '
    11: text = 'These numbers have no corresponding plots'
    12: text = 'There is no data in memory '
    13: text = 'No plots selected'
    14: text = 'No plot with such name found'
    15: text = 'Argument undefined '
    16: text = 'A window should be opened.'
    ELSE: text = ''
  ENDCASE
  Print,'Error ', procName, ': ', text
END ; Error