c *************************************************************** Real Function mVolt(Tlm,rcv,rcvmode,ant,In_units,jchannel . ,Out_units) c *************************************************************** c c Program to convert receiver output telemetry values to voltage at c input of the preamps. c Input: Tlm (receiver output telemetry value) -- need not be an integer c Input/Output Parameters: c rcv : receiver -- 'rad1' or 'rad2' c rcvmode: receiver mode -- 's', 'sp', or 'z' c ant: antenna -- 'ex', 'ey', or 'ez' c In_units: 'chan' or 'freq' c jchannel: frequency channel -- 0 - 255 c or frequency: 20 - 1040kHz for RAD1 c 1075 - 13825 for RAD2 c Out_units: 'mV' = microvolts/sqrt(Hz) at preamp input c 'watt' = Watts/m^2Hz c 'logW' = log(Watts/m^2Hz) c 'sfu' = solar flux units(sfu) c 'logS' = log(sfu) c 'dBV' = dB volts c Parameter ( Mrad=2, Msz=3, Mfreq=256, Mfrec=16, Munit=3 ) Real Tlm Real*8 A1s1x(Mfreq),A2s1x,A3s1x,V0s1x(Mfreq) Real*8 A1sp1x(Mfreq),A2sp1x,A3sp1x Real*8 A1s1y(Mfreq),A2s1y,A3s1y,V0s1y(Mfreq) Real*8 A1sp1y(Mfreq),A2sp1y,A3sp1y Real*8 A1z1(Mfreq),A2z1,A3z1,V0z1(Mfreq) Real*8 A1s2(Mfreq),A2s2,A3s2,V0s2(Mfreq) Real*8 A1sp2(Mfreq),A2sp2,A3sp2 Real*8 A1z2(Mfreq),A2z2,A3z2,V0z2(Mfreq) Integer Ircv,Imode,Ichannel,Jchannel character*(*) rcv,in_units,out_units character*(*) rcvmode,ant real*4 Lx,Ly,Lz,Cax,Cay,Caz,Cbx,Cby,Cbz,Z0 c Antenna parameters: lengths, antenna and base capacitances. Lx = 50. Ly = 7.5 Lz = 4.3 Cax = 121.2 Cay = 21.76 Caz = 25.36 Cbx = 20. Cby = 20. Cbz = 44. Z0 = 377 c -------------------------------------------------------------- c Tables of A1, A2, A3 parameters for the log law function c obtained by fitting to the calibration curves at 16 (for RAD1) c or 17 (for RAD2) discrete frequencies. The interpolated values c for A1 for the 256 frequencies were obtained by a spline fit. c The various forms correspond to different instrument modes, c receiver and antenna configurations. c Notation is A1-mode-receiver-antenna, etc. c -------------------------------------------------------------- c Log law coefficients for RAD1 Data A1s1x/75.41, 76.15, 76.77, 77.26, 77.63, 77.91, 78.10, 78.23, . 78.31, 78.35, 78.36, 78.35, 78.31, 78.26, 78.20, 78.14, . 78.08, 78.02, 77.96, 77.90, 77.84, 77.77, 77.70, 77.62, . 77.54, 77.46, 77.38, 77.30, 77.22, 77.14, 77.06, 76.99, . 76.92, 76.85, 76.79, 76.73, 76.67, 76.61, 76.55, 76.49, . 76.43, 76.38, 76.32, 76.27, 76.22, 76.16, 76.11, 76.06, . 76.01, 75.95, 75.90, 75.85, 75.81, 75.76, 75.71, 75.67, . 75.62, 75.58, 75.54, 75.50, 75.46, 75.42, 75.39, 75.36, . 75.33, 75.30, 75.28, 75.26, 75.23, 75.22, 75.20, 75.18, . 75.17, 75.15, 75.14, 75.13, 75.12, 75.10, 75.09, 75.08, . 75.07, 75.06, 75.05, 75.04, 75.03, 75.01, 75.00, 74.99, . 74.98, 74.96, 74.95, 74.94, 74.92, 74.91, 74.90, 74.88, . 74.87, 74.85, 74.84, 74.83, 74.81, 74.80, 74.78, 74.77, . 74.76, 74.74, 74.73, 74.71, 74.70, 74.69, 74.67, 74.66, . 74.65, 74.63, 74.62, 74.61, 74.59, 74.58, 74.57, 74.56, . 74.54, 74.53, 74.52, 74.51, 74.50, 74.49, 74.48, 74.47, . 74.46, 74.45, 74.44, 74.43, 74.42, 74.42, 74.41, 74.40, . 74.40, 74.39, 74.39, 74.38, 74.38, 74.37, 74.37, 74.36, . 74.36, 74.35, 74.35, 74.35, 74.34, 74.34, 74.34, 74.33, . 74.33, 74.33, 74.32, 74.32, 74.32, 74.32, 74.31, 74.31, . 74.31, 74.31, 74.30, 74.30, 74.30, 74.29, 74.29, 74.29, . 74.29, 74.28, 74.28, 74.28, 74.27, 74.27, 74.27, 74.26, . 74.26, 74.25, 74.25, 74.24, 74.24, 74.23, 74.23, 74.22, . 74.22, 74.21, 74.21, 74.20, 74.19, 74.19, 74.18, 74.17, . 74.17, 74.16, 74.15, 74.14, 74.13, 74.13, 74.12, 74.11, . 74.10, 74.09, 74.09, 74.08, 74.07, 74.06, 74.05, 74.04, . 74.03, 74.02, 74.01, 74.00, 73.99, 73.98, 73.97, 73.97, . 73.96, 73.95, 73.94, 73.93, 73.92, 73.91, 73.90, 73.89, . 73.88, 73.88, 73.87, 73.86, 73.85, 73.85, 73.84, 73.83, . 73.83, 73.82, 73.82, 73.81, 73.81, 73.80, 73.80, 73.80, . 73.79, 73.79, 73.79, 73.78, 73.78, 73.78, 73.78, 73.78, . 73.77, 73.77, 73.77, 73.77, 73.77, 73.77, 73.77, 73.77/ Data A1sp1x/75.54, 76.25, 76.86, 77.36, 77.74, 78.01, 78.20,78.32, . 78.40, 78.43, 78.44, 78.41, 78.37, 78.31, 78.24, 78.18, . 78.12, 78.07, 78.01, 77.96, 77.90, 77.84, 77.77, 77.70, . 77.62, 77.53, 77.45, 77.37, 77.28, 77.20, 77.12, 77.05, . 76.98, 76.91, 76.84, 76.78, 76.72, 76.66, 76.60, 76.55, . 76.49, 76.44, 76.38, 76.33, 76.28, 76.23, 76.17, 76.12, . 76.07, 76.02, 75.97, 75.92, 75.88, 75.83, 75.78, 75.74, . 75.69, 75.65, 75.61, 75.57, 75.53, 75.50, 75.46, 75.43, . 75.40, 75.37, 75.35, 75.32, 75.30, 75.28, 75.26, 75.24, . 75.22, 75.21, 75.19, 75.18, 75.16, 75.15, 75.14, 75.13, . 75.11, 75.10, 75.09, 75.07, 75.06, 75.05, 75.03, 75.02, . 75.01, 74.99, 74.98, 74.97, 74.95, 74.94, 74.93, 74.91, . 74.90, 74.88, 74.87, 74.86, 74.84, 74.83, 74.82, 74.80, . 74.79, 74.78, 74.76, 74.75, 74.74, 74.72, 74.71, 74.70, . 74.68, 74.67, 74.66, 74.65, 74.64, 74.62, 74.61, 74.60, . 74.59, 74.58, 74.57, 74.56, 74.55, 74.54, 74.53, 74.52, . 74.51, 74.51, 74.50, 74.49, 74.49, 74.48, 74.48, 74.47, . 74.47, 74.46, 74.46, 74.46, 74.45, 74.45, 74.45, 74.44, . 74.44, 74.44, 74.44, 74.44, 74.44, 74.43, 74.43, 74.43, . 74.43, 74.43, 74.43, 74.43, 74.43, 74.42, 74.42, 74.42, . 74.42, 74.42, 74.42, 74.42, 74.42, 74.41, 74.41, 74.41, . 74.41, 74.41, 74.40, 74.40, 74.40, 74.39, 74.39, 74.39, . 74.38, 74.38, 74.37, 74.37, 74.36, 74.35, 74.35, 74.34, . 74.33, 74.32, 74.31, 74.31, 74.30, 74.29, 74.28, 74.27, . 74.26, 74.25, 74.24, 74.23, 74.22, 74.21, 74.20, 74.19, . 74.17, 74.16, 74.15, 74.14, 74.13, 74.12, 74.11, 74.10, . 74.09, 74.08, 74.07, 74.06, 74.05, 74.04, 74.03, 74.02, . 74.01, 74.00, 73.99, 73.98, 73.97, 73.97, 73.96, 73.95, . 73.94, 73.93, 73.93, 73.92, 73.91, 73.91, 73.90, 73.89, . 73.89, 73.88, 73.88, 73.87, 73.87, 73.86, 73.86, 73.86, . 73.85, 73.85, 73.85, 73.84, 73.84, 73.84, 73.84, 73.84, . 73.83, 73.83, 73.83, 73.83, 73.83, 73.83, 73.83, 73.83/ Data A1s1y/84.85, 85.63, 86.27, 86.75, 87.10, 87.34, 87.49, 87.59, . 87.65, 87.66, 87.64, 87.59, 87.52, 87.43, 87.34, 87.25, . 87.16, 87.08, 87.00, 86.93, 86.85, 86.76, 86.67, 86.57, . 86.47, 86.36, 86.26, 86.15, 86.04, 85.94, 85.84, 85.75, . 85.66, 85.57, 85.48, 85.40, 85.32, 85.25, 85.17, 85.10, . 85.03, 84.96, 84.89, 84.82, 84.75, 84.69, 84.62, 84.55, . 84.49, 84.43, 84.36, 84.30, 84.24, 84.18, 84.12, 84.06, . 84.01, 83.95, 83.90, 83.84, 83.79, 83.74, 83.69, 83.65, . 83.60, 83.56, 83.51, 83.47, 83.43, 83.40, 83.36, 83.33, . 83.29, 83.26, 83.23, 83.20, 83.16, 83.13, 83.11, 83.08, . 83.05, 83.02, 82.99, 82.96, 82.94, 82.91, 82.88, 82.86, . 82.83, 82.81, 82.78, 82.76, 82.73, 82.71, 82.68, 82.66, . 82.63, 82.61, 82.58, 82.56, 82.54, 82.51, 82.49, 82.47, . 82.44, 82.42, 82.40, 82.38, 82.35, 82.33, 82.31, 82.29, . 82.27, 82.25, 82.23, 82.21, 82.19, 82.17, 82.15, 82.13, . 82.11, 82.09, 82.07, 82.05, 82.04, 82.02, 82.00, 81.99, . 81.97, 81.95, 81.94, 81.93, 81.91, 81.90, 81.89, 81.87, . 81.86, 81.85, 81.84, 81.83, 81.82, 81.81, 81.80, 81.79, . 81.78, 81.77, 81.77, 81.76, 81.75, 81.74, 81.73, 81.73, . 81.72, 81.71, 81.70, 81.70, 81.69, 81.68, 81.68, 81.67, . 81.66, 81.66, 81.65, 81.65, 81.64, 81.63, 81.63, 81.62, . 81.62, 81.61, 81.60, 81.60, 81.59, 81.59, 81.58, 81.58, . 81.57, 81.57, 81.56, 81.56, 81.55, 81.54, 81.54, 81.53, . 81.53, 81.52, 81.52, 81.51, 81.51, 81.50, 81.50, 81.49, . 81.49, 81.48, 81.47, 81.47, 81.46, 81.46, 81.45, 81.44, . 81.44, 81.43, 81.42, 81.41, 81.41, 81.40, 81.39, 81.38, . 81.37, 81.36, 81.35, 81.35, 81.34, 81.33, 81.32, 81.31, . 81.30, 81.29, 81.28, 81.27, 81.26, 81.25, 81.24, 81.23, . 81.22, 81.21, 81.20, 81.19, 81.19, 81.18, 81.17, 81.16, . 81.16, 81.15, 81.14, 81.14, 81.13, 81.13, 81.12, 81.12, . 81.11, 81.11, 81.11, 81.10, 81.10, 81.10, 81.10, 81.09, . 81.09, 81.09, 81.09, 81.08, 81.08, 81.08, 81.08, 81.08/ Data A1sp1y/84.85, 85.66, 86.31, 86.80, 87.15, 87.36, 87.50,87.60, . 87.67, 87.69, 87.68, 87.63, 87.57, 87.48, 87.39, 87.30, . 87.21, 87.13, 87.06, 86.98, 86.90, 86.82, 86.73, 86.64, . 86.54, 86.44, 86.33, 86.23, 86.12, 86.02, 85.92, 85.82, . 85.72, 85.63, 85.54, 85.45, 85.36, 85.27, 85.19, 85.11, . 85.03, 84.96, 84.88, 84.81, 84.74, 84.67, 84.61, 84.55, . 84.49, 84.43, 84.37, 84.31, 84.26, 84.21, 84.16, 84.11, . 84.06, 84.01, 83.96, 83.92, 83.87, 83.83, 83.78, 83.74, . 83.70, 83.66, 83.62, 83.58, 83.54, 83.50, 83.46, 83.43, . 83.39, 83.36, 83.32, 83.29, 83.25, 83.22, 83.18, 83.15, . 83.12, 83.09, 83.06, 83.03, 83.00, 82.97, 82.94, 82.92, . 82.89, 82.86, 82.84, 82.81, 82.78, 82.76, 82.73, 82.71, . 82.69, 82.66, 82.64, 82.62, 82.59, 82.57, 82.55, 82.53, . 82.50, 82.48, 82.46, 82.44, 82.42, 82.40, 82.38, 82.36, . 82.34, 82.32, 82.30, 82.28, 82.26, 82.24, 82.23, 82.21, . 82.19, 82.17, 82.16, 82.14, 82.13, 82.11, 82.10, 82.08, . 82.07, 82.05, 82.04, 82.03, 82.02, 82.00, 81.99, 81.98, . 81.97, 81.96, 81.95, 81.94, 81.93, 81.92, 81.92, 81.91, . 81.90, 81.89, 81.88, 81.88, 81.87, 81.86, 81.86, 81.85, . 81.84, 81.84, 81.83, 81.82, 81.82, 81.81, 81.80, 81.80, . 81.79, 81.79, 81.78, 81.77, 81.77, 81.76, 81.76, 81.75, . 81.74, 81.74, 81.73, 81.73, 81.72, 81.71, 81.71, 81.70, . 81.70, 81.69, 81.68, 81.68, 81.67, 81.66, 81.66, 81.65, . 81.64, 81.63, 81.63, 81.62, 81.61, 81.60, 81.60, 81.59, . 81.58, 81.57, 81.56, 81.55, 81.55, 81.54, 81.53, 81.52, . 81.51, 81.50, 81.49, 81.48, 81.47, 81.46, 81.45, 81.44, . 81.43, 81.42, 81.41, 81.40, 81.39, 81.37, 81.36, 81.35, . 81.34, 81.33, 81.32, 81.31, 81.30, 81.29, 81.28, 81.27, . 81.26, 81.25, 81.24, 81.23, 81.23, 81.22, 81.21, 81.20, . 81.20, 81.19, 81.19, 81.18, 81.18, 81.17, 81.17, 81.16, . 81.16, 81.16, 81.16, 81.15, 81.15, 81.15, 81.15, 81.15, . 81.15, 81.15, 81.15, 81.15, 81.15, 81.15, 81.15, 81.15/ Data A1z1/81.37, 82.27, 82.94, 83.38, 83.67, 83.89, 84.06, 84.16, . 84.22, 84.25, 84.25, 84.23, 84.19, 84.14, 84.07, 83.99, . 83.90, 83.81, 83.71, 83.61, 83.51, 83.41, 83.31, 83.22, . 83.13, 83.04, 82.95, 82.86, 82.78, 82.69, 82.60, 82.52, . 82.44, 82.35, 82.27, 82.19, 82.11, 82.03, 81.95, 81.87, . 81.80, 81.72, 81.65, 81.58, 81.51, 81.45, 81.38, 81.32, . 81.26, 81.21, 81.15, 81.09, 81.04, 80.99, 80.94, 80.89, . 80.84, 80.79, 80.74, 80.70, 80.65, 80.61, 80.57, 80.52, . 80.48, 80.44, 80.40, 80.36, 80.32, 80.28, 80.24, 80.20, . 80.16, 80.12, 80.08, 80.05, 80.01, 79.98, 79.94, 79.91, . 79.87, 79.84, 79.81, 79.78, 79.75, 79.72, 79.69, 79.66, . 79.63, 79.60, 79.57, 79.54, 79.52, 79.49, 79.47, 79.44, . 79.41, 79.39, 79.36, 79.34, 79.32, 79.29, 79.27, 79.25, . 79.22, 79.20, 79.18, 79.16, 79.13, 79.11, 79.09, 79.07, . 79.05, 79.03, 79.01, 78.99, 78.97, 78.95, 78.93, 78.91, . 78.89, 78.87, 78.85, 78.84, 78.82, 78.80, 78.78, 78.77, . 78.75, 78.74, 78.72, 78.71, 78.69, 78.68, 78.66, 78.65, . 78.64, 78.62, 78.61, 78.60, 78.59, 78.58, 78.56, 78.55, . 78.54, 78.53, 78.52, 78.51, 78.50, 78.49, 78.48, 78.47, . 78.46, 78.45, 78.44, 78.43, 78.42, 78.41, 78.41, 78.40, . 78.39, 78.38, 78.37, 78.36, 78.35, 78.35, 78.34, 78.33, . 78.32, 78.32, 78.31, 78.30, 78.29, 78.29, 78.28, 78.27, . 78.27, 78.26, 78.25, 78.25, 78.24, 78.23, 78.23, 78.22, . 78.22, 78.21, 78.21, 78.20, 78.19, 78.19, 78.18, 78.18, . 78.17, 78.17, 78.16, 78.16, 78.15, 78.15, 78.14, 78.13, . 78.13, 78.12, 78.12, 78.11, 78.10, 78.10, 78.09, 78.08, . 78.08, 78.07, 78.06, 78.05, 78.04, 78.04, 78.03, 78.02, . 78.01, 78.00, 78.00, 77.99, 77.98, 77.97, 77.96, 77.95, . 77.95, 77.94, 77.93, 77.92, 77.91, 77.91, 77.90, 77.89, . 77.89, 77.88, 77.87, 77.87, 77.86, 77.86, 77.85, 77.84, . 77.84, 77.83, 77.83, 77.82, 77.82, 77.81, 77.81, 77.80, . 77.80, 77.79, 77.79, 77.79, 77.78, 77.78, 77.77, 77.77/ Data A2s1x / 118.69/ Data A2sp1x / 118.69/ Data A2s1y / 118.69/ Data A2sp1y / 118.69/ Data A2z1 / 119.30/ Data A3s1x / 23.23/ Data A3sp1x / 23.23/ Data A3s1y / 23.23/ Data A3sp1y / 23.23/ Data A3z1 / 16.63/ c Log law coefficients for RAD2 Data A1s2/81.83, 81.83, 81.83, 81.83, 81.83, 81.84, 81.84, 81.84, . 81.84, 81.85, 81.85, 81.85, 81.85, 81.86, 81.86, 81.86, . 81.86, 81.86, 81.87, 81.87, 81.87, 81.87, 81.88, 81.88, . 81.88, 81.88, 81.89, 81.89, 81.89, 81.89, 81.90, 81.90, . 81.90, 81.90, 81.90, 81.91, 81.91, 81.91, 81.91, 81.92, . 81.92, 81.92, 81.92, 81.93, 81.93, 81.93, 81.93, 81.93, . 81.94, 81.94, 81.94, 81.94, 81.95, 81.95, 81.95, 81.95, . 81.96, 81.96, 81.96, 81.96, 81.96, 81.97, 81.97, 81.97, . 81.97, 81.98, 81.98, 81.98, 81.98, 81.98, 81.99, 81.99, . 81.99, 81.99, 82.00, 82.00, 82.00, 82.00, 82.01, 82.01, . 82.01, 82.01, 82.01, 82.02, 82.02, 82.02, 82.02, 82.03, . 82.03, 82.03, 82.03, 82.03, 82.04, 82.04, 82.04, 82.04, . 82.05, 82.05, 82.05, 82.05, 82.06, 82.06, 82.06, 82.06, . 82.06, 82.07, 82.07, 82.07, 82.07, 82.08, 82.08, 82.08, . 82.08, 82.08, 82.09, 82.09, 82.09, 82.09, 82.10, 82.10, . 82.10, 82.10, 82.10, 82.11, 82.11, 82.11, 82.11, 82.12, . 82.12, 82.12, 82.12, 82.12, 82.13, 82.13, 82.13, 82.13, . 82.14, 82.14, 82.14, 82.14, 82.14, 82.15, 82.15, 82.15, . 82.15, 82.16, 82.16, 82.16, 82.16, 82.16, 82.17, 82.17, . 82.17, 82.17, 82.18, 82.18, 82.18, 82.18, 82.18, 82.19, . 82.19, 82.19, 82.19, 82.20, 82.20, 82.20, 82.20, 82.20, . 82.21, 82.21, 82.21, 82.21, 82.22, 82.22, 82.22, 82.22, . 82.22, 82.23, 82.23, 82.23, 82.23, 82.23, 82.24, 82.24, . 82.24, 82.24, 82.25, 82.25, 82.25, 82.25, 82.25, 82.26, . 82.26, 82.26, 82.26, 82.27, 82.27, 82.27, 82.27, 82.27, . 82.28, 82.28, 82.28, 82.28, 82.28, 82.29, 82.29, 82.29, . 82.29, 82.30, 82.30, 82.30, 82.30, 82.30, 82.31, 82.31, . 82.31, 82.31, 82.32, 82.32, 82.32, 82.32, 82.32, 82.33, . 82.33, 82.33, 82.33, 82.33, 82.34, 82.34, 82.34, 82.34, . 82.35, 82.35, 82.35, 82.35, 82.35, 82.36, 82.36, 82.36, . 82.36, 82.36, 82.37, 82.37, 82.37, 82.37, 82.38, 82.38, . 82.38, 82.38, 82.38, 82.39, 82.39, 82.39, 82.39, 82.39/ Data A1sp2/82.90, 83.06, 83.22, 83.37, 83.52, 83.66, 83.80, 83.93, . 84.05, 84.17, 84.28, 84.39, 84.48, 84.58, 84.66, 84.74, . 84.81, 84.87, 84.93, 84.98, 85.02, 85.05, 85.09, 85.11, . 85.14, 85.16, 85.17, 85.19, 85.20, 85.21, 85.22, 85.22, . 85.23, 85.24, 85.24, 85.25, 85.26, 85.27, 85.27, 85.28, . 85.29, 85.29, 85.30, 85.30, 85.31, 85.32, 85.32, 85.33, . 85.33, 85.33, 85.34, 85.34, 85.34, 85.35, 85.35, 85.35, . 85.35, 85.35, 85.35, 85.34, 85.34, 85.34, 85.33, 85.33, . 85.32, 85.31, 85.30, 85.29, 85.28, 85.27, 85.26, 85.24, . 85.23, 85.21, 85.20, 85.18, 85.16, 85.15, 85.13, 85.11, . 85.09, 85.07, 85.05, 85.03, 85.01, 84.99, 84.97, 84.95, . 84.93, 84.91, 84.89, 84.87, 84.85, 84.83, 84.82, 84.80, . 84.79, 84.78, 84.77, 84.76, 84.75, 84.74, 84.73, 84.73, . 84.72, 84.71, 84.71, 84.70, 84.69, 84.69, 84.68, 84.67, . 84.66, 84.65, 84.64, 84.62, 84.61, 84.59, 84.58, 84.56, . 84.54, 84.52, 84.50, 84.48, 84.46, 84.43, 84.41, 84.38, . 84.35, 84.32, 84.29, 84.26, 84.23, 84.19, 84.16, 84.13, . 84.09, 84.06, 84.02, 83.99, 83.96, 83.93, 83.90, 83.87, . 83.84, 83.81, 83.79, 83.77, 83.74, 83.72, 83.70, 83.68, . 83.66, 83.64, 83.62, 83.61, 83.59, 83.57, 83.55, 83.53, . 83.51, 83.49, 83.47, 83.45, 83.42, 83.40, 83.38, 83.36, . 83.33, 83.31, 83.28, 83.26, 83.24, 83.21, 83.19, 83.16, . 83.14, 83.12, 83.09, 83.07, 83.05, 83.03, 83.01, 82.99, . 82.97, 82.96, 82.95, 82.94, 82.93, 82.93, 82.93, 82.93, . 82.94, 82.95, 82.97, 82.99, 83.01, 83.03, 83.05, 83.07, . 83.10, 83.12, 83.14, 83.15, 83.16, 83.17, 83.17, 83.17, . 83.16, 83.14, 83.12, 83.09, 83.05, 83.01, 82.97, 82.92, . 82.86, 82.81, 82.75, 82.69, 82.63, 82.57, 82.51, 82.45, . 82.39, 82.33, 82.27, 82.22, 82.16, 82.11, 82.05, 81.99, . 81.93, 81.87, 81.81, 81.74, 81.67, 81.60, 81.52, 81.44, . 81.35, 81.26, 81.16, 81.06, 80.95, 80.84, 80.72, 80.60, . 80.47, 80.34, 80.21, 80.07, 79.93, 79.79, 79.64, 79.49/ Data A1z2/ 92.48, 92.64, 92.79, 92.93, 93.07, 93.20, 93.33, 93.45, . 93.57, 93.68, 93.79, 93.89, 93.98, 94.07, 94.15, 94.22, . 94.29, 94.35, 94.40, 94.45, 94.48, 94.52, 94.55, 94.57, . 94.59, 94.61, 94.62, 94.64, 94.65, 94.65, 94.66, 94.66, . 94.67, 94.67, 94.68, 94.68, 94.69, 94.69, 94.70, 94.70, . 94.70, 94.70, 94.71, 94.71, 94.71, 94.71, 94.70, 94.70, . 94.70, 94.70, 94.69, 94.69, 94.68, 94.67, 94.67, 94.66, . 94.65, 94.64, 94.63, 94.63, 94.62, 94.61, 94.60, 94.60, . 94.59, 94.58, 94.58, 94.57, 94.57, 94.57, 94.56, 94.56, . 94.56, 94.55, 94.55, 94.54, 94.54, 94.53, 94.53, 94.52, . 94.51, 94.50, 94.49, 94.48, 94.47, 94.46, 94.44, 94.43, . 94.42, 94.40, 94.39, 94.37, 94.35, 94.34, 94.32, 94.31, . 94.29, 94.27, 94.26, 94.24, 94.23, 94.21, 94.19, 94.18, . 94.16, 94.15, 94.13, 94.12, 94.11, 94.09, 94.08, 94.07, . 94.06, 94.05, 94.04, 94.03, 94.03, 94.02, 94.01, 94.00, . 94.00, 93.99, 93.98, 93.97, 93.97, 93.96, 93.95, 93.94, . 93.93, 93.92, 93.91, 93.89, 93.88, 93.87, 93.85, 93.84, . 93.82, 93.81, 93.79, 93.77, 93.76, 93.74, 93.73, 93.71, . 93.70, 93.69, 93.67, 93.66, 93.65, 93.64, 93.62, 93.61, . 93.60, 93.59, 93.58, 93.57, 93.56, 93.55, 93.54, 93.53, . 93.52, 93.51, 93.50, 93.49, 93.48, 93.47, 93.46, 93.46, . 93.45, 93.44, 93.43, 93.43, 93.42, 93.41, 93.41, 93.40, . 93.40, 93.40, 93.40, 93.39, 93.39, 93.39, 93.39, 93.39, . 93.39, 93.39, 93.40, 93.40, 93.40, 93.40, 93.40, 93.40, . 93.40, 93.40, 93.40, 93.40, 93.40, 93.39, 93.39, 93.39, . 93.39, 93.38, 93.38, 93.37, 93.37, 93.36, 93.36, 93.35, . 93.34, 93.33, 93.32, 93.31, 93.30, 93.29, 93.28, 93.26, . 93.25, 93.23, 93.21, 93.20, 93.18, 93.15, 93.13, 93.11, . 93.08, 93.05, 93.02, 92.99, 92.95, 92.92, 92.88, 92.84, . 92.79, 92.74, 92.69, 92.64, 92.58, 92.51, 92.45, 92.38, . 92.30, 92.22, 92.13, 92.04, 91.95, 91.85, 91.74, 91.63, . 91.52, 91.40, 91.28, 91.16, 91.03, 90.90, 90.76, 90.62/ Data A2s2 / 120.86/ Data A2sp2 / 120.86/ Data A2z2 / 124.41 / Data A3s2 / 32.57/ Data A3sp2 / 32.57/ Data A3z2 / 2.93 / c ------------------------------------------------------------ c Tables of the reference voltages measured for RAD1 and RAD2 c and fitted to the following function: c dBV0 = a(0) + a(1)*f + a(2)*f^2 + a(3)*f^3 (Manning) c where the coefficients are, c RAD1 X: c a=[-64.10, -8.798e-3, 5.284e-5,-1.594e-7] c RAD1 Y: c a=[-63.93, 4.53e-3 , -5.802e-5, 1.106e-7] c RAD1 Z: c a=[-64.30, 2.624e-3, -3.470e-5, 5.662e-8] c RAD2 Y: c a=[-73.87, -9.559e-3, -6.615e-5, -3.623e-8] c RAD2 Z: c a=[-74.27, -8.958e-3, -5.786e-5, -1.126e-8] c --------------------------------------------------------- Data V0s1x/ . 623.73, 623.11, 622.49, 621.88, 621.27, 620.68, 620.09, . 619.51, 618.94, 618.37, 617.81, 617.26, 616.72, 616.18, . 615.66, 615.13, 614.62, 614.11, 613.61, 613.11, 612.63, . 612.14, 611.67, 611.20, 610.74, 610.28, 609.83, 609.39, . 608.95, 608.51, 608.09, 607.67, 607.25, 606.84, 606.43, . 606.04, 605.64, 605.25, 604.87, 604.49, 604.12, 603.75, . 603.38, 603.03, 602.67, 602.32, 601.98, 601.64, 601.30, . 600.97, 600.64, 600.32, 600.00, 599.68, 599.37, 599.06, . 598.76, 598.46, 598.16, 597.87, 597.58, 597.29, 597.01, . 596.73, 596.46, 596.18, 595.91, 595.65, 595.38, 595.12, . 594.87, 594.61, 594.36, 594.11, 593.86, 593.62, 593.38, . 593.14, 592.90, 592.66, 592.43, 592.20, 591.97, 591.74, . 591.52, 591.29, 591.07, 590.85, 590.63, 590.42, 590.20, . 589.99, 589.77, 589.56, 589.35, 589.14, 588.93, 588.73, . 588.52, 588.32, 588.11, 587.91, 587.71, 587.50, 587.30, . 587.10, 586.90, 586.70, 586.50, 586.30, 586.10, 585.90, . 585.70, 585.50, 585.30, 585.10, 584.90, 584.70, 584.50, . 584.30, 584.10, 583.89, 583.69, 583.49, 583.28, 583.08, . 582.87, 582.67, 582.46, 582.25, 582.04, 581.83, 581.62, . 581.40, 581.19, 580.97, 580.75, 580.53, 580.31, 580.09, . 579.87, 579.64, 579.41, 579.18, 578.95, 578.72, 578.48, . 578.24, 578.00, 577.76, 577.51, 577.26, 577.02, 576.76, . 576.51, 576.25, 575.99, 575.73, 575.46, 575.19, 574.92, . 574.64, 574.37, 574.08, 573.80, 573.51, 573.22, 572.93, . 572.63, 572.33, 572.02, 571.72, 571.40, 571.09, 570.77, . 570.45, 570.12, 569.79, 569.45, 569.11, 568.77, 568.42, . 568.07, 567.72, 567.36, 566.99, 566.62, 566.25, 565.87, . 565.49, 565.10, 564.71, 564.32, 563.92, 563.51, 563.10, . 562.68, 562.26, 561.84, 561.41, 560.97, 560.53, 560.08, . 559.63, 559.17, 558.71, 558.24, 557.77, 557.29, 556.81, . 556.32, 555.82, 555.32, 554.81, 554.30, 553.78, 553.26, . 552.73, 552.19, 551.65, 551.10, 550.54, 549.98, 549.42, . 548.84, 548.26, 547.68, 547.09, 546.49, 545.88, 545.27, . 544.65, 544.03, 543.40, 542.76, 542.12, 541.47, 540.81, . 540.15, 539.48, 538.80, 538.11, 537.42, 536.72, 536.02, . 535.31, 534.59, 533.86, 533.13, 532.39, 531.64, 530.89, . 530.13, 529.36, 528.58, 527.80/ Data V0s1y/ . 636.06, 636.39, 636.71, 637.02, 637.32, 637.62, 637.90, . 638.18, 638.45, 638.72, 638.97, 639.22, 639.45, 639.69, . 639.91, 640.12, 640.33, 640.53, 640.72, 640.91, 641.08, . 641.25, 641.41, 641.57, 641.71, 641.85, 641.99, 642.11, . 642.23, 642.34, 642.44, 642.54, 642.63, 642.71, 642.78, . 642.85, 642.91, 642.97, 643.02, 643.06, 643.09, 643.12, . 643.14, 643.15, 643.16, 643.16, 643.16, 643.15, 643.13, . 643.11, 643.08, 643.04, 643.00, 642.95, 642.90, 642.84, . 642.77, 642.70, 642.62, 642.54, 642.45, 642.36, 642.26, . 642.15, 642.04, 641.92, 641.80, 641.68, 641.54, 641.41, . 641.26, 641.12, 640.96, 640.81, 640.64, 640.47, 640.30, . 640.13, 639.94, 639.76, 639.57, 639.37, 639.17, 638.96, . 638.75, 638.54, 638.32, 638.10, 637.87, 637.64, 637.41, . 637.17, 636.93, 636.68, 636.43, 636.18, 635.92, 635.66, . 635.39, 635.12, 634.85, 634.57, 634.29, 634.01, 633.72, . 633.43, 633.14, 632.84, 632.54, 632.24, 631.94, 631.63, . 631.32, 631.00, 630.68, 630.37, 630.04, 629.72, 629.39, . 629.06, 628.73, 628.39, 628.05, 627.71, 627.37, 627.03, . 626.68, 626.33, 625.98, 625.63, 625.27, 624.91, 624.55, . 624.19, 623.83, 623.47, 623.10, 622.73, 622.36, 621.99, . 621.62, 621.25, 620.87, 620.49, 620.12, 619.74, 619.36, . 618.98, 618.59, 618.21, 617.83, 617.44, 617.05, 616.67, . 616.28, 615.89, 615.50, 615.11, 614.72, 614.33, 613.94, . 613.55, 613.15, 612.76, 612.37, 611.98, 611.58, 611.19, . 610.79, 610.40, 610.01, 609.61, 609.22, 608.83, 608.43, . 608.04, 607.65, 607.25, 606.86, 606.47, 606.08, 605.69, . 605.30, 604.91, 604.52, 604.13, 603.74, 603.35, 602.97, . 602.58, 602.20, 601.81, 601.43, 601.05, 600.67, 600.29, . 599.91, 599.53, 599.16, 598.78, 598.41, 598.04, 597.67, . 597.30, 596.93, 596.57, 596.20, 595.84, 595.48, 595.12, . 594.76, 594.41, 594.05, 593.70, 593.35, 593.00, 592.66, . 592.31, 591.97, 591.63, 591.30, 590.96, 590.63, 590.30, . 589.97, 589.64, 589.32, 589.00, 588.68, 588.37, 588.05, . 587.74, 587.43, 587.13, 586.83, 586.53, 586.23, 585.94, . 585.64, 585.36, 585.07, 584.79, 584.51, 584.24, 583.96, . 583.69, 583.43, 583.16, 582.91, 582.65, 582.40, 582.15, . 581.90, 581.66, 581.42, 581.19/ Data V0z1/ . 609.54, 609.72, 609.90, 610.07, 610.23, 610.40, 610.56, . 610.71, 610.86, 611.00, 611.14, 611.28, 611.41, 611.53, . 611.65, 611.77, 611.88, 611.99, 612.09, 612.19, 612.28, . 612.37, 612.46, 612.54, 612.62, 612.69, 612.76, 612.82, . 612.88, 612.94, 612.99, 613.03, 613.08, 613.11, 613.15, . 613.18, 613.21, 613.23, 613.25, 613.26, 613.27, 613.28, . 613.28, 613.28, 613.27, 613.27, 613.25, 613.24, 613.22, . 613.19, 613.16, 613.13, 613.10, 613.06, 613.01, 612.97, . 612.92, 612.87, 612.81, 612.75, 612.68, 612.62, 612.55, . 612.47, 612.40, 612.32, 612.23, 612.14, 612.05, 611.96, . 611.86, 611.76, 611.66, 611.55, 611.44, 611.33, 611.21, . 611.09, 610.97, 610.85, 610.72, 610.59, 610.45, 610.32, . 610.18, 610.04, 609.89, 609.74, 609.59, 609.44, 609.28, . 609.12, 608.96, 608.80, 608.63, 608.46, 608.29, 608.11, . 607.94, 607.76, 607.58, 607.39, 607.21, 607.02, 606.82, . 606.63, 606.43, 606.24, 606.04, 605.83, 605.63, 605.42, . 605.21, 605.00, 604.79, 604.57, 604.35, 604.14, 603.91, . 603.69, 603.46, 603.24, 603.01, 602.78, 602.54, 602.31, . 602.07, 601.84, 601.60, 601.35, 601.11, 600.86, 600.62, . 600.37, 600.12, 599.87, 599.62, 599.36, 599.11, 598.85, . 598.59, 598.33, 598.07, 597.81, 597.54, 597.28, 597.01, . 596.74, 596.47, 596.20, 595.93, 595.66, 595.39, 595.11, . 594.84, 594.56, 594.28, 594.00, 593.72, 593.44, 593.16, . 592.88, 592.59, 592.31, 592.02, 591.74, 591.45, 591.16, . 590.88, 590.59, 590.30, 590.01, 589.72, 589.42, 589.13, . 588.84, 588.55, 588.25, 587.96, 587.67, 587.37, 587.07, . 586.78, 586.48, 586.19, 585.89, 585.59, 585.30, 585.00, . 584.70, 584.40, 584.10, 583.81, 583.51, 583.21, 582.91, . 582.61, 582.31, 582.01, 581.72, 581.42, 581.12, 580.82, . 580.52, 580.22, 579.92, 579.63, 579.33, 579.03, 578.73, . 578.44, 578.14, 577.84, 577.55, 577.25, 576.96, 576.66, . 576.37, 576.07, 575.78, 575.49, 575.19, 574.90, 574.61, . 574.32, 574.03, 573.74, 573.45, 573.16, 572.87, 572.58, . 572.30, 572.01, 571.73, 571.44, 571.16, 570.88, 570.59, . 570.31, 570.03, 569.75, 569.48, 569.20, 568.92, 568.65, . 568.37, 568.10, 567.83, 567.56, 567.29, 567.02, 566.75, . 566.48, 566.22, 565.95, 565.69/ Data V0s2/ . 202.53, 202.31, 202.08, 201.85, 201.62, 201.38, 201.15, . 200.91, 200.66, 200.41, 200.16, 199.91, 199.66, 199.40, . 199.14, 198.87, 198.61, 198.34, 198.07, 197.79, 197.52, . 197.24, 196.95, 196.67, 196.38, 196.09, 195.80, 195.50, . 195.20, 194.90, 194.60, 194.29, 193.98, 193.67, 193.35, . 193.04, 192.72, 192.40, 192.07, 191.74, 191.41, 191.08, . 190.75, 190.41, 190.07, 189.73, 189.38, 189.03, 188.68, . 188.33, 187.98, 187.62, 187.26, 186.90, 186.53, 186.17, . 185.80, 185.43, 185.05, 184.68, 184.30, 183.92, 183.54, . 183.15, 182.76, 182.37, 181.98, 181.59, 181.19, 180.79, . 180.39, 179.99, 179.58, 179.18, 178.77, 178.35, 177.94, . 177.53, 177.11, 176.69, 176.27, 175.84, 175.42, 174.99, . 174.56, 174.13, 173.69, 173.26, 172.82, 172.38, 171.94, . 171.50, 171.05, 170.60, 170.15, 169.70, 169.25, 168.80, . 168.34, 167.88, 167.42, 166.96, 166.50, 166.04, 165.57, . 165.10, 164.63, 164.16, 163.69, 163.22, 162.74, 162.26, . 161.78, 161.30, 160.82, 160.34, 159.85, 159.37, 158.88, . 158.39, 157.90, 157.41, 156.92, 156.42, 155.93, 155.43, . 154.93, 154.43, 153.93, 153.43, 152.93, 152.42, 151.92, . 151.41, 150.91, 150.40, 149.89, 149.38, 148.87, 148.35, . 147.84, 147.32, 146.81, 146.29, 145.77, 145.26, 144.74, . 144.22, 143.70, 143.17, 142.65, 142.13, 141.60, 141.08, . 140.55, 140.03, 139.50, 138.97, 138.44, 137.91, 137.38, . 136.85, 136.32, 135.79, 135.26, 134.73, 134.19, 133.66, . 133.13, 132.59, 132.06, 131.52, 130.99, 130.45, 129.91, . 129.38, 128.84, 128.30, 127.77, 127.23, 126.69, 126.15, . 125.61, 125.07, 124.54, 124.00, 123.46, 122.92, 122.38, . 121.84, 121.30, 120.76, 120.22, 119.68, 119.14, 118.60, . 118.06, 117.53, 116.99, 116.45, 115.91, 115.37, 114.83, . 114.29, 113.76, 113.22, 112.68, 112.14, 111.61, 111.07, . 110.53, 110.00, 109.46, 108.93, 108.39, 107.86, 107.32, . 106.79, 106.26, 105.72, 105.19, 104.66, 104.13, 103.60, . 103.07, 102.54, 102.01, 101.48, 100.95, 100.43, 99.90, . 99.37, 98.85, 98.32, 97.80, 97.28, 96.76, 96.23, . 95.71, 95.19, 94.68, 94.16, 93.64, 93.12, 92.61, . 92.09, 91.58, 91.07, 90.56, 90.04, 89.53, 89.03, . 88.52, 88.01, 87.50, 87.00/ Data V0z2/ . 193.42, 193.22, 193.02, 192.81, 192.60, 192.39, 192.18, . 191.97, 191.75, 191.53, 191.31, 191.08, 190.86, 190.63, . 190.40, 190.16, 189.93, 189.69, 189.45, 189.21, 188.96, . 188.72, 188.47, 188.22, 187.96, 187.71, 187.45, 187.19, . 186.93, 186.67, 186.40, 186.13, 185.86, 185.59, 185.31, . 185.04, 184.76, 184.48, 184.19, 183.91, 183.62, 183.33, . 183.04, 182.75, 182.45, 182.15, 181.85, 181.55, 181.25, . 180.94, 180.64, 180.33, 180.01, 179.70, 179.39, 179.07, . 178.75, 178.43, 178.11, 177.78, 177.46, 177.13, 176.80, . 176.47, 176.13, 175.80, 175.46, 175.12, 174.78, 174.44, . 174.09, 173.75, 173.40, 173.05, 172.70, 172.34, 171.99, . 171.63, 171.28, 170.92, 170.56, 170.19, 169.83, 169.46, . 169.09, 168.73, 168.36, 167.98, 167.61, 167.23, 166.86, . 166.48, 166.10, 165.72, 165.34, 164.95, 164.57, 164.18, . 163.79, 163.40, 163.01, 162.62, 162.23, 161.83, 161.43, . 161.04, 160.64, 160.24, 159.84, 159.43, 159.03, 158.62, . 158.22, 157.81, 157.40, 156.99, 156.58, 156.17, 155.75, . 155.34, 154.92, 154.51, 154.09, 153.67, 153.25, 152.83, . 152.41, 151.99, 151.56, 151.14, 150.71, 150.28, 149.86, . 149.43, 149.00, 148.57, 148.14, 147.70, 147.27, 146.84, . 146.40, 145.97, 145.53, 145.09, 144.65, 144.22, 143.78, . 143.34, 142.90, 142.45, 142.01, 141.57, 141.12, 140.68, . 140.24, 139.79, 139.34, 138.90, 138.45, 138.00, 137.55, . 137.10, 136.65, 136.20, 135.75, 135.30, 134.85, 134.40, . 133.95, 133.49, 133.04, 132.59, 132.13, 131.68, 131.22, . 130.77, 130.31, 129.86, 129.40, 128.94, 128.49, 128.03, . 127.57, 127.12, 126.66, 126.20, 125.74, 125.28, 124.83, . 124.37, 123.91, 123.45, 122.99, 122.53, 122.07, 121.61, . 121.15, 120.69, 120.23, 119.77, 119.32, 118.86, 118.40, . 117.94, 117.48, 117.02, 116.56, 116.10, 115.64, 115.18, . 114.72, 114.26, 113.80, 113.35, 112.89, 112.43, 111.97, . 111.51, 111.06, 110.60, 110.14, 109.68, 109.23, 108.77, . 108.31, 107.86, 107.40, 106.95, 106.49, 106.04, 105.58, . 105.13, 104.68, 104.22, 103.77, 103.32, 102.86, 102.41, . 101.96, 101.51, 101.06, 100.61, 100.16, 99.71, 99.26, . 98.82, 98.37, 97.92, 97.48, 97.03, 96.59, 96.14, . 95.70, 95.25, 94.81, 94.37/ c ------------------------------- c check limits on telemetry value c ------------------------------- if (tlm.lt.0.0.or.tlm.gt.255.) then type *, ' telemetry units out of range' return endif if (tlm.gt.240.) then type *, 'calibration may be invalid' endif c ---------------------------------------------- c convert telemetry value to microvolts/sqrt(Hz) c ---------------------------------------------- if (rcv .eq. 'rad1') then c check input units if (in_units.eq.'chan') then if (jchannel.lt.0.or.jchannel.gt.255) then type *, 'invalid frequency channel' return endif Ichannel = jchannel + 1 else if (in_units.eq.'freq') then c check valid frequency for RAD1 if (jchannel.lt.20.or.jchannel.gt.1040) then type *, 'invalid frequency for RAD1' return endif if (mod(jchannel-20,4).ne.0) then type *, 'invalid frequency for RAD1' return endif ichannel=(jchannel-20)/4 + 1 else type *,' incorrect input units ' endif c calculate microvolts/sqrt(Hz) from log law function c and reference voltage for different mode and antenna c configurations if (rcvmode .eq. 's') then if (ant .eq. 'ex') then mVolt=10.**(2.*DLOG10(10.**((Tlm-A3s1x)/A2s1x) . +1.)-A1s1x(Ichannel)/20.) c take into account the 26 dB attenuator used in the c calibration of RAD1 mVolt = mVolt/10**(2.6/2) mVolt = mVolt*V0s1x(Ichannel) Ceff = (Cax * Lx/(Cax + Cbx))**2 * Z0 else if (ant .eq. 'ey') then mVolt=10.**(2.*DLOG10(10.**((Tlm-A3s1y)/A2s1y) . +1.)-A1s1y(Ichannel)/20.) c take into account the 26 dB attenuator used in the c calibration of RAD1 mVolt = mVolt/10**(2.6/2) mVolt = mVolt*V0s1y(Ichannel) Ceff = (Cay * Ly/(Cay + Cby))**2 * Z0 endif else if (rcvmode .eq. 'sp') then if (ant .eq. 'ex') then mVolt=10.**(2.*DLOG10(10.**((Tlm-A3sp1x)/A2sp1x) . +1.)-A1sp1x(Ichannel)/20.) c take into account the 26 dB attenuator used in the c calibration of RAD1 mVolt = mVolt/10**(2.6/2) mVolt = mVolt*V0s1x(Ichannel) Ceff = (Cax * Lx/(Cax + Cbx))**2 * Z0 else if (ant .eq. 'ey') then mVolt=10.**(2.*DLOG10(10.**((Tlm-A3sp1y)/A2sp1y) . +1.)-A1sp1y(Ichannel)/20.) c take into account the 26 dB attenuator used in the c calibration of RAD1 mVolt = mVolt/10**(2.6/2) mVolt = mVolt*V0s1y(Ichannel) Ceff = (Cay * Ly/(Cay + Cby))**2 * Z0 endif else if (rcvmode .eq. 'z' .and. ant .eq. 'ez') then mVolt=10.**(2.*DLOG10(10.**((Tlm-A3z1)/A2z1) . +1.)-A1z1(Ichannel)/20.) c take into account the 26 dB attenuator used in the c calibration of RAD1 mVolt = mVolt/10**(2.6/2) mVolt = mVolt*V0z1(Ichannel) Ceff = (Caz * Lz/(Caz + Cbz))**2 * Z0 else type *,' invalid mode for RAD1 ' endif else if (rcv .eq. 'rad2') then c check input units if (in_units.eq.'chan') then if (jchannel.lt.0.or.jchannel.gt.255) then type *, 'invalid frequency channel' return endif Ichannel = jchannel + 1 else if (in_units.eq.'freq') then c check valid frequency for RAD2 if (jchannel.lt.1075.or.jchannel.gt.13825) then type *, 'invalid frequency for RAD2' return endif if (mod(jchannel-1075,50).ne.0) then type *, 'invalid frequency for RAD2' return endif ichannel=(jchannel-1075)/50 + 1 else type *,' incorrect input units ' endif if (rcvmode .eq. 's' .and. ant .eq. 'ey') then mVolt=10.**(2.*DLOG10(10.**((Tlm-A3s2)/A2s2) . +1.)-A1s2(Ichannel)/20.) mVolt = mVolt*V0s2(Ichannel) Ceff = (Cay * Ly/(Cay + Cby))**2 * Z0 else if (rcvmode .eq. 'sp' .and. ant .eq. 'ey') then mVolt=10.**(2.*DLOG10(10.**((Tlm-A3sp2)/A2sp2) . +1.)-A1sp2(Ichannel)/20.) mVolt = mVolt*V0s2(Ichannel) Ceff = (Cay * Ly/(Cay + Cby))**2 * Z0 else if (rcvmode .eq. 'z' .and. ant .eq. 'ez') then mVolt=10.**(2.*DLOG10(10.**((Tlm-A3z2)/A2z2) . +1.)-A1z2(Ichannel)/20.) mVolt = mVolt*V0z2(Ichannel) Ceff = (Caz * Lz/(Caz + Cbz))**2 * Z0 else type *,' invalid mode for RAD2 ' endif else type *, ' no such receiver ' return endif c ----------------------------------------------------------- c convert microvolts/sqrt(Hz) to various other physical units c ----------------------------------------------------------- if (out_units.eq.'mV') then mVolt = mVolt else if (out_units.eq.'watt') then mVolt = 3. * mVolt**2/Ceff * 1.e-12 else if (out_units.eq.'logW') then mVolt = Alog10(3. * mVolt**2/Ceff * 1.e-12) else if (out_units.eq.'sfu') then mVolt = 3. * mVolt**2/(Ceff*1.e-22) * 1.e-12 else if (out_units.eq.'logS') then mVolt = alog10(3. * mVolt**2/(Ceff*1.e-22) *1.e-12) else if (out_units.eq.'dBV') then mVolt = 20*Alog10(mVolt/1.e6) else type *, 'invalid output units' endif return END