improved

Jean-Philippe Bernard
1 parent dbfbb985
Showing 2 changed files with 3 additions and 0 deletions Show diff stats
LabTools/IRAP/JPB/make_sed_phangs_tables.pro
src/idl/dustem_grids_extend_parameter_range.pro
@@ -548,6 +548,7 @@ CASE use_grid_type OF
       goto,the_end
    END
    '0-200': BEGIN          ;This is to extend the range of YG1 by 2 values lower values
+      fortran_user=dustem_set_up_fortran(/random_name)   ;use a random fortran number
       IF keyword_set(isrf_class) THEN BEGIN  ;do just one table
          use_isrf_class=isrf_class
       ENDIF ELSE BEGIN
@@ -570,6 +571,7 @@ CASE use_grid_type OF
       goto,the_end
    END
    '+2000': BEGIN          ;This is to extend the range of F0 parameter by 2 values above max.
+      fortran_user=dustem_set_up_fortran(/random_name)   ;use a random fortran number
       IF keyword_set(isrf_class) THEN BEGIN  ;do just one table
          use_isrf_class=isrf_class
       ENDIF ELSE BEGIN
@@ -129,6 +129,7 @@ PRO dustem_grids_extend_parameter_range,input_table_name,pd_add,Nv_add $
     ;IF param_is_non_linear THEN BEGIN ;This is if the parameter to be added is non-linear
         ;== make table for non-linear parameters
     	message,'========================== Making added grid for non-linear parameters ...',/continue
+    	;In priciple, if non-linear parameters are already in the input table, there should be no reason to do that, but anyway ...
     	dustem_make_sed_table,add_model $
     					     ,add_parameters_description[ind_non_linear] $
 							 ,add_iv_min[ind_non_linear] $