;+
; Project     :	SOLAR-B - EIS
;
; Name        :	EIS_CPT_WRITE_ASCII
;
; Purpose     :	Writes STRARR to ASCII file.
;
; Explanation :
;
; Use         :	< res = eis_cpt_write_ascii(file,text) >
;
; Inputs      :	file : STRING file name
;               text : STRARR text data
;
; Opt. Inputs : None.
;
; Outputs     : res  : INT flag indicating result
;                        1 : ok
;                        0 : not ok
;
; Opt. Outputs:	None.
;
; Keywords    : None.
;
; Calls       : None.
;
; Common      :	None.
;
; Restrictions:	None.
;
; Side effects:	None.
;
; Category    :	EIS_CPT.
;
; Prev. Hist. :	None.
;
; Written     :	Martin Carter RAL 21/10/04
;
; Modified    :	Version 0.0, 21/10/04, MKC
;
; Version     :	Version 0.0, 21/10/04
;-
;**********************************************************

FUNCTION eis_cpt_write_ascii, file, text

  ; open file for writing

  unit = eis_cpt_open_file(file,/WRITE)

  IF NOT KEYWORD_SET(unit) THEN GOTO, error

  ; write text

  IF NOT KEYWORD_SET( eis_cpt_write_text(unit,text) ) THEN GOTO, error

  ; close file

  IF NOT KEYWORD_SET( eis_cpt_close_file(unit) ) THEN GOTO, error

  ; return ok

  RETURN, 1

error :

  ; issue routine name

  MESSAGE, 'ERROR', /INFORMATIONAL

  ; return error

  RETURN, 0

END