;+
; NAME:
;     EXPTIM2DPE 
; PURPOSE:
;     Convert a DPE to an exposure time in milliseconds
; CATEGORY:
;     Yohkoh
; CALLING SEQUENCE:
; INPUTS:
;      DPE_in
; OPTIONAL (KEYWORD) INPUT PARAMETERS:
; OUTPUTS:  Returns effective exposure time.
; COMMON BLOCKS:
; SIDE EFFECTS:
; RESTRICTIONS:  
; MODIFICATION HISTORY:
;     11-may-98, DMcK, written in ad-hoc, brute force, form as EXPTIM2DPE
;     29-may-98, DMcK, mutated to do the reverse of original program, and
;                converted from procedure to function. 
;-
; pro dpe2exptim 
function dpe2exptim,dpe_in 
dpeexp=fltarr(37)
dpeexp(0)=0.0773
dpeexp(1)=0.232
dpeexp(2)=0.960
dpeexp(3)=1.37
dpeexp(4)=2.88
dpeexp(5)=3.06
dpeexp(6)=4.67
dpeexp(7)=6.28
dpeexp(8)=9.50
dpeexp(9)=17.0
dpeexp(10)=28.0
dpeexp(11)=38.0
dpeexp(12)=58.0
dpeexp(13)=78.0
dpeexp(14)=118.0
dpeexp(15)=168.0
dpeexp(16)=238.0
dpeexp(17)=338.0
dpeexp(18)=468.0
dpeexp(19)=668.0
dpeexp(20)=948.0
dpeexp(21)=1340.0
dpeexp(22)=1890.0
dpeexp(23)=2670.0
dpeexp(24)=3780.0
dpeexp(25)=5340.0
dpeexp(26)=7550.0
dpeexp(27)=10700.0
dpeexp(28)=15100.0
dpeexp(29)=21400.0
dpeexp(30)=30200.0
dpeexp(31)=42700.0
dpeexp(32)=60400.0
dpeexp(33)=85400.0
dpeexp(34)=121000.0
dpeexp(35)=171000.0
dpeexp(36)=242000.0
return, dpeexp(dpe_in)
end