;+
; @hidden_file
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;                                                                              ;
; CHPOINTCOMMA v. 2.5, 10 May 2006.                                            ;
; Jesús Maíz Apellániz, STScI                                                  ;
;                                                                              ;
; This function changes decimal points by decimal commas.                      ;
;                                                                              ;
; Positional parameters:                                                       ;
; v:      String array wiith the numbers to be substituted.                    ;
;                                                                              ;
; Version history:                                                             ;
; v1.0:   General clean up.                                                    ;
; v2.0:   English version.                                                     ;
; v2.1:   IDLdoc documentation.                                                ;
; v2.5:   Version system update.                                               ;
;                                                                              ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;-
FUNCTION CHPOINTCOMMA, v
ON_ERROR, 1
n       = N_ELEMENTS(v)
FOR i=0,n-1 DO BEGIN
;
; Encontramos la ocurrencia del primer punto. Este debería ser el punto decimal
; que nos interesa. El procedimiento solamente comprueba a continuación una
; posible excepción: Que sea un punto del tipo 3.10^4.
;                                              ^
;
 vaux = v[i]
 pos = STRPOS(vaux,'.')
 IF pos GE 0 AND STRMID(vaux,pos-2,3) NE '!9.' THEN STRPUT, vaux, ',', pos
 v[i] = vaux
ENDFOR
RETURN, v

END