forced reading dustem results as double

Annie Hughes
1 parent 8b51dadc
Showing 1 changed file with 5 additions and 2 deletions Show diff stats
src/idl/dustem_read_dustem_lv.pro
@@ -46,7 +46,7 @@ FUNCTION dustem_read_dustem_lv,file,silent=silent,help=help
 ;    None
 ;
 ; RESTRICTIONS:
-;    The DustEMWrap idl code must be installed
+;    The DustEMWrap IDL code must be installed
 ;
 ; PROCEDURE:
 ;    None
@@ -87,10 +87,13 @@ Ngrains=vv[0]
  
 ;Read model output
 instruc='readcol,file,wav,'
+fstr=strarr(Ngrains) & fstr[*]='D,'
+format_str='D,'+strjoin(fstr)+'D'
 FOR i=0L,Ngrains-1 DO BEGIN
   instruc=instruc+'em_grain_'+strtrim(i+1,2)+','
 ENDFOR
-instruc=instruc+'em_tot,silent=silent'
+instruc=instruc+"em_tot,silent=silent,format='"+format_str+"'"
+stop
 message,'Executing '+instruc,/continue
 toto=execute(instruc)