PRO DISPLAY_POT, x, y, delta, titel_x, titel_y, line, NODELTA=nodelta
;===============================================================================
; (c) 1992 - khd c/o FU BERLIN.      A l l    r i g h t s    r e s e r v e d. ||
;      **    No part of this software package may be reproduced, transmitted, ||
;     1993   transcribed,  stored in a retrieval system,   or translated into ||
;            any form by any means without the   w r i t t e n  permission of ||
;            Karl-Heinz Dittberner-FU BERLIN, Arnimallee 22, D-1000 Berlin 33 ||
;===============================================================================
; PRO:DISPLAY_POT.PRO                            K.-H. Dittberner -  4.MAI.1992
; V 01.3                                         P 476/85         -  8.JAN.1993
;
; IDL(V2.1)-Routine:   Bildschirm-Ausgabe eines (EEG-) Potentials.
;
;          HINWEISE:   Dieses UP wird z.B. von AVE_EEG.PRO (P 476/37) verwendet.
;
;          KEYWORDS:   
;
;           /NODELTA = In den Ausgaben werden weder Standardabweichungen noch
;                      die Fehler der Mittelwerte eingezeichnet.
;
; Quelle:  Do-it-yourself!      Merkposten: o  
;          C92 249                          o  
;                                           o
; Aufruf:  Siehe AVE_EEG.                   o  
;                                           o
;===============================================================================
; Aenderungen: [10/11/92-khd] => V 01.1:
;                - Diese Prozedur aus dem UP "DISPLAY_POTENTIAL" aus Pkt.0 des
;                  Programms AVE_EEG.PRO-V02.16e vom 9/11/92 abgespalten.
;              [8/12/92-khd] => V 01.2:
;                - Common EEGS um 7 VARs erweitert.
;              [8/1/93-khd] => V 01.3:
;                - Alle Common-Bereiche auf externe Prozeduren mit Include 
;                  (@Common_...) umgestellt.
;===============================================================================
; 1. Prolog, Variablen und Konstanten:
;===============================================================================
;
  On_Error, 2                               ; Return => Ruf. Programm.
                                  
@COMMON_EEGS                                ; Include P 476/49.
@COMMON_PLOTS                               ; Include P 476/92.
@COMMON_DEVI                                ; Include P 476/91.
;
;===============================================================================
; 2. Behandlung der Keywords (Default-Werte):
;===============================================================================
;
  If Keyword_Set(Batch_Job) then  Return    ; Keine Terminal-Ausgabe.
;
;===============================================================================
; 3. Die Ausgabe auf dem Bildschirm:
;===============================================================================
;
  Plot, x, y, Xrange=xplotr, Yrange=yplotr, $
              Xstyle=1, Xtitle=titel_x, $      
                        Ytitle=titel_y, Thick=3, LineStyle=line

  If Not Keyword_Set(nodelta) $
     then Begin
          Oplot, x, y-delta, LineStyle=0, Color=2
          Oplot, x, y+delta, LineStyle=0, Color=2
  Endif
;
;===============================================================================
; 4. Schluss: 
;===============================================================================
;
Ende:
  END
;===============================================================================