-
Notifications
You must be signed in to change notification settings - Fork 1
/
power_fraction_calc.pro
50 lines (40 loc) · 2.52 KB
/
power_fraction_calc.pro
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
;----------------------------------------------------------------------------------------
pro power_fraction_calc, masked_path_gas, masked_path_star $ ; input image (use masked image, but not regridded/smoothened)
, distance, inclination, astr_tolerance $
, array_dir $ ; directory to restore lambda array from
, fourier_length_conv $ ; fourier length conversion factor
, lambda $
, gas_flux_frac, star_flux_frac $
, gas_flux_frac_arr , star_flux_frac_arr $
, save_arrays = save_arrays
;----------------------------------------------------------------------------------------
;--(dependencies)------------------------------------------------------------------------
; *** To run, flux_fration_calc requires:
; *** 1) The IDL Astronomy User's Library http://idlastro.gsfc.nasa.gov/
;--(input)-------------------------------------------------------------------------------
; ***
;--(output)------------------------------------------------------------------------------
; ***
;--(keywords)-----------------------------------------------------------------------------
; ***
;----------------------------------------------------------------------------------------
compile_opt idl2, strictarrsubs ; enforce strict array indexing, i.e. only use of [] and not () to index and use 32bit integers rather than 16bit as defaults ; give error when subscripting one array using another array as the source of array indices that has out-of-range indices, rather than clipping into range
fourier_power_fraction, masked_path_star $ ; input image (use masked image, but not regridded/smoothened)
, distance, inclination, astr_tolerance $
, array_dir $ ; directory to restore lambda array from
, fourier_length_conv $ ; fourier length conversion factor
, lambda $
, star_flux_frac $
, star_flux_frac_arr
fourier_power_fraction, masked_path_gas $ ; input image (use masked image, but not regridded/smoothened)
, distance, inclination, astr_tolerance $
, array_dir $ ; directory to restore lambda array from
, fourier_length_conv $ ; fourier length conversion factor
, lambda $
, gas_flux_frac $
, gas_flux_frac_arr
if save_arrays eq 1 then begin
save, filename = array_dir + 'fgmcarr.sav', gas_flux_frac_arr ; fgmc is Heisenberg naming convention
save, filename = array_dir + 'fclarr.sav', star_flux_frac_arr ; fcl is Heisenberg naming convention
endif
end