;+
; Project     : SOLAR-B - EIS
;
; Name        : EIS_CPT_READNUM
;
; Purpose     : Reads number from ORL engineering file.
;
; Explanation :
;
; Use         : < val = eis_cpt_readnum (str) >
;
; Inputs      : str  : STRING value
;
; Opt. Inputs :
;
; Outputs     : res   : INT 0 falied, 1 OK
;
; Opt. Outputs: None.
;
; Keywords    : VALUE : DOUBLE .
;
; Calls       : None.
;
; Common      : None.
;
; Restrictions: None.
;
; Side effects: None.
;
; Category    : EIS_CPT.
;
; Prev. Hist. : None.
;
; Written     : Martin Carter RAL 14/05/07
;
; Modified    : Version 0.0, 14/05/07, MKC
;
; Version     : 0.0, 14/05/07
;-
;**********************************************************

FUNCTION eis_cpt_readnum, str, VALUE=value

  ; check if in DOUBLE format

  pos = STREGEX(str,'^[0-9]*\.?[0-9]*[d|D|e|E]?[0-9]*',LENGTH=length)

  IF length EQ STRLEN(str) AND str NE '.' THEN BEGIN

    value = DOUBLE(str)

    RETURN, 1

  ENDIF

  RETURN, 0

END