From 7d6bf3f2f4bfe6402fbd8b1ddacb9f4e7eb8b3ce Mon Sep 17 00:00:00 2001 From: Jean-Philippe Bernard Date: Fri, 25 Oct 2024 15:51:59 +0200 Subject: [PATCH] improved --- LabTools/IRAP/JPB/make_sed_phangs_tables.pro | 2 ++ src/idl/dustem_grids_extend_parameter_range.pro | 1 + 2 files changed, 3 insertions(+), 0 deletions(-) diff --git a/LabTools/IRAP/JPB/make_sed_phangs_tables.pro b/LabTools/IRAP/JPB/make_sed_phangs_tables.pro index 0d9fae5..dfc3bc5 100644 --- a/LabTools/IRAP/JPB/make_sed_phangs_tables.pro +++ b/LabTools/IRAP/JPB/make_sed_phangs_tables.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 diff --git a/src/idl/dustem_grids_extend_parameter_range.pro b/src/idl/dustem_grids_extend_parameter_range.pro index 3d8188c..5ed9815 100644 --- a/src/idl/dustem_grids_extend_parameter_range.pro +++ b/src/idl/dustem_grids_extend_parameter_range.pro @@ -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] $ -- libgit2 0.21.2