OV-GSO-DC / dustem-wrapper_idl

Commit c2f2a31ded5dd6bcdb50be6794a3c1a81937432c

Authored by Jean-Philippe Bernard
1 parent 3d281a5e
Exists in master

modified to deal with new function interfaces (keyword neames)

Showing 2 changed files with 14 additions and 13 deletions   Show diff stats
Inline Side-by-side
src/idl/dustem_compute_polext.pro
  Diff comments   View file @c2f2a31
1   -FUNCTION dustem_compute_polext ,p_dim,$
2   -sti=sti,$
3   -POLEXT_spec=POLEXT_spec,$
4   -SPEXT_spec=SPEXT_spec,$
5   -dustem_fpolext=dustem_fpolext,$
6   -dustem_ext=dustem_ext,$
7   -out_st=out_st,$
8   -_extra=extra, $
9   -help=help
  1 +FUNCTION dustem_compute_polext,p_dim,$
  2 + sti=sti,$
  3 + POLEXT_spec=POLEXT_spec,$
  4 + SPEXT_spec=SPEXT_spec,$
  5 + dustem_fpolext=dustem_fpolext,$
  6 + dustem_ext=dustem_ext,$
  7 + out_st=out_st,$
  8 + _extra=extra, $
  9 + help=help
10 10  
11 11 ;+
12 12 ; NAME:
... ... @@ -162,7 +162,7 @@ out_st=sti
162 162 if !run_lin then begin
163 163  
164 164  
165   - if not keyword_set(dustem_ext) then dustem_ext = dustem_compute_ext(p_dim,sti,EXT_spec)
  165 + if not keyword_set(dustem_ext) then dustem_ext = dustem_compute_ext(p_dim,st=sti,EXT_spec=EXT_spec)
166 166  
167 167 If n_elements(dustem_ext) ne n_elements(dustem_polext) then begin
168 168 if n_elements(dustem_ext) gt n_elements(dustem_polext) then begin
... ...
src/idl/dustemwrap_plot.pro
  Diff comments   View file @c2f2a31
... ... @@ -113,8 +113,9 @@ IF not keyword_set(st) THEN BEGIN
113 113 dustem_ext = dustem_compute_ext(p_dim,st=st,EXT_spec=EXT_spec)
114 114  
115 115 if !run_pol && !run_lin then begin
116   -
117   - dustem_polext = dustem_compute_polext(p_dim,st=st,POLEXT_spec=POLEXT_spec,SPEXT_spec=SPEXT_spec,dustem_fpolext=dustem_fpolext)
  116 +
  117 + ;stop
  118 + dustem_polext = dustem_compute_polext(p_dim,sti=st,POLEXT_spec=POLEXT_spec,SPEXT_spec=SPEXT_spec,dustem_fpolext=dustem_fpolext)
118 119 toto = dustem_compute_stokext(p_dim,st=st,dustem_qext=dustem_qext,dustem_uext=dustem_uext,QEXT_spec=QEXT_spec,UEXT_spec=UEXT_spec,PSIEXT_spec=PSIEXT_spec,dustem_psi_ext=dustem_psi_ext)
119 120  
120 121 endif
... ... @@ -145,7 +146,7 @@ ENDIF ELSE BEGIN ;st is provided
145 146  
146 147 if !run_pol && !run_lin then begin
147 148  
148   - dustem_polext = dustem_compute_polext(p_dim,st=st,POLEXT_spec=POLEXT_spec,SPEXT_spec=SPEXT_spec,dustem_fpolext=dustem_fpolext)
  149 + dustem_polext = dustem_compute_polext(p_dim,sti=st,POLEXT_spec=POLEXT_spec,SPEXT_spec=SPEXT_spec,dustem_fpolext=dustem_fpolext)
149 150 toto = dustem_compute_stokext(p_dim,st=st,dustem_qext=dustem_qext,dustem_uext=dustem_uext,QEXT_spec=QEXT_spec,UEXT_spec=UEXT_spec,PSIEXT_spec=PSIEXT_spec,dustem_psi_ext=dustem_psi_ext)
150 151  
151 152 endif
... ...