PRO VAROUT, x, fileName, FORMAT=format
;===============================================================================
; (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, ||
;            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:VAROUT.PRO                                 K.-H. Dittberner - 29.OKT.1990
; V 01.3                                         P 476/45         - 11.JUL.1992
;
; IDL(V2.1)-Routine:   Schreiben einer Variablen in eine Text-Datei 
;                      im Gleitkomma-Format.
;
;          HINWEISE:   Die Variable kann mit VARIN wieder eingelesen werden.
;
;          KEYWORDS:   
;            FORMAT  = Hiermit kann ein besonderes Format fuer die Ausgabe
;                      angegeben werden. Einzelheiten siehe IDL-Manual.
;
; Quelle:  Do-it-yourself!      Merkposten: o  
;                                           o  
; Aufruf:  z.B. VAROUT, v1, "V1.TXT"        o  
;                                           o
;===============================================================================
; Aenderungen: [30/10/90-khd] => V 01.1:
;                - Die Experimentalfassung ist fertig.
;              [30/6/92-khd] => V 01.2:                         (Copy => WERNER)
;                - Keyword FORMAT zugefuegt.
;                - Behandlung von IO-Errors geaendert.
;                - Ausgabe der Anzahl der Werte zugefuegt.
;              [11/7/92-khd] => V 01.3:
;                - Fuer VAR x nur Datentyp Long Integer, Floating Point oder
;                  Double Precision zugelassen.
;                - Fehlende 2. VAR behandelt.
;===============================================================================
; 1. Prolog, Variablen und Konstanten:
;===============================================================================
;
  On_Error, 2                               ; Return => Ruf. Programm.
  On_IOerror, IO_Error

  dim = Size(x)
  typ = dim(dim(0)+1)

  If (typ lt 3) or (typ gt 5)  $
      then  Message, "Falscher Datentyp der Variablen."

  If (dim(0) ne 1)  $
      then  Message, "Variable ist kein Vektor."
  nx = dim(1)

  If (N_Params() eq 1)  $
      then Begin
           fileName = Read_FileName("Datei-Name (.TXT wird zugefuegt)", $
                                    /NoType)                          ; P 476/30
  Endif
;
;===============================================================================
; 2. Behandlung der Keywords (Default-Werte):
;===============================================================================
;
  If Not Keyword_Set(format) then   format = '(6(F12.5, " "))'
;
;===============================================================================
; 3. Schreiben der Daten:
;===============================================================================
;
  OpenW,  out, fileName, /Get_LUN
  PrintF, out, nx
  PrintF, out, x, FORMAT=format
  Goto, Ende
;
;===============================================================================
; 4. Schluss: 
;===============================================================================
;
IO_Error:
  On_IOerror, Null
  Print, !Err_String
Ende:
  Free_LUN, out
  END
;===============================================================================