;+
;NAME:
; mvn_sta_cmn_l2vararr
;PURPOSE:
; Returns an array with common block variable names for the input
; apid.
;CALLING SEQUENCE:
; vars = mvn_sta_cmn_l2vararr(apid)
;INPUT:
; apid = the app_id for the data type;
;OUTPUT:
; vars = a 3, N array with common block variable names for the input
; apid, with three columns, one is the common block name, the second is
; the name in the CDF file, the third is 'Y' or 'N' for record
; variance.
;HISTORY:
; 16-jun-2014,jmm, jimm@ssl.berkeley.edu
; 25-aug-2015, jmm, Added MET variable
; $LastChangedBy: jimm $
; $LastChangedDate: 2015-08-25 09:59:17 -0700 (Tue, 25 Aug 2015) $
; $LastChangedRevision: 18605 $
; $URL: svn+ssh://thmsvn@ambrosia.ssl.berkeley.edu/repos/spdsoft/tags/spedas_5_0/projects/maven/sta/l2util/mvn_sta_cmn_l2vararr.pro $
;-
Function mvn_sta_cmn_l2vararr, apid
;Just a long if then else if:
app_id = strlowcase(strcompress(/remove_all, apid))
a0 = strmid(app_id, 0, 1)
If(a0 Eq 'c' Or app_id Eq 'd0' Or app_id Eq 'd1' Or app_id Eq 'd2' Or app_id Eq 'd3' Or app_id Eq 'd4') Then Begin
vars = [['PROJECT_NAME', 'PROJECT_NAME', 'N'], $
['SPACECRAFT', 'SPACECRAFT', 'N'], $
['DATA_NAME', 'DATA_NAME', 'N'], $
['APID', 'APID', 'N'], $
['UNITS_NAME', 'UNITS_NAME', 'N'], $
['UNITS_PROCEDURE', 'UNITS_PROCEDURE', 'N'], $
['VALID', 'VALID', 'Y'], $
['QUALITY_FLAG', 'QUALITY_FLAG', 'Y'], $
['TIME', 'TIME_START', 'Y'], $
['MET', 'TIME_MET', 'Y'], $
['END_TIME', 'TIME_END', 'Y'], $
['DELTA_T', 'TIME_DELTA', 'Y'], $
['INTEG_T', 'TIME_INTEG', 'Y'], $
['EPROM_VER', 'EPROM_VER', 'Y'], $
['HEADER', 'HEADER', 'Y'], $
['MODE', 'MODE', 'Y'], $
['RATE', 'RATE', 'Y'], $
['SWP_IND', 'SWP_IND', 'Y'], $
['MLUT_IND', 'MLUT_IND', 'Y'], $
['EFF_IND', 'EFF_IND', 'Y'], $
['ATT_IND', 'ATT_IND', 'Y'], $
['NENERGY', 'NENERGY', 'N'], $
['ENERGY', 'ENERGY', 'N'], $
['DENERGY', 'DENERGY', 'N'], $
['NBINS', 'NBINS', 'N'], $
['BINS', 'BINS', 'N'], $
['NDEF', 'NDEF', 'N'], $
['NANODE', 'NANODE', 'N'], $
['THETA', 'THETA', 'N'], $
['DTHETA', 'DTHETA', 'N'], $
['PHI', 'PHI', 'N'], $
['DPHI', 'DPHI', 'N'], $
['DOMEGA', 'DOMEGA', 'N'], $
['GF', 'GF', 'N'], $
['EFF', 'EFF', 'N'], $
['GEOM_FACTOR', 'GEOM_FACTOR', 'N'], $
['DEAD1', 'DEAD_TIME_1', 'N'], $
['DEAD2', 'DEAD_TIME_2', 'N'], $
['DEAD3', 'DEAD_TIME_3', 'N'], $
['NMASS', 'NMASS', 'N'], $
['MASS', 'MASS', 'N'], $
['MASS_ARR', 'MASS_ARR', 'N'], $
['TOF_ARR', 'TOF_ARR', 'N'], $
['TWT_ARR', 'TWT_ARR', 'N'], $
['CHARGE', 'CHARGE', 'N'], $
['SC_POT', 'SC_POT', 'Y'], $
['MAGF', 'MAGF', 'Y'], $
['QUAT_SC', 'QUAT_SC', 'Y'], $
['QUAT_MSO', 'QUAT_MSO', 'Y'], $
['BINS_SC', 'BINS_SC', 'Y'], $
['POS_SC_MSO', 'POS_SC_MSO', 'Y'], $
['BKG', 'BKG', 'Y'], $
['DEAD', 'DEAD', 'Y'], $
['DATA', 'DATA', 'Y'], $
['EFLUX', 'EFLUX', 'Y']]
Endif Else If(app_id Eq 'd8' Or app_id Eq 'd9') Then Begin
vars = [['PROJECT_NAME', 'PROJECT_NAME', 'N'], $
['SPACECRAFT', 'SPACECRAFT', 'N'], $
['DATA_NAME', 'DATA_NAME', 'N'], $
['APID', 'APID', 'N'], $
['VALID', 'VALID', 'Y'], $
['QUALITY_FLAG', 'QUALITY_FLAG', 'Y'], $
['TIME', 'TIME_START', 'Y'], $
['MET', 'TIME_MET', 'Y'], $
['END_TIME', 'TIME_END', 'Y'], $
['INTEG_T', 'INTEG_TIME', 'Y'], $
['EPROM_VER', 'EPROM_VER', 'Y'], $
['HEADER', 'HEADER', 'Y'], $
['MODE', 'MODE', 'Y'], $
['RATE', 'RATE', 'Y'], $
['SWP_IND', 'SWP_IND', 'Y'], $
['ENERGY', 'ENERGY', 'N'], $
['NRATE', 'NRATE', 'N'], $
['RATE_LABELS', 'RATE_LABELS', 'N'], $
['RATES', 'RATES', 'Y']]
Endif Else If(app_id Eq 'da') Then Begin
vars = [['PROJECT_NAME', 'PROJECT_NAME', 'N'], $
['SPACECRAFT', 'SPACECRAFT', 'N'], $
['DATA_NAME', 'DATA_NAME', 'N'], $
['APID', 'APID', 'N'], $
['VALID', 'VALID', 'Y'], $
['QUALITY_FLAG', 'QUALITY_FLAG', 'Y'], $
['TIME', 'TIME_START', 'Y'], $
['MET', 'TIME_MET', 'Y'], $
['END_TIME', 'TIME_END', 'Y'], $
['INTEG_T', 'INTEG_TIME', 'Y'], $
['EPROM_VER', 'EPROM_VER', 'Y'], $
['HEADER', 'HEADER', 'Y'], $
['MODE', 'MODE', 'Y'], $
['RATE', 'RATE', 'Y'], $
['SWP_IND', 'SWP_IND', 'Y'], $
['ENERGY', 'ENERGY', 'N'], $
['NRATE', 'NRATE', 'N'], $
['RATE_LABELS', 'RATE_LABELS', 'N'], $
['RATE_CHANNEL', 'RATE_CHANNEL', 'Y'], $
['RATES', 'RATES', 'Y']]
Endif Else IF(app_id Eq 'd6') Then Begin
vars = [['PROJECT_NAME', 'PROJECT_NAME', 'N'], $
['SPACECRAFT', 'SPACECRAFT', 'N'], $
['DATA_NAME', 'DATA_NAME', 'N'], $
['APID', 'APID', 'N'], $
['VALID', 'VALID', 'Y'], $
['QUALITY_FLAG', 'QUALITY_FLAG', 'Y'], $
['TIME', 'TIME_UNIX', 'Y'], $
['MET', 'TIME_MET', 'Y'], $
['TDC_1', 'TDC_1', 'Y'], $
['TDC_2', 'TDC_2', 'Y'], $
['TDC_3', 'TDC_3', 'Y'], $
['TDC_4', 'TDC_4', 'Y'], $
['EVENT_CODE', 'EVENT_CODE', 'Y'], $
['CYCLESTEP', 'CYCLESTEP', 'Y'], $
['ENERGY', 'ENERGY', 'Y'], $
['TDC1_CONV', 'TDC1_CONV', 'N'], $
['TDC2_CONV', 'TDC2_CONV', 'N'], $
['TDC3_CONV', 'TDC3_CONV', 'N'], $
['TDC4_CONV', 'TDC4_CONV', 'N'], $
['TDC1_OFFSET', 'TDC1_OFFSET', 'N'], $
['TDC2_OFFSET', 'TDC2_OFFSET', 'N'], $
['TDC3_OFFSET', 'TDC3_OFFSET', 'N'], $
['TDC4_OFFSET', 'TDC4_OFFSET', 'N'], $
['AN_BIN_TDC3', 'AN_BIN_TDC3', 'N'], $
['AN_BIN_TDC4', 'AN_BIN_TDC4', 'N'], $
['MS_BIAS_OFFSET', 'MS_BIAS_OFFSET', 'N'], $
['EVCONVLUT', 'EVCONVLUT', 'N'], $
['TIMERST', 'TIMERST', 'N']]
Endif Else IF(app_id Eq 'd7') Then Begin
vars = [['PROJECT_NAME', 'PROJECT_NAME', 'N'], $
['SPACECRAFT', 'SPACECRAFT', 'N'], $
['DATA_NAME', 'DATA_NAME', 'N'], $
['APID', 'APID', 'N'], $
['VALID', 'VALID', 'Y'], $
['QUALITY_FLAG', 'QUALITY_FLAG', 'Y'], $
['TIME', 'TIME_UNIX', 'Y'], $
['MET', 'TIME_MET', 'Y'], $
['HKP_RAW', 'HKP_RAW', 'Y'], $
['HKP_CALIB', 'HKP_CALIB', 'Y'], $
['HKP_IND', 'HKP_IND', 'Y'], $
['NHKP', 'NHKP', 'N'], $
['HKP_CONV', 'HKP_CONV', 'N'], $
['HKP_LABELS', 'HKP_LABELS', 'N']]
Endif Else IF(app_id Eq 'db') Then Begin
vars = [['PROJECT_NAME', 'PROJECT_NAME', 'N'], $
['SPACECRAFT', 'SPACECRAFT', 'N'], $
['DATA_NAME', 'DATA_NAME', 'N'], $
['APID', 'APID', 'N'], $
['VALID', 'VALID', 'Y'], $
['QUALITY_FLAG', 'QUALITY_FLAG', 'Y'], $
['TIME', 'TIME_START', 'Y'], $
['MET', 'TIME_MET', 'Y'], $
['END_TIME', 'TIME_END', 'Y'], $
['INTEG_T', 'INTEG_TIME', 'Y'], $
['EPROM_VER', 'EPROM_VER', 'Y'], $
['HEADER', 'HEADER', 'Y'], $
['MODE', 'MODE', 'Y'], $
['RATE', 'RATE', 'Y'], $
['SWP_IND', 'SWP_IND', 'Y'], $
['ENERGY', 'ENERGY', 'N'], $
['TOF', 'TOF', 'N'], $
['DATA', 'DATA', 'Y']]
Endif Else IF(app_id Eq '2a') Then Begin
vars = [['PROJECT_NAME', 'PROJECT_NAME', 'N'], $
['SPACECRAFT', 'SPACECRAFT', 'N'], $
['DATA_NAME', 'DATA_NAME', 'N'], $
['APID', 'APID', 'N'], $
['QUALITY_FLAG', 'QUALITY_FLAG', 'Y'], $
['TIME', 'TIME_UNIX', 'Y'], $
['MET', 'TIME_MET', 'Y'], $
['NHKP', 'NHKP', 'N'], $
['CALIB_CONSTANTS', 'CALIB_CONSTANTS', 'N'], $
['HKP_LABELS', 'HKP_LABELS', 'N'], $
['HKP_RAW', 'HKP_RAW', 'Y'], $
['HKP', 'HKP', 'Y']]
Endif Else Begin
dprint, 'APID: '+app_id+'Not recognized'
vars = -1
Endelse
Return, vars
End