;+ ; FUNCTION: GET_PULSECODE_EISCAT ; pulse_out = get_pulsecode_eiscat(pulse_in, mode) ; ; :DESCRIPTION: ; Convert pulse_code_id of the EISCAT radar observation to ; pulse_code or vice versa. ; ; :KEYWORDS: ; pulse_in: pulse_code_id(integer) or pulse_code(string) ; mode: 0(default) : id ---> pulse_code ; others : pulse_code ---> id ; pulse_out: output (pulse_code or id) ; ; Written by Y.-M. Tanaka, June 15, 2012 (ytanaka at nipr.ac.jp) ;- function get_pulsecode_eiscat, pulse_in, mode if ~keyword_set(mode) then mode=0 if ~keyword_set(pulse_in) then begin print, 'No input data!' stop endif ;----- pulse_code_id --> pulse_code -----; if mode eq 0 then begin if size(pulse_in, /type) ne 2 then begin print, 'The pulse_in must be an integer for this mode.' pulse_out='' endif else begin case pulse_in of 0 : pulse_out='cp0' 1 : pulse_out='cp1' 2 : pulse_out='cp2' 3 : pulse_out='cp3' 4 : pulse_out='cp4' 5 : pulse_out='cp5' 6 : pulse_out='cp6' 7 : pulse_out='cp7' 8 : pulse_out='cp8' 9 : pulse_out='cp9' 10 : pulse_out='tau0' 11 : pulse_out='tau1' 12 : pulse_out='tau2' 13 : pulse_out='tau3' 14 : pulse_out='tau4' 15 : pulse_out='tau5' 16 : pulse_out='tau6' 17 : pulse_out='tau7' 18 : pulse_out='tau8' 19 : pulse_out='tau9' 20 : pulse_out='t2pl' 31 : pulse_out='ipy0' 32 : pulse_out='beat' 33 : pulse_out='taro' 34 : pulse_out='folk' 35 : pulse_out='arc1' 36 : pulse_out='mand' 37 : pulse_out='stef' 38 : pulse_out='hild' 39 : pulse_out='pia0' 40 : pulse_out='gup0' 41 : pulse_out='gup1' 42 : pulse_out='gup2' 43 : pulse_out='gup3' 50 : pulse_out='cp0e' 51 : pulse_out='cp0f' 52 : pulse_out='cp0g' 53 : pulse_out='cp0h' 54 : pulse_out='cp1c' 55 : pulse_out='cp1d' 56 : pulse_out='cp1e' 57 : pulse_out='cp1f' 58 : pulse_out='cp1h' 59 : pulse_out='cp1i' 60 : pulse_out='cp1j' 61 : pulse_out='cp1k' 62 : pulse_out='cp1l' 63 : pulse_out='cp2b' 64 : pulse_out='cp2c' 65 : pulse_out='cp2d' 66 : pulse_out='cp2e' 67 : pulse_out='cp2f' 68 : pulse_out='cp2h' 69 : pulse_out='cp2i' 70 : pulse_out='cp2j' 71 : pulse_out='cp2k' 72 : pulse_out='cp3b' 73 : pulse_out='cp3c' 74 : pulse_out='cp3d' 75 : pulse_out='cp3e' 76 : pulse_out='cp3f' 77 : pulse_out='cp3h' 78 : pulse_out='cp3i' 79 : pulse_out='cp3j' 80 : pulse_out='cp3k' 81 : pulse_out='cp4a' 82 : pulse_out='cp4b' 83 : pulse_out='cp5a' 84 : pulse_out='cp5b' 85 : pulse_out='cp5c' 86 : pulse_out='cp6a' 87 : pulse_out='cp6b' 88 : pulse_out='cp6c' 89 : pulse_out='cp7a' 90 : pulse_out='cp7b' 91 : pulse_out='cp7c' 92 : pulse_out='cp7d' 93 : pulse_out='cp7e' 94 : pulse_out='cp7f' 95 : pulse_out='cp7g' 96 : pulse_out='cp7h' 97 : pulse_out='sp00' 98 : pulse_out='sp1c' 99 : pulse_out='sp1d' 100 : pulse_out='sp1e' 101 : pulse_out='sp1f' 102 : pulse_out='sp1h' 103 : pulse_out='sp1i' 104 : pulse_out='sp1j' 105 : pulse_out='sp1k' 106 : pulse_out='sp2b' 107 : pulse_out='sp2c' 108 : pulse_out='sp2d' 109 : pulse_out='sp2e' 110 : pulse_out='sp2f' 111 : pulse_out='sp2h' 112 : pulse_out='sp2i' 113 : pulse_out='CP1H' 114 : pulse_out='CP1K' 115 : pulse_out='CP3F' 116 : pulse_out='PULS' 117 : pulse_out='CONV' else : begin print, 'The pulse_code_id is not supported.' pulse_out='' end endcase endelse ;----- pulse_code --> pulse_code_id -----; endif else begin if size(pulse_in, /type) ne 7 then begin print, 'The pulse_in must be an string for this mode.' pulse_out=-1 endif else begin case pulse_in of 'cp0': pulse_out=0 'cp1': pulse_out=1 'cp2': pulse_out=2 'cp3': pulse_out=3 'cp4': pulse_out=4 'cp5': pulse_out=5 'cp6': pulse_out=6 'cp7': pulse_out=7 'cp8': pulse_out=8 'cp9': pulse_out=9 'tau0': pulse_out=10 'tau1': pulse_out=11 'tau2': pulse_out=12 'tau3': pulse_out=13 'tau4': pulse_out=14 'tau5': pulse_out=15 'tau6': pulse_out=16 'tau7': pulse_out=17 'tau8': pulse_out=18 'tau9': pulse_out=19 't2pl': pulse_out=20 'ipy0': pulse_out=31 'beat': pulse_out=32 'taro': pulse_out=33 'folk': pulse_out=34 'arc1': pulse_out=35 'mand': pulse_out=36 'stef': pulse_out=37 'hild': pulse_out=38 'pia0': pulse_out=39 'gup0': pulse_out=40 'gup1': pulse_out=41 'gup2': pulse_out=42 'gup3': pulse_out=43 'cp0e': pulse_out=50 'cp0f': pulse_out=51 'cp0g': pulse_out=52 'cp0h': pulse_out=53 'cp1c': pulse_out=54 'cp1d': pulse_out=55 'cp1e': pulse_out=56 'cp1f': pulse_out=57 'cp1h': pulse_out=58 'cp1i': pulse_out=59 'cp1j': pulse_out=60 'cp1k': pulse_out=61 'cp1l': pulse_out=62 'cp2b': pulse_out=63 'cp2c': pulse_out=64 'cp2d': pulse_out=65 'cp2e': pulse_out=66 'cp2f': pulse_out=67 'cp2h': pulse_out=68 'cp2i': pulse_out=69 'cp2j': pulse_out=70 'cp2k': pulse_out=71 'cp3b': pulse_out=72 'cp3c': pulse_out=73 'cp3d': pulse_out=74 'cp3e': pulse_out=75 'cp3f': pulse_out=76 'cp3h': pulse_out=77 'cp3i': pulse_out=78 'cp3j': pulse_out=79 'cp3k': pulse_out=80 'cp4a': pulse_out=81 'cp4b': pulse_out=82 'cp5a': pulse_out=83 'cp5b': pulse_out=84 'cp5c': pulse_out=85 'cp6a': pulse_out=86 'cp6b': pulse_out=87 'cp6c': pulse_out=88 'cp7a': pulse_out=89 'cp7b': pulse_out=90 'cp7c': pulse_out=91 'cp7d': pulse_out=92 'cp7e': pulse_out=93 'cp7f': pulse_out=94 'cp7g': pulse_out=95 'cp7h': pulse_out=96 'sp00': pulse_out=97 'sp1c': pulse_out=98 'sp1d': pulse_out=99 'sp1e': pulse_out=100 'sp1f': pulse_out=101 'sp1h': pulse_out=102 'sp1i': pulse_out=103 'sp1j': pulse_out=104 'sp1k': pulse_out=105 'sp2b': pulse_out=106 'sp2c': pulse_out=107 'sp2d': pulse_out=108 'sp2e': pulse_out=109 'sp2f': pulse_out=110 'sp2h': pulse_out=111 'sp2i': pulse_out=112 'CP1H': pulse_out=113 'CP1K': pulse_out=114 'CP3F': pulse_out=115 'PULS': pulse_out=116 'CONV': pulse_out=117 else : begin print, 'The pulse_code is not supported.' pulse_out=-1 end endcase endelse endelse return, pulse_out end