Commit d9ec9405fb9315b1c006edfa9642ec27118f818a

Authored by Annie Hughes
1 parent 279e3f60
Exists in master

updated for release

Showing 1 changed file with 5 additions and 13 deletions   Show diff stats
src/idl/dustem_read_all_release.pro
1   -FUNCTION dustem_read_all_release,dir_in,silent=silent,help=help,kwords=kwords
  1 +FUNCTION dustem_read_all_release,dir_in,silent=silent,help=help
2 2  
3 3 ;+
4 4 ; NAME:
... ... @@ -31,9 +31,9 @@ FUNCTION dustem_read_all_release,dir_in,silent=silent,help=help,kwords=kwords
31 31 ; EXAMPLES
32 32 ;
33 33 ; MODIFICATION HISTORY:
34   -; Written by J.-Ph. Bernard
35   -; see evolution details on the dustem cvs maintained at CESR
36   -; Contact J.-Ph. Bernard (Jean-Philippe.Bernard@cesr.fr) in case of problems.
  34 +; Written by JP Bernard
  35 +; Evolution details on the DustEMWrap gitlab.
  36 +; See http://dustemwrap.irap.omp.eu/ for FAQ and help.
37 37 ;-
38 38  
39 39 IF keyword_set(help) THEN BEGIN
... ... @@ -50,7 +50,6 @@ file=dir_in_dat+(*!dustem_inputs).grain
50 50 ;st_grains=dustem_read_grain(file,silent=silent)
51 51 st_grains=dustem_read_grain(file,silent=silent,key_str=key_str,G0=G0)
52 52 Ngrains=n_elements(st_grains)
53   -;stop
54 53  
55 54 file=dir_in_dat+'ISRF.DAT'
56 55 st_isrf=dustem_read_isrf(file,silent=silent,Nisrf=Nisrf)
... ... @@ -70,25 +69,18 @@ FOR i=0L,Ngrains-1 DO BEGIN
70 69 st=dustem_read_qabs_lv(Qabs_file,silent=silent,read_densities=read_densities)
71 70 st_qabs(i)=ptr_new(st)
72 71 ENDFOR
73   -
74 72 ;=== Read heat capacities
75 73 st_calor=ptrarr(Ngrains)
76 74 FOR i=0L,Ngrains-1 DO BEGIN
77 75 Calor_file=dir_in_capa+'C_'+st_grains(i).grain_type+'.DAT'
78 76 st=dustem_read_calor_lv(Calor_file,silent=silent)
79   - st_calor(i)=ptr_new(st)
  77 + st_calor(i)=ptr_new(st)
80 78 ENDFOR
81 79  
82 80 ;=== Read lambda
83 81 file=dir_in_qabs+'LAMBDA.DAT'
84 82 st_lambda=dustem_read_lambda(file,silent=silent)
85 83  
86   -if keyword_set(kwords) then begin
87   - FOR i=0L,n_elements(kwords)-1 DO BEGIN
88   - st_grains(i).type_keywords=kwords(i)
89   - ENDFOR
90   -endif
91   -
92 84 ;=== Read size distribution files
93 85 st_size=ptrarr(Ngrains)
94 86 FOR i=0L,Ngrains-1 DO BEGIN
... ...