Commit 403e9eaaa7c21a97b461ce54f8ec9be3b1a34f43

Authored by Jean-Philippe Bernard
1 parent 815a1302
Exists in master

modified to match plugins requirements

Showing 1 changed file with 14 additions and 10 deletions   Show diff stats
src/idl/dustem_create_freefree.pro
1   -FUNCTION dustem_create_freefree,key=key,val=val,scope,help=help
  1 +FUNCTION dustem_create_freefree,key=key,val=val,scope=scope,help=help
2 2  
3 3 ;+
4 4 ; NAME:
... ... @@ -17,7 +17,7 @@ FUNCTION dustem_create_freefree,key=key,val=val,scope,help=help
17 17 ; OUTPUTS:
18 18 ; freefree = free-free spectrum (on dustem wavelengths)
19 19 ; OPTIONAL OUTPUT PARAMETERS:
20   -; None
  20 +; scope = scope of the plugin
21 21 ; ACCEPTED KEY-WORDS:
22 22 ; help = if set, print this help
23 23 ; COMMON BLOCKS:
... ... @@ -29,7 +29,8 @@ FUNCTION dustem_create_freefree,key=key,val=val,scope,help=help
29 29 ; PROCEDURE:
30 30 ; This is a dustem pluggin
31 31 ; EXAMPLES
32   -;
  32 +; dustem_init
  33 +; vec=dustem_create_freefree(scope=scope)
33 34 ; MODIFICATION HISTORY:
34 35 ; Written by JPB
35 36 ;-
... ... @@ -50,12 +51,14 @@ IF keyword_set(key) THEN BEGIN
50 51 IF count1 NE 0 then Tgas=(val(a))(0)
51 52 IF count2 NE 0 then Amplitude=(val(b))(0)
52 53 ENDIF
53   -
54   -IF !dustem_which EQ 'DESERT' THEN BEGIN
55   - lambir=((*!dustem_params).gemissiv.lambir)
56   -ENDIF ELSE BEGIN
57   - lambir=((*!dustem_params).lambda.lambda)
58   -ENDELSE
  54 +
  55 +;IF !dustem_which EQ 'DESERT' THEN BEGIN
  56 +; lambir=((*!dustem_params).gemissiv.lambir)
  57 +;ENDIF ELSE BEGIN
  58 +; lambir=((*!dustem_params).lambda.lambda)
  59 +;ENDELSE
  60 +;replaced by the following to ease the life of plugins writters
  61 +lambir=dustem_get_wavelengths()
59 62  
60 63 cmic=3.e14
61 64 nu=cmic/lambir ;Hz
... ... @@ -101,8 +104,9 @@ CASE use_method OF
101 104 END
102 105 ENDCASE
103 106  
  107 +scope='ADD_SED'
104 108  
105   -scope=((*!dustem_scope).free_free)
  109 +;scope=((*!dustem_scope).free_free)
106 110 ;if keyword_set(scope) then
107 111  
108 112 the_end:
... ...