pro plot_temps2,hk,v,timeint, single=single IF KEYWORD_SET(timeint) THEN timerange=timeint ELSE timerange=0 offset=12 ; hk1 = gethkn(hk,1) hk2 = gethkn(hk,2) hk3 = gethkn(hk,3) !y.title = 'Temp (Deg C)' IF (single EQ 0) THEN !p.multi=[0,3,4,0,1] ELSE !p.multi=0 getcputime,hk1,firstday,time1,cdstime=utc1 getcputime,hk2,firstday,time2,cdstime=utc2 getcputime,hk3,firstday,time3,cdstime=utc3 !x.title = 'Time (Hours) Starting Date: '+ utc2str(utc1(0)) offvolt = offset+2*(4-1) off_fp = offset+2*(47-1) IF (single EQ 0) OR (single EQ 1) THEN BEGIN ;v = tmpoint(hk1,offvolt+11,'ff00'xl) ;subword 11 v = fix(hk1(offvolt+22,*)) ;subword 11, high byte v = cnvrt_temps(v,3) utplot,utc1,v,title='LEB PC',yrange=[+19,+23] , timerange = timerange ENDIF ;v = tmpoint(hk2,off_fp+79,'ffff'xl) ;subword 79 ;v = cnvrt_temps(v,5) ;plot,time2,v,title='FP RING Board',yrange=[0,+40] ;v = tmpoint(hk2,off_fp+88,'ffff'xl) ;subword 88 ;v = cnvrt_temps(v) ;plot,time2,v,title='FP APZ Board',yrange=[0,+40] IF (single EQ 0) OR (single EQ 2) THEN BEGIN ;v = tmpoint(hk1,offvolt+16,'ff00'xl) ;subword 16 v = fix(hk1(offvolt+32,*)) ;subword 16, high byte v = cnvrt_temps(v,3) utplot,utc1,v,title='C2 Therm 1',yrange=[+15,+25] ,timerange=timerange ENDIF IF (single EQ 0) OR (single EQ 3) THEN BEGIN ;v = tmpoint(hk1,offvolt+17,'ff'xl) ;subword 17 v = fix(hk1(offvolt+35,*)) ;subword 17, low byte v = cnvrt_temps(v,3) utplot,utc1,v,title='C2 Therm 2',yrange=[+15,+25] ,timerange=timerange ENDIF IF (single EQ 0) OR (single EQ 4) THEN BEGIN ;v = tmpoint(hk1,offvolt+17,'ff00'xl) ;subword 17 v = fix(hk1(offvolt+34,*)) ;subword 17, high byte v = cnvrt_temps(v,3) utplot,utc1,v,title='C2 Therm 3',yrange=[+18,+22] ,timerange=timerange ENDIF IF (single EQ 0) OR (single EQ 5) THEN BEGIN ;v = tmpoint(hk1,offvolt+18,'ff'xl) ;subword 18 v = fix(hk1(offvolt+37,*)) ;subword 18, low byte v = cnvrt_temps(v,3) utplot,utc1,v,title='C3 Therm 1',yrange=[+15,+25] ,timerange=timerange ENDIF IF (single EQ 0) OR (single EQ 6) THEN BEGIN ;v = tmpoint(hk1,offvolt+18,'ff00'xl) ;subword 18 v = fix(hk1(offvolt+36,*)) ;subword 18, high byte v = cnvrt_temps(v,3) utplot,utc1,v,title='C3 Therm 2',yrange=[+17,+21] ,timerange=timerange ENDIF IF (single EQ 0) OR (single EQ 7) THEN BEGIN ;v = tmpoint(hk1,offvolt+19,'ff'xl) ;subword 19 v = fix(hk1(offvolt+39,*)) ;subword 19, low byte v = cnvrt_temps(v,3) utplot,utc1,v,title='C3 Therm 3',yrange=[+17,+21] ,timerange=timerange ENDIF ; ; now do zone thermistors ; ;offvolt = offset+88-1 ; the -1 is to take care of the subword offset offvolt = offset+2*(88-1) ; the -1 takes care of the subword offset IF (single EQ 0) OR (single EQ 8) THEN BEGIN ;v = tmpoint(hk3,offvolt+2,'ff'xl) ;subword 2 v = fix(hk3(offvolt+5,*)) ;subword 2, low byte v = cnvrt_temps(v,2) utplot,utc3,v,title='Zone Therm 1',yrange=[+15,+18] ,timerange=timerange ENDIF IF (single EQ 0) OR (single EQ 9) THEN BEGIN ;v = tmpoint(hk3,offvolt+2,'ff00'xl) ;subword 2 v = fix(hk3(offvolt+4,*)) ;subword 2, high byte v = cnvrt_temps(v,2) utplot,utc3,v,title='Zone Therm 2',yrange=[+10,+20] ,timerange=timerange ENDIF IF (single EQ 0) OR (single EQ 10) THEN BEGIN ;v = tmpoint(hk3,offvolt+3,'ff'xl) ;subword 3 v = fix(hk3(offvolt+7,*)) ;subword 3, low byte v = cnvrt_temps(v,2) utplot,utc3,v,title='Zone Therm 3',yrange=[+14,+18] ,timerange=timerange ENDIF IF (single EQ 0) OR (single EQ 11) THEN BEGIN ;v = tmpoint(hk3,offvolt+3,'ff00'xl) ;subword 3 v = fix(hk3(offvolt+6,*)) ;subword 3, high byte v = cnvrt_temps(v,2) utplot,utc3,v,title='Zone Therm 4',yrange=[+14,+18] ,timerange=timerange ENDIF IF (single EQ 0) OR (single EQ 12) THEN BEGIN ;v = tmpoint(hk3,offvolt+4,'ff'xl) ;subword 4 v = fix(hk3(offvolt+9,*)) ;subword 4, low byte v = cnvrt_temps(v,2) utplot,utc3,v,title='Zone Therm 5',yrange=[+14,+18] ,timerange=timerange ENDIF IF (single EQ 15) OR (single EQ 13) THEN BEGIN ;v = tmpoint(hk3,offvolt+4,'ff'xl) ;subword 4 v = fix(hk3(offvolt+8,*)) ;subword 4, low byte v = cnvrt_temps(v,2) utplot,utc3,v,title='EIT Zone Therm 6',yrange=[+15,+20] , timerange=timerange ENDIF IF (single EQ 15) OR (single EQ 14) THEN BEGIN ;v = tmpoint(hk3,offvolt+4,'ff'xl) ;subword 4 v = fix(hk3(offvolt+11,*)) ;subword 4, low byte v = cnvrt_temps(v,2) utplot,utc3,v,title='EIT Zone Therm 7',yrange=[+15,+20] ,timerange=timerange ENDIF !p.multi = 0 !x.title = '' !y.title = '' empty return end