;+
; Project     :	SOLAR-B - EIS
;
; Name        :	EIS_CPT_CHANGES
;
; Purpose     :	Calculates no. of changes in array.
;
; Explanation :	Calculates number of times array element changes.
;
; Use         :	< nchanges = eis_cpt_changes(array) >
;
; Inputs      :	array : ARRAY[n] values.
;
; Opt. Inputs : None.
;
; Outputs     : nchanges : LONG no. of times array changes.
;
; Opt. Outputs:	None.
;
; Keywords    : None.
;
; Calls       : None.
;
; Common      :	None.
;
; Restrictions:	None.
;
; Side effects:	None.
;
; Category    :	EIS_CPT.
;
; Prev. Hist. :	None.
;
; Written     :	Martin Carter RAL 10/01/07
;
; Modified    :	Version 0.0, 10/01/07, MKC
;
; Version     :	0.0, 10/01/07
;-
;**********************************************************

FUNCTION eis_cpt_changes, array

  nchanges = 0L

  FOR k = 0, N_ELEMENTS(array)-2 DO IF array[k] NE array[k+1] THEN nchanges = nchanges + 1

  ; return no. of changes

  RETURN, nchanges

END