get_telemetry.pro (JWST Pipeline routines in IDL)

;+
; A little script to read the temperatures from the telemetry file, 
; use as an example
; 
; :Author: M. Robberto
;-
pro get_telemetry,file
   file=files[jf]
   bar = STREGEX(file,'/')
   dirname = strmid(file,0,bar)
   CSVfile = FILE_SEARCH(DATA_PATH+'/'+dirname+'/*JW1.csv',count=nfiles)
   readcol,CSVfile,PrimaryTime,SecondaryTime,APID,TelemetryMnemonic,EUValue,Flags,RawType,RawValue,$
           skipline=1,FORMAT='(A,A,A,A,A,A,A,A)'
   iTemp = WHERE(STREGEX(flags,'INRC_FA_TMC1_SW_10MV_I') NE -1, Ntemp) 
   itmc = FLOAT(STRMID(RawType[iTemp],1,13))
   Timesec=STRMID(SecondaryTime[iTemp],0,2)*3600.+STRMID(SecondaryTime[iTemp],3,2)*60+STRMID(SecondaryTime[iTemp],6,6)
;
; make a plot
   ;PLOT,itmc,/YNO,PSYM=2
;
; convert to TKelving 
   cryo = 2
   tmc = 1
   module = 'A'
   channel = 'SW'
   
   temparray=fltarr(Ntemp)
   for ii=0,Ntemp-1 do begin & $
     temp_convert, cryo, tmc, module, channel, itmc[ii], fpa_temp & $
     temparray[ii] = fpa_temp & $
   endfor  
   ;
   ;just of this check, the temperature sensors have a resolution of 3.5mK.

end