Commit 2bb08f15a7699e2c488dc1ec4672438e9e449d86

Authored by Annie Hughes
1 parent 12ee6b60
Exists in master

not sure

Showing 1 changed file with 21 additions and 7 deletions   Show diff stats
src/idl/dustem_fit.pro
1 -PRO dustem_fit,help=help,noplot=noplot,mode=mode 1 +PRO dustem_fit,help=help,noplot=noplot,model=model
2 2
3 ;+ 3 ;+
4 ; NAME: 4 ; NAME:
5 ; dustem_fit 5 ; dustem_fit
  6 +;
6 ; PURPOSE: 7 ; PURPOSE:
7 ; Runs conjointly a fit on extinction, emission and polarization by extinction 8 ; Runs conjointly a fit on extinction, emission and polarization by extinction
  9 +;
8 ; CATEGORY: 10 ; CATEGORY:
9 -; Dustem 11 +; DustEMWrap, Deprecated
  12 +;
10 ; CALLING SEQUENCE: 13 ; CALLING SEQUENCE:
11 ; sed=dustem_fit([/noplot,/help]) 14 ; sed=dustem_fit([/noplot,/help])
  15 +;
12 ; INPUTS: 16 ; INPUTS:
13 ; None 17 ; None
  18 +;
14 ; OPTIONAL INPUT PARAMETERS: 19 ; OPTIONAL INPUT PARAMETERS:
15 ; noplot : do not display figures 20 ; noplot : do not display figures
  21 +;
16 ; OUTPUTS: 22 ; OUTPUTS:
17 ; None 23 ; None
  24 +;
18 ; OPTIONAL OUTPUT PARAMETERS: 25 ; OPTIONAL OUTPUT PARAMETERS:
  26 +;
19 ; ACCEPTED KEY-WORDS: 27 ; ACCEPTED KEY-WORDS:
20 ; help = If set, print this help 28 ; help = If set, print this help
  29 +;
21 ; COMMON BLOCKS: 30 ; COMMON BLOCKS:
22 ; None 31 ; None
  32 +;
23 ; SIDE EFFECTS: 33 ; SIDE EFFECTS:
24 ; None 34 ; None
  35 +;
25 ; RESTRICTIONS: 36 ; RESTRICTIONS:
26 -; The dustem idl wrapper must be installed 37 +; The DustEMWrap IDL code must be installed
  38 +;
27 ; PROCEDURE: 39 ; PROCEDURE:
28 ; None 40 ; None
  41 +;
29 ; EXAMPLES 42 ; EXAMPLES
30 ; 43 ;
  44 +;
31 ; MODIFICATION HISTORY: 45 ; MODIFICATION HISTORY:
32 -; TLS added by D. Paradis.  
33 ; Written by V. Guillet (2012) 46 ; Written by V. Guillet (2012)
34 -; see evolution details on the dustem cvs maintained at CESR  
35 -; Contact J.-Ph. Bernard (Jean-Philippe.Bernard@cesr.fr) in case of problems. 47 +; TLS added by D. Paradis.
  48 +; Evolution details on the DustEMWrap gitlab.
  49 +; See http://dustemwrap.irap.omp.eu/ for FAQ and help.
36 ;- 50 ;-
37 51
38 IF keyword_set(mode) THEN BEGIN 52 IF keyword_set(mode) THEN BEGIN
39 use_mode=strupcase(mode) 53 use_mode=strupcase(mode)
40 ENDIF ELSE BEGIN 54 ENDIF ELSE BEGIN
41 - use_mode='COMPIEGNE_ETAL2010' ;Default is last dustem model 55 + use_mode='MC10'
42 ENDELSE 56 ENDELSE
43 57
44 ; Verbose 58 ; Verbose