PRO SUB_CONVERT_SHOT_AK19, RAWDATA, SHOT, CO_GAIN, X_GAIN, POL, ICATH ;converts rawdata from logamp to photocathode current ;uses gains from SUB_READ_AUX_AK19 Vlog = FLTARR(2000) Vlin = FLTARR(2000) IF POL EQ 'CO' or pol eq 'co' THEN begin Vlog = 0.002193*float(rawdata[shot,0:1999]) - 0.5331 Vlog = -Vlog Vlin = 10^((Vlog-0.48705)/0.12674) Icath = Vlin / (50.0*CO_GAIN) ;A photocathode current ENDIF IF POL EQ 'X' or pol eq 'x' THEN begin Vlog = 0.002193*float(rawdata[shot,2000:3999]) - 0.5331 Vlog = -Vlog Vlin = 10^((Vlog-0.48823)/0.12685) Icath = Vlin / (50.0*X_GAIN) ;A photocathode current ENDIF RETURN END