tidied inline help and comments

Annie Hughes
1 parent 7236349e
Showing 1 changed file with 4 additions and 10 deletions Show diff stats
src/idl/dustem_read_all.pro
@@ -10,7 +10,8 @@ FUNCTION dustem_read_all,dir_in,silent=silent,help=help
 ; CALLING SEQUENCE:
 ;    st=dustem_read_all(dir_in,silent=silent,help=help)
 ; INPUTS:
-;    dir_in: input directory
+;    dir_in: directory containing .DAT files to describe grain
+;    population properties
 ; OPTIONAL INPUT PARAMETERS:
 ;    None
 ; OUTPUTS:
@@ -51,13 +52,13 @@ IF !dustem_which EQ &#39;WEB3p8&#39; or !dustem_which EQ &#39;RELEASE&#39; THEN BEGIN
   goto, the_end
 ENDIF
-;== IAS VERSION -- TO BE DEPRECATED IN FUTURE DISTRIB
+;== IAS VERSION -- TO BE DEPRECATED IN FUTURE DISTRIBS
 IF !dustem_which EQ 'VERSTRAETE' THEN BEGIN
   st=dustem_read_all_lv(dir_in,silent=silent)
   goto,ionfrac
 ENDIF
-;== IRAP/IPAG VERSIONS -- TO BE DEPRECATED IN FUTURE DISTRIB
+;== IRAP/IPAG VERSIONS -- TO BE DEPRECATED IN FUTURE DISTRIBS
 ;== note: the output keywords are set only for LV version
 file=dir_in+'GRAIN.DAT'
 st_grains=dustem_read_grain(file,silent=silent)
@@ -131,12 +132,6 @@ IF !dustem_which EQ &#39;COMPIEGNE&#39; THEN BEGIN
   st={Ngrains:Ngrains,grains:sst_grains, $
       isrf:st_isrf,qabs:st_qabs,calor:st_calor,specem:st_specem,lambda:st_lambda}
 ENDIF
-; according to logic, should will never reach these lines
-;IF !dustem_which EQ 'VERSTRAETE' THEN BEGIN
-;
-;st={Ngrains:Ngrains,grains:sst_grains, $
-;      isrf:st_isrf,qabs:st_qabs,calor:st_calor,specem:st_specem,lambda:st_lambda}
-;ENDIF
 ionfrac:
 IF !dustem_which EQ 'VERSTRAETE' THEN BEGIN
@@ -238,7 +233,6 @@ IF !dustem_which EQ &#39;VERSTRAETE&#39; THEN BEGIN
   ;JPB: The above is stupid, especially before I added the !dustem_verbose test
 ENDIF
-
 the_end:
 RETURN,st