mvn_sta_cmn_l2vararr.pro (Documentation for /home/davin/idl/socware/)

;+
;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
; $LastChangedBy: jimm $
; $LastChangedDate: 2014-10-08 16:58:19 -0700 (Wed, 08 Oct 2014) $
; $LastChangedRevision: 15951 $
; $URL: svn+ssh://thmsvn@ambrosia.ssl.berkeley.edu/repos/spdsoft/trunk/projects/maven/sta/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'], $
             ['END_TIME', 'TIME_END', 'Y'], $
             ['DELTA_T', 'TIME_DELTA', 'Y'], $
             ['INTEG_T', 'TIME_INTEG', 'Y'], $
             ['MD', 'MD', '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'], $
             ['END_TIME', 'TIME_END', 'Y'], $
             ['INTEG_T', 'INTEG_TIME', 'Y'], $
             ['MD', 'MD', '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'], $
             ['END_TIME', 'TIME_END', 'Y'], $
             ['INTEG_T', 'INTEG_TIME', 'Y'], $
             ['MD', 'MD', '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'], $
             ['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'], $
             ['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'], $
             ['END_TIME', 'TIME_END', 'Y'], $
             ['INTEG_T', 'INTEG_TIME', 'Y'], $
             ['MD', 'MD', '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'], $
             ['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