;+
; NAME:
;	DPMODE_RMAP
; PURPOSE:
;	Remaps value of dpmode for telem value to 1,2,3, etc
; CATEGORY:
; CALLING SEQUENCE:
;	newval = dpmode_rmap(dpmode,dpms)
; INPUTS:
;	dpmode
; OPTIONAL INPUT PARAMETERS:
; KEYWORD PARAMETERS:
; OUTPUTS:
;	newval		remaped value of dp_mode
;			dpmode     x   12   13    9    4   11   22
;                       newval     1    2    3    4    5    6    7
; OPTIONAL OUTPUT PARAMETERS:
;	dpms		string array with names associated with dpmode
; COMMON BLOCKS:
; SIDE EFFECTS:
; RESTRICTIONS:
; PROCEDURE:
; MODIFICATION HISTORY:
;	RDB   7-May-94	Written
;-

function	dpmode_rmap,dpmode,dpms

;	Converts DP modes to
;	BCS-MEM	(dp_mode=22)  =  7, etc

;Mode     x       12      13       9      4      11        22
;Return   1        2       3       4      5       6         7
dpms = ['Other ','Night ','Quiet ','Flare ','ACS ','BCS-OUT ','BCS-MEM ']

dpm = dpmode

qdpm = where(dpm eq  22)		;BCS-MEM
if qdpm(0) ge 0 then dpm(qdpm) = 107
qdpm = where(dpm eq  11)		;BCS-OUT
if qdpm(0) ge 0 then dpm(qdpm) = 106
qdpm = where(dpm eq   4)		;ACS
if qdpm(0) ge 0 then dpm(qdpm) = 105
qdpm = where(dpm eq   9)		;Flare
if qdpm(0) ge 0 then dpm(qdpm) = 104
qdpm = where(dpm eq  13)		;Quiet
if qdpm(0) ge 0 then dpm(qdpm) = 103
qdpm = where(dpm eq  12)		;Night
if qdpm(0) ge 0 then dpm(qdpm) = 102
qdpm = where(dpm lt 100)		;Other
if qdpm(0) ge 0 then dpm(qdpm) = 101

return,dpm-100

end