diff --git a/astero/private/pgstar_astero_plots.f90 b/astero/private/pgstar_astero_plots.f90 index 7530c4797..21503f33b 100644 --- a/astero/private/pgstar_astero_plots.f90 +++ b/astero/private/pgstar_astero_plots.f90 @@ -90,8 +90,8 @@ subroutine astero_pgstar_plots_info(id, ierr) end subroutine astero_pgstar_plots_info - subroutine echelle_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id + subroutine echelle_plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (star_info), pointer :: s @@ -363,8 +363,8 @@ end subroutine show_model end subroutine do_echelle_plot - subroutine ratios_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id + subroutine ratios_plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (star_info), pointer :: s diff --git a/binary/defaults/pgbinary.defaults b/binary/defaults/pgbinary.defaults index 067b98ae8..78aebb094 100644 --- a/binary/defaults/pgbinary.defaults +++ b/binary/defaults/pgbinary.defaults @@ -357,2474 +357,517 @@ ! ============== - ! History_Track1 - ! -------------- - - ! :: - - History_Track1_win_flag = .false. - History_Track1_win_width = 6 - History_Track1_win_aspect_ratio = 0.75 - - ! :: - - History_Track1_xleft = 0.15 - History_Track1_xright = 0.85 - History_Track1_ybot = 0.15 - History_Track1_ytop = 0.85 - History_Track1_txt_scale = 1.0 - History_Track1_title = 'History_Track1' - - ! set default - - ! :: - - History_Track1_xname = 'log_center_T' - History_Track1_yname = 'log_L' - History_Track1_xaxis_label = 'log T\dcenter' - History_Track1_yaxis_label = 'log L/L\d\(2281)' - History_Track1_reverse_xaxis = .true. - History_Track1_reverse_yaxis = .false. - History_Track1_log_xaxis = .false. - History_Track1_log_yaxis = .false. - - ! :: - - History_Track1_xmin = -101d0 - History_Track1_xmax = -101d0 - History_Track1_ymin = -101d0 - History_Track1_ymax = -101d0 - - ! :: - - History_Track1_xmargin = 0.1 - History_Track1_ymargin = 0.1 - History_Track1_dxmin = -1 - History_Track1_dymin = -1 - - ! :: - - History_Track1_step_min = -1 - History_Track1_step_max = -1 - - ! :: - - show_History_Track1_target_box = .false. - History_Track1_n_sigma = -3 - History_Track1_xtarget = 0 - History_Track1_xsigma = 0 - History_Track1_ytarget = 0 - History_Track1_ysigma = 0 - - ! :: - - show_History_Track1_annotation1 = .false. - show_History_Track1_annotation2 = .false. - show_History_Track1_annotation3 = .false. - - ! :: - - History_Track1_fname = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/binary/other/pgbinary_decorator.f90`` - - ! :: - - History_Track1_use_decorator = .false. - - ! file output - - ! :: - - History_Track1_file_flag = .false. - History_Track1_file_dir = 'png' - History_Track1_file_prefix = 'track1_' - History_Track1_file_interval = 5 - History_Track1_file_width = -1 - History_Track1_file_aspect_ratio = -1 - - - ! History_Track2 - ! -------------- - - ! :: - - History_Track2_win_flag = .false. - History_Track2_win_width = 6 - History_Track2_win_aspect_ratio = 0.75 - - ! :: - - History_Track2_xleft = 0.15 - History_Track2_xright = 0.85 - History_Track2_ybot = 0.15 - History_Track2_ytop = 0.85 - History_Track2_txt_scale = 1.0 - History_Track2_title = 'History_Track2' - - ! :: - - History_Track2_xname = '' - History_Track2_yname = '' - History_Track2_xaxis_label = '' - History_Track2_yaxis_label = '' - History_Track2_reverse_xaxis = .false. - History_Track2_reverse_yaxis = .false. - History_Track2_log_xaxis = .false. - History_Track2_log_yaxis = .false. - - ! :: - - History_Track2_xmin = -101d0 - History_Track2_xmax = -101d0 - History_Track2_ymin = -101d0 - History_Track2_ymax = -101d0 - - ! :: - - History_Track2_xmargin = 0.1 - History_Track2_ymargin = 0.1 - History_Track2_dxmin = -1 - History_Track2_dymin = -1 - - ! :: - - History_Track2_step_min = -1 - History_Track2_step_max = -1 - - ! :: - - show_History_Track2_target_box = .false. - History_Track2_n_sigma = -3 - History_Track2_xtarget = 0 - History_Track2_xsigma = 0 - History_Track2_ytarget = 0 - History_Track2_ysigma = 0 + ! History_Track(1..9) + ! ------------------- ! :: - show_History_Track2_annotation1 = .false. - show_History_Track2_annotation2 = .false. - show_History_Track2_annotation3 = .false. + History_Track_win_flag(:) = .false. + History_Track_win_width(:) = 6 + History_Track_win_aspect_ratio(:) = 0.75 ! :: - History_Track2_fname = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/binary/other/pgbinary_decorator.f90`` - - ! :: - - History_Track2_use_decorator = .false. - - ! file output - - ! :: - - History_Track2_file_flag = .false. - History_Track2_file_dir = 'png' - History_Track2_file_prefix = 'track2_' - History_Track2_file_interval = 5 - History_Track2_file_width = -1 - History_Track2_file_aspect_ratio = -1 - - - ! History_Track3 - ! -------------- - - ! :: - - History_Track3_win_flag = .false. - History_Track3_win_width = 6 - History_Track3_win_aspect_ratio = 0.75 - - ! :: - - History_Track3_xleft = 0.15 - History_Track3_xright = 0.85 - History_Track3_ybot = 0.15 - History_Track3_ytop = 0.85 - History_Track3_txt_scale = 1.0 - History_Track3_title = 'History_Track3' - - ! :: - - History_Track3_xname = '' - History_Track3_yname = '' - History_Track3_xaxis_label = '' - History_Track3_yaxis_label = '' - History_Track3_reverse_xaxis = .false. - History_Track3_reverse_yaxis = .false. - History_Track3_log_xaxis = .false. - History_Track3_log_yaxis = .false. - - ! :: - - History_Track3_xmin = -101d0 - History_Track3_xmax = -101d0 - History_Track3_ymin = -101d0 - History_Track3_ymax = -101d0 - - ! :: - - History_Track3_xmargin = 0.1 - History_Track3_ymargin = 0.1 - History_Track3_dxmin = -1 - History_Track3_dymin = -1 - - ! :: - - History_Track3_step_min = -1 - History_Track3_step_max = -1 + History_Track_xleft(:) = 0.15 + History_Track_xright(:) = 0.85 + History_Track_ybot(:) = 0.15 + History_Track_ytop(:) = 0.85 + History_Track_txt_scale(:) = 1.0 + History_Track_title(:) = '' ! :: - show_History_Track3_target_box = .false. - History_Track3_n_sigma = -3 - History_Track3_xtarget = 0 - History_Track3_xsigma = 0 - History_Track3_ytarget = 0 - History_Track3_ysigma = 0 + History_Track_xname(:) = '' + History_Track_yname(:) = '' + History_Track_xaxis_label(:) = '' + History_Track_yaxis_label(:) = '' + History_Track_reverse_xaxis(:) = .false. + History_Track_reverse_yaxis(:) = .false. + History_Track_log_xaxis(:) = .false. + History_Track_log_yaxis(:) = .false. ! :: - show_History_Track3_annotation1 = .false. - show_History_Track3_annotation2 = .false. - show_History_Track3_annotation3 = .false. + History_Track_xmin(:) = -101d0 + History_Track_xmax(:) = -101d0 + History_Track_ymin(:) = -101d0 + History_Track_ymax(:) = -101d0 ! :: - History_Track3_fname = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/binary/other/pgbinary_decorator.f90`` - - ! :: - - History_Track3_use_decorator = .false. - - ! file output - - ! :: - - History_Track3_file_flag = .false. - History_Track3_file_dir = 'png' - History_Track3_file_prefix = 'track3_' - History_Track3_file_interval = 5 - History_Track3_file_width = -1 - History_Track3_file_aspect_ratio = -1 - - - ! History_Track4 - ! -------------- - - ! :: - - History_Track4_win_flag = .false. - History_Track4_win_width = 6 - History_Track4_win_aspect_ratio = 0.75 - - ! :: - - History_Track4_xleft = 0.15 - History_Track4_xright = 0.85 - History_Track4_ybot = 0.15 - History_Track4_ytop = 0.85 - History_Track4_txt_scale = 1.0 - History_Track4_title = 'History_Track4' - - ! :: - - History_Track4_xname = '' - History_Track4_yname = '' - History_Track4_xaxis_label = '' - History_Track4_yaxis_label = '' - History_Track4_reverse_xaxis = .false. - History_Track4_reverse_yaxis = .false. - History_Track4_log_xaxis = .false. - History_Track4_log_yaxis = .false. - - ! :: - - History_Track4_xmin = -101d0 - History_Track4_xmax = -101d0 - History_Track4_ymin = -101d0 - History_Track4_ymax = -101d0 - - ! :: - - History_Track4_xmargin = 0.1 - History_Track4_ymargin = 0.1 - History_Track4_dxmin = -1 - History_Track4_dymin = -1 + History_Track_xmargin(:) = 0.1 + History_Track_ymargin(:) = 0.1 + History_Track_dxmin(:) = -1 + History_Track_dymin(:) = -1 ! :: - History_Track4_step_min = -1 - History_Track4_step_max = -1 + History_Track_step_min(:) = -1 + History_Track_step_max(:) = -1 ! :: - show_History_Track4_target_box = .false. - History_Track4_n_sigma = -3 - History_Track4_xtarget = 0 - History_Track4_xsigma = 0 - History_Track4_ytarget = 0 - History_Track4_ysigma = 0 + show_History_Track_target_box(:) = .false. + History_Track_n_sigma(:) = -3 + History_Track_xtarget(:) = 0 + History_Track_xsigma(:) = 0 + History_Track_ytarget(:) = 0 + History_Track_ysigma(:) = 0 ! :: - show_History_Track4_annotation1 = .false. - show_History_Track4_annotation2 = .false. - show_History_Track4_annotation3 = .false. + show_History_Track_annotation1(:) = .false. + show_History_Track_annotation2(:) = .false. + show_History_Track_annotation3(:) = .false. ! :: - History_Track4_fname = '' + History_Track_fname(:) = '' ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/binary/other/pgbinary_decorator.f90`` - - ! :: - - History_Track4_use_decorator = .false. - - ! file output - - ! :: - - History_Track4_file_flag = .false. - History_Track4_file_dir = 'png' - History_Track4_file_prefix = 'track4_' - History_Track4_file_interval = 5 - History_Track4_file_width = -1 - History_Track4_file_aspect_ratio = -1 - - - ! History_Track5 - ! -------------- - - ! :: - - History_Track5_win_flag = .false. - History_Track5_win_width = 6 - History_Track5_win_aspect_ratio = 0.75 - - ! :: - - History_Track5_xleft = 0.15 - History_Track5_xright = 0.85 - History_Track5_ybot = 0.15 - History_Track5_ytop = 0.85 - History_Track5_txt_scale = 1.0 - History_Track5_title = 'History_Track5' - - ! :: - - History_Track5_xname = '' - History_Track5_yname = '' - History_Track5_xaxis_label = '' - History_Track5_yaxis_label = '' - History_Track5_reverse_xaxis = .false. - History_Track5_reverse_yaxis = .false. - History_Track5_log_xaxis = .false. - History_Track5_log_yaxis = .false. - - ! :: - - History_Track5_xmin = -101d0 - History_Track5_xmax = -101d0 - History_Track5_ymin = -101d0 - History_Track5_ymax = -101d0 - - ! :: - - History_Track5_xmargin = 0.1 - History_Track5_ymargin = 0.1 - History_Track5_dxmin = -1 - History_Track5_dymin = -1 + ! see ``$MESA_DIR/star/other/pgbinary_decorator.f90`` ! :: - History_Track5_step_min = -1 - History_Track5_step_max = -1 + History_Track_use_decorator(:) = .false. - ! :: - - show_History_Track5_target_box = .false. - History_Track5_n_sigma = -3 - History_Track5_xtarget = 0 - History_Track5_xsigma = 0 - History_Track5_ytarget = 0 - History_Track5_ysigma = 0 - - ! :: - - show_History_Track5_annotation1 = .false. - show_History_Track5_annotation2 = .false. - show_History_Track5_annotation3 = .false. + ! **File output** ! :: - History_Track5_fname = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/binary/other/pgbinary_decorator.f90`` + History_Track_file_flag(:) = .false. + History_Track_file_dir(:) = 'png' + History_Track_file_prefix(:) = '' + History_Track_file_interval(:) = 5 + History_Track_file_width(:) = -1 + History_Track_file_aspect_ratio(:) = -1 - ! :: + ! set default plots - History_Track5_use_decorator = .false. + ! History_Track(1) + ! ---------------- + History_Track_xname(1) = 'star_1_mass' + History_Track_yname(1) = 'lg_mtransfer_rate' + History_Track_xaxis_label(1) = 'M\d1\u/M\d\(2281)' + History_Track_yaxis_label(1) = 'log M\dtransfer\u rate (M\d\(2281)\uyr\u-1)' + History_Track_reverse_xaxis(:) = .true. + History_Track_file_prefix(1) = 'track1_' - ! file output + ! History_Track(2) + ! ---------------- - ! :: + History_Track_file_prefix(2) = 'track2_' - History_Track5_file_flag = .false. - History_Track5_file_dir = 'png' - History_Track5_file_prefix = 'track5_' - History_Track5_file_interval = 5 - History_Track5_file_width = -1 - History_Track5_file_aspect_ratio = -1 + ! History_Track(3) + ! ---------------- + History_Track_file_prefix(3) = 'track3_' - ! History_Track6 - ! -------------- + ! History_Track(4) + ! ---------------- - ! :: + History_Track_file_prefix(4) = 'track4_' - History_Track6_win_flag = .false. - History_Track6_win_width = 6 - History_Track6_win_aspect_ratio = 0.75 + ! History_Track(5) + ! ---------------- - ! :: + History_Track_file_prefix(5) = 'track5_' - History_Track6_xleft = 0.15 - History_Track6_xright = 0.85 - History_Track6_ybot = 0.15 - History_Track6_ytop = 0.85 - History_Track6_txt_scale = 1.0 - History_Track6_title = 'History_Track6' + ! History_Track(6) + ! ---------------- - ! :: + History_Track_file_prefix(6) = 'track6_' - History_Track6_xname = '' - History_Track6_yname = '' - History_Track6_xaxis_label = '' - History_Track6_yaxis_label = '' - History_Track6_reverse_xaxis = .false. - History_Track6_reverse_yaxis = .false. - History_Track6_log_xaxis = .false. - History_Track6_log_yaxis = .false. - ! :: + ! History_Track(7) + ! ---------------- - History_Track6_xmin = -101d0 - History_Track6_xmax = -101d0 - History_Track6_ymin = -101d0 - History_Track6_ymax = -101d0 + History_Track_file_prefix(7) = 'track7_' - ! :: + ! History_Track(8) + ! ---------------- - History_Track6_xmargin = 0.1 - History_Track6_ymargin = 0.1 - History_Track6_dxmin = -1 - History_Track6_dymin = -1 + History_Track_file_prefix(8) = 'track8_' - ! :: + ! History_Track(9) + ! ---------------- - History_Track6_step_min = -1 - History_Track6_step_max = -1 + History_Track_file_prefix(9) = 'track9_' - ! :: +! History Panels +! ============== - show_History_Track6_target_box = .false. - History_Track6_n_sigma = -3 - History_Track6_xtarget = 0 - History_Track6_xsigma = 0 - History_Track6_ytarget = 0 - History_Track6_ysigma = 0 + ! History_Panels(1..9) + ! --------------------- ! :: - show_History_Track6_annotation1 = .false. - show_History_Track6_annotation2 = .false. - show_History_Track6_annotation3 = .false. + History_Panels_win_flag(:) = .false. ! :: - History_Track6_fname = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/binary/other/pgbinary_decorator.f90`` + History_Panels_win_width(:) = 6 + History_Panels_win_aspect_ratio(:) = 0.75 ! :: - History_Track6_use_decorator = .false. - - ! file output + History_Panels_xleft(:) = 0.15 + History_Panels_xright(:) = 0.85 + History_Panels_ybot(:) = 0.15 + History_Panels_ytop(:) = 0.85 + History_Panels_txt_scale(:) = 1.0 + History_Panels_title(:) = '' ! :: - History_Track6_file_flag = .false. - History_Track6_file_dir = 'png' - History_Track6_file_prefix = 'track6_' - History_Track6_file_interval = 5 - History_Track6_file_width = -1 - History_Track6_file_aspect_ratio = -1 - - - ! History_Track7 - ! -------------- + History_Panels_xaxis_name(:) = '' + History_Panels_xmin(:) = -101d0 + History_Panels_xmax(:) = -101d0 + History_Panels_max_width(:) = 100 + History_Panels_dxmin(:) = -1 + History_Panels_xaxis_reversed(:) = .false. + History_Panels_xaxis_log(:) = .false. + History_Panels_xmargin(:) = 0.0 ! :: - History_Track7_win_flag = .false. - History_Track7_win_width = 6 - History_Track7_win_aspect_ratio = 0.75 + History_Panels_yaxis_name(:, :) = '' + History_Panels_yaxis_reversed(:, :) = .false. + History_Panels_yaxis_log(:, :) = .false. + History_Panels_ymin(:, :) = -101d0 + History_Panels_ymax(:, :) = -101d0 + History_Panels_ymargin(:, :) = 0.1 + History_Panels_dymin(:, :) = -1 ! :: - History_Track7_xleft = 0.15 - History_Track7_xright = 0.85 - History_Track7_ybot = 0.15 - History_Track7_ytop = 0.85 - History_Track7_txt_scale = 1.0 - History_Track7_title = 'History_Track7' + History_Panels_other_yaxis_name(:, :) = '' + History_Panels_other_yaxis_reversed(:, :) = .false. + History_Panels_other_yaxis_log(:, :) = .false. + History_Panels_other_ymin(:, :) = -101d0 + History_Panels_other_ymax(:, :) = -101d0 + History_Panels_other_ymargin(:, :) = 0.1 + History_Panels_other_dymin(:, :) = -1 ! :: - History_Track7_xname = '' - History_Track7_yname = '' - History_Track7_xaxis_label = '' - History_Track7_yaxis_label = '' - History_Track7_reverse_xaxis = .false. - History_Track7_reverse_yaxis = .false. - History_Track7_log_xaxis = .false. - History_Track7_log_yaxis = .false. + History_Panels_points_name(:, :) = '' + History_Panels_num_panels = 0 - ! :: - History_Track7_xmin = -101d0 - History_Track7_xmax = -101d0 - History_Track7_ymin = -101d0 - History_Track7_ymax = -101d0 + ! Enables caling a subroutine to add extra information to a plot + ! see ``$MES_DIR/star/other/pgbinary_decorator.f90`` ! :: - History_Track7_xmargin = 0.1 - History_Track7_ymargin = 0.1 - History_Track7_dxmin = -1 - History_Track7_dymin = -1 - - ! :: + History_Panels_use_decorator(:) = .false. - History_Track7_step_min = -1 - History_Track7_step_max = -1 + ! **File output** ! :: - show_History_Track7_target_box = .false. - History_Track7_n_sigma = -3 - History_Track7_xtarget = 0 - History_Track7_xsigma = 0 - History_Track7_ytarget = 0 - History_Track7_ysigma = 0 + History_Panels_file_flag(:) = .false. + History_Panels_file_dir(:) = 'png' + History_Panels_file_prefix(:) = '' + History_Panels_file_interval(:) = 5 + History_Panels_file_width(:) = -1 + History_Panels_file_aspect_ratio(:) = -1 - ! :: + ! set default plots - show_History_Track7_annotation1 = .false. - show_History_Track7_annotation2 = .false. - show_History_Track7_annotation3 = .false. + ! History_Panels(1) + ! ----------------- - ! :: + History_Panels_title(1) = 'History_Panels(1)' + History_Panels_xaxis_name(1) = 'model_number' + History_Panels_num_panels(1) = 2 + History_Panels_yaxis_name(1, 1) = 'period_days' + History_Panels_other_yaxis_name(1, 1) = 'rl_relative_overflow_1' + History_Panels_yaxis_name(1, 2) = 'star_1_mass' + History_Panels_other_yaxis_name(1, 2) = 'lg_mtransfer_rate' + History_Panels_file_prefix(1) = 'History_Panels1_' - History_Track7_fname = '' + ! History_Panels(2) + ! ----------------- - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/binary/other/pgbinary_decorator.f90`` + History_Panels_file_prefix(2) = 'History_Panels2_' - ! :: + ! History_Panels(3) + ! ----------------- - History_Track7_use_decorator = .false. + History_Panels_file_prefix(3) = 'History_Panels3_' - ! file output - ! :: + ! History_Panels(4) + ! ----------------- - History_Track7_file_flag = .false. - History_Track7_file_dir = 'png' - History_Track7_file_prefix = 'track7_' - History_Track7_file_interval = 5 - History_Track7_file_width = -1 - History_Track7_file_aspect_ratio = -1 + History_Panels_file_prefix(4) = 'History_Panels4_' - ! History_Track8 - ! -------------- + ! History_Panels(5) + ! ----------------- - ! :: + History_Panels_file_prefix(5) = 'History_Panels5_' - History_Track8_win_flag = .false. - History_Track8_win_width = 6 - History_Track8_win_aspect_ratio = 0.75 + ! History_Panels(6) + ! ----------------- - ! :: + History_Panels_file_prefix(6) = 'History_Panels6_' - History_Track8_xleft = 0.15 - History_Track8_xright = 0.85 - History_Track8_ybot = 0.15 - History_Track8_ytop = 0.85 - History_Track8_txt_scale = 1.0 - History_Track8_title = 'History_Track8' - ! :: + ! History_Panels(7) + ! ----------------- - History_Track8_xname = '' - History_Track8_yname = '' - History_Track8_xaxis_label = '' - History_Track8_yaxis_label = '' - History_Track8_reverse_xaxis = .false. - History_Track8_reverse_yaxis = .false. - History_Track8_log_xaxis = .false. - History_Track8_log_yaxis = .false. + History_Panels_file_prefix(7) = 'History_Panels7_' - ! :: + ! History_Panels(8) + ! ----------------- - History_Track8_xmin = -101d0 - History_Track8_xmax = -101d0 - History_Track8_ymin = -101d0 - History_Track8_ymax = -101d0 + History_Panels_file_prefix(8) = 'History_Panels8_' - ! :: - History_Track8_xmargin = 0.1 - History_Track8_ymargin = 0.1 - History_Track8_dxmin = -1 - History_Track8_dymin = -1 + ! History_Panels(9) + ! ----------------- - ! :: + History_Panels_file_prefix(9) = 'History_Panels9_' - History_Track8_step_min = -1 - History_Track8_step_max = -1 + ! History_Panel_points_error_bars + ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ + ! History_Panel_points_interval + ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ + ! History_Panel_points_marker + ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~ + ! History_Panel_points_ci + ! ~~~~~~~~~~~~~~~~~~~~~~~ + ! History_Panel_points_lw + ! ~~~~~~~~~~~~~~~~~~~~~~~ + ! History_Panel_points_ch + ! ~~~~~~~~~~~~~~~~~~~~~~~ ! :: - show_History_Track8_target_box = .false. - History_Track8_n_sigma = -3 - History_Track8_xtarget = 0 - History_Track8_xsigma = 0 - History_Track8_ytarget = 0 - History_Track8_ysigma = 0 - - ! :: + History_Panel_points_error_bars = .true. + History_Panel_points_interval = 1 + History_Panel_points_marker = 5 + History_Panel_points_ci = 1 + History_Panel_points_lw = 1 + History_Panel_points_ch = 1.0 - show_History_Track8_annotation1 = .false. - show_History_Track8_annotation2 = .false. - show_History_Track8_annotation3 = .false. - ! :: +! Text Summary +! ============ - History_Track8_fname = '' - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/binary/other/pgbinary_decorator.f90`` + ! Text_Summary(1..9) + ! ------------------ ! :: - History_Track8_use_decorator = .false. - - ! file output + Text_Summary_win_flag(:) = .false. + Text_Summary_win_width(:) = 6 + Text_Summary_win_aspect_ratio(:) = 1.5 ! :: - History_Track8_file_flag = .false. - History_Track8_file_dir = 'png' - History_Track8_file_prefix = 'track8_' - History_Track8_file_interval = 5 - History_Track8_file_width = -1 - History_Track8_file_aspect_ratio = -1 - - - ! History_Track9 - ! -------------- + Text_Summary_xleft(:) = 0.02 + Text_Summary_xright(:) = 0.98 + Text_Summary_ybot(:) = 0.08 + Text_Summary_ytop(:) = 0.98 + Text_Summary_txt_scale(:) = 4.5 + Text_Summary_dxval(:) = 0.02 + Text_Summary_title(:) = '' ! :: - History_Track9_win_flag = .false. - History_Track9_win_width = 6 - History_Track9_win_aspect_ratio = 0.75 - - ! :: + Text_Summary_num_rows(:) = 0 + Text_Summary_num_cols(:) = 0 + Text_Summary_name(:,:,:) = '' - History_Track9_xleft = 0.15 - History_Track9_xright = 0.85 - History_Track9_ybot = 0.15 - History_Track9_ytop = 0.85 - History_Track9_txt_scale = 1.0 - History_Track9_title = 'History_Track9' + ! **File output** ! :: - History_Track9_xname = '' - History_Track9_yname = '' - History_Track9_xaxis_label = '' - History_Track9_yaxis_label = '' - History_Track9_reverse_xaxis = .false. - History_Track9_reverse_yaxis = .false. - History_Track9_log_xaxis = .false. - History_Track9_log_yaxis = .false. + Text_Summary_file_flag(:) = .false. + Text_Summary_file_dir(:) = 'png' + Text_Summary_file_prefix(:) = '' + Text_Summary_file_interval(:) = 5 + Text_Summary_file_width(:) = -1 + Text_Summary_file_aspect_ratio(:) = -1 - ! :: + ! Text_Summary(1) + ! --------------- - History_Track9_xmin = -101d0 - History_Track9_xmax = -101d0 - History_Track9_ymin = -101d0 - History_Track9_ymax = -101d0 + Text_Summary_win_width(1) = 10 + Text_Summary_win_aspect_ratio(1) = 0.15 + Text_Summary_num_rows = 3 + Text_Summary_num_cols = 2 ! :: - History_Track9_xmargin = 0.1 - History_Track9_ymargin = 0.1 - History_Track9_dxmin = -1 - History_Track9_dymin = -1 + Text_Summary_name(1,1,1) = 'model_number' + Text_Summary_name(1,2,1) = 'period_days' + Text_Summary_name(1,3,1) = 'donor_index' + Text_Summary_name(1,1,2) = 'lg_mtransfer_rate' + Text_Summary_name(1,2,2) = 'rl_relative_overflow_1' + Text_Summary_name(1,3,2) = 'rl_relative_overflow_2' ! :: - History_Track9_step_min = -1 - History_Track9_step_max = -1 + Text_Summary_file_prefix(1) = 'Text_Summary1_' - ! :: + ! Text_Summary(2) + ! --------------- - show_History_Track9_target_box = .false. - History_Track9_n_sigma = -3 - History_Track9_xtarget = 0 - History_Track9_xsigma = 0 - History_Track9_ytarget = 0 - History_Track9_ysigma = 0 + Text_Summary_file_prefix(2) = 'Text_Summary2_' - ! :: + ! Text_Summary(3) + ! --------------- - show_History_Track9_annotation1 = .false. - show_History_Track9_annotation2 = .false. - show_History_Track9_annotation3 = .false. + Text_Summary_file_prefix(3) = 'Text_Summary3_' - ! :: + ! Text_Summary(4) + ! --------------- - History_Track9_fname = '' + Text_Summary_file_prefix(4) = 'Text_Summary4_' - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/binary/other/pgbinary_decorator.f90`` + ! Text_Summary(5) + ! --------------- - ! :: + Text_Summary_file_prefix(5) = 'Text_Summary5_' - History_Track9_use_decorator = .false. + ! Text_Summary(6) + ! --------------- - ! file output + Text_Summary_file_prefix(6) = 'Text_Summary6_' - ! :: + ! Text_Summary(7) + ! --------------- - History_Track9_file_flag = .false. - History_Track9_file_dir = 'png' - History_Track9_file_prefix = 'track9_' - History_Track9_file_interval = 5 - History_Track9_file_width = -1 - History_Track9_file_aspect_ratio = -1 + Text_Summary_file_prefix(7) = 'Text_Summary7_' -! History Panels -! ============== + ! Text_Summary(8) + ! --------------- + Text_Summary_file_prefix(8) = 'Text_Summary8_' - ! History_Panels1 + ! Text_Summary(9) ! --------------- - ! :: + Text_Summary_file_prefix(9) = 'Text_Summary9_' - History_Panels1_win_flag = .false. +! Grid +! ==== - ! :: - History_Panels1_win_width = 6 - History_Panels1_win_aspect_ratio = 0.75 + ! Grid(1..9) + ! ---------- ! :: - History_Panels1_xleft = 0.15 - History_Panels1_xright = 0.85 - History_Panels1_ybot = 0.15 - History_Panels1_ytop = 0.85 - History_Panels1_txt_scale = 1.0 - History_Panels1_title = 'History_Panels1' + Grid_win_flag(:) = .false. ! :: - History_Panels1_xaxis_name = 'model_number' - History_Panels1_xmin = -101d0 - History_Panels1_xmax = -101d0 - History_Panels1_max_width = 100 - History_Panels1_dxmin = -1 - History_Panels1_xaxis_reversed = .false. - History_Panels1_xaxis_log = .false. - History_Panels1_xmargin = 0.0 + Grid_win_width(:) = 6 + Grid_win_aspect_ratio(:) = 1 ! :: - History_Panels1_yaxis_name(:) = '' - History_Panels1_yaxis_reversed(:) = .false. - History_Panels1_yaxis_log(:) = .false. - History_Panels1_ymin(:) = -101d0 - History_Panels1_ymax(:) = -101d0 - History_Panels1_ymargin(:) = 0.1 - History_Panels1_dymin(:) = -1 + Grid_xleft(:) = 0.12 + Grid_xright(:) = 0.95 + Grid_ybot(:) = 0.08 + Grid_ytop(:) = 0.92 + Grid_title(:) = '' ! :: - History_Panels1_other_yaxis_name(:) = '' - History_Panels1_other_yaxis_reversed(:) = .false. - History_Panels1_other_yaxis_log(:) = .false. - History_Panels1_other_ymin(:) = -101d0 - History_Panels1_other_ymax(:) = -101d0 - History_Panels1_other_ymargin(:) = 0.1 - History_Panels1_other_dymin(:) = -1 + Grid_plot_name(:, :) = '' + Grid_plot_row(:, :) = 1 + Grid_plot_rowspan(:, :) = 1 + Grid_plot_col(:, :) = 1 + Grid_plot_colspan(:, :) = 1 + Grid_plot_pad_left(:, :) = 0.0 + Grid_plot_pad_right(:, :) = 0.0 + Grid_plot_pad_top(:, :) = 0.0 + Grid_plot_pad_bot(:, :) = 0.0 + Grid_txt_scale_factor(:, :) = 0.7 - ! :: + ! :: - History_Panels1_points_name(:) = '' + Grid_num_cols(:) = 1 + Grid_num_rows(:) = 1 + Grid_num_plots(:) = 0 - ! setup default + ! **File output** ! :: - History_Panels1_num_panels = 1 + Grid_file_flag(:) = .false. + Grid_file_dir(:) = 'png' + Grid_file_prefix(:) = '' + Grid_file_interval(:) = 5 + Grid_file_width(:) = 9 + Grid_file_aspect_ratio(:) = -1 - ! :: - - History_Panels1_yaxis_name(1) = 'lg_mtransfer_rate' - History_Panels1_yaxis_reversed(1) = .false. - History_Panels1_ymin(1) = -101d0 - History_Panels1_ymax(1) = -101d0 - History_Panels1_dymin(1) = -1 + ! Grid(1) + ! ------- - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/binary/other/pgbinary_decorator.f90`` - ! :: + Grid_win_width(1) = 19 + Grid_win_aspect_ratio(1) = 0.58 - History_Panels1_use_decorator = .false. + Grid_xleft(1) = 0.0 + Grid_xright(1) = 1.0 + Grid_ybot(1) = 0.0 + Grid_ytop(1) = 0.95 + Grid_title = '' - ! file output + Grid_num_cols(1) = 5 + Grid_num_rows(1) = 3 + Grid_num_plots(1) = 3 - ! :: + Grid_plot_name(1, 1) = 'Star1' + Grid_plot_col(1, 1) = 1 + Grid_plot_colspan(1, 1) = 2 + Grid_plot_row(1, 1) = 1 + Grid_plot_rowspan(1, 1) = 3 + Grid_plot_pad_left(1, 1) = 0.02 + Grid_plot_pad_right(1, 1) = 0.02 + Grid_plot_pad_bot(1, 1) = 0.01 + Grid_plot_pad_top(1, 1) = 0.00 + Grid_txt_scale_factor(1, 1) = 0.9 + Star1_plot_name = 'Grid(2)' + do_star1_box = .true. + star1_box_pad_left = -0.02 + star1_box_pad_right = 0.02 + star1_box_pad_bot = 0.0 + star1_box_pad_top = 0.001 - History_Panels1_file_flag = .false. - History_Panels1_file_dir = 'png' - History_Panels1_file_prefix = 'History_Panels1_' - History_Panels1_file_interval = 5 - History_Panels1_file_width = -1 - History_Panels1_file_aspect_ratio = -1 + Grid_plot_name(1, 2) = 'history_panels(1)' + Grid_plot_col(1, 2) = 5 + Grid_plot_colspan(1, 2) = 1 + Grid_plot_row(1, 2) = 2 + Grid_plot_rowspan(1, 2) = 2 + Grid_plot_pad_left(1, 2) = 0.04 + Grid_plot_pad_right(1, 2) = 0.04 + Grid_plot_pad_bot(1, 2) = 0.04 + Grid_plot_pad_top(1, 2) = 0.00 + Grid_txt_scale_factor(1, 2) = 0.4 - - ! History_Panels2 - ! --------------- - - ! :: - - History_Panels2_win_flag = .false. - - ! :: - - History_Panels2_win_width = 6 - History_Panels2_win_aspect_ratio = 0.75 - - ! :: - - History_Panels2_xleft = 0.15 - History_Panels2_xright = 0.85 - History_Panels2_ybot = 0.15 - History_Panels2_ytop = 0.85 - History_Panels2_txt_scale = 1.0 - History_Panels2_title = 'History_Panels2' - - ! :: - - History_Panels2_xaxis_name = 'model_number' - History_Panels2_xmin = -101d0 - History_Panels2_xmax = -101d0 - History_Panels2_max_width = 100 - History_Panels2_dxmin = -1 - History_Panels2_xaxis_reversed = .false. - History_Panels2_xaxis_log = .false. - History_Panels2_xmargin = 0.0 - - ! :: - - History_Panels2_num_panels = 0 - - ! :: - - History_Panels2_yaxis_name(:) = '' - History_Panels2_yaxis_reversed(:) = .false. - History_Panels2_yaxis_log(:) = .false. - History_Panels2_ymin(:) = -101d0 - History_Panels2_ymax(:) = -101d0 - History_Panels2_ymargin(:) = 0.1 - History_Panels2_dymin(:) = -1 - - ! :: - - History_Panels2_other_yaxis_name(:) = '' - History_Panels2_other_yaxis_reversed(:) = .false. - History_Panels2_other_yaxis_log(:) = .false. - History_Panels2_other_ymin(:) = -101d0 - History_Panels2_other_ymax(:) = -101d0 - History_Panels2_other_ymargin(:) = 0.1 - History_Panels2_other_dymin(:) = -1 - - ! :: - - History_Panels2_points_name(:) = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/binary/other/pgbinary_decorator.f90`` - - ! :: - - History_Panels2_use_decorator = .false. - - ! file output - - ! :: - - History_Panels2_file_flag = .false. - History_Panels2_file_dir = 'png' - History_Panels2_file_prefix = 'History_Panels2_' - History_Panels2_file_interval = 5 - History_Panels2_file_width = -1 - History_Panels2_file_aspect_ratio = -1 - - - ! History_Panels3 - ! --------------- - - ! :: - - History_Panels3_win_flag = .false. - - ! :: - - History_Panels3_win_width = 6 - History_Panels3_win_aspect_ratio = 0.75 - - ! :: - - History_Panels3_xleft = 0.15 - History_Panels3_xright = 0.85 - History_Panels3_ybot = 0.15 - History_Panels3_ytop = 0.85 - History_Panels3_txt_scale = 1.0 - History_Panels3_title = 'History_Panels3' - - ! :: - - History_Panels3_xaxis_name = 'model_number' - History_Panels3_xmin = -101d0 - History_Panels3_xmax = -101d0 - History_Panels3_max_width = 100 - History_Panels3_dxmin = -1 - History_Panels3_xaxis_reversed = .false. - History_Panels3_xaxis_log = .false. - History_Panels3_xmargin = 0.0 - - ! :: - - History_Panels3_num_panels = 0 - - ! :: - - History_Panels3_yaxis_name(:) = '' - History_Panels3_yaxis_reversed(:) = .false. - History_Panels3_yaxis_log(:) = .false. - History_Panels3_ymin(:) = -101d0 - History_Panels3_ymax(:) = -101d0 - History_Panels3_ymargin(:) = 0.1 - History_Panels3_dymin(:) = -1 - - ! :: - - History_Panels3_other_yaxis_name(:) = '' - History_Panels3_other_yaxis_reversed(:) = .false. - History_Panels3_other_yaxis_log(:) = .false. - History_Panels3_other_ymin(:) = -101d0 - History_Panels3_other_ymax(:) = -101d0 - History_Panels3_other_ymargin(:) = 0.1 - History_Panels3_other_dymin(:) = -1 - - ! :: - - History_Panels3_points_name(:) = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/binary/other/pgbinary_decorator.f90`` - - ! :: - - History_Panels3_use_decorator = .false. - - ! file output - - ! :: - - History_Panels3_file_flag = .false. - History_Panels3_file_dir = 'png' - History_Panels3_file_prefix = 'History_Panels3_' - History_Panels3_file_interval = 5 - History_Panels3_file_width = -1 - History_Panels3_file_aspect_ratio = -1 - - - ! History_Panels4 - ! --------------- - - ! :: - - History_Panels4_win_flag = .false. - - ! :: - - History_Panels4_win_width = 6 - History_Panels4_win_aspect_ratio = 0.75 - - ! :: - - History_Panels4_xleft = 0.15 - History_Panels4_xright = 0.85 - History_Panels4_ybot = 0.15 - History_Panels4_ytop = 0.85 - History_Panels4_txt_scale = 1.0 - History_Panels4_title = 'History_Panels4' - - ! :: - - History_Panels4_xaxis_name = 'model_number' - History_Panels4_xmin = -101d0 - History_Panels4_xmax = -101d0 - History_Panels4_max_width = 100 - History_Panels4_dxmin = -1 - History_Panels4_xaxis_reversed = .false. - History_Panels4_xaxis_log = .false. - - ! :: - - History_Panels4_num_panels = 0 - - ! :: - - History_Panels4_yaxis_name(:) = '' - History_Panels4_yaxis_reversed(:) = .false. - History_Panels4_yaxis_log(:) = .false. - History_Panels4_ymin(:) = -101d0 - History_Panels4_ymax(:) = -101d0 - History_Panels4_ymargin(:) = 0.1 - History_Panels4_dymin(:) = -1 - History_Panels4_xmargin = 0.0 - - ! :: - - History_Panels4_other_yaxis_name(:) = '' - History_Panels4_other_yaxis_reversed(:) = .false. - History_Panels4_other_yaxis_log(:) = .false. - History_Panels4_other_ymin(:) = -101d0 - History_Panels4_other_ymax(:) = -101d0 - History_Panels4_other_ymargin(:) = 0.1 - History_Panels4_other_dymin(:) = -1 - - ! :: - - History_Panels4_points_name(:) = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/binary/other/pgbinary_decorator.f90`` - - ! :: - - History_Panels4_use_decorator = .false. - - ! file output - - ! :: - - History_Panels4_file_flag = .false. - History_Panels4_file_dir = 'png' - History_Panels4_file_prefix = 'History_Panels4_' - History_Panels4_file_interval = 5 - History_Panels4_file_width = -1 - History_Panels4_file_aspect_ratio = -1 - - - ! History_Panels5 - ! --------------- - - ! :: - - History_Panels5_win_flag = .false. - - ! :: - - History_Panels5_win_width = 6 - History_Panels5_win_aspect_ratio = 0.75 - - ! :: - - History_Panels5_xleft = 0.15 - History_Panels5_xright = 0.85 - History_Panels5_ybot = 0.15 - History_Panels5_ytop = 0.85 - History_Panels5_txt_scale = 1.0 - History_Panels5_title = 'History_Panels5' - - ! :: - - History_Panels5_xaxis_name = 'model_number' - History_Panels5_xmin = -101d0 - History_Panels5_xmax = -101d0 - History_Panels5_max_width = 100 - History_Panels5_dxmin = -1 - History_Panels5_xaxis_reversed = .false. - History_Panels5_xaxis_log = .false. - History_Panels5_xmargin = 0.0 - - ! :: - - History_Panels5_num_panels = 0 - - ! :: - - History_Panels5_yaxis_name(1) = 'num_zones' - History_Panels5_yaxis_reversed(1) = .false. - History_Panels5_ymin(1) = -101d0 - History_Panels5_ymax(1) = -101d0 - History_Panels5_dymin(1) = -1 - - ! :: - - History_Panels5_yaxis_name(:) = '' - History_Panels5_yaxis_reversed(:) = .false. - History_Panels5_yaxis_log(:) = .false. - History_Panels5_ymin(:) = -101d0 - History_Panels5_ymax(:) = -101d0 - History_Panels5_ymargin(:) = 0.1 - History_Panels5_dymin(:) = -1 - - ! :: - - History_Panels5_other_yaxis_name(:) = '' - History_Panels5_other_yaxis_reversed(:) = .false. - History_Panels6_other_yaxis_log(:) = .false. - History_Panels5_other_ymin(:) = -101d0 - History_Panels5_other_ymax(:) = -101d0 - History_Panels5_other_ymargin(:) = 0.1 - History_Panels5_other_dymin(:) = -1 - - ! :: - - History_Panels5_points_name(:) = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/binary/other/pgbinary_decorator.f90`` - - ! :: - - History_Panels5_use_decorator = .false. - - ! file output - - ! :: - - History_Panels5_file_flag = .false. - History_Panels5_file_dir = 'png' - History_Panels5_file_prefix = 'History_Panels5_' - History_Panels5_file_interval = 5 - History_Panels5_file_width = -1 - History_Panels5_file_aspect_ratio = -1 - - ! History_Panels6 - ! --------------- - - ! :: - - History_Panels6_win_flag = .false. - - ! :: - - History_Panels6_win_width = 6 - History_Panels6_win_aspect_ratio = 0.75 - - ! :: - - History_Panels6_xleft = 0.15 - History_Panels6_xright = 0.85 - History_Panels6_ybot = 0.15 - History_Panels6_ytop = 0.85 - History_Panels6_txt_scale = 1.0 - History_Panels6_title = 'History_Panels6' - - ! :: - - History_Panels6_xaxis_name = 'model_number' - History_Panels6_xmin = -101d0 - History_Panels6_xmax = -101d0 - History_Panels6_max_width = 100 - History_Panels6_dxmin = -1 - History_Panels6_xaxis_reversed = .false. - History_Panels6_xaxis_log = .false. - History_Panels6_xmargin = 0.0 - - ! :: - - History_Panels6_num_panels = 0 - - ! :: - - History_Panels6_yaxis_name(:) = '' - History_Panels6_yaxis_reversed(:) = .false. - History_Panels6_yaxis_log(:) = .false. - History_Panels6_ymin(:) = -101d0 - History_Panels6_ymax(:) = -101d0 - History_Panels6_ymargin(:) = 0.1 - History_Panels6_dymin(:) = -1 - - ! :: - - History_Panels6_other_yaxis_name(:) = '' - History_Panels6_other_yaxis_reversed(:) = .false. - History_Panels6_other_yaxis_log(:) = .false. - History_Panels6_other_ymin(:) = -101d0 - History_Panels6_other_ymax(:) = -101d0 - History_Panels6_other_ymargin(:) = 0.1 - History_Panels6_other_dymin(:) = -1 - - ! :: - - History_Panels6_points_name(:) = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/binary/other/pgbinary_decorator.f90`` - - ! :: - - History_Panels6_use_decorator = .false. - - ! file output - - ! :: - - History_Panels6_file_flag = .false. - History_Panels6_file_dir = 'png' - History_Panels6_file_prefix = 'History_Panels6_' - History_Panels6_file_interval = 5 - History_Panels6_file_width = -1 - History_Panels6_file_aspect_ratio = -1 - - - ! History_Panels7 - ! --------------- - - ! :: - - History_Panels7_win_flag = .false. - - ! :: - - History_Panels7_win_width = 6 - History_Panels7_win_aspect_ratio = 0.75 - - ! :: - - History_Panels7_xleft = 0.15 - History_Panels7_xright = 0.85 - History_Panels7_ybot = 0.15 - History_Panels7_ytop = 0.85 - History_Panels7_txt_scale = 1.0 - History_Panels7_title = 'History_Panels7' - - ! :: - - History_Panels7_xaxis_name = 'model_number' - History_Panels7_xmin = -101d0 - History_Panels7_xmax = -101d0 - History_Panels7_max_width = 100 - History_Panels7_dxmin = -1 - History_Panels7_xaxis_reversed = .false. - History_Panels7_xaxis_log = .false. - History_Panels7_xmargin = 0.0 - - ! :: - - History_Panels7_num_panels = 0 - - ! :: - - History_Panels7_yaxis_name(:) = '' - History_Panels7_yaxis_reversed(:) = .false. - History_Panels7_yaxis_log(:) = .false. - History_Panels7_ymin(:) = -101d0 - History_Panels7_ymax(:) = -101d0 - History_Panels7_ymargin(:) = 0.1 - History_Panels7_dymin(:) = -1 - - ! :: - - History_Panels7_other_yaxis_name(:) = '' - History_Panels7_other_yaxis_reversed(:) = .false. - History_Panels7_other_yaxis_log(:) = .false. - History_Panels7_other_ymin(:) = -101d0 - History_Panels7_other_ymax(:) = -101d0 - History_Panels7_other_ymargin(:) = 0.1 - History_Panels7_other_dymin(:) = -1 - - ! :: - - History_Panels7_points_name(:) = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/binary/other/pgbinary_decorator.f90`` - - ! :: - - History_Panels7_use_decorator = .false. - - ! file output - - ! :: - - History_Panels7_file_flag = .false. - History_Panels7_file_dir = 'png' - History_Panels7_file_prefix = 'History_Panels7_' - History_Panels7_file_interval = 5 - History_Panels7_file_width = -1 - History_Panels7_file_aspect_ratio = -1 - - - ! History_Panels8 - ! --------------- - - ! :: - - History_Panels8_win_flag = .false. - - ! :: - - History_Panels8_win_width = 6 - History_Panels8_win_aspect_ratio = 0.75 - - ! :: - - History_Panels8_xleft = 0.15 - History_Panels8_xright = 0.85 - History_Panels8_ybot = 0.15 - History_Panels8_ytop = 0.85 - History_Panels8_txt_scale = 1.0 - History_Panels8_title = 'History_Panels8' - - ! :: - - History_Panels8_xaxis_name = 'model_number' - History_Panels8_xmin = -101d0 - History_Panels8_xmax = -101d0 - History_Panels8_max_width = 100 - History_Panels8_dxmin = -1 - History_Panels8_xaxis_reversed = .false. - History_Panels8_xaxis_log = .false. - History_Panels8_xmargin = 0.0 - - ! :: - - History_Panels8_num_panels = 0 - - ! :: - - History_Panels8_yaxis_name(:) = '' - History_Panels8_yaxis_reversed(:) = .false. - History_Panels8_yaxis_log(:) = .false. - History_Panels8_ymin(:) = -101d0 - History_Panels8_ymax(:) = -101d0 - History_Panels8_ymargin(:) = 0.1 - History_Panels8_dymin(:) = -1 - - ! :: - - History_Panels8_other_yaxis_name(:) = '' - History_Panels8_other_yaxis_reversed(:) = .false. - History_Panels8_other_yaxis_log(:) = .false. - History_Panels8_other_ymin(:) = -101d0 - History_Panels8_other_ymax(:) = -101d0 - History_Panels8_other_ymargin(:) = 0.1 - History_Panels8_other_dymin(:) = -1 - - ! :: - - History_Panels8_points_name(:) = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/binary/other/pgbinary_decorator.f90`` - - ! :: - - History_Panels8_use_decorator = .false. - - ! file output - - ! :: - - History_Panels8_file_flag = .false. - History_Panels8_file_dir = 'png' - History_Panels8_file_prefix = 'History_Panels8_' - History_Panels8_file_interval = 5 - History_Panels8_file_width = -1 - History_Panels8_file_aspect_ratio = -1 - - - ! History_Panels9 - ! --------------- - - ! :: - - History_Panels9_win_flag = .false. - - ! :: - - History_Panels9_win_width = 6 - History_Panels9_win_aspect_ratio = 0.75 - - ! :: - - History_Panels9_xleft = 0.15 - History_Panels9_xright = 0.85 - History_Panels9_ybot = 0.15 - History_Panels9_ytop = 0.85 - History_Panels9_txt_scale = 1.0 - History_Panels9_title = 'History_Panels9' - - ! :: - - History_Panels9_xaxis_name = 'model_number' - History_Panels9_xmin = -101d0 - History_Panels9_xmax = -101d0 - History_Panels9_max_width = 100 - History_Panels9_dxmin = -1 - History_Panels9_xaxis_reversed = .false. - History_Panels9_xaxis_log = .false. - History_Panels9_xmargin = 0.0 - - ! :: - - History_Panels9_num_panels = 0 - - ! :: - - History_Panels9_yaxis_name(:) = '' - History_Panels9_yaxis_reversed(:) = .false. - History_Panels9_yaxis_log(:) = .false. - History_Panels9_ymin(:) = -101d0 - History_Panels9_ymax(:) = -101d0 - History_Panels9_ymargin(:) = 0.1 - History_Panels9_dymin(:) = -1 - - ! :: - - History_Panels9_other_yaxis_name(:) = '' - History_Panels9_other_yaxis_reversed(:) = .false. - History_Panels9_other_yaxis_log(:) = .false. - History_Panels9_other_ymin(:) = -101d0 - History_Panels9_other_ymax(:) = -101d0 - History_Panels9_other_ymargin(:) = 0.1 - History_Panels9_other_dymin(:) = -1 - - ! :: - - History_Panels9_points_name(:) = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/binary/other/pgbinary_decorator.f90`` - - ! :: - - History_Panels9_use_decorator = .false. - - ! file output - - ! :: - - History_Panels9_file_flag = .false. - History_Panels9_file_dir = 'png' - History_Panels9_file_prefix = 'History_Panels9_' - History_Panels9_file_interval = 5 - History_Panels9_file_width = -1 - History_Panels9_file_aspect_ratio = -1 - - - ! History_Panel_points_error_bars - ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ! History_Panel_points_interval - ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ! History_Panel_points_marker - ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ! History_Panel_points_ci - ! ~~~~~~~~~~~~~~~~~~~~~~~ - ! History_Panel_points_lw - ! ~~~~~~~~~~~~~~~~~~~~~~~ - ! History_Panel_points_ch - ! ~~~~~~~~~~~~~~~~~~~~~~~ - - ! :: - - History_Panel_points_error_bars = .true. - History_Panel_points_interval = 1 - History_Panel_points_marker = 5 - History_Panel_points_ci = 1 - History_Panel_points_lw = 1 - History_Panel_points_ch = 1.0 - - -! Text Summary -! ============ - - - ! Text_Summary1 - ! ------------- - - ! :: - - Text_Summary1_win_flag = .false. - Text_Summary1_win_width = 10 - Text_Summary1_win_aspect_ratio = 0.15 - - ! :: - - Text_Summary1_xleft = 0.02 - Text_Summary1_xright = 0.98 - Text_Summary1_ybot = 0.08 - Text_Summary1_ytop = 0.98 - Text_Summary1_txt_scale = 4.5 - Text_Summary1_title = '' - - ! setup default - - ! :: - - Text_Summary1_num_rows = 8 - Text_Summary1_num_cols = 4 - Text_Summary1_name(:, :) = '' - - ! :: - - Text_Summary1_name(1, 1) = 'model_number' - - ! file output - - ! :: - - Text_Summary1_file_flag = .false. - Text_Summary1_file_dir = 'png' - Text_Summary1_file_prefix = 'Text_Summary1_' - Text_Summary1_file_interval = 5 - Text_Summary1_file_width = -1 - Text_Summary1_file_aspect_ratio = -1 - - - ! Text_Summary2 - ! ------------- - - ! :: - - Text_Summary2_win_flag = .false. - Text_Summary2_win_width = 6 - Text_Summary2_win_aspect_ratio = 1.5 - - ! :: - - Text_Summary2_xleft = 0.02 - Text_Summary2_xright = 0.98 - Text_Summary2_ybot = 0.08 - Text_Summary2_ytop = 0.98 - Text_Summary2_txt_scale = 4.5 - Text_Summary2_title = '' - - ! :: - - Text_Summary2_num_rows = 0 - Text_Summary2_num_cols = 0 - Text_Summary2_name(:, :) = '' - - ! file output - - ! :: - - Text_Summary2_file_flag = .false. - Text_Summary2_file_dir = 'png' - Text_Summary2_file_prefix = 'Text_Summary2_' - Text_Summary2_file_interval = 5 - Text_Summary2_file_width = -1 - Text_Summary2_file_aspect_ratio = -1 - - - ! Text_Summary3 - ! ------------- - - ! :: - - Text_Summary3_win_flag = .false. - Text_Summary3_win_width = 6 - Text_Summary3_win_aspect_ratio = 1.5 - - ! :: - - Text_Summary3_xleft = 0.02 - Text_Summary3_xright = 0.98 - Text_Summary3_ybot = 0.08 - Text_Summary3_ytop = 0.98 - Text_Summary3_txt_scale = 4.5 - Text_Summary3_title = '' - - ! :: - - Text_Summary3_num_rows = 0 - Text_Summary3_num_cols = 0 - Text_Summary3_name(:, :) = '' - - ! file output - - ! :: - - Text_Summary3_file_flag = .false. - Text_Summary3_file_dir = 'png' - Text_Summary3_file_prefix = 'Text_Summary3_' - Text_Summary3_file_interval = 5 - Text_Summary3_file_width = -1 - Text_Summary3_file_aspect_ratio = -1 - - - ! Text_Summary4 - ! ------------- - - ! :: - - Text_Summary4_win_flag = .false. - Text_Summary4_win_width = 6 - Text_Summary4_win_aspect_ratio = 1.5 - - ! :: - - Text_Summary4_xleft = 0.02 - Text_Summary4_xright = 0.98 - Text_Summary4_ybot = 0.08 - Text_Summary4_ytop = 0.98 - Text_Summary4_txt_scale = 4.5 - Text_Summary4_title = '' - - ! :: - - Text_Summary4_num_rows = 0 - Text_Summary4_num_cols = 0 - Text_Summary4_name(:, :) = '' - - ! file output - - ! :: - - Text_Summary4_file_flag = .false. - Text_Summary4_file_dir = 'png' - Text_Summary4_file_prefix = 'Text_Summary4_' - Text_Summary4_file_interval = 5 - Text_Summary4_file_width = -1 - Text_Summary4_file_aspect_ratio = -1 - - - ! Text_Summary5 - ! ------------- - - ! :: - - Text_Summary5_win_flag = .false. - Text_Summary5_win_width = 6 - Text_Summary5_win_aspect_ratio = 1.5 - - ! :: - - Text_Summary5_xleft = 0.02 - Text_Summary5_xright = 0.98 - Text_Summary5_ybot = 0.08 - Text_Summary5_ytop = 0.98 - Text_Summary5_txt_scale = 4.5 - Text_Summary5_title = '' - - ! :: - - Text_Summary5_num_rows = 0 - Text_Summary5_num_cols = 0 - Text_Summary5_name(:, :) = '' - - ! file output - - ! :: - - Text_Summary5_file_flag = .false. - Text_Summary5_file_dir = 'png' - Text_Summary5_file_prefix = 'Text_Summary5_' - Text_Summary5_file_interval = 5 - Text_Summary5_file_width = -1 - Text_Summary5_file_aspect_ratio = -1 - - - ! Text_Summary6 - ! ------------- - - ! :: - - Text_Summary6_win_flag = .false. - Text_Summary6_win_width = 6 - Text_Summary6_win_aspect_ratio = 1.5 - - ! :: - - Text_Summary6_xleft = 0.02 - Text_Summary6_xright = 0.98 - Text_Summary6_ybot = 0.08 - Text_Summary6_ytop = 0.98 - Text_Summary6_txt_scale = 4.5 - Text_Summary6_title = '' - - ! :: - - Text_Summary6_num_rows = 0 - Text_Summary6_num_cols = 0 - Text_Summary6_name(:, :) = '' - - ! file output - - ! :: - - Text_Summary6_file_flag = .false. - Text_Summary6_file_dir = 'png' - Text_Summary6_file_prefix = 'Text_Summary6_' - Text_Summary6_file_interval = 5 - Text_Summary6_file_width = -1 - Text_Summary6_file_aspect_ratio = -1 - - - ! Text_Summary7 - ! ------------- - - ! :: - - Text_Summary7_win_flag = .false. - Text_Summary7_win_width = 6 - Text_Summary7_win_aspect_ratio = 1.5 - - ! :: - - Text_Summary7_xleft = 0.02 - Text_Summary7_xright = 0.98 - Text_Summary7_ybot = 0.08 - Text_Summary7_ytop = 0.98 - Text_Summary7_txt_scale = 4.5 - Text_Summary7_title = '' - - ! :: - - Text_Summary7_num_rows = 0 - Text_Summary7_num_cols = 0 - Text_Summary7_name(:, :) = '' - - ! file output - - ! :: - - Text_Summary7_file_flag = .false. - Text_Summary7_file_dir = 'png' - Text_Summary7_file_prefix = 'Text_Summary7_' - Text_Summary7_file_interval = 5 - Text_Summary7_file_width = -1 - Text_Summary7_file_aspect_ratio = -1 - - - ! Text_Summary8 - ! ------------- - - ! :: - - Text_Summary8_win_flag = .false. - Text_Summary8_win_width = 6 - Text_Summary8_win_aspect_ratio = 1.5 - - ! :: - - Text_Summary8_xleft = 0.02 - Text_Summary8_xright = 0.98 - Text_Summary8_ybot = 0.08 - Text_Summary8_ytop = 0.98 - Text_Summary8_txt_scale = 4.5 - Text_Summary8_title = '' - - ! :: - - Text_Summary8_num_rows = 0 - Text_Summary8_num_cols = 0 - Text_Summary8_name(:, :) = '' - - ! file output - - ! :: - - Text_Summary8_file_flag = .false. - Text_Summary8_file_dir = 'png' - Text_Summary8_file_prefix = 'Text_Summary8_' - Text_Summary8_file_interval = 5 - Text_Summary8_file_width = -1 - Text_Summary8_file_aspect_ratio = -1 - - - ! Text_Summary9 - ! ------------- - - ! :: - - Text_Summary9_win_flag = .false. - Text_Summary9_win_width = 6 - Text_Summary9_win_aspect_ratio = 1.5 - - ! :: - - Text_Summary9_xleft = 0.02 - Text_Summary9_xright = 0.98 - Text_Summary9_ybot = 0.08 - Text_Summary9_ytop = 0.98 - Text_Summary9_txt_scale = 4.5 - Text_Summary9_title = '' - - ! :: - - Text_Summary9_num_rows = 0 - Text_Summary9_num_cols = 0 - Text_Summary9_name(:, :) = '' - - ! file output - - ! :: - - Text_Summary9_file_flag = .false. - Text_Summary9_file_dir = 'png' - Text_Summary9_file_prefix = 'Text_Summary9_' - Text_Summary9_file_interval = 5 - Text_Summary9_file_width = -1 - Text_Summary9_file_aspect_ratio = -1 - -! Grid -! ==== - - - ! Grid1 - ! ----- - - ! :: - - Grid1_win_flag = .false. - - ! :: - - Grid1_win_width = 6 - Grid1_win_aspect_ratio = 1 - - ! :: - - Grid1_xleft = 0.12 - Grid1_xright = 0.95 - Grid1_ybot = 0.08 - Grid1_ytop = 0.92 - Grid1_title = '' - - ! :: - - Grid1_plot_name(:) = '' - Grid1_plot_row(:) = 1 - Grid1_plot_rowspan(:) = 1 - Grid1_plot_col(:) = 1 - Grid1_plot_colspan(:) = 1 - Grid1_plot_pad_left(:) = 0.0 - Grid1_plot_pad_right(:) = 0.0 - Grid1_plot_pad_top(:) = 0.0 - Grid1_plot_pad_bot(:) = 0.0 - Grid1_txt_scale_factor(:) = 0.7 - - ! set default - - ! :: - - Grid1_num_cols = 2 - Grid1_num_rows = 8 - Grid1_num_plots = 4 - - ! :: - - Grid1_plot_name(4) = 'Text_Summary1' - Grid1_plot_row(4) = 7 - Grid1_plot_rowspan(4) = 2 - Grid1_plot_col(4) = 1 - Grid1_plot_colspan(4) = 2 - Grid1_plot_pad_left(4) = -0.08 - Grid1_plot_pad_right(4) = 0.0 - Grid1_plot_pad_top(4) = 0.08 - Grid1_plot_pad_bot(4) = -0.05 - Grid1_txt_scale_factor(4) = 0.2 - - ! file output - - ! :: - - Grid1_file_flag = .false. - Grid1_file_dir = 'png' - Grid1_file_prefix = 'grid1_' - Grid1_file_interval = 5 - Grid1_file_width = 9 - Grid1_file_aspect_ratio = -1 - - - ! Grid2 - ! ----- - - ! :: - - Grid2_win_flag = .false. - - ! :: - - Grid2_win_width = 6 - Grid2_win_aspect_ratio = 1 - - ! :: - - Grid2_xleft = 0.12 - Grid2_xright = 0.95 - Grid2_ybot = 0.08 - Grid2_ytop = 0.92 - Grid2_title = '' - - ! :: - - Grid2_plot_name(:) = '' - Grid2_plot_row(:) = 1 - Grid2_plot_rowspan(:) = 1 - Grid2_plot_col(:) = 1 - Grid2_plot_colspan(:) = 1 - Grid2_plot_pad_left(:) = 0.0 - Grid2_plot_pad_right(:) = 0.0 - Grid2_plot_pad_top(:) = 0.0 - Grid2_plot_pad_bot(:) = 0.0 - Grid2_txt_scale_factor(:) = 0.7 - - ! set default - - ! :: - - Grid2_win_width = 9 - Grid2_win_aspect_ratio = 0.6 - - ! :: - - Grid2_num_cols = 4 - Grid2_num_rows = 8 - Grid2_num_plots = 5 - - ! :: - - Grid2_plot_name(4) = 'Text_Summary1' - Grid2_plot_row(4) = 7 - Grid2_plot_rowspan(4) = 2 - Grid2_plot_col(4) = 1 - Grid2_plot_colspan(4) = 4 - Grid2_plot_pad_left(4) = -0.08 - Grid2_plot_pad_right(4) = 0.0 - Grid2_plot_pad_top(4) = 0.08 - Grid2_plot_pad_bot(4) = -0.04 - Grid2_txt_scale_factor(4) = 0.19 - - ! file output - - ! :: - - Grid2_file_flag = .false. - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid2_' - Grid2_file_interval = 5 - Grid2_file_width = 9 - Grid2_file_aspect_ratio = -1 - - - ! Grid3 - ! ----- - - ! :: - - Grid3_win_flag = .false. - - ! :: - - Grid3_win_width = 6 - Grid3_win_aspect_ratio = 1.2 - - ! :: - - Grid3_xleft = 0.10 - Grid3_xright = 0.89 - Grid3_ybot = 0.08 - Grid3_ytop = 0.92 - Grid3_title = '' - - ! :: - - Grid3_num_cols = 1 - Grid3_num_rows = 1 - Grid3_num_plots = 1 - - ! :: - - Grid3_plot_name(:) = '' - Grid3_plot_row(:) = 1 - Grid3_plot_rowspan(:) = 1 - Grid3_plot_col(:) = 1 - Grid3_plot_colspan(:) = 1 - Grid3_plot_pad_left(:) = 0.0 - Grid3_plot_pad_right(:) = 0.0 - Grid3_plot_pad_top(:) = 0.0 - Grid3_plot_pad_bot(:) = 0.0 - Grid3_txt_scale_factor(:) = 0.7 - - ! set default - - ! :: - - Grid3_num_cols = 1 - Grid3_num_rows = 7 - Grid3_num_plots = 3 - - ! file output - - ! :: - - Grid3_file_flag = .false. - Grid3_file_dir = 'png' - Grid3_file_prefix = 'grid3_' - Grid3_file_interval = 5 - Grid3_file_width = -1 - Grid3_file_aspect_ratio = -1 - - - ! Grid4 - ! ----- - - ! :: - - Grid4_win_flag = .false. - - ! :: - - Grid4_win_width = 7 - Grid4_win_aspect_ratio = 1 - - ! :: - - Grid4_xleft = 0.12 - Grid4_xright = 0.95 - Grid4_ybot = 0.08 - Grid4_ytop = 0.92 - Grid4_title = '' - - ! :: - - Grid4_plot_name(:) = '' - Grid4_plot_row(:) = 1 - Grid4_plot_rowspan(:) = 1 - Grid4_plot_col(:) = 1 - Grid4_plot_colspan(:) = 1 - Grid4_plot_pad_left(:) = 0.0 - Grid4_plot_pad_right(:) = 0.0 - Grid4_plot_pad_top(:) = 0.0 - Grid4_plot_pad_bot(:) = 0.0 - Grid4_txt_scale_factor(:) = 0.7 - - ! set default - - ! :: - - Grid4_num_cols = 10 - Grid4_num_rows = 9 - Grid4_num_plots = 6 - - ! :: - - Grid4_plot_name(6) = 'Text_Summary1' - Grid4_plot_row(6) = 8 - Grid4_plot_rowspan(6) = 2 - Grid4_plot_col(6) = 1 - Grid4_plot_colspan(6) = 10 - Grid4_plot_pad_left(6) = -0.08 - Grid4_plot_pad_right(6) = 0.0 - Grid4_plot_pad_top(6) = 0.03 - Grid4_plot_pad_bot(6) = 0.0 - Grid4_txt_scale_factor(6) = 0.17 - - ! file output - - ! :: - - Grid4_file_flag = .false. - Grid4_file_dir = 'png' - Grid4_file_prefix = 'grid4_' - Grid4_file_interval = 5 - Grid4_file_width = -1 - Grid4_file_aspect_ratio = -1 - - - ! Grid5 - ! ----- - - ! :: - - Grid5_win_flag = .false. - - ! :: - - Grid5_win_width = 7 - Grid5_win_aspect_ratio = 1 - - ! :: - - Grid5_xleft = 0.12 - Grid5_xright = 0.95 - Grid5_ybot = 0.08 - Grid5_ytop = 0.92 - Grid5_title = '' - - ! :: - - Grid5_plot_name(:) = '' - Grid5_plot_row(:) = 1 - Grid5_plot_rowspan(:) = 1 - Grid5_plot_col(:) = 1 - Grid5_plot_colspan(:) = 1 - Grid5_plot_pad_left(:) = 0.0 - Grid5_plot_pad_right(:) = 0.0 - Grid5_plot_pad_top(:) = 0.0 - Grid5_plot_pad_bot(:) = 0.0 - Grid5_txt_scale_factor(:) = 0.7 - - ! set default - - ! :: - - Grid5_num_cols = 10 - Grid5_num_rows = 7 - Grid5_num_plots = 5 - - ! file output - - ! :: - - Grid5_file_flag = .false. - Grid5_file_dir = 'png' - Grid5_file_prefix = 'grid5_' - Grid5_file_interval = 5 - Grid5_file_width = -1 - Grid5_file_aspect_ratio = -1 - - - ! Grid6 - ! ----- - - ! :: - - Grid6_win_flag = .false. - - ! :: - - Grid6_win_width = 9 - Grid6_win_aspect_ratio = 0.7 - - ! :: - - Grid6_xleft = 0.12 - Grid6_xright = 0.95 - Grid6_ybot = 0.08 - Grid6_ytop = 0.89 - Grid6_title = '' - - ! :: - - Grid6_num_cols = 1 - Grid6_num_rows = 1 - Grid6_num_plots = 1 - - ! :: - - Grid6_plot_name(:) = '' - Grid6_plot_row(:) = 1 - Grid6_plot_rowspan(:) = 1 - Grid6_plot_col(:) = 1 - Grid6_plot_colspan(:) = 1 - Grid6_plot_pad_left(:) = 0.0 - Grid6_plot_pad_right(:) = 0.03 - Grid6_plot_pad_top(:) = 0.0 - Grid6_plot_pad_bot(:) = 0.09 - Grid6_txt_scale_factor(:) = 0.7 - - ! set default - - ! :: - - Grid6_num_cols = 3 - Grid6_num_rows = 3 - Grid6_num_plots = 5 - - ! :: - - Grid6_plot_name(5) = 'Text_Summary1' - Grid6_plot_row(5) = 3 - Grid6_plot_rowspan(5) = 1 - Grid6_plot_col(5) = 1 - Grid6_plot_colspan(5) = 3 - Grid6_plot_pad_left(5) = -0.07 - Grid6_plot_pad_right(5) = -0.02 - Grid6_plot_pad_top(5) = 0.1 - Grid6_plot_pad_bot(5) = 0.00 - Grid6_txt_scale_factor(5) = 0.21 - - ! file output - - ! :: - - Grid6_file_flag = .false. - Grid6_file_dir = 'png' - Grid6_file_prefix = 'grid6_' - Grid6_file_interval = 5 - Grid6_file_width = -1 - Grid6_file_aspect_ratio = -1 - - - ! Grid7 - ! ----- - - ! :: - - Grid7_win_flag = .false. - - ! :: - - Grid7_win_width = 6 - Grid7_win_aspect_ratio = 1.5 - - ! :: - - Grid7_xleft = 0.12 - Grid7_xright = 0.95 - Grid7_ybot = 0.08 - Grid7_ytop = 0.91 - Grid7_title = '' - - ! :: - - Grid7_num_cols = 1 - Grid7_num_rows = 1 - Grid7_num_plots = 1 - - ! :: - - Grid7_plot_name(:) = '' - Grid7_plot_row(:) = 1 - Grid7_plot_rowspan(:) = 1 - Grid7_plot_col(:) = 1 - Grid7_plot_colspan(:) = 1 - Grid7_plot_pad_left(:) = 0.0 - Grid7_plot_pad_right(:) = 0.0 - Grid7_plot_pad_top(:) = 0.0 - Grid7_plot_pad_bot(:) = 0.0 - Grid7_txt_scale_factor(:) = 0.9 - - ! set default - - ! :: - - Grid7_num_cols = 1 - Grid7_num_rows = 3 - Grid7_num_plots = 3 - - ! :: - - Grid7_plot_name(3) = 'Text_Summary1' - Grid7_plot_row(3) = 3 - Grid7_plot_rowspan(3) = 1 - Grid7_plot_col(3) = 1 - Grid7_plot_colspan(3) = 1 - Grid7_plot_pad_left(3) = -0.08 - Grid7_plot_pad_right(3) = 0.0 - Grid7_plot_pad_top(3) = 0.1 - Grid7_plot_pad_bot(3) = 0.0 - Grid7_txt_scale_factor(3) = 0.16 - - ! file output - - ! :: - - Grid7_file_flag = .false. - Grid7_file_dir = 'png' - Grid7_file_prefix = 'grid7_' - Grid7_file_interval = 5 - Grid7_file_width = -1 - Grid7_file_aspect_ratio = -1 - - - ! Grid8 - ! ----- - - ! :: - - Grid8_win_flag = .false. - - ! :: - - Grid8_win_width = 7 - Grid8_win_aspect_ratio = 1.2 - - ! :: - - Grid8_xleft = 0.12 - Grid8_xright = 0.95 - Grid8_ybot = 0.08 - Grid8_ytop = 0.91 - Grid8_title = '' - - ! :: - - Grid8_num_cols = 1 - Grid8_num_rows = 1 - Grid8_num_plots = 1 - - ! :: - - Grid8_plot_name(:) = '' - Grid8_plot_row(:) = 1 - Grid8_plot_rowspan(:) = 1 - Grid8_plot_col(:) = 1 - Grid8_plot_colspan(:) = 1 - Grid8_plot_pad_left(:) = 0.0 - Grid8_plot_pad_right(:) = 0.03 - Grid8_plot_pad_top(:) = 0.0 - Grid8_plot_pad_bot(:) = 0.09 - Grid8_txt_scale_factor(:) = 0.7 - - ! set default - - ! :: - - Grid8_num_cols = 3 - Grid8_num_rows = 14 - Grid8_num_plots = 6 - - ! :: - - Grid8_plot_name(6) = 'Text_Summary1' - Grid8_plot_row(6) = 12 - Grid8_plot_rowspan(6) = 3 - Grid8_plot_col(6) = 1 - Grid8_plot_colspan(6) = 3 - Grid8_plot_pad_left(6) = -0.08 - Grid8_plot_pad_right(6) = 0.0 - Grid8_plot_pad_top(6) = 0.06 - Grid8_plot_pad_bot(6) = 0.0 - Grid8_txt_scale_factor(6) = 0.16 - - ! file output - - ! :: - - Grid8_file_flag = .false. - Grid8_file_dir = 'png' - Grid8_file_prefix = 'grid8_' - Grid8_file_interval = 5 - Grid8_file_width = -1 - Grid8_file_aspect_ratio = -1 - - - ! Grid9 - ! ----- - - ! :: - - Grid9_win_flag = .false. - - ! :: - - Grid9_win_width = 7 - Grid9_win_aspect_ratio = 0.8 - - ! :: - - Grid9_xleft = 0.15 - Grid9_xright = 0.85 - Grid9_ybot = 0.12 - Grid9_ytop = 0.91 - Grid9_title = '' - - ! :: - - Grid9_num_cols = 1 - Grid9_num_rows = 1 - Grid9_num_plots = 1 - - ! :: - - Grid9_plot_name(:) = '' - Grid9_plot_row(:) = 1 - Grid9_plot_rowspan(:) = 1 - Grid9_plot_col(:) = 1 - Grid9_plot_colspan(:) = 1 - Grid9_plot_pad_left(:) = 0.0 - Grid9_plot_pad_right(:) = 0.0 - Grid9_plot_pad_top(:) = 0.0 - Grid9_plot_pad_bot(:) = 0.0 - Grid9_txt_scale_factor(:) = 0.7 - - ! set default - - ! :: - - Grid9_num_cols = 3 - Grid9_num_rows = 11 - Grid9_num_plots = 5 - - ! :: - - Grid9_plot_name(5) = 'Text_Summary1' - Grid9_plot_row(5) = 9 - Grid9_plot_rowspan(5) = 3 - Grid9_plot_col(5) = 1 - Grid9_plot_colspan(5) = 3 - Grid9_plot_pad_left(5) = -0.08 - Grid9_plot_pad_right(5) = 0.0 - Grid9_plot_pad_top(5) = 0.08 - Grid9_plot_pad_bot(5) = 0.0 - Grid9_txt_scale_factor(5) = 0.14 + Grid_plot_name(1, 3) = 'Orbit' + Grid_plot_col(1, 3) = 5 + Grid_plot_colspan(1, 3) = 1 + Grid_plot_row(1, 3) = 1 + Grid_plot_rowspan(1, 3) = 1 + Grid_plot_pad_left(1, 3) = 0.04 + Grid_plot_pad_right(1, 3) = 0.04 + Grid_plot_pad_bot(1, 3) = 0.03 + Grid_plot_pad_top(1, 3) = 0.00 + Grid_txt_scale_factor(1, 3) = 0.4 ! file output - ! :: - - Grid9_file_flag = .false. - Grid9_file_dir = 'png' - Grid9_file_prefix = 'grid9_' - Grid9_file_interval = 5 - Grid9_file_width = -1 - Grid9_file_aspect_ratio = -1 + Grid_file_prefix(1) = 'binary_grid1_' ! Star diff --git a/binary/private/pgbinary_ctrls_io.f90 b/binary/private/pgbinary_ctrls_io.f90 index 96611294d..399313935 100644 --- a/binary/private/pgbinary_ctrls_io.f90 +++ b/binary/private/pgbinary_ctrls_io.f90 @@ -96,897 +96,104 @@ module pgbinary_ctrls_io pgbinary_model_lw, & pgbinary_box_lw, & - - Text_Summary1_win_flag, & - Text_Summary1_file_flag, & - Text_Summary1_file_interval, & - Text_Summary1_file_dir, & - Text_Summary1_file_prefix, & - Text_Summary1_num_cols, Text_Summary1_num_rows, Text_Summary1_name, & - Text_Summary1_win_width, & - Text_Summary1_win_aspect_ratio, & - Text_Summary1_file_width, & - Text_Summary1_file_aspect_ratio, & - Text_Summary1_title, Text_Summary1_xleft, Text_Summary1_xright, & - Text_Summary1_ybot, Text_Summary1_ytop, Text_Summary1_txt_scale, & - - Text_Summary2_win_flag, & - Text_Summary2_file_flag, & - Text_Summary2_file_interval, & - Text_Summary2_file_dir, & - Text_Summary2_file_prefix, & - Text_Summary2_num_cols, Text_Summary2_num_rows, Text_Summary2_name, & - Text_Summary2_win_width, & - Text_Summary2_win_aspect_ratio, & - Text_Summary2_file_width, & - Text_Summary2_file_aspect_ratio, & - Text_Summary2_title, Text_Summary2_xleft, Text_Summary2_xright, & - Text_Summary2_ybot, Text_Summary2_ytop, Text_Summary2_txt_scale, & - - Text_Summary3_win_flag, & - Text_Summary3_file_flag, & - Text_Summary3_file_interval, & - Text_Summary3_file_dir, & - Text_Summary3_file_prefix, & - Text_Summary3_num_cols, Text_Summary3_num_rows, Text_Summary3_name, & - Text_Summary3_win_width, & - Text_Summary3_win_aspect_ratio, & - Text_Summary3_file_width, & - Text_Summary3_file_aspect_ratio, & - Text_Summary3_title, Text_Summary3_xleft, Text_Summary3_xright, & - Text_Summary3_ybot, Text_Summary3_ytop, Text_Summary3_txt_scale, & - - Text_Summary4_win_flag, & - Text_Summary4_file_flag, & - Text_Summary4_file_interval, & - Text_Summary4_file_dir, & - Text_Summary4_file_prefix, & - Text_Summary4_num_cols, Text_Summary4_num_rows, Text_Summary4_name, & - Text_Summary4_win_width, & - Text_Summary4_win_aspect_ratio, & - Text_Summary4_file_width, & - Text_Summary4_file_aspect_ratio, & - Text_Summary4_title, Text_Summary4_xleft, Text_Summary4_xright, & - Text_Summary4_ybot, Text_Summary4_ytop, Text_Summary4_txt_scale, & - - Text_Summary5_win_flag, & - Text_Summary5_file_flag, & - Text_Summary5_file_interval, & - Text_Summary5_file_dir, & - Text_Summary5_file_prefix, & - Text_Summary5_num_cols, Text_Summary5_num_rows, Text_Summary5_name, & - Text_Summary5_win_width, & - Text_Summary5_win_aspect_ratio, & - Text_Summary5_file_width, & - Text_Summary5_file_aspect_ratio, & - Text_Summary5_title, Text_Summary5_xleft, Text_Summary5_xright, & - Text_Summary5_ybot, Text_Summary5_ytop, Text_Summary5_txt_scale, & - - Text_Summary6_win_flag, & - Text_Summary6_file_flag, & - Text_Summary6_file_interval, & - Text_Summary6_file_dir, & - Text_Summary6_file_prefix, & - Text_Summary6_num_cols, Text_Summary6_num_rows, Text_Summary6_name, & - Text_Summary6_win_width, & - Text_Summary6_win_aspect_ratio, & - Text_Summary6_file_width, & - Text_Summary6_file_aspect_ratio, & - Text_Summary6_title, Text_Summary6_xleft, Text_Summary6_xright, & - Text_Summary6_ybot, Text_Summary6_ytop, Text_Summary6_txt_scale, & - - Text_Summary7_win_flag, & - Text_Summary7_file_flag, & - Text_Summary7_file_interval, & - Text_Summary7_file_dir, & - Text_Summary7_file_prefix, & - Text_Summary7_num_cols, Text_Summary7_num_rows, Text_Summary7_name, & - Text_Summary7_win_width, & - Text_Summary7_win_aspect_ratio, & - Text_Summary7_file_width, & - Text_Summary7_file_aspect_ratio, & - Text_Summary7_title, Text_Summary7_xleft, Text_Summary7_xright, & - Text_Summary7_ybot, Text_Summary7_ytop, Text_Summary7_txt_scale, & - - Text_Summary8_win_flag, & - Text_Summary8_file_flag, & - Text_Summary8_file_interval, & - Text_Summary8_file_dir, & - Text_Summary8_file_prefix, & - Text_Summary8_num_cols, Text_Summary8_num_rows, Text_Summary8_name, & - Text_Summary8_win_width, & - Text_Summary8_win_aspect_ratio, & - Text_Summary8_file_width, & - Text_Summary8_file_aspect_ratio, & - Text_Summary8_title, Text_Summary8_xleft, Text_Summary8_xright, & - Text_Summary8_ybot, Text_Summary8_ytop, Text_Summary8_txt_scale, & - - Text_Summary9_win_flag, & - Text_Summary9_file_flag, & - Text_Summary9_file_interval, & - Text_Summary9_file_dir, & - Text_Summary9_file_prefix, & - Text_Summary9_num_cols, Text_Summary9_num_rows, Text_Summary9_name, & - Text_Summary9_win_width, & - Text_Summary9_win_aspect_ratio, & - Text_Summary9_file_width, & - Text_Summary9_file_aspect_ratio, & - Text_Summary9_title, Text_Summary9_xleft, Text_Summary9_xright, & - Text_Summary9_ybot, Text_Summary9_ytop, Text_Summary9_txt_scale, & - - History_Track1_win_flag, & - History_Track1_file_flag, & - History_Track1_file_interval, & - History_Track1_step_min, & - History_Track1_step_max, & - show_History_Track1_target_box, & - History_Track1_n_sigma, & - History_Track1_xtarget, & - History_Track1_xsigma, & - History_Track1_ytarget, & - History_Track1_ysigma, & - History_Track1_xname, & - History_Track1_xaxis_label, & - History_Track1_yname, & - History_Track1_yaxis_label, & - History_Track1_file_dir, & - History_Track1_file_prefix, & - show_History_Track1_annotation1, & - show_History_Track1_annotation2, & - show_History_Track1_annotation3, & - History_Track1_fname, & - History_Track1_reverse_xaxis, & - History_Track1_reverse_yaxis, & - History_Track1_log_xaxis, & - History_Track1_log_yaxis, & - History_Track1_xmin, & - History_Track1_xmax, & - History_Track1_ymin, & - History_Track1_ymax, & - History_Track1_xmargin, & - History_Track1_ymargin, & - History_Track1_dxmin, & - History_Track1_dymin, & - History_Track1_win_width, & - History_Track1_win_aspect_ratio, & - History_Track1_file_width, & - History_Track1_file_aspect_ratio, & - History_Track1_xleft, & - History_Track1_xright, & - History_Track1_ybot, & - History_Track1_ytop, & - History_Track1_txt_scale, & - History_Track1_title, & - History_Track1_use_decorator, & - - History_Track2_win_flag, & - History_Track2_file_flag, & - History_Track2_file_interval, & - History_Track2_step_min, & - History_Track2_step_max, & - show_History_Track2_target_box, & - History_Track2_n_sigma, & - History_Track2_xtarget, & - History_Track2_xsigma, & - History_Track2_ytarget, & - History_Track2_ysigma, & - History_Track2_xname, & - History_Track2_xaxis_label, & - History_Track2_yname, & - History_Track2_yaxis_label, & - History_Track2_file_dir, & - History_Track2_file_prefix, & - show_History_Track2_annotation1, & - show_History_Track2_annotation2, & - show_History_Track2_annotation3, & - History_Track2_fname, & - History_Track2_reverse_xaxis, & - History_Track2_reverse_yaxis, & - History_Track2_log_xaxis, & - History_Track2_log_yaxis, & - History_Track2_xmin, & - History_Track2_xmax, & - History_Track2_ymin, & - History_Track2_ymax, & - History_Track2_xmargin, & - History_Track2_ymargin, & - History_Track2_dxmin, & - History_Track2_dymin, & - History_Track2_win_width, & - History_Track2_win_aspect_ratio, & - History_Track2_file_width, & - History_Track2_file_aspect_ratio, & - History_Track2_xleft, & - History_Track2_xright, & - History_Track2_ybot, & - History_Track2_ytop, & - History_Track2_txt_scale, & - History_Track2_title, & - History_Track2_use_decorator, & - - History_Track3_win_flag, & - History_Track3_file_flag, & - History_Track3_file_interval, & - History_Track3_step_min, & - History_Track3_step_max, & - show_History_Track3_target_box, & - History_Track3_n_sigma, & - History_Track3_xtarget, & - History_Track3_xsigma, & - History_Track3_ytarget, & - History_Track3_ysigma, & - History_Track3_xname, & - History_Track3_xaxis_label, & - History_Track3_yname, & - History_Track3_yaxis_label, & - History_Track3_file_dir, & - History_Track3_file_prefix, & - show_History_Track3_annotation1, & - show_History_Track3_annotation2, & - show_History_Track3_annotation3, & - History_Track3_fname, & - History_Track3_reverse_xaxis, & - History_Track3_reverse_yaxis, & - History_Track3_log_xaxis, & - History_Track3_log_yaxis, & - History_Track3_xmin, & - History_Track3_xmax, & - History_Track3_ymin, & - History_Track3_ymax, & - History_Track3_xmargin, & - History_Track3_ymargin, & - History_Track3_dxmin, & - History_Track3_dymin, & - History_Track3_win_width, & - History_Track3_win_aspect_ratio, & - History_Track3_file_width, & - History_Track3_file_aspect_ratio, & - History_Track3_xleft, & - History_Track3_xright, & - History_Track3_ybot, & - History_Track3_ytop, & - History_Track3_txt_scale, & - History_Track3_title, & - History_Track3_use_decorator, & - - History_Track4_win_flag, & - History_Track4_file_flag, & - History_Track4_file_interval, & - History_Track4_step_min, & - History_Track4_step_max, & - show_History_Track4_target_box, & - History_Track4_n_sigma, & - History_Track4_xtarget, & - History_Track4_xsigma, & - History_Track4_ytarget, & - History_Track4_ysigma, & - History_Track4_xname, & - History_Track4_xaxis_label, & - History_Track4_yname, & - History_Track4_yaxis_label, & - History_Track4_file_dir, & - History_Track4_file_prefix, & - show_History_Track4_annotation1, & - show_History_Track4_annotation2, & - show_History_Track4_annotation3, & - History_Track4_fname, & - History_Track4_reverse_xaxis, & - History_Track4_reverse_yaxis, & - History_Track4_log_xaxis, & - History_Track4_log_yaxis, & - History_Track4_xmin, & - History_Track4_xmax, & - History_Track4_ymin, & - History_Track4_ymax, & - History_Track4_xmargin, & - History_Track4_ymargin, & - History_Track4_dxmin, & - History_Track4_dymin, & - History_Track4_win_width, & - History_Track4_win_aspect_ratio, & - History_Track4_file_width, & - History_Track4_file_aspect_ratio, & - History_Track4_xleft, & - History_Track4_xright, & - History_Track4_ybot, & - History_Track4_ytop, & - History_Track4_txt_scale, & - History_Track4_title, & - History_Track4_use_decorator, & - - History_Track5_win_flag, & - History_Track5_file_flag, & - History_Track5_file_interval, & - History_Track5_step_min, & - History_Track5_step_max, & - show_History_Track5_target_box, & - History_Track5_n_sigma, & - History_Track5_xtarget, & - History_Track5_xsigma, & - History_Track5_ytarget, & - History_Track5_ysigma, & - History_Track5_xname, & - History_Track5_xaxis_label, & - History_Track5_yname, & - History_Track5_yaxis_label, & - History_Track5_file_dir, & - History_Track5_file_prefix, & - show_History_Track5_annotation1, & - show_History_Track5_annotation2, & - show_History_Track5_annotation3, & - History_Track5_fname, & - History_Track5_reverse_xaxis, & - History_Track5_reverse_yaxis, & - History_Track5_log_xaxis, & - History_Track5_log_yaxis, & - History_Track5_xmin, & - History_Track5_xmax, & - History_Track5_ymin, & - History_Track5_ymax, & - History_Track5_xmargin, & - History_Track5_ymargin, & - History_Track5_dxmin, & - History_Track5_dymin, & - History_Track5_win_width, & - History_Track5_win_aspect_ratio, & - History_Track5_file_width, & - History_Track5_file_aspect_ratio, & - History_Track5_xleft, & - History_Track5_xright, & - History_Track5_ybot, & - History_Track5_ytop, & - History_Track5_txt_scale, & - History_Track5_title, & - History_Track5_use_decorator, & - - History_Track6_win_flag, & - History_Track6_file_flag, & - History_Track6_file_interval, & - History_Track6_step_min, & - History_Track6_step_max, & - show_History_Track6_target_box, & - History_Track6_n_sigma, & - History_Track6_xtarget, & - History_Track6_xsigma, & - History_Track6_ytarget, & - History_Track6_ysigma, & - History_Track6_xname, & - History_Track6_xaxis_label, & - History_Track6_yname, & - History_Track6_yaxis_label, & - History_Track6_file_dir, & - History_Track6_file_prefix, & - show_History_Track6_annotation1, & - show_History_Track6_annotation2, & - show_History_Track6_annotation3, & - History_Track6_fname, & - History_Track6_reverse_xaxis, & - History_Track6_reverse_yaxis, & - History_Track6_log_xaxis, & - History_Track6_log_yaxis, & - History_Track6_xmin, & - History_Track6_xmax, & - History_Track6_ymin, & - History_Track6_ymax, & - History_Track6_xmargin, & - History_Track6_ymargin, & - History_Track6_dxmin, & - History_Track6_dymin, & - History_Track6_win_width, & - History_Track6_win_aspect_ratio, & - History_Track6_file_width, & - History_Track6_file_aspect_ratio, & - History_Track6_xleft, & - History_Track6_xright, & - History_Track6_ybot, & - History_Track6_ytop, & - History_Track6_txt_scale, & - History_Track6_title, & - History_Track6_use_decorator, & - - History_Track7_win_flag, & - History_Track7_file_flag, & - History_Track7_file_interval, & - History_Track7_step_min, & - History_Track7_step_max, & - show_History_Track7_target_box, & - History_Track7_n_sigma, & - History_Track7_xtarget, & - History_Track7_xsigma, & - History_Track7_ytarget, & - History_Track7_ysigma, & - History_Track7_xname, & - History_Track7_xaxis_label, & - History_Track7_yname, & - History_Track7_yaxis_label, & - History_Track7_file_dir, & - History_Track7_file_prefix, & - show_History_Track7_annotation1, & - show_History_Track7_annotation2, & - show_History_Track7_annotation3, & - History_Track7_fname, & - History_Track7_reverse_xaxis, & - History_Track7_reverse_yaxis, & - History_Track7_log_xaxis, & - History_Track7_log_yaxis, & - History_Track7_xmin, & - History_Track7_xmax, & - History_Track7_ymin, & - History_Track7_ymax, & - History_Track7_xmargin, & - History_Track7_ymargin, & - History_Track7_dxmin, & - History_Track7_dymin, & - History_Track7_win_width, & - History_Track7_win_aspect_ratio, & - History_Track7_file_width, & - History_Track7_file_aspect_ratio, & - History_Track7_xleft, & - History_Track7_xright, & - History_Track7_ybot, & - History_Track7_ytop, & - History_Track7_txt_scale, & - History_Track7_title, & - History_Track7_use_decorator, & - - History_Track8_win_flag, & - History_Track8_file_flag, & - History_Track8_file_interval, & - History_Track8_step_min, & - History_Track8_step_max, & - show_History_Track8_target_box, & - History_Track8_n_sigma, & - History_Track8_xtarget, & - History_Track8_xsigma, & - History_Track8_ytarget, & - History_Track8_ysigma, & - History_Track8_xname, & - History_Track8_xaxis_label, & - History_Track8_yname, & - History_Track8_yaxis_label, & - History_Track8_file_dir, & - History_Track8_file_prefix, & - show_History_Track8_annotation1, & - show_History_Track8_annotation2, & - show_History_Track8_annotation3, & - History_Track8_fname, & - History_Track8_reverse_xaxis, & - History_Track8_reverse_yaxis, & - History_Track8_log_xaxis, & - History_Track8_log_yaxis, & - History_Track8_xmin, & - History_Track8_xmax, & - History_Track8_ymin, & - History_Track8_ymax, & - History_Track8_xmargin, & - History_Track8_ymargin, & - History_Track8_dxmin, & - History_Track8_dymin, & - History_Track8_win_width, & - History_Track8_win_aspect_ratio, & - History_Track8_file_width, & - History_Track8_file_aspect_ratio, & - History_Track8_xleft, & - History_Track8_xright, & - History_Track8_ybot, & - History_Track8_ytop, & - History_Track8_txt_scale, & - History_Track8_title, & - History_Track8_use_decorator, & - - History_Track9_win_flag, & - History_Track9_file_flag, & - History_Track9_file_interval, & - History_Track9_step_min, & - History_Track9_step_max, & - show_History_Track9_target_box, & - History_Track9_n_sigma, & - History_Track9_xtarget, & - History_Track9_xsigma, & - History_Track9_ytarget, & - History_Track9_ysigma, & - History_Track9_xname, & - History_Track9_xaxis_label, & - History_Track9_yname, & - History_Track9_yaxis_label, & - History_Track9_file_dir, & - History_Track9_file_prefix, & - show_History_Track9_annotation1, & - show_History_Track9_annotation2, & - show_History_Track9_annotation3, & - History_Track9_fname, & - History_Track9_reverse_xaxis, & - History_Track9_reverse_yaxis, & - History_Track9_log_xaxis, & - History_Track9_log_yaxis, & - History_Track9_xmin, & - History_Track9_xmax, & - History_Track9_ymin, & - History_Track9_ymax, & - History_Track9_xmargin, & - History_Track9_ymargin, & - History_Track9_dxmin, & - History_Track9_dymin, & - History_Track9_win_width, & - History_Track9_win_aspect_ratio, & - History_Track9_file_width, & - History_Track9_file_aspect_ratio, & - History_Track9_xleft, & - History_Track9_xright, & - History_Track9_ybot, & - History_Track9_ytop, & - History_Track9_txt_scale, & - History_Track9_title, & - History_Track9_use_decorator, & - - History_Panels1_win_flag, & - History_Panels1_win_width, & - History_Panels1_win_aspect_ratio, & - History_Panels1_xleft, & - History_Panels1_xright, & - History_Panels1_ybot, & - History_Panels1_ytop, & - History_Panels1_txt_scale, & - History_Panels1_title, & - History_Panels1_xmax, & - History_Panels1_xmin, & - History_Panels1_dxmin, & - History_Panels1_max_width, & - History_Panels1_num_panels, & - History_Panels1_xaxis_name, & - History_Panels1_yaxis_name, & - History_Panels1_xaxis_reversed, & - History_Panels1_yaxis_reversed, & - History_Panels1_yaxis_log, & - History_Panels1_ymin, & - History_Panels1_ymax, & - History_Panels1_dymin, & - History_Panels1_other_yaxis_name, & - History_Panels1_other_yaxis_reversed, & - History_Panels1_xaxis_log, & - History_Panels1_other_yaxis_log, & - History_Panels1_other_ymin, & - History_Panels1_other_ymax, & - History_Panels1_other_dymin, & - History_Panels1_points_name, & - History_Panels1_file_flag, & - History_Panels1_file_dir, & - History_Panels1_file_prefix, & - History_Panels1_file_interval, & - History_Panels1_file_width, & - History_Panels1_file_aspect_ratio, & - History_Panels1_xmargin, & - History_Panels1_ymargin, & - History_Panels1_other_ymargin, & - History_Panels1_use_decorator, & - - History_Panels2_win_flag, & - History_Panels2_win_width, & - History_Panels2_win_aspect_ratio, & - History_Panels2_xleft, & - History_Panels2_xright, & - History_Panels2_ybot, & - History_Panels2_ytop, & - History_Panels2_txt_scale, & - History_Panels2_title, & - History_Panels2_xmax, & - History_Panels2_xmin, & - History_Panels2_dxmin, & - History_Panels2_max_width, & - History_Panels2_num_panels, & - History_Panels2_xaxis_name, & - History_Panels2_yaxis_name, & - History_Panels2_xaxis_reversed, & - History_Panels2_yaxis_reversed, & - History_Panels2_yaxis_log, & - History_Panels2_ymin, & - History_Panels2_ymax, & - History_Panels2_dymin, & - History_Panels2_other_yaxis_name, & - History_Panels2_other_yaxis_reversed, & - History_Panels2_xaxis_log, & - History_Panels2_other_yaxis_log, & - History_Panels2_other_ymin, & - History_Panels2_other_ymax, & - History_Panels2_other_dymin, & - History_Panels2_points_name, & - History_Panels2_file_flag, & - History_Panels2_file_dir, & - History_Panels2_file_prefix, & - History_Panels2_file_interval, & - History_Panels2_file_width, & - History_Panels2_file_aspect_ratio, & - History_Panels2_xmargin, & - History_Panels2_ymargin, & - History_Panels2_other_ymargin, & - History_Panels2_use_decorator, & - - History_Panels3_win_flag, & - History_Panels3_win_width, & - History_Panels3_win_aspect_ratio, & - History_Panels3_xleft, & - History_Panels3_xright, & - History_Panels3_ybot, & - History_Panels3_ytop, & - History_Panels3_txt_scale, & - History_Panels3_title, & - History_Panels3_xmax, & - History_Panels3_xmin, & - History_Panels3_dxmin, & - History_Panels3_max_width, & - History_Panels3_num_panels, & - History_Panels3_xaxis_name, & - History_Panels3_yaxis_name, & - History_Panels3_xaxis_reversed, & - History_Panels3_yaxis_reversed, & - History_Panels3_yaxis_log, & - History_Panels3_ymin, & - History_Panels3_ymax, & - History_Panels3_dymin, & - History_Panels3_other_yaxis_name, & - History_Panels3_other_yaxis_reversed, & - History_Panels3_xaxis_log, & - History_Panels3_other_yaxis_log, & - History_Panels3_other_ymin, & - History_Panels3_other_ymax, & - History_Panels3_other_dymin, & - History_Panels3_points_name, & - History_Panels3_file_flag, & - History_Panels3_file_dir, & - History_Panels3_file_prefix, & - History_Panels3_file_interval, & - History_Panels3_file_width, & - History_Panels3_file_aspect_ratio, & - History_Panels3_xmargin, & - History_Panels3_ymargin, & - History_Panels3_other_ymargin, & - History_Panels3_use_decorator, & - - History_Panels4_win_flag, & - History_Panels4_win_width, & - History_Panels4_win_aspect_ratio, & - History_Panels4_xleft, & - History_Panels4_xright, & - History_Panels4_ybot, & - History_Panels4_ytop, & - History_Panels4_txt_scale, & - History_Panels4_title, & - History_Panels4_xmax, & - History_Panels4_xmin, & - History_Panels4_dxmin, & - History_Panels4_max_width, & - History_Panels4_num_panels, & - History_Panels4_xaxis_name, & - History_Panels4_yaxis_name, & - History_Panels4_xaxis_reversed, & - History_Panels4_yaxis_reversed, & - History_Panels4_yaxis_log, & - History_Panels4_ymin, & - History_Panels4_ymax, & - History_Panels4_dymin, & - History_Panels4_other_yaxis_name, & - History_Panels4_other_yaxis_reversed, & - History_Panels4_xaxis_log, & - History_Panels4_other_yaxis_log, & - History_Panels4_other_ymin, & - History_Panels4_other_ymax, & - History_Panels4_other_dymin, & - History_Panels4_points_name, & - History_Panels4_file_flag, & - History_Panels4_file_dir, & - History_Panels4_file_prefix, & - History_Panels4_file_interval, & - History_Panels4_file_width, & - History_Panels4_file_aspect_ratio, & - History_Panels4_xmargin, & - History_Panels4_ymargin, & - History_Panels4_other_ymargin, & - History_Panels4_use_decorator, & - - History_Panels5_win_flag, & - History_Panels5_win_width, & - History_Panels5_win_aspect_ratio, & - History_Panels5_xleft, & - History_Panels5_xright, & - History_Panels5_ybot, & - History_Panels5_ytop, & - History_Panels5_txt_scale, & - History_Panels5_title, & - History_Panels5_xmax, & - History_Panels5_xmin, & - History_Panels5_dxmin, & - History_Panels5_max_width, & - History_Panels5_num_panels, & - History_Panels5_xaxis_name, & - History_Panels5_yaxis_name, & - History_Panels5_xaxis_reversed, & - History_Panels5_yaxis_reversed, & - History_Panels5_yaxis_log, & - History_Panels5_ymin, & - History_Panels5_ymax, & - History_Panels5_dymin, & - History_Panels5_other_yaxis_name, & - History_Panels5_other_yaxis_reversed, & - History_Panels5_xaxis_log, & - History_Panels5_other_yaxis_log, & - History_Panels5_other_ymin, & - History_Panels5_other_ymax, & - History_Panels5_other_dymin, & - History_Panels5_points_name, & - History_Panels5_file_flag, & - History_Panels5_file_dir, & - History_Panels5_file_prefix, & - History_Panels5_file_interval, & - History_Panels5_file_width, & - History_Panels5_file_aspect_ratio, & - History_Panels5_xmargin, & - History_Panels5_ymargin, & - History_Panels5_other_ymargin, & - History_Panels5_use_decorator, & - - History_Panels6_win_flag, & - History_Panels6_win_width, & - History_Panels6_win_aspect_ratio, & - History_Panels6_xleft, & - History_Panels6_xright, & - History_Panels6_ybot, & - History_Panels6_ytop, & - History_Panels6_txt_scale, & - History_Panels6_title, & - History_Panels6_xmax, & - History_Panels6_xmin, & - History_Panels6_dxmin, & - History_Panels6_max_width, & - History_Panels6_num_panels, & - History_Panels6_xaxis_name, & - History_Panels6_yaxis_name, & - History_Panels6_xaxis_reversed, & - History_Panels6_yaxis_reversed, & - History_Panels6_yaxis_log, & - History_Panels6_ymin, & - History_Panels6_ymax, & - History_Panels6_dymin, & - History_Panels6_other_yaxis_name, & - History_Panels6_other_yaxis_reversed, & - History_Panels6_xaxis_log, & - History_Panels6_other_yaxis_log, & - History_Panels6_other_ymin, & - History_Panels6_other_ymax, & - History_Panels6_other_dymin, & - History_Panels6_points_name, & - History_Panels6_file_flag, & - History_Panels6_file_dir, & - History_Panels6_file_prefix, & - History_Panels6_file_interval, & - History_Panels6_file_width, & - History_Panels6_file_aspect_ratio, & - History_Panels6_xmargin, & - History_Panels6_ymargin, & - History_Panels6_other_ymargin, & - History_Panels6_use_decorator, & - - History_Panels7_win_flag, & - History_Panels7_win_width, & - History_Panels7_win_aspect_ratio, & - History_Panels7_xleft, & - History_Panels7_xright, & - History_Panels7_ybot, & - History_Panels7_ytop, & - History_Panels7_txt_scale, & - History_Panels7_title, & - History_Panels7_xmax, & - History_Panels7_xmin, & - History_Panels7_dxmin, & - History_Panels7_max_width, & - History_Panels7_num_panels, & - History_Panels7_xaxis_name, & - History_Panels7_yaxis_name, & - History_Panels7_xaxis_reversed, & - History_Panels7_yaxis_reversed, & - History_Panels7_yaxis_log, & - History_Panels7_ymin, & - History_Panels7_ymax, & - History_Panels7_dymin, & - History_Panels7_other_yaxis_name, & - History_Panels7_other_yaxis_reversed, & - History_Panels7_xaxis_log, & - History_Panels7_other_yaxis_log, & - History_Panels7_other_ymin, & - History_Panels7_other_ymax, & - History_Panels7_other_dymin, & - History_Panels7_points_name, & - History_Panels7_file_flag, & - History_Panels7_file_dir, & - History_Panels7_file_prefix, & - History_Panels7_file_interval, & - History_Panels7_file_width, & - History_Panels7_file_aspect_ratio, & - History_Panels7_xmargin, & - History_Panels7_ymargin, & - History_Panels7_other_ymargin, & - History_Panels7_use_decorator, & - - History_Panels8_win_flag, & - History_Panels8_win_width, & - History_Panels8_win_aspect_ratio, & - History_Panels8_xleft, & - History_Panels8_xright, & - History_Panels8_ybot, & - History_Panels8_ytop, & - History_Panels8_txt_scale, & - History_Panels8_title, & - History_Panels8_xmax, & - History_Panels8_xmin, & - History_Panels8_dxmin, & - History_Panels8_max_width, & - History_Panels8_num_panels, & - History_Panels8_xaxis_name, & - History_Panels8_yaxis_name, & - History_Panels8_xaxis_reversed, & - History_Panels8_yaxis_reversed, & - History_Panels8_yaxis_log, & - History_Panels8_ymin, & - History_Panels8_ymax, & - History_Panels8_dymin, & - History_Panels8_other_yaxis_name, & - History_Panels8_other_yaxis_reversed, & - History_Panels8_xaxis_log, & - History_Panels8_other_yaxis_log, & - History_Panels8_other_ymin, & - History_Panels8_other_ymax, & - History_Panels8_other_dymin, & - History_Panels8_points_name, & - History_Panels8_file_flag, & - History_Panels8_file_dir, & - History_Panels8_file_prefix, & - History_Panels8_file_interval, & - History_Panels8_file_width, & - History_Panels8_file_aspect_ratio, & - History_Panels8_xmargin, & - History_Panels8_ymargin, & - History_Panels8_other_ymargin, & - History_Panels8_use_decorator, & - - History_Panels9_win_flag, & - History_Panels9_win_width, & - History_Panels9_win_aspect_ratio, & - History_Panels9_xleft, & - History_Panels9_xright, & - History_Panels9_ybot, & - History_Panels9_ytop, & - History_Panels9_txt_scale, & - History_Panels9_title, & - History_Panels9_xmax, & - History_Panels9_xmin, & - History_Panels9_dxmin, & - History_Panels9_max_width, & - History_Panels9_num_panels, & - History_Panels9_xaxis_name, & - History_Panels9_yaxis_name, & - History_Panels9_xaxis_reversed, & - History_Panels9_yaxis_reversed, & - History_Panels9_yaxis_log, & - History_Panels9_ymin, & - History_Panels9_ymax, & - History_Panels9_dymin, & - History_Panels9_other_yaxis_name, & - History_Panels9_other_yaxis_reversed, & - History_Panels9_xaxis_log, & - History_Panels9_other_yaxis_log, & - History_Panels9_other_ymin, & - History_Panels9_other_ymax, & - History_Panels9_other_dymin, & - History_Panels9_points_name, & - History_Panels9_file_flag, & - History_Panels9_file_dir, & - History_Panels9_file_prefix, & - History_Panels9_file_interval, & - History_Panels9_file_width, & - History_Panels9_file_aspect_ratio, & - History_Panels9_xmargin, & - History_Panels9_ymargin, & - History_Panels9_other_ymargin, & - History_Panels9_use_decorator, & + Text_Summary_win_flag, & + Text_Summary_file_flag, & + Text_Summary_file_interval, & + Text_Summary_file_dir, & + Text_Summary_file_prefix, & + Text_Summary_num_cols, Text_Summary_num_rows, Text_Summary_name, & + Text_Summary_win_width, & + Text_Summary_win_aspect_ratio, & + Text_Summary_file_width, & + Text_Summary_file_aspect_ratio, & + Text_Summary_title, Text_Summary_xleft, Text_Summary_xright, & + Text_Summary_ybot, Text_Summary_ytop, Text_Summary_txt_scale, & + + History_Track_win_flag, & + History_Track_file_flag, & + History_Track_file_interval, & + History_Track_step_min, & + History_Track_step_max, & + show_History_Track_target_box, & + History_Track_n_sigma, & + History_Track_xtarget, & + History_Track_xsigma, & + History_Track_ytarget, & + History_Track_ysigma, & + History_Track_xname, & + History_Track_xaxis_label, & + History_Track_yname, & + History_Track_yaxis_label, & + History_Track_file_dir, & + History_Track_file_prefix, & + show_History_Track_annotation1, & + show_History_Track_annotation2, & + show_History_Track_annotation3, & + History_Track_fname, & + History_Track_reverse_xaxis, & + History_Track_reverse_yaxis, & + History_Track_log_xaxis, & + History_Track_log_yaxis, & + History_Track_xmin, & + History_Track_xmax, & + History_Track_ymin, & + History_Track_ymax, & + History_Track_xmargin, & + History_Track_ymargin, & + History_Track_dxmin, & + History_Track_dymin, & + History_Track_win_width, & + History_Track_win_aspect_ratio, & + History_Track_file_width, & + History_Track_file_aspect_ratio, & + History_Track_xleft, & + History_Track_xright, & + History_Track_ybot, & + History_Track_ytop, & + History_Track_txt_scale, & + History_Track_title, & + History_Track_use_decorator, & + + History_Panels_win_flag, & + History_Panels_win_width, & + History_Panels_win_aspect_ratio, & + History_Panels_xleft, & + History_Panels_xright, & + History_Panels_ybot, & + History_Panels_ytop, & + History_Panels_txt_scale, & + History_Panels_title, & + History_Panels_xmax, & + History_Panels_xmin, & + History_Panels_dxmin, & + History_Panels_max_width, & + History_Panels_num_panels, & + History_Panels_xaxis_name, & + History_Panels_yaxis_name, & + History_Panels_xaxis_reversed, & + History_Panels_yaxis_reversed, & + History_Panels_yaxis_log, & + History_Panels_ymin, & + History_Panels_ymax, & + History_Panels_dymin, & + History_Panels_other_yaxis_name, & + History_Panels_other_yaxis_reversed, & + History_Panels_xaxis_log, & + History_Panels_other_yaxis_log, & + History_Panels_other_ymin, & + History_Panels_other_ymax, & + History_Panels_other_dymin, & + History_Panels_points_name, & + History_Panels_file_flag, & + History_Panels_file_dir, & + History_Panels_file_prefix, & + History_Panels_file_interval, & + History_Panels_file_width, & + History_Panels_file_aspect_ratio, & + History_Panels_xmargin, & + History_Panels_ymargin, & + History_Panels_other_ymargin, & + History_Panels_use_decorator, & History_Panel_points_error_bars, & History_Panel_points_interval, & @@ -1019,257 +226,33 @@ module pgbinary_ctrls_io Summary_History_num_lines, & Summary_History_use_decorator, & - Grid1_win_flag, & - Grid1_win_width, & - Grid1_win_aspect_ratio, & - Grid1_xleft, & - Grid1_xright, & - Grid1_ybot, & - Grid1_ytop, & - Grid1_title, & - Grid1_txt_scale_factor, & - Grid1_num_cols, & - Grid1_num_rows, & - Grid1_num_plots, & - Grid1_plot_name, & - Grid1_plot_row, & - Grid1_plot_rowspan, & - Grid1_plot_col, & - Grid1_plot_colspan, & - Grid1_plot_pad_left, & - Grid1_plot_pad_right, & - Grid1_plot_pad_top, & - Grid1_plot_pad_bot, & - Grid1_file_flag, & - Grid1_file_dir, & - Grid1_file_prefix, & - Grid1_file_interval, & - Grid1_file_width, & - Grid1_file_aspect_ratio, & - - Grid2_win_flag, & - Grid2_win_width, & - Grid2_win_aspect_ratio, & - Grid2_xleft, & - Grid2_xright, & - Grid2_ybot, & - Grid2_ytop, & - Grid2_title, & - Grid2_txt_scale_factor, & - Grid2_num_cols, & - Grid2_num_rows, & - Grid2_num_plots, & - Grid2_plot_name, & - Grid2_plot_row, & - Grid2_plot_rowspan, & - Grid2_plot_col, & - Grid2_plot_colspan, & - Grid2_plot_pad_left, & - Grid2_plot_pad_right, & - Grid2_plot_pad_top, & - Grid2_plot_pad_bot, & - Grid2_file_flag, & - Grid2_file_dir, & - Grid2_file_prefix, & - Grid2_file_interval, & - Grid2_file_width, & - Grid2_file_aspect_ratio, & - - Grid3_win_flag, & - Grid3_win_width, & - Grid3_win_aspect_ratio, & - Grid3_xleft, & - Grid3_xright, & - Grid3_ybot, & - Grid3_ytop, & - Grid3_title, & - Grid3_txt_scale_factor, & - Grid3_num_cols, & - Grid3_num_rows, & - Grid3_num_plots, & - Grid3_plot_name, & - Grid3_plot_row, & - Grid3_plot_rowspan, & - Grid3_plot_col, & - Grid3_plot_colspan, & - Grid3_plot_pad_left, & - Grid3_plot_pad_right, & - Grid3_plot_pad_top, & - Grid3_plot_pad_bot, & - Grid3_file_flag, & - Grid3_file_dir, & - Grid3_file_prefix, & - Grid3_file_interval, & - Grid3_file_width, & - Grid3_file_aspect_ratio, & - - Grid4_win_flag, & - Grid4_win_width, & - Grid4_win_aspect_ratio, & - Grid4_xleft, & - Grid4_xright, & - Grid4_ybot, & - Grid4_ytop, & - Grid4_title, & - Grid4_txt_scale_factor, & - Grid4_num_cols, & - Grid4_num_rows, & - Grid4_num_plots, & - Grid4_plot_name, & - Grid4_plot_row, & - Grid4_plot_rowspan, & - Grid4_plot_col, & - Grid4_plot_colspan, & - Grid4_plot_pad_left, & - Grid4_plot_pad_right, & - Grid4_plot_pad_top, & - Grid4_plot_pad_bot, & - Grid4_file_flag, & - Grid4_file_dir, & - Grid4_file_prefix, & - Grid4_file_interval, & - Grid4_file_width, & - Grid4_file_aspect_ratio, & - - Grid5_win_flag, & - Grid5_win_width, & - Grid5_win_aspect_ratio, & - Grid5_xleft, & - Grid5_xright, & - Grid5_ybot, & - Grid5_ytop, & - Grid5_title, & - Grid5_txt_scale_factor, & - Grid5_num_cols, & - Grid5_num_rows, & - Grid5_num_plots, & - Grid5_plot_name, & - Grid5_plot_row, & - Grid5_plot_rowspan, & - Grid5_plot_col, & - Grid5_plot_colspan, & - Grid5_plot_pad_left, & - Grid5_plot_pad_right, & - Grid5_plot_pad_top, & - Grid5_plot_pad_bot, & - Grid5_file_flag, & - Grid5_file_dir, & - Grid5_file_prefix, & - Grid5_file_interval, & - Grid5_file_width, & - Grid5_file_aspect_ratio, & - - Grid6_win_flag, & - Grid6_win_width, & - Grid6_win_aspect_ratio, & - Grid6_xleft, & - Grid6_xright, & - Grid6_ybot, & - Grid6_ytop, & - Grid6_title, & - Grid6_txt_scale_factor, & - Grid6_num_cols, & - Grid6_num_rows, & - Grid6_num_plots, & - Grid6_plot_name, & - Grid6_plot_row, & - Grid6_plot_rowspan, & - Grid6_plot_col, & - Grid6_plot_colspan, & - Grid6_plot_pad_left, & - Grid6_plot_pad_right, & - Grid6_plot_pad_top, & - Grid6_plot_pad_bot, & - Grid6_file_flag, & - Grid6_file_dir, & - Grid6_file_prefix, & - Grid6_file_interval, & - Grid6_file_width, & - Grid6_file_aspect_ratio, & - - Grid7_win_flag, & - Grid7_win_width, & - Grid7_win_aspect_ratio, & - Grid7_xleft, & - Grid7_xright, & - Grid7_ybot, & - Grid7_ytop, & - Grid7_title, & - Grid7_txt_scale_factor, & - Grid7_num_cols, & - Grid7_num_rows, & - Grid7_num_plots, & - Grid7_plot_name, & - Grid7_plot_row, & - Grid7_plot_rowspan, & - Grid7_plot_col, & - Grid7_plot_colspan, & - Grid7_plot_pad_left, & - Grid7_plot_pad_right, & - Grid7_plot_pad_top, & - Grid7_plot_pad_bot, & - Grid7_file_flag, & - Grid7_file_dir, & - Grid7_file_prefix, & - Grid7_file_interval, & - Grid7_file_width, & - Grid7_file_aspect_ratio, & - - Grid8_win_flag, & - Grid8_win_width, & - Grid8_win_aspect_ratio, & - Grid8_xleft, & - Grid8_xright, & - Grid8_ybot, & - Grid8_ytop, & - Grid8_title, & - Grid8_txt_scale_factor, & - Grid8_num_cols, & - Grid8_num_rows, & - Grid8_num_plots, & - Grid8_plot_name, & - Grid8_plot_row, & - Grid8_plot_rowspan, & - Grid8_plot_col, & - Grid8_plot_colspan, & - Grid8_plot_pad_left, & - Grid8_plot_pad_right, & - Grid8_plot_pad_top, & - Grid8_plot_pad_bot, & - Grid8_file_flag, & - Grid8_file_dir, & - Grid8_file_prefix, & - Grid8_file_interval, & - Grid8_file_width, & - Grid8_file_aspect_ratio, & - - Grid9_win_flag, & - Grid9_win_width, & - Grid9_win_aspect_ratio, & - Grid9_xleft, & - Grid9_xright, & - Grid9_ybot, & - Grid9_ytop, & - Grid9_title, & - Grid9_txt_scale_factor, & - Grid9_num_cols, & - Grid9_num_rows, & - Grid9_num_plots, & - Grid9_plot_name, & - Grid9_plot_row, & - Grid9_plot_rowspan, & - Grid9_plot_col, & - Grid9_plot_colspan, & - Grid9_plot_pad_left, & - Grid9_plot_pad_right, & - Grid9_plot_pad_top, & - Grid9_plot_pad_bot, & - Grid9_file_flag, & - Grid9_file_dir, & - Grid9_file_prefix, & - Grid9_file_interval, & - Grid9_file_width, & - Grid9_file_aspect_ratio, & + Grid_win_flag, & + Grid_win_width, & + Grid_win_aspect_ratio, & + Grid_xleft, & + Grid_xright, & + Grid_ybot, & + Grid_ytop, & + Grid_title, & + Grid_txt_scale_factor, & + Grid_num_cols, & + Grid_num_rows, & + Grid_num_plots, & + Grid_plot_name, & + Grid_plot_row, & + Grid_plot_rowspan, & + Grid_plot_col, & + Grid_plot_colspan, & + Grid_plot_pad_left, & + Grid_plot_pad_right, & + Grid_plot_pad_top, & + Grid_plot_pad_bot, & + Grid_file_flag, & + Grid_file_dir, & + Grid_file_prefix, & + Grid_file_interval, & + Grid_file_width, & + Grid_file_aspect_ratio, & Star1_win_flag, & Star1_file_flag, & @@ -1516,951 +499,110 @@ subroutine store_pgbinary_controls(b, ierr) pg% pgbinary_model_lw = pgbinary_model_lw pg% pgbinary_box_lw = pgbinary_box_lw - pg% Text_Summary1_win_flag = Text_Summary1_win_flag - pg% Text_Summary1_file_flag = Text_Summary1_file_flag - pg% Text_Summary1_file_interval = Text_Summary1_file_interval - pg% Text_Summary1_file_dir = Text_Summary1_file_dir - pg% Text_Summary1_file_prefix = Text_Summary1_file_prefix - pg% Text_Summary1_num_cols = Text_Summary1_num_cols - pg% Text_Summary1_num_rows = Text_Summary1_num_rows - pg% Text_Summary1_name = Text_Summary1_name - pg% Text_Summary1_win_width = Text_Summary1_win_width - pg% Text_Summary1_win_aspect_ratio = Text_Summary1_win_aspect_ratio - pg% Text_Summary1_file_width = Text_Summary1_file_width - pg% Text_Summary1_file_aspect_ratio = Text_Summary1_file_aspect_ratio - pg% Text_Summary1_title = Text_Summary1_title - pg% Text_Summary1_xleft = Text_Summary1_xleft - pg% Text_Summary1_xright = Text_Summary1_xright - pg% Text_Summary1_ybot = Text_Summary1_ybot - pg% Text_Summary1_ytop = Text_Summary1_ytop - pg% Text_Summary1_txt_scale = Text_Summary1_txt_scale - - pg% Text_Summary2_win_flag = Text_Summary2_win_flag - pg% Text_Summary2_file_flag = Text_Summary2_file_flag - pg% Text_Summary2_file_interval = Text_Summary2_file_interval - pg% Text_Summary2_file_dir = Text_Summary2_file_dir - pg% Text_Summary2_file_prefix = Text_Summary2_file_prefix - pg% Text_Summary2_num_cols = Text_Summary2_num_cols - pg% Text_Summary2_num_rows = Text_Summary2_num_rows - pg% Text_Summary2_name = Text_Summary2_name - pg% Text_Summary2_win_width = Text_Summary2_win_width - pg% Text_Summary2_win_aspect_ratio = Text_Summary2_win_aspect_ratio - pg% Text_Summary2_file_width = Text_Summary2_file_width - pg% Text_Summary2_file_aspect_ratio = Text_Summary2_file_aspect_ratio - pg% Text_Summary2_title = Text_Summary2_title - pg% Text_Summary2_xleft = Text_Summary2_xleft - pg% Text_Summary2_xright = Text_Summary2_xright - pg% Text_Summary2_ybot = Text_Summary2_ybot - pg% Text_Summary2_ytop = Text_Summary2_ytop - pg% Text_Summary2_txt_scale = Text_Summary2_txt_scale - - pg% Text_Summary3_win_flag = Text_Summary3_win_flag - pg% Text_Summary3_file_flag = Text_Summary3_file_flag - pg% Text_Summary3_file_interval = Text_Summary3_file_interval - pg% Text_Summary3_file_dir = Text_Summary3_file_dir - pg% Text_Summary3_file_prefix = Text_Summary3_file_prefix - pg% Text_Summary3_num_cols = Text_Summary3_num_cols - pg% Text_Summary3_num_rows = Text_Summary3_num_rows - pg% Text_Summary3_name = Text_Summary3_name - pg% Text_Summary3_win_width = Text_Summary3_win_width - pg% Text_Summary3_win_aspect_ratio = Text_Summary3_win_aspect_ratio - pg% Text_Summary3_file_width = Text_Summary3_file_width - pg% Text_Summary3_file_aspect_ratio = Text_Summary3_file_aspect_ratio - pg% Text_Summary3_title = Text_Summary3_title - pg% Text_Summary3_xleft = Text_Summary3_xleft - pg% Text_Summary3_xright = Text_Summary3_xright - pg% Text_Summary3_ybot = Text_Summary3_ybot - pg% Text_Summary3_ytop = Text_Summary3_ytop - pg% Text_Summary3_txt_scale = Text_Summary3_txt_scale - - pg% Text_Summary4_win_flag = Text_Summary4_win_flag - pg% Text_Summary4_file_flag = Text_Summary4_file_flag - pg% Text_Summary4_file_interval = Text_Summary4_file_interval - pg% Text_Summary4_file_dir = Text_Summary4_file_dir - pg% Text_Summary4_file_prefix = Text_Summary4_file_prefix - pg% Text_Summary4_num_cols = Text_Summary4_num_cols - pg% Text_Summary4_num_rows = Text_Summary4_num_rows - pg% Text_Summary4_name = Text_Summary4_name - pg% Text_Summary4_win_width = Text_Summary4_win_width - pg% Text_Summary4_win_aspect_ratio = Text_Summary4_win_aspect_ratio - pg% Text_Summary4_file_width = Text_Summary4_file_width - pg% Text_Summary4_file_aspect_ratio = Text_Summary4_file_aspect_ratio - pg% Text_Summary4_title = Text_Summary4_title - pg% Text_Summary4_xleft = Text_Summary4_xleft - pg% Text_Summary4_xright = Text_Summary4_xright - pg% Text_Summary4_ybot = Text_Summary4_ybot - pg% Text_Summary4_ytop = Text_Summary4_ytop - pg% Text_Summary4_txt_scale = Text_Summary4_txt_scale - - pg% Text_Summary5_win_flag = Text_Summary5_win_flag - pg% Text_Summary5_file_flag = Text_Summary5_file_flag - pg% Text_Summary5_file_interval = Text_Summary5_file_interval - pg% Text_Summary5_file_dir = Text_Summary5_file_dir - pg% Text_Summary5_file_prefix = Text_Summary5_file_prefix - pg% Text_Summary5_num_cols = Text_Summary5_num_cols - pg% Text_Summary5_num_rows = Text_Summary5_num_rows - pg% Text_Summary5_name = Text_Summary5_name - pg% Text_Summary5_win_width = Text_Summary5_win_width - pg% Text_Summary5_win_aspect_ratio = Text_Summary5_win_aspect_ratio - pg% Text_Summary5_file_width = Text_Summary5_file_width - pg% Text_Summary5_file_aspect_ratio = Text_Summary5_file_aspect_ratio - pg% Text_Summary5_title = Text_Summary5_title - pg% Text_Summary5_xleft = Text_Summary5_xleft - pg% Text_Summary5_xright = Text_Summary5_xright - pg% Text_Summary5_ybot = Text_Summary5_ybot - pg% Text_Summary5_ytop = Text_Summary5_ytop - pg% Text_Summary5_txt_scale = Text_Summary5_txt_scale - - pg% Text_Summary6_win_flag = Text_Summary6_win_flag - pg% Text_Summary6_file_flag = Text_Summary6_file_flag - pg% Text_Summary6_file_interval = Text_Summary6_file_interval - pg% Text_Summary6_file_dir = Text_Summary6_file_dir - pg% Text_Summary6_file_prefix = Text_Summary6_file_prefix - pg% Text_Summary6_num_cols = Text_Summary6_num_cols - pg% Text_Summary6_num_rows = Text_Summary6_num_rows - pg% Text_Summary6_name = Text_Summary6_name - pg% Text_Summary6_win_width = Text_Summary6_win_width - pg% Text_Summary6_win_aspect_ratio = Text_Summary6_win_aspect_ratio - pg% Text_Summary6_file_width = Text_Summary6_file_width - pg% Text_Summary6_file_aspect_ratio = Text_Summary6_file_aspect_ratio - pg% Text_Summary6_title = Text_Summary6_title - pg% Text_Summary6_xleft = Text_Summary6_xleft - pg% Text_Summary6_xright = Text_Summary6_xright - pg% Text_Summary6_ybot = Text_Summary6_ybot - pg% Text_Summary6_ytop = Text_Summary6_ytop - pg% Text_Summary6_txt_scale = Text_Summary6_txt_scale - - pg% Text_Summary7_win_flag = Text_Summary7_win_flag - pg% Text_Summary7_file_flag = Text_Summary7_file_flag - pg% Text_Summary7_file_interval = Text_Summary7_file_interval - pg% Text_Summary7_file_dir = Text_Summary7_file_dir - pg% Text_Summary7_file_prefix = Text_Summary7_file_prefix - pg% Text_Summary7_num_cols = Text_Summary7_num_cols - pg% Text_Summary7_num_rows = Text_Summary7_num_rows - pg% Text_Summary7_name = Text_Summary7_name - pg% Text_Summary7_win_width = Text_Summary7_win_width - pg% Text_Summary7_win_aspect_ratio = Text_Summary7_win_aspect_ratio - pg% Text_Summary7_file_width = Text_Summary7_file_width - pg% Text_Summary7_file_aspect_ratio = Text_Summary7_file_aspect_ratio - pg% Text_Summary7_title = Text_Summary7_title - pg% Text_Summary7_xleft = Text_Summary7_xleft - pg% Text_Summary7_xright = Text_Summary7_xright - pg% Text_Summary7_ybot = Text_Summary7_ybot - pg% Text_Summary7_ytop = Text_Summary7_ytop - pg% Text_Summary7_txt_scale = Text_Summary7_txt_scale - - pg% Text_Summary8_win_flag = Text_Summary8_win_flag - pg% Text_Summary8_file_flag = Text_Summary8_file_flag - pg% Text_Summary8_file_interval = Text_Summary8_file_interval - pg% Text_Summary8_file_dir = Text_Summary8_file_dir - pg% Text_Summary8_file_prefix = Text_Summary8_file_prefix - pg% Text_Summary8_num_cols = Text_Summary8_num_cols - pg% Text_Summary8_num_rows = Text_Summary8_num_rows - pg% Text_Summary8_name = Text_Summary8_name - pg% Text_Summary8_win_width = Text_Summary8_win_width - pg% Text_Summary8_win_aspect_ratio = Text_Summary8_win_aspect_ratio - pg% Text_Summary8_file_width = Text_Summary8_file_width - pg% Text_Summary8_file_aspect_ratio = Text_Summary8_file_aspect_ratio - pg% Text_Summary8_title = Text_Summary8_title - pg% Text_Summary8_xleft = Text_Summary8_xleft - pg% Text_Summary8_xright = Text_Summary8_xright - pg% Text_Summary8_ybot = Text_Summary8_ybot - pg% Text_Summary8_ytop = Text_Summary8_ytop - pg% Text_Summary8_txt_scale = Text_Summary8_txt_scale - - pg% Text_Summary9_win_flag = Text_Summary9_win_flag - pg% Text_Summary9_file_flag = Text_Summary9_file_flag - pg% Text_Summary9_file_interval = Text_Summary9_file_interval - pg% Text_Summary9_file_dir = Text_Summary9_file_dir - pg% Text_Summary9_file_prefix = Text_Summary9_file_prefix - pg% Text_Summary9_num_cols = Text_Summary9_num_cols - pg% Text_Summary9_num_rows = Text_Summary9_num_rows - pg% Text_Summary9_name = Text_Summary9_name - pg% Text_Summary9_win_width = Text_Summary9_win_width - pg% Text_Summary9_win_aspect_ratio = Text_Summary9_win_aspect_ratio - pg% Text_Summary9_file_width = Text_Summary9_file_width - pg% Text_Summary9_file_aspect_ratio = Text_Summary9_file_aspect_ratio - pg% Text_Summary9_title = Text_Summary9_title - pg% Text_Summary9_xleft = Text_Summary9_xleft - pg% Text_Summary9_xright = Text_Summary9_xright - pg% Text_Summary9_ybot = Text_Summary9_ybot - pg% Text_Summary9_ytop = Text_Summary9_ytop - pg% Text_Summary9_txt_scale = Text_Summary9_txt_scale - - pg% History_Track1_win_flag = History_Track1_win_flag - pg% History_Track1_file_flag = History_Track1_file_flag - pg% History_Track1_file_interval = History_Track1_file_interval - pg% History_Track1_step_min = History_Track1_step_min - pg% History_Track1_step_max = History_Track1_step_max - pg% show_History_Track1_target_box = show_History_Track1_target_box - pg% History_Track1_n_sigma = History_Track1_n_sigma - pg% History_Track1_xtarget = History_Track1_xtarget - pg% History_Track1_xsigma = History_Track1_xsigma - pg% History_Track1_ytarget = History_Track1_ytarget - pg% History_Track1_ysigma = History_Track1_ysigma - pg% History_Track1_file_dir = History_Track1_file_dir - pg% History_Track1_file_prefix = History_Track1_file_prefix - pg% show_History_Track1_annotation1 = show_History_Track1_annotation1 - pg% show_History_Track1_annotation2 = show_History_Track1_annotation2 - pg% show_History_Track1_annotation3 = show_History_Track1_annotation3 - pg% History_Track1_fname = History_Track1_fname - pg% History_Track1_xname = History_Track1_xname - pg% History_Track1_xaxis_label = History_Track1_xaxis_label - pg% History_Track1_yname = History_Track1_yname - pg% History_Track1_yaxis_label = History_Track1_yaxis_label - pg% History_Track1_reverse_xaxis = History_Track1_reverse_xaxis - pg% History_Track1_reverse_yaxis = History_Track1_reverse_yaxis - pg% History_Track1_log_xaxis = History_Track1_log_xaxis - pg% History_Track1_log_yaxis = History_Track1_log_yaxis - pg% History_Track1_xmin = History_Track1_xmin - pg% History_Track1_xmax = History_Track1_xmax - pg% History_Track1_ymin = History_Track1_ymin - pg% History_Track1_ymax = History_Track1_ymax - pg% History_Track1_xmargin = History_Track1_xmargin - pg% History_Track1_ymargin = History_Track1_ymargin - pg% History_Track1_dxmin = History_Track1_dxmin - pg% History_Track1_dymin = History_Track1_dymin - pg% History_Track1_win_width = History_Track1_win_width - pg% History_Track1_win_aspect_ratio = History_Track1_win_aspect_ratio - pg% History_Track1_file_width = History_Track1_file_width - pg% History_Track1_file_aspect_ratio = History_Track1_file_aspect_ratio - pg% History_Track1_xleft = History_Track1_xleft - pg% History_Track1_xright = History_Track1_xright - pg% History_Track1_ybot = History_Track1_ybot - pg% History_Track1_ytop = History_Track1_ytop - pg% History_Track1_txt_scale = History_Track1_txt_scale - pg% History_Track1_title = History_Track1_title - pg% History_Track1_use_decorator = History_Track1_use_decorator - - pg% History_Track2_win_flag = History_Track2_win_flag - pg% History_Track2_file_flag = History_Track2_file_flag - pg% History_Track2_file_interval = History_Track2_file_interval - pg% History_Track2_step_min = History_Track2_step_min - pg% History_Track2_step_max = History_Track2_step_max - pg% show_History_Track2_target_box = show_History_Track2_target_box - pg% History_Track2_n_sigma = History_Track2_n_sigma - pg% History_Track2_xtarget = History_Track2_xtarget - pg% History_Track2_xsigma = History_Track2_xsigma - pg% History_Track2_ytarget = History_Track2_ytarget - pg% History_Track2_ysigma = History_Track2_ysigma - pg% History_Track2_xname = History_Track2_xname - pg% History_Track2_xaxis_label = History_Track2_xaxis_label - pg% History_Track2_yname = History_Track2_yname - pg% History_Track2_yaxis_label = History_Track2_yaxis_label - pg% History_Track2_file_dir = History_Track2_file_dir - pg% History_Track2_file_prefix = History_Track2_file_prefix - pg% show_History_Track2_annotation1 = show_History_Track2_annotation1 - pg% show_History_Track2_annotation2 = show_History_Track2_annotation2 - pg% show_History_Track2_annotation3 = show_History_Track2_annotation3 - pg% History_Track2_fname = History_Track2_fname - pg% History_Track2_reverse_xaxis = History_Track2_reverse_xaxis - pg% History_Track2_reverse_yaxis = History_Track2_reverse_yaxis - pg% History_Track2_log_xaxis = History_Track2_log_xaxis - pg% History_Track2_log_yaxis = History_Track2_log_yaxis - pg% History_Track2_xmin = History_Track2_xmin - pg% History_Track2_xmax = History_Track2_xmax - pg% History_Track2_ymin = History_Track2_ymin - pg% History_Track2_ymax = History_Track2_ymax - pg% History_Track2_xmargin = History_Track2_xmargin - pg% History_Track2_ymargin = History_Track2_ymargin - pg% History_Track2_dxmin = History_Track2_dxmin - pg% History_Track2_dymin = History_Track2_dymin - pg% History_Track2_win_width = History_Track2_win_width - pg% History_Track2_win_aspect_ratio = History_Track2_win_aspect_ratio - pg% History_Track2_file_width = History_Track2_file_width - pg% History_Track2_file_aspect_ratio = History_Track2_file_aspect_ratio - pg% History_Track2_xleft = History_Track2_xleft - pg% History_Track2_xright = History_Track2_xright - pg% History_Track2_ybot = History_Track2_ybot - pg% History_Track2_ytop = History_Track2_ytop - pg% History_Track2_txt_scale = History_Track2_txt_scale - pg% History_Track2_title = History_Track2_title - pg% History_Track2_use_decorator = History_Track2_use_decorator - - pg% History_Track3_win_flag = History_Track3_win_flag - pg% History_Track3_file_flag = History_Track3_file_flag - pg% History_Track3_file_interval = History_Track3_file_interval - pg% History_Track3_step_min = History_Track3_step_min - pg% History_Track3_step_max = History_Track3_step_max - pg% show_History_Track3_target_box = show_History_Track3_target_box - pg% History_Track3_n_sigma = History_Track3_n_sigma - pg% History_Track3_xtarget = History_Track3_xtarget - pg% History_Track3_xsigma = History_Track3_xsigma - pg% History_Track3_ytarget = History_Track3_ytarget - pg% History_Track3_ysigma = History_Track3_ysigma - pg% History_Track3_xname = History_Track3_xname - pg% History_Track3_xaxis_label = History_Track3_xaxis_label - pg% History_Track3_yname = History_Track3_yname - pg% History_Track3_yaxis_label = History_Track3_yaxis_label - pg% History_Track3_file_dir = History_Track3_file_dir - pg% History_Track3_file_prefix = History_Track3_file_prefix - pg% show_History_Track3_annotation1 = show_History_Track3_annotation1 - pg% show_History_Track3_annotation2 = show_History_Track3_annotation2 - pg% show_History_Track3_annotation3 = show_History_Track3_annotation3 - pg% History_Track3_fname = History_Track3_fname - pg% History_Track3_reverse_xaxis = History_Track3_reverse_xaxis - pg% History_Track3_reverse_yaxis = History_Track3_reverse_yaxis - pg% History_Track3_log_xaxis = History_Track3_log_xaxis - pg% History_Track3_log_yaxis = History_Track3_log_yaxis - pg% History_Track3_xmin = History_Track3_xmin - pg% History_Track3_xmax = History_Track3_xmax - pg% History_Track3_ymin = History_Track3_ymin - pg% History_Track3_ymax = History_Track3_ymax - pg% History_Track3_xmargin = History_Track3_xmargin - pg% History_Track3_ymargin = History_Track3_ymargin - pg% History_Track3_dxmin = History_Track3_dxmin - pg% History_Track3_dymin = History_Track3_dymin - pg% History_Track3_win_width = History_Track3_win_width - pg% History_Track3_win_aspect_ratio = History_Track3_win_aspect_ratio - pg% History_Track3_file_width = History_Track3_file_width - pg% History_Track3_file_aspect_ratio = History_Track3_file_aspect_ratio - pg% History_Track3_xleft = History_Track3_xleft - pg% History_Track3_xright = History_Track3_xright - pg% History_Track3_ybot = History_Track3_ybot - pg% History_Track3_ytop = History_Track3_ytop - pg% History_Track3_txt_scale = History_Track3_txt_scale - pg% History_Track3_title = History_Track3_title - pg% History_Track3_use_decorator = History_Track3_use_decorator - - pg% History_Track4_win_flag = History_Track4_win_flag - pg% History_Track4_file_flag = History_Track4_file_flag - pg% History_Track4_file_interval = History_Track4_file_interval - pg% History_Track4_step_min = History_Track4_step_min - pg% History_Track4_step_max = History_Track4_step_max - pg% show_History_Track4_target_box = show_History_Track4_target_box - pg% History_Track4_n_sigma = History_Track4_n_sigma - pg% History_Track4_xtarget = History_Track4_xtarget - pg% History_Track4_xsigma = History_Track4_xsigma - pg% History_Track4_ytarget = History_Track4_ytarget - pg% History_Track4_ysigma = History_Track4_ysigma - pg% History_Track4_xname = History_Track4_xname - pg% History_Track4_xaxis_label = History_Track4_xaxis_label - pg% History_Track4_yname = History_Track4_yname - pg% History_Track4_yaxis_label = History_Track4_yaxis_label - pg% History_Track4_file_dir = History_Track4_file_dir - pg% History_Track4_file_prefix = History_Track4_file_prefix - pg% show_History_Track4_annotation1 = show_History_Track4_annotation1 - pg% show_History_Track4_annotation2 = show_History_Track4_annotation2 - pg% show_History_Track4_annotation3 = show_History_Track4_annotation3 - pg% History_Track4_fname = History_Track4_fname - pg% History_Track4_reverse_xaxis = History_Track4_reverse_xaxis - pg% History_Track4_reverse_yaxis = History_Track4_reverse_yaxis - pg% History_Track4_log_xaxis = History_Track4_log_xaxis - pg% History_Track4_log_yaxis = History_Track4_log_yaxis - pg% History_Track4_xmin = History_Track4_xmin - pg% History_Track4_xmax = History_Track4_xmax - pg% History_Track4_ymin = History_Track4_ymin - pg% History_Track4_ymax = History_Track4_ymax - pg% History_Track4_xmargin = History_Track4_xmargin - pg% History_Track4_ymargin = History_Track4_ymargin - pg% History_Track4_dxmin = History_Track4_dxmin - pg% History_Track4_dymin = History_Track4_dymin - pg% History_Track4_win_width = History_Track4_win_width - pg% History_Track4_win_aspect_ratio = History_Track4_win_aspect_ratio - pg% History_Track4_file_width = History_Track4_file_width - pg% History_Track4_file_aspect_ratio = History_Track4_file_aspect_ratio - pg% History_Track4_xleft = History_Track4_xleft - pg% History_Track4_xright = History_Track4_xright - pg% History_Track4_ybot = History_Track4_ybot - pg% History_Track4_ytop = History_Track4_ytop - pg% History_Track4_txt_scale = History_Track4_txt_scale - pg% History_Track4_title = History_Track4_title - pg% History_Track4_use_decorator = History_Track4_use_decorator - - pg% History_Track5_win_flag = History_Track5_win_flag - pg% History_Track5_file_flag = History_Track5_file_flag - pg% History_Track5_file_interval = History_Track5_file_interval - pg% History_Track5_step_min = History_Track5_step_min - pg% History_Track5_step_max = History_Track5_step_max - pg% show_History_Track5_target_box = show_History_Track5_target_box - pg% History_Track5_n_sigma = History_Track5_n_sigma - pg% History_Track5_xtarget = History_Track5_xtarget - pg% History_Track5_xsigma = History_Track5_xsigma - pg% History_Track5_ytarget = History_Track5_ytarget - pg% History_Track5_ysigma = History_Track5_ysigma - pg% History_Track5_xname = History_Track5_xname - pg% History_Track5_xaxis_label = History_Track5_xaxis_label - pg% History_Track5_yname = History_Track5_yname - pg% History_Track5_yaxis_label = History_Track5_yaxis_label - pg% History_Track5_file_dir = History_Track5_file_dir - pg% History_Track5_file_prefix = History_Track5_file_prefix - pg% show_History_Track5_annotation1 = show_History_Track5_annotation1 - pg% show_History_Track5_annotation2 = show_History_Track5_annotation2 - pg% show_History_Track5_annotation3 = show_History_Track5_annotation3 - pg% History_Track5_fname = History_Track5_fname - pg% History_Track5_reverse_xaxis = History_Track5_reverse_xaxis - pg% History_Track5_reverse_yaxis = History_Track5_reverse_yaxis - pg% History_Track5_log_xaxis = History_Track5_log_xaxis - pg% History_Track5_log_yaxis = History_Track5_log_yaxis - pg% History_Track5_xmin = History_Track5_xmin - pg% History_Track5_xmax = History_Track5_xmax - pg% History_Track5_ymin = History_Track5_ymin - pg% History_Track5_ymax = History_Track5_ymax - pg% History_Track5_xmargin = History_Track5_xmargin - pg% History_Track5_ymargin = History_Track5_ymargin - pg% History_Track5_dxmin = History_Track5_dxmin - pg% History_Track5_dymin = History_Track5_dymin - pg% History_Track5_win_width = History_Track5_win_width - pg% History_Track5_win_aspect_ratio = History_Track5_win_aspect_ratio - pg% History_Track5_file_width = History_Track5_file_width - pg% History_Track5_file_aspect_ratio = History_Track5_file_aspect_ratio - pg% History_Track5_xleft = History_Track5_xleft - pg% History_Track5_xright = History_Track5_xright - pg% History_Track5_ybot = History_Track5_ybot - pg% History_Track5_ytop = History_Track5_ytop - pg% History_Track5_txt_scale = History_Track5_txt_scale - pg% History_Track5_title = History_Track5_title - pg% History_Track5_use_decorator = History_Track5_use_decorator - - pg% History_Track6_win_flag = History_Track6_win_flag - pg% History_Track6_file_flag = History_Track6_file_flag - pg% History_Track6_file_interval = History_Track6_file_interval - pg% History_Track6_step_min = History_Track6_step_min - pg% History_Track6_step_max = History_Track6_step_max - pg% show_History_Track6_target_box = show_History_Track6_target_box - pg% History_Track6_n_sigma = History_Track6_n_sigma - pg% History_Track6_xtarget = History_Track6_xtarget - pg% History_Track6_xsigma = History_Track6_xsigma - pg% History_Track6_ytarget = History_Track6_ytarget - pg% History_Track6_ysigma = History_Track6_ysigma - pg% History_Track6_xname = History_Track6_xname - pg% History_Track6_xaxis_label = History_Track6_xaxis_label - pg% History_Track6_yname = History_Track6_yname - pg% History_Track6_yaxis_label = History_Track6_yaxis_label - pg% History_Track6_file_dir = History_Track6_file_dir - pg% History_Track6_file_prefix = History_Track6_file_prefix - pg% show_History_Track6_annotation1 = show_History_Track6_annotation1 - pg% show_History_Track6_annotation2 = show_History_Track6_annotation2 - pg% show_History_Track6_annotation3 = show_History_Track6_annotation3 - pg% History_Track6_fname = History_Track6_fname - pg% History_Track6_reverse_xaxis = History_Track6_reverse_xaxis - pg% History_Track6_reverse_yaxis = History_Track6_reverse_yaxis - pg% History_Track6_log_xaxis = History_Track6_log_xaxis - pg% History_Track6_log_yaxis = History_Track6_log_yaxis - pg% History_Track6_xmin = History_Track6_xmin - pg% History_Track6_xmax = History_Track6_xmax - pg% History_Track6_ymin = History_Track6_ymin - pg% History_Track6_ymax = History_Track6_ymax - pg% History_Track6_xmargin = History_Track6_xmargin - pg% History_Track6_ymargin = History_Track6_ymargin - pg% History_Track6_dxmin = History_Track6_dxmin - pg% History_Track6_dymin = History_Track6_dymin - pg% History_Track6_win_width = History_Track6_win_width - pg% History_Track6_win_aspect_ratio = History_Track6_win_aspect_ratio - pg% History_Track6_file_width = History_Track6_file_width - pg% History_Track6_file_aspect_ratio = History_Track6_file_aspect_ratio - pg% History_Track6_xleft = History_Track6_xleft - pg% History_Track6_xright = History_Track6_xright - pg% History_Track6_ybot = History_Track6_ybot - pg% History_Track6_ytop = History_Track6_ytop - pg% History_Track6_txt_scale = History_Track6_txt_scale - pg% History_Track6_title = History_Track6_title - pg% History_Track6_use_decorator = History_Track6_use_decorator - - pg% History_Track7_win_flag = History_Track7_win_flag - pg% History_Track7_file_flag = History_Track7_file_flag - pg% History_Track7_file_interval = History_Track7_file_interval - pg% History_Track7_step_min = History_Track7_step_min - pg% History_Track7_step_max = History_Track7_step_max - pg% show_History_Track7_target_box = show_History_Track7_target_box - pg% History_Track7_n_sigma = History_Track7_n_sigma - pg% History_Track7_xtarget = History_Track7_xtarget - pg% History_Track7_xsigma = History_Track7_xsigma - pg% History_Track7_ytarget = History_Track7_ytarget - pg% History_Track7_ysigma = History_Track7_ysigma - pg% History_Track7_xname = History_Track7_xname - pg% History_Track7_xaxis_label = History_Track7_xaxis_label - pg% History_Track7_yname = History_Track7_yname - pg% History_Track7_yaxis_label = History_Track7_yaxis_label - pg% History_Track7_file_dir = History_Track7_file_dir - pg% History_Track7_file_prefix = History_Track7_file_prefix - pg% show_History_Track7_annotation1 = show_History_Track7_annotation1 - pg% show_History_Track7_annotation2 = show_History_Track7_annotation2 - pg% show_History_Track7_annotation3 = show_History_Track7_annotation3 - pg% History_Track7_fname = History_Track7_fname - pg% History_Track7_reverse_xaxis = History_Track7_reverse_xaxis - pg% History_Track7_reverse_yaxis = History_Track7_reverse_yaxis - pg% History_Track7_log_xaxis = History_Track7_log_xaxis - pg% History_Track7_log_yaxis = History_Track7_log_yaxis - pg% History_Track7_xmin = History_Track7_xmin - pg% History_Track7_xmax = History_Track7_xmax - pg% History_Track7_ymin = History_Track7_ymin - pg% History_Track7_ymax = History_Track7_ymax - pg% History_Track7_xmargin = History_Track7_xmargin - pg% History_Track7_ymargin = History_Track7_ymargin - pg% History_Track7_dxmin = History_Track7_dxmin - pg% History_Track7_dymin = History_Track7_dymin - pg% History_Track7_win_width = History_Track7_win_width - pg% History_Track7_win_aspect_ratio = History_Track7_win_aspect_ratio - pg% History_Track7_file_width = History_Track7_file_width - pg% History_Track7_file_aspect_ratio = History_Track7_file_aspect_ratio - pg% History_Track7_xleft = History_Track7_xleft - pg% History_Track7_xright = History_Track7_xright - pg% History_Track7_ybot = History_Track7_ybot - pg% History_Track7_ytop = History_Track7_ytop - pg% History_Track7_txt_scale = History_Track7_txt_scale - pg% History_Track7_title = History_Track7_title - pg% History_Track7_use_decorator = History_Track7_use_decorator - - pg% History_Track8_win_flag = History_Track8_win_flag - pg% History_Track8_file_flag = History_Track8_file_flag - pg% History_Track8_file_interval = History_Track8_file_interval - pg% History_Track8_step_min = History_Track8_step_min - pg% History_Track8_step_max = History_Track8_step_max - pg% show_History_Track8_target_box = show_History_Track8_target_box - pg% History_Track8_n_sigma = History_Track8_n_sigma - pg% History_Track8_xtarget = History_Track8_xtarget - pg% History_Track8_xsigma = History_Track8_xsigma - pg% History_Track8_ytarget = History_Track8_ytarget - pg% History_Track8_ysigma = History_Track8_ysigma - pg% History_Track8_xname = History_Track8_xname - pg% History_Track8_xaxis_label = History_Track8_xaxis_label - pg% History_Track8_yname = History_Track8_yname - pg% History_Track8_yaxis_label = History_Track8_yaxis_label - pg% History_Track8_file_dir = History_Track8_file_dir - pg% History_Track8_file_prefix = History_Track8_file_prefix - pg% show_History_Track8_annotation1 = show_History_Track8_annotation1 - pg% show_History_Track8_annotation2 = show_History_Track8_annotation2 - pg% show_History_Track8_annotation3 = show_History_Track8_annotation3 - pg% History_Track8_fname = History_Track8_fname - pg% History_Track8_reverse_xaxis = History_Track8_reverse_xaxis - pg% History_Track8_reverse_yaxis = History_Track8_reverse_yaxis - pg% History_Track8_log_xaxis = History_Track8_log_xaxis - pg% History_Track8_log_yaxis = History_Track8_log_yaxis - pg% History_Track8_xmin = History_Track8_xmin - pg% History_Track8_xmax = History_Track8_xmax - pg% History_Track8_ymin = History_Track8_ymin - pg% History_Track8_ymax = History_Track8_ymax - pg% History_Track8_xmargin = History_Track8_xmargin - pg% History_Track8_ymargin = History_Track8_ymargin - pg% History_Track8_dxmin = History_Track8_dxmin - pg% History_Track8_dymin = History_Track8_dymin - pg% History_Track8_win_width = History_Track8_win_width - pg% History_Track8_win_aspect_ratio = History_Track8_win_aspect_ratio - pg% History_Track8_file_width = History_Track8_file_width - pg% History_Track8_file_aspect_ratio = History_Track8_file_aspect_ratio - pg% History_Track8_xleft = History_Track8_xleft - pg% History_Track8_xright = History_Track8_xright - pg% History_Track8_ybot = History_Track8_ybot - pg% History_Track8_ytop = History_Track8_ytop - pg% History_Track8_txt_scale = History_Track8_txt_scale - pg% History_Track8_title = History_Track8_title - pg% History_Track8_use_decorator = History_Track8_use_decorator - - pg% History_Track9_win_flag = History_Track9_win_flag - pg% History_Track9_file_flag = History_Track9_file_flag - pg% History_Track9_file_interval = History_Track9_file_interval - pg% History_Track9_step_min = History_Track9_step_min - pg% History_Track9_step_max = History_Track9_step_max - pg% show_History_Track9_target_box = show_History_Track9_target_box - pg% History_Track9_n_sigma = History_Track9_n_sigma - pg% History_Track9_xtarget = History_Track9_xtarget - pg% History_Track9_xsigma = History_Track9_xsigma - pg% History_Track9_ytarget = History_Track9_ytarget - pg% History_Track9_ysigma = History_Track9_ysigma - pg% History_Track9_xname = History_Track9_xname - pg% History_Track9_xaxis_label = History_Track9_xaxis_label - pg% History_Track9_yname = History_Track9_yname - pg% History_Track9_yaxis_label = History_Track9_yaxis_label - pg% History_Track9_file_dir = History_Track9_file_dir - pg% History_Track9_file_prefix = History_Track9_file_prefix - pg% show_History_Track9_annotation1 = show_History_Track9_annotation1 - pg% show_History_Track9_annotation2 = show_History_Track9_annotation2 - pg% show_History_Track9_annotation3 = show_History_Track9_annotation3 - pg% History_Track9_fname = History_Track9_fname - pg% History_Track9_reverse_xaxis = History_Track9_reverse_xaxis - pg% History_Track9_reverse_yaxis = History_Track9_reverse_yaxis - pg% History_Track9_log_xaxis = History_Track9_log_xaxis - pg% History_Track9_log_yaxis = History_Track9_log_yaxis - pg% History_Track9_xmin = History_Track9_xmin - pg% History_Track9_xmax = History_Track9_xmax - pg% History_Track9_ymin = History_Track9_ymin - pg% History_Track9_ymax = History_Track9_ymax - pg% History_Track9_xmargin = History_Track9_xmargin - pg% History_Track9_ymargin = History_Track9_ymargin - pg% History_Track9_dxmin = History_Track9_dxmin - pg% History_Track9_dymin = History_Track9_dymin - pg% History_Track9_win_width = History_Track9_win_width - pg% History_Track9_win_aspect_ratio = History_Track9_win_aspect_ratio - pg% History_Track9_file_width = History_Track9_file_width - pg% History_Track9_file_aspect_ratio = History_Track9_file_aspect_ratio - pg% History_Track9_xleft = History_Track9_xleft - pg% History_Track9_xright = History_Track9_xright - pg% History_Track9_ybot = History_Track9_ybot - pg% History_Track9_ytop = History_Track9_ytop - pg% History_Track9_txt_scale = History_Track9_txt_scale - pg% History_Track9_title = History_Track9_title - pg% History_Track9_use_decorator = History_Track9_use_decorator - - pg% History_Panels1_win_flag = History_Panels1_win_flag - pg% History_Panels1_win_width = History_Panels1_win_width - pg% History_Panels1_win_aspect_ratio = History_Panels1_win_aspect_ratio - pg% History_Panels1_xleft = History_Panels1_xleft - pg% History_Panels1_xright = History_Panels1_xright - pg% History_Panels1_ybot = History_Panels1_ybot - pg% History_Panels1_ytop = History_Panels1_ytop - pg% History_Panels1_txt_scale = History_Panels1_txt_scale - pg% History_Panels1_title = History_Panels1_title - pg% History_Panels1_xmax = History_Panels1_xmax - pg% History_Panels1_xmin = History_Panels1_xmin - pg% History_Panels1_dxmin = History_Panels1_dxmin - pg% History_Panels1_max_width = History_Panels1_max_width - pg% History_Panels1_num_panels = History_Panels1_num_panels - pg% History_Panels1_xaxis_name = History_Panels1_xaxis_name - pg% History_Panels1_yaxis_name = History_Panels1_yaxis_name - pg% History_Panels1_xaxis_reversed = History_Panels1_xaxis_reversed - pg% History_Panels1_yaxis_reversed = History_Panels1_yaxis_reversed - pg% History_Panels1_xaxis_log = History_Panels1_xaxis_log - pg% History_Panels1_yaxis_log = History_Panels1_yaxis_log - pg% History_Panels1_ymin = History_Panels1_ymin - pg% History_Panels1_ymax = History_Panels1_ymax - pg% History_Panels1_dymin = History_Panels1_dymin - pg% History_Panels1_other_yaxis_name = History_Panels1_other_yaxis_name - pg% History_Panels1_other_yaxis_reversed = History_Panels1_other_yaxis_reversed - pg% History_Panels1_other_yaxis_log = History_Panels1_other_yaxis_log - pg% History_Panels1_other_ymin = History_Panels1_other_ymin - pg% History_Panels1_other_ymax = History_Panels1_other_ymax - pg% History_Panels1_other_dymin = History_Panels1_other_dymin - pg% History_Panels1_file_flag = History_Panels1_file_flag - pg% History_Panels1_points_name = History_Panels1_points_name - pg% History_Panels1_file_dir = History_Panels1_file_dir - pg% History_Panels1_file_prefix = History_Panels1_file_prefix - pg% History_Panels1_file_interval = History_Panels1_file_interval - pg% History_Panels1_file_width = History_Panels1_file_width - pg% History_Panels1_file_aspect_ratio = History_Panels1_file_aspect_ratio - pg% History_Panels1_xmargin = History_Panels1_xmargin - pg% History_Panels1_ymargin = History_Panels1_ymargin - pg% History_Panels1_other_ymargin = History_Panels1_other_ymargin - pg% History_Panels1_use_decorator = History_Panels1_use_decorator - - pg% History_Panels2_win_flag = History_Panels2_win_flag - pg% History_Panels2_win_width = History_Panels2_win_width - pg% History_Panels2_win_aspect_ratio = History_Panels2_win_aspect_ratio - pg% History_Panels2_xleft = History_Panels2_xleft - pg% History_Panels2_xright = History_Panels2_xright - pg% History_Panels2_ybot = History_Panels2_ybot - pg% History_Panels2_ytop = History_Panels2_ytop - pg% History_Panels2_txt_scale = History_Panels2_txt_scale - pg% History_Panels2_title = History_Panels2_title - pg% History_Panels2_xmax = History_Panels2_xmax - pg% History_Panels2_xmin = History_Panels2_xmin - pg% History_Panels2_dxmin = History_Panels2_dxmin - pg% History_Panels2_max_width = History_Panels2_max_width - pg% History_Panels2_num_panels = History_Panels2_num_panels - pg% History_Panels2_xaxis_name = History_Panels2_xaxis_name - pg% History_Panels2_yaxis_name = History_Panels2_yaxis_name - pg% History_Panels2_xaxis_reversed = History_Panels2_xaxis_reversed - pg% History_Panels2_yaxis_reversed = History_Panels2_yaxis_reversed - pg% History_Panels2_xaxis_log = History_Panels2_xaxis_log - pg% History_Panels2_yaxis_log = History_Panels2_yaxis_log - pg% History_Panels2_ymin = History_Panels2_ymin - pg% History_Panels2_ymax = History_Panels2_ymax - pg% History_Panels2_dymin = History_Panels2_dymin - pg% History_Panels2_other_yaxis_name = History_Panels2_other_yaxis_name - pg% History_Panels2_other_yaxis_reversed = History_Panels2_other_yaxis_reversed - pg% History_Panels2_other_yaxis_log = History_Panels2_other_yaxis_log - pg% History_Panels2_other_ymin = History_Panels2_other_ymin - pg% History_Panels2_other_ymax = History_Panels2_other_ymax - pg% History_Panels2_other_dymin = History_Panels2_other_dymin - pg% History_Panels2_file_flag = History_Panels2_file_flag - pg% History_Panels2_points_name = History_Panels2_points_name - pg% History_Panels2_file_dir = History_Panels2_file_dir - pg% History_Panels2_file_prefix = History_Panels2_file_prefix - pg% History_Panels2_file_interval = History_Panels2_file_interval - pg% History_Panels2_file_width = History_Panels2_file_width - pg% History_Panels2_file_aspect_ratio = History_Panels2_file_aspect_ratio - pg% History_Panels2_xmargin = History_Panels2_xmargin - pg% History_Panels2_ymargin = History_Panels2_ymargin - pg% History_Panels2_other_ymargin = History_Panels2_other_ymargin - pg% History_Panels2_use_decorator = History_Panels2_use_decorator - - pg% History_Panels3_win_flag = History_Panels3_win_flag - pg% History_Panels3_win_width = History_Panels3_win_width - pg% History_Panels3_win_aspect_ratio = History_Panels3_win_aspect_ratio - pg% History_Panels3_xleft = History_Panels3_xleft - pg% History_Panels3_xright = History_Panels3_xright - pg% History_Panels3_ybot = History_Panels3_ybot - pg% History_Panels3_ytop = History_Panels3_ytop - pg% History_Panels3_txt_scale = History_Panels3_txt_scale - pg% History_Panels3_title = History_Panels3_title - pg% History_Panels3_xmax = History_Panels3_xmax - pg% History_Panels3_xmin = History_Panels3_xmin - pg% History_Panels3_dxmin = History_Panels3_dxmin - pg% History_Panels3_max_width = History_Panels3_max_width - pg% History_Panels3_num_panels = History_Panels3_num_panels - pg% History_Panels3_xaxis_name = History_Panels3_xaxis_name - pg% History_Panels3_yaxis_name = History_Panels3_yaxis_name - pg% History_Panels3_xaxis_reversed = History_Panels3_xaxis_reversed - pg% History_Panels3_yaxis_reversed = History_Panels3_yaxis_reversed - pg% History_Panels3_xaxis_log = History_Panels3_xaxis_log - pg% History_Panels3_yaxis_log = History_Panels3_yaxis_log - pg% History_Panels3_ymin = History_Panels3_ymin - pg% History_Panels3_ymax = History_Panels3_ymax - pg% History_Panels3_dymin = History_Panels3_dymin - pg% History_Panels3_other_yaxis_name = History_Panels3_other_yaxis_name - pg% History_Panels3_other_yaxis_reversed = History_Panels3_other_yaxis_reversed - pg% History_Panels3_other_yaxis_log = History_Panels3_other_yaxis_log - pg% History_Panels3_other_ymin = History_Panels3_other_ymin - pg% History_Panels3_other_ymax = History_Panels3_other_ymax - pg% History_Panels3_other_dymin = History_Panels3_other_dymin - pg% History_Panels3_file_flag = History_Panels3_file_flag - pg% History_Panels3_points_name = History_Panels3_points_name - pg% History_Panels3_file_dir = History_Panels3_file_dir - pg% History_Panels3_file_prefix = History_Panels3_file_prefix - pg% History_Panels3_file_interval = History_Panels3_file_interval - pg% History_Panels3_file_width = History_Panels3_file_width - pg% History_Panels3_file_aspect_ratio = History_Panels3_file_aspect_ratio - pg% History_Panels3_xmargin = History_Panels3_xmargin - pg% History_Panels3_ymargin = History_Panels3_ymargin - pg% History_Panels3_other_ymargin = History_Panels3_other_ymargin - pg% History_Panels3_use_decorator = History_Panels3_use_decorator - - pg% History_Panels4_win_flag = History_Panels4_win_flag - pg% History_Panels4_win_width = History_Panels4_win_width - pg% History_Panels4_win_aspect_ratio = History_Panels4_win_aspect_ratio - pg% History_Panels4_xleft = History_Panels4_xleft - pg% History_Panels4_xright = History_Panels4_xright - pg% History_Panels4_ybot = History_Panels4_ybot - pg% History_Panels4_ytop = History_Panels4_ytop - pg% History_Panels4_txt_scale = History_Panels4_txt_scale - pg% History_Panels4_title = History_Panels4_title - pg% History_Panels4_xmax = History_Panels4_xmax - pg% History_Panels4_xmin = History_Panels4_xmin - pg% History_Panels4_dxmin = History_Panels4_dxmin - pg% History_Panels4_max_width = History_Panels4_max_width - pg% History_Panels4_num_panels = History_Panels4_num_panels - pg% History_Panels4_xaxis_name = History_Panels4_xaxis_name - pg% History_Panels4_yaxis_name = History_Panels4_yaxis_name - pg% History_Panels4_xaxis_reversed = History_Panels4_xaxis_reversed - pg% History_Panels4_yaxis_reversed = History_Panels4_yaxis_reversed - pg% History_Panels4_xaxis_log = History_Panels4_xaxis_log - pg% History_Panels4_yaxis_log = History_Panels4_yaxis_log - pg% History_Panels4_ymin = History_Panels4_ymin - pg% History_Panels4_ymax = History_Panels4_ymax - pg% History_Panels4_dymin = History_Panels4_dymin - pg% History_Panels4_other_yaxis_name = History_Panels4_other_yaxis_name - pg% History_Panels4_other_yaxis_reversed = History_Panels4_other_yaxis_reversed - pg% History_Panels4_other_yaxis_log = History_Panels4_other_yaxis_log - pg% History_Panels4_other_ymin = History_Panels4_other_ymin - pg% History_Panels4_other_ymax = History_Panels4_other_ymax - pg% History_Panels4_other_dymin = History_Panels4_other_dymin - pg% History_Panels4_file_flag = History_Panels4_file_flag - pg% History_Panels4_points_name = History_Panels4_points_name - pg% History_Panels4_file_dir = History_Panels4_file_dir - pg% History_Panels4_file_prefix = History_Panels4_file_prefix - pg% History_Panels4_file_interval = History_Panels4_file_interval - pg% History_Panels4_file_width = History_Panels4_file_width - pg% History_Panels4_file_aspect_ratio = History_Panels4_file_aspect_ratio - pg% History_Panels4_xmargin = History_Panels4_xmargin - pg% History_Panels4_ymargin = History_Panels4_ymargin - pg% History_Panels4_other_ymargin = History_Panels4_other_ymargin - pg% History_Panels4_use_decorator = History_Panels4_use_decorator - - pg% History_Panels5_win_flag = History_Panels5_win_flag - pg% History_Panels5_win_width = History_Panels5_win_width - pg% History_Panels5_win_aspect_ratio = History_Panels5_win_aspect_ratio - pg% History_Panels5_xleft = History_Panels5_xleft - pg% History_Panels5_xright = History_Panels5_xright - pg% History_Panels5_ybot = History_Panels5_ybot - pg% History_Panels5_ytop = History_Panels5_ytop - pg% History_Panels5_txt_scale = History_Panels5_txt_scale - pg% History_Panels5_title = History_Panels5_title - pg% History_Panels5_xmax = History_Panels5_xmax - pg% History_Panels5_xmin = History_Panels5_xmin - pg% History_Panels5_dxmin = History_Panels5_dxmin - pg% History_Panels5_max_width = History_Panels5_max_width - pg% History_Panels5_num_panels = History_Panels5_num_panels - pg% History_Panels5_xaxis_name = History_Panels5_xaxis_name - pg% History_Panels5_yaxis_name = History_Panels5_yaxis_name - pg% History_Panels5_xaxis_reversed = History_Panels5_xaxis_reversed - pg% History_Panels5_yaxis_reversed = History_Panels5_yaxis_reversed - pg% History_Panels5_xaxis_log = History_Panels5_xaxis_log - pg% History_Panels5_yaxis_log = History_Panels5_yaxis_log - pg% History_Panels5_ymin = History_Panels5_ymin - pg% History_Panels5_ymax = History_Panels5_ymax - pg% History_Panels5_dymin = History_Panels5_dymin - pg% History_Panels5_other_yaxis_name = History_Panels5_other_yaxis_name - pg% History_Panels5_other_yaxis_reversed = History_Panels5_other_yaxis_reversed - pg% History_Panels5_other_yaxis_log = History_Panels5_other_yaxis_log - pg% History_Panels5_other_ymin = History_Panels5_other_ymin - pg% History_Panels5_other_ymax = History_Panels5_other_ymax - pg% History_Panels5_other_dymin = History_Panels5_other_dymin - pg% History_Panels5_file_flag = History_Panels5_file_flag - pg% History_Panels5_points_name = History_Panels5_points_name - pg% History_Panels5_file_dir = History_Panels5_file_dir - pg% History_Panels5_file_prefix = History_Panels5_file_prefix - pg% History_Panels5_file_interval = History_Panels5_file_interval - pg% History_Panels5_file_width = History_Panels5_file_width - pg% History_Panels5_file_aspect_ratio = History_Panels5_file_aspect_ratio - pg% History_Panels5_xmargin = History_Panels5_xmargin - pg% History_Panels5_ymargin = History_Panels5_ymargin - pg% History_Panels5_other_ymargin = History_Panels5_other_ymargin - pg% History_Panels5_use_decorator = History_Panels5_use_decorator - - pg% History_Panels6_win_flag = History_Panels6_win_flag - pg% History_Panels6_win_width = History_Panels6_win_width - pg% History_Panels6_win_aspect_ratio = History_Panels6_win_aspect_ratio - pg% History_Panels6_xleft = History_Panels6_xleft - pg% History_Panels6_xright = History_Panels6_xright - pg% History_Panels6_ybot = History_Panels6_ybot - pg% History_Panels6_ytop = History_Panels6_ytop - pg% History_Panels6_txt_scale = History_Panels6_txt_scale - pg% History_Panels6_title = History_Panels6_title - pg% History_Panels6_xmax = History_Panels6_xmax - pg% History_Panels6_xmin = History_Panels6_xmin - pg% History_Panels6_dxmin = History_Panels6_dxmin - pg% History_Panels6_max_width = History_Panels6_max_width - pg% History_Panels6_num_panels = History_Panels6_num_panels - pg% History_Panels6_xaxis_name = History_Panels6_xaxis_name - pg% History_Panels6_yaxis_name = History_Panels6_yaxis_name - pg% History_Panels6_xaxis_reversed = History_Panels6_xaxis_reversed - pg% History_Panels6_yaxis_reversed = History_Panels6_yaxis_reversed - pg% History_Panels6_xaxis_log = History_Panels6_xaxis_log - pg% History_Panels6_yaxis_log = History_Panels6_yaxis_log - pg% History_Panels6_ymin = History_Panels6_ymin - pg% History_Panels6_ymax = History_Panels6_ymax - pg% History_Panels6_dymin = History_Panels6_dymin - pg% History_Panels6_other_yaxis_name = History_Panels6_other_yaxis_name - pg% History_Panels6_other_yaxis_reversed = History_Panels6_other_yaxis_reversed - pg% History_Panels6_other_yaxis_log = History_Panels6_other_yaxis_log - pg% History_Panels6_other_ymin = History_Panels6_other_ymin - pg% History_Panels6_other_ymax = History_Panels6_other_ymax - pg% History_Panels6_other_dymin = History_Panels6_other_dymin - pg% History_Panels6_file_flag = History_Panels6_file_flag - pg% History_Panels6_points_name = History_Panels6_points_name - pg% History_Panels6_file_dir = History_Panels6_file_dir - pg% History_Panels6_file_prefix = History_Panels6_file_prefix - pg% History_Panels6_file_interval = History_Panels6_file_interval - pg% History_Panels6_file_width = History_Panels6_file_width - pg% History_Panels6_file_aspect_ratio = History_Panels6_file_aspect_ratio - pg% History_Panels6_xmargin = History_Panels6_xmargin - pg% History_Panels6_ymargin = History_Panels6_ymargin - pg% History_Panels6_other_ymargin = History_Panels6_other_ymargin - pg% History_Panels6_use_decorator = History_Panels6_use_decorator - - pg% History_Panels7_win_flag = History_Panels7_win_flag - pg% History_Panels7_win_width = History_Panels7_win_width - pg% History_Panels7_win_aspect_ratio = History_Panels7_win_aspect_ratio - pg% History_Panels7_xleft = History_Panels7_xleft - pg% History_Panels7_xright = History_Panels7_xright - pg% History_Panels7_ybot = History_Panels7_ybot - pg% History_Panels7_ytop = History_Panels7_ytop - pg% History_Panels7_txt_scale = History_Panels7_txt_scale - pg% History_Panels7_title = History_Panels7_title - pg% History_Panels7_xmax = History_Panels7_xmax - pg% History_Panels7_xmin = History_Panels7_xmin - pg% History_Panels7_dxmin = History_Panels7_dxmin - pg% History_Panels7_max_width = History_Panels7_max_width - pg% History_Panels7_num_panels = History_Panels7_num_panels - pg% History_Panels7_xaxis_name = History_Panels7_xaxis_name - pg% History_Panels7_yaxis_name = History_Panels7_yaxis_name - pg% History_Panels7_xaxis_reversed = History_Panels7_xaxis_reversed - pg% History_Panels7_yaxis_reversed = History_Panels7_yaxis_reversed - pg% History_Panels7_xaxis_log = History_Panels7_xaxis_log - pg% History_Panels7_yaxis_log = History_Panels7_yaxis_log - pg% History_Panels7_ymin = History_Panels7_ymin - pg% History_Panels7_ymax = History_Panels7_ymax - pg% History_Panels7_dymin = History_Panels7_dymin - pg% History_Panels7_other_yaxis_name = History_Panels7_other_yaxis_name - pg% History_Panels7_other_yaxis_reversed = History_Panels7_other_yaxis_reversed - pg% History_Panels7_other_yaxis_log = History_Panels7_other_yaxis_log - pg% History_Panels7_other_ymin = History_Panels7_other_ymin - pg% History_Panels7_other_ymax = History_Panels7_other_ymax - pg% History_Panels7_other_dymin = History_Panels7_other_dymin - pg% History_Panels7_file_flag = History_Panels7_file_flag - pg% History_Panels7_points_name = History_Panels7_points_name - pg% History_Panels7_file_dir = History_Panels7_file_dir - pg% History_Panels7_file_prefix = History_Panels7_file_prefix - pg% History_Panels7_file_interval = History_Panels7_file_interval - pg% History_Panels7_file_width = History_Panels7_file_width - pg% History_Panels7_file_aspect_ratio = History_Panels7_file_aspect_ratio - pg% History_Panels7_xmargin = History_Panels7_xmargin - pg% History_Panels7_ymargin = History_Panels7_ymargin - pg% History_Panels7_other_ymargin = History_Panels7_other_ymargin - pg% History_Panels7_use_decorator = History_Panels7_use_decorator - - pg% History_Panels8_win_flag = History_Panels8_win_flag - pg% History_Panels8_win_width = History_Panels8_win_width - pg% History_Panels8_win_aspect_ratio = History_Panels8_win_aspect_ratio - pg% History_Panels8_xleft = History_Panels8_xleft - pg% History_Panels8_xright = History_Panels8_xright - pg% History_Panels8_ybot = History_Panels8_ybot - pg% History_Panels8_ytop = History_Panels8_ytop - pg% History_Panels8_txt_scale = History_Panels8_txt_scale - pg% History_Panels8_title = History_Panels8_title - pg% History_Panels8_xmax = History_Panels8_xmax - pg% History_Panels8_xmin = History_Panels8_xmin - pg% History_Panels8_dxmin = History_Panels8_dxmin - pg% History_Panels8_max_width = History_Panels8_max_width - pg% History_Panels8_num_panels = History_Panels8_num_panels - pg% History_Panels8_xaxis_name = History_Panels8_xaxis_name - pg% History_Panels8_yaxis_name = History_Panels8_yaxis_name - pg% History_Panels8_xaxis_reversed = History_Panels8_xaxis_reversed - pg% History_Panels8_yaxis_reversed = History_Panels8_yaxis_reversed - pg% History_Panels8_xaxis_log = History_Panels8_xaxis_log - pg% History_Panels8_yaxis_log = History_Panels8_yaxis_log - pg% History_Panels8_ymin = History_Panels8_ymin - pg% History_Panels8_ymax = History_Panels8_ymax - pg% History_Panels8_dymin = History_Panels8_dymin - pg% History_Panels8_other_yaxis_name = History_Panels8_other_yaxis_name - pg% History_Panels8_other_yaxis_reversed = History_Panels8_other_yaxis_reversed - pg% History_Panels8_other_yaxis_log = History_Panels8_other_yaxis_log - pg% History_Panels8_other_ymin = History_Panels8_other_ymin - pg% History_Panels8_other_ymax = History_Panels8_other_ymax - pg% History_Panels8_other_dymin = History_Panels8_other_dymin - pg% History_Panels8_file_flag = History_Panels8_file_flag - pg% History_Panels8_points_name = History_Panels8_points_name - pg% History_Panels8_file_dir = History_Panels8_file_dir - pg% History_Panels8_file_prefix = History_Panels8_file_prefix - pg% History_Panels8_file_interval = History_Panels8_file_interval - pg% History_Panels8_file_width = History_Panels8_file_width - pg% History_Panels8_file_aspect_ratio = History_Panels8_file_aspect_ratio - pg% History_Panels8_xmargin = History_Panels8_xmargin - pg% History_Panels8_ymargin = History_Panels8_ymargin - pg% History_Panels8_other_ymargin = History_Panels8_other_ymargin - pg% History_Panels8_use_decorator = History_Panels8_use_decorator - - pg% History_Panels9_win_flag = History_Panels9_win_flag - pg% History_Panels9_win_width = History_Panels9_win_width - pg% History_Panels9_win_aspect_ratio = History_Panels9_win_aspect_ratio - pg% History_Panels9_xleft = History_Panels9_xleft - pg% History_Panels9_xright = History_Panels9_xright - pg% History_Panels9_ybot = History_Panels9_ybot - pg% History_Panels9_ytop = History_Panels9_ytop - pg% History_Panels9_txt_scale = History_Panels9_txt_scale - pg% History_Panels9_title = History_Panels9_title - pg% History_Panels9_xmax = History_Panels9_xmax - pg% History_Panels9_xmin = History_Panels9_xmin - pg% History_Panels9_dxmin = History_Panels9_dxmin - pg% History_Panels9_max_width = History_Panels9_max_width - pg% History_Panels9_num_panels = History_Panels9_num_panels - pg% History_Panels9_xaxis_name = History_Panels9_xaxis_name - pg% History_Panels9_yaxis_name = History_Panels9_yaxis_name - pg% History_Panels9_xaxis_reversed = History_Panels9_xaxis_reversed - pg% History_Panels9_yaxis_reversed = History_Panels9_yaxis_reversed - pg% History_Panels9_xaxis_log = History_Panels9_xaxis_log - pg% History_Panels9_yaxis_log = History_Panels9_yaxis_log - pg% History_Panels9_ymin = History_Panels9_ymin - pg% History_Panels9_ymax = History_Panels9_ymax - pg% History_Panels9_dymin = History_Panels9_dymin - pg% History_Panels9_other_yaxis_name = History_Panels9_other_yaxis_name - pg% History_Panels9_other_yaxis_reversed = History_Panels9_other_yaxis_reversed - pg% History_Panels9_other_yaxis_log = History_Panels9_other_yaxis_log - pg% History_Panels9_other_ymin = History_Panels9_other_ymin - pg% History_Panels9_other_ymax = History_Panels9_other_ymax - pg% History_Panels9_other_dymin = History_Panels9_other_dymin - pg% History_Panels9_file_flag = History_Panels9_file_flag - pg% History_Panels9_points_name = History_Panels9_points_name - pg% History_Panels9_file_flag = History_Panels9_file_flag - pg% History_Panels9_file_dir = History_Panels9_file_dir - pg% History_Panels9_file_prefix = History_Panels9_file_prefix - pg% History_Panels9_file_interval = History_Panels9_file_interval - pg% History_Panels9_file_width = History_Panels9_file_width - pg% History_Panels9_file_aspect_ratio = History_Panels9_file_aspect_ratio - pg% History_Panels9_xmargin = History_Panels9_xmargin - pg% History_Panels9_ymargin = History_Panels9_ymargin - pg% History_Panels9_other_ymargin = History_Panels9_other_ymargin - pg% History_Panels9_use_decorator = History_Panels9_use_decorator + pg% Text_Summary_win_flag = Text_Summary_win_flag + pg% Text_Summary_file_flag = Text_Summary_file_flag + pg% Text_Summary_file_interval = Text_Summary_file_interval + pg% Text_Summary_file_dir = Text_Summary_file_dir + pg% Text_Summary_file_prefix = Text_Summary_file_prefix + pg% Text_Summary_num_cols = Text_Summary_num_cols + pg% Text_Summary_num_rows = Text_Summary_num_rows + pg% Text_Summary_name = Text_Summary_name + pg% Text_Summary_win_width = Text_Summary_win_width + pg% Text_Summary_win_aspect_ratio = Text_Summary_win_aspect_ratio + pg% Text_Summary_file_width = Text_Summary_file_width + pg% Text_Summary_file_aspect_ratio = Text_Summary_file_aspect_ratio + pg% Text_Summary_title = Text_Summary_title + pg% Text_Summary_xleft = Text_Summary_xleft + pg% Text_Summary_xright = Text_Summary_xright + pg% Text_Summary_ybot = Text_Summary_ybot + pg% Text_Summary_ytop = Text_Summary_ytop + pg% Text_Summary_txt_scale = Text_Summary_txt_scale + + pg% History_Track_win_flag = History_Track_win_flag + pg% History_Track_file_flag = History_Track_file_flag + pg% History_Track_file_interval = History_Track_file_interval + pg% History_Track_step_min = History_Track_step_min + pg% History_Track_step_max = History_Track_step_max + pg% show_History_Track_target_box = show_History_Track_target_box + pg% History_Track_n_sigma = History_Track_n_sigma + pg% History_Track_xtarget = History_Track_xtarget + pg% History_Track_xsigma = History_Track_xsigma + pg% History_Track_ytarget = History_Track_ytarget + pg% History_Track_ysigma = History_Track_ysigma + pg% History_Track_file_dir = History_Track_file_dir + pg% History_Track_file_prefix = History_Track_file_prefix + pg% show_History_Track_annotation1 = show_History_Track_annotation1 + pg% show_History_Track_annotation2 = show_History_Track_annotation2 + pg% show_History_Track_annotation3 = show_History_Track_annotation3 + pg% History_Track_fname = History_Track_fname + pg% History_Track_xname = History_Track_xname + pg% History_Track_xaxis_label = History_Track_xaxis_label + pg% History_Track_yname = History_Track_yname + pg% History_Track_yaxis_label = History_Track_yaxis_label + pg% History_Track_reverse_xaxis = History_Track_reverse_xaxis + pg% History_Track_reverse_yaxis = History_Track_reverse_yaxis + pg% History_Track_log_xaxis = History_Track_log_xaxis + pg% History_Track_log_yaxis = History_Track_log_yaxis + pg% History_Track_xmin = History_Track_xmin + pg% History_Track_xmax = History_Track_xmax + pg% History_Track_ymin = History_Track_ymin + pg% History_Track_ymax = History_Track_ymax + pg% History_Track_xmargin = History_Track_xmargin + pg% History_Track_ymargin = History_Track_ymargin + pg% History_Track_dxmin = History_Track_dxmin + pg% History_Track_dymin = History_Track_dymin + pg% History_Track_win_width = History_Track_win_width + pg% History_Track_win_aspect_ratio = History_Track_win_aspect_ratio + pg% History_Track_file_width = History_Track_file_width + pg% History_Track_file_aspect_ratio = History_Track_file_aspect_ratio + pg% History_Track_xleft = History_Track_xleft + pg% History_Track_xright = History_Track_xright + pg% History_Track_ybot = History_Track_ybot + pg% History_Track_ytop = History_Track_ytop + pg% History_Track_txt_scale = History_Track_txt_scale + pg% History_Track_title = History_Track_title + pg% History_Track_use_decorator = History_Track_use_decorator + + pg% History_Panels_win_flag = History_Panels_win_flag + pg% History_Panels_win_width = History_Panels_win_width + pg% History_Panels_win_aspect_ratio = History_Panels_win_aspect_ratio + pg% History_Panels_xleft = History_Panels_xleft + pg% History_Panels_xright = History_Panels_xright + pg% History_Panels_ybot = History_Panels_ybot + pg% History_Panels_ytop = History_Panels_ytop + pg% History_Panels_txt_scale = History_Panels_txt_scale + pg% History_Panels_title = History_Panels_title + pg% History_Panels_xmax = History_Panels_xmax + pg% History_Panels_xmin = History_Panels_xmin + pg% History_Panels_dxmin = History_Panels_dxmin + pg% History_Panels_max_width = History_Panels_max_width + pg% History_Panels_num_panels = History_Panels_num_panels + pg% History_Panels_xaxis_name = History_Panels_xaxis_name + pg% History_Panels_yaxis_name = History_Panels_yaxis_name + pg% History_Panels_xaxis_reversed = History_Panels_xaxis_reversed + pg% History_Panels_yaxis_reversed = History_Panels_yaxis_reversed + pg% History_Panels_xaxis_log = History_Panels_xaxis_log + pg% History_Panels_yaxis_log = History_Panels_yaxis_log + pg% History_Panels_ymin = History_Panels_ymin + pg% History_Panels_ymax = History_Panels_ymax + pg% History_Panels_dymin = History_Panels_dymin + pg% History_Panels_other_yaxis_name = History_Panels_other_yaxis_name + pg% History_Panels_other_yaxis_reversed = History_Panels_other_yaxis_reversed + pg% History_Panels_other_yaxis_log = History_Panels_other_yaxis_log + pg% History_Panels_other_ymin = History_Panels_other_ymin + pg% History_Panels_other_ymax = History_Panels_other_ymax + pg% History_Panels_other_dymin = History_Panels_other_dymin + pg% History_Panels_file_flag = History_Panels_file_flag + pg% History_Panels_points_name = History_Panels_points_name + pg% History_Panels_file_dir = History_Panels_file_dir + pg% History_Panels_file_prefix = History_Panels_file_prefix + pg% History_Panels_file_interval = History_Panels_file_interval + pg% History_Panels_file_width = History_Panels_file_width + pg% History_Panels_file_aspect_ratio = History_Panels_file_aspect_ratio + pg% History_Panels_xmargin = History_Panels_xmargin + pg% History_Panels_ymargin = History_Panels_ymargin + pg% History_Panels_other_ymargin = History_Panels_other_ymargin + pg% History_Panels_use_decorator = History_Panels_use_decorator pg% History_Panel_points_error_bars = History_Panel_points_error_bars pg% History_Panel_points_interval = History_Panel_points_interval @@ -2493,257 +635,33 @@ subroutine store_pgbinary_controls(b, ierr) pg% Summary_History_num_lines = Summary_History_num_lines pg% Summary_History_use_decorator = Summary_History_use_decorator - pg% Grid1_win_flag = Grid1_win_flag - pg% Grid1_win_width = Grid1_win_width - pg% Grid1_win_aspect_ratio = Grid1_win_aspect_ratio - pg% Grid1_xleft = Grid1_xleft - pg% Grid1_xright = Grid1_xright - pg% Grid1_ybot = Grid1_ybot - pg% Grid1_ytop = Grid1_ytop - pg% Grid1_title = Grid1_title - pg% Grid1_txt_scale_factor = Grid1_txt_scale_factor - pg% Grid1_num_cols = Grid1_num_cols - pg% Grid1_num_rows = Grid1_num_rows - pg% Grid1_num_plots = Grid1_num_plots - pg% Grid1_plot_name = Grid1_plot_name - pg% Grid1_plot_row = Grid1_plot_row - pg% Grid1_plot_rowspan = Grid1_plot_rowspan - pg% Grid1_plot_col = Grid1_plot_col - pg% Grid1_plot_colspan = Grid1_plot_colspan - pg% Grid1_plot_pad_left = Grid1_plot_pad_left - pg% Grid1_plot_pad_right = Grid1_plot_pad_right - pg% Grid1_plot_pad_top = Grid1_plot_pad_top - pg% Grid1_plot_pad_bot = Grid1_plot_pad_bot - pg% Grid1_file_flag = Grid1_file_flag - pg% Grid1_file_dir = Grid1_file_dir - pg% Grid1_file_prefix = Grid1_file_prefix - pg% Grid1_file_interval = Grid1_file_interval - pg% Grid1_file_width = Grid1_file_width - pg% Grid1_file_aspect_ratio = Grid1_file_aspect_ratio - - pg% Grid2_win_flag = Grid2_win_flag - pg% Grid2_win_width = Grid2_win_width - pg% Grid2_win_aspect_ratio = Grid2_win_aspect_ratio - pg% Grid2_xleft = Grid2_xleft - pg% Grid2_xright = Grid2_xright - pg% Grid2_ybot = Grid2_ybot - pg% Grid2_ytop = Grid2_ytop - pg% Grid2_title = Grid2_title - pg% Grid2_txt_scale_factor = Grid2_txt_scale_factor - pg% Grid2_num_cols = Grid2_num_cols - pg% Grid2_num_rows = Grid2_num_rows - pg% Grid2_num_plots = Grid2_num_plots - pg% Grid2_plot_name = Grid2_plot_name - pg% Grid2_plot_row = Grid2_plot_row - pg% Grid2_plot_rowspan = Grid2_plot_rowspan - pg% Grid2_plot_col = Grid2_plot_col - pg% Grid2_plot_colspan = Grid2_plot_colspan - pg% Grid2_plot_pad_left = Grid2_plot_pad_left - pg% Grid2_plot_pad_right = Grid2_plot_pad_right - pg% Grid2_plot_pad_top = Grid2_plot_pad_top - pg% Grid2_plot_pad_bot = Grid2_plot_pad_bot - pg% Grid2_file_flag = Grid2_file_flag - pg% Grid2_file_dir = Grid2_file_dir - pg% Grid2_file_prefix = Grid2_file_prefix - pg% Grid2_file_interval = Grid2_file_interval - pg% Grid2_file_width = Grid2_file_width - pg% Grid2_file_aspect_ratio = Grid2_file_aspect_ratio - - pg% Grid3_win_flag = Grid3_win_flag - pg% Grid3_win_width = Grid3_win_width - pg% Grid3_win_aspect_ratio = Grid3_win_aspect_ratio - pg% Grid3_xleft = Grid3_xleft - pg% Grid3_xright = Grid3_xright - pg% Grid3_ybot = Grid3_ybot - pg% Grid3_ytop = Grid3_ytop - pg% Grid3_title = Grid3_title - pg% Grid3_txt_scale_factor = Grid3_txt_scale_factor - pg% Grid3_num_cols = Grid3_num_cols - pg% Grid3_num_rows = Grid3_num_rows - pg% Grid3_num_plots = Grid3_num_plots - pg% Grid3_plot_name = Grid3_plot_name - pg% Grid3_plot_row = Grid3_plot_row - pg% Grid3_plot_rowspan = Grid3_plot_rowspan - pg% Grid3_plot_col = Grid3_plot_col - pg% Grid3_plot_colspan = Grid3_plot_colspan - pg% Grid3_plot_pad_left = Grid3_plot_pad_left - pg% Grid3_plot_pad_right = Grid3_plot_pad_right - pg% Grid3_plot_pad_top = Grid3_plot_pad_top - pg% Grid3_plot_pad_bot = Grid3_plot_pad_bot - pg% Grid3_file_flag = Grid3_file_flag - pg% Grid3_file_dir = Grid3_file_dir - pg% Grid3_file_prefix = Grid3_file_prefix - pg% Grid3_file_interval = Grid3_file_interval - pg% Grid3_file_width = Grid3_file_width - pg% Grid3_file_aspect_ratio = Grid3_file_aspect_ratio - - pg% Grid4_win_flag = Grid4_win_flag - pg% Grid4_win_width = Grid4_win_width - pg% Grid4_win_aspect_ratio = Grid4_win_aspect_ratio - pg% Grid4_xleft = Grid4_xleft - pg% Grid4_xright = Grid4_xright - pg% Grid4_ybot = Grid4_ybot - pg% Grid4_ytop = Grid4_ytop - pg% Grid4_title = Grid4_title - pg% Grid4_txt_scale_factor = Grid4_txt_scale_factor - pg% Grid4_num_cols = Grid4_num_cols - pg% Grid4_num_rows = Grid4_num_rows - pg% Grid4_num_plots = Grid4_num_plots - pg% Grid4_plot_name = Grid4_plot_name - pg% Grid4_plot_row = Grid4_plot_row - pg% Grid4_plot_rowspan = Grid4_plot_rowspan - pg% Grid4_plot_col = Grid4_plot_col - pg% Grid4_plot_colspan = Grid4_plot_colspan - pg% Grid4_plot_pad_left = Grid4_plot_pad_left - pg% Grid4_plot_pad_right = Grid4_plot_pad_right - pg% Grid4_plot_pad_top = Grid4_plot_pad_top - pg% Grid4_plot_pad_bot = Grid4_plot_pad_bot - pg% Grid4_file_flag = Grid4_file_flag - pg% Grid4_file_dir = Grid4_file_dir - pg% Grid4_file_prefix = Grid4_file_prefix - pg% Grid4_file_interval = Grid4_file_interval - pg% Grid4_file_width = Grid4_file_width - pg% Grid4_file_aspect_ratio = Grid4_file_aspect_ratio - - pg% Grid5_win_flag = Grid5_win_flag - pg% Grid5_win_width = Grid5_win_width - pg% Grid5_win_aspect_ratio = Grid5_win_aspect_ratio - pg% Grid5_xleft = Grid5_xleft - pg% Grid5_xright = Grid5_xright - pg% Grid5_ybot = Grid5_ybot - pg% Grid5_ytop = Grid5_ytop - pg% Grid5_title = Grid5_title - pg% Grid5_txt_scale_factor = Grid5_txt_scale_factor - pg% Grid5_num_cols = Grid5_num_cols - pg% Grid5_num_rows = Grid5_num_rows - pg% Grid5_num_plots = Grid5_num_plots - pg% Grid5_plot_name = Grid5_plot_name - pg% Grid5_plot_row = Grid5_plot_row - pg% Grid5_plot_rowspan = Grid5_plot_rowspan - pg% Grid5_plot_col = Grid5_plot_col - pg% Grid5_plot_colspan = Grid5_plot_colspan - pg% Grid5_plot_pad_left = Grid5_plot_pad_left - pg% Grid5_plot_pad_right = Grid5_plot_pad_right - pg% Grid5_plot_pad_top = Grid5_plot_pad_top - pg% Grid5_plot_pad_bot = Grid5_plot_pad_bot - pg% Grid5_file_flag = Grid5_file_flag - pg% Grid5_file_dir = Grid5_file_dir - pg% Grid5_file_prefix = Grid5_file_prefix - pg% Grid5_file_interval = Grid5_file_interval - pg% Grid5_file_width = Grid5_file_width - pg% Grid5_file_aspect_ratio = Grid5_file_aspect_ratio - - pg% Grid6_win_flag = Grid6_win_flag - pg% Grid6_win_width = Grid6_win_width - pg% Grid6_win_aspect_ratio = Grid6_win_aspect_ratio - pg% Grid6_xleft = Grid6_xleft - pg% Grid6_xright = Grid6_xright - pg% Grid6_ybot = Grid6_ybot - pg% Grid6_ytop = Grid6_ytop - pg% Grid6_title = Grid6_title - pg% Grid6_txt_scale_factor = Grid6_txt_scale_factor - pg% Grid6_num_cols = Grid6_num_cols - pg% Grid6_num_rows = Grid6_num_rows - pg% Grid6_num_plots = Grid6_num_plots - pg% Grid6_plot_name = Grid6_plot_name - pg% Grid6_plot_row = Grid6_plot_row - pg% Grid6_plot_rowspan = Grid6_plot_rowspan - pg% Grid6_plot_col = Grid6_plot_col - pg% Grid6_plot_colspan = Grid6_plot_colspan - pg% Grid6_plot_pad_left = Grid6_plot_pad_left - pg% Grid6_plot_pad_right = Grid6_plot_pad_right - pg% Grid6_plot_pad_top = Grid6_plot_pad_top - pg% Grid6_plot_pad_bot = Grid6_plot_pad_bot - pg% Grid6_file_flag = Grid6_file_flag - pg% Grid6_file_dir = Grid6_file_dir - pg% Grid6_file_prefix = Grid6_file_prefix - pg% Grid6_file_interval = Grid6_file_interval - pg% Grid6_file_width = Grid6_file_width - pg% Grid6_file_aspect_ratio = Grid6_file_aspect_ratio - - pg% Grid7_win_flag = Grid7_win_flag - pg% Grid7_win_width = Grid7_win_width - pg% Grid7_win_aspect_ratio = Grid7_win_aspect_ratio - pg% Grid7_xleft = Grid7_xleft - pg% Grid7_xright = Grid7_xright - pg% Grid7_ybot = Grid7_ybot - pg% Grid7_ytop = Grid7_ytop - pg% Grid7_title = Grid7_title - pg% Grid7_txt_scale_factor = Grid7_txt_scale_factor - pg% Grid7_num_cols = Grid7_num_cols - pg% Grid7_num_rows = Grid7_num_rows - pg% Grid7_num_plots = Grid7_num_plots - pg% Grid7_plot_name = Grid7_plot_name - pg% Grid7_plot_row = Grid7_plot_row - pg% Grid7_plot_rowspan = Grid7_plot_rowspan - pg% Grid7_plot_col = Grid7_plot_col - pg% Grid7_plot_colspan = Grid7_plot_colspan - pg% Grid7_plot_pad_left = Grid7_plot_pad_left - pg% Grid7_plot_pad_right = Grid7_plot_pad_right - pg% Grid7_plot_pad_top = Grid7_plot_pad_top - pg% Grid7_plot_pad_bot = Grid7_plot_pad_bot - pg% Grid7_file_flag = Grid7_file_flag - pg% Grid7_file_dir = Grid7_file_dir - pg% Grid7_file_prefix = Grid7_file_prefix - pg% Grid7_file_interval = Grid7_file_interval - pg% Grid7_file_width = Grid7_file_width - pg% Grid7_file_aspect_ratio = Grid7_file_aspect_ratio - - pg% Grid8_win_flag = Grid8_win_flag - pg% Grid8_win_width = Grid8_win_width - pg% Grid8_win_aspect_ratio = Grid8_win_aspect_ratio - pg% Grid8_xleft = Grid8_xleft - pg% Grid8_xright = Grid8_xright - pg% Grid8_ybot = Grid8_ybot - pg% Grid8_ytop = Grid8_ytop - pg% Grid8_title = Grid8_title - pg% Grid8_txt_scale_factor = Grid8_txt_scale_factor - pg% Grid8_num_cols = Grid8_num_cols - pg% Grid8_num_rows = Grid8_num_rows - pg% Grid8_num_plots = Grid8_num_plots - pg% Grid8_plot_name = Grid8_plot_name - pg% Grid8_plot_row = Grid8_plot_row - pg% Grid8_plot_rowspan = Grid8_plot_rowspan - pg% Grid8_plot_col = Grid8_plot_col - pg% Grid8_plot_colspan = Grid8_plot_colspan - pg% Grid8_plot_pad_left = Grid8_plot_pad_left - pg% Grid8_plot_pad_right = Grid8_plot_pad_right - pg% Grid8_plot_pad_top = Grid8_plot_pad_top - pg% Grid8_plot_pad_bot = Grid8_plot_pad_bot - pg% Grid8_file_flag = Grid8_file_flag - pg% Grid8_file_dir = Grid8_file_dir - pg% Grid8_file_prefix = Grid8_file_prefix - pg% Grid8_file_interval = Grid8_file_interval - pg% Grid8_file_width = Grid8_file_width - pg% Grid8_file_aspect_ratio = Grid8_file_aspect_ratio - - pg% Grid9_win_flag = Grid9_win_flag - pg% Grid9_win_width = Grid9_win_width - pg% Grid9_win_aspect_ratio = Grid9_win_aspect_ratio - pg% Grid9_xleft = Grid9_xleft - pg% Grid9_xright = Grid9_xright - pg% Grid9_ybot = Grid9_ybot - pg% Grid9_ytop = Grid9_ytop - pg% Grid9_title = Grid9_title - pg% Grid9_txt_scale_factor = Grid9_txt_scale_factor - pg% Grid9_num_cols = Grid9_num_cols - pg% Grid9_num_rows = Grid9_num_rows - pg% Grid9_num_plots = Grid9_num_plots - pg% Grid9_plot_name = Grid9_plot_name - pg% Grid9_plot_row = Grid9_plot_row - pg% Grid9_plot_rowspan = Grid9_plot_rowspan - pg% Grid9_plot_col = Grid9_plot_col - pg% Grid9_plot_colspan = Grid9_plot_colspan - pg% Grid9_plot_pad_left = Grid9_plot_pad_left - pg% Grid9_plot_pad_right = Grid9_plot_pad_right - pg% Grid9_plot_pad_top = Grid9_plot_pad_top - pg% Grid9_plot_pad_bot = Grid9_plot_pad_bot - pg% Grid9_file_flag = Grid9_file_flag - pg% Grid9_file_dir = Grid9_file_dir - pg% Grid9_file_prefix = Grid9_file_prefix - pg% Grid9_file_interval = Grid9_file_interval - pg% Grid9_file_width = Grid9_file_width - pg% Grid9_file_aspect_ratio = Grid9_file_aspect_ratio + pg% Grid_win_flag = Grid_win_flag + pg% Grid_win_width = Grid_win_width + pg% Grid_win_aspect_ratio = Grid_win_aspect_ratio + pg% Grid_xleft = Grid_xleft + pg% Grid_xright = Grid_xright + pg% Grid_ybot = Grid_ybot + pg% Grid_ytop = Grid_ytop + pg% Grid_title = Grid_title + pg% Grid_txt_scale_factor = Grid_txt_scale_factor + pg% Grid_num_cols = Grid_num_cols + pg% Grid_num_rows = Grid_num_rows + pg% Grid_num_plots = Grid_num_plots + pg% Grid_plot_name = Grid_plot_name + pg% Grid_plot_row = Grid_plot_row + pg% Grid_plot_rowspan = Grid_plot_rowspan + pg% Grid_plot_col = Grid_plot_col + pg% Grid_plot_colspan = Grid_plot_colspan + pg% Grid_plot_pad_left = Grid_plot_pad_left + pg% Grid_plot_pad_right = Grid_plot_pad_right + pg% Grid_plot_pad_top = Grid_plot_pad_top + pg% Grid_plot_pad_bot = Grid_plot_pad_bot + pg% Grid_file_flag = Grid_file_flag + pg% Grid_file_dir = Grid_file_dir + pg% Grid_file_prefix = Grid_file_prefix + pg% Grid_file_interval = Grid_file_interval + pg% Grid_file_width = Grid_file_width + pg% Grid_file_aspect_ratio = Grid_file_aspect_ratio pg% Star1_win_flag = Star1_win_flag pg% Star1_file_flag = Star1_file_flag diff --git a/binary/private/pgbinary_full.f90 b/binary/private/pgbinary_full.f90 index 7488b72f0..c18f0046e 100644 --- a/binary/private/pgbinary_full.f90 +++ b/binary/private/pgbinary_full.f90 @@ -176,409 +176,74 @@ end subroutine do_read_pgbinary_controls subroutine set_win_file_data(b, ierr) - use pgbinary_summary_history, only : summary_history_plot - use pgbinary_grid, only : & - grid1_plot, grid2_plot, grid3_plot, grid4_plot, & - grid5_plot, grid6_plot, grid7_plot, grid8_plot, grid9_plot - use pgbinary_summary, only : & - Text_Summary1_Plot, Text_Summary2_Plot, Text_Summary3_Plot, & - Text_Summary4_Plot, Text_Summary5_Plot, Text_Summary6_Plot, & - Text_Summary7_Plot, Text_Summary8_Plot, Text_Summary9_Plot - use pgbinary_history_panels, only : & - History_Panels1_plot, History_Panels2_plot, History_Panels3_plot, & - History_Panels4_plot, History_Panels5_plot, History_Panels6_plot, & - History_Panels7_plot, History_Panels8_plot, History_Panels9_plot - use pgbinary_hist_track, only : & - History_Track1_plot, History_Track2_plot, History_Track3_plot, & - History_Track4_plot, History_Track5_plot, History_Track6_plot, & - History_Track7_plot, History_Track8_plot, History_Track9_plot - use pgbinary_star, only : & - Star1_plot, Star2_plot + use pgbinary_summary_history, only: summary_history_plot + use pgbinary_grid, only: grid_plot + use pgbinary_summary, only: Text_Summary_Plot + use pgbinary_history_panels, only: History_Panels_plot + use pgbinary_hist_track, only: History_Track_plot + use pgbinary_star, only: Star1_plot, Star2_plot type (binary_info), pointer :: b integer, intent(out) :: ierr type (pgbinary_win_file_data), pointer :: p integer :: i + character (len = strlen) :: nm ! store win and file info in records - p => b% pg% pgbinary_win_file_ptr(i_Binary_Text_Summary1) - p% plot => Text_Summary1_Plot - p% id = i_Binary_Text_Summary1 - p% name = 'Text_Summary1' - p% win_flag = b% pg% Text_Summary1_win_flag - p% win_width = b% pg% Text_Summary1_win_width - p% win_aspect_ratio = b% pg% Text_Summary1_win_aspect_ratio - p% file_flag = b% pg% Text_Summary1_file_flag - p% file_dir = b% pg% Text_Summary1_file_dir - p% file_prefix = b% pg% Text_Summary1_file_prefix - p% file_interval = b% pg% Text_Summary1_file_interval - p% file_width = b% pg% Text_Summary1_file_width - p% file_aspect_ratio = b% pg% Text_Summary1_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Text_Summary2) - p% plot => Text_Summary2_Plot - p% id = i_Binary_Text_Summary2 - p% name = 'Text_Summary2' - p% win_flag = b% pg% Text_Summary2_win_flag - p% win_width = b% pg% Text_Summary2_win_width - p% win_aspect_ratio = b% pg% Text_Summary2_win_aspect_ratio - p% file_flag = b% pg% Text_Summary2_file_flag - p% file_dir = b% pg% Text_Summary2_file_dir - p% file_prefix = b% pg% Text_Summary2_file_prefix - p% file_interval = b% pg% Text_Summary2_file_interval - p% file_width = b% pg% Text_Summary2_file_width - p% file_aspect_ratio = b% pg% Text_Summary2_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Text_Summary3) - p% plot => Text_Summary3_Plot - p% id = i_Binary_Text_Summary3 - p% name = 'Text_Summary3' - p% win_flag = b% pg% Text_Summary3_win_flag - p% win_width = b% pg% Text_Summary3_win_width - p% win_aspect_ratio = b% pg% Text_Summary3_win_aspect_ratio - p% file_flag = b% pg% Text_Summary3_file_flag - p% file_dir = b% pg% Text_Summary3_file_dir - p% file_prefix = b% pg% Text_Summary3_file_prefix - p% file_interval = b% pg% Text_Summary3_file_interval - p% file_width = b% pg% Text_Summary3_file_width - p% file_aspect_ratio = b% pg% Text_Summary3_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Text_Summary4) - p% plot => Text_Summary4_Plot - p% id = i_Binary_Text_Summary4 - p% name = 'Text_Summary4' - p% win_flag = b% pg% Text_Summary4_win_flag - p% win_width = b% pg% Text_Summary4_win_width - p% win_aspect_ratio = b% pg% Text_Summary4_win_aspect_ratio - p% file_flag = b% pg% Text_Summary4_file_flag - p% file_dir = b% pg% Text_Summary4_file_dir - p% file_prefix = b% pg% Text_Summary4_file_prefix - p% file_interval = b% pg% Text_Summary4_file_interval - p% file_width = b% pg% Text_Summary4_file_width - p% file_aspect_ratio = b% pg% Text_Summary4_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Text_Summary5) - p% plot => Text_Summary5_Plot - p% id = i_Binary_Text_Summary5 - p% name = 'Text_Summary5' - p% win_flag = b% pg% Text_Summary5_win_flag - p% win_width = b% pg% Text_Summary5_win_width - p% win_aspect_ratio = b% pg% Text_Summary5_win_aspect_ratio - p% file_flag = b% pg% Text_Summary5_file_flag - p% file_dir = b% pg% Text_Summary5_file_dir - p% file_prefix = b% pg% Text_Summary5_file_prefix - p% file_interval = b% pg% Text_Summary5_file_interval - p% file_width = b% pg% Text_Summary5_file_width - p% file_aspect_ratio = b% pg% Text_Summary5_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Text_Summary6) - p% plot => Text_Summary6_Plot - p% id = i_Binary_Text_Summary6 - p% name = 'Text_Summary6' - p% win_flag = b% pg% Text_Summary6_win_flag - p% win_width = b% pg% Text_Summary6_win_width - p% win_aspect_ratio = b% pg% Text_Summary6_win_aspect_ratio - p% file_flag = b% pg% Text_Summary6_file_flag - p% file_dir = b% pg% Text_Summary6_file_dir - p% file_prefix = b% pg% Text_Summary6_file_prefix - p% file_interval = b% pg% Text_Summary6_file_interval - p% file_width = b% pg% Text_Summary6_file_width - p% file_aspect_ratio = b% pg% Text_Summary6_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Text_Summary7) - p% plot => Text_Summary7_Plot - p% id = i_Binary_Text_Summary7 - p% name = 'Text_Summary7' - p% win_flag = b% pg% Text_Summary7_win_flag - p% win_width = b% pg% Text_Summary7_win_width - p% win_aspect_ratio = b% pg% Text_Summary7_win_aspect_ratio - p% file_flag = b% pg% Text_Summary7_file_flag - p% file_dir = b% pg% Text_Summary7_file_dir - p% file_prefix = b% pg% Text_Summary7_file_prefix - p% file_interval = b% pg% Text_Summary7_file_interval - p% file_width = b% pg% Text_Summary7_file_width - p% file_aspect_ratio = b% pg% Text_Summary7_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Text_Summary8) - p% plot => Text_Summary8_Plot - p% id = i_Binary_Text_Summary8 - p% name = 'Text_Summary8' - p% win_flag = b% pg% Text_Summary8_win_flag - p% win_width = b% pg% Text_Summary8_win_width - p% win_aspect_ratio = b% pg% Text_Summary8_win_aspect_ratio - p% file_flag = b% pg% Text_Summary8_file_flag - p% file_dir = b% pg% Text_Summary8_file_dir - p% file_prefix = b% pg% Text_Summary8_file_prefix - p% file_interval = b% pg% Text_Summary8_file_interval - p% file_width = b% pg% Text_Summary8_file_width - p% file_aspect_ratio = b% pg% Text_Summary8_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Text_Summary9) - p% plot => Text_Summary9_Plot - p% id = i_Binary_Text_Summary9 - p% name = 'Text_Summary9' - p% win_flag = b% pg% Text_Summary9_win_flag - p% win_width = b% pg% Text_Summary9_win_width - p% win_aspect_ratio = b% pg% Text_Summary9_win_aspect_ratio - p% file_flag = b% pg% Text_Summary9_file_flag - p% file_dir = b% pg% Text_Summary9_file_dir - p% file_prefix = b% pg% Text_Summary9_file_prefix - p% file_interval = b% pg% Text_Summary9_file_interval - p% file_width = b% pg% Text_Summary9_file_width - p% file_aspect_ratio = b% pg% Text_Summary9_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Hist_Panels1) - p% plot => History_Panels1_plot - p% id = i_Binary_Hist_Panels1 - p% name = 'History_Panels1' - p% win_flag = b% pg% History_Panels1_win_flag - p% win_width = b% pg% History_Panels1_win_width - p% win_aspect_ratio = b% pg% History_Panels1_win_aspect_ratio - p% file_flag = b% pg% History_Panels1_file_flag - p% file_dir = b% pg% History_Panels1_file_dir - p% file_prefix = b% pg% History_Panels1_file_prefix - p% file_interval = b% pg% History_Panels1_file_interval - p% file_width = b% pg% History_Panels1_file_width - p% file_aspect_ratio = b% pg% History_Panels1_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Hist_Panels2) - p% plot => History_Panels2_plot - p% id = i_Binary_Hist_Panels2 - p% name = 'History_Panels2' - p% win_flag = b% pg% History_Panels2_win_flag - p% win_width = b% pg% History_Panels2_win_width - p% win_aspect_ratio = b% pg% History_Panels2_win_aspect_ratio - p% file_flag = b% pg% History_Panels2_file_flag - p% file_dir = b% pg% History_Panels2_file_dir - p% file_prefix = b% pg% History_Panels2_file_prefix - p% file_interval = b% pg% History_Panels2_file_interval - p% file_width = b% pg% History_Panels2_file_width - p% file_aspect_ratio = b% pg% History_Panels2_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Hist_Panels3) - p% plot => History_Panels3_plot - p% id = i_Binary_Hist_Panels3 - p% name = 'History_Panels3' - p% win_flag = b% pg% History_Panels3_win_flag - p% win_width = b% pg% History_Panels3_win_width - p% win_aspect_ratio = b% pg% History_Panels3_win_aspect_ratio - p% file_flag = b% pg% History_Panels3_file_flag - p% file_dir = b% pg% History_Panels3_file_dir - p% file_prefix = b% pg% History_Panels3_file_prefix - p% file_interval = b% pg% History_Panels3_file_interval - p% file_width = b% pg% History_Panels3_file_width - p% file_aspect_ratio = b% pg% History_Panels3_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Hist_Panels4) - p% plot => History_Panels4_plot - p% id = i_Binary_Hist_Panels4 - p% name = 'History_Panels4' - p% win_flag = b% pg% History_Panels4_win_flag - p% win_width = b% pg% History_Panels4_win_width - p% win_aspect_ratio = b% pg% History_Panels4_win_aspect_ratio - p% file_flag = b% pg% History_Panels4_file_flag - p% file_dir = b% pg% History_Panels4_file_dir - p% file_prefix = b% pg% History_Panels4_file_prefix - p% file_interval = b% pg% History_Panels4_file_interval - p% file_width = b% pg% History_Panels4_file_width - p% file_aspect_ratio = b% pg% History_Panels4_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Hist_Panels5) - p% plot => History_Panels5_plot - p% id = i_Binary_Hist_Panels5 - p% name = 'History_Panels5' - p% win_flag = b% pg% History_Panels5_win_flag - p% win_width = b% pg% History_Panels5_win_width - p% win_aspect_ratio = b% pg% History_Panels5_win_aspect_ratio - p% file_flag = b% pg% History_Panels5_file_flag - p% file_dir = b% pg% History_Panels5_file_dir - p% file_prefix = b% pg% History_Panels5_file_prefix - p% file_interval = b% pg% History_Panels5_file_interval - p% file_width = b% pg% History_Panels5_file_width - p% file_aspect_ratio = b% pg% History_Panels5_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Hist_Panels6) - p% plot => History_Panels6_plot - p% id = i_Binary_Hist_Panels6 - p% name = 'History_Panels6' - p% win_flag = b% pg% History_Panels6_win_flag - p% win_width = b% pg% History_Panels6_win_width - p% win_aspect_ratio = b% pg% History_Panels6_win_aspect_ratio - p% file_flag = b% pg% History_Panels6_file_flag - p% file_dir = b% pg% History_Panels6_file_dir - p% file_prefix = b% pg% History_Panels6_file_prefix - p% file_interval = b% pg% History_Panels6_file_interval - p% file_width = b% pg% History_Panels6_file_width - p% file_aspect_ratio = b% pg% History_Panels6_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Hist_Panels7) - p% plot => History_Panels7_plot - p% id = i_Binary_Hist_Panels7 - p% name = 'History_Panels7' - p% win_flag = b% pg% History_Panels7_win_flag - p% win_width = b% pg% History_Panels7_win_width - p% win_aspect_ratio = b% pg% History_Panels7_win_aspect_ratio - p% file_flag = b% pg% History_Panels7_file_flag - p% file_dir = b% pg% History_Panels7_file_dir - p% file_prefix = b% pg% History_Panels7_file_prefix - p% file_interval = b% pg% History_Panels7_file_interval - p% file_width = b% pg% History_Panels7_file_width - p% file_aspect_ratio = b% pg% History_Panels7_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Hist_Panels8) - p% plot => History_Panels8_plot - p% id = i_Binary_Hist_Panels8 - p% name = 'History_Panels8' - p% win_flag = b% pg% History_Panels8_win_flag - p% win_width = b% pg% History_Panels8_win_width - p% win_aspect_ratio = b% pg% History_Panels8_win_aspect_ratio - p% file_flag = b% pg% History_Panels8_file_flag - p% file_dir = b% pg% History_Panels8_file_dir - p% file_prefix = b% pg% History_Panels8_file_prefix - p% file_interval = b% pg% History_Panels8_file_interval - p% file_width = b% pg% History_Panels8_file_width - p% file_aspect_ratio = b% pg% History_Panels8_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Hist_Panels9) - p% plot => History_Panels9_plot - p% id = i_Binary_Hist_Panels9 - p% name = 'History_Panels9' - p% win_flag = b% pg% History_Panels9_win_flag - p% win_width = b% pg% History_Panels9_win_width - p% win_aspect_ratio = b% pg% History_Panels9_win_aspect_ratio - p% file_flag = b% pg% History_Panels9_file_flag - p% file_dir = b% pg% History_Panels9_file_dir - p% file_prefix = b% pg% History_Panels9_file_prefix - p% file_interval = b% pg% History_Panels9_file_interval - p% file_width = b% pg% History_Panels9_file_width - p% file_aspect_ratio = b% pg% History_Panels9_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Hist_Track1) - p% plot => History_Track1_plot - p% id = i_Binary_Hist_Track1 - p% name = 'History_Track1' - p% win_flag = b% pg% History_Track1_win_flag - p% win_width = b% pg% History_Track1_win_width - p% win_aspect_ratio = b% pg% History_Track1_win_aspect_ratio - p% file_flag = b% pg% History_Track1_file_flag - p% file_dir = b% pg% History_Track1_file_dir - p% file_prefix = b% pg% History_Track1_file_prefix - p% file_interval = b% pg% History_Track1_file_interval - p% file_width = b% pg% History_Track1_file_width - p% file_aspect_ratio = b% pg% History_Track1_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Hist_Track2) - p% plot => History_Track2_plot - p% id = i_Binary_Hist_Track2 - p% name = 'History_Track2' - p% win_flag = b% pg% History_Track2_win_flag - p% win_width = b% pg% History_Track2_win_width - p% win_aspect_ratio = b% pg% History_Track2_win_aspect_ratio - p% file_flag = b% pg% History_Track2_file_flag - p% file_dir = b% pg% History_Track2_file_dir - p% file_prefix = b% pg% History_Track2_file_prefix - p% file_interval = b% pg% History_Track2_file_interval - p% file_width = b% pg% History_Track2_file_width - p% file_aspect_ratio = b% pg% History_Track2_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Hist_Track3) - p% plot => History_Track3_plot - p% id = i_Binary_Hist_Track3 - p% name = 'History_Track3' - p% win_flag = b% pg% History_Track3_win_flag - p% win_width = b% pg% History_Track3_win_width - p% win_aspect_ratio = b% pg% History_Track3_win_aspect_ratio - p% file_flag = b% pg% History_Track3_file_flag - p% file_dir = b% pg% History_Track3_file_dir - p% file_prefix = b% pg% History_Track3_file_prefix - p% file_interval = b% pg% History_Track3_file_interval - p% file_width = b% pg% History_Track3_file_width - p% file_aspect_ratio = b% pg% History_Track3_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Hist_Track4) - p% plot => History_Track4_plot - p% id = i_Binary_Hist_Track4 - p% name = 'History_Track4' - p% win_flag = b% pg% History_Track4_win_flag - p% win_width = b% pg% History_Track4_win_width - p% win_aspect_ratio = b% pg% History_Track4_win_aspect_ratio - p% file_flag = b% pg% History_Track4_file_flag - p% file_dir = b% pg% History_Track4_file_dir - p% file_prefix = b% pg% History_Track4_file_prefix - p% file_interval = b% pg% History_Track4_file_interval - p% file_width = b% pg% History_Track4_file_width - p% file_aspect_ratio = b% pg% History_Track4_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Hist_Track5) - p% plot => History_Track5_plot - p% id = i_Binary_Hist_Track5 - p% name = 'History_Track5' - p% win_flag = b% pg% History_Track5_win_flag - p% win_width = b% pg% History_Track5_win_width - p% win_aspect_ratio = b% pg% History_Track5_win_aspect_ratio - p% file_flag = b% pg% History_Track5_file_flag - p% file_dir = b% pg% History_Track5_file_dir - p% file_prefix = b% pg% History_Track5_file_prefix - p% file_interval = b% pg% History_Track5_file_interval - p% file_width = b% pg% History_Track5_file_width - p% file_aspect_ratio = b% pg% History_Track5_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Hist_Track6) - p% plot => History_Track6_plot - p% id = i_Binary_Hist_Track6 - p% name = 'History_Track6' - p% win_flag = b% pg% History_Track6_win_flag - p% win_width = b% pg% History_Track6_win_width - p% win_aspect_ratio = b% pg% History_Track6_win_aspect_ratio - p% file_flag = b% pg% History_Track6_file_flag - p% file_dir = b% pg% History_Track6_file_dir - p% file_prefix = b% pg% History_Track6_file_prefix - p% file_interval = b% pg% History_Track6_file_interval - p% file_width = b% pg% History_Track6_file_width - p% file_aspect_ratio = b% pg% History_Track6_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Hist_Track7) - p% plot => History_Track7_plot - p% id = i_Binary_Hist_Track7 - p% name = 'History_Track7' - p% win_flag = b% pg% History_Track7_win_flag - p% win_width = b% pg% History_Track7_win_width - p% win_aspect_ratio = b% pg% History_Track7_win_aspect_ratio - p% file_flag = b% pg% History_Track7_file_flag - p% file_dir = b% pg% History_Track7_file_dir - p% file_prefix = b% pg% History_Track7_file_prefix - p% file_interval = b% pg% History_Track7_file_interval - p% file_width = b% pg% History_Track7_file_width - p% file_aspect_ratio = b% pg% History_Track7_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Hist_Track8) - p% plot => History_Track8_plot - p% id = i_Binary_Hist_Track8 - p% name = 'History_Track8' - p% win_flag = b% pg% History_Track8_win_flag - p% win_width = b% pg% History_Track8_win_width - p% win_aspect_ratio = b% pg% History_Track8_win_aspect_ratio - p% file_flag = b% pg% History_Track8_file_flag - p% file_dir = b% pg% History_Track8_file_dir - p% file_prefix = b% pg% History_Track8_file_prefix - p% file_interval = b% pg% History_Track8_file_interval - p% file_width = b% pg% History_Track8_file_width - p% file_aspect_ratio = b% pg% History_Track8_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Hist_Track9) - p% plot => History_Track9_plot - p% id = i_Binary_Hist_Track9 - p% name = 'History_Track9' - p% win_flag = b% pg% History_Track9_win_flag - p% win_width = b% pg% History_Track9_win_width - p% win_aspect_ratio = b% pg% History_Track9_win_aspect_ratio - p% file_flag = b% pg% History_Track9_file_flag - p% file_dir = b% pg% History_Track9_file_dir - p% file_prefix = b% pg% History_Track9_file_prefix - p% file_interval = b% pg% History_Track9_file_interval - p% file_width = b% pg% History_Track9_file_width - p% file_aspect_ratio = b% pg% History_Track9_file_aspect_ratio + do i = 1, pgbinary_array_length + p => b% pg% pgbinary_win_file_ptr(i_Binary_Text_Summary + i - 1) + p% plot => Text_Summary_Plot + p% id = i_Binary_Text_Summary + i - 1 + p% array_ix = i + write(nm, '(I2)') i + p% name = 'Text_Summary' // trim(nm) + p% win_flag = b% pg% Text_Summary_win_flag(i) + p% win_width = b% pg% Text_Summary_win_width(i) + p% win_aspect_ratio = b% pg% Text_Summary_win_aspect_ratio(i) + p% file_flag = b% pg% Text_Summary_file_flag(i) + p% file_dir = b% pg% Text_Summary_file_dir(i) + p% file_prefix = b% pg% Text_Summary_file_prefix(i) + p% file_interval = b% pg% Text_Summary_file_interval(i) + p% file_width = b% pg% Text_Summary_file_width(i) + p% file_aspect_ratio = b% pg% Text_Summary_file_aspect_ratio(i) + end do + + do i = 1, pgbinary_array_length + p => b% pg% pgbinary_win_file_ptr(i_Binary_Hist_Panels + i - 1) + p% plot => History_Panels_plot + p% id = i_Binary_Hist_Panels + i - 1 + p% array_ix = i + write(nm, '(I2)') i + p% name = 'History_Panels' // trim(nm) + p% win_flag = b% pg% History_Panels_win_flag(i) + p% win_width = b% pg% History_Panels_win_width(i) + p% win_aspect_ratio = b% pg% History_Panels_win_aspect_ratio(i) + p% file_flag = b% pg% History_Panels_file_flag(i) + p% file_dir = b% pg% History_Panels_file_dir(i) + p% file_prefix = b% pg% History_Panels_file_prefix(i) + p% file_interval = b% pg% History_Panels_file_interval(i) + p% file_width = b% pg% History_Panels_file_width(i) + p% file_aspect_ratio = b% pg% History_Panels_file_aspect_ratio(i) + end do + + do i = 1, pgbinary_array_length + p => b% pg% pgbinary_win_file_ptr(i_Binary_Hist_Track + i - 1) + p% plot => History_Track_plot + p% id = i_Binary_Hist_Track + i - 1 + p% array_ix = i + write(nm, '(I2)') i + p% name = 'History_Track' // trim(nm) + p% win_flag = b% pg% History_Track_win_flag(i) + p% win_width = b% pg% History_Track_win_width(i) + p% win_aspect_ratio = b% pg% History_Track_win_aspect_ratio(i) + p% file_flag = b% pg% History_Track_file_flag(i) + p% file_dir = b% pg% History_Track_file_dir(i) + p% file_prefix = b% pg% History_Track_file_prefix(i) + p% file_interval = b% pg% History_Track_file_interval(i) + p% file_width = b% pg% History_Track_file_width(i) + p% file_aspect_ratio = b% pg% History_Track_file_aspect_ratio(i) + end do p => b% pg% pgbinary_win_file_ptr(i_Summary_Binary_History) p% plot => summary_history_plot @@ -594,131 +259,23 @@ subroutine set_win_file_data(b, ierr) p% file_width = b% pg% Summary_History_file_width p% file_aspect_ratio = b% pg% Summary_History_file_aspect_ratio - p => b% pg% pgbinary_win_file_ptr(i_Binary_Grid1) - p% plot => grid1_plot - p% id = i_Binary_Grid1 - p% name = 'Grid1' - p% win_flag = b% pg% Grid1_win_flag - p% win_width = b% pg% Grid1_win_width - p% win_aspect_ratio = b% pg% Grid1_win_aspect_ratio - p% file_flag = b% pg% Grid1_file_flag - p% file_dir = b% pg% Grid1_file_dir - p% file_prefix = b% pg% Grid1_file_prefix - p% file_interval = b% pg% Grid1_file_interval - p% file_width = b% pg% Grid1_file_width - p% file_aspect_ratio = b% pg% Grid1_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Grid2) - p% plot => grid2_plot - p% id = i_Binary_Grid2 - p% name = 'Grid2' - p% win_flag = b% pg% Grid2_win_flag - p% win_width = b% pg% Grid2_win_width - p% win_aspect_ratio = b% pg% Grid2_win_aspect_ratio - p% file_flag = b% pg% Grid2_file_flag - p% file_dir = b% pg% Grid2_file_dir - p% file_prefix = b% pg% Grid2_file_prefix - p% file_interval = b% pg% Grid2_file_interval - p% file_width = b% pg% Grid2_file_width - p% file_aspect_ratio = b% pg% Grid2_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Grid3) - p% plot => grid3_plot - p% id = i_Binary_Grid3 - p% name = 'Grid3' - p% win_flag = b% pg% Grid3_win_flag - p% win_width = b% pg% Grid3_win_width - p% win_aspect_ratio = b% pg% Grid3_win_aspect_ratio - p% file_flag = b% pg% Grid3_file_flag - p% file_dir = b% pg% Grid3_file_dir - p% file_prefix = b% pg% Grid3_file_prefix - p% file_interval = b% pg% Grid3_file_interval - p% file_width = b% pg% Grid3_file_width - p% file_aspect_ratio = b% pg% Grid3_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Grid4) - p% plot => grid4_plot - p% id = i_Binary_Grid4 - p% name = 'Grid4' - p% win_flag = b% pg% Grid4_win_flag - p% win_width = b% pg% Grid4_win_width - p% win_aspect_ratio = b% pg% Grid4_win_aspect_ratio - p% file_flag = b% pg% Grid4_file_flag - p% file_dir = b% pg% Grid4_file_dir - p% file_prefix = b% pg% Grid4_file_prefix - p% file_interval = b% pg% Grid4_file_interval - p% file_width = b% pg% Grid4_file_width - p% file_aspect_ratio = b% pg% Grid4_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Grid5) - p% plot => grid5_plot - p% id = i_Binary_Grid5 - p% name = 'Grid5' - p% win_flag = b% pg% Grid5_win_flag - p% win_width = b% pg% Grid5_win_width - p% win_aspect_ratio = b% pg% Grid5_win_aspect_ratio - p% file_flag = b% pg% Grid5_file_flag - p% file_dir = b% pg% Grid5_file_dir - p% file_prefix = b% pg% Grid5_file_prefix - p% file_interval = b% pg% Grid5_file_interval - p% file_width = b% pg% Grid5_file_width - p% file_aspect_ratio = b% pg% Grid5_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Grid6) - p% plot => grid6_plot - p% id = i_Binary_Grid6 - p% name = 'Grid6' - p% win_flag = b% pg% Grid6_win_flag - p% win_width = b% pg% Grid6_win_width - p% win_aspect_ratio = b% pg% Grid6_win_aspect_ratio - p% file_flag = b% pg% Grid6_file_flag - p% file_dir = b% pg% Grid6_file_dir - p% file_prefix = b% pg% Grid6_file_prefix - p% file_interval = b% pg% Grid6_file_interval - p% file_width = b% pg% Grid6_file_width - p% file_aspect_ratio = b% pg% Grid6_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Grid7) - p% plot => grid7_plot - p% id = i_Binary_Grid7 - p% name = 'Grid7' - p% win_flag = b% pg% Grid7_win_flag - p% win_width = b% pg% Grid7_win_width - p% win_aspect_ratio = b% pg% Grid7_win_aspect_ratio - p% file_flag = b% pg% Grid7_file_flag - p% file_dir = b% pg% Grid7_file_dir - p% file_prefix = b% pg% Grid7_file_prefix - p% file_interval = b% pg% Grid7_file_interval - p% file_width = b% pg% Grid7_file_width - p% file_aspect_ratio = b% pg% Grid7_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Grid8) - p% plot => grid8_plot - p% id = i_Binary_Grid8 - p% name = 'Grid8' - p% win_flag = b% pg% Grid8_win_flag - p% win_width = b% pg% Grid8_win_width - p% win_aspect_ratio = b% pg% Grid8_win_aspect_ratio - p% file_flag = b% pg% Grid8_file_flag - p% file_dir = b% pg% Grid8_file_dir - p% file_prefix = b% pg% Grid8_file_prefix - p% file_interval = b% pg% Grid8_file_interval - p% file_width = b% pg% Grid8_file_width - p% file_aspect_ratio = b% pg% Grid8_file_aspect_ratio - - p => b% pg% pgbinary_win_file_ptr(i_Binary_Grid9) - p% plot => grid9_plot - p% id = i_Binary_Grid9 - p% name = 'Grid9' - p% win_flag = b% pg% Grid9_win_flag - p% win_width = b% pg% Grid9_win_width - p% win_aspect_ratio = b% pg% Grid9_win_aspect_ratio - p% file_flag = b% pg% Grid9_file_flag - p% file_dir = b% pg% Grid9_file_dir - p% file_prefix = b% pg% Grid9_file_prefix - p% file_interval = b% pg% Grid9_file_interval - p% file_width = b% pg% Grid9_file_width - p% file_aspect_ratio = b% pg% Grid9_file_aspect_ratio + do i = 1, pgbinary_array_length + p => b% pg% pgbinary_win_file_ptr(i_Binary_Grid + i - 1) + p% plot => grid_plot + p% id = i_Binary_Grid + i - 1 + p% array_ix = i + write(nm, '(I2)') i + p% name = 'Grid' // trim(nm) + p% win_flag = b% pg% Grid_win_flag(i) + p% win_width = b% pg% Grid_win_width(i) + p% win_aspect_ratio = b% pg% Grid_win_aspect_ratio(i) + p% file_flag = b% pg% Grid_file_flag(i) + p% file_dir = b% pg% Grid_file_dir(i) + p% file_prefix = b% pg% Grid_file_prefix(i) + p% file_interval = b% pg% Grid_file_interval(i) + p% file_width = b% pg% Grid_file_width(i) + p% file_aspect_ratio = b% pg% Grid_file_aspect_ratio(i) + end do p => b% pg% pgbinary_win_file_ptr(i_Binary_Star1) p% plot => Star1_plot @@ -858,7 +415,7 @@ subroutine onScreen_Plots(b, must_write_files_in, ierr) ! make the plot (window) if (p% do_win) then - call p% plot(b% binary_id, p% id_win, ierr) + call p% plot(b% binary_id, p% id_win, p% array_ix, ierr) if (failed(p% name)) return end if end if @@ -876,7 +433,7 @@ subroutine onScreen_Plots(b, must_write_files_in, ierr) ! make the plot (file) if (p% do_file) then - call p% plot(b% binary_id, p% id_file, ierr) + call p% plot(b% binary_id, p% id_file, p% array_ix, ierr) if (failed(p% name)) return call pgclos if (b% pg% pgbinary_report_writing_files) & diff --git a/binary/private/pgbinary_grid.f90 b/binary/private/pgbinary_grid.f90 index 5e97bcba7..7fc5ee791 100644 --- a/binary/private/pgbinary_grid.f90 +++ b/binary/private/pgbinary_grid.f90 @@ -35,250 +35,34 @@ module pgbinary_grid contains - subroutine grid1_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id + subroutine grid_plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (binary_info), pointer :: b ierr = 0 call get_binary_ptr(id, b, ierr) if (ierr /= 0) return - call Grid_plot(b, id, device_id, & - b% pg% Grid1_xleft, b% pg% Grid1_xright, & - b% pg% Grid1_ybot, b% pg% Grid1_ytop, .false., b% pg% Grid1_title, & - b% pg% Grid1_txt_scale_factor, & - b% pg% Grid1_num_cols, & - b% pg% Grid1_num_rows, & - b% pg% Grid1_num_plots, & - b% pg% Grid1_plot_name, & - b% pg% Grid1_plot_row, & - b% pg% Grid1_plot_rowspan, & - b% pg% Grid1_plot_col, & - b% pg% Grid1_plot_colspan, & - b% pg% Grid1_plot_pad_left, & - b% pg% Grid1_plot_pad_right, & - b% pg% Grid1_plot_pad_top, & - b% pg% Grid1_plot_pad_bot, & + call do_Grid_plot(b, id, device_id, & + b% pg% Grid_xleft(array_ix), b% pg% Grid_xright(array_ix), & + b% pg% Grid_ybot(array_ix), b% pg% Grid_ytop(array_ix), .false., & + b% pg% Grid_title(array_ix), & + b% pg% Grid_txt_scale_factor(array_ix, :), & + b% pg% Grid_num_cols(array_ix), & + b% pg% Grid_num_rows(array_ix), & + b% pg% Grid_num_plots(array_ix), & + b% pg% Grid_plot_name(array_ix, :), & + b% pg% Grid_plot_row(array_ix, :), & + b% pg% Grid_plot_rowspan(array_ix, :), & + b% pg% Grid_plot_col(array_ix, :), & + b% pg% Grid_plot_colspan(array_ix, :), & + b% pg% Grid_plot_pad_left(array_ix, :), & + b% pg% Grid_plot_pad_right(array_ix, :), & + b% pg% Grid_plot_pad_top(array_ix, :), & + b% pg% Grid_plot_pad_bot(array_ix, :), & ierr) - end subroutine grid1_plot + end subroutine grid_plot - - subroutine grid2_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call Grid_plot(b, id, device_id, & - b% pg% Grid2_xleft, b% pg% Grid2_xright, & - b% pg% Grid2_ybot, b% pg% Grid2_ytop, .false., b% pg% Grid2_title, & - b% pg% Grid2_txt_scale_factor, & - b% pg% Grid2_num_cols, & - b% pg% Grid2_num_rows, & - b% pg% Grid2_num_plots, & - b% pg% Grid2_plot_name, & - b% pg% Grid2_plot_row, & - b% pg% Grid2_plot_rowspan, & - b% pg% Grid2_plot_col, & - b% pg% Grid2_plot_colspan, & - b% pg% Grid2_plot_pad_left, & - b% pg% Grid2_plot_pad_right, & - b% pg% Grid2_plot_pad_top, & - b% pg% Grid2_plot_pad_bot, & - ierr) - end subroutine grid2_plot - - - subroutine grid3_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call Grid_plot(b, id, device_id, & - b% pg% Grid3_xleft, b% pg% Grid3_xright, & - b% pg% Grid3_ybot, b% pg% Grid3_ytop, .false., b% pg% Grid3_title, & - b% pg% Grid3_txt_scale_factor, & - b% pg% Grid3_num_cols, & - b% pg% Grid3_num_rows, & - b% pg% Grid3_num_plots, & - b% pg% Grid3_plot_name, & - b% pg% Grid3_plot_row, & - b% pg% Grid3_plot_rowspan, & - b% pg% Grid3_plot_col, & - b% pg% Grid3_plot_colspan, & - b% pg% Grid3_plot_pad_left, & - b% pg% Grid3_plot_pad_right, & - b% pg% Grid3_plot_pad_top, & - b% pg% Grid3_plot_pad_bot, & - ierr) - end subroutine grid3_plot - - - subroutine grid4_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call Grid_plot(b, id, device_id, & - b% pg% Grid4_xleft, b% pg% Grid4_xright, & - b% pg% Grid4_ybot, b% pg% Grid4_ytop, .false., b% pg% Grid4_title, & - b% pg% Grid4_txt_scale_factor, & - b% pg% Grid4_num_cols, & - b% pg% Grid4_num_rows, & - b% pg% Grid4_num_plots, & - b% pg% Grid4_plot_name, & - b% pg% Grid4_plot_row, & - b% pg% Grid4_plot_rowspan, & - b% pg% Grid4_plot_col, & - b% pg% Grid4_plot_colspan, & - b% pg% Grid4_plot_pad_left, & - b% pg% Grid4_plot_pad_right, & - b% pg% Grid4_plot_pad_top, & - b% pg% Grid4_plot_pad_bot, & - ierr) - end subroutine grid4_plot - - - subroutine grid5_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call Grid_plot(b, id, device_id, & - b% pg% Grid5_xleft, b% pg% Grid5_xright, & - b% pg% Grid5_ybot, b% pg% Grid5_ytop, .false., b% pg% Grid5_title, & - b% pg% Grid5_txt_scale_factor, & - b% pg% Grid5_num_cols, & - b% pg% Grid5_num_rows, & - b% pg% Grid5_num_plots, & - b% pg% Grid5_plot_name, & - b% pg% Grid5_plot_row, & - b% pg% Grid5_plot_rowspan, & - b% pg% Grid5_plot_col, & - b% pg% Grid5_plot_colspan, & - b% pg% Grid5_plot_pad_left, & - b% pg% Grid5_plot_pad_right, & - b% pg% Grid5_plot_pad_top, & - b% pg% Grid5_plot_pad_bot, & - ierr) - end subroutine grid5_plot - - - subroutine grid6_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call Grid_plot(b, id, device_id, & - b% pg% Grid6_xleft, b% pg% Grid6_xright, & - b% pg% Grid6_ybot, b% pg% Grid6_ytop, .false., b% pg% Grid6_title, & - b% pg% Grid6_txt_scale_factor, & - b% pg% Grid6_num_cols, & - b% pg% Grid6_num_rows, & - b% pg% Grid6_num_plots, & - b% pg% Grid6_plot_name, & - b% pg% Grid6_plot_row, & - b% pg% Grid6_plot_rowspan, & - b% pg% Grid6_plot_col, & - b% pg% Grid6_plot_colspan, & - b% pg% Grid6_plot_pad_left, & - b% pg% Grid6_plot_pad_right, & - b% pg% Grid6_plot_pad_top, & - b% pg% Grid6_plot_pad_bot, & - ierr) - end subroutine grid6_plot - - - subroutine grid7_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call Grid_plot(b, id, device_id, & - b% pg% Grid7_xleft, b% pg% Grid7_xright, & - b% pg% Grid7_ybot, b% pg% Grid7_ytop, .false., b% pg% Grid7_title, & - b% pg% Grid7_txt_scale_factor, & - b% pg% Grid7_num_cols, & - b% pg% Grid7_num_rows, & - b% pg% Grid7_num_plots, & - b% pg% Grid7_plot_name, & - b% pg% Grid7_plot_row, & - b% pg% Grid7_plot_rowspan, & - b% pg% Grid7_plot_col, & - b% pg% Grid7_plot_colspan, & - b% pg% Grid7_plot_pad_left, & - b% pg% Grid7_plot_pad_right, & - b% pg% Grid7_plot_pad_top, & - b% pg% Grid7_plot_pad_bot, & - ierr) - end subroutine grid7_plot - - - subroutine grid8_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call Grid_plot(b, id, device_id, & - b% pg% Grid8_xleft, b% pg% Grid8_xright, & - b% pg% Grid8_ybot, b% pg% Grid8_ytop, .false., b% pg% Grid8_title, & - b% pg% Grid8_txt_scale_factor, & - b% pg% Grid8_num_cols, & - b% pg% Grid8_num_rows, & - b% pg% Grid8_num_plots, & - b% pg% Grid8_plot_name, & - b% pg% Grid8_plot_row, & - b% pg% Grid8_plot_rowspan, & - b% pg% Grid8_plot_col, & - b% pg% Grid8_plot_colspan, & - b% pg% Grid8_plot_pad_left, & - b% pg% Grid8_plot_pad_right, & - b% pg% Grid8_plot_pad_top, & - b% pg% Grid8_plot_pad_bot, & - ierr) - end subroutine grid8_plot - - - subroutine grid9_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call Grid_plot(b, id, device_id, & - b% pg% Grid9_xleft, b% pg% Grid9_xright, & - b% pg% Grid9_ybot, b% pg% Grid9_ytop, .false., b% pg% Grid9_title, & - b% pg% Grid9_txt_scale_factor, & - b% pg% Grid9_num_cols, & - b% pg% Grid9_num_rows, & - b% pg% Grid9_num_plots, & - b% pg% Grid9_plot_name, & - b% pg% Grid9_plot_row, & - b% pg% Grid9_plot_rowspan, & - b% pg% Grid9_plot_col, & - b% pg% Grid9_plot_colspan, & - b% pg% Grid9_plot_pad_left, & - b% pg% Grid9_plot_pad_right, & - b% pg% Grid9_plot_pad_top, & - b% pg% Grid9_plot_pad_bot, & - ierr) - end subroutine grid9_plot - - - subroutine Grid_plot(b, id, device_id, & + subroutine do_Grid_plot(b, id, device_id, & Grid_xleft, Grid_xright, & Grid_ybot, Grid_ytop, subplot, Grid_title, & Grid_txt_scale_factor, & @@ -296,22 +80,13 @@ subroutine Grid_plot(b, id, device_id, & Grid_plot_pad_bot, & ierr) - use utils_lib, only : StrLowCase - use pgbinary_summary_history, only : do_summary_history_plot - use pgbinary_summary, only : & - do_Text_Summary1_plot, do_Text_Summary2_plot, do_Text_Summary3_plot, & - do_Text_Summary4_plot, do_Text_Summary5_plot, do_Text_Summary6_plot, & - do_Text_Summary7_plot, do_Text_Summary8_plot, do_Text_Summary9_plot - use pgbinary_history_panels, only : & - do_History_Panels1_plot, do_History_Panels2_plot, do_History_Panels3_plot, & - do_History_Panels4_plot, do_History_Panels5_plot, do_History_Panels6_plot, & - do_History_Panels7_plot, do_History_Panels8_plot, do_History_Panels9_plot - use pgbinary_hist_track, only : & - do_History_Track1_plot, do_History_Track2_plot, do_History_Track3_plot, & - do_History_Track4_plot, do_History_Track5_plot, do_History_Track6_plot, & - do_History_Track7_plot, do_History_Track8_plot, do_History_Track9_plot - use pgbinary_star, only : do_Star1_plot, do_Star2_plot - use pgbinary_orbit, only : do_orbit_plot + use utils_lib, only: StrLowCase + use pgbinary_summary_history, only: do_summary_history_plot + use pgbinary_summary, only: do_Text_Summary_plot + use pgbinary_history_panels, only: do_History_Panels_plot + use pgbinary_hist_track, only: do_History_Track_plot + use pgbinary_star, only: do_Star1_plot, do_Star2_plot + use pgbinary_orbit, only: do_orbit_plot type (binary_info), pointer :: b logical, intent(in) :: subplot @@ -327,10 +102,8 @@ subroutine Grid_plot(b, id, device_id, & Grid_xleft, Grid_xright, & Grid_ybot, Grid_ytop, & Grid_txt_scale_factor(:), & - Grid_plot_pad_left(:), & - Grid_plot_pad_right(:), & - Grid_plot_pad_top(:), & - Grid_plot_pad_bot(:) + Grid_plot_pad_left(:), Grid_plot_pad_right(:), & + Grid_plot_pad_top(:), Grid_plot_pad_bot(:) character (len = *) :: Grid_title, Grid_plot_name(:) integer, intent(out) :: ierr @@ -415,114 +188,114 @@ subroutine Grid_plot(b, id, device_id, & call do_summary_history_plot(& b, id, device_id, xleft, xright, ybot, ytop, grid_subplot, b% pg% Summary_History_title, & Grid_txt_scale_factor(i) * b% pg% Summary_History_txt_scale, ierr) - case ('history_panels1') - call do_History_Panels1_plot(& - b, id, device_id, xleft, xright, ybot, ytop, grid_subplot, b% pg% history_Panels1_title, & - Grid_txt_scale_factor(i) * b% pg% history_Panels1_txt_scale, ierr) - case ('history_panels2') - call do_History_Panels2_plot(& - b, id, device_id, xleft, xright, ybot, ytop, grid_subplot, b% pg% history_Panels2_title, & - Grid_txt_scale_factor(i) * b% pg% history_Panels2_txt_scale, ierr) - case ('history_panels3') - call do_History_Panels3_plot(& - b, id, device_id, xleft, xright, ybot, ytop, grid_subplot, b% pg% history_Panels3_title, & - Grid_txt_scale_factor(i) * b% pg% history_Panels3_txt_scale, ierr) - case ('history_panels4') - call do_History_Panels4_plot(& - b, id, device_id, xleft, xright, ybot, ytop, grid_subplot, b% pg% history_Panels4_title, & - Grid_txt_scale_factor(i) * b% pg% history_Panels4_txt_scale, ierr) - case ('history_panels5') - call do_History_Panels5_plot(& - b, id, device_id, xleft, xright, ybot, ytop, grid_subplot, b% pg% history_Panels5_title, & - Grid_txt_scale_factor(i) * b% pg% history_Panels5_txt_scale, ierr) - case ('history_panels6') - call do_History_Panels6_plot(& - b, id, device_id, xleft, xright, ybot, ytop, grid_subplot, b% pg% history_Panels6_title, & - Grid_txt_scale_factor(i) * b% pg% history_Panels6_txt_scale, ierr) - case ('history_panels7') - call do_History_Panels7_plot(& - b, id, device_id, xleft, xright, ybot, ytop, grid_subplot, b% pg% history_Panels7_title, & - Grid_txt_scale_factor(i) * b% pg% history_Panels7_txt_scale, ierr) - case ('history_panels8') - call do_History_Panels8_plot(& - b, id, device_id, xleft, xright, ybot, ytop, grid_subplot, b% pg% history_Panels8_title, & - Grid_txt_scale_factor(i) * b% pg% history_Panels8_txt_scale, ierr) - case ('history_panels9') - call do_History_Panels9_plot(& - b, id, device_id, xleft, xright, ybot, ytop, grid_subplot, b% pg% history_Panels9_title, & - Grid_txt_scale_factor(i) * b% pg% history_Panels9_txt_scale, ierr) - case ('history_track1') - call do_History_Track1_plot(& - b, id, device_id, xleft, xright, ybot, ytop, grid_subplot, b% pg% history_Track1_title, & - Grid_txt_scale_factor(i) * b% pg% history_Track1_txt_scale, ierr) - case ('history_track2') - call do_History_Track2_plot(& - b, id, device_id, xleft, xright, ybot, ytop, grid_subplot, b% pg% history_Track2_title, & - Grid_txt_scale_factor(i) * b% pg% history_Track2_txt_scale, ierr) - case ('history_track3') - call do_History_Track3_plot(& - b, id, device_id, xleft, xright, ybot, ytop, grid_subplot, b% pg% history_Track3_title, & - Grid_txt_scale_factor(i) * b% pg% history_Track3_txt_scale, ierr) - case ('history_track4') - call do_History_Track4_plot(& - b, id, device_id, xleft, xright, ybot, ytop, grid_subplot, b% pg% history_Track4_title, & - Grid_txt_scale_factor(i) * b% pg% history_Track4_txt_scale, ierr) - case ('history_track5') - call do_History_Track5_plot(& - b, id, device_id, xleft, xright, ybot, ytop, grid_subplot, b% pg% history_Track5_title, & - Grid_txt_scale_factor(i) * b% pg% history_Track5_txt_scale, ierr) - case ('history_track6') - call do_History_Track6_plot(& - b, id, device_id, xleft, xright, ybot, ytop, grid_subplot, b% pg% history_Track6_title, & - Grid_txt_scale_factor(i) * b% pg% history_Track6_txt_scale, ierr) - case ('history_track7') - call do_History_Track7_plot(& - b, id, device_id, xleft, xright, ybot, ytop, grid_subplot, b% pg% history_Track7_title, & - Grid_txt_scale_factor(i) * b% pg% history_Track7_txt_scale, ierr) - case ('history_track8') - call do_History_Track8_plot(& - b, id, device_id, xleft, xright, ybot, ytop, grid_subplot, b% pg% history_Track8_title, & - Grid_txt_scale_factor(i) * b% pg% history_Track8_txt_scale, ierr) - case ('history_track9') - call do_History_Track9_plot(& - b, id, device_id, xleft, xright, ybot, ytop, grid_subplot, b% pg% history_Track9_title, & - Grid_txt_scale_factor(i) * b% pg% history_Track9_txt_scale, ierr) - case ('text_summary1') - call do_Text_Summary1_plot(& - b, id, device_id, xleft, xright, ybot, ytop, grid_subplot, b% pg% text_Summary1_title, & - Grid_txt_scale_factor(i) * b% pg% text_Summary1_txt_scale, ierr) - case ('text_summary2') - call do_Text_Summary2_plot(& - b, id, device_id, xleft, xright, ybot, ytop, grid_subplot, b% pg% text_Summary2_title, & - Grid_txt_scale_factor(i) * b% pg% text_Summary2_txt_scale, ierr) - case ('text_summary3') - call do_Text_Summary3_plot(& - b, id, device_id, xleft, xright, ybot, ytop, grid_subplot, b% pg% text_Summary3_title, & - Grid_txt_scale_factor(i) * b% pg% text_Summary3_txt_scale, ierr) - case ('text_summary4') - call do_Text_Summary4_plot(& - b, id, device_id, xleft, xright, ybot, ytop, grid_subplot, b% pg% text_Summary4_title, & - Grid_txt_scale_factor(i) * b% pg% text_Summary4_txt_scale, ierr) - case ('text_summary5') - call do_Text_Summary5_plot(& - b, id, device_id, xleft, xright, ybot, ytop, grid_subplot, b% pg% text_Summary5_title, & - Grid_txt_scale_factor(i) * b% pg% text_Summary5_txt_scale, ierr) - case ('text_summary6') - call do_Text_Summary6_plot(& - b, id, device_id, xleft, xright, ybot, ytop, grid_subplot, b% pg% text_Summary6_title, & - Grid_txt_scale_factor(i) * b% pg% text_Summary6_txt_scale, ierr) - case ('text_summary7') - call do_Text_Summary7_plot(& - b, id, device_id, xleft, xright, ybot, ytop, grid_subplot, b% pg% text_Summary7_title, & - Grid_txt_scale_factor(i) * b% pg% text_Summary7_txt_scale, ierr) - case ('text_summary8') - call do_Text_Summary8_plot(& - b, id, device_id, xleft, xright, ybot, ytop, grid_subplot, b% pg% text_Summary8_title, & - Grid_txt_scale_factor(i) * b% pg% text_Summary8_txt_scale, ierr) - case ('text_summary9') - call do_Text_Summary9_plot(& - b, id, device_id, xleft, xright, ybot, ytop, grid_subplot, b% pg% text_Summary9_title, & - Grid_txt_scale_factor(i) * b% pg% text_Summary9_txt_scale, ierr) + case ('history_panels(1)') + call do_History_Panels_plot(& + b, id, device_id, 1, xleft, xright, ybot, ytop, grid_subplot, b% pg% History_Panels_title(1), & + Grid_txt_scale_factor(i) * b% pg% History_Panels_txt_scale(1), ierr) + case ('history_panels(2)') + call do_History_Panels_plot(& + b, id, device_id, 2, xleft, xright, ybot, ytop, grid_subplot, b% pg% History_Panels_title(2), & + Grid_txt_scale_factor(i) * b% pg% History_Panels_txt_scale(2), ierr) + case ('history_panels(3)') + call do_History_Panels_plot(& + b, id, device_id, 3, xleft, xright, ybot, ytop, grid_subplot, b% pg% History_Panels_title(3), & + Grid_txt_scale_factor(i) * b% pg% History_Panels_txt_scale(3), ierr) + case ('history_panels(4)') + call do_History_Panels_plot(& + b, id, device_id, 4, xleft, xright, ybot, ytop, grid_subplot, b% pg% History_Panels_title(4), & + Grid_txt_scale_factor(i) * b% pg% History_Panels_txt_scale(4), ierr) + case ('history_panels(5)') + call do_History_Panels_plot(& + b, id, device_id, 5, xleft, xright, ybot, ytop, grid_subplot, b% pg% History_Panels_title(5), & + Grid_txt_scale_factor(i) * b% pg% History_Panels_txt_scale(5), ierr) + case ('history_panels(6)') + call do_History_Panels_plot(& + b, id, device_id, 6, xleft, xright, ybot, ytop, grid_subplot, b% pg% History_Panels_title(6), & + Grid_txt_scale_factor(i) * b% pg% History_Panels_txt_scale(6), ierr) + case ('history_panels(7)') + call do_History_Panels_plot(& + b, id, device_id, 7, xleft, xright, ybot, ytop, grid_subplot, b% pg% History_Panels_title(7), & + Grid_txt_scale_factor(i) * b% pg% History_Panels_txt_scale(7), ierr) + case ('history_panels(8)') + call do_History_Panels_plot(& + b, id, device_id, 8, xleft, xright, ybot, ytop, grid_subplot, b% pg% History_Panels_title(8), & + Grid_txt_scale_factor(i) * b% pg% History_Panels_txt_scale(8), ierr) + case ('history_panels(9)') + call do_History_Panels_plot(& + b, id, device_id, 9, xleft, xright, ybot, ytop, grid_subplot, b% pg% History_Panels_title(9), & + Grid_txt_scale_factor(i) * b% pg% History_Panels_txt_scale(9), ierr) + case ('history_track(1)') + call do_History_Track_plot(& + b, id, device_id, 1, xleft, xright, ybot, ytop, grid_subplot, b% pg% History_Track_title(1), & + Grid_txt_scale_factor(i) * b% pg% History_Track_txt_scale(1), ierr) + case ('history_track(2)') + call do_History_Track_plot(& + b, id, device_id, 2, xleft, xright, ybot, ytop, grid_subplot, b% pg% History_Track_title(2), & + Grid_txt_scale_factor(i) * b% pg% History_Track_txt_scale(2), ierr) + case ('history_track(3)') + call do_History_Track_plot(& + b, id, device_id, 3, xleft, xright, ybot, ytop, grid_subplot, b% pg% History_Track_title(3), & + Grid_txt_scale_factor(i) * b% pg% History_Track_txt_scale(3), ierr) + case ('history_track(4)') + call do_History_Track_plot(& + b, id, device_id, 4, xleft, xright, ybot, ytop, grid_subplot, b% pg% History_Track_title(4), & + Grid_txt_scale_factor(i) * b% pg% History_Track_txt_scale(4), ierr) + case ('history_track(5)') + call do_History_Track_plot(& + b, id, device_id, 5, xleft, xright, ybot, ytop, grid_subplot, b% pg% History_Track_title(5), & + Grid_txt_scale_factor(i) * b% pg% History_Track_txt_scale(5), ierr) + case ('history_track(6)') + call do_History_Track_plot(& + b, id, device_id, 6, xleft, xright, ybot, ytop, grid_subplot, b% pg% History_Track_title(6), & + Grid_txt_scale_factor(i) * b% pg% History_Track_txt_scale(6), ierr) + case ('history_track(7)') + call do_History_Track_plot(& + b, id, device_id, 7, xleft, xright, ybot, ytop, grid_subplot, b% pg% History_Track_title(7), & + Grid_txt_scale_factor(i) * b% pg% History_Track_txt_scale(7), ierr) + case ('history_track(8)') + call do_History_Track_plot(& + b, id, device_id, 8, xleft, xright, ybot, ytop, grid_subplot, b% pg% History_Track_title(8), & + Grid_txt_scale_factor(i) * b% pg% History_Track_txt_scale(8), ierr) + case ('history_track(9)') + call do_History_Track_plot(& + b, id, device_id, 9, xleft, xright, ybot, ytop, grid_subplot, b% pg% History_Track_title(9), & + Grid_txt_scale_factor(i) * b% pg% History_Track_txt_scale(9), ierr) + case ('text_summary(1)') + call do_Text_Summary_plot(& + b, id, device_id, 1, xleft, xright, ybot, ytop, grid_subplot, b% pg% Text_Summary_title(1), & + Grid_txt_scale_factor(i) * b% pg% Text_Summary_txt_scale(1), ierr) + case ('text_summary(2)') + call do_Text_Summary_plot(& + b, id, device_id, 2, xleft, xright, ybot, ytop, grid_subplot, b% pg% Text_Summary_title(2), & + Grid_txt_scale_factor(i) * b% pg% Text_Summary_txt_scale(2), ierr) + case ('text_summary(3)') + call do_Text_Summary_plot(& + b, id, device_id, 3, xleft, xright, ybot, ytop, grid_subplot, b% pg% Text_Summary_title(3), & + Grid_txt_scale_factor(i) * b% pg% Text_Summary_txt_scale(3), ierr) + case ('text_summary(4)') + call do_Text_Summary_plot(& + b, id, device_id, 4, xleft, xright, ybot, ytop, grid_subplot, b% pg% Text_Summary_title(4), & + Grid_txt_scale_factor(i) * b% pg% Text_Summary_txt_scale(4), ierr) + case ('text_summary(5)') + call do_Text_Summary_plot(& + b, id, device_id, 5, xleft, xright, ybot, ytop, grid_subplot, b% pg% Text_Summary_title(5), & + Grid_txt_scale_factor(i) * b% pg% Text_Summary_txt_scale(5), ierr) + case ('text_summary(6)') + call do_Text_Summary_plot(& + b, id, device_id, 6, xleft, xright, ybot, ytop, grid_subplot, b% pg% Text_Summary_title(6), & + Grid_txt_scale_factor(i) * b% pg% Text_Summary_txt_scale(6), ierr) + case ('text_summary(7)') + call do_Text_Summary_plot(& + b, id, device_id, 7, xleft, xright, ybot, ytop, grid_subplot, b% pg% Text_Summary_title(7), & + Grid_txt_scale_factor(i) * b% pg% Text_Summary_txt_scale(7), ierr) + case ('text_summary(8)') + call do_Text_Summary_plot(& + b, id, device_id, 8, xleft, xright, ybot, ytop, grid_subplot, b% pg% Text_Summary_title(8), & + Grid_txt_scale_factor(i) * b% pg% Text_Summary_txt_scale(8), ierr) + case ('text_summary(9)') + call do_Text_Summary_plot(& + b, id, device_id, 9, xleft, xright, ybot, ytop, grid_subplot, b% pg% Text_Summary_title(9), & + Grid_txt_scale_factor(i) * b% pg% Text_Summary_txt_scale(9), ierr) case ('star1') call do_Star1_plot(& b, id, device_id, xleft, xright, ybot, ytop, grid_subplot, b% pg% Star1_Title, & @@ -575,7 +348,7 @@ subroutine Grid_plot(b, id, device_id, & call pgebuf() - end subroutine Grid_plot + end subroutine do_Grid_plot end module pgbinary_grid diff --git a/binary/private/pgbinary_hist_track.f90 b/binary/private/pgbinary_hist_track.f90 index dd8438b41..8a94ce499 100644 --- a/binary/private/pgbinary_hist_track.f90 +++ b/binary/private/pgbinary_hist_track.f90 @@ -35,8 +35,8 @@ module pgbinary_hist_track contains - subroutine History_Track1_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id + subroutine History_Track_plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (binary_info), pointer :: b ierr = 0 @@ -45,561 +45,83 @@ subroutine History_Track1_plot(id, device_id, ierr) call pgslct(device_id) call pgbbuf() call pgeras() - call do_History_Track1_plot(b, id, device_id, & - b% pg% History_Track1_xleft, b% pg% History_Track1_xright, & - b% pg% History_Track1_ybot, b% pg% History_Track1_ytop, .false., & - b% pg% History_Track1_title, b% pg% History_Track1_txt_scale, ierr) + call do_History_Track_plot(b, id, device_id, array_ix, & + b% pg% History_Track_xleft(array_ix), b% pg% History_Track_xright(array_ix), & + b% pg% History_Track_ybot(array_ix), b% pg% History_Track_ytop(array_ix), .false., & + b% pg% History_Track_title(array_ix), b% pg% History_Track_txt_scale(array_ix), ierr) if (ierr /= 0) return call pgebuf() - end subroutine History_Track1_plot + end subroutine History_Track_plot - subroutine do_History_Track1_plot(b, id, device_id, & + subroutine do_History_Track_plot(b, id, device_id, array_ix, & vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) type (binary_info), pointer :: b - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - call do_Hist_Track(b, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - b% pg% History_Track1_xname, & - b% pg% History_Track1_yname, & - b% pg% History_Track1_xaxis_label, & - b% pg% History_Track1_yaxis_label, & - b% pg% History_Track1_xmin, & - b% pg% History_Track1_xmax, & - b% pg% History_Track1_xmargin, & - b% pg% History_Track1_dxmin, & - b% pg% History_Track1_ymin, & - b% pg% History_Track1_ymax, & - b% pg% History_Track1_ymargin, & - b% pg% History_Track1_dymin, & - b% pg% History_Track1_step_min, & - b% pg% History_Track1_step_max, & - b% pg% History_Track1_reverse_xaxis, & - b% pg% History_Track1_reverse_yaxis, & - b% pg% History_Track1_log_xaxis, & - b% pg% History_Track1_log_yaxis, & - b% pg% show_History_Track1_target_box, & - b% pg% History_Track1_n_sigma, & - b% pg% History_Track1_xtarget, & - b% pg% History_Track1_ytarget, & - b% pg% History_Track1_xsigma, & - b% pg% History_Track1_ysigma, & - b% pg% show_History_Track1_annotation1, & - b% pg% show_History_Track1_annotation2, & - b% pg% show_History_Track1_annotation3, & - b% pg% History_Track1_fname, & - b% pg% History_Track1_use_decorator, & - b% pg% History_Track1_pgbinary_decorator, & - null_decorate, ierr) - end subroutine do_History_Track1_plot - - - subroutine History_Track2_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Track2_plot(b, id, device_id, & - b% pg% History_Track2_xleft, b% pg% History_Track2_xright, & - b% pg% History_Track2_ybot, b% pg% History_Track2_ytop, .false., & - b% pg% History_Track2_title, b% pg% History_Track2_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Track2_plot - - - subroutine do_History_Track2_plot(b, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (binary_info), pointer :: b - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - call do_Hist_Track(b, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - b% pg% History_Track2_xname, & - b% pg% History_Track2_yname, & - b% pg% History_Track2_xaxis_label, & - b% pg% History_Track2_yaxis_label, & - b% pg% History_Track2_xmin, & - b% pg% History_Track2_xmax, & - b% pg% History_Track2_xmargin, & - b% pg% History_Track2_dxmin, & - b% pg% History_Track2_ymin, & - b% pg% History_Track2_ymax, & - b% pg% History_Track2_ymargin, & - b% pg% History_Track2_dymin, & - b% pg% History_Track2_step_min, & - b% pg% History_Track2_step_max, & - b% pg% History_Track2_reverse_xaxis, & - b% pg% History_Track2_reverse_yaxis, & - b% pg% History_Track2_log_xaxis, & - b% pg% History_Track2_log_yaxis, & - b% pg% show_History_Track2_target_box, & - b% pg% History_Track2_n_sigma, & - b% pg% History_Track2_xtarget, & - b% pg% History_Track2_ytarget, & - b% pg% History_Track2_xsigma, & - b% pg% History_Track2_ysigma, & - b% pg% show_History_Track2_annotation1, & - b% pg% show_History_Track2_annotation2, & - b% pg% show_History_Track2_annotation3, & - b% pg% History_Track2_fname, & - b% pg% History_Track2_use_decorator, & - b% pg% History_Track2_pgbinary_decorator, & - null_decorate, ierr) - end subroutine do_History_Track2_plot - - - subroutine History_Track3_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Track3_plot(b, id, device_id, & - b% pg% History_Track3_xleft, b% pg% History_Track3_xright, & - b% pg% History_Track3_ybot, b% pg% History_Track3_ytop, .false., & - b% pg% History_Track3_title, b% pg% History_Track3_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Track3_plot - - - subroutine do_History_Track3_plot(b, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (binary_info), pointer :: b - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - call do_Hist_Track(b, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - b% pg% History_Track3_xname, & - b% pg% History_Track3_yname, & - b% pg% History_Track3_xaxis_label, & - b% pg% History_Track3_yaxis_label, & - b% pg% History_Track3_xmin, & - b% pg% History_Track3_xmax, & - b% pg% History_Track3_xmargin, & - b% pg% History_Track3_dxmin, & - b% pg% History_Track3_ymin, & - b% pg% History_Track3_ymax, & - b% pg% History_Track3_ymargin, & - b% pg% History_Track3_dymin, & - b% pg% History_Track3_step_min, & - b% pg% History_Track3_step_max, & - b% pg% History_Track3_reverse_xaxis, & - b% pg% History_Track3_reverse_yaxis, & - b% pg% History_Track3_log_xaxis, & - b% pg% History_Track3_log_yaxis, & - b% pg% show_History_Track3_target_box, & - b% pg% History_Track3_n_sigma, & - b% pg% History_Track3_xtarget, & - b% pg% History_Track3_ytarget, & - b% pg% History_Track3_xsigma, & - b% pg% History_Track3_ysigma, & - b% pg% show_History_Track3_annotation1, & - b% pg% show_History_Track3_annotation2, & - b% pg% show_History_Track3_annotation3, & - b% pg% History_Track3_fname, & - b% pg% History_Track3_use_decorator, & - b% pg% History_Track3_pgbinary_decorator, & - null_decorate, ierr) - end subroutine do_History_Track3_plot - - - subroutine History_Track4_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Track4_plot(b, id, device_id, & - b% pg% History_Track4_xleft, b% pg% History_Track4_xright, & - b% pg% History_Track4_ybot, b% pg% History_Track4_ytop, .false., & - b% pg% History_Track4_title, b% pg% History_Track4_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Track4_plot - - - subroutine do_History_Track4_plot(b, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (binary_info), pointer :: b - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - call do_Hist_Track(b, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - b% pg% History_Track4_xname, & - b% pg% History_Track4_yname, & - b% pg% History_Track4_xaxis_label, & - b% pg% History_Track4_yaxis_label, & - b% pg% History_Track4_xmin, & - b% pg% History_Track4_xmax, & - b% pg% History_Track4_xmargin, & - b% pg% History_Track4_dxmin, & - b% pg% History_Track4_ymin, & - b% pg% History_Track4_ymax, & - b% pg% History_Track4_ymargin, & - b% pg% History_Track4_dymin, & - b% pg% History_Track4_step_min, & - b% pg% History_Track4_step_max, & - b% pg% History_Track4_reverse_xaxis, & - b% pg% History_Track4_reverse_yaxis, & - b% pg% History_Track4_log_xaxis, & - b% pg% History_Track4_log_yaxis, & - b% pg% show_History_Track4_target_box, & - b% pg% History_Track4_n_sigma, & - b% pg% History_Track4_xtarget, & - b% pg% History_Track4_ytarget, & - b% pg% History_Track4_xsigma, & - b% pg% History_Track4_ysigma, & - b% pg% show_History_Track4_annotation1, & - b% pg% show_History_Track4_annotation2, & - b% pg% show_History_Track4_annotation3, & - b% pg% History_Track4_fname, & - b% pg% History_Track4_use_decorator, & - b% pg% History_Track4_pgbinary_decorator, & - null_decorate, ierr) - end subroutine do_History_Track4_plot - - - subroutine History_Track5_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Track5_plot(b, id, device_id, & - b% pg% History_Track5_xleft, b% pg% History_Track5_xright, & - b% pg% History_Track5_ybot, b% pg% History_Track5_ytop, .false., & - b% pg% History_Track5_title, b% pg% History_Track5_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Track5_plot - - - subroutine do_History_Track5_plot(b, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (binary_info), pointer :: b - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - call do_Hist_Track(b, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - b% pg% History_Track5_xname, & - b% pg% History_Track5_yname, & - b% pg% History_Track5_xaxis_label, & - b% pg% History_Track5_yaxis_label, & - b% pg% History_Track5_xmin, & - b% pg% History_Track5_xmax, & - b% pg% History_Track5_xmargin, & - b% pg% History_Track5_dxmin, & - b% pg% History_Track5_ymin, & - b% pg% History_Track5_ymax, & - b% pg% History_Track5_ymargin, & - b% pg% History_Track5_dymin, & - b% pg% History_Track5_step_min, & - b% pg% History_Track5_step_max, & - b% pg% History_Track5_reverse_xaxis, & - b% pg% History_Track5_reverse_yaxis, & - b% pg% History_Track5_log_xaxis, & - b% pg% History_Track5_log_yaxis, & - b% pg% show_History_Track5_target_box, & - b% pg% History_Track5_n_sigma, & - b% pg% History_Track5_xtarget, & - b% pg% History_Track5_ytarget, & - b% pg% History_Track5_xsigma, & - b% pg% History_Track5_ysigma, & - b% pg% show_History_Track5_annotation1, & - b% pg% show_History_Track5_annotation2, & - b% pg% show_History_Track5_annotation3, & - b% pg% History_Track5_fname, & - b% pg% History_Track5_use_decorator, & - b% pg% History_Track5_pgbinary_decorator, & - null_decorate, ierr) - end subroutine do_History_Track5_plot - - - subroutine History_Track6_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Track6_plot(b, id, device_id, & - b% pg% History_Track6_xleft, b% pg% History_Track6_xright, & - b% pg% History_Track6_ybot, b% pg% History_Track6_ytop, .false., & - b% pg% History_Track6_title, b% pg% History_Track6_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Track6_plot - - - subroutine do_History_Track6_plot(b, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (binary_info), pointer :: b - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - call do_Hist_Track(b, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - b% pg% History_Track6_xname, & - b% pg% History_Track6_yname, & - b% pg% History_Track6_xaxis_label, & - b% pg% History_Track6_yaxis_label, & - b% pg% History_Track6_xmin, & - b% pg% History_Track6_xmax, & - b% pg% History_Track6_xmargin, & - b% pg% History_Track6_dxmin, & - b% pg% History_Track6_ymin, & - b% pg% History_Track6_ymax, & - b% pg% History_Track6_ymargin, & - b% pg% History_Track6_dymin, & - b% pg% History_Track6_step_min, & - b% pg% History_Track6_step_max, & - b% pg% History_Track6_reverse_xaxis, & - b% pg% History_Track6_reverse_yaxis, & - b% pg% History_Track6_log_xaxis, & - b% pg% History_Track6_log_yaxis, & - b% pg% show_History_Track6_target_box, & - b% pg% History_Track6_n_sigma, & - b% pg% History_Track6_xtarget, & - b% pg% History_Track6_ytarget, & - b% pg% History_Track6_xsigma, & - b% pg% History_Track6_ysigma, & - b% pg% show_History_Track6_annotation1, & - b% pg% show_History_Track6_annotation2, & - b% pg% show_History_Track6_annotation3, & - b% pg% History_Track6_fname, & - b% pg% History_Track6_use_decorator, & - b% pg% History_Track6_pgbinary_decorator, & - null_decorate, ierr) - end subroutine do_History_Track6_plot - - - subroutine History_Track7_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Track7_plot(b, id, device_id, & - b% pg% History_Track7_xleft, b% pg% History_Track7_xright, & - b% pg% History_Track7_ybot, b% pg% History_Track7_ytop, .false., & - b% pg% History_Track7_title, b% pg% History_Track7_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Track7_plot - - - subroutine do_History_Track7_plot(b, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (binary_info), pointer :: b - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - call do_Hist_Track(b, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - b% pg% History_Track7_xname, & - b% pg% History_Track7_yname, & - b% pg% History_Track7_xaxis_label, & - b% pg% History_Track7_yaxis_label, & - b% pg% History_Track7_xmin, & - b% pg% History_Track7_xmax, & - b% pg% History_Track7_xmargin, & - b% pg% History_Track7_dxmin, & - b% pg% History_Track7_ymin, & - b% pg% History_Track7_ymax, & - b% pg% History_Track7_ymargin, & - b% pg% History_Track7_dymin, & - b% pg% History_Track7_step_min, & - b% pg% History_Track7_step_max, & - b% pg% History_Track7_reverse_xaxis, & - b% pg% History_Track7_reverse_yaxis, & - b% pg% History_Track7_log_xaxis, & - b% pg% History_Track7_log_yaxis, & - b% pg% show_History_Track7_target_box, & - b% pg% History_Track7_n_sigma, & - b% pg% History_Track7_xtarget, & - b% pg% History_Track7_ytarget, & - b% pg% History_Track7_xsigma, & - b% pg% History_Track7_ysigma, & - b% pg% show_History_Track7_annotation1, & - b% pg% show_History_Track7_annotation2, & - b% pg% show_History_Track7_annotation3, & - b% pg% History_Track7_fname, & - b% pg% History_Track7_use_decorator, & - b% pg% History_Track7_pgbinary_decorator, & - null_decorate, ierr) - end subroutine do_History_Track7_plot - - - subroutine History_Track8_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Track8_plot(b, id, device_id, & - b% pg% History_Track8_xleft, b% pg% History_Track8_xright, & - b% pg% History_Track8_ybot, b% pg% History_Track8_ytop, .false., & - b% pg% History_Track8_title, b% pg% History_Track8_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Track8_plot - - - subroutine do_History_Track8_plot(b, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (binary_info), pointer :: b - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - call do_Hist_Track(b, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - b% pg% History_Track8_xname, & - b% pg% History_Track8_yname, & - b% pg% History_Track8_xaxis_label, & - b% pg% History_Track8_yaxis_label, & - b% pg% History_Track8_xmin, & - b% pg% History_Track8_xmax, & - b% pg% History_Track8_xmargin, & - b% pg% History_Track8_dxmin, & - b% pg% History_Track8_ymin, & - b% pg% History_Track8_ymax, & - b% pg% History_Track8_ymargin, & - b% pg% History_Track8_dymin, & - b% pg% History_Track8_step_min, & - b% pg% History_Track8_step_max, & - b% pg% History_Track8_reverse_xaxis, & - b% pg% History_Track8_reverse_yaxis, & - b% pg% History_Track8_log_xaxis, & - b% pg% History_Track8_log_yaxis, & - b% pg% show_History_Track8_target_box, & - b% pg% History_Track8_n_sigma, & - b% pg% History_Track8_xtarget, & - b% pg% History_Track8_ytarget, & - b% pg% History_Track8_xsigma, & - b% pg% History_Track8_ysigma, & - b% pg% show_History_Track8_annotation1, & - b% pg% show_History_Track8_annotation2, & - b% pg% show_History_Track8_annotation3, & - b% pg% History_Track8_fname, & - b% pg% History_Track8_use_decorator, & - b% pg% History_Track8_pgbinary_decorator, & - null_decorate, ierr) - end subroutine do_History_Track8_plot - - - subroutine History_Track9_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Track9_plot(b, id, device_id, & - b% pg% History_Track9_xleft, b% pg% History_Track9_xright, & - b% pg% History_Track9_ybot, b% pg% History_Track9_ytop, .false., & - b% pg% History_Track9_title, b% pg% History_Track9_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Track9_plot - - - subroutine do_History_Track9_plot(b, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (binary_info), pointer :: b - integer, intent(in) :: id, device_id + integer, intent(in) :: id, device_id, array_ix real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale logical, intent(in) :: subplot character (len = *), intent(in) :: title integer, intent(out) :: ierr + procedure(pgbinary_decorator_interface), pointer :: decorator + + select case (array_ix) ! decorator interfaces cannot be arrayified + case(1) + decorator => b% pg% History_Track1_pgbinary_decorator + case(2) + decorator => b% pg% History_Track2_pgbinary_decorator + case(3) + decorator => b% pg% History_Track3_pgbinary_decorator + case(4) + decorator => b% pg% History_Track4_pgbinary_decorator + case(5) + decorator => b% pg% History_Track5_pgbinary_decorator + case(6) + decorator => b% pg% History_Track6_pgbinary_decorator + case(7) + decorator => b% pg% History_Track7_pgbinary_decorator + case(8) + decorator => b% pg% History_Track8_pgbinary_decorator + case(9) + decorator => b% pg% History_Track9_pgbinary_decorator + case default + write(*, *) "select appropriate history track window (1..9)" + return + end select + call do_Hist_Track(b, id, device_id, & vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - b% pg% History_Track9_xname, & - b% pg% History_Track9_yname, & - b% pg% History_Track9_xaxis_label, & - b% pg% History_Track9_yaxis_label, & - b% pg% History_Track9_xmin, & - b% pg% History_Track9_xmax, & - b% pg% History_Track9_xmargin, & - b% pg% History_Track9_dxmin, & - b% pg% History_Track9_ymin, & - b% pg% History_Track9_ymax, & - b% pg% History_Track9_ymargin, & - b% pg% History_Track9_dymin, & - b% pg% History_Track9_step_min, & - b% pg% History_Track9_step_max, & - b% pg% History_Track9_reverse_xaxis, & - b% pg% History_Track9_reverse_yaxis, & - b% pg% History_Track9_log_xaxis, & - b% pg% History_Track9_log_yaxis, & - b% pg% show_History_Track9_target_box, & - b% pg% History_Track9_n_sigma, & - b% pg% History_Track9_xtarget, & - b% pg% History_Track9_ytarget, & - b% pg% History_Track9_xsigma, & - b% pg% History_Track9_ysigma, & - b% pg% show_History_Track9_annotation1, & - b% pg% show_History_Track9_annotation2, & - b% pg% show_History_Track9_annotation3, & - b% pg% History_Track9_fname, & - b% pg% History_Track9_use_decorator, & - b% pg% History_Track9_pgbinary_decorator, & - null_decorate, ierr) - end subroutine do_History_Track9_plot + b% pg% History_Track_xname(array_ix), & + b% pg% History_Track_yname(array_ix), & + b% pg% History_Track_xaxis_label(array_ix), & + b% pg% History_Track_yaxis_label(array_ix), & + b% pg% History_Track_xmin(array_ix), & + b% pg% History_Track_xmax(array_ix), & + b% pg% History_Track_xmargin(array_ix), & + b% pg% History_Track_dxmin(array_ix), & + b% pg% History_Track_ymin(array_ix), & + b% pg% History_Track_ymax(array_ix), & + b% pg% History_Track_ymargin(array_ix), & + b% pg% History_Track_dymin(array_ix), & + b% pg% History_Track_step_min(array_ix), & + b% pg% History_Track_step_max(array_ix), & + b% pg% History_Track_reverse_xaxis(array_ix), & + b% pg% History_Track_reverse_yaxis(array_ix), & + b% pg% History_Track_log_xaxis(array_ix), & + b% pg% History_Track_log_yaxis(array_ix), & + b% pg% show_History_Track_target_box(array_ix), & + b% pg% History_Track_n_sigma(array_ix), & + b% pg% History_Track_xtarget(array_ix), & + b% pg% History_Track_ytarget(array_ix), & + b% pg% History_Track_xsigma(array_ix), & + b% pg% History_Track_ysigma(array_ix), & + b% pg% show_History_Track_annotation1(array_ix), & + b% pg% show_History_Track_annotation2(array_ix), & + b% pg% show_History_Track_annotation3(array_ix), & + b% pg% History_Track_fname(array_ix), & + b% pg% History_Track_use_decorator(array_ix), & + decorator, null_decorate, & + ierr) + end subroutine do_History_Track_plot subroutine null_decorate(id, ierr) @@ -689,7 +211,7 @@ end subroutine decorate n = count_hist_points(b, step_min, step_max) allocate(xvec(n), yvec(n), stat = ierr) if (ierr /= 0) then - write(*, *) 'allocate failed for PGSTAR' + write(*, *) 'allocate failed for pgbinary' return end if diff --git a/binary/private/pgbinary_history_panels.f90 b/binary/private/pgbinary_history_panels.f90 index 09c31d072..e16bdd89e 100644 --- a/binary/private/pgbinary_history_panels.f90 +++ b/binary/private/pgbinary_history_panels.f90 @@ -28,6 +28,7 @@ module pgbinary_history_panels use binary_private_def use const_def use pgbinary_support + use binary_pgbinary implicit none @@ -35,8 +36,8 @@ module pgbinary_history_panels contains - subroutine History_Panels1_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id + subroutine History_Panels_plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (binary_info), pointer :: b ierr = 0 @@ -45,549 +46,93 @@ subroutine History_Panels1_plot(id, device_id, ierr) call pgslct(device_id) call pgbbuf() call pgeras() - call do_History_Panels1_plot(b, id, device_id, & - b% pg% History_Panels1_xleft, b% pg% History_Panels1_xright, & - b% pg% History_Panels1_ybot, b% pg% History_Panels1_ytop, .false., & - b% pg% History_Panels1_title, b% pg% History_Panels1_txt_scale, ierr) + call do_History_Panels_plot(b, id, device_id, array_ix, & + b% pg% History_Panels_xleft(array_ix), b% pg% History_Panels_xright(array_ix), & + b% pg% History_Panels_ybot(array_ix), b% pg% History_Panels_ytop(array_ix), .false., & + b% pg% History_Panels_title(array_ix), b% pg% History_Panels_txt_scale(array_ix), ierr) if (ierr /= 0) return call pgebuf() - end subroutine History_Panels1_plot + end subroutine History_Panels_plot - subroutine do_History_Panels1_plot(b, id, device_id, & + subroutine do_History_Panels_plot(b, id, device_id, array_ix, & vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) type (binary_info), pointer :: b - integer, intent(in) :: id, device_id + integer, intent(in) :: id, device_id, array_ix real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale logical, intent(in) :: subplot character (len = *), intent(in) :: title integer, intent(out) :: ierr - call do_history_panels_plot(& - id, b, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - b% pg% History_Panels1_xaxis_name, & - b% pg% History_Panels1_xmin, & - b% pg% History_Panels1_xmax, & - b% pg% History_Panels1_dxmin, & - b% pg% History_Panels1_xmargin, & - b% pg% History_Panels1_max_width, & - b% pg% History_Panels1_num_panels, & - b% pg% History_Panels1_other_ymin, & - b% pg% History_Panels1_other_ymax, & - b% pg% History_Panels1_yaxis_reversed, & - b% pg% History_Panels1_other_yaxis_log, & - b% pg% History_Panels1_other_dymin, & - b% pg% History_Panels1_points_name, & - b% pg% History_Panels1_other_ymargin, & - b% pg% History_Panels1_other_yaxis_name, & - b% pg% History_Panels1_ymin, & - b% pg% History_Panels1_ymax, & - b% pg% History_Panels1_xaxis_reversed, & - b% pg% History_Panels1_yaxis_reversed, & - b% pg% History_Panels1_xaxis_log, & - b% pg% History_Panels1_yaxis_log, & - b% pg% History_Panels1_dymin, & - b% pg% History_Panels1_ymargin, & - b% pg% History_Panels1_yaxis_name, & - b% pg% History_Panels1_use_decorator, & - b% pg% History_Panels1_pgbinary_decorator, & - ierr) - end subroutine do_History_Panels1_plot - - - subroutine History_Panels2_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Panels2_plot(b, id, device_id, & - b% pg% History_Panels2_xleft, b% pg% History_Panels2_xright, & - b% pg% History_Panels2_ybot, b% pg% History_Panels2_ytop, .false., & - b% pg% History_Panels2_title, b% pg% History_Panels2_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Panels2_plot - - - subroutine do_History_Panels2_plot(b, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (binary_info), pointer :: b - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - call do_history_panels_plot(& - id, b, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - b% pg% History_Panels2_xaxis_name, & - b% pg% History_Panels2_xmin, & - b% pg% History_Panels2_xmax, & - b% pg% History_Panels2_dxmin, & - b% pg% History_Panels2_xmargin, & - b% pg% History_Panels2_max_width, & - b% pg% History_Panels2_num_panels, & - b% pg% History_Panels2_other_ymin, & - b% pg% History_Panels2_other_ymax, & - b% pg% History_Panels2_yaxis_reversed, & - b% pg% History_Panels2_other_yaxis_log, & - b% pg% History_Panels2_other_dymin, & - b% pg% History_Panels2_points_name, & - b% pg% History_Panels2_other_ymargin, & - b% pg% History_Panels2_other_yaxis_name, & - b% pg% History_Panels2_ymin, & - b% pg% History_Panels2_ymax, & - b% pg% History_Panels2_xaxis_reversed, & - b% pg% History_Panels2_yaxis_reversed, & - b% pg% History_Panels2_xaxis_log, & - b% pg% History_Panels2_yaxis_log, & - b% pg% History_Panels2_dymin, & - b% pg% History_Panels2_ymargin, & - b% pg% History_Panels2_yaxis_name, & - b% pg% History_Panels2_use_decorator, & - b% pg% History_Panels2_pgbinary_decorator, & - ierr) - end subroutine do_History_Panels2_plot - - - subroutine History_Panels3_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Panels3_plot(b, id, device_id, & - b% pg% History_Panels3_xleft, b% pg% History_Panels3_xright, & - b% pg% History_Panels3_ybot, b% pg% History_Panels3_ytop, .false., & - b% pg% History_Panels3_title, b% pg% History_Panels3_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Panels3_plot - - - subroutine do_History_Panels3_plot(b, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (binary_info), pointer :: b - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - call do_history_panels_plot(& - id, b, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - b% pg% History_Panels3_xaxis_name, & - b% pg% History_Panels3_xmin, & - b% pg% History_Panels3_xmax, & - b% pg% History_Panels3_dxmin, & - b% pg% History_Panels3_xmargin, & - b% pg% History_Panels3_max_width, & - b% pg% History_Panels3_num_panels, & - b% pg% History_Panels3_other_ymin, & - b% pg% History_Panels3_other_ymax, & - b% pg% History_Panels3_yaxis_reversed, & - b% pg% History_Panels3_other_yaxis_log, & - b% pg% History_Panels3_other_dymin, & - b% pg% History_Panels3_points_name, & - b% pg% History_Panels3_other_ymargin, & - b% pg% History_Panels3_other_yaxis_name, & - b% pg% History_Panels3_ymin, & - b% pg% History_Panels3_ymax, & - b% pg% History_Panels3_xaxis_reversed, & - b% pg% History_Panels3_yaxis_reversed, & - b% pg% History_Panels3_xaxis_log, & - b% pg% History_Panels3_yaxis_log, & - b% pg% History_Panels3_dymin, & - b% pg% History_Panels3_ymargin, & - b% pg% History_Panels3_yaxis_name, & - b% pg% History_Panels3_use_decorator, & - b% pg% History_Panels3_pgbinary_decorator, & - ierr) - end subroutine do_History_Panels3_plot - - - subroutine History_Panels4_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Panels4_plot(b, id, device_id, & - b% pg% History_Panels4_xleft, b% pg% History_Panels4_xright, & - b% pg% History_Panels4_ybot, b% pg% History_Panels4_ytop, .false., & - b% pg% History_Panels4_title, b% pg% History_Panels4_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Panels4_plot - - - subroutine do_History_Panels4_plot(b, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (binary_info), pointer :: b - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - call do_history_panels_plot(& - id, b, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - b% pg% History_Panels4_xaxis_name, & - b% pg% History_Panels4_xmin, & - b% pg% History_Panels4_xmax, & - b% pg% History_Panels4_dxmin, & - b% pg% History_Panels4_xmargin, & - b% pg% History_Panels4_max_width, & - b% pg% History_Panels4_num_panels, & - b% pg% History_Panels4_other_ymin, & - b% pg% History_Panels4_other_ymax, & - b% pg% History_Panels4_yaxis_reversed, & - b% pg% History_Panels4_other_yaxis_log, & - b% pg% History_Panels4_other_dymin, & - b% pg% History_Panels4_points_name, & - b% pg% History_Panels4_other_ymargin, & - b% pg% History_Panels4_other_yaxis_name, & - b% pg% History_Panels4_ymin, & - b% pg% History_Panels4_ymax, & - b% pg% History_Panels4_xaxis_reversed, & - b% pg% History_Panels4_yaxis_reversed, & - b% pg% History_Panels4_xaxis_log, & - b% pg% History_Panels4_yaxis_log, & - b% pg% History_Panels4_dymin, & - b% pg% History_Panels4_ymargin, & - b% pg% History_Panels4_yaxis_name, & - b% pg% History_Panels4_use_decorator, & - b% pg% History_Panels4_pgbinary_decorator, & - ierr) - end subroutine do_History_Panels4_plot - - - subroutine History_Panels5_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Panels5_plot(b, id, device_id, & - b% pg% History_Panels5_xleft, b% pg% History_Panels5_xright, & - b% pg% History_Panels5_ybot, b% pg% History_Panels5_ytop, .false., & - b% pg% History_Panels5_title, b% pg% History_Panels5_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Panels5_plot - - - subroutine do_History_Panels5_plot(b, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (binary_info), pointer :: b - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - call do_history_panels_plot(& - id, b, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - b% pg% History_Panels5_xaxis_name, & - b% pg% History_Panels5_xmin, & - b% pg% History_Panels5_xmax, & - b% pg% History_Panels5_dxmin, & - b% pg% History_Panels5_xmargin, & - b% pg% History_Panels5_max_width, & - b% pg% History_Panels5_num_panels, & - b% pg% History_Panels5_other_ymin, & - b% pg% History_Panels5_other_ymax, & - b% pg% History_Panels5_yaxis_reversed, & - b% pg% History_Panels5_other_yaxis_log, & - b% pg% History_Panels5_other_dymin, & - b% pg% History_Panels5_points_name, & - b% pg% History_Panels5_other_ymargin, & - b% pg% History_Panels5_other_yaxis_name, & - b% pg% History_Panels5_ymin, & - b% pg% History_Panels5_ymax, & - b% pg% History_Panels5_xaxis_reversed, & - b% pg% History_Panels5_yaxis_reversed, & - b% pg% History_Panels5_xaxis_log, & - b% pg% History_Panels5_yaxis_log, & - b% pg% History_Panels5_dymin, & - b% pg% History_Panels5_ymargin, & - b% pg% History_Panels5_yaxis_name, & - b% pg% History_Panels5_use_decorator, & - b% pg% History_Panels5_pgbinary_decorator, & - ierr) - end subroutine do_History_Panels5_plot - - - subroutine History_Panels6_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Panels6_plot(b, id, device_id, & - b% pg% History_Panels6_xleft, b% pg% History_Panels6_xright, & - b% pg% History_Panels6_ybot, b% pg% History_Panels6_ytop, .false., & - b% pg% History_Panels6_title, b% pg% History_Panels6_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Panels6_plot - - - subroutine do_History_Panels6_plot(b, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (binary_info), pointer :: b - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - call do_history_panels_plot(& - id, b, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - b% pg% History_Panels6_xaxis_name, & - b% pg% History_Panels6_xmin, & - b% pg% History_Panels6_xmax, & - b% pg% History_Panels6_dxmin, & - b% pg% History_Panels6_xmargin, & - b% pg% History_Panels6_max_width, & - b% pg% History_Panels6_num_panels, & - b% pg% History_Panels6_other_ymin, & - b% pg% History_Panels6_other_ymax, & - b% pg% History_Panels6_yaxis_reversed, & - b% pg% History_Panels6_other_yaxis_log, & - b% pg% History_Panels6_other_dymin, & - b% pg% History_Panels6_points_name, & - b% pg% History_Panels6_other_ymargin, & - b% pg% History_Panels6_other_yaxis_name, & - b% pg% History_Panels6_ymin, & - b% pg% History_Panels6_ymax, & - b% pg% History_Panels6_xaxis_reversed, & - b% pg% History_Panels6_yaxis_reversed, & - b% pg% History_Panels6_xaxis_log, & - b% pg% History_Panels6_yaxis_log, & - b% pg% History_Panels6_dymin, & - b% pg% History_Panels6_ymargin, & - b% pg% History_Panels6_yaxis_name, & - b% pg% History_Panels6_use_decorator, & - b% pg% History_Panels6_pgbinary_decorator, & - ierr) - end subroutine do_History_Panels6_plot - - - subroutine History_Panels7_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Panels7_plot(b, id, device_id, & - b% pg% History_Panels7_xleft, b% pg% History_Panels7_xright, & - b% pg% History_Panels7_ybot, b% pg% History_Panels7_ytop, .false., & - b% pg% History_Panels7_title, b% pg% History_Panels7_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Panels7_plot - - - subroutine do_History_Panels7_plot(b, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (binary_info), pointer :: b - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - call do_history_panels_plot(& - id, b, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - b% pg% History_Panels7_xaxis_name, & - b% pg% History_Panels7_xmin, & - b% pg% History_Panels7_xmax, & - b% pg% History_Panels7_dxmin, & - b% pg% History_Panels7_xmargin, & - b% pg% History_Panels7_max_width, & - b% pg% History_Panels7_num_panels, & - b% pg% History_Panels7_other_ymin, & - b% pg% History_Panels7_other_ymax, & - b% pg% History_Panels7_yaxis_reversed, & - b% pg% History_Panels7_other_yaxis_log, & - b% pg% History_Panels7_other_dymin, & - b% pg% History_Panels7_points_name, & - b% pg% History_Panels7_other_ymargin, & - b% pg% History_Panels7_other_yaxis_name, & - b% pg% History_Panels7_ymin, & - b% pg% History_Panels7_ymax, & - b% pg% History_Panels7_xaxis_reversed, & - b% pg% History_Panels7_yaxis_reversed, & - b% pg% History_Panels7_xaxis_log, & - b% pg% History_Panels7_yaxis_log, & - b% pg% History_Panels7_dymin, & - b% pg% History_Panels7_ymargin, & - b% pg% History_Panels7_yaxis_name, & - b% pg% History_Panels7_use_decorator, & - b% pg% History_Panels7_pgbinary_decorator, & - ierr) - end subroutine do_History_Panels7_plot - - - subroutine History_Panels8_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Panels8_plot(b, id, device_id, & - b% pg% History_Panels8_xleft, b% pg% History_Panels8_xright, & - b% pg% History_Panels8_ybot, b% pg% History_Panels8_ytop, .false., & - b% pg% History_Panels8_title, b% pg% History_Panels8_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Panels8_plot + procedure(pgbinary_decorator_interface), pointer :: decorator + + select case (array_ix) ! decorator interfaces cannot be arrayified + case(1) + decorator => b% pg% History_Panels1_pgbinary_decorator + case(2) + decorator => b% pg% History_Panels2_pgbinary_decorator + case(3) + decorator => b% pg% History_Panels3_pgbinary_decorator + case(4) + decorator => b% pg% History_Panels4_pgbinary_decorator + case(5) + decorator => b% pg% History_Panels5_pgbinary_decorator + case(6) + decorator => b% pg% History_Panels6_pgbinary_decorator + case(7) + decorator => b% pg% History_Panels7_pgbinary_decorator + case(8) + decorator => b% pg% History_Panels8_pgbinary_decorator + case(9) + decorator => b% pg% History_Panels9_pgbinary_decorator + case default + write(*, *) "select appropriate history panels window (1..9)" + return + end select - subroutine do_History_Panels8_plot(b, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (binary_info), pointer :: b - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - call do_history_panels_plot(& - id, b, device_id, & + call do_one_panels_plot(& + id, b, device_id, array_ix, & vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - b% pg% History_Panels8_xaxis_name, & - b% pg% History_Panels8_xmin, & - b% pg% History_Panels8_xmax, & - b% pg% History_Panels8_dxmin, & - b% pg% History_Panels8_xmargin, & - b% pg% History_Panels8_max_width, & - b% pg% History_Panels8_num_panels, & - b% pg% History_Panels8_other_ymin, & - b% pg% History_Panels8_other_ymax, & - b% pg% History_Panels8_yaxis_reversed, & - b% pg% History_Panels8_other_yaxis_log, & - b% pg% History_Panels8_other_dymin, & - b% pg% History_Panels8_points_name, & - b% pg% History_Panels8_other_ymargin, & - b% pg% History_Panels8_other_yaxis_name, & - b% pg% History_Panels8_ymin, & - b% pg% History_Panels8_ymax, & - b% pg% History_Panels8_xaxis_reversed, & - b% pg% History_Panels8_yaxis_reversed, & - b% pg% History_Panels8_xaxis_log, & - b% pg% History_Panels8_yaxis_log, & - b% pg% History_Panels8_dymin, & - b% pg% History_Panels8_ymargin, & - b% pg% History_Panels8_yaxis_name, & - b% pg% History_Panels8_use_decorator, & - b% pg% History_Panels8_pgbinary_decorator, & - ierr) - end subroutine do_History_Panels8_plot + b% pg% History_Panels_max_width(array_ix), b% pg% History_Panels_num_panels(array_ix), & + b% pg% History_Panels_xaxis_name(array_ix), & + b% pg% History_Panels_xmin(array_ix), b% pg% History_Panels_xmax(array_ix), & + b% pg% History_Panels_dxmin(array_ix), b% pg% History_Panels_xmargin(array_ix), & + b% pg% History_Panels_xaxis_reversed(array_ix), b% pg% History_Panels_xaxis_log(array_ix), & - subroutine History_Panels9_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Panels9_plot(b, id, device_id, & - b% pg% History_Panels9_xleft, b% pg% History_Panels9_xright, & - b% pg% History_Panels9_ybot, b% pg% History_Panels9_ytop, .false., & - b% pg% History_Panels9_title, b% pg% History_Panels9_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Panels9_plot + b% pg% History_Panels_yaxis_name(array_ix, :), & + b% pg% History_Panels_ymin(array_ix, :), b% pg% History_Panels_ymax(array_ix, :), & + b% pg% History_Panels_dymin(array_ix, :), b% pg% History_Panels_ymargin(array_ix, :), & + b% pg% History_Panels_yaxis_reversed(array_ix, :), b% pg% History_Panels_yaxis_log(array_ix, :), & + b% pg% History_Panels_other_yaxis_name(array_ix, :), & + b% pg% History_Panels_other_ymin(array_ix, :), b% pg% History_Panels_other_ymax(array_ix, :), & + b% pg% History_Panels_other_dymin(array_ix, :), b% pg% History_Panels_other_ymargin(array_ix, :), & + b% pg% History_Panels_other_yaxis_reversed(array_ix, :), b% pg% History_Panels_other_yaxis_log(array_ix, :), & - subroutine do_History_Panels9_plot(b, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (binary_info), pointer :: b - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - call do_history_panels_plot(& - id, b, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - b% pg% History_Panels9_xaxis_name, & - b% pg% History_Panels9_xmin, & - b% pg% History_Panels9_xmax, & - b% pg% History_Panels9_dxmin, & - b% pg% History_Panels9_xmargin, & - b% pg% History_Panels9_max_width, & - b% pg% History_Panels9_num_panels, & - b% pg% History_Panels9_other_ymin, & - b% pg% History_Panels9_other_ymax, & - b% pg% History_Panels9_other_yaxis_reversed, & - b% pg% History_Panels9_other_yaxis_log, & - b% pg% History_Panels9_other_dymin, & - b% pg% History_Panels9_points_name, & - b% pg% History_Panels9_other_ymargin, & - b% pg% History_Panels9_other_yaxis_name, & - b% pg% History_Panels9_ymin, & - b% pg% History_Panels9_ymax, & - b% pg% History_Panels9_xaxis_reversed, & - b% pg% History_Panels9_yaxis_reversed, & - b% pg% History_Panels9_xaxis_log, & - b% pg% History_Panels9_yaxis_log, & - b% pg% History_Panels9_dymin, & - b% pg% History_Panels9_ymargin, & - b% pg% History_Panels9_yaxis_name, & - b% pg% History_Panels9_use_decorator, & - b% pg% History_Panels9_pgbinary_decorator, & + b% pg% History_Panels_points_name(array_ix, :), & + b% pg% History_Panels_use_decorator(array_ix), decorator, & ierr) - end subroutine do_History_Panels9_plot + end subroutine do_History_Panels_plot - subroutine do_history_panels_plot(& - id, b, device_id, & + subroutine do_one_panels_plot(& + id, b, device_id, array_ix, & vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - hist_xaxis_name, hist_xmin_in, hist_xmax, dxmin, hist_xmargin, & hist_max_width, hist_num_panels, & + hist_xaxis_name_in, & + hist_xmin_in, hist_xmax,& + dxmin, hist_xmargin, & + hist_xaxis_reversed, hist_xaxis_log, & + hist_yaxis_name, & + hist_ymin, hist_ymax, & + hist_dymin, hist_ymargin, & + hist_yaxis_reversed, hist_yaxis_log, & + hist_other_yaxis_name, & hist_other_ymin, hist_other_ymax, & + hist_other_dymin, hist_other_ymargin, & hist_other_yaxis_reversed, hist_other_yaxis_log, & - hist_other_dymin, hist_points_name, & - hist_other_ymargin, hist_other_yaxis_name, & - hist_ymin, hist_ymax, & - hist_xaxis_reversed, hist_yaxis_reversed, & - hist_xaxis_log, hist_yaxis_log, & - hist_dymin, hist_ymargin, hist_yaxis_name, & + hist_points_name, & use_decorator, pgbinary_decorator, & ierr) @@ -595,9 +140,9 @@ subroutine do_history_panels_plot(& use pgstar_support, only : set_xleft_xright, set_ytop_ybot type (binary_info), pointer :: b - integer, intent(in) :: id, device_id, hist_num_panels + integer, intent(in) :: id, device_id, hist_num_panels, array_ix logical, intent(in) :: subplot, hist_xaxis_reversed, hist_xaxis_log - character (len = *), intent(in) :: title, hist_xaxis_name + character (len = *), intent(in) :: title, hist_xaxis_name_in real, intent(in) :: & vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale, & hist_xmin_in, hist_xmax, hist_max_width, hist_xmargin, dxmin @@ -614,7 +159,7 @@ subroutine do_history_panels_plot(& integer, intent(out) :: ierr procedure(pgbinary_decorator_interface), pointer :: pgbinary_decorator - character (len = strlen) :: yname, other_yname + character (len = strlen) :: yname, other_yname, hist_xaxis_name real, pointer, dimension(:) :: xvec, yvec, other_yvec real, pointer, dimension(:) :: yfile_xdata, other_yfile_xdata real, pointer, dimension(:) :: yfile_ydata, other_yfile_ydata @@ -633,19 +178,12 @@ subroutine do_history_panels_plot(& include 'formats' ierr = 0 - - call integer_dict_lookup(b% binary_history_names_dict, hist_xaxis_name, ix, ierr) - if (ierr /= 0) ix = -1 - if (ix <= 0) then - write(*, *) - write(*, *) 'ERROR: failed to find ' // & - trim(hist_xaxis_name) // ' in history data' - write(*, *) - ierr = -1 - end if - + hist_xaxis_name = hist_xaxis_name_in hist_xmin = hist_xmin_in + step_min = 1 + step_max = b% model_number + if (hist_xaxis_name == 'model_number') then max_width = int(hist_max_width) step_min = int(hist_xmin) @@ -654,9 +192,16 @@ subroutine do_history_panels_plot(& if (step_max <= 0) step_max = b% model_number if (step_min >= b% model_number) step_min = 1 if (max_width > 0) step_min = max(step_min, step_max - max_width) - else - step_min = 1 - step_max = b% model_number + end if + + call integer_dict_lookup(b% binary_history_names_dict, hist_xaxis_name, ix, ierr) + if (ierr /= 0) ix = -1 + if (ix <= 0) then + write(*, *) + write(*, *) 'ERROR: failed to find ' // & + trim(hist_xaxis_name) // ' in history data' + write(*, *) + ierr = -1 end if n = count_hist_points(b, step_min, step_max) @@ -914,7 +459,7 @@ logical function get1_yvec(name, vec) end function get1_yvec - end subroutine do_history_panels_plot + end subroutine do_one_panels_plot end module pgbinary_history_panels diff --git a/binary/private/pgbinary_orbit.f90 b/binary/private/pgbinary_orbit.f90 index f5d5b4754..5979d39c4 100644 --- a/binary/private/pgbinary_orbit.f90 +++ b/binary/private/pgbinary_orbit.f90 @@ -34,8 +34,8 @@ module pgbinary_orbit contains - subroutine Orbit_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id + subroutine Orbit_plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (binary_info), pointer :: b ierr = 0 diff --git a/binary/private/pgbinary_star.f90 b/binary/private/pgbinary_star.f90 index d554db2ad..cfce31bb9 100644 --- a/binary/private/pgbinary_star.f90 +++ b/binary/private/pgbinary_star.f90 @@ -34,8 +34,8 @@ module pgbinary_star contains - subroutine Star1_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id + subroutine Star1_plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (binary_info), pointer :: b ierr = 0 @@ -65,8 +65,8 @@ subroutine do_Star1_plot(b, id, device_id, & plot_name, 1, ierr) end subroutine do_Star1_plot - subroutine Star2_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id + subroutine Star2_plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (binary_info), pointer :: b ierr = 0 @@ -103,9 +103,7 @@ subroutine do_star_plot(b, id, device_id, xleft, xright, & use utils_lib, only : StrLowCase use star_lib, only : read_pgstar_inlist use pgstar, only : update_pgstar_data, update_pgstar_history_file - use pgstar_grid, only : do_grid1_plot, do_grid2_plot, do_grid3_plot, & - do_grid4_plot, do_grid5_plot, do_grid6_plot, do_grid7_plot, & - do_grid8_plot, do_grid9_plot + use pgstar_grid, only : do_grid_plot use pgstar_kipp, only : do_Kipp_Plot use pgstar_L_R, only : do_L_R_Plot use pgstar_L_v, only : do_L_v_Plot @@ -120,6 +118,7 @@ subroutine do_star_plot(b, id, device_id, xleft, xright, & use pgstar_dPg_dnu, only : do_dPg_dnu_Plot use pgstar_hr, only : do_HR_Plot use pgstar_trho, only : do_TRho_Plot + use pgstar_tmaxrho, only : do_TmaxRho_Plot use pgstar_dynamo, only : do_Dynamo_plot use pgstar_mixing_Ds, only : do_Mixing_plot use pgstar_trho_profile, only : do_TRho_Profile_plot @@ -131,26 +130,11 @@ subroutine do_star_plot(b, id, device_id, xleft, xright, & use pgstar_summary_history, only : do_summary_history_plot use pgstar_network, only : do_network_plot use pgstar_production, only : do_production_plot - use pgstar_summary, only : & - do_Text_Summary1_plot, do_Text_Summary2_plot, do_Text_Summary3_plot, & - do_Text_Summary4_plot, do_Text_Summary5_plot, do_Text_Summary6_plot, & - do_Text_Summary7_plot, do_Text_Summary8_plot, do_Text_Summary9_plot - use pgstar_profile_panels, only : & - do_Profile_Panels1_plot, do_Profile_Panels2_plot, do_Profile_Panels3_plot, & - do_Profile_Panels4_plot, do_Profile_Panels5_plot, do_Profile_Panels6_plot, & - do_Profile_Panels7_plot, do_Profile_Panels8_plot, do_Profile_Panels9_plot - use pgstar_history_panels, only : & - do_History_Panels1_plot, do_History_Panels2_plot, do_History_Panels3_plot, & - do_History_Panels4_plot, do_History_Panels5_plot, do_History_Panels6_plot, & - do_History_Panels7_plot, do_History_Panels8_plot, do_History_Panels9_plot - use pgstar_hist_track, only : & - do_History_Track1_plot, do_History_Track2_plot, do_History_Track3_plot, & - do_History_Track4_plot, do_History_Track5_plot, do_History_Track6_plot, & - do_History_Track7_plot, do_History_Track8_plot, do_History_Track9_plot - use pgstar_Color_Magnitude, only : & - do_Color_Magnitude1_plot, do_Color_Magnitude2_plot, do_Color_Magnitude3_plot, & - do_Color_Magnitude4_plot, do_Color_Magnitude5_plot, do_Color_Magnitude6_plot, & - do_Color_Magnitude7_plot, do_Color_Magnitude8_plot, do_Color_Magnitude9_plot + use pgstar_summary, only : do_Text_Summary_plot + use pgstar_profile_panels, only : do_Profile_Panels_plot + use pgstar_history_panels, only : do_History_Panels_plot + use pgstar_hist_track, only : do_History_Track_plot + use pgstar_Color_Magnitude, only : do_Color_Magnitude_plot type (binary_info), pointer :: b logical, intent(in) :: subplot @@ -239,322 +223,330 @@ subroutine plot_case(s, star_id) select case(StrLowCase(Star_plot_name)) case ('abundance') call do_abundance_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, & + s, id, device_id, xleft, xright, ybot, ytop, star_subplot, & s% pg% Abundance_title, Star_txt_scale_factor * s% pg% Abundance_txt_scale, ierr) case ('power') call do_power_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, & + s, id, device_id, xleft, xright, ybot, ytop, star_subplot, & s% pg% Power_title, Star_txt_scale_factor * s% pg% Power_txt_scale, ierr) case ('mixing') call do_Mixing_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, & + s, id, device_id, xleft, xright, ybot, ytop, star_subplot, & s% pg% Mixing_title, Star_txt_scale_factor * s% pg% Mixing_txt_scale, ierr) case ('dynamo') call do_Dynamo_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, & + s, id, device_id, xleft, xright, ybot, ytop, star_subplot, & s% pg% Dynamo_title, Star_txt_scale_factor * s% pg% Dynamo_txt_scale, ierr) case ('trho') call do_TRho_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, & + s, id, device_id, xleft, xright, ybot, ytop, star_subplot, & s% pg% TRho_title, Star_txt_scale_factor * s% pg% TRho_txt_scale, ierr) + case ('tmaxrho') + call do_TmaxRho_plot(& + s, id, device_id, xleft, xright, ybot, ytop, star_subplot, & + s% pg% TmaxRho_title, Star_txt_scale_factor * s% pg% TmaxRho_txt_scale, ierr) case ('mode_prop') call do_mode_propagation_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Mode_Prop_title, & + s, id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Mode_Prop_title, & Star_txt_scale_factor * s% pg% Mode_Prop_txt_scale, ierr) case ('summary_burn') call do_summary_burn_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Summary_Burn_title, & + s, id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Summary_Burn_title, & Star_txt_scale_factor * s% pg% Summary_Burn_txt_scale, ierr) case ('summary_profile') call do_summary_profile_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Summary_Profile_title, & + s, id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Summary_Profile_title, & Star_txt_scale_factor * s% pg% Summary_Profile_txt_scale, ierr) case ('summary_history') call do_summary_history_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Summary_History_title, & + s, id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Summary_History_title, & Star_txt_scale_factor * s% pg% Summary_History_txt_scale, ierr) case ('trho_profile') call do_TRho_Profile_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% TRho_Profile_title, & + s, id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% TRho_Profile_title, & Star_txt_scale_factor * s% pg% TRho_Profile_txt_scale, ierr) - case ('profile_panels1') - call do_Profile_Panels1_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Profile_Panels1_title, & - Star_txt_scale_factor * s% pg% Profile_Panels1_txt_scale, ierr) - case ('profile_panels2') - call do_Profile_Panels2_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Profile_Panels2_title, & - Star_txt_scale_factor * s% pg% Profile_Panels2_txt_scale, ierr) - case ('profile_panels3') - call do_Profile_Panels3_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Profile_Panels3_title, & - Star_txt_scale_factor * s% pg% Profile_Panels3_txt_scale, ierr) - case ('profile_panels4') - call do_Profile_Panels4_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Profile_Panels4_title, & - Star_txt_scale_factor * s% pg% Profile_Panels4_txt_scale, ierr) - case ('profile_panels5') - call do_Profile_Panels5_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Profile_Panels5_title, & - Star_txt_scale_factor * s% pg% Profile_Panels5_txt_scale, ierr) - case ('profile_panels6') - call do_Profile_Panels6_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Profile_Panels6_title, & - Star_txt_scale_factor * s% pg% Profile_Panels6_txt_scale, ierr) - case ('profile_panels7') - call do_Profile_Panels7_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Profile_Panels7_title, & - Star_txt_scale_factor * s% pg% Profile_Panels7_txt_scale, ierr) - case ('profile_panels8') - call do_Profile_Panels8_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Profile_Panels8_title, & - Star_txt_scale_factor * s% pg% Profile_Panels8_txt_scale, ierr) - case ('profile_panels9') - call do_Profile_Panels9_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Profile_Panels9_title, & - Star_txt_scale_factor * s% pg% Profile_Panels9_txt_scale, ierr) + case ('tmax_rho') + call do_TmaxRho_Plot(& + s, id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% TmaxRho_title, & + Star_txt_scale_factor * s% pg% TmaxRho_txt_scale, ierr) + case ('profile_panels(1)') + call do_Profile_Panels_plot(& + s, id, device_id, 1, xleft, xright, ybot, ytop, star_subplot, s% pg% Profile_Panels_title(1), & + Star_txt_scale_factor * s% pg% Profile_Panels_txt_scale(1), ierr) + case ('profile_panels(2)') + call do_Profile_Panels_plot(& + s, id, device_id, 2, xleft, xright, ybot, ytop, star_subplot, s% pg% Profile_Panels_title(2), & + Star_txt_scale_factor * s% pg% Profile_Panels_txt_scale(2), ierr) + case ('profile_panels(3)') + call do_Profile_Panels_plot(& + s, id, device_id, 3, xleft, xright, ybot, ytop, star_subplot, s% pg% Profile_Panels_title(3), & + Star_txt_scale_factor * s% pg% Profile_Panels_txt_scale(3), ierr) + case ('profile_panels(4)') + call do_Profile_Panels_plot(& + s, id, device_id, 4, xleft, xright, ybot, ytop, star_subplot, s% pg% Profile_Panels_title(4), & + Star_txt_scale_factor * s% pg% Profile_Panels_txt_scale(4), ierr) + case ('profile_panels(5)') + call do_Profile_Panels_plot(& + s, id, device_id, 5, xleft, xright, ybot, ytop, star_subplot, s% pg% Profile_Panels_title(5), & + Star_txt_scale_factor * s% pg% Profile_Panels_txt_scale(5), ierr) + case ('profile_panels(6)') + call do_Profile_Panels_plot(& + s, id, device_id, 6, xleft, xright, ybot, ytop, star_subplot, s% pg% Profile_Panels_title(6), & + Star_txt_scale_factor * s% pg% Profile_Panels_txt_scale(6), ierr) + case ('profile_panels(7)') + call do_Profile_Panels_plot(& + s, id, device_id, 7, xleft, xright, ybot, ytop, star_subplot, s% pg% Profile_Panels_title(7), & + Star_txt_scale_factor * s% pg% Profile_Panels_txt_scale(7), ierr) + case ('profile_panels(8)') + call do_Profile_Panels_plot(& + s, id, device_id, 8, xleft, xright, ybot, ytop, star_subplot, s% pg% Profile_Panels_title(8), & + Star_txt_scale_factor * s% pg% Profile_Panels_txt_scale(8), ierr) + case ('profile_panels(9)') + call do_Profile_Panels_plot(& + s, id, device_id, 9, xleft, xright, ybot, ytop, star_subplot, s% pg% Profile_Panels_title(9), & + Star_txt_scale_factor * s% pg% Profile_Panels_txt_scale(9), ierr) case ('logg_teff') call do_logg_Teff_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% logg_Teff_title, & + s, id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% logg_Teff_title, & Star_txt_scale_factor * s% pg% logg_Teff_txt_scale, ierr) case ('logg_logt') call do_logg_logT_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% logg_logT_title, & + s, id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% logg_logT_title, & Star_txt_scale_factor * s% pg% logg_logT_txt_scale, ierr) case ('hr') call do_HR_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% HR_title, & + s, id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% HR_title, & Star_txt_scale_factor * s% pg% HR_txt_scale, ierr) case ('logl_r') call do_logL_R_plot(& - s, star_id, device_id, s% pg% show_logL_photosphere_r, xleft, xright, ybot, ytop, & + s, id, device_id, s% pg% show_logL_photosphere_r, xleft, xright, ybot, ytop, & star_subplot, s% pg% logL_R_title, & Star_txt_scale_factor * s% pg% logL_R_txt_scale, ierr) case ('logl_v') call do_logL_v_plot(& - s, star_id, device_id, s% pg% show_logL_photosphere_v, xleft, xright, ybot, ytop, & + s, id, device_id, s% pg% show_logL_photosphere_v, xleft, xright, ybot, ytop, & star_subplot, s% pg% logL_v_title, & Star_txt_scale_factor * s% pg% logL_v_txt_scale, ierr) case ('logl_teff') call do_logL_Teff_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% logL_Teff_title, & + s, id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% logL_Teff_title, & Star_txt_scale_factor * s% pg% logL_Teff_txt_scale, ierr) case ('l_r') call do_L_R_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% L_R_title, & + s, id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% L_R_title, & Star_txt_scale_factor * s% pg% L_R_txt_scale, ierr) case ('l_v') call do_L_v_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% L_v_title, & + s, id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% L_v_title, & Star_txt_scale_factor * s% pg% L_v_txt_scale, ierr) case ('l_teff') call do_L_Teff_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% L_Teff_title, & + s, id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% L_Teff_title, & Star_txt_scale_factor * s% pg% L_Teff_txt_scale, ierr) case ('r_l') call do_R_L_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% R_L_title, & + s, id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% R_L_title, & Star_txt_scale_factor * s% pg% R_L_txt_scale, ierr) case ('r_teff') call do_R_Teff_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% R_Teff_title, & + s, id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% R_Teff_title, & Star_txt_scale_factor * s% pg% R_Teff_txt_scale, ierr) case ('dpg_dnu') call do_dPg_dnu_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% dPg_dnu_title, & + s, id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% dPg_dnu_title, & Star_txt_scale_factor * s% pg% dPg_dnu_txt_scale, ierr) - case ('history_panels1') - call do_History_Panels1_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Panels1_title, & - Star_txt_scale_factor * s% pg% History_Panels1_txt_scale, ierr) - case ('history_panels2') - call do_History_Panels2_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Panels2_title, & - Star_txt_scale_factor * s% pg% History_Panels2_txt_scale, ierr) - case ('history_panels3') - call do_History_Panels3_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Panels3_title, & - Star_txt_scale_factor * s% pg% History_Panels3_txt_scale, ierr) - case ('history_panels4') - call do_History_Panels4_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Panels4_title, & - Star_txt_scale_factor * s% pg% History_Panels4_txt_scale, ierr) - case ('history_panels5') - call do_History_Panels5_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Panels5_title, & - Star_txt_scale_factor * s% pg% History_Panels5_txt_scale, ierr) - case ('history_panels6') - call do_History_Panels6_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Panels6_title, & - Star_txt_scale_factor * s% pg% History_Panels6_txt_scale, ierr) - case ('history_panels7') - call do_History_Panels7_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Panels7_title, & - Star_txt_scale_factor * s% pg% History_Panels7_txt_scale, ierr) - case ('history_panels8') - call do_History_Panels8_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Panels8_title, & - Star_txt_scale_factor * s% pg% History_Panels8_txt_scale, ierr) - case ('history_panels9') - call do_History_Panels9_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Panels9_title, & - Star_txt_scale_factor * s% pg% History_Panels9_txt_scale, ierr) - case ('color_magnitude1') - call do_Color_Magnitude1_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Color_Magnitude1_title, & - Star_txt_scale_factor * s% pg% Color_Magnitude1_txt_scale, ierr) - case ('color_magnitude2') - call do_Color_Magnitude2_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Color_Magnitude2_title, & - Star_txt_scale_factor * s% pg% Color_Magnitude2_txt_scale, ierr) - case ('color_magnitude3') - call do_Color_Magnitude3_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Color_Magnitude3_title, & - Star_txt_scale_factor * s% pg% Color_Magnitude3_txt_scale, ierr) - case ('color_magnitude4') - call do_Color_Magnitude4_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Color_Magnitude4_title, & - Star_txt_scale_factor * s% pg% Color_Magnitude4_txt_scale, ierr) - case ('color_magnitude5') - call do_Color_Magnitude5_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Color_Magnitude5_title, & - Star_txt_scale_factor * s% pg% Color_Magnitude5_txt_scale, ierr) - case ('color_magnitude6') - call do_Color_Magnitude6_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Color_Magnitude6_title, & - Star_txt_scale_factor * s% pg% Color_Magnitude6_txt_scale, ierr) - case ('color_magnitude7') - call do_Color_Magnitude7_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Color_Magnitude7_title, & - Star_txt_scale_factor * s% pg% Color_Magnitude7_txt_scale, ierr) - case ('color_magnitude8') - call do_Color_Magnitude8_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Color_Magnitude8_title, & - Star_txt_scale_factor * s% pg% Color_Magnitude8_txt_scale, ierr) - case ('color_magnitude9') - call do_Color_Magnitude9_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Color_Magnitude9_title, & - Star_txt_scale_factor * s% pg% Color_Magnitude9_txt_scale, ierr) - case ('history_track1') - call do_History_Track1_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Track1_title, & - Star_txt_scale_factor * s% pg% History_Track1_txt_scale, ierr) - case ('history_track2') - call do_History_Track2_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Track2_title, & - Star_txt_scale_factor * s% pg% History_Track2_txt_scale, ierr) - case ('history_track3') - call do_History_Track3_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Track3_title, & - Star_txt_scale_factor * s% pg% History_Track3_txt_scale, ierr) - case ('history_track4') - call do_History_Track4_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Track4_title, & - Star_txt_scale_factor * s% pg% History_Track4_txt_scale, ierr) - case ('history_track5') - call do_History_Track5_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Track5_title, & - Star_txt_scale_factor * s% pg% History_Track5_txt_scale, ierr) - case ('history_track6') - call do_History_Track6_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Track6_title, & - Star_txt_scale_factor * s% pg% History_Track6_txt_scale, ierr) - case ('history_track7') - call do_History_Track7_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Track7_title, & - Star_txt_scale_factor * s% pg% History_Track7_txt_scale, ierr) - case ('history_track8') - call do_History_Track8_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Track8_title, & - Star_txt_scale_factor * s% pg% History_Track8_txt_scale, ierr) - case ('history_track9') - call do_History_Track9_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Track9_title, & - Star_txt_scale_factor * s% pg% History_Track9_txt_scale, ierr) + case ('history_panels(1)') + call do_History_Panels_plot(& + s, id, device_id, 1, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Panels_title(1), & + Star_txt_scale_factor * s% pg% History_Panels_txt_scale(1), ierr) + case ('history_panels(2)') + call do_History_Panels_plot(& + s, id, device_id, 2, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Panels_title(2), & + Star_txt_scale_factor * s% pg% History_Panels_txt_scale(2), ierr) + case ('history_panels(3)') + call do_History_Panels_plot(& + s, id, device_id, 3, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Panels_title(3), & + Star_txt_scale_factor * s% pg% History_Panels_txt_scale(3), ierr) + case ('history_panels(4)') + call do_History_Panels_plot(& + s, id, device_id, 4, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Panels_title(4), & + Star_txt_scale_factor * s% pg% History_Panels_txt_scale(4), ierr) + case ('history_panels(5)') + call do_History_Panels_plot(& + s, id, device_id, 5, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Panels_title(5), & + Star_txt_scale_factor * s% pg% History_Panels_txt_scale(5), ierr) + case ('history_panels(6)') + call do_History_Panels_plot(& + s, id, device_id, 6, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Panels_title(6), & + Star_txt_scale_factor * s% pg% History_Panels_txt_scale(6), ierr) + case ('history_panels(7)') + call do_History_Panels_plot(& + s, id, device_id, 7, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Panels_title(7), & + Star_txt_scale_factor * s% pg% History_Panels_txt_scale(7), ierr) + case ('history_panels(8)') + call do_History_Panels_plot(& + s, id, device_id, 8, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Panels_title(8), & + Star_txt_scale_factor * s% pg% History_Panels_txt_scale(8), ierr) + case ('history_panels(9)') + call do_History_Panels_plot(& + s, id, device_id, 9, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Panels_title(9), & + Star_txt_scale_factor * s% pg% History_Panels_txt_scale(9), ierr) + case ('color_magnitude(1)') + call do_Color_Magnitude_plot(& + s, id, device_id, 1, xleft, xright, ybot, ytop, star_subplot, s% pg% Color_Magnitude_title(1), & + Star_txt_scale_factor * s% pg% Color_Magnitude_txt_scale(1), ierr) + case ('color_magnitude(2)') + call do_Color_Magnitude_plot(& + s, id, device_id, 2, xleft, xright, ybot, ytop, star_subplot, s% pg% Color_Magnitude_title(2), & + Star_txt_scale_factor * s% pg% Color_Magnitude_txt_scale(2), ierr) + case ('color_magnitude(3)') + call do_Color_Magnitude_plot(& + s, id, device_id, 3, xleft, xright, ybot, ytop, star_subplot, s% pg% Color_Magnitude_title(3), & + Star_txt_scale_factor * s% pg% Color_Magnitude_txt_scale(3), ierr) + case ('color_magnitude(4)') + call do_Color_Magnitude_plot(& + s, id, device_id, 4, xleft, xright, ybot, ytop, star_subplot, s% pg% Color_Magnitude_title(4), & + Star_txt_scale_factor * s% pg% Color_Magnitude_txt_scale(4), ierr) + case ('color_magnitude(5)') + call do_Color_Magnitude_plot(& + s, id, device_id, 5, xleft, xright, ybot, ytop, star_subplot, s% pg% Color_Magnitude_title(5), & + Star_txt_scale_factor * s% pg% Color_Magnitude_txt_scale(5), ierr) + case ('color_magnitude(6)') + call do_Color_Magnitude_plot(& + s, id, device_id, 6, xleft, xright, ybot, ytop, star_subplot, s% pg% Color_Magnitude_title(6), & + Star_txt_scale_factor * s% pg% Color_Magnitude_txt_scale(6), ierr) + case ('color_magnitude(7)') + call do_Color_Magnitude_plot(& + s, id, device_id, 7, xleft, xright, ybot, ytop, star_subplot, s% pg% Color_Magnitude_title(7), & + Star_txt_scale_factor * s% pg% Color_Magnitude_txt_scale(7), ierr) + case ('color_magnitude(8)') + call do_Color_Magnitude_plot(& + s, id, device_id, 8, xleft, xright, ybot, ytop, star_subplot, s% pg% Color_Magnitude_title(8), & + Star_txt_scale_factor * s% pg% Color_Magnitude_txt_scale(8), ierr) + case ('color_magnitude(9)') + call do_Color_Magnitude_plot(& + s, id, device_id, 9, xleft, xright, ybot, ytop, star_subplot, s% pg% Color_Magnitude_title(9), & + Star_txt_scale_factor * s% pg% Color_Magnitude_txt_scale(9), ierr) + case ('history_track(1)') + call do_History_Track_plot(& + s, id, device_id, 1, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Track_title(1), & + Star_txt_scale_factor * s% pg% History_Track_txt_scale(1), ierr) + case ('history_track(2)') + call do_History_Track_plot(& + s, id, device_id, 2, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Track_title(2), & + Star_txt_scale_factor * s% pg% History_Track_txt_scale(2), ierr) + case ('history_track(3)') + call do_History_Track_plot(& + s, id, device_id, 3, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Track_title(3), & + Star_txt_scale_factor * s% pg% History_Track_txt_scale(3), ierr) + case ('history_track(4)') + call do_History_Track_plot(& + s, id, device_id, 4, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Track_title(4), & + Star_txt_scale_factor * s% pg% History_Track_txt_scale(4), ierr) + case ('history_track(5)') + call do_History_Track_plot(& + s, id, device_id, 5, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Track_title(5), & + Star_txt_scale_factor * s% pg% History_Track_txt_scale(5), ierr) + case ('history_track(6)') + call do_History_Track_plot(& + s, id, device_id, 6, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Track_title(6), & + Star_txt_scale_factor * s% pg% History_Track_txt_scale(6), ierr) + case ('history_track(7)') + call do_History_Track_plot(& + s, id, device_id, 7, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Track_title(7), & + Star_txt_scale_factor * s% pg% History_Track_txt_scale(7), ierr) + case ('history_track(8)') + call do_History_Track_plot(& + s, id, device_id, 8, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Track_title(8), & + Star_txt_scale_factor * s% pg% History_Track_txt_scale(8), ierr) + case ('history_track(9)') + call do_History_Track_plot(& + s, id, device_id, 9, xleft, xright, ybot, ytop, star_subplot, s% pg% History_Track_title(9), & + Star_txt_scale_factor * s% pg% History_Track_txt_scale(9), ierr) case ('kipp') call do_Kipp_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Kipp_title, & + s, id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Kipp_title, & Star_txt_scale_factor * s% pg% Kipp_txt_scale, ierr) case ('network') call do_Network_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Network_title, & + s, id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Network_title, & Star_txt_scale_factor * s% pg% Network_txt_scale, ierr) case ('production') call do_Production_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Production_title, & + s, id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Production_title, & Star_txt_scale_factor * s% pg% Production_txt_scale, ierr) - case ('text_summary1') - call do_Text_Summary1_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Text_Summary1_title, & - Star_txt_scale_factor * s% pg% Text_Summary1_txt_scale, s% pg% Text_Summary1_dxval, ierr) - case ('text_summary2') - call do_Text_Summary2_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Text_Summary2_title, & - Star_txt_scale_factor * s% pg% Text_Summary2_txt_scale, s% pg% Text_Summary2_dxval, ierr) - case ('text_summary3') - call do_Text_Summary3_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Text_Summary3_title, & - Star_txt_scale_factor * s% pg% Text_Summary3_txt_scale, s% pg% Text_Summary3_dxval, ierr) - case ('text_summary4') - call do_Text_Summary4_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Text_Summary4_title, & - Star_txt_scale_factor * s% pg% Text_Summary4_txt_scale, s% pg% Text_Summary4_dxval, ierr) - case ('text_summary5') - call do_Text_Summary5_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Text_Summary5_title, & - Star_txt_scale_factor * s% pg% Text_Summary5_txt_scale, s% pg% Text_Summary5_dxval, ierr) - case ('text_summary6') - call do_Text_Summary6_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Text_Summary6_title, & - Star_txt_scale_factor * s% pg% Text_Summary6_txt_scale, s% pg% Text_Summary6_dxval, ierr) - case ('text_summary7') - call do_Text_Summary7_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Text_Summary7_title, & - Star_txt_scale_factor * s% pg% Text_Summary7_txt_scale, s% pg% Text_Summary7_dxval, ierr) - case ('text_summary8') - call do_Text_Summary8_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Text_Summary8_title, & - Star_txt_scale_factor * s% pg% Text_Summary8_txt_scale, s% pg% Text_Summary8_dxval, ierr) - case ('text_summary9') - call do_Text_Summary9_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Text_Summary9_title, & - Star_txt_scale_factor * s% pg% Text_Summary9_txt_scale, s% pg% Text_Summary9_dxval, ierr) - case('grid1') - call do_grid1_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Grid1_title, & - Star_txt_scale_factor * s% pg% Grid1_txt_scale_factor, ierr) - case('grid2') - call do_grid2_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Grid2_title, & - Star_txt_scale_factor * s% pg% Grid2_txt_scale_factor, ierr) - case('grid3') - call do_grid3_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Grid3_title, & - Star_txt_scale_factor * s% pg% Grid3_txt_scale_factor, ierr) - case('grid4') - call do_grid4_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Grid4_title, & - Star_txt_scale_factor * s% pg% Grid4_txt_scale_factor, ierr) - case('grid5') - call do_grid5_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Grid5_title, & - Star_txt_scale_factor * s% pg% Grid5_txt_scale_factor, ierr) - case('grid6') - call do_grid6_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Grid6_title, & - Star_txt_scale_factor * s% pg% Grid6_txt_scale_factor, ierr) - case('grid7') - call do_grid7_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Grid7_title, & - Star_txt_scale_factor * s% pg% Grid7_txt_scale_factor, ierr) - case('grid8') - call do_grid8_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Grid8_title, & - Star_txt_scale_factor * s% pg% Grid8_txt_scale_factor, ierr) - case('grid9') - call do_grid9_plot(& - s, star_id, device_id, xleft, xright, ybot, ytop, star_subplot, s% pg% Grid9_title, & - Star_txt_scale_factor * s% pg% Grid9_txt_scale_factor, ierr) + case ('text_summary(1)') + call do_Text_Summary_plot(& + s, id, device_id, 1, xleft, xright, ybot, ytop, star_subplot, s% pg% Text_Summary_title(1), & + Star_txt_scale_factor * s% pg% Text_Summary_txt_scale(1), s% pg% Text_Summary_dxval(1), ierr) + case ('text_summary(2)') + call do_Text_Summary_plot(& + s, id, device_id, 2, xleft, xright, ybot, ytop, star_subplot, s% pg% Text_Summary_title(2), & + Star_txt_scale_factor * s% pg% Text_Summary_txt_scale(2), s% pg% Text_Summary_dxval(2), ierr) + case ('text_summary(3)') + call do_Text_Summary_plot(& + s, id, device_id, 3, xleft, xright, ybot, ytop, star_subplot, s% pg% Text_Summary_title(3), & + Star_txt_scale_factor * s% pg% Text_Summary_txt_scale(3), s% pg% Text_Summary_dxval(3), ierr) + case ('text_summary(4)') + call do_Text_Summary_plot(& + s, id, device_id, 4, xleft, xright, ybot, ytop, star_subplot, s% pg% Text_Summary_title(4), & + Star_txt_scale_factor * s% pg% Text_Summary_txt_scale(4), s% pg% Text_Summary_dxval(4), ierr) + case ('text_summary(5)') + call do_Text_Summary_plot(& + s, id, device_id, 5, xleft, xright, ybot, ytop, star_subplot, s% pg% Text_Summary_title(5), & + Star_txt_scale_factor * s% pg% Text_Summary_txt_scale(5), s% pg% Text_Summary_dxval(5), ierr) + case ('text_summary(6)') + call do_Text_Summary_plot(& + s, id, device_id, 6, xleft, xright, ybot, ytop, star_subplot, s% pg% Text_Summary_title(6), & + Star_txt_scale_factor * s% pg% Text_Summary_txt_scale(6), s% pg% Text_Summary_dxval(6), ierr) + case ('text_summary(7)') + call do_Text_Summary_plot(& + s, id, device_id, 7, xleft, xright, ybot, ytop, star_subplot, s% pg% Text_Summary_title(7), & + Star_txt_scale_factor * s% pg% Text_Summary_txt_scale(7), s% pg% Text_Summary_dxval(7), ierr) + case ('text_summary(8)') + call do_Text_Summary_plot(& + s, id, device_id, 8, xleft, xright, ybot, ytop, star_subplot, s% pg% Text_Summary_title(8), & + Star_txt_scale_factor * s% pg% Text_Summary_txt_scale(8), s% pg% Text_Summary_dxval(8), ierr) + case ('text_summary(9)') + call do_Text_Summary_plot(& + s, id, device_id, 9, xleft, xright, ybot, ytop, star_subplot, s% pg% Text_Summary_title(9), & + Star_txt_scale_factor * s% pg% Text_Summary_txt_scale(9), s% pg% Text_Summary_dxval(9), ierr) + case('grid(1)') + call do_grid_plot(& + s, star_id, device_id, 1, xleft, xright, ybot, ytop, star_subplot, s% pg% Grid_title(1), & + Star_txt_scale_factor * s% pg% Grid_txt_scale_factor(1, :), ierr) + case('grid(2)') + call do_grid_plot(& + s, star_id, device_id, 2, xleft, xright, ybot, ytop, star_subplot, s% pg% Grid_title(2), & + Star_txt_scale_factor * s% pg% Grid_txt_scale_factor(2, :), ierr) + case('grid(3)') + call do_grid_plot(& + s, star_id, device_id, 3, xleft, xright, ybot, ytop, star_subplot, s% pg% Grid_title(3), & + Star_txt_scale_factor * s% pg% Grid_txt_scale_factor(3, :), ierr) + case('grid(4)') + call do_grid_plot(& + s, star_id, device_id, 4, xleft, xright, ybot, ytop, star_subplot, s% pg% Grid_title(4), & + Star_txt_scale_factor * s% pg% Grid_txt_scale_factor(4, :), ierr) + case('grid(5)') + call do_grid_plot(& + s, star_id, device_id, 5, xleft, xright, ybot, ytop, star_subplot, s% pg% Grid_title(5), & + Star_txt_scale_factor * s% pg% Grid_txt_scale_factor(5, :), ierr) + case('grid(6)') + call do_grid_plot(& + s, star_id, device_id, 6, xleft, xright, ybot, ytop, star_subplot, s% pg% Grid_title(6), & + Star_txt_scale_factor * s% pg% Grid_txt_scale_factor(6, :), ierr) + case('grid(7)') + call do_grid_plot(& + s, star_id, device_id, 7, xleft, xright, ybot, ytop, star_subplot, s% pg% Grid_title(7), & + Star_txt_scale_factor * s% pg% Grid_txt_scale_factor(7, :), ierr) + case('grid(8)') + call do_grid_plot(& + s, star_id, device_id, 8, xleft, xright, ybot, ytop, star_subplot, s% pg% Grid_title(8), & + Star_txt_scale_factor * s% pg% Grid_txt_scale_factor(8, :), ierr) + case('grid(9)') + call do_grid_plot(& + s, star_id, device_id, 9, xleft, xright, ybot, ytop, star_subplot, s% pg% Grid_title(9), & + Star_txt_scale_factor * s% pg% Grid_txt_scale_factor(9, :), ierr) case default ! check for "other" plot found_it = .false. @@ -592,6 +584,7 @@ subroutine plot_case(s, star_id) 'logg_logT', & 'dPg_dnu', & 'TRho_Profile', & + 'TmaxRho', & 'Summary_Burn', & 'Summary_Profile', & 'Summary_History', & @@ -602,12 +595,12 @@ subroutine plot_case(s, star_id) 'Dynamo', & 'Mixing', & 'Mode_Prop', & - 'Text_Summary1,..,9', & - 'Profile_Panels1,..,9', & - 'History_Panels1,..,9', & - 'History_Tracks1,..,9', & - 'Color_Magnitude1,..,9', & - 'Grid1,..,9', & + 'Text_Summary(1,..,9)', & + 'Profile_Panels(1,..,9)', & + 'History_Panels(1,..,9)', & + 'History_Tracks(1,..,9)', & + 'Color_Magnitude(1,..,9)', & + 'Grid(1,..,9)', & 'and if you are using star/astero', & 'Echelle', & 'Ratios' diff --git a/binary/private/pgbinary_summary.f90 b/binary/private/pgbinary_summary.f90 index b040207b1..5cb712fca 100644 --- a/binary/private/pgbinary_summary.f90 +++ b/binary/private/pgbinary_summary.f90 @@ -35,8 +35,8 @@ module pgbinary_summary contains - subroutine Text_Summary1_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id + subroutine Text_Summary_plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (binary_info), pointer :: b ierr = 0 @@ -45,300 +45,28 @@ subroutine Text_Summary1_plot(id, device_id, ierr) call pgslct(device_id) call pgbbuf() call pgeras() - call do_Text_Summary1_plot(b, id, device_id, & - b% pg% Text_Summary1_xleft, b% pg% Text_Summary1_xright, & - b% pg% Text_Summary1_ybot, b% pg% Text_Summary1_ytop, .false., & - b% pg% Text_Summary1_title, b% pg% Text_Summary1_txt_scale, ierr) + call do_Text_Summary_plot(b, id, device_id, array_ix, & + b% pg% Text_Summary_xleft(array_ix), b% pg% Text_Summary_xright(array_ix), & + b% pg% Text_Summary_ybot(array_ix), b% pg% Text_Summary_ytop(array_ix), .false., & + b% pg% Text_Summary_title(array_ix), b% pg% Text_Summary_txt_scale(array_ix), ierr) if (ierr /= 0) return call pgebuf() - end subroutine Text_Summary1_plot + end subroutine Text_Summary_plot - subroutine do_Text_Summary1_plot(b, id, device_id, & + subroutine do_Text_Summary_plot(b, id, device_id, array_ix, & winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, ierr) type (binary_info), pointer :: b - integer, intent(in) :: id, device_id + integer, intent(in) :: id, device_id, array_ix real, intent(in) :: winxmin, winxmax, winymin, winymax, txt_scale logical, intent(in) :: subplot character (len = *), intent(in) :: title integer, intent(out) :: ierr call Summary_plot(b, device_id, & winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, & - b% pg% Text_Summary1_num_rows, b% pg% Text_Summary1_num_cols, & - b% pg% Text_Summary1_name, ierr) - end subroutine do_Text_Summary1_plot - - - subroutine Text_Summary2_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_Text_Summary2_plot(b, id, device_id, & - b% pg% Text_Summary2_xleft, b% pg% Text_Summary2_xright, & - b% pg% Text_Summary2_ybot, b% pg% Text_Summary2_ytop, .false., & - b% pg% Text_Summary2_title, b% pg% Text_Summary2_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Text_Summary2_plot - - - subroutine do_Text_Summary2_plot(b, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, ierr) - type (binary_info), pointer :: b - integer, intent(in) :: id, device_id - real, intent(in) :: winxmin, winxmax, winymin, winymax, txt_scale - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - call Summary_plot(b, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, & - b% pg% Text_Summary2_num_rows, b% pg% Text_Summary2_num_cols, & - b% pg% Text_Summary2_name, ierr) - end subroutine do_Text_Summary2_plot - - - subroutine Text_Summary3_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_Text_Summary3_plot(b, id, device_id, & - b% pg% Text_Summary3_xleft, b% pg% Text_Summary3_xright, & - b% pg% Text_Summary3_ybot, b% pg% Text_Summary3_ytop, .false., & - b% pg% Text_Summary3_title, b% pg% Text_Summary3_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Text_Summary3_plot - - - subroutine do_Text_Summary3_plot(b, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, ierr) - type (binary_info), pointer :: b - integer, intent(in) :: id, device_id - real, intent(in) :: winxmin, winxmax, winymin, winymax, txt_scale - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - call Summary_plot(b, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, & - b% pg% Text_Summary3_num_rows, b% pg% Text_Summary3_num_cols, & - b% pg% Text_Summary3_name, ierr) - end subroutine do_Text_Summary3_plot - - - subroutine Text_Summary4_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_Text_Summary4_plot(b, id, device_id, & - b% pg% Text_Summary4_xleft, b% pg% Text_Summary4_xright, & - b% pg% Text_Summary4_ybot, b% pg% Text_Summary4_ytop, .false., & - b% pg% Text_Summary4_title, b% pg% Text_Summary4_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Text_Summary4_plot - - - subroutine do_Text_Summary4_plot(b, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, ierr) - type (binary_info), pointer :: b - integer, intent(in) :: id, device_id - real, intent(in) :: winxmin, winxmax, winymin, winymax, txt_scale - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - call Summary_plot(b, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, & - b% pg% Text_Summary4_num_rows, b% pg% Text_Summary4_num_cols, & - b% pg% Text_Summary4_name, ierr) - end subroutine do_Text_Summary4_plot - - - subroutine Text_Summary5_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_Text_Summary5_plot(b, id, device_id, & - b% pg% Text_Summary5_xleft, b% pg% Text_Summary5_xright, & - b% pg% Text_Summary5_ybot, b% pg% Text_Summary5_ytop, .false., & - b% pg% Text_Summary5_title, b% pg% Text_Summary5_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Text_Summary5_plot - - - subroutine do_Text_Summary5_plot(b, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, ierr) - type (binary_info), pointer :: b - integer, intent(in) :: id, device_id - real, intent(in) :: winxmin, winxmax, winymin, winymax, txt_scale - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - call Summary_plot(b, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, & - b% pg% Text_Summary5_num_rows, b% pg% Text_Summary5_num_cols, & - b% pg% Text_Summary5_name, ierr) - end subroutine do_Text_Summary5_plot - - - subroutine Text_Summary6_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_Text_Summary6_plot(b, id, device_id, & - b% pg% Text_Summary6_xleft, b% pg% Text_Summary6_xright, & - b% pg% Text_Summary6_ybot, b% pg% Text_Summary6_ytop, .false., & - b% pg% Text_Summary6_title, b% pg% Text_Summary6_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Text_Summary6_plot - - - subroutine do_Text_Summary6_plot(b, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, ierr) - type (binary_info), pointer :: b - integer, intent(in) :: id, device_id - real, intent(in) :: winxmin, winxmax, winymin, winymax, txt_scale - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - call Summary_plot(b, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, & - b% pg% Text_Summary6_num_rows, b% pg% Text_Summary6_num_cols, & - b% pg% Text_Summary6_name, ierr) - end subroutine do_Text_Summary6_plot - - - subroutine Text_Summary7_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_Text_Summary7_plot(b, id, device_id, & - b% pg% Text_Summary7_xleft, b% pg% Text_Summary7_xright, & - b% pg% Text_Summary7_ybot, b% pg% Text_Summary7_ytop, .false., & - b% pg% Text_Summary7_title, b% pg% Text_Summary7_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Text_Summary7_plot - - - subroutine do_Text_Summary7_plot(b, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, ierr) - type (binary_info), pointer :: b - integer, intent(in) :: id, device_id - real, intent(in) :: winxmin, winxmax, winymin, winymax, txt_scale - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - call Summary_plot(b, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, & - b% pg% Text_Summary7_num_rows, b% pg% Text_Summary7_num_cols, & - b% pg% Text_Summary7_name, ierr) - end subroutine do_Text_Summary7_plot - - - subroutine Text_Summary8_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_Text_Summary8_plot(b, id, device_id, & - b% pg% Text_Summary8_xleft, b% pg% Text_Summary8_xright, & - b% pg% Text_Summary8_ybot, b% pg% Text_Summary8_ytop, .false., & - b% pg% Text_Summary8_title, b% pg% Text_Summary8_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Text_Summary8_plot - - - subroutine do_Text_Summary8_plot(b, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, ierr) - type (binary_info), pointer :: b - integer, intent(in) :: id, device_id - real, intent(in) :: winxmin, winxmax, winymin, winymax, txt_scale - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - call Summary_plot(b, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, & - b% pg% Text_Summary8_num_rows, b% pg% Text_Summary8_num_cols, & - b% pg% Text_Summary8_name, ierr) - end subroutine do_Text_Summary8_plot - - - subroutine Text_Summary9_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (binary_info), pointer :: b - ierr = 0 - call get_binary_ptr(id, b, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_Text_Summary9_plot(b, id, device_id, & - b% pg% Text_Summary9_xleft, b% pg% Text_Summary9_xright, & - b% pg% Text_Summary9_ybot, b% pg% Text_Summary9_ytop, .false., & - b% pg% Text_Summary9_title, b% pg% Text_Summary9_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Text_Summary9_plot - - - subroutine do_Text_Summary9_plot(b, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, ierr) - type (binary_info), pointer :: b - integer, intent(in) :: id, device_id - real, intent(in) :: winxmin, winxmax, winymin, winymax, txt_scale - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - call Summary_plot(b, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, & - b% pg% Text_Summary9_num_rows, b% pg% Text_Summary9_num_cols, & - b% pg% Text_Summary9_name, ierr) - end subroutine do_Text_Summary9_plot + b% pg% Text_Summary_num_rows(array_ix), b% pg% Text_Summary_num_cols(array_ix), & + b% pg% Text_Summary_name(array_ix, :, :), ierr) + end subroutine do_Text_Summary_plot subroutine Summary_plot(b, device_id, & diff --git a/binary/private/pgbinary_summary_history.f90 b/binary/private/pgbinary_summary_history.f90 index 3a50fac0e..311c31ffe 100644 --- a/binary/private/pgbinary_summary_history.f90 +++ b/binary/private/pgbinary_summary_history.f90 @@ -35,9 +35,8 @@ module pgbinary_summary_history contains - subroutine summary_history_plot(id, device_id, ierr) - implicit none - integer, intent(in) :: id, device_id + subroutine summary_history_plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (binary_info), pointer :: b diff --git a/binary/private/pgbinary_support.f90 b/binary/private/pgbinary_support.f90 index 3c0577f4b..b9f368db1 100644 --- a/binary/private/pgbinary_support.f90 +++ b/binary/private/pgbinary_support.f90 @@ -196,7 +196,7 @@ subroutine write_plot_to_file(b, p, filename, ierr) write(*, *) 'failed in open_device' return end if - call p% plot(b% binary_id, p% id_file, ierr) + call p% plot(b% binary_id, p% id_file, p% array_ix, ierr) call pgclos p% id_file = 0 p% do_file = .false. diff --git a/binary/public/binary_pgbinary.f90 b/binary/public/binary_pgbinary.f90 index 9d04d23e5..def0e9289 100644 --- a/binary/public/binary_pgbinary.f90 +++ b/binary/public/binary_pgbinary.f90 @@ -1,22 +1,26 @@ ! *********************************************************************** ! -! Copyright (C) 2022 Matthias Fabry +! Copyright (C) 2024 Matthias Fabry and the MESA Team ! -! this file is part of mesa. +! MESA is free software; you can use it and/or modify +! it under the combined terms and restrictions of the MESA MANIFESTO +! and the GNU General Library Public License as published +! by the Free Software Foundation; either version 2 of the License, +! or (at your option) any later version. ! -! mesa is free software; you can redistribute it and/or modify -! it under the terms of the gnu general library public license as published -! by the free software foundation; either version 2 of the license, or -! (at your option) any later version. +! You should have received a copy of the MESA MANIFESTO along with +! this software; if not, it is available at the mesa website: +! http://mesa.sourceforge.net/ ! -! mesa is distributed in the hope that it will be useful, -! but without any warranty; without even the implied warranty of -! merchantability or fitness for a particular purpose. see the -! gnu library general public license for more details. +! MESA is distributed in the hope that it will be useful, +! but WITHOUT ANY WARRANTY; without even the implied warranty of +! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. +! See the GNU Library General Public License for more details. +! +! You should have received a copy of the GNU Library General Public License +! along with this software; if not, write to the Free Software +! Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ! -! you should have received a copy of the gnu library general public license -! along with this software; if not, write to the free software -! foundation, inc., 59 temple place, suite 330, boston, ma 02111-1307 usa ! ! *********************************************************************** @@ -27,8 +31,8 @@ module binary_pgbinary abstract interface - subroutine pgbinary_plot_interface(id, device_id, ierr) - integer, intent(in) :: id, device_id + subroutine pgbinary_plot_interface(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr end subroutine pgbinary_plot_interface @@ -50,8 +54,8 @@ end subroutine pgbinary_decorator_interface end interface type pgbinary_win_file_data - integer :: id - character (len = 64) :: name + integer :: id, array_ix + character (len = strlen) :: name logical :: win_flag, file_flag, do_win, do_file integer :: id_win, id_file, file_interval real :: win_width, prev_win_width @@ -67,59 +71,22 @@ end subroutine pgbinary_decorator_interface do_plot_in_binary_grid => null() end type pgbinary_win_file_data - integer, parameter :: max_num_Binary_History_Panels = 10 + integer, parameter :: max_num_Binary_History_Panels = 16 integer, parameter :: max_num_Summary_Binary_History_Lines = 16 - integer, parameter :: max_num_Binary_Other_plots = 10 + integer, parameter :: max_num_Binary_Other_plots = 16 - integer, parameter :: i_Summary_Binary_History = 1 + integer, parameter :: pgbinary_array_length = 9 - integer, parameter :: i_Binary_Text_Summary1 = i_Summary_Binary_History + 1 - integer, parameter :: i_Binary_Text_Summary2 = i_Binary_Text_Summary1 + 1 - integer, parameter :: i_Binary_Text_Summary3 = i_Binary_Text_Summary2 + 1 - integer, parameter :: i_Binary_Text_Summary4 = i_Binary_Text_Summary3 + 1 - integer, parameter :: i_Binary_Text_Summary5 = i_Binary_Text_Summary4 + 1 - integer, parameter :: i_Binary_Text_Summary6 = i_Binary_Text_Summary5 + 1 - integer, parameter :: i_Binary_Text_Summary7 = i_Binary_Text_Summary6 + 1 - integer, parameter :: i_Binary_Text_Summary8 = i_Binary_Text_Summary7 + 1 - integer, parameter :: i_Binary_Text_Summary9 = i_Binary_Text_Summary8 + 1 - - integer, parameter :: i_Binary_Hist_Track1 = i_Binary_Text_Summary9 + 1 - integer, parameter :: i_Binary_Hist_Track2 = i_Binary_Hist_Track1 + 1 - integer, parameter :: i_Binary_Hist_Track3 = i_Binary_Hist_Track2 + 1 - integer, parameter :: i_Binary_Hist_Track4 = i_Binary_Hist_Track3 + 1 - integer, parameter :: i_Binary_Hist_Track5 = i_Binary_Hist_Track4 + 1 - integer, parameter :: i_Binary_Hist_Track6 = i_Binary_Hist_Track5 + 1 - integer, parameter :: i_Binary_Hist_Track7 = i_Binary_Hist_Track6 + 1 - integer, parameter :: i_Binary_Hist_Track8 = i_Binary_Hist_Track7 + 1 - integer, parameter :: i_Binary_Hist_Track9 = i_Binary_Hist_Track8 + 1 - - integer, parameter :: i_Binary_Hist_Panels1 = i_Binary_Hist_Track9 + 1 - integer, parameter :: i_Binary_Hist_Panels2 = i_Binary_Hist_Panels1 + 1 - integer, parameter :: i_Binary_Hist_Panels3 = i_Binary_Hist_Panels2 + 1 - integer, parameter :: i_Binary_Hist_Panels4 = i_Binary_Hist_Panels3 + 1 - integer, parameter :: i_Binary_Hist_Panels5 = i_Binary_Hist_Panels4 + 1 - integer, parameter :: i_Binary_Hist_Panels6 = i_Binary_Hist_Panels5 + 1 - integer, parameter :: i_Binary_Hist_Panels7 = i_Binary_Hist_Panels6 + 1 - integer, parameter :: i_Binary_Hist_Panels8 = i_Binary_Hist_Panels7 + 1 - integer, parameter :: i_Binary_Hist_Panels9 = i_Binary_Hist_Panels8 + 1 - - integer, parameter :: i_Binary_Grid1 = i_Binary_Hist_Panels9 + 1 - integer, parameter :: i_Binary_Grid2 = i_Binary_Grid1 + 1 - integer, parameter :: i_Binary_Grid3 = i_Binary_Grid2 + 1 - integer, parameter :: i_Binary_Grid4 = i_Binary_Grid3 + 1 - integer, parameter :: i_Binary_Grid5 = i_Binary_Grid4 + 1 - integer, parameter :: i_Binary_Grid6 = i_Binary_Grid5 + 1 - integer, parameter :: i_Binary_Grid7 = i_Binary_Grid6 + 1 - integer, parameter :: i_Binary_Grid8 = i_Binary_Grid7 + 1 - integer, parameter :: i_Binary_Grid9 = i_Binary_Grid8 + 1 - - integer, parameter :: i_Binary_Star1 = i_Binary_Grid9 + 1 + integer, parameter :: i_Summary_Binary_History = 1 + integer, parameter :: i_Binary_Text_Summary = i_Summary_Binary_History + 1 + integer, parameter :: i_Binary_Hist_Track = i_Binary_Text_Summary + pgbinary_array_length + integer, parameter :: i_Binary_Hist_Panels = i_Binary_Hist_Track + pgbinary_array_length + integer, parameter :: i_Binary_Grid = i_Binary_Hist_Panels + pgbinary_array_length + integer, parameter :: i_Binary_Star1 = i_Binary_Grid + pgbinary_array_length integer, parameter :: i_Binary_Star2 = i_Binary_Star1 + 1 - integer, parameter :: i_Binary_Other = i_Binary_Star2 + 1 - integer, parameter :: num_pgbinary_plots = i_Binary_Other + & - max_num_Binary_Other_plots + integer, parameter :: num_pgbinary_plots = i_Binary_Other + max_num_Binary_Other_plots integer, parameter :: max_num_pgbinary_Grid_plots = 10 @@ -139,25 +106,25 @@ end subroutine pgbinary_decorator_interface type (pgbinary_hist_node), pointer :: pgbinary_hist => null() procedure(pgbinary_decorator_interface), pointer, nopass :: & - History_Panels1_pgbinary_decorator => null(), & - History_Panels2_pgbinary_decorator => null(), & - History_Panels3_pgbinary_decorator => null(), & - History_Panels4_pgbinary_decorator => null(), & - History_Panels5_pgbinary_decorator => null(), & - History_Panels6_pgbinary_decorator => null(), & - History_Panels7_pgbinary_decorator => null(), & - History_Panels8_pgbinary_decorator => null(), & - History_Panels9_pgbinary_decorator => null(), & - History_Track1_pgbinary_decorator => null(), & - History_Track2_pgbinary_decorator => null(), & - History_Track3_pgbinary_decorator => null(), & - History_Track4_pgbinary_decorator => null(), & - History_Track5_pgbinary_decorator => null(), & - History_Track6_pgbinary_decorator => null(), & - History_Track7_pgbinary_decorator => null(), & - History_Track8_pgbinary_decorator => null(), & - History_Track9_pgbinary_decorator => null(), & - summary_history_pgbinary_decorator => null() + History_Panels1_pgbinary_decorator => null(), & + History_Panels2_pgbinary_decorator => null(), & + History_Panels3_pgbinary_decorator => null(), & + History_Panels4_pgbinary_decorator => null(), & + History_Panels5_pgbinary_decorator => null(), & + History_Panels6_pgbinary_decorator => null(), & + History_Panels7_pgbinary_decorator => null(), & + History_Panels8_pgbinary_decorator => null(), & + History_Panels9_pgbinary_decorator => null(), & + History_Track1_pgbinary_decorator => null(), & + History_Track2_pgbinary_decorator => null(), & + History_Track3_pgbinary_decorator => null(), & + History_Track4_pgbinary_decorator => null(), & + History_Track5_pgbinary_decorator => null(), & + History_Track6_pgbinary_decorator => null(), & + History_Track7_pgbinary_decorator => null(), & + History_Track8_pgbinary_decorator => null(), & + History_Track9_pgbinary_decorator => null(), & + summary_history_pgbinary_decorator => null() end type pgbinary_controls diff --git a/binary/public/pgbinary_controls.inc b/binary/public/pgbinary_controls.inc index 84f6d86c3..a55ede7f3 100644 --- a/binary/public/pgbinary_controls.inc +++ b/binary/public/pgbinary_controls.inc @@ -60,617 +60,74 @@ integer :: pause_interval real :: pgbinary_sleep logical :: clear_history -logical :: Text_Summary1_win_flag, Text_Summary1_file_flag -logical :: do_Text_Summary1_win, do_Text_Summary1_file -integer :: id_Text_Summary1_win, id_Text_Summary1_file, Text_Summary1_file_interval -character (len = strlen) :: Text_Summary1_title, Text_Summary1_file_dir, & - Text_Summary1_file_prefix -integer :: Text_Summary1_num_cols, Text_Summary1_num_rows -character (len = 64) :: & - Text_Summary1_name(max_num_rows_Text_Summary, max_num_cols_Text_Summary) -real :: Text_Summary1_xleft, Text_Summary1_xright, & - Text_Summary1_ybot, Text_Summary1_ytop, Text_Summary1_txt_scale, & - Text_Summary1_win_width, Text_Summary1_win_aspect_ratio, & - prev_Text_Summary1_win_width, prev_Text_Summary1_win_ratio, & - Text_Summary1_file_width, Text_Summary1_file_aspect_ratio, & - prev_Text_Summary1_file_width, prev_Text_Summary1_file_ratio +logical, dimension(pgbinary_array_length) :: Text_Summary_win_flag, Text_Summary_file_flag +integer, dimension(pgbinary_array_length) :: id_Text_Summary_win, id_Text_Summary_file, Text_Summary_file_interval +character (len=strlen), dimension(pgbinary_array_length) :: Text_Summary_title, Text_Summary_file_dir, & + Text_Summary_file_prefix +integer, dimension(pgbinary_array_length) :: Text_Summary_num_cols, Text_Summary_num_rows +character (len=64), dimension(pgbinary_array_length, max_num_rows_Text_Summary, max_num_cols_Text_Summary) :: & + Text_Summary_name +real, dimension(pgbinary_array_length) :: & + Text_Summary_xleft, Text_Summary_xright, & + Text_Summary_ybot, Text_Summary_ytop, Text_Summary_txt_scale, Text_Summary_dxval, & + Text_Summary_win_width, Text_Summary_win_aspect_ratio, & + prev_Text_Summary_win_width, prev_Text_Summary_win_ratio, & + Text_Summary_file_width, Text_Summary_file_aspect_ratio, & + prev_Text_Summary_file_width, prev_Text_Summary_file_ratio + +logical, dimension(pgbinary_array_length) :: History_Track_win_flag, History_Track_file_flag +logical, dimension(pgbinary_array_length):: show_History_Track_annotation1, & + show_History_Track_annotation2, show_History_Track_annotation3 +logical, dimension(pgbinary_array_length) :: show_History_Track_target_box, & + History_Track_reverse_xaxis, History_Track_reverse_yaxis, & + History_Track_log_xaxis, History_Track_log_yaxis +integer, dimension(pgbinary_array_length) :: id_History_Track_win, id_History_Track_file, History_Track_file_interval +integer, dimension(pgbinary_array_length) :: History_Track_step_min, History_Track_step_max, History_Track_n_sigma +character (len=strlen), dimension(pgbinary_array_length) :: & + History_Track_file_dir, History_Track_file_prefix, History_Track_title, & + History_Track_xname, History_Track_xaxis_label, & + History_Track_yname, History_Track_yaxis_label, History_Track_fname +real, dimension(pgbinary_array_length) :: & + History_Track_xmin, History_Track_xmax, & + History_Track_ymin, History_Track_ymax, & + History_Track_xmargin, History_Track_ymargin, & + History_Track_dxmin, History_Track_dymin, & + History_Track_xtarget, History_Track_xsigma, & + History_Track_ytarget, History_Track_ysigma, & + History_Track_win_width, History_Track_win_aspect_ratio, & + History_Track_xleft, History_Track_xright, & + History_Track_ybot, History_Track_ytop, History_Track_txt_scale, & + prev_History_Track_win_width, prev_History_Track_win_ratio, & + History_Track_file_width, History_Track_file_aspect_ratio, & + prev_History_Track_file_width, prev_History_Track_file_ratio + +logical, dimension(pgbinary_array_length) :: History_Panels_win_flag, History_Panels_file_flag +integer, dimension(pgbinary_array_length) :: id_History_Panels_win, id_History_Panels_file, History_Panels_file_interval +character (len=strlen), dimension(pgbinary_array_length) :: History_Panels_file_dir, History_Panels_file_prefix +logical, dimension(pgbinary_array_length) :: History_Panels_xaxis_reversed, History_Panels_xaxis_log +character (len=strlen), dimension(pgbinary_array_length) :: History_Panels_xaxis_name, History_Panels_title +real, dimension(pgbinary_array_length) :: & + History_Panels_xmin, History_Panels_xmax, History_Panels_dxmin,& + History_Panels_max_width,History_Panels_xmargin, & + History_Panels_win_width, History_Panels_win_aspect_ratio, & + History_Panels_xleft, History_Panels_xright, & + History_Panels_ybot, History_Panels_ytop, History_Panels_txt_scale, & + prev_History_Panels_win_width, prev_History_Panels_win_ratio, & + History_Panels_file_width, History_Panels_file_aspect_ratio, & + prev_History_Panels_file_width, prev_History_Panels_file_ratio +integer, dimension(pgbinary_array_length) :: History_Panels_num_panels +character (len=strlen), dimension(pgbinary_array_length, max_num_History_Panels) :: & + History_Panels_yaxis_name, History_Panels_other_yaxis_name, & + History_Panels_points_name +logical, dimension(pgbinary_array_length, max_num_History_Panels) :: & + History_Panels_yaxis_reversed, History_Panels_other_yaxis_reversed, & + History_Panels_yaxis_log, History_Panels_other_yaxis_log +real, dimension(pgbinary_array_length, max_num_History_Panels) :: & + History_Panels_ymin, History_Panels_other_ymin, & + History_Panels_ymax, History_Panels_other_ymax, & + History_Panels_ymargin, History_Panels_other_ymargin, & + History_Panels_dymin, History_Panels_other_dymin -logical :: Text_Summary2_win_flag, Text_Summary2_file_flag -logical :: do_Text_Summary2_win, do_Text_Summary2_file -integer :: id_Text_Summary2_win, id_Text_Summary2_file, Text_Summary2_file_interval -character (len = strlen) :: Text_Summary2_title, Text_Summary2_file_dir, & - Text_Summary2_file_prefix -integer :: Text_Summary2_num_cols, Text_Summary2_num_rows -character (len = 64) :: & - Text_Summary2_name(max_num_rows_Text_Summary, max_num_cols_Text_Summary) -real :: Text_Summary2_xleft, Text_Summary2_xright, & - Text_Summary2_ybot, Text_Summary2_ytop, Text_Summary2_txt_scale, & - Text_Summary2_win_width, Text_Summary2_win_aspect_ratio, & - prev_Text_Summary2_win_width, prev_Text_Summary2_win_ratio, & - Text_Summary2_file_width, Text_Summary2_file_aspect_ratio, & - prev_Text_Summary2_file_width, prev_Text_Summary2_file_ratio - -logical :: Text_Summary3_win_flag, Text_Summary3_file_flag -logical :: do_Text_Summary3_win, do_Text_Summary3_file -integer :: id_Text_Summary3_win, id_Text_Summary3_file, Text_Summary3_file_interval -character (len = strlen) :: Text_Summary3_title, Text_Summary3_file_dir, & - Text_Summary3_file_prefix -integer :: Text_Summary3_num_cols, Text_Summary3_num_rows -character (len = 64) :: & - Text_Summary3_name(max_num_rows_Text_Summary, max_num_cols_Text_Summary) -real :: Text_Summary3_xleft, Text_Summary3_xright, & - Text_Summary3_ybot, Text_Summary3_ytop, Text_Summary3_txt_scale, & - Text_Summary3_win_width, Text_Summary3_win_aspect_ratio, & - prev_Text_Summary3_win_width, prev_Text_Summary3_win_ratio, & - Text_Summary3_file_width, Text_Summary3_file_aspect_ratio, & - prev_Text_Summary3_file_width, prev_Text_Summary3_file_ratio - -logical :: Text_Summary4_win_flag, Text_Summary4_file_flag -logical :: do_Text_Summary4_win, do_Text_Summary4_file -integer :: id_Text_Summary4_win, id_Text_Summary4_file, Text_Summary4_file_interval -character (len = strlen) :: Text_Summary4_title, Text_Summary4_file_dir, & - Text_Summary4_file_prefix -integer :: Text_Summary4_num_cols, Text_Summary4_num_rows -character (len = 64) :: & - Text_Summary4_name(max_num_rows_Text_Summary, max_num_cols_Text_Summary) -real :: Text_Summary4_xleft, Text_Summary4_xright, & - Text_Summary4_ybot, Text_Summary4_ytop, Text_Summary4_txt_scale, & - Text_Summary4_win_width, Text_Summary4_win_aspect_ratio, & - prev_Text_Summary4_win_width, prev_Text_Summary4_win_ratio, & - Text_Summary4_file_width, Text_Summary4_file_aspect_ratio, & - prev_Text_Summary4_file_width, prev_Text_Summary4_file_ratio - -logical :: Text_Summary5_win_flag, Text_Summary5_file_flag -logical :: do_Text_Summary5_win, do_Text_Summary5_file -integer :: id_Text_Summary5_win, id_Text_Summary5_file, Text_Summary5_file_interval -character (len = strlen) :: Text_Summary5_title, Text_Summary5_file_dir, & - Text_Summary5_file_prefix -integer :: Text_Summary5_num_cols, Text_Summary5_num_rows -character (len = 64) :: & - Text_Summary5_name(max_num_rows_Text_Summary, max_num_cols_Text_Summary) -real :: Text_Summary5_xleft, Text_Summary5_xright, & - Text_Summary5_ybot, Text_Summary5_ytop, Text_Summary5_txt_scale, & - Text_Summary5_win_width, Text_Summary5_win_aspect_ratio, & - prev_Text_Summary5_win_width, prev_Text_Summary5_win_ratio, & - Text_Summary5_file_width, Text_Summary5_file_aspect_ratio, & - prev_Text_Summary5_file_width, prev_Text_Summary5_file_ratio - -logical :: Text_Summary6_win_flag, Text_Summary6_file_flag -logical :: do_Text_Summary6_win, do_Text_Summary6_file -integer :: id_Text_Summary6_win, id_Text_Summary6_file, Text_Summary6_file_interval -character (len = strlen) :: Text_Summary6_title, Text_Summary6_file_dir, & - Text_Summary6_file_prefix -integer :: Text_Summary6_num_cols, Text_Summary6_num_rows -character (len = 64) :: & - Text_Summary6_name(max_num_rows_Text_Summary, max_num_cols_Text_Summary) -real :: Text_Summary6_xleft, Text_Summary6_xright, & - Text_Summary6_ybot, Text_Summary6_ytop, Text_Summary6_txt_scale, & - Text_Summary6_win_width, Text_Summary6_win_aspect_ratio, & - prev_Text_Summary6_win_width, prev_Text_Summary6_win_ratio, & - Text_Summary6_file_width, Text_Summary6_file_aspect_ratio, & - prev_Text_Summary6_file_width, prev_Text_Summary6_file_ratio - -logical :: Text_Summary7_win_flag, Text_Summary7_file_flag -logical :: do_Text_Summary7_win, do_Text_Summary7_file -integer :: id_Text_Summary7_win, id_Text_Summary7_file, Text_Summary7_file_interval -character (len = strlen) :: Text_Summary7_title, Text_Summary7_file_dir, & - Text_Summary7_file_prefix -integer :: Text_Summary7_num_cols, Text_Summary7_num_rows -character (len = 64) :: & - Text_Summary7_name(max_num_rows_Text_Summary, max_num_cols_Text_Summary) -real :: Text_Summary7_xleft, Text_Summary7_xright, & - Text_Summary7_ybot, Text_Summary7_ytop, Text_Summary7_txt_scale, & - Text_Summary7_win_width, Text_Summary7_win_aspect_ratio, & - prev_Text_Summary7_win_width, prev_Text_Summary7_win_ratio, & - Text_Summary7_file_width, Text_Summary7_file_aspect_ratio, & - prev_Text_Summary7_file_width, prev_Text_Summary7_file_ratio - -logical :: Text_Summary8_win_flag, Text_Summary8_file_flag -logical :: do_Text_Summary8_win, do_Text_Summary8_file -integer :: id_Text_Summary8_win, id_Text_Summary8_file, Text_Summary8_file_interval -character (len = strlen) :: Text_Summary8_title, Text_Summary8_file_dir, & - Text_Summary8_file_prefix -integer :: Text_Summary8_num_cols, Text_Summary8_num_rows -character (len = 64) :: & - Text_Summary8_name(max_num_rows_Text_Summary, max_num_cols_Text_Summary) -real :: Text_Summary8_xleft, Text_Summary8_xright, & - Text_Summary8_ybot, Text_Summary8_ytop, Text_Summary8_txt_scale, & - Text_Summary8_win_width, Text_Summary8_win_aspect_ratio, & - prev_Text_Summary8_win_width, prev_Text_Summary8_win_ratio, & - Text_Summary8_file_width, Text_Summary8_file_aspect_ratio, & - prev_Text_Summary8_file_width, prev_Text_Summary8_file_ratio - -logical :: Text_Summary9_win_flag, Text_Summary9_file_flag -logical :: do_Text_Summary9_win, do_Text_Summary9_file -integer :: id_Text_Summary9_win, id_Text_Summary9_file, Text_Summary9_file_interval -character (len = strlen) :: Text_Summary9_title, Text_Summary9_file_dir, & - Text_Summary9_file_prefix -integer :: Text_Summary9_num_cols, Text_Summary9_num_rows -character (len = 64) :: & - Text_Summary9_name(max_num_rows_Text_Summary, max_num_cols_Text_Summary) -real :: Text_Summary9_xleft, Text_Summary9_xright, & - Text_Summary9_ybot, Text_Summary9_ytop, Text_Summary9_txt_scale, & - Text_Summary9_win_width, Text_Summary9_win_aspect_ratio, & - prev_Text_Summary9_win_width, prev_Text_Summary9_win_ratio, & - Text_Summary9_file_width, Text_Summary9_file_aspect_ratio, & - prev_Text_Summary9_file_width, prev_Text_Summary9_file_ratio - -logical :: History_Track1_win_flag, History_Track1_file_flag -logical :: do_History_Track1_win, do_History_Track1_file -logical :: show_History_Track1_annotation1, & - show_History_Track1_annotation2, show_History_Track1_annotation3 -logical :: show_History_Track1_target_box, & - History_Track1_reverse_xaxis, History_Track1_reverse_yaxis, & - History_Track1_log_xaxis, History_Track1_log_yaxis -integer :: id_History_Track1_win, id_History_Track1_file, History_Track1_file_interval -integer :: History_Track1_step_min, History_Track1_step_max, History_Track1_n_sigma -character (len = strlen) :: & - History_Track1_file_dir, History_Track1_file_prefix, History_Track1_title, & - History_Track1_xname, History_Track1_xaxis_label, & - History_Track1_yname, History_Track1_yaxis_label, History_Track1_fname -real :: History_Track1_xmin, History_Track1_xmax, & - History_Track1_ymin, History_Track1_ymax, & - History_Track1_xmargin, History_Track1_ymargin, & - History_Track1_dxmin, History_Track1_dymin, & - History_Track1_xtarget, History_Track1_xsigma, & - History_Track1_ytarget, History_Track1_ysigma, & - History_Track1_win_width, History_Track1_win_aspect_ratio, & - History_Track1_xleft, History_Track1_xright, & - History_Track1_ybot, History_Track1_ytop, History_Track1_txt_scale, & - prev_History_Track1_win_width, prev_History_Track1_win_ratio, & - History_Track1_file_width, History_Track1_file_aspect_ratio, & - prev_History_Track1_file_width, prev_History_Track1_file_ratio - -logical :: History_Track2_win_flag, History_Track2_file_flag -logical :: do_History_Track2_win, do_History_Track2_file -logical :: show_History_Track2_annotation1, & - show_History_Track2_annotation2, show_History_Track2_annotation3 -logical :: show_History_Track2_target_box, & - History_Track2_reverse_xaxis, History_Track2_reverse_yaxis, & - History_Track2_log_xaxis, History_Track2_log_yaxis -integer :: id_History_Track2_win, id_History_Track2_file, History_Track2_file_interval -integer :: History_Track2_step_min, History_Track2_step_max, History_Track2_n_sigma -character (len = strlen) :: & - History_Track2_file_dir, History_Track2_file_prefix, History_Track2_title, & - History_Track2_xname, History_Track2_xaxis_label, & - History_Track2_yname, History_Track2_yaxis_label, History_Track2_fname -real :: History_Track2_xmin, History_Track2_xmax, & - History_Track2_ymin, History_Track2_ymax, & - History_Track2_xmargin, History_Track2_ymargin, & - History_Track2_dxmin, History_Track2_dymin, & - History_Track2_xtarget, History_Track2_xsigma, & - History_Track2_ytarget, History_Track2_ysigma, & - History_Track2_win_width, History_Track2_win_aspect_ratio, & - History_Track2_xleft, History_Track2_xright, & - History_Track2_ybot, History_Track2_ytop, History_Track2_txt_scale, & - prev_History_Track2_win_width, prev_History_Track2_win_ratio, & - History_Track2_file_width, History_Track2_file_aspect_ratio, & - prev_History_Track2_file_width, prev_History_Track2_file_ratio - -logical :: History_Track3_win_flag, History_Track3_file_flag -logical :: do_History_Track3_win, do_History_Track3_file -logical :: show_History_Track3_annotation1, & - show_History_Track3_annotation2, show_History_Track3_annotation3 -logical :: show_History_Track3_target_box, & - History_Track3_reverse_xaxis, History_Track3_reverse_yaxis, & - History_Track3_log_xaxis, History_Track3_log_yaxis -integer :: id_History_Track3_win, id_History_Track3_file, History_Track3_file_interval -integer :: History_Track3_step_min, History_Track3_step_max, History_Track3_n_sigma -character (len = strlen) :: & - History_Track3_file_dir, History_Track3_file_prefix, History_Track3_title, & - History_Track3_xname, History_Track3_xaxis_label, & - History_Track3_yname, History_Track3_yaxis_label, History_Track3_fname -real :: History_Track3_xmin, History_Track3_xmax, & - History_Track3_ymin, History_Track3_ymax, & - History_Track3_xmargin, History_Track3_ymargin, & - History_Track3_dxmin, History_Track3_dymin, & - History_Track3_xtarget, History_Track3_xsigma, & - History_Track3_ytarget, History_Track3_ysigma, & - History_Track3_win_width, History_Track3_win_aspect_ratio, & - History_Track3_xleft, History_Track3_xright, & - History_Track3_ybot, History_Track3_ytop, History_Track3_txt_scale, & - prev_History_Track3_win_width, prev_History_Track3_win_ratio, & - History_Track3_file_width, History_Track3_file_aspect_ratio, & - prev_History_Track3_file_width, prev_History_Track3_file_ratio - -logical :: History_Track4_win_flag, History_Track4_file_flag -logical :: do_History_Track4_win, do_History_Track4_file -logical :: show_History_Track4_annotation1, & - show_History_Track4_annotation2, show_History_Track4_annotation3 -logical :: show_History_Track4_target_box, & - History_Track4_reverse_xaxis, History_Track4_reverse_yaxis, & - History_Track4_log_xaxis, History_Track4_log_yaxis -integer :: id_History_Track4_win, id_History_Track4_file, History_Track4_file_interval -integer :: History_Track4_step_min, History_Track4_step_max, History_Track4_n_sigma -character (len = strlen) :: & - History_Track4_file_dir, History_Track4_file_prefix, History_Track4_title, & - History_Track4_xname, History_Track4_xaxis_label, & - History_Track4_yname, History_Track4_yaxis_label, History_Track4_fname -real :: History_Track4_xmin, History_Track4_xmax, & - History_Track4_ymin, History_Track4_ymax, & - History_Track4_xmargin, History_Track4_ymargin, & - History_Track4_dxmin, History_Track4_dymin, & - History_Track4_xtarget, History_Track4_xsigma, & - History_Track4_ytarget, History_Track4_ysigma, & - History_Track4_win_width, History_Track4_win_aspect_ratio, & - History_Track4_xleft, History_Track4_xright, & - History_Track4_ybot, History_Track4_ytop, History_Track4_txt_scale, & - prev_History_Track4_win_width, prev_History_Track4_win_ratio, & - History_Track4_file_width, History_Track4_file_aspect_ratio, & - prev_History_Track4_file_width, prev_History_Track4_file_ratio - -logical :: History_Track5_win_flag, History_Track5_file_flag -logical :: do_History_Track5_win, do_History_Track5_file -logical :: show_History_Track5_annotation1, & - show_History_Track5_annotation2, show_History_Track5_annotation3 -logical :: show_History_Track5_target_box, & - History_Track5_reverse_xaxis, History_Track5_reverse_yaxis, & - History_Track5_log_xaxis, History_Track5_log_yaxis -integer :: id_History_Track5_win, id_History_Track5_file, History_Track5_file_interval -integer :: History_Track5_step_min, History_Track5_step_max, History_Track5_n_sigma -character (len = strlen) :: & - History_Track5_file_dir, History_Track5_file_prefix, History_Track5_title, & - History_Track5_xname, History_Track5_xaxis_label, & - History_Track5_yname, History_Track5_yaxis_label, History_Track5_fname -real :: History_Track5_xmin, History_Track5_xmax, & - History_Track5_ymin, History_Track5_ymax, & - History_Track5_xmargin, History_Track5_ymargin, & - History_Track5_dxmin, History_Track5_dymin, & - History_Track5_xtarget, History_Track5_xsigma, & - History_Track5_ytarget, History_Track5_ysigma, & - History_Track5_win_width, History_Track5_win_aspect_ratio, & - History_Track5_xleft, History_Track5_xright, & - History_Track5_ybot, History_Track5_ytop, History_Track5_txt_scale, & - prev_History_Track5_win_width, prev_History_Track5_win_ratio, & - History_Track5_file_width, History_Track5_file_aspect_ratio, & - prev_History_Track5_file_width, prev_History_Track5_file_ratio - -logical :: History_Track6_win_flag, History_Track6_file_flag -logical :: do_History_Track6_win, do_History_Track6_file -logical :: show_History_Track6_annotation1, & - show_History_Track6_annotation2, show_History_Track6_annotation3 -logical :: show_History_Track6_target_box, & - History_Track6_reverse_xaxis, History_Track6_reverse_yaxis, & - History_Track6_log_xaxis, History_Track6_log_yaxis -integer :: id_History_Track6_win, id_History_Track6_file, History_Track6_file_interval -integer :: History_Track6_step_min, History_Track6_step_max, History_Track6_n_sigma -character (len = strlen) :: & - History_Track6_file_dir, History_Track6_file_prefix, History_Track6_title, & - History_Track6_xname, History_Track6_xaxis_label, & - History_Track6_yname, History_Track6_yaxis_label, History_Track6_fname -real :: History_Track6_xmin, History_Track6_xmax, & - History_Track6_ymin, History_Track6_ymax, & - History_Track6_xmargin, History_Track6_ymargin, & - History_Track6_dxmin, History_Track6_dymin, & - History_Track6_xtarget, History_Track6_xsigma, & - History_Track6_ytarget, History_Track6_ysigma, & - History_Track6_win_width, History_Track6_win_aspect_ratio, & - History_Track6_xleft, History_Track6_xright, & - History_Track6_ybot, History_Track6_ytop, History_Track6_txt_scale, & - prev_History_Track6_win_width, prev_History_Track6_win_ratio, & - History_Track6_file_width, History_Track6_file_aspect_ratio, & - prev_History_Track6_file_width, prev_History_Track6_file_ratio - -logical :: History_Track7_win_flag, History_Track7_file_flag -logical :: do_History_Track7_win, do_History_Track7_file -logical :: show_History_Track7_annotation1, & - show_History_Track7_annotation2, show_History_Track7_annotation3 -logical :: show_History_Track7_target_box, & - History_Track7_reverse_xaxis, History_Track7_reverse_yaxis, & - History_Track7_log_xaxis, History_Track7_log_yaxis -integer :: id_History_Track7_win, id_History_Track7_file, History_Track7_file_interval -integer :: History_Track7_step_min, History_Track7_step_max, History_Track7_n_sigma -character (len = strlen) :: & - History_Track7_file_dir, History_Track7_file_prefix, History_Track7_title, & - History_Track7_xname, History_Track7_xaxis_label, & - History_Track7_yname, History_Track7_yaxis_label, History_Track7_fname -real :: History_Track7_xmin, History_Track7_xmax, & - History_Track7_ymin, History_Track7_ymax, & - History_Track7_xmargin, History_Track7_ymargin, & - History_Track7_dxmin, History_Track7_dymin, & - History_Track7_xtarget, History_Track7_xsigma, & - History_Track7_ytarget, History_Track7_ysigma, & - History_Track7_win_width, History_Track7_win_aspect_ratio, & - History_Track7_xleft, History_Track7_xright, & - History_Track7_ybot, History_Track7_ytop, History_Track7_txt_scale, & - prev_History_Track7_win_width, prev_History_Track7_win_ratio, & - History_Track7_file_width, History_Track7_file_aspect_ratio, & - prev_History_Track7_file_width, prev_History_Track7_file_ratio - -logical :: History_Track8_win_flag, History_Track8_file_flag -logical :: do_History_Track8_win, do_History_Track8_file -logical :: show_History_Track8_annotation1, & - show_History_Track8_annotation2, show_History_Track8_annotation3 -logical :: show_History_Track8_target_box, & - History_Track8_reverse_xaxis, History_Track8_reverse_yaxis, & - History_Track8_log_xaxis, History_Track8_log_yaxis -integer :: id_History_Track8_win, id_History_Track8_file, History_Track8_file_interval -integer :: History_Track8_step_min, History_Track8_step_max, History_Track8_n_sigma -character (len = strlen) :: & - History_Track8_file_dir, History_Track8_file_prefix, History_Track8_title, & - History_Track8_xname, History_Track8_xaxis_label, & - History_Track8_yname, History_Track8_yaxis_label, History_Track8_fname -real :: History_Track8_xmin, History_Track8_xmax, & - History_Track8_ymin, History_Track8_ymax, & - History_Track8_xmargin, History_Track8_ymargin, & - History_Track8_dxmin, History_Track8_dymin, & - History_Track8_xtarget, History_Track8_xsigma, & - History_Track8_ytarget, History_Track8_ysigma, & - History_Track8_win_width, History_Track8_win_aspect_ratio, & - History_Track8_xleft, History_Track8_xright, & - History_Track8_ybot, History_Track8_ytop, History_Track8_txt_scale, & - prev_History_Track8_win_width, prev_History_Track8_win_ratio, & - History_Track8_file_width, History_Track8_file_aspect_ratio, & - prev_History_Track8_file_width, prev_History_Track8_file_ratio - -logical :: History_Track9_win_flag, History_Track9_file_flag -logical :: do_History_Track9_win, do_History_Track9_file -logical :: show_History_Track9_annotation1, & - show_History_Track9_annotation2, show_History_Track9_annotation3 -logical :: show_History_Track9_target_box, & - History_Track9_reverse_xaxis, History_Track9_reverse_yaxis, & - History_Track9_log_xaxis, History_Track9_log_yaxis -integer :: id_History_Track9_win, id_History_Track9_file, History_Track9_file_interval -integer :: History_Track9_step_min, History_Track9_step_max, History_Track9_n_sigma -character (len = strlen) :: & - History_Track9_file_dir, History_Track9_file_prefix, History_Track9_title, & - History_Track9_xname, History_Track9_xaxis_label, & - History_Track9_yname, History_Track9_yaxis_label, History_Track9_fname -real :: History_Track9_xmin, History_Track9_xmax, & - History_Track9_ymin, History_Track9_ymax, & - History_Track9_xmargin, History_Track9_ymargin, & - History_Track9_dxmin, History_Track9_dymin, & - History_Track9_xtarget, History_Track9_xsigma, & - History_Track9_ytarget, History_Track9_ysigma, & - History_Track9_win_width, History_Track9_win_aspect_ratio, & - History_Track9_xleft, History_Track9_xright, & - History_Track9_ybot, History_Track9_ytop, History_Track9_txt_scale, & - prev_History_Track9_win_width, prev_History_Track9_win_ratio, & - History_Track9_file_width, History_Track9_file_aspect_ratio, & - prev_History_Track9_file_width, prev_History_Track9_file_ratio - -logical :: History_Panels1_win_flag, History_Panels1_file_flag -logical :: do_History_Panels1_win, do_History_Panels1_file -integer :: id_History_Panels1_win, id_History_Panels1_file, History_Panels1_file_interval -character (len = strlen) :: History_Panels1_file_dir, History_Panels1_file_prefix -logical :: History_Panels1_xaxis_reversed, History_Panels1_xaxis_log -character (len = strlen) :: History_Panels1_xaxis_name, History_Panels1_title -real :: History_Panels1_xmin, History_Panels1_xmax, History_Panels1_dxmin, & - History_Panels1_max_width, History_Panels1_xmargin, & - History_Panels1_win_width, History_Panels1_win_aspect_ratio, & - History_Panels1_xleft, History_Panels1_xright, & - History_Panels1_ybot, History_Panels1_ytop, History_Panels1_txt_scale, & - prev_History_Panels1_win_width, prev_History_Panels1_win_ratio, & - History_Panels1_file_width, History_Panels1_file_aspect_ratio, & - prev_History_Panels1_file_width, prev_History_Panels1_file_ratio -integer :: History_Panels1_num_panels -character (len = strlen), dimension(max_num_History_Panels) :: & - History_Panels1_yaxis_name, History_Panels1_other_yaxis_name, & - History_Panels1_points_name -logical, dimension(max_num_History_Panels) :: & - History_Panels1_yaxis_reversed, History_Panels1_other_yaxis_reversed, & - History_Panels1_yaxis_log, History_Panels1_other_yaxis_log -real, dimension(max_num_History_Panels) :: & - History_Panels1_ymin, History_Panels1_other_ymin, & - History_Panels1_ymax, History_Panels1_other_ymax, & - History_Panels1_ymargin, History_Panels1_other_ymargin, & - History_Panels1_dymin, History_Panels1_other_dymin - -logical :: History_Panels2_win_flag, History_Panels2_file_flag -logical :: do_History_Panels2_win, do_History_Panels2_file -integer :: id_History_Panels2_win, id_History_Panels2_file, History_Panels2_file_interval -character (len = strlen) :: History_Panels2_file_dir, History_Panels2_file_prefix -logical :: History_Panels2_xaxis_reversed, History_Panels2_xaxis_log -character (len = strlen) :: History_Panels2_xaxis_name, History_Panels2_title -real :: History_Panels2_xmin, History_Panels2_xmax, History_Panels2_dxmin, & - History_Panels2_max_width, History_Panels2_xmargin, & - History_Panels2_win_width, History_Panels2_win_aspect_ratio, & - History_Panels2_xleft, History_Panels2_xright, & - History_Panels2_ybot, History_Panels2_ytop, History_Panels2_txt_scale, & - prev_History_Panels2_win_width, prev_History_Panels2_win_ratio, & - History_Panels2_file_width, History_Panels2_file_aspect_ratio, & - prev_History_Panels2_file_width, prev_History_Panels2_file_ratio -integer :: History_Panels2_num_panels -character (len = strlen), dimension(max_num_History_Panels) :: & - History_Panels2_yaxis_name, History_Panels2_other_yaxis_name, & - History_Panels2_points_name -logical, dimension(max_num_History_Panels) :: & - History_Panels2_yaxis_reversed, History_Panels2_other_yaxis_reversed, & - History_Panels2_yaxis_log, History_Panels2_other_yaxis_log -real, dimension(max_num_History_Panels) :: & - History_Panels2_ymin, History_Panels2_other_ymin, & - History_Panels2_ymax, History_Panels2_other_ymax, & - History_Panels2_ymargin, History_Panels2_other_ymargin, & - History_Panels2_dymin, History_Panels2_other_dymin - -logical :: History_Panels3_win_flag, History_Panels3_file_flag -logical :: do_History_Panels3_win, do_History_Panels3_file -integer :: id_History_Panels3_win, id_History_Panels3_file, History_Panels3_file_interval -character (len = strlen) :: History_Panels3_file_dir, History_Panels3_file_prefix -logical :: History_Panels3_xaxis_reversed, History_Panels3_xaxis_log -character (len = strlen) :: History_Panels3_xaxis_name, History_Panels3_title -real :: History_Panels3_xmin, History_Panels3_xmax, History_Panels3_dxmin, & - History_Panels3_max_width, History_Panels3_xmargin, & - History_Panels3_win_width, History_Panels3_win_aspect_ratio, & - History_Panels3_xleft, History_Panels3_xright, & - History_Panels3_ybot, History_Panels3_ytop, History_Panels3_txt_scale, & - prev_History_Panels3_win_width, prev_History_Panels3_win_ratio, & - History_Panels3_file_width, History_Panels3_file_aspect_ratio, & - prev_History_Panels3_file_width, prev_History_Panels3_file_ratio -integer :: History_Panels3_num_panels -character (len = strlen), dimension(max_num_History_Panels) :: & - History_Panels3_yaxis_name, History_Panels3_other_yaxis_name, & - History_Panels3_points_name -logical, dimension(max_num_History_Panels) :: & - History_Panels3_yaxis_reversed, History_Panels3_other_yaxis_reversed, & - History_Panels3_yaxis_log, History_Panels3_other_yaxis_log -real, dimension(max_num_History_Panels) :: & - History_Panels3_ymin, History_Panels3_other_ymin, & - History_Panels3_ymax, History_Panels3_other_ymax, & - History_Panels3_ymargin, History_Panels3_other_ymargin, & - History_Panels3_dymin, History_Panels3_other_dymin - -logical :: History_Panels4_win_flag, History_Panels4_file_flag -logical :: do_History_Panels4_win, do_History_Panels4_file -integer :: id_History_Panels4_win, id_History_Panels4_file, History_Panels4_file_interval -character (len = strlen) :: History_Panels4_file_dir, History_Panels4_file_prefix -logical :: History_Panels4_xaxis_reversed, History_Panels4_xaxis_log -character (len = strlen) :: History_Panels4_xaxis_name, History_Panels4_title -real :: History_Panels4_xmin, History_Panels4_xmax, History_Panels4_dxmin, & - History_Panels4_max_width, History_Panels4_xmargin, & - History_Panels4_win_width, History_Panels4_win_aspect_ratio, & - History_Panels4_xleft, History_Panels4_xright, & - History_Panels4_ybot, History_Panels4_ytop, History_Panels4_txt_scale, & - prev_History_Panels4_win_width, prev_History_Panels4_win_ratio, & - History_Panels4_file_width, History_Panels4_file_aspect_ratio, & - prev_History_Panels4_file_width, prev_History_Panels4_file_ratio -integer :: History_Panels4_num_panels -character (len = strlen), dimension(max_num_History_Panels) :: & - History_Panels4_yaxis_name, History_Panels4_other_yaxis_name, & - History_Panels4_points_name -logical, dimension(max_num_History_Panels) :: & - History_Panels4_yaxis_reversed, History_Panels4_other_yaxis_reversed, & - History_Panels4_yaxis_log, History_Panels4_other_yaxis_log -real, dimension(max_num_History_Panels) :: & - History_Panels4_ymin, History_Panels4_other_ymin, & - History_Panels4_ymax, History_Panels4_other_ymax, & - History_Panels4_ymargin, History_Panels4_other_ymargin, & - History_Panels4_dymin, History_Panels4_other_dymin - -logical :: History_Panels5_win_flag, History_Panels5_file_flag -logical :: do_History_Panels5_win, do_History_Panels5_file -integer :: id_History_Panels5_win, id_History_Panels5_file, History_Panels5_file_interval -character (len = strlen) :: History_Panels5_file_dir, History_Panels5_file_prefix -logical :: History_Panels5_xaxis_reversed, History_Panels5_xaxis_log -character (len = strlen) :: History_Panels5_xaxis_name, History_Panels5_title -real :: History_Panels5_xmin, History_Panels5_xmax, History_Panels5_dxmin, & - History_Panels5_max_width, History_Panels5_xmargin, & - History_Panels5_win_width, History_Panels5_win_aspect_ratio, & - History_Panels5_xleft, History_Panels5_xright, & - History_Panels5_ybot, History_Panels5_ytop, History_Panels5_txt_scale, & - prev_History_Panels5_win_width, prev_History_Panels5_win_ratio, & - History_Panels5_file_width, History_Panels5_file_aspect_ratio, & - prev_History_Panels5_file_width, prev_History_Panels5_file_ratio -integer :: History_Panels5_num_panels -character (len = strlen), dimension(max_num_History_Panels) :: & - History_Panels5_yaxis_name, History_Panels5_other_yaxis_name, & - History_Panels5_points_name -logical, dimension(max_num_History_Panels) :: & - History_Panels5_yaxis_reversed, History_Panels5_other_yaxis_reversed, & - History_Panels5_yaxis_log, History_Panels5_other_yaxis_log -real, dimension(max_num_History_Panels) :: & - History_Panels5_ymin, History_Panels5_other_ymin, & - History_Panels5_ymax, History_Panels5_other_ymax, & - History_Panels5_ymargin, History_Panels5_other_ymargin, & - History_Panels5_dymin, History_Panels5_other_dymin - -logical :: History_Panels6_win_flag, History_Panels6_file_flag -logical :: do_History_Panels6_win, do_History_Panels6_file -integer :: id_History_Panels6_win, id_History_Panels6_file, History_Panels6_file_interval -character (len = strlen) :: History_Panels6_file_dir, History_Panels6_file_prefix -logical :: History_Panels6_xaxis_reversed, History_Panels6_xaxis_log -character (len = strlen) :: History_Panels6_xaxis_name, History_Panels6_title -real :: History_Panels6_xmin, History_Panels6_xmax, History_Panels6_dxmin, & - History_Panels6_max_width, History_Panels6_xmargin, & - History_Panels6_win_width, History_Panels6_win_aspect_ratio, & - History_Panels6_xleft, History_Panels6_xright, & - History_Panels6_ybot, History_Panels6_ytop, History_Panels6_txt_scale, & - prev_History_Panels6_win_width, prev_History_Panels6_win_ratio, & - History_Panels6_file_width, History_Panels6_file_aspect_ratio, & - prev_History_Panels6_file_width, prev_History_Panels6_file_ratio -integer :: History_Panels6_num_panels -character (len = strlen), dimension(max_num_History_Panels) :: & - History_Panels6_yaxis_name, History_Panels6_other_yaxis_name, & - History_Panels6_points_name -logical, dimension(max_num_History_Panels) :: & - History_Panels6_yaxis_reversed, History_Panels6_other_yaxis_reversed, & - History_Panels6_yaxis_log, History_Panels6_other_yaxis_log -real, dimension(max_num_History_Panels) :: & - History_Panels6_ymin, History_Panels6_other_ymin, & - History_Panels6_ymax, History_Panels6_other_ymax, & - History_Panels6_ymargin, History_Panels6_other_ymargin, & - History_Panels6_dymin, History_Panels6_other_dymin - -logical :: History_Panels7_win_flag, History_Panels7_file_flag -logical :: do_History_Panels7_win, do_History_Panels7_file -integer :: id_History_Panels7_win, id_History_Panels7_file, History_Panels7_file_interval -character (len = strlen) :: History_Panels7_file_dir, History_Panels7_file_prefix -logical :: History_Panels7_xaxis_reversed, History_Panels7_xaxis_log -character (len = strlen) :: History_Panels7_xaxis_name, History_Panels7_title -real :: History_Panels7_xmin, History_Panels7_xmax, History_Panels7_dxmin, & - History_Panels7_max_width, History_Panels7_xmargin, & - History_Panels7_win_width, History_Panels7_win_aspect_ratio, & - History_Panels7_xleft, History_Panels7_xright, & - History_Panels7_ybot, History_Panels7_ytop, History_Panels7_txt_scale, & - prev_History_Panels7_win_width, prev_History_Panels7_win_ratio, & - History_Panels7_file_width, History_Panels7_file_aspect_ratio, & - prev_History_Panels7_file_width, prev_History_Panels7_file_ratio -integer :: History_Panels7_num_panels -character (len = strlen), dimension(max_num_History_Panels) :: & - History_Panels7_yaxis_name, History_Panels7_other_yaxis_name, & - History_Panels7_points_name -logical, dimension(max_num_History_Panels) :: & - History_Panels7_yaxis_reversed, History_Panels7_other_yaxis_reversed, & - History_Panels7_yaxis_log, History_Panels7_other_yaxis_log -real, dimension(max_num_History_Panels) :: & - History_Panels7_ymin, History_Panels7_other_ymin, & - History_Panels7_ymax, History_Panels7_other_ymax, & - History_Panels7_ymargin, History_Panels7_other_ymargin, & - History_Panels7_dymin, History_Panels7_other_dymin - -logical :: History_Panels8_win_flag, History_Panels8_file_flag -logical :: do_History_Panels8_win, do_History_Panels8_file -integer :: id_History_Panels8_win, id_History_Panels8_file, History_Panels8_file_interval -character (len = strlen) :: History_Panels8_file_dir, History_Panels8_file_prefix -logical :: History_Panels8_xaxis_reversed, History_Panels8_xaxis_log -character (len = strlen) :: History_Panels8_xaxis_name, History_Panels8_title -real :: History_Panels8_xmin, History_Panels8_xmax, History_Panels8_dxmin, & - History_Panels8_max_width, History_Panels8_xmargin, & - History_Panels8_win_width, History_Panels8_win_aspect_ratio, & - History_Panels8_xleft, History_Panels8_xright, & - History_Panels8_ybot, History_Panels8_ytop, History_Panels8_txt_scale, & - prev_History_Panels8_win_width, prev_History_Panels8_win_ratio, & - History_Panels8_file_width, History_Panels8_file_aspect_ratio, & - prev_History_Panels8_file_width, prev_History_Panels8_file_ratio -integer :: History_Panels8_num_panels -character (len = strlen), dimension(max_num_History_Panels) :: & - History_Panels8_yaxis_name, History_Panels8_other_yaxis_name, & - History_Panels8_points_name -logical, dimension(max_num_History_Panels) :: & - History_Panels8_yaxis_reversed, History_Panels8_other_yaxis_reversed, & - History_Panels8_yaxis_log, History_Panels8_other_yaxis_log -real, dimension(max_num_History_Panels) :: & - History_Panels8_ymin, History_Panels8_other_ymin, & - History_Panels8_ymax, History_Panels8_other_ymax, & - History_Panels8_ymargin, History_Panels8_other_ymargin, & - History_Panels8_dymin, History_Panels8_other_dymin - -logical :: History_Panels9_win_flag, History_Panels9_file_flag -logical :: do_History_Panels9_win, do_History_Panels9_file -integer :: id_History_Panels9_win, id_History_Panels9_file, History_Panels9_file_interval -character (len = strlen) :: History_Panels9_file_dir, History_Panels9_file_prefix -logical :: History_Panels9_xaxis_reversed, History_Panels9_xaxis_log -character (len = strlen) :: History_Panels9_xaxis_name, History_Panels9_title -real :: History_Panels9_xmin, History_Panels9_xmax, History_Panels9_dxmin, & - History_Panels9_max_width, History_Panels9_xmargin, & - History_Panels9_win_width, History_Panels9_win_aspect_ratio, & - History_Panels9_xleft, History_Panels9_xright, & - History_Panels9_ybot, History_Panels9_ytop, History_Panels9_txt_scale, & - prev_History_Panels9_win_width, prev_History_Panels9_win_ratio, & - History_Panels9_file_width, History_Panels9_file_aspect_ratio, & - prev_History_Panels9_file_width, prev_History_Panels9_file_ratio -integer :: History_Panels9_num_panels -character (len = strlen), dimension(max_num_History_Panels) :: & - History_Panels9_yaxis_name, History_Panels9_other_yaxis_name, & - History_Panels9_points_name -logical, dimension(max_num_History_Panels) :: & - History_Panels9_yaxis_reversed, History_Panels9_other_yaxis_reversed, & - History_Panels9_yaxis_log, History_Panels9_other_yaxis_log -real, dimension(max_num_History_Panels) :: & - History_Panels9_ymin, History_Panels9_other_ymin, & - History_Panels9_ymax, History_Panels9_other_ymax, & - History_Panels9_ymargin, History_Panels9_other_ymargin, & - History_Panels9_dymin, History_Panels9_other_dymin logical :: History_Panel_points_error_bars integer :: History_Panel_points_interval, History_Panel_points_marker, & History_Panel_points_ci, History_Panel_points_lw @@ -693,203 +150,28 @@ real :: Summary_History_win_width, Summary_History_win_aspect_ratio, & Summary_History_file_width, Summary_History_file_aspect_ratio, & prev_Summary_History_file_width, prev_Summary_History_file_ratio -logical :: Grid1_win_flag, Grid1_file_flag -logical :: do_Grid1_win, do_Grid1_file -integer :: Grid1_file_interval, Grid1_step_max -integer :: id_Grid1_win, id_Grid1_file -character (len = strlen) :: Grid1_file_dir, Grid1_file_prefix -real :: Grid1_win_width, Grid1_win_aspect_ratio, & - Grid1_xleft, Grid1_xright, & - Grid1_ybot, Grid1_ytop, & - prev_Grid1_win_width, prev_Grid1_win_ratio, & - Grid1_file_width, Grid1_file_aspect_ratio, & - prev_Grid1_file_width, prev_Grid1_file_ratio -character (len = strlen) :: Grid1_title, & - Grid1_plot_name(max_num_pgbinary_grid_plots) -real, dimension(max_num_pgbinary_grid_plots) :: & - Grid1_txt_scale_factor, & - Grid1_plot_pad_left, Grid1_plot_pad_right, & - Grid1_plot_pad_top, Grid1_plot_pad_bot -Integer :: Grid1_num_cols, Grid1_num_rows, Grid1_num_plots -integer, dimension(max_num_pgbinary_grid_plots) :: & - Grid1_plot_row, Grid1_plot_rowspan, & - Grid1_plot_col, Grid1_plot_colspan - -logical :: Grid2_win_flag, Grid2_file_flag -logical :: do_Grid2_win, do_Grid2_file -integer :: Grid2_file_interval, Grid2_step_max -integer :: id_Grid2_win, id_Grid2_file -character (len = strlen) :: Grid2_file_dir, Grid2_file_prefix -real :: Grid2_win_width, Grid2_win_aspect_ratio, & - Grid2_xleft, Grid2_xright, & - Grid2_ybot, Grid2_ytop, & - prev_Grid2_win_width, prev_Grid2_win_ratio, & - Grid2_file_width, Grid2_file_aspect_ratio, & - prev_Grid2_file_width, prev_Grid2_file_ratio -character (len = strlen) :: Grid2_title, & - Grid2_plot_name(max_num_pgbinary_grid_plots) -real, dimension(max_num_pgbinary_grid_plots) :: & - Grid2_txt_scale_factor, & - Grid2_plot_pad_left, Grid2_plot_pad_right, & - Grid2_plot_pad_top, Grid2_plot_pad_bot -Integer :: Grid2_num_cols, Grid2_num_rows, Grid2_num_plots -integer, dimension(max_num_pgbinary_grid_plots) :: & - Grid2_plot_row, Grid2_plot_rowspan, & - Grid2_plot_col, Grid2_plot_colspan - -logical :: Grid3_win_flag, Grid3_file_flag -logical :: do_Grid3_win, do_Grid3_file -integer :: Grid3_file_interval, Grid3_step_max -integer :: id_Grid3_win, id_Grid3_file -character (len = strlen) :: Grid3_file_dir, Grid3_file_prefix -real :: Grid3_win_width, Grid3_win_aspect_ratio, & - Grid3_xleft, Grid3_xright, & - Grid3_ybot, Grid3_ytop, & - prev_Grid3_win_width, prev_Grid3_win_ratio, & - Grid3_file_width, Grid3_file_aspect_ratio, & - prev_Grid3_file_width, prev_Grid3_file_ratio -character (len = strlen) :: Grid3_title, & - Grid3_plot_name(max_num_pgbinary_grid_plots) -real, dimension(max_num_pgbinary_grid_plots) :: & - Grid3_txt_scale_factor, & - Grid3_plot_pad_left, Grid3_plot_pad_right, & - Grid3_plot_pad_top, Grid3_plot_pad_bot -Integer :: Grid3_num_cols, Grid3_num_rows, Grid3_num_plots -integer, dimension(max_num_pgbinary_grid_plots) :: & - Grid3_plot_row, Grid3_plot_rowspan, & - Grid3_plot_col, Grid3_plot_colspan - -logical :: Grid4_win_flag, Grid4_file_flag -logical :: do_Grid4_win, do_Grid4_file -integer :: Grid4_file_interval, Grid4_step_max -integer :: id_Grid4_win, id_Grid4_file -character (len = strlen) :: Grid4_file_dir, Grid4_file_prefix -real :: Grid4_win_width, Grid4_win_aspect_ratio, & - Grid4_xleft, Grid4_xright, & - Grid4_ybot, Grid4_ytop, & - prev_Grid4_win_width, prev_Grid4_win_ratio, & - Grid4_file_width, Grid4_file_aspect_ratio, & - prev_Grid4_file_width, prev_Grid4_file_ratio -character (len = strlen) :: Grid4_title, & - Grid4_plot_name(max_num_pgbinary_grid_plots) -real, dimension(max_num_pgbinary_grid_plots) :: & - Grid4_txt_scale_factor, & - Grid4_plot_pad_left, Grid4_plot_pad_right, & - Grid4_plot_pad_top, Grid4_plot_pad_bot -Integer :: Grid4_num_cols, Grid4_num_rows, Grid4_num_plots -integer, dimension(max_num_pgbinary_grid_plots) :: & - Grid4_plot_row, Grid4_plot_rowspan, & - Grid4_plot_col, Grid4_plot_colspan - -logical :: Grid5_win_flag, Grid5_file_flag -logical :: do_Grid5_win, do_Grid5_file -integer :: Grid5_file_interval, Grid5_step_max -integer :: id_Grid5_win, id_Grid5_file -character (len = strlen) :: Grid5_file_dir, Grid5_file_prefix -real :: Grid5_win_width, Grid5_win_aspect_ratio, & - Grid5_xleft, Grid5_xright, & - Grid5_ybot, Grid5_ytop, & - prev_Grid5_win_width, prev_Grid5_win_ratio, & - Grid5_file_width, Grid5_file_aspect_ratio, & - prev_Grid5_file_width, prev_Grid5_file_ratio -character (len = strlen) :: Grid5_title, & - Grid5_plot_name(max_num_pgbinary_grid_plots) -real, dimension(max_num_pgbinary_grid_plots) :: & - Grid5_txt_scale_factor, & - Grid5_plot_pad_left, Grid5_plot_pad_right, & - Grid5_plot_pad_top, Grid5_plot_pad_bot -Integer :: Grid5_num_cols, Grid5_num_rows, Grid5_num_plots -integer, dimension(max_num_pgbinary_grid_plots) :: & - Grid5_plot_row, Grid5_plot_rowspan, & - Grid5_plot_col, Grid5_plot_colspan - -logical :: Grid6_win_flag, Grid6_file_flag -logical :: do_Grid6_win, do_Grid6_file -integer :: Grid6_file_interval, Grid6_step_max -integer :: id_Grid6_win, id_Grid6_file -character (len = strlen) :: Grid6_file_dir, Grid6_file_prefix -real :: Grid6_win_width, Grid6_win_aspect_ratio, & - Grid6_xleft, Grid6_xright, & - Grid6_ybot, Grid6_ytop, & - prev_Grid6_win_width, prev_Grid6_win_ratio, & - Grid6_file_width, Grid6_file_aspect_ratio, & - prev_Grid6_file_width, prev_Grid6_file_ratio -character (len = strlen) :: Grid6_title, & - Grid6_plot_name(max_num_pgbinary_grid_plots) -real, dimension(max_num_pgbinary_grid_plots) :: & - Grid6_txt_scale_factor, & - Grid6_plot_pad_left, Grid6_plot_pad_right, & - Grid6_plot_pad_top, Grid6_plot_pad_bot -Integer :: Grid6_num_cols, Grid6_num_rows, Grid6_num_plots -integer, dimension(max_num_pgbinary_grid_plots) :: & - Grid6_plot_row, Grid6_plot_rowspan, & - Grid6_plot_col, Grid6_plot_colspan - -logical :: Grid7_win_flag, Grid7_file_flag -logical :: do_Grid7_win, do_Grid7_file -integer :: Grid7_file_interval, Grid7_step_max -integer :: id_Grid7_win, id_Grid7_file -character (len = strlen) :: Grid7_file_dir, Grid7_file_prefix -real :: Grid7_win_width, Grid7_win_aspect_ratio, & - Grid7_xleft, Grid7_xright, & - Grid7_ybot, Grid7_ytop, & - prev_Grid7_win_width, prev_Grid7_win_ratio, & - Grid7_file_width, Grid7_file_aspect_ratio, & - prev_Grid7_file_width, prev_Grid7_file_ratio -character (len = strlen) :: Grid7_title, & - Grid7_plot_name(max_num_pgbinary_grid_plots) -real, dimension(max_num_pgbinary_grid_plots) :: & - Grid7_txt_scale_factor, & - Grid7_plot_pad_left, Grid7_plot_pad_right, & - Grid7_plot_pad_top, Grid7_plot_pad_bot -Integer :: Grid7_num_cols, Grid7_num_rows, Grid7_num_plots -integer, dimension(max_num_pgbinary_grid_plots) :: & - Grid7_plot_row, Grid7_plot_rowspan, & - Grid7_plot_col, Grid7_plot_colspan - -logical :: Grid8_win_flag, Grid8_file_flag -logical :: do_Grid8_win, do_Grid8_file -integer :: Grid8_file_interval, Grid8_step_max -integer :: id_Grid8_win, id_Grid8_file -character (len = strlen) :: Grid8_file_dir, Grid8_file_prefix -real :: Grid8_win_width, Grid8_win_aspect_ratio, & - Grid8_xleft, Grid8_xright, & - Grid8_ybot, Grid8_ytop, & - prev_Grid8_win_width, prev_Grid8_win_ratio, & - Grid8_file_width, Grid8_file_aspect_ratio, & - prev_Grid8_file_width, prev_Grid8_file_ratio -character (len = strlen) :: Grid8_title, & - Grid8_plot_name(max_num_pgbinary_grid_plots) -real, dimension(max_num_pgbinary_grid_plots) :: & - Grid8_txt_scale_factor, & - Grid8_plot_pad_left, Grid8_plot_pad_right, & - Grid8_plot_pad_top, Grid8_plot_pad_bot -Integer :: Grid8_num_cols, Grid8_num_rows, Grid8_num_plots -integer, dimension(max_num_pgbinary_grid_plots) :: & - Grid8_plot_row, Grid8_plot_rowspan, & - Grid8_plot_col, Grid8_plot_colspan - -logical :: Grid9_win_flag, Grid9_file_flag -logical :: do_Grid9_win, do_Grid9_file -integer :: Grid9_file_interval, Grid9_step_max -integer :: id_Grid9_win, id_Grid9_file -character (len = strlen) :: Grid9_file_dir, Grid9_file_prefix -real :: Grid9_win_width, Grid9_win_aspect_ratio, & - Grid9_xleft, Grid9_xright, & - Grid9_ybot, Grid9_ytop, & - prev_Grid9_win_width, prev_Grid9_win_ratio, & - Grid9_file_width, Grid9_file_aspect_ratio, & - prev_Grid9_file_width, prev_Grid9_file_ratio -character (len = strlen) :: Grid9_title, & - Grid9_plot_name(max_num_pgbinary_grid_plots) -real, dimension(max_num_pgbinary_grid_plots) :: & - Grid9_txt_scale_factor, & - Grid9_plot_pad_left, Grid9_plot_pad_right, & - Grid9_plot_pad_top, Grid9_plot_pad_bot -Integer :: Grid9_num_cols, Grid9_num_rows, Grid9_num_plots -integer, dimension(max_num_pgbinary_grid_plots) :: & - Grid9_plot_row, Grid9_plot_rowspan, & - Grid9_plot_col, Grid9_plot_colspan +logical, dimension(pgbinary_array_length) :: Grid_win_flag, Grid_file_flag +integer, dimension(pgbinary_array_length) :: Grid_file_interval, Grid_step_max +integer, dimension(pgbinary_array_length) :: id_Grid_win, id_Grid_file +character (len=strlen), dimension(pgbinary_array_length) :: Grid_file_dir, Grid_file_prefix, Grid_title +real, dimension(pgbinary_array_length) :: & + Grid_win_width, Grid_win_aspect_ratio, & + Grid_xleft, Grid_xright, & + Grid_ybot, Grid_ytop, & + prev_Grid_win_width, prev_Grid_win_ratio, & + Grid_file_width, Grid_file_aspect_ratio, & + prev_Grid_file_width, prev_Grid_file_ratio +character (len=strlen), dimension(pgbinary_array_length, max_num_pgstar_grid_plots) :: & + Grid_plot_name +real, dimension(pgbinary_array_length, max_num_pgstar_grid_plots) :: & + Grid_txt_scale_factor, & + Grid_plot_pad_left, Grid_plot_pad_right, & + Grid_plot_pad_top, Grid_plot_pad_bot +integer, dimension(pgbinary_array_length) :: & + Grid_num_cols, Grid_num_rows, Grid_num_plots +integer, dimension(pgbinary_array_length, max_num_pgstar_grid_plots) :: & + Grid_plot_row, Grid_plot_rowspan, & + Grid_plot_col, Grid_plot_colspan logical :: Star1_win_flag, Star1_file_flag logical :: do_Star1_win, do_Star1_file, do_star1_box @@ -955,23 +237,6 @@ real :: annotation3_disp, annotation3_coord, annotation3_fjust logical, dimension(max_extra_inlists) :: read_extra_pgbinary_inlist character (len=strlen), dimension(max_extra_inlists) :: extra_pgbinary_inlist_name -logical :: History_Panels1_use_decorator, & - History_Panels2_use_decorator, & - History_Panels3_use_decorator, & - History_Panels4_use_decorator, & - History_Panels5_use_decorator, & - History_Panels6_use_decorator, & - History_Panels7_use_decorator, & - History_Panels8_use_decorator, & - History_Panels9_use_decorator, & - History_Track1_use_decorator, & - History_Track2_use_decorator, & - History_Track3_use_decorator, & - History_Track4_use_decorator, & - History_Track5_use_decorator, & - History_Track6_use_decorator, & - History_Track7_use_decorator, & - History_Track8_use_decorator, & - History_Track9_use_decorator, & - summary_history_use_decorator - +logical, dimension(pgbinary_array_length) :: History_Panels_use_decorator, & + History_Track_use_decorator +logical :: summary_history_use_decorator diff --git a/binary/test_suite/double_bh/inlist b/binary/test_suite/double_bh/inlist index 70380c77d..16aaa54a0 100644 --- a/binary/test_suite/double_bh/inlist +++ b/binary/test_suite/double_bh/inlist @@ -20,6 +20,6 @@ &pgbinary read_extra_pgbinary_inlist(1) = .true. - extra_pgbinary_inlist_name(1) = 'inlist_project' + extra_pgbinary_inlist_name(1) = 'inlist_pgbinary' / ! end of pgbinary namelist diff --git a/binary/test_suite/double_bh/inlist1 b/binary/test_suite/double_bh/inlist1 index 1bf6dcabd..f6edd82f3 100644 --- a/binary/test_suite/double_bh/inlist1 +++ b/binary/test_suite/double_bh/inlist1 @@ -25,8 +25,6 @@ set_cumulative_energy_error_at_step = 1 new_cumulative_energy_error = 0d0 - !pgstar_flag = .true. - / ! end of star_job namelist diff --git a/binary/test_suite/double_bh/inlist2 b/binary/test_suite/double_bh/inlist2 index b282728a6..ca2d91dc3 100644 --- a/binary/test_suite/double_bh/inlist2 +++ b/binary/test_suite/double_bh/inlist2 @@ -25,8 +25,6 @@ set_cumulative_energy_error_at_step = 1 new_cumulative_energy_error = 0d0 - !pgstar_flag = .true. - / ! end of star_job namelist diff --git a/binary/test_suite/double_bh/inlist_pgbinary b/binary/test_suite/double_bh/inlist_pgbinary new file mode 100644 index 000000000..0dfe6415c --- /dev/null +++ b/binary/test_suite/double_bh/inlist_pgbinary @@ -0,0 +1,86 @@ +&pgbinary +!pause = .true. + +pgbinary_age_disp = 1.7 +pgbinary_age_fjust = -0.5 +pgbinary_model_disp = 1.7 +pgbinary_model_fjust = 1.4 + +pgbinary_grid_title_disp = 0.2 +pgbinary_title_disp = 0.2 + +Grid_win_flag(1) = .true. +Grid_win_width(1) = 19 +Grid_win_aspect_ratio(1) = 0.58 + +Grid_xleft(1) = 0.0 +Grid_xright(1) = 1.0 +Grid_ybot(1) = 0.0 +Grid_ytop(1) = 0.95 +Grid_title = '' + +Grid_num_cols(1) = 5 +Grid_num_rows(1) = 3 +Grid_num_plots(1) = 4 + +Grid_plot_name(1, 1) = 'Star1' +Grid_plot_col(1, 1) = 1 +Grid_plot_colspan(1, 1) = 2 +Grid_plot_row(1, 1) = 1 +Grid_plot_rowspan(1, 1) = 3 +Grid_plot_pad_left(1, 1) = 0.02 +Grid_plot_pad_right(1, 1) = 0.02 +Grid_plot_pad_bot(1, 1) = 0.01 +Grid_plot_pad_top(1, 1) = 0.00 +Grid_txt_scale_factor(1, 1) = 0.9 +Star1_plot_name = 'Grid(2)' +do_star1_box = .true. +star1_box_pad_left = -0.02 +star1_box_pad_right = 0.02 +star1_box_pad_bot = 0.0 +star1_box_pad_top = 0.001 + +Grid_plot_name(1, 2) = 'Star2' +Grid_plot_col(1, 2) = 3 +Grid_plot_colspan(1, 2) = 2 +Grid_plot_row(1, 2) = 1 +Grid_plot_rowspan(1, 2) = 3 +Grid_plot_pad_left(1, 2) = 0.02 +Grid_plot_pad_right(1, 2) = 0.02 +Grid_plot_pad_bot(1, 2) = 0.01 +Grid_plot_pad_top(1, 2) = 0.00 +Grid_txt_scale_factor(1, 2) = 0.9 +Star2_plot_name = 'Grid(2)' +do_star2_box = .true. +star2_box_pad_left = -0.018 +star2_box_pad_right = 0.02 +star2_box_pad_bot = 0.0 +star2_box_pad_top = 0.001 + +Grid_plot_name(1, 3) = 'Orbit' +Grid_plot_col(1, 3) = 5 +Grid_plot_colspan(1, 3) = 1 +Grid_plot_row(1, 3) = 1 +Grid_plot_rowspan(1, 3) = 1 +Grid_plot_pad_left(1, 3) = 0.04 +Grid_plot_pad_right(1, 3) = 0.04 +Grid_plot_pad_bot(1, 3) = 0.03 +Grid_plot_pad_top(1, 3) = 0.00 +Grid_txt_scale_factor(1, 3) = 0.4 + +Grid_plot_name(1, 4) = 'history_panels(1)' +Grid_plot_col(1, 4) = 5 +Grid_plot_colspan(1, 4) = 1 +Grid_plot_row(1, 4) = 2 +Grid_plot_rowspan(1, 4) = 2 +Grid_plot_pad_left(1, 4) = 0.04 +Grid_plot_pad_right(1, 4) = 0.04 +Grid_plot_pad_bot(1, 4) = 0.04 +Grid_plot_pad_top(1, 4) = 0.00 +Grid_txt_scale_factor(1, 4) = 0.4 + +Grid_file_flag(1) = .true. +Grid_file_interval(1) = 10 +Grid_file_width(1) = -1 +Grid_file_aspect_ratio(1) = -1 +/ ! end of pgbinary namelist diff --git a/binary/test_suite/double_bh/inlist_pgstar b/binary/test_suite/double_bh/inlist_pgstar index c15330768..f04bdfed7 100644 --- a/binary/test_suite/double_bh/inlist_pgstar +++ b/binary/test_suite/double_bh/inlist_pgstar @@ -1,4 +1,3 @@ - &pgstar pgstar_interval = 10 !pause = .true. @@ -10,188 +9,145 @@ pgstar_xaxis_label_scale = 1.3 pgstar_left_yaxis_label_scale = 1.3 pgstar_right_yaxis_label_scale = 1.3 - - !Grid1_win_flag = .true. - Grid1_win_width = 11 - - Grid2_win_flag = .true. - !Grid2_win_flag = .false. - - Grid2_win_width = 15 - Grid2_win_aspect_ratio = 0.65 ! aspect_ratio = height/width + - Grid2_plot_name(4) = 'Mixing' + Grid_win_width(2) = 15 + Grid_win_aspect_ratio(2) = 0.65 ! aspect_ratio = height/width + + Grid_plot_name(2, 4) = 'Mixing' ! file output - !Grid2_file_flag = .true. - Grid2_file_dir = 'png1' - Grid2_file_prefix = 'grid_' - Grid2_file_interval = 1 ! output when mod(model_number,Grid2_file_interval)==0 - Grid2_file_width = -1 ! negative means use same value as for window - Grid2_file_aspect_ratio = -1 ! negative means use same value as for window - - + !Grid_file_flag(2) = .true. + Grid_file_dir(2) = 'png1' + Grid_file_prefix(2) = 'grid_' + Grid_file_interval(2) = 1 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_width(2) = -1 ! negative means use same value as for window + Grid_file_aspect_ratio(2) = -1 ! negative means use same value as for window - Grid2_num_cols = 7 ! divide plotting region into this many equal width cols - Grid2_num_rows = 8 ! divide plotting region into this many equal height rows - - Grid2_num_plots = 6 ! <= 10 - - Grid2_plot_name(1) = 'TRho_Profile' - Grid2_plot_row(1) = 1 ! number from 1 at top - Grid2_plot_rowspan(1) = 3 ! plot spans this number of rows - Grid2_plot_col(1) = 1 ! number from 1 at left - Grid2_plot_colspan(1) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(1) = -0.05 ! fraction of full window width for padding on left - Grid2_plot_pad_right(1) = 0.01 ! fraction of full window width for padding on right - Grid2_plot_pad_top(1) = 0.00 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(1) = 0.05 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(1) = 0.65 ! multiply txt_scale for subplot by this - - - Grid2_plot_name(5) = 'Kipp' - Grid2_plot_row(5) = 4 ! number from 1 at top - Grid2_plot_rowspan(5) = 3 ! plot spans this number of rows - Grid2_plot_col(5) = 1 ! number from 1 at left - Grid2_plot_colspan(5) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(5) = -0.05 ! fraction of full window width for padding on left - Grid2_plot_pad_right(5) = 0.01 ! fraction of full window width for padding on right - Grid2_plot_pad_top(5) = 0.03 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(5) = 0.0 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(5) = 0.65 ! multiply txt_scale for subplot by this - Kipp_title = '' - Kipp_show_mass_boundaries = .false. + Grid_num_cols(2) = 7 ! divide plotting region into this many equal width cols + Grid_num_rows(2) = 8 ! divide plotting region into this many equal height rows + Grid_num_plots(2) = 6 ! <= 10 + + Grid_plot_name(2, 1) = 'TRho_Profile' + Grid_plot_row(2, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 1) = 4 ! plot spans this number of rows + Grid_plot_col(2, 1) = 1 ! number from 1 at left + Grid_plot_colspan(2, 1) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 1) = 0.01 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 1) = 0.01 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 1) = 0.03 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 1) = 0.02 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 1) = 0.65 ! multiply txt_scale for subplot by this - Grid2_plot_name(6) = 'HR' - HR_title = '' - Grid2_plot_row(6) = 6 ! number from 1 at top - Grid2_plot_rowspan(6) = 3 ! plot spans this number of rows - Grid2_plot_col(6) = 6 ! number from 1 at left - Grid2_plot_colspan(6) = 2 ! plot spans this number of columns - !Grid2_plot_pad_left(6) = 0.00 ! fraction of full window width for padding on left - !Grid2_plot_pad_right(6) = 0.05 ! fraction of full window width for padding on right - !Grid2_plot_pad_top(6) = 0.03 ! fraction of full window height for padding at top - !Grid2_plot_pad_bot(6) = 0.0 ! fraction of full window height for padding at bottom - !Grid2_txt_scale_factor(6) = 0.65 ! multiply txt_scale for subplot by this - - Grid2_plot_pad_left(6) = 0.05 ! fraction of full window width for padding on left - Grid2_plot_pad_right(6) = -0.01 ! fraction of full window width for padding on right - Grid2_plot_pad_top(6) = 0.0 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(6) = 0.0 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(6) = 0.65 ! multiply txt_scale for subplot by this - - History_Panels1_title = '' - History_Panels1_num_panels = 2 - - History_Panels1_xaxis_name='model_number' - History_Panels1_max_width = -1 ! only used if > 0. causes xmin to move with xmax. - - History_Panels1_yaxis_name(1) = 'log_center_T' - History_Panels1_yaxis_reversed(1) = .false. - History_Panels1_ymin(1) = -101d0 ! only used if /= -101d0 - History_Panels1_ymax(1) = -101d0 ! only used if /= -101d0 - History_Panels1_dymin(1) = 1 - - History_Panels1_other_yaxis_name(1) = 'log_center_Rho' - History_Panels1_other_yaxis_reversed(1) = .false. - - History_Panels1_yaxis_name(2) = 'log_Lnuc' - History_Panels1_yaxis_reversed(2) = .false. - History_Panels1_ymin(2) = 0d0 ! only used if /= -101d0 - History_Panels1_ymax(2) = 20d0 ! only used if /= -101d0 - History_Panels1_dymin(2) = 1 - - History_Panels1_other_yaxis_name(2) = 'log_Lneu' - History_Panels1_other_yaxis_reversed(2) = .false. - History_Panels1_other_ymin(2) = 0d0 ! only used if /= -101d0 - History_Panels1_other_ymax(2) = 20d0 ! only used if /= -101d0 - History_Panels1_other_dymin(2) = 1 - - Grid2_plot_name(2) = 'Text_Summary1' - Grid2_plot_row(2) = 7 ! number from 1 at top - Grid2_plot_rowspan(2) = 2 ! plot spans this number of rows - Grid2_plot_col(2) = 1 ! number from 1 at left - Grid2_plot_colspan(2) = 4 ! plot spans this number of columns - Grid2_plot_pad_left(2) = -0.08 ! fraction of full window width for padding on left - Grid2_plot_pad_right(2) = -0.10 ! fraction of full window width for padding on right - Grid2_plot_pad_top(2) = 0.08 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(2) = -0.04 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(2) = 0.19 ! multiply txt_scale for subplot by this - - Grid2_plot_name(3) = 'Profile_Panels3' - Profile_Panels3_title = 'Abundance-Power-Mixing' - Profile_Panels3_num_panels = 3 - Profile_Panels3_yaxis_name(1) = 'Abundance' - Profile_Panels3_yaxis_name(2) = 'Power' - Profile_Panels3_yaxis_name(3) = 'Mixing' - - Profile_Panels3_xaxis_name = 'logxq' - Profile_Panels3_xaxis_reversed = .false. - !Profile_Panels3_xmin = 20.2d0 ! only used if /= -101d0 - !Profile_Panels3_xmax = 20.6d0 ! 10 ! only used if /= -101d0 - - Grid2_plot_row(3) = 1 ! number from 1 at top - Grid2_plot_rowspan(3) = 6 ! plot spans this number of rows - Grid2_plot_col(3) = 3 ! plot spans this number of columns - Grid2_plot_colspan(3) = 3 ! plot spans this number of columns - - Grid2_plot_pad_left(3) = 0.09 ! fraction of full window width for padding on left - Grid2_plot_pad_right(3) = 0.07 ! fraction of full window width for padding on right - Grid2_plot_pad_top(3) = 0.0 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(3) = 0.0 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(3) = 0.65 ! multiply txt_scale for subplot by this - - Grid2_plot_name(4) = 'Profile_Panels1' - Grid2_plot_row(4) = 1 ! number from 1 at top - Grid2_plot_rowspan(4) = 5 ! plot spans this number of rows - Grid2_plot_col(4) = 6 ! number from 1 at left - Grid2_plot_colspan(4) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(4) = 0.05 ! fraction of full window width for padding on left - Grid2_plot_pad_right(4) = 0.03 ! fraction of full window width for padding on right - Grid2_plot_pad_top(4) = 0.0 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(4) = 0.07 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(4) = 0.65 ! multiply txt_scale for subplot by this - - - Abundance_line_txt_scale_factor = 1.1 ! relative to other text - Abundance_legend_txt_scale_factor = 1.1 ! relative to other text - Abundance_legend_max_cnt = 0 - Abundance_log_mass_frac_min = -3.5 ! only used if < 0 - - Profile_Panels1_title = '' - - Profile_Panels1_xaxis_name = 'logxq' - - !Profile_Panels1_xmin = 20.2d0 ! only used if /= -101d0 - !Profile_Panels1_xmax = 20.6d0 ! 100.1 ! -101d0 ! only used if /= -101d0 - Profile_Panels1_num_panels = 3 - - Profile_Panels1_yaxis_name(1) = 'logRho' - Profile_Panels1_other_yaxis_name(1) = 'logxq' - Profile_Panels1_other_ymin(1) = -10d0 ! only used if /= -101d0 - - Profile_Panels1_yaxis_name(2) = 'logT' - Profile_Panels1_other_yaxis_name(2) = 'entropy' ! 'vel_km_per_s' - - - Profile_Panels1_yaxis_name(3) = 'log_Lrad_div_Ledd' - - Profile_Panels1_other_yaxis_name(3) = 'log_opacity' ! 'mass' - !Profile_Panels1_other_ymin(3) = -10d0 ! only used if /= -101d0 - show_TRho_Profile_kap_regions = .false. show_TRho_Profile_gamma1_4_3rd = .true. TRho_Profile_xmin = -11 !TRho_Profile_xmax = 10 TRho_Profile_ymin = 3 !TRho_Profile_ymax = 10 - - Grid2_file_flag = .true. - Grid2_file_dir = 'png1' - Grid2_file_prefix = 'grid_' - Grid2_file_interval = 10 ! 1 ! output when mod(model_number,Grid2_file_interval)==0 - Grid2_file_width = -1 ! negative means use same value as for window - Grid2_file_aspect_ratio = -1 ! negative means use same value as for window + + Grid_plot_name(2, 2) = 'Text_Summary(1)' + Grid_plot_row(2, 2) = 8 ! number from 1 at top + Grid_plot_rowspan(2, 2) = 1 ! plot spans this number of rows + Grid_plot_col(2, 2) = 1 ! number from 1 at left + Grid_plot_colspan(2, 2) = 7 ! plot spans this number of columns + Grid_plot_pad_left(2, 2) = 0.00 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 2) = 0.00 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 2) = 0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 2) = 0.00 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 2) = 0.19 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 3) = 'Profile_Panels(3)' + Profile_Panels_title(3) = 'Abundance-Power-Mixing' + Profile_Panels_num_panels(3) = 3 + Profile_Panels_yaxis_name(3, 1) = 'Abundance' + Profile_Panels_yaxis_name(3, 2) = 'Power' + Profile_Panels_yaxis_name(3, 3) = 'Mixing' + + Profile_Panels_xaxis_name(3) = 'logxq' + Profile_Panels_xaxis_reversed(3) = .true. + !Profile_Panels_xmin(3) = 20.2d0 ! only used if /= -101d0 + !Profile_Panels_xmax(3) = 20.6d0 ! 10 ! only used if /= -101d0 + + Abundance_line_txt_scale_factor = 1.1 ! relative to other text + Abundance_legend_txt_scale_factor = 1.1 ! relative to other text + Abundance_legend_max_cnt = 0 + Abundance_log_mass_frac_min = -3.5 ! only used if < 0 + + Grid_plot_row(2, 3) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 3) = 7 ! plot spans this number of rows + Grid_plot_col(2, 3) = 3 ! plot spans this number of columns + Grid_plot_colspan(2, 3) = 3 ! plot spans this number of columns + + Grid_plot_pad_left(2, 3) = 0.03 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 3) = 0.03 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 3) = 0.03 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 3) = 0.03 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 3) = 0.65 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 4) = 'Profile_Panels(1)' + Grid_plot_row(2, 4) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 4) = 5 ! plot spans this number of rows + Grid_plot_col(2, 4) = 6 ! number from 1 at left + Grid_plot_colspan(2, 4) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 4) = 0.02 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 4) = 0.02 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 4) = 0.01 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 4) = 0.03 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 4) = 0.65 ! multiply txt_scale for subplot by this + Profile_Panels_title(1) = '' + + Profile_Panels_xaxis_name(1) = 'logxq' + Profile_Panels_xaxis_reversed(1) = .true. + !Profile_Panels_xmin(1) = 20.2d0 ! only used if /= -101d0 + !Profile_Panels_xmax(1) = 20.6d0 ! 100.1 ! -101d0 ! only used if /= -101d0 + Profile_Panels_num_panels(1) = 3 + Profile_Panels_yaxis_name(1, 1) = 'logRho' + Profile_Panels_other_yaxis_name(1, 1) = 'logxq' + Profile_Panels_other_ymin(1, 1) = -10d0 ! only used if /= -101d0 + Profile_Panels_yaxis_name(1, 2) = 'logT' + Profile_Panels_other_yaxis_name(1, 2) = 'entropy' ! 'vel_km_per_s' + Profile_Panels_yaxis_name(1, 3) = 'log_Lrad_div_Ledd' + Profile_Panels_other_yaxis_name(1, 3) = 'log_opacity' ! 'mass' + !Profile_Panels_other_ymin(1, 3) = -10d0 ! only used if /= -101d0 + + Grid_plot_name(2, 5) = 'Kipp' + Grid_plot_row(2, 5) = 5 ! number from 1 at top + Grid_plot_rowspan(2, 5) = 3 ! plot spans this number of rows + Grid_plot_col(2, 5) = 1 ! number from 1 at left + Grid_plot_colspan(2, 5) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 5) = 0.01 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 5) = 0.01 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 5) = 0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 5) = 0.04 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 5) = 0.65 ! multiply txt_scale for subplot by this + Kipp_title = '' + Kipp_show_mass_boundaries = .false. + + Grid_plot_name(2, 6) = 'HR' + HR_title = '' + Grid_plot_row(2, 6) = 6 ! number from 1 at top + Grid_plot_rowspan(2, 6) = 2 ! plot spans this number of rows + Grid_plot_col(2, 6) = 6 ! number from 1 at left + Grid_plot_colspan(2, 6) = 2 ! plot spans this number of columns + !Grid_plot_pad_left(2, 6) = 0.00 ! fraction of full window width for padding on left + !Grid_plot_pad_right(2, 6) = 0.05 ! fraction of full window width for padding on right + !Grid_plot_pad_top(2, 6) = 0.03 ! fraction of full window height for padding at top + !Grid_plot_pad_bot(2, 6) = 0.0 ! fraction of full window height for padding at bottom + !Grid_txt_scale_factor(2, 6) = 0.65 ! multiply txt_scale for subplot by this + + Grid_plot_pad_left(2, 6) = 0.02 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 6) = -0.00 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 6) = 0.01 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 6) = 0.03 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 6) = 0.65 ! multiply txt_scale for subplot by this + + Grid_file_flag(2) = .true. + Grid_file_dir(2) = 'png1' + Grid_file_prefix(2) = 'grid_' + Grid_file_interval(2) = 10 ! 1 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_width(2) = -1 ! negative means use same value as for window + Grid_file_aspect_ratio(2) = -1 ! negative means use same value as for window !show_TRho_Profile_eos_regions = .true. diff --git a/binary/test_suite/double_bh/inlist_project b/binary/test_suite/double_bh/inlist_project index f89a5b399..2dc36a469 100644 --- a/binary/test_suite/double_bh/inlist_project +++ b/binary/test_suite/double_bh/inlist_project @@ -8,6 +8,8 @@ change_initial_ignore_rlof_flag = .true. new_ignore_rlof_flag = .true. +! pgbinary_flag = .true. + / ! end of binary_job namelist &binary_controls diff --git a/binary/test_suite/evolve_both_stars/README.rst b/binary/test_suite/evolve_both_stars/README.rst index d5de264fa..34166788c 100644 --- a/binary/test_suite/evolve_both_stars/README.rst +++ b/binary/test_suite/evolve_both_stars/README.rst @@ -49,190 +49,190 @@ pgstar commands used for the binary and star1 plots above: pgstar_left_yaxis_label_disp = 3.0 - Text_Summary1_win_flag = .false. - Text_Summary1_win_width = 10 - Text_Summary1_win_aspect_ratio = 0.15 - - Text_Summary1_xleft = 0.01 - Text_Summary1_xright = 0.99 - Text_Summary1_ybot = 0.0 - Text_Summary1_ytop = 1.0 - Text_Summary1_txt_scale = 1.0 - Text_Summary1_title = '' - - Text_Summary1_num_rows = 4 ! <= 20 - Text_Summary1_num_cols = 8 ! <= 20 - Text_Summary1_name(:,:) = '' - - Text_Summary1_name(1,1) = 'time_step' - Text_Summary1_name(1,2) = 'donor_index' - Text_Summary1_name(1,3) = 'binary_separation' - Text_Summary1_name(1,4) = 'period_days' - Text_Summary1_name(1,5) = 'eccentricity' - Text_Summary1_name(1,6) = 'edot' - Text_Summary1_name(1,7) = 'J_orb' - Text_Summary1_name(1,8) = '' - - Text_Summary1_name(2,1) = 'sum_of_masses' - Text_Summary1_name(2,2) = 'star_1_mass' - Text_Summary1_name(2,3) = 'star_1_radius' - Text_Summary1_name(2,4) = 'v_orb_1' - Text_Summary1_name(2,5) = 'rl_1' - Text_Summary1_name(2,6) = 'lg_mstar_dot_1' - Text_Summary1_name(2,7) = 'J_spin_1' - Text_Summary1_name(2,8) = '' - - Text_Summary1_name(3,1) = '' - Text_Summary1_name(3,2) = 'star_2_mass' - Text_Summary1_name(3,3) = 'star_2_radius' - Text_Summary1_name(3,4) = 'v_orb_2' - Text_Summary1_name(3,5) = 'rl_2' - Text_Summary1_name(3,6) = 'lg_mstar_dot_2' - Text_Summary1_name(3,7) = 'J_spin_2' - Text_Summary1_name(3,8) = '' - - Text_Summary1_name(4,1) = 'Jdot' - Text_Summary1_name(4,2) = 'jdot_gr' - Text_Summary1_name(4,3) = 'jdot_mb' - Text_Summary1_name(4,4) = 'jdot_ls' - Text_Summary1_name(4,5) = 'jdot_ml' - Text_Summary1_name(4,6) = '' - Text_Summary1_name(4,7) = '' - Text_Summary1_name(4,8) = '' - - History_Track1_win_flag = .false. - History_Track1_win_width = 12 - History_Track1_win_aspect_ratio = 0.75 - History_Track1_txt_scale = 0.8 - History_Track1_title = ' ' - - History_Track1_xname = 'model_number' - History_Track1_yname = 'period_days' - History_Track1_xaxis_label = 'Model Number' - History_Track1_yaxis_label = 'Binary Period (day)' - History_Track1_reverse_xaxis = .false. - History_Track1_reverse_yaxis = .false. - - History_Track1_xmin = 0.0 - History_Track1_xmax = 1350 - History_Track1_ymin = 0.0 - History_Track1_ymax = 0.6 - - History_Track1_file_flag = .true. - History_Track1_file_dir = 'pgstar_out' - History_Track1_file_prefix = 'track1_' - History_Track1_file_interval = 10000 - History_Track1_file_width = -1 - History_Track1_file_aspect_ratio = -1 - - - History_Track2_win_flag = .false. - History_Track2_win_width = 12 - History_Track2_win_aspect_ratio = 0.75 - History_Track2_txt_scale = 0.8 - History_Track2_title = ' ' - - History_Track2_xname = 'model_number' - History_Track2_yname = 'lg_mtransfer_rate ' - History_Track2_xaxis_label = 'Model Number' - History_Track2_yaxis_label = 'RLOF mass transfer rate (Msun/yr)' - History_Track2_reverse_xaxis = .false. - History_Track2_reverse_yaxis = .false. - - History_Track2_xmin = 400.0 - History_Track2_xmax = 1350.0 - History_Track2_ymin = -26.0 - History_Track2_ymax = -5.0 - - History_Track2_file_flag = .true. - History_Track2_file_dir = 'pgstar_out' - History_Track2_file_prefix = 'track2_' - History_Track2_file_interval = 10000 - History_Track2_file_width = -1 - History_Track2_file_aspect_ratio = -1 - - - - Profile_Panels2_win_flag = .true. - Profile_Panels2_win_width = 10 - Profile_Panels2_title = 'evolve_both_stars: star 1' - - Profile_Panels2_xaxis_name = 'mass' - Profile_Panels2_xaxis_reversed = .false. - Profile_Panels2_xmin = 0.0 - Profile_Panels2_xmax = 1.0 - Profile_Panels2_show_mix_regions_on_xaxis = .false. - - Profile_Panels2_xright = 0.92 - Profile_Panels2_ytop = 0.92 + Text_Summary_win_flag(1) = .false. + Text_Summary_win_width(1) = 10 + Text_Summary_win_aspect_ratio(1) = 0.15 + + Text_Summary_xleft(1) = 0.01 + Text_Summary_xright(1) = 0.99 + Text_Summary_ybot(1) = 0.0 + Text_Summary_ytop(1) = 1.0 + Text_Summary_txt_scale(1) = 1.0 + Text_Summary_title(1) = '' + + Text_Summary_num_rows(1) = 4 ! <= 20 + Text_Summary_num_cols(1) = 8 ! <= 20 + Text_Summary_name(1, :, :) = '' + + Text_Summary_name(1, 1, 1) = 'time_step' + Text_Summary_name(1, 1, 2) = 'donor_index' + Text_Summary_name(1, 1, 3) = 'binary_separation' + Text_Summary_name(1, 1, 4) = 'period_days' + Text_Summary_name(1, 1, 5) = 'eccentricity' + Text_Summary_name(1, 1, 6) = 'edot' + Text_Summary_name(1, 1, 7) = 'J_orb' + Text_Summary_name(1, 1, 8) = '' + + Text_Summary_name(1, 2, 1) = 'sum_of_masses' + Text_Summary_name(1, 2, 2) = 'star_1_mass' + Text_Summary_name(1, 2, 3) = 'star_1_radius' + Text_Summary_name(1, 2, 4) = 'v_orb_1' + Text_Summary_name(1, 2, 5) = 'rl_1' + Text_Summary_name(1, 2, 6) = 'lg_mstar_dot_1' + Text_Summary_name(1, 2, 7) = 'J_spin_1' + Text_Summary_name(1, 2, 8) = '' + + Text_Summary_name(1, 3, 1) = '' + Text_Summary_name(1, 3, 2) = 'star_2_mass' + Text_Summary_name(1, 3, 3) = 'star_2_radius' + Text_Summary_name(1, 3, 4) = 'v_orb_2' + Text_Summary_name(1, 3, 5) = 'rl_2' + Text_Summary_name(1, 3, 6) = 'lg_mstar_dot_2' + Text_Summary_name(1, 3, 7) = 'J_spin_2' + Text_Summary_name(1, 3, 8) = '' + + Text_Summary_name(1, 4, 1) = 'Jdot' + Text_Summary_name(1, 4, 2) = 'jdot_gr' + Text_Summary_name(1, 4, 3) = 'jdot_mb' + Text_Summary_name(1, 4, 4) = 'jdot_ls' + Text_Summary_name(1, 4, 5) = 'jdot_ml' + Text_Summary_name(1, 4, 6) = '' + Text_Summary_name(1, 4, 7) = '' + Text_Summary_name(1, 4, 8) = '' + + History_Track_win_flag(1) = .false. + History_Track_win_width(1) = 12 + History_Track_win_aspect_ratio(1) = 0.75 + History_Track_txt_scale(1) = 0.8 + History_Track_title(1) = ' ' + + History_Track_xname(1) = 'model_number' + History_Track_yname(1) = 'period_days' + History_Track_xaxis_label(1) = 'Model Number' + History_Track_yaxis_label(1) = 'Binary Period (day)' + History_Track_reverse_xaxis(1) = .false. + History_Track_reverse_yaxis(1) = .false. + + History_Track_xmin(1) = 0.0 + History_Track_xmax(1) = 1350 + History_Track_ymin(1) = 0.0 + History_Track_ymax(1) = 0.6 + + History_Track_file_flag(1) = .true. + History_Track_file_dir(1) = 'pgstar_out' + History_Track_file_prefix(1) = 'track1_' + History_Track_file_interval(1) = 10000 + History_Track_file_width(1) = -1 + History_Track_file_aspect_ratio(1) = -1 + + + History_Track_win_flag(2) = .false. + History_Track_win_width(2) = 12 + History_Track_win_aspect_ratio(2) = 0.75 + History_Track_txt_scale(2) = 0.8 + History_Track_title(2) = ' ' + + History_Track_xname(2) = 'model_number' + History_Track_yname(2) = 'lg_mtransfer_rate ' + History_Track_xaxis_label(2) = 'Model Number' + History_Track_yaxis_label(2) = 'RLOF mass transfer rate (Msun/yr)' + History_Track_reverse_xaxis(2) = .false. + History_Track_reverse_yaxis(2) = .false. + + History_Track_xmin(2) = 400.0 + History_Track_xmax(2) = 1350.0 + History_Track_ymin(2) = -26.0 + History_Track_ymax(2) = -5.0 + + History_Track_file_flag(2) = .true. + History_Track_file_dir(2) = 'pgstar_out' + History_Track_file_prefix(2) = 'track2_' + History_Track_file_interval(2) = 10000 + History_Track_file_width(2) = -1 + History_Track_file_aspect_ratio(2) = -1 + + + + Profile_Panels_win_flag(2) = .true. + Profile_Panels_win_width(2) = 10 + Profile_Panels_title(2) = 'evolve_both_stars: star 1' + + Profile_Panels_xaxis_name(2) = 'mass' + Profile_Panels_xaxis_reversed(2) = .false. + Profile_Panels_xmin(2) = 0.0 + Profile_Panels_xmax(2) = 1.0 + Profile_Panels_show_mix_regions_on_xaxis(2) = .false. + + Profile_Panels_xright(2) = 0.92 + Profile_Panels_ytop(2) = 0.92 num_abundance_line_labels = 5 Abundance_legend_max_cnt = 0 - Profile_Panels2_yaxis_name(2) = 'Power' - Profile_Panels2_ymin(2) = -10.0 - Profile_Panels2_ymax(2) = 5.0 - - Profile_Panels2_file_flag = .true. - Profile_Panels2_file_dir = 'pgstar_out' - Profile_Panels2_file_prefix = 'profile_s1_' - Profile_Panels2_file_interval = 10000 - Profile_Panels2_file_width = -1 - Profile_Panels2_file_aspect_ratio = -1 - - Grid1_win_flag = .true. - Grid1_win_width = 16 - Grid1_win_aspect_ratio = 0.6 - - Grid1_title = 'evolve_both_stars' - Grid1_txt_scale_factor(1) = 1.0 - - Grid1_num_cols = 2 ! divide plotting region into this many equal width cols - Grid1_num_rows = 2 ! divide plotting region into this many equal height rows - Grid1_num_plots = 3 ! <= 10 - - Grid1_plot_name(1) = 'Text_Summary1' - Grid1_plot_row(1) = 1 ! number from 1 at top - Grid1_plot_rowspan(1) = 1 ! plot spans this number of rows - Grid1_plot_col(1) = 1 ! number from 1 at left - Grid1_plot_colspan(1) = 2 ! plot spans this number of columns - - Grid1_plot_pad_left(1) = -0.10 ! fraction of full window width for padding on left - Grid1_plot_pad_right(1) = -0.18 ! fraction of full window width for padding on right - Grid1_plot_pad_top(1) = -0.00 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(1) = 0.32 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(1) = 0.70 ! multiply txt_scale for subplot by this - - Grid1_plot_name(2) = 'History_Track1' - Grid1_plot_row(2) = 2 ! number from 1 at top - Grid1_plot_rowspan(2) = 1 ! plot spans this number of rows - Grid1_plot_col(2) = 1 ! number from 1 at left - Grid1_plot_colspan(2) = 1 ! plot spans this number of columns - - Grid1_plot_pad_left(2) = -0.04 ! fraction of full window width for padding on left - Grid1_plot_pad_right(2) = 0.04 ! fraction of full window width for padding on right - Grid1_plot_pad_top(2) = -0.24 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(2) = 0.00 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this - - Grid1_plot_name(3) = 'History_Track2' - Grid1_plot_row(3) = 2 ! number from 1 at top - Grid1_plot_rowspan(3) = 1 ! plot spans this number of rows - Grid1_plot_col(3) = 2 ! number from 1 at left - Grid1_plot_colspan(3) = 1 ! plot spans this number of columns - - Grid1_plot_pad_left(3) = 0.04 ! fraction of full window width for padding on left - Grid1_plot_pad_right(3) = -0.04 ! fraction of full window width for padding on right - Grid1_plot_pad_top(3) = -0.24 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(3) = 0.00 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(3) = 0.7 ! multiply txt_scale for subplot by this - - Grid1_file_flag = .true. - Grid1_file_dir = 'pgstar_out' - Grid1_file_prefix = 'grid_' - Grid1_file_interval = 10000 - Grid1_file_width = -1 - Grid1_file_aspect_ratio = -1 + Profile_Panels_yaxis_name(2, 2) = 'Power' + Profile_Panels_ymin(2, 2) = -10.0 + Profile_Panels_ymax(2, 2) = 5.0 + + Profile_Panels_file_flag(2) = .true. + Profile_Panels_file_dir(2) = 'pgstar_out' + Profile_Panels_file_prefix(2) = 'profile_s1_' + Profile_Panels_file_interval(2) = 10000 + Profile_Panels_file_width(2) = -1 + Profile_Panels_file_aspect_ratio(2) = -1 + + Grid_win_flag(1) = .true. + Grid_win_width(1) = 16 + Grid_win_aspect_ratio(1) = 0.6 + + Grid_title(1) = 'evolve_both_stars' + Grid_txt_scale_factor(1, 1) = 1.0 + + Grid_num_cols(1) = 2 ! divide plotting region into this many equal width cols + Grid_num_rows(1) = 2 ! divide plotting region into this many equal height rows + Grid_num_plots(1) = 3 ! <= 10 + + Grid_plot_name(1, 1) = 'Text_Summary(1)' + Grid_plot_row(1, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(1, 1) = 1 ! plot spans this number of rows + Grid_plot_col(1, 1) = 1 ! number from 1 at left + Grid_plot_colspan(1, 1) = 2 ! plot spans this number of columns + + Grid_plot_pad_left(1, 1) = -0.10 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 1) = -0.18 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 1) = -0.00 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 1) = 0.32 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 1) = 0.70 ! multiply txt_scale for subplot by this + + Grid_plot_name(1, 2) = 'History_Track1' + Grid_plot_row(1, 2) = 2 ! number from 1 at top + Grid_plot_rowspan(1, 2) = 1 ! plot spans this number of rows + Grid_plot_col(1, 2) = 1 ! number from 1 at left + Grid_plot_colspan(1, 2) = 1 ! plot spans this number of columns + + Grid_plot_pad_left(1, 2) = -0.04 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 2) = 0.04 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 2) = -0.24 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 2) = 0.00 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 2) = 0.7 ! multiply txt_scale for subplot by this + + Grid_plot_name(1, 3) = 'History_Track2' + Grid_plot_row(1, 3) = 2 ! number from 1 at top + Grid_plot_rowspan(1, 3) = 1 ! plot spans this number of rows + Grid_plot_col(1, 3) = 2 ! number from 1 at left + Grid_plot_colspan(1, 3) = 1 ! plot spans this number of columns + + Grid_plot_pad_left(1, 3) = 0.04 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 3) = -0.04 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 3) = -0.24 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 3) = 0.00 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 3) = 0.7 ! multiply txt_scale for subplot by this + + Grid_file_flag(1) = .true. + Grid_file_dir(1) = 'pgstar_out' + Grid_file_prefix(1) = 'grid_' + Grid_file_interval(1) = 10000 + Grid_file_width(1) = -1 + Grid_file_aspect_ratio(1) = -1 / ! end of pgstar namelist @@ -253,32 +253,32 @@ pgstar commands used for the star2 plot above: pgstar_interval = 1 - Profile_Panels2_win_flag = .true. - Profile_Panels2_win_width = 10 - Profile_Panels2_title = 'evolve_both_stars: star 2' + Profile_Panels_win_flag(2) = .true. + Profile_Panels_win_width(2) = 10 + Profile_Panels_title(2) = 'evolve_both_stars: star 2' - Profile_Panels2_xaxis_name = 'mass' - Profile_Panels2_xaxis_reversed = .false. - Profile_Panels2_xmin = 0.0 - Profile_Panels2_xmax = 0.9 - Profile_Panels2_show_mix_regions_on_xaxis = .false. + Profile_Panels_xaxis_name(2) = 'mass' + Profile_Panels_xaxis_reversed(2) = .false. + Profile_Panels_xmin(2) = 0.0 + Profile_Panels_xmax(2) = 0.9 + Profile_Panels_show_mix_regions_on_xaxis(2) = .false. - Profile_Panels2_xright = 0.92 - Profile_Panels2_ytop = 0.92 + Profile_Panels_xright(2) = 0.92 + Profile_Panels_ytop(2) = 0.92 num_abundance_line_labels = 5 Abundance_legend_max_cnt = 0 - Profile_Panels2_yaxis_name(2) = 'Power' - Profile_Panels2_ymin(2) = -10.0 - Profile_Panels2_ymax(2) = 1.0 + Profile_Panels_yaxis_name(2, 2) = 'Power' + Profile_Panels_ymin(2, 2) = -10.0 + Profile_Panels_ymax(2, 2) = 1.0 - Profile_Panels2_file_flag = .true. - Profile_Panels2_file_dir = 'pgstar_out' - Profile_Panels2_file_prefix = 'profile_s2_' - Profile_Panels2_file_interval = 10000 - Profile_Panels2_file_width = -1 - Profile_Panels2_file_aspect_ratio = -1 + Profile_Panels_file_flag(2) = .true. + Profile_Panels_file_dir(2) = 'pgstar_out' + Profile_Panels_file_prefix(2) = 'profile_s2_' + Profile_Panels_file_interval(2) = 10000 + Profile_Panels_file_width(2) = -1 + Profile_Panels_file_aspect_ratio(2) = -1 / ! end of pgstar namelist diff --git a/binary/test_suite/evolve_both_stars/inlist_pgbinary b/binary/test_suite/evolve_both_stars/inlist_pgbinary index 2228ae1a6..6ba2f36ab 100644 --- a/binary/test_suite/evolve_both_stars/inlist_pgbinary +++ b/binary/test_suite/evolve_both_stars/inlist_pgbinary @@ -10,93 +10,78 @@ pgbinary_grid_title_disp = 0.2 pgbinary_title_disp = 0.2 -Orbit_win_flag = .true. -Orbit_win_width = 8 +Grid_win_flag(1) = .true. +Grid_win_width(1) = 19 +Grid_win_aspect_ratio(1) = 0.58 +Grid_xleft(1) = 0.0 +Grid_xright(1) = 1.0 +Grid_ybot(1) = 0.0 +Grid_ytop(1) = 0.95 +Grid_title = '' -Grid1_win_flag = .true. +Grid_num_cols(1) = 5 +Grid_num_rows(1) = 3 +Grid_num_plots(1) = 4 -Grid1_win_width = 19 -Grid1_win_aspect_ratio = 0.58 - -Grid1_xleft = 0.0 -Grid1_xright = 1.0 -Grid1_ybot = 0.0 -Grid1_ytop = 0.95 -Grid1_title = '' - -Grid1_num_cols = 5 -Grid1_num_rows = 3 -Grid1_num_plots = 4 - -Grid1_plot_name(1) = 'Star1' -Grid1_plot_col(1) = 1 -Grid1_plot_colspan(1) = 2 -Grid1_plot_row(1) = 1 -Grid1_plot_rowspan(1) = 3 -Grid1_plot_pad_left(1) = 0.02 -Grid1_plot_pad_right(1) = 0.02 -Grid1_plot_pad_bot(1) = 0.01 -Grid1_plot_pad_top(1) = 0.00 -Grid1_txt_scale_factor(1) = 0.9 -Star1_plot_name = 'Grid2' +Grid_plot_name(1, 1) = 'Star1' +Grid_plot_col(1, 1) = 1 +Grid_plot_colspan(1, 1) = 2 +Grid_plot_row(1, 1) = 1 +Grid_plot_rowspan(1, 1) = 3 +Grid_plot_pad_left(1, 1) = 0.02 +Grid_plot_pad_right(1, 1) = 0.02 +Grid_plot_pad_bot(1, 1) = 0.01 +Grid_plot_pad_top(1, 1) = 0.00 +Grid_txt_scale_factor(1, 1) = 0.9 +Star1_plot_name = 'Grid(2)' do_star1_box = .true. star1_box_pad_left = -0.02 star1_box_pad_right = 0.02 star1_box_pad_bot = 0.0 star1_box_pad_top = 0.001 -Grid1_plot_name(2) = 'Star2' -Grid1_plot_col(2) = 3 -Grid1_plot_colspan(2) = 2 -Grid1_plot_row(2) = 1 -Grid1_plot_rowspan(2) = 3 -Grid1_plot_pad_left(2) = 0.02 -Grid1_plot_pad_right(2) = 0.02 -Grid1_plot_pad_bot(2) = 0.01 -Grid1_plot_pad_top(2) = 0.00 -Grid1_txt_scale_factor(2) = 0.9 -Star2_plot_name = 'Grid2' +Grid_plot_name(1, 3) = 'Orbit' +Grid_plot_col(1, 3) = 5 +Grid_plot_colspan(1, 3) = 1 +Grid_plot_row(1, 3) = 1 +Grid_plot_rowspan(1, 3) = 1 +Grid_plot_pad_left(1, 3) = 0.04 +Grid_plot_pad_right(1, 3) = 0.04 +Grid_plot_pad_bot(1, 3) = 0.03 +Grid_plot_pad_top(1, 3) = 0.00 +Grid_txt_scale_factor(1, 3) = 0.4 + +Grid_plot_name(1, 2) = 'Star2' +Grid_plot_col(1, 2) = 3 +Grid_plot_colspan(1, 2) = 2 +Grid_plot_row(1, 2) = 1 +Grid_plot_rowspan(1, 2) = 3 +Grid_plot_pad_left(1, 2) = 0.02 +Grid_plot_pad_right(1, 2) = 0.02 +Grid_plot_pad_bot(1, 2) = 0.01 +Grid_plot_pad_top(1, 2) = 0.00 +Grid_txt_scale_factor(1, 2) = 0.9 +Star2_plot_name = 'Grid(2)' do_star2_box = .true. star2_box_pad_left = -0.018 star2_box_pad_right = 0.02 star2_box_pad_bot = 0.0 star2_box_pad_top = 0.001 -Grid1_plot_name(3) = 'history_panels1' -Grid1_plot_col(3) = 5 -Grid1_plot_colspan(3) = 1 -Grid1_plot_row(3) = 2 -Grid1_plot_rowspan(3) = 2 -Grid1_plot_pad_left(3) = 0.04 -Grid1_plot_pad_right(3) = 0.04 -Grid1_plot_pad_bot(3) = 0.04 -Grid1_plot_pad_top(3) = 0.00 -Grid1_txt_scale_factor(3) = 0.4 - -History_panels1_title = '' -History_panels1_num_panels = 2 -History_panels1_xaxis_name = 'model_number' -History_panels1_yaxis_name(1) = 'rl_relative_overflow_1' -History_panels1_other_yaxis_name(1) = 'rl_relative_overflow_2' -History_panels1_yaxis_name(2) = 'period_days' -History_panels1_other_yaxis_name(2) = 'lg_mtransfer_rate' -History_panels1_other_ymin(2) = -10 -History_panels1_max_width = -1 - -Grid1_plot_name(4) = 'Orbit' -Grid1_plot_col(4) = 5 -Grid1_plot_colspan(4) = 1 -Grid1_plot_row(4) = 1 -Grid1_plot_rowspan(4) = 1 -Grid1_plot_pad_left(4) = 0.04 -Grid1_plot_pad_right(4) = 0.04 -Grid1_plot_pad_bot(4) = 0.03 -Grid1_plot_pad_top(4) = 0.00 -Grid1_txt_scale_factor(4) = 0.4 +Grid_plot_name(1, 4) = 'history_panels(1)' +Grid_plot_col(1, 4) = 5 +Grid_plot_colspan(1, 4) = 1 +Grid_plot_row(1, 4) = 2 +Grid_plot_rowspan(1, 4) = 2 +Grid_plot_pad_left(1, 4) = 0.04 +Grid_plot_pad_right(1, 4) = 0.04 +Grid_plot_pad_bot(1, 4) = 0.04 +Grid_plot_pad_top(1, 4) = 0.00 +Grid_txt_scale_factor(1, 4) = 0.4 -Grid1_file_flag = .true. -Grid1_file_interval = 10 -Grid1_file_width = -1 -Grid1_file_aspect_ratio = -1 +Grid_file_flag(1) = .true. +Grid_file_interval(1) = 10 +Grid_file_width(1) = -1 +Grid_file_aspect_ratio(1) = -1 / ! end of pgbinary namelist diff --git a/binary/test_suite/evolve_both_stars/inlist_pgstar b/binary/test_suite/evolve_both_stars/inlist_pgstar index 0dc425b3a..2c058c0b8 100644 --- a/binary/test_suite/evolve_both_stars/inlist_pgstar +++ b/binary/test_suite/evolve_both_stars/inlist_pgstar @@ -10,98 +10,98 @@ pgstar_xaxis_label_scale = 1. pgstar_left_yaxis_label_scale = 1. pgstar_right_yaxis_label_scale = 1. -Grid2_num_cols = 4 ! divide plotting region into this many equal width cols -Grid2_num_rows = 8 ! divide plotting region into this many equal height rows - -Grid2_num_plots = 6 ! <= 10 - -Grid2_plot_name(1) = 'Profile_Panels1' -Grid2_plot_row(1) = 1 ! number from 1 at top -Grid2_plot_rowspan(1) = 3 ! plot spans this number of rows -Grid2_plot_col(1) = 1 ! number from 1 at left -Grid2_plot_colspan(1) = 2 ! plot spans this number of columns -Grid2_plot_pad_left(1) = 0.01 ! fraction of full window width for padding on left -Grid2_plot_pad_right(1) = 0.05 ! fraction of full window width for padding on right -Grid2_plot_pad_top(1) = 0.01 ! fraction of full window height for padding at top -Grid2_plot_pad_bot(1) = 0.02 ! fraction of full window height for padding at bottom -Grid2_txt_scale_factor(1) = 0.7 ! multiply txt_scale for subplot by this - -Profile_Panels1_title = '' -Profile_Panels1_num_panels = 2 -Profile_Panels1_xaxis_name = 'radius' -Profile_Panels1_yaxis_name(1) = 'luminosity' -Profile_Panels1_yaxis_name(2) = 'X_mass_fraction_H' -Profile_Panels1_other_yaxis_name(2) = 'Y_mass_fraction_He' -! Profile_Panels1_yaxis_name(3) = 'log' -! Profile_Panels1_other_yaxis_name(3) = 'ft_rot' - -Grid2_plot_name(2) = 'Mixing' -Grid2_plot_row(2) = 4 ! number from 1 at top -Grid2_plot_rowspan(2) = 2 ! plot spans this number of rows -Grid2_plot_col(2) = 1 ! number from 1 at left -Grid2_plot_colspan(2) = 2 ! plot spans this number of columns -Grid2_plot_pad_left(2) = 0.01 ! fraction of full window width for padding on left -Grid2_plot_pad_right(2) = 0.05 ! fraction of full window width for padding on right -Grid2_plot_pad_top(2) = 0.01 ! fraction of full window height for padding at top -Grid2_plot_pad_bot(2) = 0.02 ! fraction of full window height for padding at bottom -Grid2_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this +Grid_num_cols(2) = 4 ! divide plotting region into this many equal width cols +Grid_num_rows(2) = 8 ! divide plotting region into this many equal height rows + +Grid_num_plots(2) = 6 ! <= 10 + +Grid_plot_name(2, 1) = 'Profile_Panels(1)' +Grid_plot_row(2, 1) = 1 ! number from 1 at top +Grid_plot_rowspan(2, 1) = 3 ! plot spans this number of rows +Grid_plot_col(2, 1) = 1 ! number from 1 at left +Grid_plot_colspan(2, 1) = 2 ! plot spans this number of columns +Grid_plot_pad_left(2, 1) = 0.01 ! fraction of full window width for padding on left +Grid_plot_pad_right(2, 1) = 0.05 ! fraction of full window width for padding on right +Grid_plot_pad_top(2, 1) = 0.01 ! fraction of full window height for padding at top +Grid_plot_pad_bot(2, 1) = 0.02 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(2, 1) = 0.7 ! multiply txt_scale for subplot by this + +Profile_Panels_title(1) = '' +Profile_Panels_num_panels(1) = 2 +Profile_Panels_xaxis_name(1) = 'radius' +Profile_Panels_yaxis_name(1, 1) = 'luminosity' +Profile_Panels_yaxis_name(1, 2) = 'X_mass_fraction_H' +Profile_Panels_other_yaxis_name(1 ,2) = 'Y_mass_fraction_He' +! Profile_Panels_yaxis_name(1, 3) = 'log' +! Profile_Panels_other_yaxis_name(1, 3) = 'ft_rot' + +Grid_plot_name(2, 2) = 'Mixing' +Grid_plot_row(2, 2) = 4 ! number from 1 at top +Grid_plot_rowspan(2, 2) = 2 ! plot spans this number of rows +Grid_plot_col(2, 2) = 1 ! number from 1 at left +Grid_plot_colspan(2, 2) = 2 ! plot spans this number of columns +Grid_plot_pad_left(2, 2) = 0.01 ! fraction of full window width for padding on left +Grid_plot_pad_right(2, 2) = 0.05 ! fraction of full window width for padding on right +Grid_plot_pad_top(2, 2) = 0.01 ! fraction of full window height for padding at top +Grid_plot_pad_bot(2, 2) = 0.02 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(2, 2) = 0.7 ! multiply txt_scale for subplot by this Mixing_title = '' -Grid2_plot_name(3) = 'TRho_profile' -Grid2_plot_row(3) = 6 ! number from 1 at top -Grid2_plot_rowspan(3) = 2 ! plot spans this number of rows -Grid2_plot_col(3) = 1 ! number from 1 at left -Grid2_plot_colspan(3) = 2 ! plot spans this number of columns -Grid2_plot_pad_left(3) = 0.01 ! fraction of full window width for padding on left -Grid2_plot_pad_right(3) = 0.03 ! fraction of full window width for padding on right -Grid2_plot_pad_top(3) = 0.01 ! fraction of full window height for padding at top -Grid2_plot_pad_bot(3) = 0.02 ! fraction of full window height for padding at bottom -Grid2_txt_scale_factor(3) = 0.7 ! multiply txt_scale for subplot by this - -Grid2_plot_name(5) = 'HR' +Grid_plot_name(2, 3) = 'TRho_profile' +Grid_plot_row(2, 3) = 6 ! number from 1 at top +Grid_plot_rowspan(2, 3) = 2 ! plot spans this number of rows +Grid_plot_col(2, 3) = 1 ! number from 1 at left +Grid_plot_colspan(2, 3) = 2 ! plot spans this number of columns +Grid_plot_pad_left(2, 3) = 0.01 ! fraction of full window width for padding on left +Grid_plot_pad_right(2, 3) = 0.03 ! fraction of full window width for padding on right +Grid_plot_pad_top(2, 3) = 0.01 ! fraction of full window height for padding at top +Grid_plot_pad_bot(2, 3) = 0.02 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(2, 3) = 0.7 ! multiply txt_scale for subplot by this + +Grid_plot_name(2, 5) = 'HR' HR_title = '' -Grid2_plot_row(5) = 6 ! number from 1 at top -Grid2_plot_rowspan(5) = 2 ! plot spans this number of rows -Grid2_plot_col(5) = 3 ! number from 1 at left -Grid2_plot_colspan(5) = 2 ! plot spans this number of columns -Grid2_plot_pad_left(5) = 0.01 ! fraction of full window width for padding on left -Grid2_plot_pad_right(5) = 0.01 ! fraction of full window width for padding on right -Grid2_plot_pad_top(5) = 0.01 ! fraction of full window height for padding at top -Grid2_plot_pad_bot(5) = 0.02 ! fraction of full window height for padding at bottom -Grid2_txt_scale_factor(5) = 0.7 ! multiply txt_scale for subplot by this - -Grid2_plot_name(4) = 'History_Panels1' -Grid2_plot_row(4) = 1 ! number from 1 at top -Grid2_plot_rowspan(4) = 5 ! plot spans this number of rows -Grid2_plot_col(4) = 3 ! number from 1 at left -Grid2_plot_colspan(4) = 2 ! plot spans this number of columns -Grid2_plot_pad_left(4) = 0.01 ! fraction of full window width for padding on left -Grid2_plot_pad_right(4) = 0.01 ! fraction of full window width for padding on right -Grid2_plot_pad_top(4) = 0.01 ! fraction of full window height for padding at top -Grid2_plot_pad_bot(4) = 0.02 ! fraction of full window height for padding at bottom -Grid2_txt_scale_factor(4) = 0.7 ! multiply txt_scale for subplot by this - -History_Panels1_title = '' -History_Panels1_num_panels = 2 -History_Panels1_max_width = -1 -History_Panels1_xaxis_name = 'model_number' - -History_Panels1_yaxis_name(1) = 'log_R' -History_Panels1_other_yaxis_name(1) = 'log_L' - -History_Panels1_yaxis_name(2) = 'center_h1' -History_Panels1_other_yaxis_name(2) = 'center_he4' - -Grid2_plot_name(6) = 'Text_Summary1' -Grid2_plot_row(6) = 8 ! number from 1 at top -Grid2_plot_rowspan(6) = 1 ! plot spans this number of rows -Grid2_plot_col(6) = 1 ! number from 1 at left -Grid2_plot_colspan(6) = 4 ! plot spans this number of columns -Grid2_plot_pad_left(6) = -0.01 ! fraction of full window width for padding on left -Grid2_plot_pad_right(6) = -0.01 ! fraction of full window width for padding on right -Grid2_plot_pad_top(6) = 0.01 ! fraction of full window height for padding at top -Grid2_plot_pad_bot(6) = 0.00 ! fraction of full window height for padding at bottom -Grid2_txt_scale_factor(6) = 0.2 ! multiply txt_scale for subplot by this +Grid_plot_row(2, 5) = 6 ! number from 1 at top +Grid_plot_rowspan(2, 5) = 2 ! plot spans this number of rows +Grid_plot_col(2, 5) = 3 ! number from 1 at left +Grid_plot_colspan(2, 5) = 2 ! plot spans this number of columns +Grid_plot_pad_left(2, 5) = 0.01 ! fraction of full window width for padding on left +Grid_plot_pad_right(2, 5) = 0.01 ! fraction of full window width for padding on right +Grid_plot_pad_top(2, 5) = 0.01 ! fraction of full window height for padding at top +Grid_plot_pad_bot(2, 5) = 0.02 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(2, 5) = 0.7 ! multiply txt_scale for subplot by this + +Grid_plot_name(2, 4) = 'History_Panels(1)' +Grid_plot_row(2, 4) = 1 ! number from 1 at top +Grid_plot_rowspan(2, 4) = 5 ! plot spans this number of rows +Grid_plot_col(2, 4) = 3 ! number from 1 at left +Grid_plot_colspan(2, 4) = 2 ! plot spans this number of columns +Grid_plot_pad_left(2, 4) = 0.01 ! fraction of full window width for padding on left +Grid_plot_pad_right(2, 4) = 0.01 ! fraction of full window width for padding on right +Grid_plot_pad_top(2, 4) = 0.01 ! fraction of full window height for padding at top +Grid_plot_pad_bot(2, 4) = 0.02 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(2, 4) = 0.7 ! multiply txt_scale for subplot by this + +History_Panels_title = '' +History_Panels_num_panels = 2 +History_Panels_max_width = -1 +History_Panels_xaxis_name = 'model_number' + +History_Panels_yaxis_name(1, 1) = 'log_R' +History_Panels_other_yaxis_name(1, 1) = 'log_L' + +History_Panels_yaxis_name(1, 2) = 'center_h1' +History_Panels_other_yaxis_name(1, 2) = 'center_he4' + +Grid_plot_name(2, 6) = 'Text_Summary(1)' +Grid_plot_row(2, 6) = 8 ! number from 1 at top +Grid_plot_rowspan(2, 6) = 1 ! plot spans this number of rows +Grid_plot_col(2, 6) = 1 ! number from 1 at left +Grid_plot_colspan(2, 6) = 4 ! plot spans this number of columns +Grid_plot_pad_left(2, 6) = -0.01 ! fraction of full window width for padding on left +Grid_plot_pad_right(2, 6) = -0.01 ! fraction of full window width for padding on right +Grid_plot_pad_top(2, 6) = 0.01 ! fraction of full window height for padding at top +Grid_plot_pad_bot(2, 6) = 0.00 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(2, 6) = 0.2 ! multiply txt_scale for subplot by this / diff --git a/binary/test_suite/jdot_gr_check/README.rst b/binary/test_suite/jdot_gr_check/README.rst index 926b8cbaf..513c81791 100644 --- a/binary/test_suite/jdot_gr_check/README.rst +++ b/binary/test_suite/jdot_gr_check/README.rst @@ -47,164 +47,164 @@ pgstar commands used for the plot above: pgstar_left_yaxis_label_disp = 3.0 - Text_Summary1_win_flag = .false. - Text_Summary1_win_width = 10 - Text_Summary1_win_aspect_ratio = 0.15 - - Text_Summary1_xleft = 0.01 - Text_Summary1_xright = 0.99 - Text_Summary1_ybot = 0.0 - Text_Summary1_ytop = 1.0 - Text_Summary1_txt_scale = 1.0 - Text_Summary1_title = '' - - Text_Summary1_num_rows = 4 ! <= 20 - Text_Summary1_num_cols = 8 ! <= 20 - Text_Summary1_name(:,:) = '' - - Text_Summary1_name(1,1) = 'time_step' - Text_Summary1_name(1,2) = 'donor_index' - Text_Summary1_name(1,3) = 'binary_separation' - Text_Summary1_name(1,4) = 'period_days' - Text_Summary1_name(1,5) = 'eccentricity' - Text_Summary1_name(1,6) = 'edot' - Text_Summary1_name(1,7) = 'J_orb' - Text_Summary1_name(1,8) = '' - - Text_Summary1_name(2,1) = 'sum_of_masses' - Text_Summary1_name(2,2) = 'star_1_mass' - Text_Summary1_name(2,3) = 'star_1_radius' - Text_Summary1_name(2,4) = 'v_orb_1' - Text_Summary1_name(2,5) = 'rl_1' - Text_Summary1_name(2,6) = 'lg_mstar_dot_1' - Text_Summary1_name(2,7) = 'J_spin_1' - Text_Summary1_name(2,8) = '' - - Text_Summary1_name(3,1) = '' - Text_Summary1_name(3,2) = 'star_2_mass' - Text_Summary1_name(3,3) = 'star_2_radius' - Text_Summary1_name(3,4) = 'v_orb_2' - Text_Summary1_name(3,5) = 'rl_2' - Text_Summary1_name(3,6) = 'lg_mstar_dot_2' - Text_Summary1_name(3,7) = 'J_spin_2' - Text_Summary1_name(3,8) = '' - - Text_Summary1_name(4,1) = 'Jdot' - Text_Summary1_name(4,2) = 'jdot_gr' - Text_Summary1_name(4,3) = 'jdot_mb' - Text_Summary1_name(4,4) = 'jdot_ls' - Text_Summary1_name(4,5) = 'jdot_ml' - Text_Summary1_name(4,6) = '' - Text_Summary1_name(4,7) = '' - Text_Summary1_name(4,8) = '' - - - History_Track1_win_flag = .false. - History_Track1_win_width = 12 - History_Track1_win_aspect_ratio = 0.75 - History_Track1_txt_scale = 0.8 - History_Track1_title = ' ' - - History_Track1_xname = 'model_number' - History_Track1_yname = 'period_days' - History_Track1_xaxis_label = 'Model Number' - History_Track1_yaxis_label = 'Binary Period (day)' - History_Track1_reverse_xaxis = .false. - History_Track1_reverse_yaxis = .false. - - History_Track1_xmin = 0.0 - History_Track1_xmax = 900.0 - History_Track1_ymin = 0.3 - History_Track1_ymax = 0.36 - - History_Track1_file_flag = .false. - History_Track1_file_dir = 'pgstar_out' - History_Track1_file_prefix = 'track1_s1_' - History_Track1_file_interval = 10000 - History_Track1_file_width = -1 - History_Track1_file_aspect_ratio = -1 - - - - History_Track2_win_flag = .false. - History_Track2_win_width = 12 - History_Track2_win_aspect_ratio = 0.75 - History_Track2_txt_scale = 0.8 - History_Track2_title = '' - - History_Track2_xname = 'model_number' - History_Track2_yname = 'binary_separation' - History_Track2_xaxis_label = 'Model Number' - History_Track2_yaxis_label = 'Binary Seperation (R\d\(2281)\u)' - History_Track2_reverse_xaxis = .false. - History_Track2_reverse_yaxis = .false. - - History_Track2_xmin = 0.0 - History_Track2_xmax = 900 - History_Track2_ymin = 2.0 - History_Track2_ymax = 3.0 - - History_Track2_file_flag = .false. - History_Track2_file_dir = 'pgstar_out' - History_Track2_file_prefix = 'track2_s1_' - History_Track2_file_interval = 10000 - History_Track2_file_width = -1 - History_Track2_file_aspect_ratio = -1 - - - Grid1_win_flag = .true. - Grid1_win_width = 16 - Grid1_win_aspect_ratio = 0.6 - - Grid1_title = 'jdot_gr_check' - Grid1_txt_scale_factor(1) = 1.0 - - Grid1_num_cols = 2 ! divide plotting region into this many equal width cols - Grid1_num_rows = 2 ! divide plotting region into this many equal height rows - Grid1_num_plots = 3 ! <= 10 - - Grid1_plot_name(1) = 'Text_Summary1' - Grid1_plot_row(1) = 1 ! number from 1 at top - Grid1_plot_rowspan(1) = 1 ! plot spans this number of rows - Grid1_plot_col(1) = 1 ! number from 1 at left - Grid1_plot_colspan(1) = 2 ! plot spans this number of columns - - Grid1_plot_pad_left(1) = -0.10 ! fraction of full window width for padding on left - Grid1_plot_pad_right(1) = -0.18 ! fraction of full window width for padding on right - Grid1_plot_pad_top(1) = -0.00 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(1) = 0.32 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(1) = 0.70 ! multiply txt_scale for subplot by this - - Grid1_plot_name(2) = 'History_Track1' - Grid1_plot_row(2) = 2 ! number from 1 at top - Grid1_plot_rowspan(2) = 1 ! plot spans this number of rows - Grid1_plot_col(2) = 1 ! number from 1 at left - Grid1_plot_colspan(2) = 1 ! plot spans this number of columns - - Grid1_plot_pad_left(2) = -0.04 ! fraction of full window width for padding on left - Grid1_plot_pad_right(2) = 0.04 ! fraction of full window width for padding on right - Grid1_plot_pad_top(2) = -0.24 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(2) = 0.00 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this - - Grid1_plot_name(3) = 'History_Track2' - Grid1_plot_row(3) = 2 ! number from 1 at top - Grid1_plot_rowspan(3) = 1 ! plot spans this number of rows - Grid1_plot_col(3) = 2 ! number from 1 at left - Grid1_plot_colspan(3) = 1 ! plot spans this number of columns - - Grid1_plot_pad_left(3) = 0.04 ! fraction of full window width for padding on left - Grid1_plot_pad_right(3) = -0.04 ! fraction of full window width for padding on right - Grid1_plot_pad_top(3) = -0.24 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(3) = 0.00 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(3) = 0.7 ! multiply txt_scale for subplot by this - - Grid1_file_flag = .true. - Grid1_file_dir = 'pgstar_out' - Grid1_file_prefix = 'grid_' - Grid1_file_interval = 10000 - Grid1_file_width = -1 - Grid1_file_aspect_ratio = -1 + Text_Summary_win_flag(1) = .false. + Text_Summary_win_width(1) = 10 + Text_Summary_win_aspect_ratio(1) = 0.15 + + Text_Summary_xleft(1) = 0.01 + Text_Summary_xright(1) = 0.99 + Text_Summary_ybot(1) = 0.0 + Text_Summary_ytop(1) = 1.0 + Text_Summary_txt_scale(1) = 1.0 + Text_Summary_title(1) = '' + + Text_Summary_num_rows(1) = 4 ! <= 20 + Text_Summary_num_cols(1) = 8 ! <= 20 + Text_Summary_name(1, :, :) = '' + + Text_Summary_name(1, 1, 1) = 'time_step' + Text_Summary_name(1, 1, 2) = 'donor_index' + Text_Summary_name(1, 1, 3) = 'binary_separation' + Text_Summary_name(1, 1, 4) = 'period_days' + Text_Summary_name(1, 1, 5) = 'eccentricity' + Text_Summary_name(1, 1, 6) = 'edot' + Text_Summary_name(1, 1, 7) = 'J_orb' + Text_Summary_name(1, 1, 8) = '' + + Text_Summary_name(1, 2, 1) = 'sum_of_masses' + Text_Summary_name(1, 2, 2) = 'star_1_mass' + Text_Summary_name(1, 2, 3) = 'star_1_radius' + Text_Summary_name(1, 2, 4) = 'v_orb_1' + Text_Summary_name(1, 2, 5) = 'rl_1' + Text_Summary_name(1, 2, 6) = 'lg_mstar_dot_1' + Text_Summary_name(1, 2, 7) = 'J_spin_1' + Text_Summary_name(1, 2, 8) = '' + + Text_Summary_name(1, 3, 1) = '' + Text_Summary_name(1, 3, 2) = 'star_2_mass' + Text_Summary_name(1, 3, 3) = 'star_2_radius' + Text_Summary_name(1, 3, 4) = 'v_orb_2' + Text_Summary_name(1, 3, 5) = 'rl_2' + Text_Summary_name(1, 3, 6) = 'lg_mstar_dot_2' + Text_Summary_name(1, 3, 7) = 'J_spin_2' + Text_Summary_name(1, 3, 8) = '' + + Text_Summary_name(1, 4, 1) = 'Jdot' + Text_Summary_name(1, 4, 2) = 'jdot_gr' + Text_Summary_name(1, 4, 3) = 'jdot_mb' + Text_Summary_name(1, 4, 4) = 'jdot_ls' + Text_Summary_name(1, 4, 5) = 'jdot_ml' + Text_Summary_name(1, 4, 6) = '' + Text_Summary_name(1, 4, 7) = '' + Text_Summary_name(1, 4, 8) = '' + + + History_Track_win_flag(1) = .false. + History_Track_win_width(1) = 12 + History_Track_win_aspect_ratio(1) = 0.75 + History_Track_txt_scale(1) = 0.8 + History_Track_title(1) = ' ' + + History_Track_xname(1) = 'model_number' + History_Track_yname(1) = 'period_days' + History_Track_xaxis_label(1) = 'Model Number' + History_Track_yaxis_label(1) = 'Binary Period (day)' + History_Track_reverse_xaxis(1) = .false. + History_Track_reverse_yaxis(1) = .false. + + History_Track_xmin(1) = 0.0 + History_Track_xmax(1) = 900.0 + History_Track_ymin(1) = 0.3 + History_Track_ymax(1) = 0.36 + + History_Track_file_flag(1) = .false. + History_Track_file_dir(1) = 'pgstar_out' + History_Track_file_prefix(1) = 'track1_s1_' + History_Track_file_interval(1) = 10000 + History_Track_file_width(1) = -1 + History_Track_file_aspect_ratio(1) = -1 + + + + History_Track_win_flag(2) = .false. + History_Track_win_width(2) = 12 + History_Track_win_aspect_ratio(2) = 0.75 + History_Track_txt_scale(2) = 0.8 + History_Track_title(2) = '' + + History_Track_xname(2) = 'model_number' + History_Track_yname(2) = 'binary_separation' + History_Track_xaxis_label(2) = 'Model Number' + History_Track_yaxis_label(2) = 'Binary Seperation (R\d\(2281)\u)' + History_Track_reverse_xaxis(2) = .false. + History_Track_reverse_yaxis(2) = .false. + + History_Track_xmin(2) = 0.0 + History_Track_xmax(2) = 900 + History_Track_ymin(2) = 2.0 + History_Track_ymax(2) = 3.0 + + History_Track_file_flag(2) = .false. + History_Track_file_dir(2) = 'pgstar_out' + History_Track_file_prefix(2) = 'track2_s1_' + History_Track_file_interval(2) = 10000 + History_Track_file_width(2) = -1 + History_Track_file_aspect_ratio(2) = -1 + + + Grid_win_flag(1) = .true. + Grid_win_width(1) = 16 + Grid_win_aspect_ratio(1) = 0.6 + + Grid_title(1) = 'jdot_gr_check' + Grid_txt_scale_factor(1, 1) = 1.0 + + Grid_num_cols(1) = 2 ! divide plotting region into this many equal width cols + Grid_num_rows(1) = 2 ! divide plotting region into this many equal height rows + Grid_num_plots(1) = 3 ! <= 10 + + Grid_plot_name(1, 1) = 'Text_Summary(1)' + Grid_plot_row(1, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(1, 1) = 1 ! plot spans this number of rows + Grid_plot_col(1, 1) = 1 ! number from 1 at left + Grid_plot_colspan(1, 1) = 2 ! plot spans this number of columns + + Grid_plot_pad_left(1, 1) = -0.10 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 1) = -0.18 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 1) = -0.00 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 1) = 0.32 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 1) = 0.70 ! multiply txt_scale for subplot by this + + Grid_plot_name(1, 2) = 'History_Track1' + Grid_plot_row(1, 2) = 2 ! number from 1 at top + Grid_plot_rowspan(1, 2) = 1 ! plot spans this number of rows + Grid_plot_col(1, 2) = 1 ! number from 1 at left + Grid_plot_colspan(1, 2) = 1 ! plot spans this number of columns + + Grid_plot_pad_left(1, 2) = -0.04 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 2) = 0.04 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 2) = -0.24 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 2) = 0.00 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 2) = 0.7 ! multiply txt_scale for subplot by this + + Grid_plot_name(1, 3) = 'History_Track2' + Grid_plot_row(1, 3) = 2 ! number from 1 at top + Grid_plot_rowspan(1, 3) = 1 ! plot spans this number of rows + Grid_plot_col(1, 3) = 2 ! number from 1 at left + Grid_plot_colspan(1, 3) = 1 ! plot spans this number of columns + + Grid_plot_pad_left(1, 3) = 0.04 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 3) = -0.04 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 3) = -0.24 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 3) = 0.00 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 3) = 0.7 ! multiply txt_scale for subplot by this + + Grid_file_flag(1) = .true. + Grid_file_dir(1) = 'pgstar_out' + Grid_file_prefix(1) = 'grid_' + Grid_file_interval(1) = 10000 + Grid_file_width(1) = -1 + Grid_file_aspect_ratio(1) = -1 / ! end of pgstar namelist Last-Updated: 12Jul2021 (MESA 094ff71) by fxt. diff --git a/binary/test_suite/jdot_ls_check/README.rst b/binary/test_suite/jdot_ls_check/README.rst index 5c23a2c9d..a70748660 100644 --- a/binary/test_suite/jdot_ls_check/README.rst +++ b/binary/test_suite/jdot_ls_check/README.rst @@ -33,165 +33,165 @@ pgstar commands used for the plot above: pgstar_left_yaxis_label_disp = 3.0 - Text_Summary1_win_flag = .false. - Text_Summary1_win_width = 10 - Text_Summary1_win_aspect_ratio = 0.15 - - Text_Summary1_xleft = 0.01 - Text_Summary1_xright = 0.99 - Text_Summary1_ybot = 0.0 - Text_Summary1_ytop = 1.0 - Text_Summary1_txt_scale = 1.0 - Text_Summary1_title = '' - - Text_Summary1_num_rows = 4 ! <= 20 - Text_Summary1_num_cols = 8 ! <= 20 - Text_Summary1_name(:,:) = '' - - Text_Summary1_name(1,1) = 'time_step' - Text_Summary1_name(1,2) = 'donor_index' - Text_Summary1_name(1,3) = 'binary_separation' - Text_Summary1_name(1,4) = 'period_days' - Text_Summary1_name(1,5) = 'eccentricity' - Text_Summary1_name(1,6) = 'edot' - Text_Summary1_name(1,7) = 'J_orb' - Text_Summary1_name(1,8) = '' - - Text_Summary1_name(2,1) = 'sum_of_masses' - Text_Summary1_name(2,2) = 'star_1_mass' - Text_Summary1_name(2,3) = 'star_1_radius' - Text_Summary1_name(2,4) = 'v_orb_1' - Text_Summary1_name(2,5) = 'rl_1' - Text_Summary1_name(2,6) = 'lg_mstar_dot_1' - Text_Summary1_name(2,7) = 'J_spin_1' - Text_Summary1_name(2,8) = '' - - Text_Summary1_name(3,1) = '' - Text_Summary1_name(3,2) = 'star_2_mass' - Text_Summary1_name(3,3) = 'star_2_radius' - Text_Summary1_name(3,4) = 'v_orb_2' - Text_Summary1_name(3,5) = 'rl_2' - Text_Summary1_name(3,6) = 'lg_mstar_dot_2' - Text_Summary1_name(3,7) = 'J_spin_2' - Text_Summary1_name(3,8) = '' - - Text_Summary1_name(4,1) = 'J_total' - Text_Summary1_name(4,2) = 'Jdot' - Text_Summary1_name(4,3) = 'jdot_gr' - Text_Summary1_name(4,4) = 'jdot_mb' - Text_Summary1_name(4,5) = 'jdot_ls' - Text_Summary1_name(4,6) = 'jdot_ml' - Text_Summary1_name(4,7) = '' - Text_Summary1_name(4,8) = '' - - - History_Track1_win_flag = .false. - History_Track1_win_width = 12 - History_Track1_win_aspect_ratio = 0.75 - History_Track1_txt_scale = 0.8 - History_Track1_title = ' ' - - History_Track1_xname = 'model_number' - History_Track1_yname = 'period_days' - History_Track1_xaxis_label = 'Model Number' - History_Track1_yaxis_label = 'Binary Period (day)' - History_Track1_reverse_xaxis = .false. - History_Track1_reverse_yaxis = .false. - - History_Track1_xmin = 0.0 - History_Track1_xmax = 260.0 - History_Track1_ymin = 0.9 - History_Track1_ymax = 1.05 - - History_Track1_file_flag = .false. - History_Track1_file_dir = 'pgstar_out' - History_Track1_file_prefix = 'track1_s1_' - History_Track1_file_interval = 10000 - History_Track1_file_width = -1 - History_Track1_file_aspect_ratio = -1 - - - - History_Track2_win_flag = .false. - History_Track2_win_width = 12 - History_Track2_win_aspect_ratio = 0.75 - History_Track2_txt_scale = 0.8 - History_Track2_title = '' - - History_Track2_xname = 'model_number' - History_Track2_yname = 'J_total' - History_Track2_xaxis_label = 'Model Number' - History_Track2_yaxis_label = 'Total Angular Momentum (g cm\u2 s\u-\u1)' - History_Track2_reverse_xaxis = .false. - History_Track2_reverse_yaxis = .false. - - History_Track2_xmin = 0.0 - History_Track2_xmax = 250.0 - History_Track2_ymin = 1e50 - History_Track2_ymax = 1e52 - - History_Track2_file_flag = .false. - History_Track2_file_dir = 'pgstar_out' - History_Track2_file_prefix = 'track2_s1_' - History_Track2_file_interval = 10000 - History_Track2_file_width = -1 - History_Track2_file_aspect_ratio = -1 - - - Grid1_win_flag = .true. - Grid1_win_width = 16 - Grid1_win_aspect_ratio = 0.6 - - Grid1_title = 'jdot_ls_check' - Grid1_txt_scale_factor(1) = 1.0 - - Grid1_num_cols = 2 ! divide plotting region into this many equal width cols - Grid1_num_rows = 2 ! divide plotting region into this many equal height rows - Grid1_num_plots = 3 ! <= 10 - - Grid1_plot_name(1) = 'Text_Summary1' - Grid1_plot_row(1) = 1 ! number from 1 at top - Grid1_plot_rowspan(1) = 1 ! plot spans this number of rows - Grid1_plot_col(1) = 1 ! number from 1 at left - Grid1_plot_colspan(1) = 2 ! plot spans this number of columns - - Grid1_plot_pad_left(1) = -0.10 ! fraction of full window width for padding on left - Grid1_plot_pad_right(1) = -0.18 ! fraction of full window width for padding on right - Grid1_plot_pad_top(1) = -0.00 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(1) = 0.32 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(1) = 0.70 ! multiply txt_scale for subplot by this - - Grid1_plot_name(2) = 'History_Track1' - Grid1_plot_row(2) = 2 ! number from 1 at top - Grid1_plot_rowspan(2) = 1 ! plot spans this number of rows - Grid1_plot_col(2) = 1 ! number from 1 at left - Grid1_plot_colspan(2) = 1 ! plot spans this number of columns - - Grid1_plot_pad_left(2) = -0.04 ! fraction of full window width for padding on left - Grid1_plot_pad_right(2) = 0.04 ! fraction of full window width for padding on right - Grid1_plot_pad_top(2) = -0.24 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(2) = 0.00 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this - - !Grid1_plot_name(3) = 'History_Track2' - Grid1_plot_name(3) = ' ' - Grid1_plot_row(3) = 2 ! number from 1 at top - Grid1_plot_rowspan(3) = 1 ! plot spans this number of rows - Grid1_plot_col(3) = 2 ! number from 1 at left - Grid1_plot_colspan(3) = 1 ! plot spans this number of columns - - Grid1_plot_pad_left(3) = 0.04 ! fraction of full window width for padding on left - Grid1_plot_pad_right(3) = -0.04 ! fraction of full window width for padding on right - Grid1_plot_pad_top(3) = -0.24 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(3) = 0.00 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(3) = 0.7 ! multiply txt_scale for subplot by this - - Grid1_file_flag = .true. - Grid1_file_dir = 'pgstar_out' - Grid1_file_prefix = 'grid_' - Grid1_file_interval = 10000 - Grid1_file_width = -1 - Grid1_file_aspect_ratio = -1 + Text_Summary_win_flag(1) = .false. + Text_Summary_win_width(1) = 10 + Text_Summary_win_aspect_ratio(1) = 0.15 + + Text_Summary_xleft(1) = 0.01 + Text_Summary_xright(1) = 0.99 + Text_Summary_ybot(1) = 0.0 + Text_Summary_ytop(1) = 1.0 + Text_Summary_txt_scale(1) = 1.0 + Text_Summary_title(1) = '' + + Text_Summary_num_rows(1) = 4 ! <= 20 + Text_Summary_num_cols(1) = 8 ! <= 20 + Text_Summary_name(1, :, :) = '' + + Text_Summary_name(1, 1, 1) = 'time_step' + Text_Summary_name(1, 1, 2) = 'donor_index' + Text_Summary_name(1, 1, 3) = 'binary_separation' + Text_Summary_name(1, 1, 4) = 'period_days' + Text_Summary_name(1, 1, 5) = 'eccentricity' + Text_Summary_name(1, 1, 6) = 'edot' + Text_Summary_name(1, 1, 7) = 'J_orb' + Text_Summary_name(1, 1, 8) = '' + + Text_Summary_name(1, 2, 1) = 'sum_of_masses' + Text_Summary_name(1, 2, 2) = 'star_1_mass' + Text_Summary_name(1, 2, 3) = 'star_1_radius' + Text_Summary_name(1, 2, 4) = 'v_orb_1' + Text_Summary_name(1, 2, 5) = 'rl_1' + Text_Summary_name(1, 2, 6) = 'lg_mstar_dot_1' + Text_Summary_name(1, 2, 7) = 'J_spin_1' + Text_Summary_name(1, 2, 8) = '' + + Text_Summary_name(1, 3, 1) = '' + Text_Summary_name(1, 3, 2) = 'star_2_mass' + Text_Summary_name(1, 3, 3) = 'star_2_radius' + Text_Summary_name(1, 3, 4) = 'v_orb_2' + Text_Summary_name(1, 3, 5) = 'rl_2' + Text_Summary_name(1, 3, 6) = 'lg_mstar_dot_2' + Text_Summary_name(1, 3, 7) = 'J_spin_2' + Text_Summary_name(1, 3, 8) = '' + + Text_Summary_name(1, 4, 1) = 'J_total' + Text_Summary_name(1, 4, 2) = 'Jdot' + Text_Summary_name(1, 4, 3) = 'jdot_gr' + Text_Summary_name(1, 4, 4) = 'jdot_mb' + Text_Summary_name(1, 4, 5) = 'jdot_ls' + Text_Summary_name(1, 4, 6) = 'jdot_ml' + Text_Summary_name(1, 4, 7) = '' + Text_Summary_name(1, 4, 8) = '' + + + History_Track_win_flag(1) = .false. + History_Track_win_width(1) = 12 + History_Track_win_aspect_ratio(1) = 0.75 + History_Track_txt_scale(1) = 0.8 + History_Track_title(1) = ' ' + + History_Track_xname(1) = 'model_number' + History_Track_yname(1) = 'period_days' + History_Track_xaxis_label(1) = 'Model Number' + History_Track_yaxis_label(1) = 'Binary Period (day)' + History_Track_reverse_xaxis(1) = .false. + History_Track_reverse_yaxis(1) = .false. + + History_Track_xmin(1) = 0.0 + History_Track_xmax(1) = 260.0 + History_Track_ymin(1) = 0.9 + History_Track_ymax(1) = 1.05 + + History_Track_file_flag(1) = .false. + History_Track_file_dir(1) = 'pgstar_out' + History_Track_file_prefix(1) = 'track1_s1_' + History_Track_file_interval(1) = 10000 + History_Track_file_width(1) = -1 + History_Track_file_aspect_ratio(1) = -1 + + + + History_Track_win_flag(2) = .false. + History_Track_win_width(2) = 12 + History_Track_win_aspect_ratio(2) = 0.75 + History_Track_txt_scale(2) = 0.8 + History_Track_title(2) = '' + + History_Track_xname(2) = 'model_number' + History_Track_yname(2) = 'J_total' + History_Track_xaxis_label(2) = 'Model Number' + History_Track_yaxis_label(2) = 'Total Angular Momentum (g cm\u2 s\u-\u1)' + History_Track_reverse_xaxis(2) = .false. + History_Track_reverse_yaxis(2) = .false. + + History_Track_xmin(2) = 0.0 + History_Track_xmax(2) = 250.0 + History_Track_ymin(2) = 1e50 + History_Track_ymax(2) = 1e52 + + History_Track_file_flag(2) = .false. + History_Track_file_dir(2) = 'pgstar_out' + History_Track_file_prefix(2) = 'track2_s1_' + History_Track_file_interval(2) = 10000 + History_Track_file_width(2) = -1 + History_Track_file_aspect_ratio(2) = -1 + + + Grid_win_flag(1) = .true. + Grid_win_width(1) = 16 + Grid_win_aspect_ratio(1) = 0.6 + + Grid_title(1) = 'jdot_ls_check' + Grid_txt_scale_factor(1, 1) = 1.0 + + Grid_num_cols(1) = 2 ! divide plotting region into this many equal width cols + Grid_num_rows(1) = 2 ! divide plotting region into this many equal height rows + Grid_num_plots(1) = 3 ! <= 10 + + Grid_plot_name(1, 1) = 'Text_Summary(1)' + Grid_plot_row(1, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(1, 1) = 1 ! plot spans this number of rows + Grid_plot_col(1, 1) = 1 ! number from 1 at left + Grid_plot_colspan(1, 1) = 2 ! plot spans this number of columns + + Grid_plot_pad_left(1, 1) = -0.10 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 1) = -0.18 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 1) = -0.00 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 1) = 0.32 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 1) = 0.70 ! multiply txt_scale for subplot by this + + Grid_plot_name(1, 2) = 'History_Track1' + Grid_plot_row(1, 2) = 2 ! number from 1 at top + Grid_plot_rowspan(1, 2) = 1 ! plot spans this number of rows + Grid_plot_col(1, 2) = 1 ! number from 1 at left + Grid_plot_colspan(1, 2) = 1 ! plot spans this number of columns + + Grid_plot_pad_left(1, 2) = -0.04 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 2) = 0.04 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 2) = -0.24 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 2) = 0.00 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 2) = 0.7 ! multiply txt_scale for subplot by this + + !Grid_plot_name(1, 3) = 'History_Track2' + Grid_plot_name(1, 3) = ' ' + Grid_plot_row(1, 3) = 2 ! number from 1 at top + Grid_plot_rowspan(1, 3) = 1 ! plot spans this number of rows + Grid_plot_col(1, 3) = 2 ! number from 1 at left + Grid_plot_colspan(1, 3) = 1 ! plot spans this number of columns + + Grid_plot_pad_left(1, 3) = 0.04 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 3) = -0.04 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 3) = -0.24 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 3) = 0.00 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 3) = 0.7 ! multiply txt_scale for subplot by this + + Grid_file_flag(1) = .true. + Grid_file_dir(1) = 'pgstar_out' + Grid_file_prefix(1) = 'grid_' + Grid_file_interval(1) = 10000 + Grid_file_width(1) = -1 + Grid_file_aspect_ratio(1) = -1 / ! end of pgstar namelist diff --git a/binary/test_suite/jdot_ml_check/README.rst b/binary/test_suite/jdot_ml_check/README.rst index 5886468db..63f78026f 100644 --- a/binary/test_suite/jdot_ml_check/README.rst +++ b/binary/test_suite/jdot_ml_check/README.rst @@ -53,192 +53,192 @@ pgstar commands used for the binary and star1 plots above: pgstar_left_yaxis_label_disp = 3.0 - Text_Summary1_win_flag = .false. - Text_Summary1_win_width = 10 - Text_Summary1_win_aspect_ratio = 0.15 - - Text_Summary1_xleft = 0.01 - Text_Summary1_xright = 0.99 - Text_Summary1_ybot = 0.0 - Text_Summary1_ytop = 1.0 - Text_Summary1_txt_scale = 1.0 - Text_Summary1_title = '' - - Text_Summary1_num_rows = 4 ! <= 20 - Text_Summary1_num_cols = 8 ! <= 20 - Text_Summary1_name(:,:) = '' - - Text_Summary1_name(1,1) = 'time_step' - Text_Summary1_name(1,2) = 'donor_index' - Text_Summary1_name(1,3) = 'binary_separation' - Text_Summary1_name(1,4) = 'period_days' - Text_Summary1_name(1,5) = 'eccentricity' - Text_Summary1_name(1,6) = 'edot' - Text_Summary1_name(1,7) = 'J_orb' - Text_Summary1_name(1,8) = '' - - Text_Summary1_name(2,1) = 'sum_of_masses' - Text_Summary1_name(2,2) = 'star_1_mass' - Text_Summary1_name(2,3) = 'star_1_radius' - Text_Summary1_name(2,4) = 'v_orb_1' - Text_Summary1_name(2,5) = 'rl_1' - Text_Summary1_name(2,6) = 'lg_mstar_dot_1' - Text_Summary1_name(2,7) = 'J_spin_1' - Text_Summary1_name(2,8) = '' - - Text_Summary1_name(3,1) = '' - Text_Summary1_name(3,2) = 'star_2_mass' - Text_Summary1_name(3,3) = 'star_2_radius' - Text_Summary1_name(3,4) = 'v_orb_2' - Text_Summary1_name(3,5) = 'rl_2' - Text_Summary1_name(3,6) = 'lg_mstar_dot_2' - Text_Summary1_name(3,7) = 'J_spin_2' - Text_Summary1_name(3,8) = '' - - Text_Summary1_name(4,1) = 'Jdot' - Text_Summary1_name(4,2) = 'jdot_gr' - Text_Summary1_name(4,3) = 'jdot_mb' - Text_Summary1_name(4,4) = 'jdot_ls' - Text_Summary1_name(4,5) = 'jdot_ml' - Text_Summary1_name(4,6) = '' - Text_Summary1_name(4,7) = '' - Text_Summary1_name(4,8) = '' - - - History_Track1_win_flag = .false. - History_Track1_win_width = 12 - History_Track1_win_aspect_ratio = 0.75 - History_Track1_txt_scale = 0.8 - History_Track1_title = ' ' - - History_Track1_xname = 'model_number' - History_Track1_yname = 'period_days' - History_Track1_xaxis_label = 'Model Number' - History_Track1_yaxis_label = 'Binary Period (day)' - History_Track1_reverse_xaxis = .false. - History_Track1_reverse_yaxis = .false. - - History_Track1_xmin = 0.0 - History_Track1_xmax = 900.0 - History_Track1_ymin = 0.3 - History_Track1_ymax = 0.36 - - History_Track1_file_flag = .false. - History_Track1_file_dir = 'pgstar_out' - History_Track1_file_prefix = 'track1_s1_' - History_Track1_file_interval = 10000 - History_Track1_file_width = -1 - History_Track1_file_aspect_ratio = -1 - - - - History_Track2_win_flag = .false. - History_Track2_win_width = 12 - History_Track2_win_aspect_ratio = 0.75 - History_Track2_txt_scale = 0.8 - History_Track2_title = '' - - History_Track2_xname = 'model_number' - History_Track2_yname = 'binary_separation' - History_Track2_xaxis_label = 'Model Number' - History_Track2_yaxis_label = 'Binary Seperation (R\d\(2281)\u)' - History_Track2_reverse_xaxis = .false. - History_Track2_reverse_yaxis = .false. - - History_Track2_xmin = 0.0 - History_Track2_xmax = 900 - History_Track2_ymin = 2.0 - History_Track2_ymax = 3.0 - - History_Track2_file_flag = .false. - History_Track2_file_dir = 'pgstar_out' - History_Track2_file_prefix = 'track2_s1_' - History_Track2_file_interval = 10000 - History_Track2_file_width = -1 - History_Track2_file_aspect_ratio = -1 - - - Grid1_win_flag = .true. - Grid1_win_width = 16 - Grid1_win_aspect_ratio = 0.6 - - Grid1_title = 'jdot_ml_check' - Grid1_txt_scale_factor(1) = 1.0 - - Grid1_num_cols = 2 ! divide plotting region into this many equal width cols - Grid1_num_rows = 2 ! divide plotting region into this many equal height rows - Grid1_num_plots = 3 ! <= 10 - - Grid1_plot_name(1) = 'Text_Summary1' - Grid1_plot_row(1) = 1 ! number from 1 at top - Grid1_plot_rowspan(1) = 1 ! plot spans this number of rows - Grid1_plot_col(1) = 1 ! number from 1 at left - Grid1_plot_colspan(1) = 2 ! plot spans this number of columns - - Grid1_plot_pad_left(1) = -0.10 ! fraction of full window width for padding on left - Grid1_plot_pad_right(1) = -0.18 ! fraction of full window width for padding on right - Grid1_plot_pad_top(1) = -0.00 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(1) = 0.32 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(1) = 0.70 ! multiply txt_scale for subplot by this - - Grid1_plot_name(2) = 'History_Track1' - Grid1_plot_row(2) = 2 ! number from 1 at top - Grid1_plot_rowspan(2) = 1 ! plot spans this number of rows - Grid1_plot_col(2) = 1 ! number from 1 at left - Grid1_plot_colspan(2) = 1 ! plot spans this number of columns - - Grid1_plot_pad_left(2) = -0.04 ! fraction of full window width for padding on left - Grid1_plot_pad_right(2) = 0.04 ! fraction of full window width for padding on right - Grid1_plot_pad_top(2) = -0.24 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(2) = 0.00 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this - - Grid1_plot_name(3) = 'History_Track2' - Grid1_plot_row(3) = 2 ! number from 1 at top - Grid1_plot_rowspan(3) = 1 ! plot spans this number of rows - Grid1_plot_col(3) = 2 ! number from 1 at left - Grid1_plot_colspan(3) = 1 ! plot spans this number of columns - - Grid1_plot_pad_left(3) = 0.04 ! fraction of full window width for padding on left - Grid1_plot_pad_right(3) = -0.04 ! fraction of full window width for padding on right - Grid1_plot_pad_top(3) = -0.24 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(3) = 0.00 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(3) = 0.7 ! multiply txt_scale for subplot by this - - Grid1_file_flag = .true. - Grid1_file_dir = 'pgstar_out' - Grid1_file_prefix = 'grid_' - Grid1_file_interval = 10000 - Grid1_file_width = -1 - Grid1_file_aspect_ratio = -1 - - - Profile_Panels2_win_flag = .true. - Profile_Panels2_win_width = 10 - Profile_Panels2_title = 'jdot_ml_check: star 1' - - Profile_Panels2_xaxis_name = 'mass' - Profile_Panels2_xaxis_reversed = .false. - Profile_Panels2_xmin = 0.0 - Profile_Panels2_xmax = 1.0 - Profile_Panels2_show_mix_regions_on_xaxis = .false. - - Profile_Panels2_xright = 0.92 - Profile_Panels2_ytop = 0.92 + Text_Summary_win_flag(1) = .false. + Text_Summary_win_width(1) = 10 + Text_Summary_win_aspect_ratio(1) = 0.15 + + Text_Summary_xleft(1) = 0.01 + Text_Summary_xright(1) = 0.99 + Text_Summary_ybot(1) = 0.0 + Text_Summary_ytop(1) = 1.0 + Text_Summary_txt_scale(1) = 1.0 + Text_Summary_title(1) = '' + + Text_Summary_num_rows(1) = 4 ! <= 20 + Text_Summary_num_cols(1) = 8 ! <= 20 + Text_Summary_name(1, :, :) = '' + + Text_Summary_name(1, 1, 1) = 'time_step' + Text_Summary_name(1, 1, 2) = 'donor_index' + Text_Summary_name(1, 1, 3) = 'binary_separation' + Text_Summary_name(1, 1, 4) = 'period_days' + Text_Summary_name(1, 1, 5) = 'eccentricity' + Text_Summary_name(1, 1, 6) = 'edot' + Text_Summary_name(1, 1, 7) = 'J_orb' + Text_Summary_name(1, 1, 8) = '' + + Text_Summary_name(1, 2, 1) = 'sum_of_masses' + Text_Summary_name(1, 2, 2) = 'star_1_mass' + Text_Summary_name(1, 2, 3) = 'star_1_radius' + Text_Summary_name(1, 2, 4) = 'v_orb_1' + Text_Summary_name(1, 2, 5) = 'rl_1' + Text_Summary_name(1, 2, 6) = 'lg_mstar_dot_1' + Text_Summary_name(1, 2, 7) = 'J_spin_1' + Text_Summary_name(1, 2, 8) = '' + + Text_Summary_name(1, 3, 1) = '' + Text_Summary_name(1, 3, 2) = 'star_2_mass' + Text_Summary_name(1, 3, 3) = 'star_2_radius' + Text_Summary_name(1, 3, 4) = 'v_orb_2' + Text_Summary_name(1, 3, 5) = 'rl_2' + Text_Summary_name(1, 3, 6) = 'lg_mstar_dot_2' + Text_Summary_name(1, 3, 7) = 'J_spin_2' + Text_Summary_name(1, 3, 8) = '' + + Text_Summary_name(1, 4, 1) = 'Jdot' + Text_Summary_name(1, 4, 2) = 'jdot_gr' + Text_Summary_name(1, 4, 3) = 'jdot_mb' + Text_Summary_name(1, 4, 4) = 'jdot_ls' + Text_Summary_name(1, 4, 5) = 'jdot_ml' + Text_Summary_name(1, 4, 6) = '' + Text_Summary_name(1, 4, 7) = '' + Text_Summary_name(1, 4, 8) = '' + + + History_Track_win_flag(1) = .false. + History_Track_win_width(1) = 12 + History_Track_win_aspect_ratio(1) = 0.75 + History_Track_txt_scale(1) = 0.8 + History_Track_title(1) = ' ' + + History_Track_xname(1) = 'model_number' + History_Track_yname(1) = 'period_days' + History_Track_xaxis_label(1) = 'Model Number' + History_Track_yaxis_label(1) = 'Binary Period (day)' + History_Track_reverse_xaxis(1) = .false. + History_Track_reverse_yaxis(1) = .false. + + History_Track_xmin(1) = 0.0 + History_Track_xmax(1) = 900.0 + History_Track_ymin(1) = 0.3 + History_Track_ymax(1) = 0.36 + + History_Track_file_flag(1) = .false. + History_Track_file_dir(1) = 'pgstar_out' + History_Track_file_prefix(1) = 'track1_s1_' + History_Track_file_interval(1) = 10000 + History_Track_file_width(1) = -1 + History_Track_file_aspect_ratio(1) = -1 + + + + History_Track_win_flag(2) = .false. + History_Track_win_width(2) = 12 + History_Track_win_aspect_ratio(2) = 0.75 + History_Track_txt_scale(2) = 0.8 + History_Track_title(2) = '' + + History_Track_xname(2) = 'model_number' + History_Track_yname(2) = 'binary_separation' + History_Track_xaxis_label(2) = 'Model Number' + History_Track_yaxis_label(2) = 'Binary Seperation (R\d\(2281)\u)' + History_Track_reverse_xaxis(2) = .false. + History_Track_reverse_yaxis(2) = .false. + + History_Track_xmin(2) = 0.0 + History_Track_xmax(2) = 900 + History_Track_ymin(2) = 2.0 + History_Track_ymax(2) = 3.0 + + History_Track_file_flag(2) = .false. + History_Track_file_dir(2) = 'pgstar_out' + History_Track_file_prefix(2) = 'track2_s1_' + History_Track_file_interval(2) = 10000 + History_Track_file_width(2) = -1 + History_Track_file_aspect_ratio(2) = -1 + + + Grid_win_flag(1) = .true. + Grid_win_width(1) = 16 + Grid_win_aspect_ratio(1) = 0.6 + + Grid_title(1) = 'jdot_ml_check' + Grid_txt_scale_factor(1, 1) = 1.0 + + Grid_num_cols(1) = 2 ! divide plotting region into this many equal width cols + Grid_num_rows(1) = 2 ! divide plotting region into this many equal height rows + Grid_num_plots(1) = 3 ! <= 10 + + Grid_plot_name(1, 1) = 'Text_Summary(1)' + Grid_plot_row(1, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(1, 1) = 1 ! plot spans this number of rows + Grid_plot_col(1, 1) = 1 ! number from 1 at left + Grid_plot_colspan(1, 1) = 2 ! plot spans this number of columns + + Grid_plot_pad_left(1, 1) = -0.10 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 1) = -0.18 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 1) = -0.00 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 1) = 0.32 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 1) = 0.70 ! multiply txt_scale for subplot by this + + Grid_plot_name(1, 2) = 'History_Track1' + Grid_plot_row(1, 2) = 2 ! number from 1 at top + Grid_plot_rowspan(1, 2) = 1 ! plot spans this number of rows + Grid_plot_col(1, 2) = 1 ! number from 1 at left + Grid_plot_colspan(1, 2) = 1 ! plot spans this number of columns + + Grid_plot_pad_left(1, 2) = -0.04 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 2) = 0.04 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 2) = -0.24 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 2) = 0.00 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 2) = 0.7 ! multiply txt_scale for subplot by this + + Grid_plot_name(1, 3) = 'History_Track2' + Grid_plot_row(1, 3) = 2 ! number from 1 at top + Grid_plot_rowspan(1, 3) = 1 ! plot spans this number of rows + Grid_plot_col(1, 3) = 2 ! number from 1 at left + Grid_plot_colspan(1, 3) = 1 ! plot spans this number of columns + + Grid_plot_pad_left(1, 3) = 0.04 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 3) = -0.04 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 3) = -0.24 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 3) = 0.00 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 3) = 0.7 ! multiply txt_scale for subplot by this + + Grid_file_flag(1) = .true. + Grid_file_dir(1) = 'pgstar_out' + Grid_file_prefix(1) = 'grid_' + Grid_file_interval(1) = 10000 + Grid_file_width(1) = -1 + Grid_file_aspect_ratio(1) = -1 + + + Profile_Panels_win_flag(2) = .true. + Profile_Panels_win_width(2) = 10 + Profile_Panels_title(2) = 'jdot_ml_check: star 1' + + Profile_Panels_xaxis_name(2) = 'mass' + Profile_Panels_xaxis_reversed(2) = .false. + Profile_Panels_xmin(2) = 0.0 + Profile_Panels_xmax(2) = 1.0 + Profile_Panels_show_mix_regions_on_xaxis(2) = .false. + + Profile_Panels_xright(2) = 0.92 + Profile_Panels_ytop(2) = 0.92 num_abundance_line_labels = 5 Abundance_legend_max_cnt = 0 - Profile_Panels2_yaxis_name(2) = 'Power' - Profile_Panels2_ymin(2) = -10.0 - Profile_Panels2_ymax(2) = 5.0 + Profile_Panels_yaxis_name(2, 2) = 'Power' + Profile_Panels_ymin(2, 2) = -10.0 + Profile_Panels_ymax(2, 2) = 5.0 - Profile_Panels2_file_flag = .true. - Profile_Panels2_file_dir = 'pgstar_out' - Profile_Panels2_file_prefix = 'profile_s1_' - Profile_Panels2_file_interval = 10000 - Profile_Panels2_file_width = -1 - Profile_Panels2_file_aspect_ratio = -1 + Profile_Panels_file_flag(2) = .true. + Profile_Panels_file_dir(2) = 'pgstar_out' + Profile_Panels_file_prefix(2) = 'profile_s1_' + Profile_Panels_file_interval(2) = 10000 + Profile_Panels_file_width(2) = -1 + Profile_Panels_file_aspect_ratio(2) = -1 / ! end of pgstar namelist diff --git a/binary/test_suite/star_plus_point_mass/README.rst b/binary/test_suite/star_plus_point_mass/README.rst index 2e23fd4a8..11650da4d 100644 --- a/binary/test_suite/star_plus_point_mass/README.rst +++ b/binary/test_suite/star_plus_point_mass/README.rst @@ -50,56 +50,56 @@ pgstar commands used for the plots above: pgstar_left_yaxis_label_disp = 4.0 - History_Track1_win_flag = .true. - History_Track1_win_width = 12 - History_Track1_win_aspect_ratio = 0.75 - History_Track1_txt_scale = 0.8 - History_Track1_title = ' ' - - History_Track1_xname = 'model_number' - History_Track1_yname = 'period_days' - History_Track1_xaxis_label = 'Model Number' - History_Track1_yaxis_label = 'Binary Period (day)' - History_Track1_reverse_xaxis = .false. - History_Track1_reverse_yaxis = .false. - - History_Track1_xmin = 0.0 - History_Track1_xmax = 350 - History_Track1_ymin = 0.0 - History_Track1_ymax = 7.0 - - History_Track1_file_flag = .true. - History_Track1_file_dir = 'pgstar_out' - History_Track1_file_prefix = 'track1_' - History_Track1_file_interval = 100 - History_Track1_file_width = -1 - History_Track1_file_aspect_ratio = -1 - - - History_Track2_win_flag = .true. - History_Track2_win_width = 12 - History_Track2_win_aspect_ratio = 0.75 - History_Track2_txt_scale = 0.8 - History_Track2_title = ' ' - - History_Track2_xname = 'model_number' - History_Track2_yname = 'binary_separation' - History_Track2_xaxis_label = 'Model Number' - History_Track2_yaxis_label = 'Binary Seperation (R\d\(2281)\u)' - History_Track2_reverse_xaxis = .false. - History_Track2_reverse_yaxis = .false. - - History_Track2_xmin = 0.0 - History_Track2_xmax = 350 - History_Track2_ymin = 0.0 - History_Track2_ymax = 40.0 - - History_Track2_file_flag = .true. - History_Track2_file_dir = 'pgstar_out' - History_Track2_file_prefix = 'track2_' - History_Track2_file_interval = 100 - History_Track2_file_width = -1 - History_Track2_file_aspect_ratio = -1 + History_Track_win_flag(1) = .true. + History_Track_win_width(1) = 12 + History_Track_win_aspect_ratio(1) = 0.75 + History_Track_txt_scale(1) = 0.8 + History_Track_title(1) = ' ' + + History_Track_xname(1) = 'model_number' + History_Track_yname(1) = 'period_days' + History_Track_xaxis_label(1) = 'Model Number' + History_Track_yaxis_label(1) = 'Binary Period (day)' + History_Track_reverse_xaxis(1) = .false. + History_Track_reverse_yaxis(1) = .false. + + History_Track_xmin(1) = 0.0 + History_Track_xmax(1) = 350 + History_Track_ymin(1) = 0.0 + History_Track_ymax(1) = 7.0 + + History_Track_file_flag(1) = .true. + History_Track_file_dir(1) = 'pgstar_out' + History_Track_file_prefix(1) = 'track1_' + History_Track_file_interval(1) = 100 + History_Track_file_width(1) = -1 + History_Track_file_aspect_ratio(1) = -1 + + + History_Track_win_flag(2) = .true. + History_Track_win_width(2) = 12 + History_Track_win_aspect_ratio(2) = 0.75 + History_Track_txt_scale(2) = 0.8 + History_Track_title(2) = ' ' + + History_Track_xname(2) = 'model_number' + History_Track_yname(2) = 'binary_separation' + History_Track_xaxis_label(2) = 'Model Number' + History_Track_yaxis_label(2) = 'Binary Seperation (R\d\(2281)\u)' + History_Track_reverse_xaxis(2) = .false. + History_Track_reverse_yaxis(2) = .false. + + History_Track_xmin(2) = 0.0 + History_Track_xmax(2) = 350 + History_Track_ymin(2) = 0.0 + History_Track_ymax(2) = 40.0 + + History_Track_file_flag(2) = .true. + History_Track_file_dir(2) = 'pgstar_out' + History_Track_file_prefix(2) = 'track2_' + History_Track_file_interval(2) = 100 + History_Track_file_width(2) = -1 + History_Track_file_aspect_ratio(2) = -1 Kipp_win_flag = .true. diff --git a/binary/test_suite/star_plus_point_mass/inlist_pgbinary b/binary/test_suite/star_plus_point_mass/inlist_pgbinary index 2228ae1a6..9fbe448a9 100644 --- a/binary/test_suite/star_plus_point_mass/inlist_pgbinary +++ b/binary/test_suite/star_plus_point_mass/inlist_pgbinary @@ -14,89 +14,89 @@ Orbit_win_flag = .true. Orbit_win_width = 8 -Grid1_win_flag = .true. +Grid_win_flag(1) = .true. -Grid1_win_width = 19 -Grid1_win_aspect_ratio = 0.58 +Grid_win_width(1) = 19 +Grid_win_aspect_ratio(1) = 0.58 -Grid1_xleft = 0.0 -Grid1_xright = 1.0 -Grid1_ybot = 0.0 -Grid1_ytop = 0.95 -Grid1_title = '' +Grid_xleft(1) = 0.0 +Grid_xright(1) = 1.0 +Grid_ybot(1) = 0.0 +Grid_ytop(1) = 0.95 +Grid_title(1) = '' -Grid1_num_cols = 5 -Grid1_num_rows = 3 -Grid1_num_plots = 4 +Grid_num_cols(1) = 5 +Grid_num_rows(1) = 3 +Grid_num_plots(1) = 4 -Grid1_plot_name(1) = 'Star1' -Grid1_plot_col(1) = 1 -Grid1_plot_colspan(1) = 2 -Grid1_plot_row(1) = 1 -Grid1_plot_rowspan(1) = 3 -Grid1_plot_pad_left(1) = 0.02 -Grid1_plot_pad_right(1) = 0.02 -Grid1_plot_pad_bot(1) = 0.01 -Grid1_plot_pad_top(1) = 0.00 -Grid1_txt_scale_factor(1) = 0.9 -Star1_plot_name = 'Grid2' +Grid_plot_name(1, 1) = 'Star1' +Grid_plot_col(1, 1) = 1 +Grid_plot_colspan(1, 1) = 2 +Grid_plot_row(1, 1) = 1 +Grid_plot_rowspan(1, 1) = 3 +Grid_plot_pad_left(1, 1) = 0.02 +Grid_plot_pad_right(1, 1) = 0.02 +Grid_plot_pad_bot(1, 1) = 0.01 +Grid_plot_pad_top(1, 1) = 0.00 +Grid_txt_scale_factor(1, 1) = 0.9 +Star1_plot_name = 'Grid(2)' do_star1_box = .true. star1_box_pad_left = -0.02 star1_box_pad_right = 0.02 star1_box_pad_bot = 0.0 star1_box_pad_top = 0.001 -Grid1_plot_name(2) = 'Star2' -Grid1_plot_col(2) = 3 -Grid1_plot_colspan(2) = 2 -Grid1_plot_row(2) = 1 -Grid1_plot_rowspan(2) = 3 -Grid1_plot_pad_left(2) = 0.02 -Grid1_plot_pad_right(2) = 0.02 -Grid1_plot_pad_bot(2) = 0.01 -Grid1_plot_pad_top(2) = 0.00 -Grid1_txt_scale_factor(2) = 0.9 -Star2_plot_name = 'Grid2' +Grid_plot_name(1, 2) = 'Star2' +Grid_plot_col(1, 2) = 3 +Grid_plot_colspan(1, 2) = 2 +Grid_plot_row(1, 2) = 1 +Grid_plot_rowspan(1, 2) = 3 +Grid_plot_pad_left(1, 2) = 0.02 +Grid_plot_pad_right(1, 2) = 0.02 +Grid_plot_pad_bot(1, 2) = 0.01 +Grid_plot_pad_top(1, 2) = 0.00 +Grid_txt_scale_factor(1, 2) = 0.9 +Star2_plot_name = 'Grid(2)' do_star2_box = .true. star2_box_pad_left = -0.018 star2_box_pad_right = 0.02 star2_box_pad_bot = 0.0 star2_box_pad_top = 0.001 -Grid1_plot_name(3) = 'history_panels1' -Grid1_plot_col(3) = 5 -Grid1_plot_colspan(3) = 1 -Grid1_plot_row(3) = 2 -Grid1_plot_rowspan(3) = 2 -Grid1_plot_pad_left(3) = 0.04 -Grid1_plot_pad_right(3) = 0.04 -Grid1_plot_pad_bot(3) = 0.04 -Grid1_plot_pad_top(3) = 0.00 -Grid1_txt_scale_factor(3) = 0.4 +Grid_plot_name(1, 3) = 'history_panels(1)' +Grid_plot_col(1, 3) = 5 +Grid_plot_colspan(1, 3) = 1 +Grid_plot_row(1, 3) = 2 +Grid_plot_rowspan(1, 3) = 2 +Grid_plot_pad_left(1, 3) = 0.04 +Grid_plot_pad_right(1, 3) = 0.04 +Grid_plot_pad_bot(1, 3) = 0.04 +Grid_plot_pad_top(1, 3) = 0.00 +Grid_txt_scale_factor(1, 3) = 0.4 -History_panels1_title = '' -History_panels1_num_panels = 2 -History_panels1_xaxis_name = 'model_number' -History_panels1_yaxis_name(1) = 'rl_relative_overflow_1' -History_panels1_other_yaxis_name(1) = 'rl_relative_overflow_2' -History_panels1_yaxis_name(2) = 'period_days' -History_panels1_other_yaxis_name(2) = 'lg_mtransfer_rate' -History_panels1_other_ymin(2) = -10 -History_panels1_max_width = -1 +History_panels_title(1) = '' +History_panels_num_panels(1) = 2 +History_panels_xaxis_name(1) = 'model_number' +History_panels_yaxis_name(1, 1) = 'rl_relative_overflow_1' +History_panels_other_yaxis_name(1, 1) = 'rl_relative_overflow_2' +History_panels_yaxis_name(1, 2) = 'period_days' +History_panels_other_yaxis_name(1, 2) = 'lg_mtransfer_rate' +History_panels_other_ymin(1, 2) = -10 +History_panels_max_width(1) = -1 -Grid1_plot_name(4) = 'Orbit' -Grid1_plot_col(4) = 5 -Grid1_plot_colspan(4) = 1 -Grid1_plot_row(4) = 1 -Grid1_plot_rowspan(4) = 1 -Grid1_plot_pad_left(4) = 0.04 -Grid1_plot_pad_right(4) = 0.04 -Grid1_plot_pad_bot(4) = 0.03 -Grid1_plot_pad_top(4) = 0.00 -Grid1_txt_scale_factor(4) = 0.4 +Grid_plot_name(1, 4) = 'Orbit' +Grid_plot_col(1, 4) = 5 +Grid_plot_colspan(1, 4) = 1 +Grid_plot_row(1, 4) = 1 +Grid_plot_rowspan(1, 4) = 1 +Grid_plot_pad_left(1, 4) = 0.04 +Grid_plot_pad_right(1, 4) = 0.04 +Grid_plot_pad_bot(1, 4) = 0.03 +Grid_plot_pad_top(1, 4) = 0.00 +Grid_txt_scale_factor(1, 4) = 0.4 -Grid1_file_flag = .true. -Grid1_file_interval = 10 -Grid1_file_width = -1 -Grid1_file_aspect_ratio = -1 +Grid_file_flag(1) = .true. +Grid_file_interval(1) = 10 +Grid_file_width(1) = -1 +Grid_file_aspect_ratio(1) = -1 / ! end of pgbinary namelist diff --git a/binary/test_suite/star_plus_point_mass/inlist_pgstar b/binary/test_suite/star_plus_point_mass/inlist_pgstar index 0dc425b3a..78d57517b 100644 --- a/binary/test_suite/star_plus_point_mass/inlist_pgstar +++ b/binary/test_suite/star_plus_point_mass/inlist_pgstar @@ -10,98 +10,98 @@ pgstar_xaxis_label_scale = 1. pgstar_left_yaxis_label_scale = 1. pgstar_right_yaxis_label_scale = 1. -Grid2_num_cols = 4 ! divide plotting region into this many equal width cols -Grid2_num_rows = 8 ! divide plotting region into this many equal height rows - -Grid2_num_plots = 6 ! <= 10 - -Grid2_plot_name(1) = 'Profile_Panels1' -Grid2_plot_row(1) = 1 ! number from 1 at top -Grid2_plot_rowspan(1) = 3 ! plot spans this number of rows -Grid2_plot_col(1) = 1 ! number from 1 at left -Grid2_plot_colspan(1) = 2 ! plot spans this number of columns -Grid2_plot_pad_left(1) = 0.01 ! fraction of full window width for padding on left -Grid2_plot_pad_right(1) = 0.05 ! fraction of full window width for padding on right -Grid2_plot_pad_top(1) = 0.01 ! fraction of full window height for padding at top -Grid2_plot_pad_bot(1) = 0.02 ! fraction of full window height for padding at bottom -Grid2_txt_scale_factor(1) = 0.7 ! multiply txt_scale for subplot by this - -Profile_Panels1_title = '' -Profile_Panels1_num_panels = 2 -Profile_Panels1_xaxis_name = 'radius' -Profile_Panels1_yaxis_name(1) = 'luminosity' -Profile_Panels1_yaxis_name(2) = 'X_mass_fraction_H' -Profile_Panels1_other_yaxis_name(2) = 'Y_mass_fraction_He' -! Profile_Panels1_yaxis_name(3) = 'log' -! Profile_Panels1_other_yaxis_name(3) = 'ft_rot' - -Grid2_plot_name(2) = 'Mixing' -Grid2_plot_row(2) = 4 ! number from 1 at top -Grid2_plot_rowspan(2) = 2 ! plot spans this number of rows -Grid2_plot_col(2) = 1 ! number from 1 at left -Grid2_plot_colspan(2) = 2 ! plot spans this number of columns -Grid2_plot_pad_left(2) = 0.01 ! fraction of full window width for padding on left -Grid2_plot_pad_right(2) = 0.05 ! fraction of full window width for padding on right -Grid2_plot_pad_top(2) = 0.01 ! fraction of full window height for padding at top -Grid2_plot_pad_bot(2) = 0.02 ! fraction of full window height for padding at bottom -Grid2_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this +Grid_num_cols(2) = 4 ! divide plotting region into this many equal width cols +Grid_num_rows(2) = 8 ! divide plotting region into this many equal height rows + +Grid_num_plots(2) = 6 ! <= 10 + +Grid_plot_name(2, 1) = 'Profile_Panels1' +Grid_plot_row(2, 1) = 1 ! number from 1 at top +Grid_plot_rowspan(2, 1) = 3 ! plot spans this number of rows +Grid_plot_col(2, 1) = 1 ! number from 1 at left +Grid_plot_colspan(2, 1) = 2 ! plot spans this number of columns +Grid_plot_pad_left(2, 1) = 0.01 ! fraction of full window width for padding on left +Grid_plot_pad_right(2, 1) = 0.05 ! fraction of full window width for padding on right +Grid_plot_pad_top(2, 1) = 0.01 ! fraction of full window height for padding at top +Grid_plot_pad_bot(2, 1) = 0.02 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(2, 1) = 0.7 ! multiply txt_scale for subplot by this + +Profile_Panels_title(1) = '' +Profile_Panels_num_panels(1) = 2 +Profile_Panels_xaxis_name(1) = 'radius' +Profile_Panels_yaxis_name(1, 1) = 'luminosity' +Profile_Panels_yaxis_name(1, 2) = 'X_mass_fraction_H' +Profile_Panels_other_yaxis_name(1, 2) = 'Y_mass_fraction_He' +! Profile_Panels_yaxis_name(1, 3) = 'log' +! Profile_Panels_other_yaxis_name(1, 3) = 'ft_rot' + +Grid_plot_name(2, 2) = 'Mixing' +Grid_plot_row(2, 2) = 4 ! number from 1 at top +Grid_plot_rowspan(2, 2) = 2 ! plot spans this number of rows +Grid_plot_col(2, 2) = 1 ! number from 1 at left +Grid_plot_colspan(2, 2) = 2 ! plot spans this number of columns +Grid_plot_pad_left(2, 2) = 0.01 ! fraction of full window width for padding on left +Grid_plot_pad_right(2, 2) = 0.05 ! fraction of full window width for padding on right +Grid_plot_pad_top(2, 2) = 0.01 ! fraction of full window height for padding at top +Grid_plot_pad_bot(2, 2) = 0.02 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(2, 2) = 0.7 ! multiply txt_scale for subplot by this Mixing_title = '' -Grid2_plot_name(3) = 'TRho_profile' -Grid2_plot_row(3) = 6 ! number from 1 at top -Grid2_plot_rowspan(3) = 2 ! plot spans this number of rows -Grid2_plot_col(3) = 1 ! number from 1 at left -Grid2_plot_colspan(3) = 2 ! plot spans this number of columns -Grid2_plot_pad_left(3) = 0.01 ! fraction of full window width for padding on left -Grid2_plot_pad_right(3) = 0.03 ! fraction of full window width for padding on right -Grid2_plot_pad_top(3) = 0.01 ! fraction of full window height for padding at top -Grid2_plot_pad_bot(3) = 0.02 ! fraction of full window height for padding at bottom -Grid2_txt_scale_factor(3) = 0.7 ! multiply txt_scale for subplot by this - -Grid2_plot_name(5) = 'HR' +Grid_plot_name(2, 3) = 'TRho_profile' +Grid_plot_row(2, 3) = 6 ! number from 1 at top +Grid_plot_rowspan(2, 3) = 2 ! plot spans this number of rows +Grid_plot_col(2, 3) = 1 ! number from 1 at left +Grid_plot_colspan(2, 3) = 2 ! plot spans this number of columns +Grid_plot_pad_left(2, 3) = 0.01 ! fraction of full window width for padding on left +Grid_plot_pad_right(2, 3) = 0.03 ! fraction of full window width for padding on right +Grid_plot_pad_top(2, 3) = 0.01 ! fraction of full window height for padding at top +Grid_plot_pad_bot(2, 3) = 0.02 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(2, 3) = 0.7 ! multiply txt_scale for subplot by this + +Grid_plot_name(2, 5) = 'HR' HR_title = '' -Grid2_plot_row(5) = 6 ! number from 1 at top -Grid2_plot_rowspan(5) = 2 ! plot spans this number of rows -Grid2_plot_col(5) = 3 ! number from 1 at left -Grid2_plot_colspan(5) = 2 ! plot spans this number of columns -Grid2_plot_pad_left(5) = 0.01 ! fraction of full window width for padding on left -Grid2_plot_pad_right(5) = 0.01 ! fraction of full window width for padding on right -Grid2_plot_pad_top(5) = 0.01 ! fraction of full window height for padding at top -Grid2_plot_pad_bot(5) = 0.02 ! fraction of full window height for padding at bottom -Grid2_txt_scale_factor(5) = 0.7 ! multiply txt_scale for subplot by this - -Grid2_plot_name(4) = 'History_Panels1' -Grid2_plot_row(4) = 1 ! number from 1 at top -Grid2_plot_rowspan(4) = 5 ! plot spans this number of rows -Grid2_plot_col(4) = 3 ! number from 1 at left -Grid2_plot_colspan(4) = 2 ! plot spans this number of columns -Grid2_plot_pad_left(4) = 0.01 ! fraction of full window width for padding on left -Grid2_plot_pad_right(4) = 0.01 ! fraction of full window width for padding on right -Grid2_plot_pad_top(4) = 0.01 ! fraction of full window height for padding at top -Grid2_plot_pad_bot(4) = 0.02 ! fraction of full window height for padding at bottom -Grid2_txt_scale_factor(4) = 0.7 ! multiply txt_scale for subplot by this - -History_Panels1_title = '' -History_Panels1_num_panels = 2 -History_Panels1_max_width = -1 -History_Panels1_xaxis_name = 'model_number' - -History_Panels1_yaxis_name(1) = 'log_R' -History_Panels1_other_yaxis_name(1) = 'log_L' - -History_Panels1_yaxis_name(2) = 'center_h1' -History_Panels1_other_yaxis_name(2) = 'center_he4' - -Grid2_plot_name(6) = 'Text_Summary1' -Grid2_plot_row(6) = 8 ! number from 1 at top -Grid2_plot_rowspan(6) = 1 ! plot spans this number of rows -Grid2_plot_col(6) = 1 ! number from 1 at left -Grid2_plot_colspan(6) = 4 ! plot spans this number of columns -Grid2_plot_pad_left(6) = -0.01 ! fraction of full window width for padding on left -Grid2_plot_pad_right(6) = -0.01 ! fraction of full window width for padding on right -Grid2_plot_pad_top(6) = 0.01 ! fraction of full window height for padding at top -Grid2_plot_pad_bot(6) = 0.00 ! fraction of full window height for padding at bottom -Grid2_txt_scale_factor(6) = 0.2 ! multiply txt_scale for subplot by this +Grid_plot_row(2, 5) = 6 ! number from 1 at top +Grid_plot_rowspan(2, 5) = 2 ! plot spans this number of rows +Grid_plot_col(2, 5) = 3 ! number from 1 at left +Grid_plot_colspan(2, 5) = 2 ! plot spans this number of columns +Grid_plot_pad_left(2, 5) = 0.01 ! fraction of full window width for padding on left +Grid_plot_pad_right(2, 5) = 0.01 ! fraction of full window width for padding on right +Grid_plot_pad_top(2, 5) = 0.01 ! fraction of full window height for padding at top +Grid_plot_pad_bot(2, 5) = 0.02 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(2, 5) = 0.7 ! multiply txt_scale for subplot by this + +Grid_plot_name(2, 4) = 'History_Panels(1)' +Grid_plot_row(2, 4) = 1 ! number from 1 at top +Grid_plot_rowspan(2, 4) = 5 ! plot spans this number of rows +Grid_plot_col(2, 4) = 3 ! number from 1 at left +Grid_plot_colspan(2, 4) = 2 ! plot spans this number of columns +Grid_plot_pad_left(2, 4) = 0.01 ! fraction of full window width for padding on left +Grid_plot_pad_right(2, 4) = 0.01 ! fraction of full window width for padding on right +Grid_plot_pad_top(2, 4) = 0.01 ! fraction of full window height for padding at top +Grid_plot_pad_bot(2, 4) = 0.02 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(2, 4) = 0.7 ! multiply txt_scale for subplot by this + +History_Panels_title(1) = '' +History_Panels_num_panels(1) = 2 +History_Panels_max_width(1) = -1 +History_Panels_xaxis_name(1) = 'model_number' + +History_Panels_yaxis_name(1, 1) = 'log_R' +History_Panels_other_yaxis_name(1, 1) = 'log_L' + +History_Panels_yaxis_name(1, 2) = 'center_h1' +History_Panels_other_yaxis_name(1, 2) = 'center_he4' + +Grid_plot_name(2, 6) = 'Text_Summary(1)' +Grid_plot_row(2, 6) = 8 ! number from 1 at top +Grid_plot_rowspan(2, 6) = 1 ! plot spans this number of rows +Grid_plot_col(2, 6) = 1 ! number from 1 at left +Grid_plot_colspan(2, 6) = 4 ! plot spans this number of columns +Grid_plot_pad_left(2, 6) = -0.01 ! fraction of full window width for padding on left +Grid_plot_pad_right(2, 6) = -0.01 ! fraction of full window width for padding on right +Grid_plot_pad_top(2, 6) = 0.01 ! fraction of full window height for padding at top +Grid_plot_pad_bot(2, 6) = 0.00 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(2, 6) = 0.2 ! multiply txt_scale for subplot by this / diff --git a/binary/test_suite/star_plus_point_mass_explicit_mdot/README.rst b/binary/test_suite/star_plus_point_mass_explicit_mdot/README.rst index f50c8340a..3f4b32530 100644 --- a/binary/test_suite/star_plus_point_mass_explicit_mdot/README.rst +++ b/binary/test_suite/star_plus_point_mass_explicit_mdot/README.rst @@ -49,56 +49,56 @@ pgstar commands used for the plots above: pgstar_left_yaxis_label_disp = 4.0 - History_Track1_win_flag = .true. - History_Track1_win_width = 12 - History_Track1_win_aspect_ratio = 0.75 - History_Track1_txt_scale = 0.8 - History_Track1_title = ' ' - - History_Track1_xname = 'model_number' - History_Track1_yname = 'period_days' - History_Track1_xaxis_label = 'Model Number' - History_Track1_yaxis_label = 'Binary Period (day)' - History_Track1_reverse_xaxis = .false. - History_Track1_reverse_yaxis = .false. - - History_Track1_xmin = 0.0 - History_Track1_xmax = 350 - History_Track1_ymin = 0.0 - History_Track1_ymax = 7.0 - - History_Track1_file_flag = .true. - History_Track1_file_dir = 'pgstar_out' - History_Track1_file_prefix = 'track1_' - History_Track1_file_interval = 100 - History_Track1_file_width = -1 - History_Track1_file_aspect_ratio = -1 - - - History_Track2_win_flag = .true. - History_Track2_win_width = 12 - History_Track2_win_aspect_ratio = 0.75 - History_Track2_txt_scale = 0.8 - History_Track2_title = ' ' - - History_Track2_xname = 'model_number' - History_Track2_yname = 'binary_separation' - History_Track2_xaxis_label = 'Model Number' - History_Track2_yaxis_label = 'Binary Seperation (R\d\(2281)\u)' - History_Track2_reverse_xaxis = .false. - History_Track2_reverse_yaxis = .false. - - History_Track2_xmin = 0.0 - History_Track2_xmax = 350 - History_Track2_ymin = 0.0 - History_Track2_ymax = 40.0 - - History_Track2_file_flag = .true. - History_Track2_file_dir = 'pgstar_out' - History_Track2_file_prefix = 'track2_' - History_Track2_file_interval = 100 - History_Track2_file_width = -1 - History_Track2_file_aspect_ratio = -1 + History_Track_win_flag(1) = .true. + History_Track_win_width(1) = 12 + History_Track_win_aspect_ratio(1) = 0.75 + History_Track_txt_scale(1) = 0.8 + History_Track_title(1) = ' ' + + History_Track_xname(1) = 'model_number' + History_Track_yname(1) = 'period_days' + History_Track_xaxis_label(1) = 'Model Number' + History_Track_yaxis_label(1) = 'Binary Period (day)' + History_Track_reverse_xaxis(1) = .false. + History_Track_reverse_yaxis(1) = .false. + + History_Track_xmin(1) = 0.0 + History_Track_xmax(1) = 350 + History_Track_ymin(1) = 0.0 + History_Track_ymax(1) = 7.0 + + History_Track_file_flag(1) = .true. + History_Track_file_dir(1) = 'pgstar_out' + History_Track_file_prefix(1) = 'track1_' + History_Track_file_interval(1) = 100 + History_Track_file_width(1) = -1 + History_Track_file_aspect_ratio(1) = -1 + + + History_Track_win_flag(2) = .true. + History_Track_win_width(2) = 12 + History_Track_win_aspect_ratio(2) = 0.75 + History_Track_txt_scale(2) = 0.8 + History_Track_title(2) = ' ' + + History_Track_xname(2) = 'model_number' + History_Track_yname(2) = 'binary_separation' + History_Track_xaxis_label(2) = 'Model Number' + History_Track_yaxis_label(2) = 'Binary Seperation (R\d\(2281)\u)' + History_Track_reverse_xaxis(2) = .false. + History_Track_reverse_yaxis(2) = .false. + + History_Track_xmin(2) = 0.0 + History_Track_xmax(2) = 350 + History_Track_ymin(2) = 0.0 + History_Track_ymax(2) = 40.0 + + History_Track_file_flag(2) = .true. + History_Track_file_dir(2) = 'pgstar_out' + History_Track_file_prefix(2) = 'track2_' + History_Track_file_interval(2) = 100 + History_Track_file_width(2) = -1 + History_Track_file_aspect_ratio(2) = -1 Kipp_win_flag = .true. diff --git a/docs/source/changelog.rst b/docs/source/changelog.rst index a565d59cd..2db98ce91 100644 --- a/docs/source/changelog.rst +++ b/docs/source/changelog.rst @@ -9,6 +9,32 @@ Changelog Changes in main =============== +.. _Backwards-incompatible changes main: + +Backwards-incompatible changes +------------------------------ + +``pgstar`` / ``pgbinary`` +~~~~~~~~~~~~~~~~~~~~~~~~~ + +Introduced ``pgstar_array_length``, to simplify a lot of internal coding abouted *listed* plot windows: + + - Grid + - History_Panels + - History_Track + - Profile_Panels + - Text_Summary + - Color_Magnitude + +These plots are now addressed with (the first index of) an array, so that, for example: + + - ``Grid2_num_cols`` => ``Grid_num_cols(2)`` + - ``Text_Summary3_name(1,4)`` => ``Text_Summary_name(3, 1, 4)`` + - ``History_Panels1_yaxis_name(1)`` => ``History_Panels_yaxis_name(1, 1)`` + +You can adapt your existing ``pgstar``/``pgbinary`` inlists by running appropriate ``sed`` commands. +You can also start from the inlists in the ``test_suite/``. + .. _New Features main: New Features diff --git a/docs/source/using_mesa/using_pgstar.rst b/docs/source/using_mesa/using_pgstar.rst index 27f933409..d267a63e4 100644 --- a/docs/source/using_mesa/using_pgstar.rst +++ b/docs/source/using_mesa/using_pgstar.rst @@ -215,12 +215,12 @@ After looking at those, check out some of the defaults for a few of the multi-panel plots. As before, cut-and-paste these lines and replace the previous ones.:: - Profile_Panels1_win_flag = .true. - Profile_Panels2_win_flag = .true. - History_Track1_win_flag = .true. - History_Panels1_win_flag = .true. - Grid1_win_flag = .true. - Grid2_win_flag = .true. + Profile_Panels_win_flag(1) = .true. + Profile_Panels_win_flag(2) = .true. + History_Track_win_flag(1) = .true. + History_Panels_win_flag(1) = .true. + Grid_win_flag(1) = .true. + Grid_win_flag(2) = .true. When you're finished admiring these beauties, delete the "win_flag" @@ -303,11 +303,11 @@ plotting by editing the axis name and label. Here's an example. After that, try plotting some other combinations; just pick axis names from the column headings in your current LOGS/history.data.:: - History_Track1_win_flag = .true. + History_Track_win_flag(1) = .true. - History_Track1_xname = 'log_center_P' - History_Track1_xaxis_label = 'log P\dcenter' - History_Track1_title = 'L vs Center P' + History_Track_xname(1) = 'log_center_P' + History_Track_xaxis_label(1) = 'log P\dcenter' + History_Track_title(1) = 'L vs Center P' Turn on Profile\_Panels1 and History\_Panels1; they are set up with defaults for the number of panels and axes. Change the defaults to @@ -315,34 +315,34 @@ show other things -- for the profiles you can select anything that can be in a profile_columns.list; for the history you have to select one of the column headings in your current LOGS/history.data.:: - History_Panels1_win_flag = .true. - History_Panels1_other_yaxis_name(1) = 'log_center_P' + History_Panels_win_flag(1) = .true. + History_Panels_other_yaxis_name(1,1) = 'log_center_P' - Profile_Panels1_win_flag = .true. - Profile_Panels1_xaxis_name = 'logP' - Profile_Panels1_xaxis_reversed = .true. + Profile_Panels_win_flag(1) = .true. + Profile_Panels_xaxis_name(1) = 'logP' + Profile_Panels_xaxis_reversed(1) = .true. Add another panel to the Profile plot.:: - Profile_Panels1_num_panels = 3 - Profile_Panels1_yaxis_name(3) = 'logtau' - Profile_Panels1_other_yaxis_name(3) = 'log_opacity' + Profile_Panels_num_panels(1) = 3 + Profile_Panels_yaxis_name(1,3) = 'logtau' + Profile_Panels_other_yaxis_name(1,3) = 'log_opacity' Increase the y margins.:: - Profile_Panels1_ymargin(1) = 0.2 - Profile_Panels1_other_ymargin(1) = 0.2 - Profile_Panels1_ymargin(2) = 0.2 - Profile_Panels1_other_ymargin(2) = 0.2 - Profile_Panels1_ymargin(3) = 0.2 - Profile_Panels1_other_ymargin(3) = 0.2 + Profile_Panels_ymargin(1,1) = 0.2 + Profile_Panels_other_ymargin(1,1) = 0.2 + Profile_Panels_ymargin(1,2) = 0.2 + Profile_Panels_other_ymargin(1,2) = 0.2 + Profile_Panels_ymargin(1,3) = 0.2 + Profile_Panels_other_ymargin(1,3) = 0.2 Change the aspect ratio, reduce the width, and fix the left and right margins.:: - Profile_Panels1_win_aspect_ratio = 1.0 ! aspect_ratio = height/width - Profile_Panels1_win_width = 6 - Profile_Panels1_xleft = 0.18 - Profile_Panels1_xright = 0.82 + Profile_Panels_win_aspect_ratio(1) = 1.0 ! aspect_ratio = height/width + Profile_Panels_win_width(1) = 6 + Profile_Panels_xleft(1) = 0.18 + Profile_Panels_xright(1) = 0.82 Pick some other axis names and change what is shown in the panels. You can use any name that is valid in a profile_columns.list; unlike @@ -352,86 +352,86 @@ your current list. Next, take a look at the following default definition for Profile\_Panels3.:: - Profile_Panels3_xaxis_name = 'logP' - Profile_Panels3_xaxis_reversed = .true. - Profile_Panels3_num_panels = 3 - Profile_Panels3_yaxis_name(1) = 'Abundance' - Profile_Panels3_yaxis_name(2) = 'Power' - Profile_Panels3_yaxis_name(3) = 'Mixing' + Profile_Panels_xaxis_name(3) = 'logP' + Profile_Panels_xaxis_reversed(3) = .true. + Profile_Panels_num_panels(3) = 3 + Profile_Panels_yaxis_name(3,1) = 'Abundance' + Profile_Panels_yaxis_name(3,2) = 'Power' + Profile_Panels_yaxis_name(3,3) = 'Mixing' Open the plot window and then change the number of panels and the contents. Revise the title and switch the xaxis to mass.:: - Profile_Panels3_win_flag = .true. - Profile_Panels3_num_panels = 4 - Profile_Panels3_yaxis_name(4) = 'Dynamo' - Profile_Panels3_title = 'Abundance-Power-Mixing-Dynamo' - Profile_Panels3_xaxis_name = 'mass' - Profile_Panels3_xaxis_reversed = .false. + Profile_Panels_win_flag(3) = .true. + Profile_Panels_num_panels(3) = 4 + Profile_Panels_yaxis_name(3,4) = 'Dynamo' + Profile_Panels_title(3) = 'Abundance-Power-Mixing-Dynamo' + Profile_Panels_xaxis_name(3) = 'mass' + Profile_Panels_xaxis_reversed(3) = .false. Now, edit the definition of the Grid1 plot. Replace the TRho\_Profile plot by the Kipp plot and adjust the margins and text scale.:: - Grid1_win_flag = .true. - Grid1_plot_name(1) = 'Kipp' - Grid1_plot_pad_left(1) = 0.03 ! fraction of full window width for padding on left - Grid1_plot_pad_right(1) = 0.03 ! fraction of full window width for padding on right - Grid1_plot_pad_bot(1) = 0.12 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(1) = 0.6 ! multiply txt_scale for subplot by this + Grid_win_flag(1) = .true. + Grid_plot_name(1,1) = 'Kipp' + Grid_plot_pad_left(1,1) = 0.03 ! fraction of full window width for padding on left + Grid_plot_pad_right(1,1) = 0.03 ! fraction of full window width for padding on right + Grid_plot_pad_bot(1,1) = 0.12 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1,1) = 0.6 ! multiply txt_scale for subplot by this Move the text summary up to just below the Kipp plot, and increase the number of rows to make the HR and TRho plots taller. This will temporarily mess us the spacing between the subplots, but we'll fix that next.:: - Grid1_num_rows = 9 ! divide plotting region into this many equal height rows - Grid1_plot_row(2) = 7 ! number from 1 at top - Grid1_plot_rowspan(2) = 3 ! plot spans this number of rows - Grid1_plot_row(3) = 7 ! number from 1 at top - Grid1_plot_rowspan(3) = 3 ! plot spans this number of rows - Grid1_plot_row(4) = 5 ! number from 1 at top - Grid1_plot_rowspan(4) = 2 ! plot spans this number of rows + Grid_num_rows(1) = 9 ! divide plotting region into this many equal height rows + Grid_plot_row(1,2) = 7 ! number from 1 at top + Grid_plot_rowspan(1,2) = 3 ! plot spans this number of rows + Grid_plot_row(1,3) = 7 ! number from 1 at top + Grid_plot_rowspan(1,3) = 3 ! plot spans this number of rows + Grid_plot_row(1,4) = 5 ! number from 1 at top + Grid_plot_rowspan(1,4) = 2 ! plot spans this number of rows After that, fix the padding between the plots and adjust the text sizes.:: - Grid1_plot_pad_top(2) = 0.01 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(2) = 0.1 ! fraction of full window height for padding at bottom - Grid1_plot_pad_left(2) = 0.05 ! fraction of full window width for padding on left - Grid1_plot_pad_right(2) = 0.1 ! fraction of full window width for padding on right - Grid1_txt_scale_factor(2) = 0.6 ! multiply txt_scale for subplot by this + Grid_plot_pad_top(1,2) = 0.01 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1,2) = 0.1 ! fraction of full window height for padding at bottom + Grid_plot_pad_left(1,2) = 0.05 ! fraction of full window width for padding on left + Grid_plot_pad_right(1,2) = 0.1 ! fraction of full window width for padding on right + Grid_txt_scale_factor(1,2) = 0.6 ! multiply txt_scale for subplot by this - Grid1_plot_pad_top(3) = 0.01 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(3) = 0.1 ! fraction of full window height for padding at bottom - Grid1_plot_pad_left(3) = 0.1 ! fraction of full window width for padding on left - Grid1_plot_pad_right(3) = 0.05 ! fraction of full window width for padding on right - Grid1_txt_scale_factor(3) = 0.6 ! multiply txt_scale for subplot by this + Grid_plot_pad_top(1,3) = 0.01 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1,3) = 0.1 ! fraction of full window height for padding at bottom + Grid_plot_pad_left(1,3) = 0.1 ! fraction of full window width for padding on left + Grid_plot_pad_right(1,3) = 0.05 ! fraction of full window width for padding on right + Grid_txt_scale_factor(1,3) = 0.6 ! multiply txt_scale for subplot by this - Grid1_plot_pad_top(4) = 0.00 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(4) = 0.05 ! fraction of full window height for padding at bottom + Grid_plot_pad_top(1,4) = 0.00 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1,4) = 0.05 ! fraction of full window height for padding at bottom Change the text summary to report 'log\_L\_div\_Ledd' instead of 'log\_LH'.:: - Text_Summary1_name(3,4) = 'log_L_div_Ledd' + Text_Summary_name(1,3,4) = 'log_L_div_Ledd' Finally, take a quick look at the various multi-panel and grid defaults (listed above). You are not limited to those, but they might give you ideas for your own personalized plots. Here are some of my favorites -- you might also find them useful.:: - Grid8_win_flag = .true. ! Summary_Burn, Abundance, HR, TRho, TRho_Profile, Text_Summary1 - Profile_Panels4_win_flag = .true. ! Abundance, Power, Mixing, and Dynamo - History_Panels1_win_flag = .true. ! logT, logRho, log_L, log_Teff, mass, mdot + Grid_win_flag(8) = .true. ! Summary_Burn, Abundance, HR, TRho, TRho_Profile, Text_Summary1 + Profile_Panels_win_flag(4) = .true. ! Abundance, Power, Mixing, and Dynamo + History_Panels_win_flag(1) = .true. ! logT, logRho, log_L, log_Teff, mass, mdot If you don't have rotation turned on, change from Profile\_Panels4 to Profile\_Panels3, or edit your controls for Profile\_Panels4 to drop the last panel.:: - Profile_Panels3_win_flag = .true. ! Abundance, Power, and Mixing + Profile_Panels_win_flag(3) = .true. ! Abundance, Power, and Mixing or:: - Profile_Panels4_num_panels = 3 - Profile_Panels4_title = 'Abundance-Power-Mixing' + Profile_Panels_num_panels(4) = 3 + Profile_Panels_title(4) = 'Abundance-Power-Mixing' PGSTAR has a number of options to control its file output. diff --git a/star/defaults/pgstar.defaults b/star/defaults/pgstar.defaults index 6d58543ff..f0de063a3 100644 --- a/star/defaults/pgstar.defaults +++ b/star/defaults/pgstar.defaults @@ -293,14 +293,14 @@ ! pgstar_profile_line_style for profile panels plot ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ! pgstar_history_line_style for history panels plot + ! pgstar_history_line_style for history panels plot ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ! Referring to the the left side plot, not the "other" one on the right ! ! 1 (full line), 2 (dashed), 3 (dot-dash-dot-dash), 4 (dotted), 5 (dash-dot-dot-dot) - ! :: + ! :: pgstar_profile_line_style = 1 pgstar_history_line_style = 1 @@ -321,7 +321,7 @@ TRho_Profile_win_width = 6 TRho_Profile_win_aspect_ratio = 0.75 - ! :: + ! :: TRho_Profile_xleft = 0.15 TRho_Profile_xright = 0.85 @@ -340,7 +340,7 @@ TRho_Profile_ymax = 10.2 - ! If ``TRho_switch_to_Column_Depth = .true.``, replace logRho for xaxis by log column depth (g/cm^2). + ! If ``TRho_switch_to_Column_Depth = .true.``, replace logRho for xaxis by log column depth (g/cm^2). ! If ``TRho_switch_to_mass = .true.``, replace logRho for xaxis by log mass coordinate M-m(k) |Msun|. ! :: @@ -375,8 +375,8 @@ show_TRho_accretion_mesh_borders = .false. - ! The regions shown by ``show_TRho_Profile_kap_regions`` and ``show_TRho_Profile_eos_regions`` may **not** correspond exactly to those used in the model as - ! they are **not** updated to reflect changes made in a inlist that change the boundaries between eos or kap regions. + ! The regions shown by ``show_TRho_Profile_kap_regions`` and ``show_TRho_Profile_eos_regions`` may **not** correspond exactly to those used in the model as + ! they are **not** updated to reflect changes made in a inlist that change the boundaries between eos or kap regions. ! :: @@ -430,11 +430,11 @@ ! **Setting colors** - ! ``profile_mass_point_color_index`` and ``profile_mass_point_str_clr`` - ! set the color of the mass location's symbol and corresponding string, respectively, + ! ``profile_mass_point_color_index`` and ``profile_mass_point_str_clr`` + ! set the color of the mass location's symbol and corresponding string, respectively, ! with 1 = foreground color, 2 = Red, 3 = Green, 4 = Blue, etc. ! The full range of available indicies is defined in Set_Colours in pgstar.support.f. - + ! **Setting symbols and text** ! ``profile_mass_point_symbol`` sets the symbol to be drawn for a given marker. @@ -449,21 +449,21 @@ ! > 127 A Hershey symbol number ! ========= ============================================================================================== - !``profile_mass_point_str`` sets the text displayed with the marker. + !``profile_mass_point_str`` sets the text displayed with the marker. ! **Syntax** - ! To set defaults for all entries: + ! To set defaults for all entries: ! :: - profile_mass_point_q = -1 - profile_mass_point_color_index = 1 - profile_mass_point_symbol = -6 - profile_mass_point_symbol_scale = 1.7 - profile_mass_point_str = '' - profile_mass_point_str_clr = 1 - profile_mass_point_str_scale = 1.0 + profile_mass_point_q(:) = -1 + profile_mass_point_color_index(:) = 1 + profile_mass_point_symbol(:) = -6 + profile_mass_point_symbol_scale(:) = 1.7 + profile_mass_point_str(:) = '' + profile_mass_point_str_clr(:) = 1 + profile_mass_point_str_scale(:) = 1.0 ! To then set individual qualities of any given ``profile_mass_point_q(N)``: @@ -522,7 +522,7 @@ ! **Axis limits and labels** - ! X-axis limits are set by ``Abundance_xmin`` and ``Abundance_xmax``. + ! X-axis limits are set by ``Abundance_xmin`` and ``Abundance_xmax``. ! Y-axis limits are set by ``Abundance_log_mass_frac_min`` and ``Abundance_log_mass_frac_max`` ! :: @@ -533,12 +533,12 @@ Abundance_log_mass_frac_max = 0.3 ! :: - + Abundance_xaxis_name = 'mass' Abundance_xaxis_reversed = .false. ! **Legend** - + ! :: Abundance_legend_max_cnt = 16 @@ -618,7 +618,7 @@ Power_xmax = -101d0 Power_ymin = -101d0 Power_ymax = -101d0 - + ! :: Power_xaxis_name = 'mass' @@ -695,7 +695,7 @@ ! **Legend** ! :: - + Mixing_legend_txt_scale_factor = 1 ! **Decorators** @@ -850,7 +850,7 @@ ! **Decorators** - ! ``Mode_Prop_nu_max_obs`` sets the observed nu max that is plotted for comparison + ! ``Mode_Prop_nu_max_obs`` sets the observed nu max that is plotted for comparison ! and can be ignored by setting the value to -999 ! :: @@ -982,7 +982,7 @@ Summary_Profile_name(:) = '' Summary_Profile_legend(:) = '' - ! If ``Summary_Profile_scaled_value = .true.``, show values scaled max to 1.0 and min to 0.0. + ! If ``Summary_Profile_scaled_value = .true.``, show values scaled max to 1.0 and min to 0.0. ! If ``Summary_Profile_scaled_value = .false.``, show the unmapped values (which should be in range 0.0 to 1.0) ! typically set .false. for mass fractions; .true. for everything else. @@ -1237,13 +1237,13 @@ Kipp_xaxis_name = 'model_number' ! If ``Kipp_max_width`` is negative, then all steps will be shown, thereby overriding ``Kipp_step_xmin`` - + ! :: Kipp_max_width = -1 - ! Changes to ``Kipp_xaxis_log``, ``Kipp_xmin``, ``Kipp_xmax``, ``Kipp_xmargin``, - ! ``Kipp_xaxis_reversed``, ``Kipp_xaxis_in_seconds``, ``Kipp_xaxis_in_Myr``, and + ! Changes to ``Kipp_xaxis_log``, ``Kipp_xmin``, ``Kipp_xmax``, ``Kipp_xmargin``, + ! ``Kipp_xaxis_reversed``, ``Kipp_xaxis_in_seconds``, ``Kipp_xaxis_in_Myr``, and ! ``Kipp_xaxis_time_from_present`` all require ``Kipp_xaxis_name = star_age`` ! :: @@ -1381,15 +1381,15 @@ rti_step_xmax = -1 rti_xaxis_name = 'model_number' - ! If ``rti_max_width`` is negative, then all steps will be shown, + ! If ``rti_max_width`` is negative, then all steps will be shown, ! thereby overriding ``rti_step_xmin`` ! :: rti_max_width = -1 - ! Changes to ``rti_xaxis_log``, ``rti_xmin``, ``rti_xmax``, ``rti_xmargin``, - ! ``rti_xaxis_reversed``, ``rti_xaxis_in_seconds``, ``rti_xaxis_in_Myr``, + ! Changes to ``rti_xaxis_log``, ``rti_xmin``, ``rti_xmax``, ``rti_xmargin``, + ! ``rti_xaxis_reversed``, ``rti_xaxis_in_seconds``, ``rti_xaxis_in_Myr``, ! and ``rti_xaxis_time_from_present`` all require ``rti_xaxis_name = star_age`` ! :: @@ -1417,8 +1417,8 @@ rti_mass_margin = 0.01 ! **Decorators** - - ! ``rti_interval`` sets the model number step in between + + ! ``rti_interval`` sets the model number step in between ! updates of the displayed rti data ! :: @@ -1739,7 +1739,7 @@ logL_Teff_step_max = -1 ! **Decorators** - + ! :: show_logL_Teff_target_box = .false. @@ -2663,7 +2663,7 @@ ! **Decorators** - ! If ``Network_show_mass_fraction = .true.``, then show mass fraction as a coloured square. + ! If ``Network_show_mass_fraction = .true.``, then show mass fraction as a coloured square. ! The mass fractions shown are limited by ``Network_log_mass_frac_min`` and ``Network_log_mass_frac_max``. ! :: @@ -2672,7 +2672,7 @@ Network_log_mass_frac_min = -5.0d0 Network_log_mass_frac_max = 0.0d0 - ! Use ``Network_show_element_names`` to label Y-axis with element name and + ! Use ``Network_show_element_names`` to label Y-axis with element name and ! ``Network_show_colorbar`` to add a color bar. ! :: @@ -2791,5039 +2791,1455 @@ ! set xmin and xmax so that (xmax - xmin)/center_value = this. - ! Profile_Panels1 - ! --------------- + ! Profile_Panels(1..9) + ! -------------------- ! :: - Profile_Panels1_win_flag = .false. + Profile_Panels_win_flag(:) = .false. - ! **Window sizing** ! :: - Profile_Panels1_win_width = 6 - Profile_Panels1_win_aspect_ratio = 0.75 + Profile_Panels_win_width(:) = 6 + Profile_Panels_win_aspect_ratio(:) = 0.75 ! :: - Profile_Panels1_xleft = 0.15 - Profile_Panels1_xright = 0.85 - Profile_Panels1_ybot = 0.15 - Profile_Panels1_ytop = 0.85 - Profile_Panels1_txt_scale = 1.0 - Profile_Panels1_title = 'Profile Panels1' + Profile_Panels_xleft(:) = 0.15 + Profile_Panels_xright(:) = 0.85 + Profile_Panels_ybot(:) = 0.15 + Profile_Panels_ytop(:) = 0.85 + Profile_Panels_txt_scale(:) = 1.0 + Profile_Panels_title(:) = '' ! :: - - Profile_Panels1_xaxis_name = 'mass' - Profile_Panels1_xaxis_reversed = .false. - Profile_Panels1_xmin = -101d0 - Profile_Panels1_xmax = -101d0 - Profile_Panels1_xmargin = 0d0 - Profile_Panels1_show_mix_regions_on_xaxis = .false. - ! :: - - Profile_Panels1_same_yaxis_range(:) = .false. + Profile_Panels_xaxis_name(:) = 'mass' + Profile_Panels_xaxis_reversed(:) = .false. + Profile_Panels_xmin(:) = -101d0 + Profile_Panels_xmax(:) = -101d0 + Profile_Panels_xmargin(:) = 0d0 + Profile_Panels_show_mix_regions_on_xaxis(:) = .false. + Profile_Panels_same_yaxis_range(:, :) = .false. + ! **Window sizing** ! :: - Profile_Panels1_yaxis_name(:) = '' - Profile_Panels1_yaxis_reversed(:) = .false. - Profile_Panels1_yaxis_log(:) = .false. - Profile_Panels1_ymin(:) = -101d0 - Profile_Panels1_ymax(:) = -101d0 - Profile_Panels1_ycenter(:) = -101d0 - Profile_Panels1_ymargin(:) = 0.1 - Profile_Panels1_dymin(:) = -1 + Profile_Panels_yaxis_name(:, :) = '' + Profile_Panels_yaxis_reversed(:, :) = .false. + Profile_Panels_yaxis_log(:, :) = .false. + Profile_Panels_ymin(:, :) = -101d0 + Profile_Panels_ymax(:, :) = -101d0 + Profile_Panels_ycenter(:, :) = -101d0 + Profile_Panels_ymargin(:, :) = 0.1 + Profile_Panels_dymin(:, :) = -1 ! :: - Profile_Panels1_other_yaxis_name(:) = '' - Profile_Panels1_other_yaxis_reversed(:) = .false. - Profile_Panels1_other_yaxis_log(:) = .false. - Profile_Panels1_other_ymin(:) = -101d0 - Profile_Panels1_other_ymax(:) = -101d0 - Profile_Panels1_other_ycenter(:) = -101d0 - Profile_Panels1_other_ymargin(:) = 0.1 - Profile_Panels1_other_dymin(:) = -1 + Profile_Panels_other_yaxis_name(:, :) = '' + Profile_Panels_other_yaxis_reversed(:, :) = .false. + Profile_Panels_other_yaxis_log(:, :) = .false. + Profile_Panels_other_ymin(:, :) = -101d0 + Profile_Panels_other_ymax(:, :) = -101d0 + Profile_Panels_other_ycenter(:, :) = -101d0 + Profile_Panels_other_ymargin(:, :) = 0.1 + Profile_Panels_other_dymin(:, :) = -1 ! :: - Profile_Panels1_show_grid = .false. - - ! setup default plot + Profile_Panels_show_grid(:) = .false. ! :: - Profile_Panels1_num_panels = 2 - Profile_Panels1_yaxis_name(1) = 'logT' - Profile_Panels1_other_yaxis_name(1) = 'entropy' - Profile_Panels1_yaxis_name(2) = 'logRho' - Profile_Panels1_other_yaxis_name(2) = 'logP' - ! Enables calling a subroutine to add extra information to a plot ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` ! :: - Profile_Panels1_use_decorator = .false. + Profile_Panels_use_decorator(:) = .false. ! **File output** ! :: - Profile_Panels1_file_flag = .false. - Profile_Panels1_file_dir = 'png' - Profile_Panels1_file_prefix = 'profile_panels1_' - Profile_Panels1_file_interval = 5 - Profile_Panels1_file_width = -1 - Profile_Panels1_file_aspect_ratio = -1 - - - ! Profile_Panels2 - ! --------------- - - ! :: - - Profile_Panels2_win_flag = .false. - - ! **Window sizing** - ! :: - - Profile_Panels2_win_width = 6 - Profile_Panels2_win_aspect_ratio = 0.75 - - ! :: - - Profile_Panels2_xleft = 0.15 - Profile_Panels2_xright = 0.85 - Profile_Panels2_ybot = 0.15 - Profile_Panels2_ytop = 0.85 - Profile_Panels2_txt_scale = 1.0 - Profile_Panels2_title = 'Profile Panels2' - - ! :: - - Profile_Panels2_xaxis_name = '' - Profile_Panels2_xaxis_reversed = .false. - Profile_Panels2_xmin = -101d0 - Profile_Panels2_xmax = -101d0 - Profile_Panels2_xmargin = 0d0 - Profile_Panels2_show_mix_regions_on_xaxis = .false. - - ! :: - - Profile_Panels2_same_yaxis_range(:) = .false. - - ! :: - - Profile_Panels2_num_panels = 0 + Profile_Panels_file_flag(:) = .false. + Profile_Panels_file_dir(:) = 'png' + Profile_Panels_file_prefix(:) = '' + Profile_Panels_file_interval(:) = 5 + Profile_Panels_file_width(:) = -1 + Profile_Panels_file_aspect_ratio(:) = -1 ! :: - Profile_Panels2_yaxis_name(:) = '' - Profile_Panels2_yaxis_reversed(:) = .false. - Profile_Panels2_yaxis_log(:) = .false. - Profile_Panels2_ymin(:) = -101d0 - Profile_Panels2_ymax(:) = -101d0 - Profile_Panels2_ycenter(:) = -101d0 - Profile_Panels2_ymargin(:) = 0.1 - Profile_Panels2_dymin(:) = -1 + ! setup default plots ! :: - Profile_Panels2_other_yaxis_name(:) = '' - Profile_Panels2_other_yaxis_reversed(:) = .false. - Profile_Panels2_other_yaxis_log(:) = .false. - Profile_Panels2_other_ymin(:) = -101d0 - Profile_Panels2_other_ymax(:) = -101d0 - Profile_Panels2_other_ycenter(:) = -101d0 - Profile_Panels2_other_ymargin(:) = 0.1 - Profile_Panels2_other_dymin(:) = -1 + ! Profile_Panels(1) + ! ----------------- ! :: - Profile_Panels2_show_grid = .false. + Profile_Panels_title(1) = 'Profile_Panels(1)' + Profile_Panels_num_panels(1) = 2 + Profile_Panels_yaxis_name(1, 1) = 'logT' + Profile_Panels_other_yaxis_name(1, 1) = 'entropy' + Profile_Panels_yaxis_name(1, 2) = 'logRho' + Profile_Panels_other_yaxis_name(1, 2) = 'logP' + Profile_Panels_file_prefix(1) = 'profile_panels1_' - ! setup default plot - - ! :: + ! Profile_Panels(2) + ! ----------------- - Profile_Panels2_win_aspect_ratio = 1.25 - Profile_Panels2_txt_scale = 0.9 - Profile_Panels2_ybot = 0.1 - Profile_Panels2_ytop = 0.9 - Profile_Panels2_title = 'Abundance-Power' + Profile_Panels_win_aspect_ratio(2) = 1.25 + Profile_Panels_txt_scale(2) = 0.9 + Profile_Panels_ybot(2) = 0.1 + Profile_Panels_ytop(2) = 0.9 + Profile_Panels_title(2) = 'Abundance-Power' + Profile_Panels_xaxis_name(2) = 'logP' + Profile_Panels_xaxis_reversed(2) = .true. + Profile_Panels_num_panels(2) = 2 + Profile_Panels_yaxis_name(2, 1) = 'Abundance' + Profile_Panels_yaxis_name(2, 2) = 'Power' + Profile_Panels_file_prefix(2) = 'profile_Panels2_' - ! :: + ! Profile_Panels(3) + ! ----------------- - Profile_Panels2_xaxis_name = 'logP' - Profile_Panels2_xaxis_reversed = .true. + Profile_Panels_win_aspect_ratio(3) = 1.25 + Profile_Panels_txt_scale(3) = 0.9 + Profile_Panels_ybot(3) = 0.1 + Profile_Panels_ytop(3) = 0.9 + Profile_Panels_title(3) = 'Abundance-Power-Mixing' + Profile_Panels_xaxis_name(3) = 'logP' + Profile_Panels_xaxis_reversed(3) = .true. + Profile_Panels_num_panels(3) = 3 + Profile_Panels_yaxis_name(3, 1) = 'Abundance' + Profile_Panels_yaxis_name(3, 2) = 'Power' + Profile_Panels_yaxis_name(3, 3) = 'Mixing' + Profile_Panels_file_prefix(3) = 'profile_Panels3_' - ! :: + ! Profile_Panels(4) + ! ----------------- - Profile_Panels2_num_panels = 2 - Profile_Panels2_yaxis_name(1) = 'Abundance' - Profile_Panels2_yaxis_name(2) = 'Power' + Profile_Panels_win_aspect_ratio(4) = 1.25 + Profile_Panels_txt_scale(4) = 0.9 + Profile_Panels_ybot(4) = 0.1 + Profile_Panels_ytop(4) = 0.9 + Profile_Panels_title(4) = 'Abundance-Power-Mixing-Dynamo' + Profile_Panels_xaxis_name(4) = 'logP' + Profile_Panels_xaxis_reversed(4) = .true. + Profile_Panels_num_panels(4) = 4 + Profile_Panels_yaxis_name(4, 1) = 'Abundance' + Profile_Panels_yaxis_name(4, 2) = 'Power' + Profile_Panels_yaxis_name(4, 3) = 'Mixing' + Profile_Panels_yaxis_name(4, 4) = 'Dynamo' + Profile_Panels_file_prefix(4) = 'profile_Panels4_' - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` + ! Profile_Panels(5) + ! ----------------- - ! :: + Profile_Panels_win_aspect_ratio(5) = 1.25 + Profile_Panels_txt_scale(5) = 0.9 + Profile_Panels_ybot(5) = 0.1 + Profile_Panels_ytop(5) = 0.9 + Profile_Panels_title(5) = 'Summary Profile-Mode Prop-Mixing' + Profile_Panels_xaxis_name(5) = 'logP' + Profile_Panels_xaxis_reversed(5) = .true. + Profile_Panels_num_panels(5) = 3 + Profile_Panels_yaxis_name(5, 1) = 'Summary_Profile' + Profile_Panels_yaxis_name(5, 2) = 'Mode_Prop' + Profile_Panels_yaxis_name(5, 3) = 'Mixing' + Profile_Panels_file_prefix(5) = 'profile_Panels5_' - Profile_Panels2_use_decorator = .false. + ! Profile_Panels(6) + ! ----------------- - ! **File output** + Profile_Panels_file_prefix(6) = 'profile_Panels6_' - ! :: + ! Profile_Panels(7) + ! ----------------- - Profile_Panels2_file_flag = .false. - Profile_Panels2_file_dir = 'png' - Profile_Panels2_file_prefix = 'profile_Panels2_' - Profile_Panels2_file_interval = 5 - Profile_Panels2_file_width = -1 - Profile_Panels2_file_aspect_ratio = -1 + Profile_Panels_file_prefix(7) = 'profile_Panels7_' + ! Profile_Panels(8) + ! ----------------- + + Profile_Panels_file_prefix(8) = 'profile_Panels8_' - ! Profile_Panels3 - ! --------------- + ! Profile_Panels(9) + ! ----------------- - ! :: + Profile_Panels_file_prefix(9) = 'profile_Panels9_' - Profile_Panels3_win_flag = .false. +! History Tracks +! ============== - ! **Window sizing** - ! :: - Profile_Panels3_win_width = 6 - Profile_Panels3_win_aspect_ratio = 0.75 + ! History_Track(1..9) + ! ------------------- ! :: - Profile_Panels3_xleft = 0.15 - Profile_Panels3_xright = 0.85 - Profile_Panels3_ybot = 0.15 - Profile_Panels3_ytop = 0.85 - Profile_Panels3_txt_scale = 1.0 - Profile_Panels3_title = 'Profile Panels3' + History_Track_win_flag(:) = .false. + History_Track_win_width(:) = 6 + History_Track_win_aspect_ratio(:) = 0.75 ! :: - Profile_Panels3_xaxis_name = '' - Profile_Panels3_xaxis_reversed = .false. - Profile_Panels3_xmin = -101d0 - Profile_Panels3_xmax = -101d0 - Profile_Panels3_xmargin = 0d0 - Profile_Panels3_show_mix_regions_on_xaxis = .false. - - ! :: - - Profile_Panels3_same_yaxis_range(:) = .false. + History_Track_xleft(:) = 0.15 + History_Track_xright(:) = 0.85 + History_Track_ybot(:) = 0.15 + History_Track_ytop(:) = 0.85 + History_Track_txt_scale(:) = 1.0 + History_Track_title(:) = '' ! :: - Profile_Panels3_num_panels = 0 + History_Track_xname(:) = '' + History_Track_yname(:) = '' + History_Track_xaxis_label(:) = '' + History_Track_yaxis_label(:) = '' + History_Track_reverse_xaxis(:) = .false. + History_Track_reverse_yaxis(:) = .false. + History_Track_log_xaxis(:) = .false. + History_Track_log_yaxis(:) = .false. ! :: - Profile_Panels3_yaxis_name(:) = '' - Profile_Panels3_yaxis_reversed(:) = .false. - Profile_Panels3_yaxis_log(:) = .false. - Profile_Panels3_ymin(:) = -101d0 - Profile_Panels3_ymax(:) = -101d0 - Profile_Panels3_ycenter(:) = -101d0 - Profile_Panels3_ymargin(:) = 0.1 - Profile_Panels3_dymin(:) = -1 + History_Track_xmin(:) = -101d0 + History_Track_xmax(:) = -101d0 + History_Track_ymin(:) = -101d0 + History_Track_ymax(:) = -101d0 ! :: - Profile_Panels3_other_yaxis_name(:) = '' - Profile_Panels3_other_yaxis_reversed(:) = .false. - Profile_Panels3_other_yaxis_log(:) = .false. - Profile_Panels3_other_ymin(:) = -101d0 - Profile_Panels3_other_ymax(:) = -101d0 - Profile_Panels3_other_ycenter(:) = -101d0 - Profile_Panels3_other_ymargin(:) = 0.1 - Profile_Panels3_other_dymin(:) = -1 + History_Track_xmargin(:) = 0.1 + History_Track_ymargin(:) = 0.1 + History_Track_dxmin(:) = -1 + History_Track_dymin(:) = -1 ! :: - Profile_Panels3_show_grid = .false. - - ! setup default plot + History_Track_step_min(:) = -1 + History_Track_step_max(:) = -1 ! :: - Profile_Panels3_win_aspect_ratio = 1.25 - Profile_Panels3_txt_scale = 0.9 - Profile_Panels3_ybot = 0.1 - Profile_Panels3_ytop = 0.9 - Profile_Panels3_title = 'Abundance-Power-Mixing' + show_History_Track_target_box(:) = .false. + History_Track_n_sigma(:) = -3 + History_Track_xtarget(:) = 0 + History_Track_xsigma(:) = 0 + History_Track_ytarget(:) = 0 + History_Track_ysigma(:) = 0 ! :: - Profile_Panels3_xaxis_name = 'logP' - Profile_Panels3_xaxis_reversed = .true. + show_History_Track_annotation1(:) = .false. + show_History_Track_annotation2(:) = .false. + show_History_Track_annotation3(:) = .false. ! :: - Profile_Panels3_num_panels = 3 - Profile_Panels3_yaxis_name(1) = 'Abundance' - Profile_Panels3_yaxis_name(2) = 'Power' - Profile_Panels3_yaxis_name(3) = 'Mixing' + History_Track_fname(:) = '' ! Enables calling a subroutine to add extra information to a plot ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` ! :: - Profile_Panels3_use_decorator = .false. + History_Track_use_decorator(:) = .false. ! **File output** ! :: - Profile_Panels3_file_flag = .false. - Profile_Panels3_file_dir = 'png' - Profile_Panels3_file_prefix = 'profile_Panels3_' - Profile_Panels3_file_interval = 5 - Profile_Panels3_file_width = -1 - Profile_Panels3_file_aspect_ratio = -1 - - - ! Profile_Panels4 - ! --------------- - - ! :: - - Profile_Panels4_win_flag = .false. - - ! **Window sizing** - ! :: - - Profile_Panels4_win_width = 6 - Profile_Panels4_win_aspect_ratio = 0.75 + History_Track_file_flag(:) = .false. + History_Track_file_dir(:) = 'png' + History_Track_file_prefix(:) = '' + History_Track_file_interval(:) = 5 + History_Track_file_width(:) = -1 + History_Track_file_aspect_ratio(:) = -1 - ! :: + ! set default plots - Profile_Panels4_xleft = 0.15 - Profile_Panels4_xright = 0.85 - Profile_Panels4_ybot = 0.15 - Profile_Panels4_ytop = 0.85 - Profile_Panels4_txt_scale = 1.0 - Profile_Panels4_title = 'Profile Panels4' + ! History_Track(1) + ! ---------------- - ! :: + History_Track_Title(1) = 'History_Track(1)' + History_Track_xname(1) = 'log_center_T' + History_Track_yname(1) = 'log_L' + History_Track_xaxis_label(1) = 'log T\dcenter' + History_Track_yaxis_label(1) = 'log L/L\d\(2281)' + History_Track_reverse_xaxis(1) = .true. + History_Track_file_prefix(1) = 'track1_' - Profile_Panels4_xaxis_name = '' - Profile_Panels4_xaxis_reversed = .false. - Profile_Panels4_xmin = -101d0 - Profile_Panels4_xmax = -101d0 - Profile_Panels4_xmargin = 0d0 - Profile_Panels4_show_mix_regions_on_xaxis = .false. + ! History_Track(2) + ! ---------------- - ! :: + History_Track_file_prefix(2) = 'track2_' - Profile_Panels4_num_panels = 0 + ! History_Track(3) + ! ---------------- - ! :: + History_Track_file_prefix(3) = 'track3_' - Profile_Panels4_yaxis_name(:) = '' - Profile_Panels4_yaxis_reversed(:) = .false. - Profile_Panels4_yaxis_log(:) = .false. - Profile_Panels4_ymin(:) = -101d0 - Profile_Panels4_ymax(:) = -101d0 - Profile_Panels4_ycenter(:) = -101d0 - Profile_Panels4_ymargin(:) = 0.1 - Profile_Panels4_dymin(:) = -1 + ! History_Track(4) + ! ---------------- - ! :: + History_Track_file_prefix(4) = 'track4_' - Profile_Panels4_other_yaxis_name(:) = '' - Profile_Panels4_other_yaxis_reversed(:) = .false. - Profile_Panels4_other_yaxis_log(:) = .false. - Profile_Panels4_other_ymin(:) = -101d0 - Profile_Panels4_other_ymax(:) = -101d0 - Profile_Panels4_other_ycenter(:) = -101d0 - Profile_Panels4_other_ymargin(:) = 0.1 - Profile_Panels4_other_dymin(:) = -1 + ! History_Track(5) + ! ---------------- - ! :: + History_Track_file_prefix(5) = 'track5_' - Profile_Panels4_show_grid = .false. + ! History_Track(6) + ! ---------------- - ! setup default plot + History_Track_file_prefix(6) = 'track6_' - ! :: - Profile_Panels4_win_aspect_ratio = 1.25 - Profile_Panels4_txt_scale = 0.9 - Profile_Panels4_ybot = 0.1 - Profile_Panels4_ytop = 0.9 - Profile_Panels4_title = 'Abundance-Power-Mixing-Dynamo' + ! History_Track(7) + ! ---------------- - ! :: + History_Track_file_prefix(7) = 'track7_' - Profile_Panels4_xaxis_name = 'logP' - Profile_Panels4_xaxis_reversed = .true. + ! History_Track(8) + ! ---------------- - ! :: + History_Track_file_prefix(8) = 'track8_' - Profile_Panels4_num_panels = 4 - Profile_Panels4_yaxis_name(1) = 'Abundance' - Profile_Panels4_yaxis_name(2) = 'Power' - Profile_Panels4_yaxis_name(3) = 'Mixing' - Profile_Panels4_yaxis_name(4) = 'Dynamo' + ! History_Track(9) + ! ---------------- - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` + History_Track_file_prefix(9) = 'track9_' - ! :: - Profile_Panels4_use_decorator = .false. +! History Panels +! ============== - ! **File output** + ! History_Panels(1..9) + ! --------------------- ! :: - Profile_Panels4_file_flag = .false. - Profile_Panels4_file_dir = 'png' - Profile_Panels4_file_prefix = 'profile_Panels4_' - Profile_Panels4_file_interval = 5 - Profile_Panels4_file_width = -1 - Profile_Panels4_file_aspect_ratio = -1 - - - ! Profile_Panels5 - ! --------------- + History_Panels_win_flag(:) = .false. ! :: - Profile_Panels5_win_flag = .false. + History_Panels_win_width(:) = 6 + History_Panels_win_aspect_ratio(:) = 0.75 - ! **Window sizing** ! :: - Profile_Panels5_win_width = 5 - Profile_Panels5_win_aspect_ratio = 0.75 + History_Panels_xleft(:) = 0.15 + History_Panels_xright(:) = 0.85 + History_Panels_ybot(:) = 0.15 + History_Panels_ytop(:) = 0.85 + History_Panels_txt_scale(:) = 1.0 + History_Panels_title(:) = '' ! :: - Profile_Panels5_xleft = 0.15 - Profile_Panels5_xright = 0.85 - Profile_Panels5_ybot = 0.15 - Profile_Panels5_ytop = 0.85 - Profile_Panels5_txt_scale = 1.0 - Profile_Panels5_title = 'Profile Panels5' + History_Panels_xaxis_name(:) = '' + History_Panels_xmin(:) = -101d0 + History_Panels_xmax(:) = -101d0 + History_Panels_max_width(:) = 100 + History_Panels_dxmin(:) = -1 + History_Panels_xaxis_reversed(:) = .false. + History_Panels_xaxis_log(:) = .false. + History_Panels_xmargin(:) = 0.0 + History_Panels_automatic_star_age_units(:) = .false. ! if xaxis_name = 'star_age' ! :: - Profile_Panels5_xaxis_name = '' - Profile_Panels5_xaxis_reversed = .false. - Profile_Panels5_xmin = -101d0 - Profile_Panels5_xmax = -101d0 - Profile_Panels5_xmargin = 0d0 - Profile_Panels5_show_mix_regions_on_xaxis = .false. - - ! :: - - Profile_Panels5_same_yaxis_range(:) = .false. + History_Panels_same_yaxis_range(:, :) = .false. ! :: - Profile_Panels5_num_panels = 0 + History_Panels_yaxis_name(:, :) = '' + History_Panels_yaxis_reversed(:, :) = .false. + History_Panels_yaxis_log(:, :) = .false. + History_Panels_ymin(:, :) = -101d0 + History_Panels_ymax(:, :) = -101d0 + History_Panels_ymargin(:, :) = 0.1 + History_Panels_dymin(:, :) = -1 ! :: - Profile_Panels5_yaxis_name(:) = '' - Profile_Panels5_yaxis_reversed(:) = .false. - Profile_Panels5_yaxis_log(:) = .false. - Profile_Panels5_ymin(:) = -101d0 - Profile_Panels5_ymax(:) = -101d0 - Profile_Panels5_ycenter(:) = -101d0 - Profile_Panels5_ymargin(:) = 0.1 - Profile_Panels5_dymin(:) = -1 + History_Panels_other_yaxis_name(:, :) = '' + History_Panels_other_yaxis_reversed(:, :) = .false. + History_Panels_other_yaxis_log(:, :) = .false. + History_Panels_other_ymin(:, :) = -101d0 + History_Panels_other_ymax(:, :) = -101d0 + History_Panels_other_ymargin(:, :) = 0.1 + History_Panels_other_dymin(:, :) = -1 ! :: - Profile_Panels5_other_yaxis_name(:) = '' - Profile_Panels5_other_yaxis_reversed(:) = .false. - Profile_Panels5_other_yaxis_log(:) = .false. - Profile_Panels5_other_ymin(:) = -101d0 - Profile_Panels5_other_ymax(:) = -101d0 - Profile_Panels5_other_ycenter(:) = -101d0 - Profile_Panels5_other_ymargin(:) = 0.1 - Profile_Panels5_other_dymin(:) = -1 - - ! :: + History_Panels_points_name(:, :) = '' + History_Panels_num_panels = 0 - Profile_Panels5_show_grid = .false. - ! setup default plot + ! Enables caling a subroutine to add extra information to a plot + ! see ``$MES_DIR/star/other/pgstar_decorator.f90`` ! :: - Profile_Panels5_win_aspect_ratio = 1.25 - Profile_Panels5_txt_scale = 0.9 - Profile_Panels5_ybot = 0.1 - Profile_Panels5_ytop = 0.9 - Profile_Panels5_title = 'Summary Profile-Mode Prop-Mixing' - - ! :: + History_Panels_use_decorator(:) = .false. - Profile_Panels5_xaxis_name = 'logP' - Profile_Panels5_xaxis_reversed = .true. + ! **File output** ! :: - Profile_Panels5_num_panels = 3 - Profile_Panels5_yaxis_name(1) = 'Summary_Profile' - Profile_Panels5_yaxis_name(2) = 'Mode_Prop' - Profile_Panels5_yaxis_name(3) = 'Mixing' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` - - ! :: + History_Panels_file_flag(:) = .false. + History_Panels_file_dir(:) = 'png' + History_Panels_file_prefix(:) = '' + History_Panels_file_interval(:) = 5 + History_Panels_file_width(:) = -1 + History_Panels_file_aspect_ratio(:) = -1 - Profile_Panels5_use_decorator = .false. + ! set default plots - ! **File output** + ! History_Panels(1) + ! ----------------- - ! :: + History_Panels_title(1) = 'History_Panels(1)' + History_Panels_xaxis_name(1) = 'model_number' + History_Panels_num_panels(1) = 3 + History_Panels_yaxis_name(1, 1) = 'log_center_T' + History_Panels_other_yaxis_name(1, 1) = 'log_center_Rho' + History_Panels_yaxis_name(1, 2) = 'log_L' + History_Panels_other_yaxis_name(1, 2) = 'log_Teff' + History_Panels_yaxis_name(1, 3) = 'star_mass' + History_Panels_other_yaxis_name(1, 3) = 'log_abs_mdot' + History_Panels_file_prefix(1) = 'History_Panels1_' - Profile_Panels5_file_flag = .false. - Profile_Panels5_file_dir = 'png' - Profile_Panels5_file_prefix = 'profile_Panels5_' - Profile_Panels5_file_interval = 5 - Profile_Panels5_file_width = -1 - Profile_Panels5_file_aspect_ratio = -1 + ! History_Panels(2) + ! ----------------- + History_Panels_file_prefix(2) = 'History_Panels2_' - ! Profile_Panels6 - ! --------------- + ! History_Panels(3) + ! ----------------- - ! :: + History_Panels_file_prefix(3) = 'History_Panels3_' - Profile_Panels6_win_flag = .false. - ! **Window sizing** - ! :: + ! History_Panels(4) + ! ----------------- - Profile_Panels6_win_width = 6 - Profile_Panels6_win_aspect_ratio = 0.75 + History_Panels_file_prefix(4) = 'History_Panels4_' - ! :: - Profile_Panels6_xleft = 0.15 - Profile_Panels6_xright = 0.85 - Profile_Panels6_ybot = 0.15 - Profile_Panels6_ytop = 0.85 - Profile_Panels6_txt_scale = 1.0 - Profile_Panels6_title = 'Profile Panels6' + ! History_Panels(5) + ! ----------------- - ! :: + History_Panels_file_prefix(5) = 'History_Panels5_' - Profile_Panels6_xaxis_name = '' - Profile_Panels6_xaxis_reversed = .false. - Profile_Panels6_xmin = -101d0 - Profile_Panels6_xmax = -101d0 - Profile_Panels6_xmargin = 0d0 - Profile_Panels6_show_mix_regions_on_xaxis = .false. + ! History_Panels(6) + ! ----------------- - ! :: - - Profile_Panels6_same_yaxis_range(:) = .false. + History_Panels_file_prefix(6) = 'History_Panels6_' - ! :: - Profile_Panels6_num_panels = 0 + ! History_Panels(7) + ! ----------------- - ! :: + History_Panels_file_prefix(7) = 'History_Panels7_' - Profile_Panels6_yaxis_name(:) = '' - Profile_Panels6_yaxis_reversed(:) = .false. - Profile_Panels6_yaxis_log(:) = .false. - Profile_Panels6_ymin(:) = -101d0 - Profile_Panels6_ymax(:) = -101d0 - Profile_Panels6_ycenter(:) = -101d0 - Profile_Panels6_ymargin(:) = 0.1 - Profile_Panels6_dymin(:) = -1 + ! History_Panels(8) + ! ----------------- - ! :: + History_Panels_file_prefix(8) = 'History_Panels8_' - Profile_Panels6_other_yaxis_name(:) = '' - Profile_Panels6_other_yaxis_reversed(:) = .false. - Profile_Panels6_other_yaxis_log(:) = .false. - Profile_Panels6_other_ymin(:) = -101d0 - Profile_Panels6_other_ymax(:) = -101d0 - Profile_Panels6_other_ycenter(:) = -101d0 - Profile_Panels6_other_ymargin(:) = 0.1 - Profile_Panels6_other_dymin(:) = -1 - ! :: + ! History_Panels(9) + ! ----------------- - Profile_Panels6_show_grid = .false. + History_Panels_file_prefix(9) = 'History_Panels9_' - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` + ! History_Panel_points_error_bars + ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ + ! History_Panel_points_interval + ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ + ! History_Panel_points_marker + ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~ + ! History_Panel_points_ci + ! ~~~~~~~~~~~~~~~~~~~~~~~ + ! History_Panel_points_lw + ! ~~~~~~~~~~~~~~~~~~~~~~~ + ! History_Panel_points_ch + ! ~~~~~~~~~~~~~~~~~~~~~~~ ! :: - Profile_Panels6_use_decorator = .false. + History_Panel_points_error_bars = .true. + History_Panel_points_interval = 1 + History_Panel_points_marker = 5 + History_Panel_points_ci = 1 + History_Panel_points_lw = 1 + History_Panel_points_ch = 1.0 - ! **File output** +! Color Magnitude Panels +! ====================== - ! :: + ! Plots either color-color, color-magnitude, magnitude-color or magnitude-magnitude - Profile_Panels6_file_flag = .false. - Profile_Panels6_file_dir = 'png' - Profile_Panels6_file_prefix = 'profile_Panels6_' - Profile_Panels6_file_interval = 5 - Profile_Panels6_file_width = -1 - Profile_Panels6_file_aspect_ratio = -1 + ! Color_magnitude(1..9) + ! --------------------- - ! Profile_Panels7 - ! --------------- + Color_magnitude_win_flag(:) = .false. ! :: - Profile_Panels7_win_flag = .false. + Color_magnitude_win_width(:) = 6 + Color_magnitude_win_aspect_ratio(:) = 0.75 - ! **Window sizing** ! :: - Profile_Panels7_win_width = 6 - Profile_Panels7_win_aspect_ratio = 0.75 + Color_magnitude_xleft(:) = 0.15 + Color_magnitude_xright(:) = 0.85 + Color_magnitude_ybot(:) = 0.15 + Color_magnitude_ytop(:) = 0.85 + Color_magnitude_txt_scale(:) = 1.0 + Color_magnitude_title(:) = '' - ! :: - - Profile_Panels7_xleft = 0.15 - Profile_Panels7_xright = 0.85 - Profile_Panels7_ybot = 0.15 - Profile_Panels7_ytop = 0.85 - Profile_Panels7_txt_scale = 1.0 - Profile_Panels7_title = 'Profile Panels7' + ! Plots xaxis1-xaxis2 leave xaxis2 blank if you only want to plot xaxis1. ! :: - Profile_Panels7_xaxis_name = '' - Profile_Panels7_xaxis_reversed = .false. - Profile_Panels7_xmin = -101d0 - Profile_Panels7_xmax = -101d0 - Profile_Panels7_xmargin = 0d0 - Profile_Panels7_show_mix_regions_on_xaxis = .false. + Color_magnitude_xaxis1_name(:) = '' + Color_magnitude_xaxis2_name(:) = '' + Color_magnitude_xmin(:) = -101d0 + Color_magnitude_xmax(:) = -101d0 + Color_magnitude_max_width(:) = 100 + Color_magnitude_dxmin(:) = -1 + Color_magnitude_xaxis_reversed(:) = .false. + Color_magnitude_xaxis_log(:) = .false. - ! :: - - Profile_Panels7_same_yaxis_range(:) = .false. + ! Plots yaxis1-yaxis2 leave yaxis2 blank if you only want to plot yaxis1. ! :: - Profile_Panels7_num_panels = 0 - - ! :: + Color_magnitude_yaxis1_name(:, :) = '' + Color_magnitude_yaxis2_name(:, :) = '' + Color_magnitude_yaxis_reversed(:, :) = .false. + Color_magnitude_yaxis_log(:, :) = .false. + Color_magnitude_ymin(:, :) = -101d0 + Color_magnitude_ymax(:, :) = -101d0 + Color_magnitude_ymargin(:, :) = 0.1 + Color_magnitude_dymin(:, :) = -1 - Profile_Panels7_yaxis_name(:) = '' - Profile_Panels7_yaxis_reversed(:) = .false. - Profile_Panels7_yaxis_log(:) = .false. - Profile_Panels7_ymin(:) = -101d0 - Profile_Panels7_ymax(:) = -101d0 - Profile_Panels7_ycenter(:) = -101d0 - Profile_Panels7_ymargin(:) = 0.1 - Profile_Panels7_dymin(:) = -1 + ! Plots ``other_yaxis1-other_yaxis2`` leave ``other_yaxis2`` blank if you only want to plot ``other_yaxis1``. ! :: - Profile_Panels7_other_yaxis_name(:) = '' - Profile_Panels7_other_yaxis_reversed(:) = .false. - Profile_Panels7_other_yaxis_log(:) = .false. - Profile_Panels7_other_ymin(:) = -101d0 - Profile_Panels7_other_ymax(:) = -101d0 - Profile_Panels7_other_ycenter(:) = -101d0 - Profile_Panels7_other_ymargin(:) = 0.1 - Profile_Panels7_other_dymin(:) = -1 + Color_magnitude_other_yaxis1_name(:, :) = '' + Color_magnitude_other_yaxis2_name(:, :) = '' + Color_magnitude_other_yaxis_reversed(:, :) = .false. + Color_magnitude_other_yaxis_log(:, :) = .false. + Color_magnitude_other_ymin(:, :) = -101d0 + Color_magnitude_other_ymax(:, :) = -101d0 + Color_magnitude_other_ymargin(:, :) = 0.1 + Color_magnitude_other_dymin(:, :) = -1 ! :: - Profile_Panels7_show_grid = .false. + Color_magnitude_num_panels(:) = 0 ! Enables calling a subroutine to add extra information to a plot ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` ! :: - Profile_Panels7_use_decorator = .false. + Color_magnitude_use_decorator(:) = .false. ! **File output** ! :: - Profile_Panels7_file_flag = .false. - Profile_Panels7_file_dir = 'png' - Profile_Panels7_file_prefix = 'profile_Panels7_' - Profile_Panels7_file_interval = 5 - Profile_Panels7_file_width = -1 - Profile_Panels7_file_aspect_ratio = -1 + Color_magnitude_file_flag(:) = .false. + Color_magnitude_file_dir(:) = 'png' + Color_magnitude_file_prefix(:) = '' + Color_magnitude_file_interval(:) = 5 + Color_magnitude_file_width(:) = -1 + Color_magnitude_file_aspect_ratio(:) = -1 + ! Color_Magnitude(1) + ! ------------------ - ! Profile_Panels8 - ! --------------- - - ! :: - - Profile_Panels8_win_flag = .false. + Color_magnitude_file_prefix(1) = 'Color_magnitude1_' - ! **Window sizing** - ! :: + ! Color_Magnitude(2) + ! ------------------ - Profile_Panels8_win_width = 6 - Profile_Panels8_win_aspect_ratio = 0.75 + Color_magnitude_file_prefix(2) = 'Color_magnitude2_' - ! :: + ! Color_Magnitude(3) + ! ------------------ - Profile_Panels8_xleft = 0.15 - Profile_Panels8_xright = 0.85 - Profile_Panels8_ybot = 0.15 - Profile_Panels8_ytop = 0.85 - Profile_Panels8_txt_scale = 1.0 - Profile_Panels8_title = 'Profile Panels8' + Color_magnitude_file_prefix(3) = 'Color_magnitude3_' - ! :: + ! Color_Magnitude(4) + ! ------------------ - Profile_Panels8_xaxis_name = '' - Profile_Panels8_xaxis_reversed = .false. - Profile_Panels8_xmin = -101d0 - Profile_Panels8_xmax = -101d0 - Profile_Panels8_xmargin = 0d0 - Profile_Panels8_show_mix_regions_on_xaxis = .false. + Color_magnitude_file_prefix(4) = 'Color_magnitude4_' - ! :: - - Profile_Panels8_same_yaxis_range(:) = .false. + ! Color_Magnitude(5) + ! ------------------ - ! :: + Color_magnitude_file_prefix(5) = 'Color_magnitude5_' - Profile_Panels8_num_panels = 0 + ! Color_Magnitude(6) + ! ------------------ - ! :: + Color_magnitude_file_prefix(6) = 'Color_magnitude6_' - Profile_Panels8_yaxis_name(:) = '' - Profile_Panels8_yaxis_reversed(:) = .false. - Profile_Panels8_yaxis_log(:) = .false. - Profile_Panels8_ymin(:) = -101d0 - Profile_Panels8_ymax(:) = -101d0 - Profile_Panels8_ycenter(:) = -101d0 - Profile_Panels8_ymargin(:) = 0.1 - Profile_Panels8_dymin(:) = -1 + ! Color_Magnitude(7) + ! ------------------ - ! :: + Color_magnitude_file_prefix(7) = 'Color_magnitude7_' - Profile_Panels8_other_yaxis_name(:) = '' - Profile_Panels8_other_yaxis_reversed(:) = .false. - Profile_Panels8_other_yaxis_log(:) = .false. - Profile_Panels8_other_ymin(:) = -101d0 - Profile_Panels8_other_ymax(:) = -101d0 - Profile_Panels8_other_ycenter(:) = -101d0 - Profile_Panels8_other_ymargin(:) = 0.1 - Profile_Panels8_other_dymin(:) = -1 + ! Color_Magnitude(8) + ! ------------------ - ! :: + Color_magnitude_file_prefix(8) = 'Color_magnitude8_' - Profile_Panels8_show_grid = .false. + ! Color_Magnitude(9) + ! ------------------ - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` + Color_magnitude_file_prefix(9) = 'Color_magnitude9_' - ! :: - Profile_Panels8_use_decorator = .false. +! Text Summary +! ============ - ! **File output** + ! Text_Summary(1..9) + ! ------------------ ! :: - Profile_Panels8_file_flag = .false. - Profile_Panels8_file_dir = 'png' - Profile_Panels8_file_prefix = 'profile_Panels8_' - Profile_Panels8_file_interval = 5 - Profile_Panels8_file_width = -1 - Profile_Panels8_file_aspect_ratio = -1 - - - ! Profile_Panels9 - ! --------------- + Text_Summary_win_flag(:) = .false. + Text_Summary_win_width(:) = 6 + Text_Summary_win_aspect_ratio(:) = 1.5 ! :: - Profile_Panels9_win_flag = .false. + Text_Summary_xleft(:) = 0.02 + Text_Summary_xright(:) = 0.98 + Text_Summary_ybot(:) = 0.08 + Text_Summary_ytop(:) = 0.98 + Text_Summary_txt_scale(:) = 4.5 + Text_Summary_dxval(:) = 0.02 + Text_Summary_title(:) = '' - ! **Window sizing** ! :: - Profile_Panels9_win_width = 6 - Profile_Panels9_win_aspect_ratio = 0.75 + Text_Summary_num_rows(:) = 0 + Text_Summary_num_cols(:) = 0 + Text_Summary_name(:,:,:) = '' + + ! **File output** ! :: - Profile_Panels9_xleft = 0.15 - Profile_Panels9_xright = 0.85 - Profile_Panels9_ybot = 0.15 - Profile_Panels9_ytop = 0.85 - Profile_Panels9_txt_scale = 1.0 - Profile_Panels9_title = 'Profile Panels9' + Text_Summary_file_flag(:) = .false. + Text_Summary_file_dir(:) = 'png' + Text_Summary_file_prefix(:) = '' + Text_Summary_file_interval(:) = 5 + Text_Summary_file_width(:) = -1 + Text_Summary_file_aspect_ratio(:) = -1 - ! :: + ! Text_Summary(1) + ! --------------- - Profile_Panels9_xaxis_name = '' - Profile_Panels9_xaxis_reversed = .false. - Profile_Panels9_xmin = -101d0 - Profile_Panels9_xmax = -101d0 - Profile_Panels9_xmargin = 0d0 - Profile_Panels9_show_mix_regions_on_xaxis = .false. + Text_Summary_win_width(1) = 10 + Text_Summary_win_aspect_ratio(1) = 0.15 + Text_Summary_num_rows = 8 + Text_Summary_num_cols = 4 ! :: - - Profile_Panels9_same_yaxis_range(:) = .false. + + Text_Summary_name(1,1,1) = 'model_number' + Text_Summary_name(1,2,1) = 'log_star_age' + Text_Summary_name(1,3,1) = 'log_dt' + Text_Summary_name(1,4,1) = 'log_L' + Text_Summary_name(1,5,1) = 'log_Teff' + Text_Summary_name(1,6,1) = 'log_R' + Text_Summary_name(1,7,1) = 'log_g' + Text_Summary_name(1,8,1) = 'log_surf_cell_P' ! :: - Profile_Panels9_num_panels = 0 + Text_Summary_name(1,1,2) = 'star_mass' + Text_Summary_name(1,2,2) = 'log_abs_mdot' + Text_Summary_name(1,3,2) = 'he_core_mass' + Text_Summary_name(1,4,2) = 'co_core_mass' + Text_Summary_name(1,5,2) = 'cz_bot_mass' + Text_Summary_name(1,6,2) = 'cz_top_mass' + Text_Summary_name(1,7,2) = 'cz_bot_radius' + Text_Summary_name(1,8,2) = 'cz_top_radius' ! :: - Profile_Panels9_yaxis_name(:) = '' - Profile_Panels9_yaxis_reversed(:) = .false. - Profile_Panels9_yaxis_log(:) = .false. - Profile_Panels9_ymin(:) = -101d0 - Profile_Panels9_ymax(:) = -101d0 - Profile_Panels9_ycenter(:) = -101d0 - Profile_Panels9_ymargin(:) = 0.1 - Profile_Panels9_dymin(:) = -1 + Text_Summary_name(1,1,3) = 'log_cntr_T' + Text_Summary_name(1,2,3) = 'log_cntr_Rho' + Text_Summary_name(1,3,3) = 'log_center_P' + Text_Summary_name(1,4,3) = 'center h1' + Text_Summary_name(1,5,3) = 'center he4' + Text_Summary_name(1,6,3) = 'center c12' + Text_Summary_name(1,7,3) = 'center n14' + Text_Summary_name(1,8,3) = 'center o16' ! :: - Profile_Panels9_other_yaxis_name(:) = '' - Profile_Panels9_other_yaxis_reversed(:) = .false. - Profile_Panels9_other_yaxis_log(:) = .false. - Profile_Panels9_other_ymin(:) = -101d0 - Profile_Panels9_other_ymax(:) = -101d0 - Profile_Panels9_other_ycenter(:) = -101d0 - Profile_Panels9_other_ymargin(:) = 0.1 - Profile_Panels9_other_dymin(:) = -1 + Text_Summary_name(1,1,4) = 'log_Lnuc' + Text_Summary_name(1,2,4) = 'log_Lneu' + Text_Summary_name(1,3,4) = 'log_LH' + Text_Summary_name(1,4,4) = 'log_LHe' + Text_Summary_name(1,5,4) = 'log_LZ' + Text_Summary_name(1,6,4) = 'num_zones' + Text_Summary_name(1,7,4) = 'num_retries' + Text_Summary_name(1,8,4) = '' ! :: - Profile_Panels9_show_grid = .false. + Text_Summary_file_prefix(1) = 'Text_Summary1_' - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` - ! :: + ! Text_Summary(2) + ! --------------- - Profile_Panels9_use_decorator = .false. + Text_Summary_file_prefix(2) = 'Text_Summary2_' - ! **File output** + ! Text_Summary(3) + ! --------------- - ! :: + Text_Summary_file_prefix(3) = 'Text_Summary3_' - Profile_Panels9_file_flag = .false. - Profile_Panels9_file_dir = 'png' - Profile_Panels9_file_prefix = 'profile_Panels9_' - Profile_Panels9_file_interval = 5 - Profile_Panels9_file_width = -1 - Profile_Panels9_file_aspect_ratio = -1 + ! Text_Summary(4) + ! --------------- -! History Tracks -! ============== + Text_Summary_file_prefix(4) = 'Text_Summary4_' + ! Text_Summary(5) + ! --------------- - ! History_Track1 - ! -------------- + Text_Summary_file_prefix(5) = 'Text_Summary5_' - ! :: + ! Text_Summary(6) + ! --------------- - History_Track1_win_flag = .false. - History_Track1_win_width = 6 - History_Track1_win_aspect_ratio = 0.75 + Text_Summary_file_prefix(6) = 'Text_Summary6_' - ! :: + ! Text_Summary(7) + ! --------------- - History_Track1_xleft = 0.15 - History_Track1_xright = 0.85 - History_Track1_ybot = 0.15 - History_Track1_ytop = 0.85 - History_Track1_txt_scale = 1.0 - History_Track1_title = 'History_Track1' + Text_Summary_file_prefix(7) = 'Text_Summary7_' - ! set default + ! Text_Summary(8) + ! --------------- - ! :: + Text_Summary_file_prefix(8) = 'Text_Summary8_' - History_Track1_xname = 'log_center_T' - History_Track1_yname = 'log_L' - History_Track1_xaxis_label = 'log T\dcenter' - History_Track1_yaxis_label = 'log L/L\d\(2281)' - History_Track1_reverse_xaxis = .true. - History_Track1_reverse_yaxis = .false. - History_Track1_log_xaxis = .false. - History_Track1_log_yaxis = .false. + ! Text_Summary(9) + ! --------------- - ! :: + Text_Summary_file_prefix(9) = 'Text_Summary9_' - History_Track1_xmin = -101d0 - History_Track1_xmax = -101d0 - History_Track1_ymin = -101d0 - History_Track1_ymax = -101d0 - ! :: +! Grid +! ==== - History_Track1_xmargin = 0.1 - History_Track1_ymargin = 0.1 - History_Track1_dxmin = -1 - History_Track1_dymin = -1 + ! Grid(1..9) + ! ---------- ! :: - History_Track1_step_min = -1 - History_Track1_step_max = -1 + Grid_win_flag(:) = .false. ! :: - show_History_Track1_target_box = .false. - History_Track1_n_sigma = -3 - History_Track1_xtarget = 0 - History_Track1_xsigma = 0 - History_Track1_ytarget = 0 - History_Track1_ysigma = 0 + Grid_win_width(:) = 6 + Grid_win_aspect_ratio(:) = 1 ! :: - show_History_Track1_annotation1 = .false. - show_History_Track1_annotation2 = .false. - show_History_Track1_annotation3 = .false. + Grid_xleft(:) = 0.12 + Grid_xright(:) = 0.95 + Grid_ybot(:) = 0.08 + Grid_ytop(:) = 0.92 + Grid_title(:) = '' ! :: - History_Track1_fname = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` + Grid_plot_name(:, :) = '' + Grid_plot_row(:, :) = 1 + Grid_plot_rowspan(:, :) = 1 + Grid_plot_col(:, :) = 1 + Grid_plot_colspan(:, :) = 1 + Grid_plot_pad_left(:, :) = 0.0 + Grid_plot_pad_right(:, :) = 0.0 + Grid_plot_pad_top(:, :) = 0.0 + Grid_plot_pad_bot(:, :) = 0.0 + Grid_txt_scale_factor(:, :) = 0.7 - ! :: + ! :: - History_Track1_use_decorator = .false. + Grid_num_cols(:) = 1 + Grid_num_rows(:) = 1 + Grid_num_plots(:) = 0 ! **File output** ! :: - History_Track1_file_flag = .false. - History_Track1_file_dir = 'png' - History_Track1_file_prefix = 'track1_' - History_Track1_file_interval = 5 - History_Track1_file_width = -1 - History_Track1_file_aspect_ratio = -1 + Grid_file_flag(:) = .false. + Grid_file_dir(:) = 'png' + Grid_file_prefix(:) = '' + Grid_file_interval(:) = 5 + Grid_file_width(:) = 9 + Grid_file_aspect_ratio(:) = -1 + ! Grid(1) + ! ------- - ! History_Track2 - ! -------------- + Grid_num_cols(1) = 2 + Grid_num_rows(1) = 8 + Grid_num_plots(1) = 4 ! :: - History_Track2_win_flag = .false. - History_Track2_win_width = 6 - History_Track2_win_aspect_ratio = 0.75 + Grid_plot_name(1, 1) = 'TRho_Profile' + Grid_plot_row(1, 1) = 1 + Grid_plot_rowspan(1, 1) = 4 + Grid_plot_col(1, 1) = 1 + Grid_plot_colspan(1, 1) = 2 + Grid_plot_pad_left(1, 1) = 0.0 + Grid_plot_pad_right(1, 1) = 0.0 + Grid_plot_pad_top(1, 1) = 0.0 + Grid_plot_pad_bot(1, 1) = 0.1 + Grid_txt_scale_factor(1, 1) = 0.7 ! :: - History_Track2_xleft = 0.15 - History_Track2_xright = 0.85 - History_Track2_ybot = 0.15 - History_Track2_ytop = 0.85 - History_Track2_txt_scale = 1.0 - History_Track2_title = 'History_Track2' + Grid_plot_name(1, 2) = 'HR' + Grid_plot_row(1, 2) = 5 + Grid_plot_rowspan(1, 2) = 2 + Grid_plot_col(1, 2) = 1 + Grid_plot_colspan(1, 2) = 1 + Grid_plot_pad_left(1, 2) = 0.03 + Grid_plot_pad_right(1, 2) = 0.07 + Grid_plot_pad_top(1, 2) = 0.03 + Grid_plot_pad_bot(1, 2) = 0.0 + Grid_txt_scale_factor(1, 2) = 0.65 ! :: - History_Track2_xname = '' - History_Track2_yname = '' - History_Track2_xaxis_label = '' - History_Track2_yaxis_label = '' - History_Track2_reverse_xaxis = .false. - History_Track2_reverse_yaxis = .false. - History_Track2_log_xaxis = .false. - History_Track2_log_yaxis = .false. + Grid_plot_name(1, 3) = 'TRho' + Grid_plot_row(1, 3) = 5 + Grid_plot_rowspan(1, 3) = 2 + Grid_plot_col(1, 3) = 2 + Grid_plot_colspan(1, 3) = 1 + Grid_plot_pad_left(1, 3) = 0.07 + Grid_plot_pad_right(1, 3) = 0.03 + Grid_plot_pad_top(1, 3) = 0.03 + Grid_plot_pad_bot(1, 3) = 0.0 + Grid_txt_scale_factor(1, 3) = 0.65 ! :: - History_Track2_xmin = -101d0 - History_Track2_xmax = -101d0 - History_Track2_ymin = -101d0 - History_Track2_ymax = -101d0 + Grid_plot_name(1, 4) = 'Text_Summary(1)' + Grid_plot_row(1, 4) = 7 + Grid_plot_rowspan(1, 4) = 2 + Grid_plot_col(1, 4) = 1 + Grid_plot_colspan(1, 4) = 2 + Grid_plot_pad_left(1, 4) = -0.08 + Grid_plot_pad_right(1, 4) = 0.0 + Grid_plot_pad_top(1, 4) = 0.08 + Grid_plot_pad_bot(1, 4) = -0.05 + Grid_txt_scale_factor(1, 4) = 0.2 - ! :: + Grid_file_prefix(1) = 'grid1_' + + ! Grid(2) + ! ------- - History_Track2_xmargin = 0.1 - History_Track2_ymargin = 0.1 - History_Track2_dxmin = -1 - History_Track2_dymin = -1 + Grid_win_width(2) = 9 + Grid_win_aspect_ratio(2) = 0.6 ! :: - History_Track2_step_min = -1 - History_Track2_step_max = -1 + Grid_num_cols(2) = 4 + Grid_num_rows(2) = 8 + Grid_num_plots(2) = 5 ! :: - show_History_Track2_target_box = .false. - History_Track2_n_sigma = -3 - History_Track2_xtarget = 0 - History_Track2_xsigma = 0 - History_Track2_ytarget = 0 - History_Track2_ysigma = 0 + Grid_plot_name(2, 1) = 'TRho_Profile' + Grid_plot_row(2, 1) = 1 + Grid_plot_rowspan(2, 1) = 4 + Grid_plot_col(2, 1) = 1 + Grid_plot_colspan(2, 1) = 2 + Grid_plot_pad_left(2, 1) = 0.0 + Grid_plot_pad_right(2, 1) = 0.0 + Grid_plot_pad_top(2, 1) = 0.0 + Grid_plot_pad_bot(2, 1) = 0.1 + Grid_txt_scale_factor(2, 1) = 0.7 ! :: - show_History_Track2_annotation1 = .false. - show_History_Track2_annotation2 = .false. - show_History_Track2_annotation3 = .false. + Grid_plot_name(2, 2) = 'HR' + Grid_plot_row(2, 2) = 5 + Grid_plot_rowspan(2, 2) = 2 + Grid_plot_col(2, 2) = 1 + Grid_plot_colspan(2, 2) = 1 + Grid_plot_pad_left(2, 2) = 0.00 + Grid_plot_pad_right(2, 2) = 0.04 + Grid_plot_pad_top(2, 2) = 0.03 + Grid_plot_pad_bot(2, 2) = 0.0 + Grid_txt_scale_factor(2, 2) = 0.65 ! :: - History_Track2_fname = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` + Grid_plot_name(2, 3) = 'TRho' + Grid_plot_row(2, 3) = 5 + Grid_plot_rowspan(2, 3) = 2 + Grid_plot_col(2, 3) = 2 + Grid_plot_colspan(2, 3) = 1 + Grid_plot_pad_left(2, 3) = 0.04 + Grid_plot_pad_right(2, 3) = 0.00 + Grid_plot_pad_top(2, 3) = 0.03 + Grid_plot_pad_bot(2, 3) = 0.0 + Grid_txt_scale_factor(2, 3) = 0.65 ! :: - History_Track2_use_decorator = .false. - - ! **File output** + Grid_plot_name(2, 4) = 'Text_Summary(1)' + Grid_plot_row(2, 4) = 7 + Grid_plot_rowspan(2, 4) = 2 + Grid_plot_col(2, 4) = 1 + Grid_plot_colspan(2, 4) = 4 + Grid_plot_pad_left(2, 4) = -0.08 + Grid_plot_pad_right(2, 4) = 0.0 + Grid_plot_pad_top(2, 4) = 0.08 + Grid_plot_pad_bot(2, 4) = -0.04 + Grid_txt_scale_factor(2, 4) = 0.19 ! :: - History_Track2_file_flag = .false. - History_Track2_file_dir = 'png' - History_Track2_file_prefix = 'track2_' - History_Track2_file_interval = 5 - History_Track2_file_width = -1 - History_Track2_file_aspect_ratio = -1 + Grid_plot_name(2, 5) = 'Abundance' + Grid_plot_row(2, 5) = 1 + Grid_plot_rowspan(2, 5) = 6 + Grid_plot_col(2, 5) = 3 + Grid_plot_colspan(2, 5) = 2 + Grid_plot_pad_left(2, 5) = 0.07 + Grid_plot_pad_right(2, 5) = 0.03 + Grid_plot_pad_top(2, 5) = 0.0 + Grid_plot_pad_bot(2, 5) = 0.0 + Grid_txt_scale_factor(2, 5) = 0.65 + Grid_file_prefix(2) = 'Grid2_' - ! History_Track3 - ! -------------- - ! :: + ! Grid(3) + ! ------- - History_Track3_win_flag = .false. - History_Track3_win_width = 6 - History_Track3_win_aspect_ratio = 0.75 + Grid_num_cols(3) = 1 + Grid_num_rows(3) = 7 + Grid_num_plots(3) = 3 ! :: - History_Track3_xleft = 0.15 - History_Track3_xright = 0.85 - History_Track3_ybot = 0.15 - History_Track3_ytop = 0.85 - History_Track3_txt_scale = 1.0 - History_Track3_title = 'History_Track3' + Grid_plot_name(3, 1) = 'TRho_Profile' + Grid_plot_row(3, 1) = 1 + Grid_plot_rowspan(3, 1) = 3 + Grid_plot_col(3, 1) = 1 + Grid_plot_colspan(3, 1) = 1 + Grid_plot_pad_left(3, 1) = 0.03 + Grid_plot_pad_right(3, 1) = 0.03 + Grid_plot_pad_top(3, 1) = 0.04 + Grid_plot_pad_bot(3, 1) = 0.07 + Grid_txt_scale_factor(3, 1) = 0.7 ! :: - History_Track3_xname = '' - History_Track3_yname = '' - History_Track3_xaxis_label = '' - History_Track3_yaxis_label = '' - History_Track3_reverse_xaxis = .false. - History_Track3_reverse_yaxis = .false. - History_Track3_log_xaxis = .false. - History_Track3_log_yaxis = .false. + Grid_plot_name(3, 2) = 'Summary_Profile' + Grid_plot_row(3, 2) = 4 + Grid_plot_rowspan(3, 2) = 2 + Grid_plot_col(3, 2) = 1 + Grid_plot_colspan(3, 2) = 1 + Grid_plot_pad_left(3, 2) = 0.03 + Grid_plot_pad_right(3, 2) = 0.03 + Grid_plot_pad_top(3, 2) = 0.04 + Grid_plot_pad_bot(3, 2) = 0.07 + Grid_txt_scale_factor(3, 2) = 0.7 + + ! :: + + Grid_plot_name(3, 3) = 'Kipp' + Grid_plot_row(3, 3) = 6 + Grid_plot_rowspan(3, 3) = 2 + Grid_plot_col(3, 3) = 1 + Grid_plot_colspan(3, 3) = 1 + Grid_plot_pad_left(3, 3) = 0.03 + Grid_plot_pad_right(3, 3) = 0.03 + Grid_plot_pad_top(3, 3) = 0.04 + Grid_plot_pad_bot(3, 3) = 0.07 + Grid_txt_scale_factor(3, 3) = 0.7 - ! :: + Grid_file_prefix(3) = 'grid3_' + + ! Grid(4) + ! ------- - History_Track3_xmin = -101d0 - History_Track3_xmax = -101d0 - History_Track3_ymin = -101d0 - History_Track3_ymax = -101d0 + Grid_num_cols(4) = 10 + Grid_num_rows(4) = 9 + Grid_num_plots(4) = 6 ! :: - History_Track3_xmargin = 0.1 - History_Track3_ymargin = 0.1 - History_Track3_dxmin = -1 - History_Track3_dymin = -1 + Grid_plot_name(4, 1) = 'TRho_Profile' + Grid_plot_row(4, 1) = 1 + Grid_plot_rowspan(4, 1) = 3 + Grid_plot_col(4, 1) = 1 + Grid_plot_colspan(4, 1) = 5 + Grid_plot_pad_left(4, 1) = 0.0 + Grid_plot_pad_right(4, 1) = 0.09 + Grid_plot_pad_top(4, 1) = 0.0 + Grid_plot_pad_bot(4, 1) = 0.1 + Grid_txt_scale_factor(4, 1) = 0.7 ! :: - History_Track3_step_min = -1 - History_Track3_step_max = -1 + Grid_plot_name(4, 2) = 'Summary_Profile' + Grid_plot_row(4, 2) = 1 + Grid_plot_rowspan(4, 2) = 3 + Grid_plot_col(4, 2) = 6 + Grid_plot_colspan(4, 2) = 5 + Grid_plot_pad_left(4, 2) = 0.00 + Grid_plot_pad_right(4, 2) = 0.09 + Grid_plot_pad_top(4, 2) = 0.0 + Grid_plot_pad_bot(4, 2) = 0.1 + Grid_txt_scale_factor(4, 2) = 0.7 ! :: - show_History_Track3_target_box = .false. - History_Track3_n_sigma = -3 - History_Track3_xtarget = 0 - History_Track3_xsigma = 0 - History_Track3_ytarget = 0 - History_Track3_ysigma = 0 + Grid_plot_name(4, 3) = 'HR' + Grid_plot_row(4, 3) = 4 + Grid_plot_rowspan(4, 3) = 2 + Grid_plot_col(4, 3) = 1 + Grid_plot_colspan(4, 3) = 2 + Grid_plot_pad_left(4, 3) = 0.0 + Grid_plot_pad_right(4, 3) = 0.01 + Grid_plot_pad_top(4, 3) = 0.03 + Grid_plot_pad_bot(4, 3) = 0.07 + Grid_txt_scale_factor(4, 3) = 0.65 ! :: - show_History_Track3_annotation1 = .false. - show_History_Track3_annotation2 = .false. - show_History_Track3_annotation3 = .false. + Grid_plot_name(4, 4) = 'TRho' + Grid_plot_row(4, 4) = 6 + Grid_plot_rowspan(4, 4) = 2 + Grid_plot_col(4, 4) = 1 + Grid_plot_colspan(4, 4) = 2 + Grid_plot_pad_left(4, 4) = 0.0 + Grid_plot_pad_right(4, 4) = 0.01 + Grid_plot_pad_top(4, 4) = 0.04 + Grid_plot_pad_bot(4, 4) = 0.06 + Grid_txt_scale_factor(4, 4) = 0.65 ! :: - - History_Track3_fname = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` + + Grid_plot_name(4, 5) = 'Kipp' + Grid_plot_row(4, 5) = 4 + Grid_plot_rowspan(4, 5) = 4 + Grid_plot_col(4, 5) = 3 + Grid_plot_colspan(4, 5) = 7 + Grid_plot_pad_left(4, 5) = 0.09 + Grid_plot_pad_right(4, 5) = 0.0 + Grid_plot_pad_top(4, 5) = 0.03 + Grid_plot_pad_bot(4, 5) = 0.06 + Grid_txt_scale_factor(4, 5) = 0.7 ! :: - History_Track3_use_decorator = .false. - - ! **File output** + Grid_plot_name(4, 6) = 'Text_Summary(1)' + Grid_plot_row(4, 6) = 8 + Grid_plot_rowspan(4, 6) = 2 + Grid_plot_col(4, 6) = 1 + Grid_plot_colspan(4, 6) = 10 + Grid_plot_pad_left(4, 6) = -0.08 + Grid_plot_pad_right(4, 6) = 0.0 + Grid_plot_pad_top(4, 6) = 0.03 + Grid_plot_pad_bot(4, 6) = 0.0 + Grid_txt_scale_factor(4, 6) = 0.17 - ! :: + Grid_file_prefix(4) = 'grid4_' - History_Track3_file_flag = .false. - History_Track3_file_dir = 'png' - History_Track3_file_prefix = 'track3_' - History_Track3_file_interval = 5 - History_Track3_file_width = -1 - History_Track3_file_aspect_ratio = -1 + ! Grid5 + ! ----- - ! History_Track4 - ! -------------- + Grid_num_cols(5) = 10 + Grid_num_rows(5) = 7 + Grid_num_plots(5) = 5 ! :: - History_Track4_win_flag = .false. - History_Track4_win_width = 6 - History_Track4_win_aspect_ratio = 0.75 + Grid_plot_name(5, 1) = 'TRho_Profile' + Grid_plot_row(5, 1) = 1 + Grid_plot_rowspan(5, 1) = 3 + Grid_plot_col(5, 1) = 1 + Grid_plot_colspan(5, 1) = 5 + Grid_plot_pad_left(5, 1) = 0.0 + Grid_plot_pad_right(5, 1) = 0.09 + Grid_plot_pad_top(5, 1) = 0.0 + Grid_plot_pad_bot(5, 1) = 0.1 + Grid_txt_scale_factor(5, 1) = 0.7 ! :: - History_Track4_xleft = 0.15 - History_Track4_xright = 0.85 - History_Track4_ybot = 0.15 - History_Track4_ytop = 0.85 - History_Track4_txt_scale = 1.0 - History_Track4_title = 'History_Track4' + Grid_plot_name(5, 2) = 'Summary_Profile' + Grid_plot_row(5, 2) = 1 + Grid_plot_rowspan(5, 2) = 3 + Grid_plot_col(5, 2) = 6 + Grid_plot_colspan(5, 2) = 5 + Grid_plot_pad_left(5, 2) = 0.00 + Grid_plot_pad_right(5, 2) = 0.09 + Grid_plot_pad_top(5, 2) = 0.0 + Grid_plot_pad_bot(5, 2) = 0.1 + Grid_txt_scale_factor(5, 2) = 0.7 ! :: - History_Track4_xname = '' - History_Track4_yname = '' - History_Track4_xaxis_label = '' - History_Track4_yaxis_label = '' - History_Track4_reverse_xaxis = .false. - History_Track4_reverse_yaxis = .false. - History_Track4_log_xaxis = .false. - History_Track4_log_yaxis = .false. + Grid_plot_name(5, 3) = 'HR' + Grid_plot_row(5, 3) = 4 + Grid_plot_rowspan(5, 3) = 2 + Grid_plot_col(5, 3) = 1 + Grid_plot_colspan(5, 3) = 2 + Grid_plot_pad_left(5, 3) = 0.0 + Grid_plot_pad_right(5, 3) = 0.01 + Grid_plot_pad_top(5, 3) = 0.03 + Grid_plot_pad_bot(5, 3) = 0.07 + Grid_txt_scale_factor(5, 3) = 0.65 + + ! :: - ! :: - - History_Track4_xmin = -101d0 - History_Track4_xmax = -101d0 - History_Track4_ymin = -101d0 - History_Track4_ymax = -101d0 + Grid_plot_name(5, 4) = 'TRho' + Grid_plot_row(5, 4) = 6 + Grid_plot_rowspan(5, 4) = 2 + Grid_plot_col(5, 4) = 1 + Grid_plot_colspan(5, 4) = 2 + Grid_plot_pad_left(5, 4) = 0.0 + Grid_plot_pad_right(5, 4) = 0.01 + Grid_plot_pad_top(5, 4) = 0.04 + Grid_plot_pad_bot(5, 4) = 0.06 + Grid_txt_scale_factor(5, 4) = 0.65 ! :: - History_Track4_xmargin = 0.1 - History_Track4_ymargin = 0.1 - History_Track4_dxmin = -1 - History_Track4_dymin = -1 - - ! :: + Grid_plot_name(5, 5) = 'Kipp' + Grid_plot_row(5, 5) = 4 + Grid_plot_rowspan(5, 5) = 4 + Grid_plot_col(5, 5) = 3 + Grid_plot_colspan(5, 5) = 7 + Grid_plot_pad_left(5, 5) = 0.09 + Grid_plot_pad_right(5, 5) = 0.0 + Grid_plot_pad_top(5, 5) = 0.03 + Grid_plot_pad_bot(5, 5) = 0.06 + Grid_txt_scale_factor(5, 5) = 0.7 - History_Track4_step_min = -1 - History_Track4_step_max = -1 + Grid_file_prefix(5) = 'grid5_' - ! :: + ! Grid(6) + ! ------- - show_History_Track4_target_box = .false. - History_Track4_n_sigma = -3 - History_Track4_xtarget = 0 - History_Track4_xsigma = 0 - History_Track4_ytarget = 0 - History_Track4_ysigma = 0 + Grid_num_cols(6) = 3 + Grid_num_rows(6) = 3 + Grid_num_plots(6) = 5 ! :: - show_History_Track4_annotation1 = .false. - show_History_Track4_annotation2 = .false. - show_History_Track4_annotation3 = .false. - + Grid_plot_name(6, 1) = 'Summary_Burn' + Grid_plot_row(6, 1) = 1 + Grid_plot_rowspan(6, 1) = 1 + Grid_plot_col(6, 1) = 2 + Grid_plot_colspan(6, 1) = 2 + Grid_plot_pad_left(6, 1) = 0.03 + Grid_plot_pad_right(6, 1) = 0.06 + Grid_plot_pad_top(6, 1) = 0.0 + Grid_plot_pad_bot(6, 1) = 0.06 + Grid_txt_scale_factor(6, 1) = 0.7 + ! :: - History_Track4_fname = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` + Grid_plot_name(6, 2) = 'Abundance' + Grid_plot_row(6, 2) = 2 + Grid_plot_rowspan(6, 2) = 1 + Grid_plot_col(6, 2) = 2 + Grid_plot_colspan(6, 2) = 2 + Grid_plot_pad_left(6, 2) = 0.03 + Grid_plot_pad_right(6, 2) = 0.06 + Grid_plot_pad_top(6, 2) = 0.06 + Grid_plot_pad_bot(6, 2) = 0.00 + Grid_txt_scale_factor(6, 2) = 0.7 ! :: - History_Track4_use_decorator = .false. - - ! **File output** + Grid_plot_name(6, 3) = 'HR' + Grid_plot_row(6, 3) = 1 + Grid_plot_rowspan(6, 3) = 1 + Grid_plot_col(6, 3) = 1 + Grid_plot_colspan(6, 3) = 1 + Grid_plot_pad_left(6, 3) = 0.00 + Grid_plot_pad_right(6, 3) = 0.09 + Grid_plot_pad_top(6, 3) = 0.00 + Grid_plot_pad_bot(6, 3) = 0.06 + Grid_txt_scale_factor(6, 3) = 0.65 ! :: - History_Track4_file_flag = .false. - History_Track4_file_dir = 'png' - History_Track4_file_prefix = 'track4_' - History_Track4_file_interval = 5 - History_Track4_file_width = -1 - History_Track4_file_aspect_ratio = -1 - - - ! History_Track5 - ! -------------- + Grid_plot_name(6, 4) = 'TRho' + Grid_plot_row(6, 4) = 2 + Grid_plot_rowspan(6, 4) = 1 + Grid_plot_col(6, 4) = 1 + Grid_plot_colspan(6, 4) = 1 + Grid_plot_pad_left(6, 4) = 0.00 + Grid_plot_pad_right(6, 4) = 0.09 + Grid_plot_pad_top(6, 4) = 0.06 + Grid_plot_pad_bot(6, 4) = 0.00 + Grid_txt_scale_factor(6, 4) = 0.65 ! :: - History_Track5_win_flag = .false. - History_Track5_win_width = 6 - History_Track5_win_aspect_ratio = 0.75 + Grid_plot_name(6, 5) = 'Text_Summary(1)' + Grid_plot_row(6, 5) = 3 + Grid_plot_rowspan(6, 5) = 1 + Grid_plot_col(6, 5) = 1 + Grid_plot_colspan(6, 5) = 3 + Grid_plot_pad_left(6, 5) = -0.07 + Grid_plot_pad_right(6, 5) = -0.02 + Grid_plot_pad_top(6, 5) = 0.1 + Grid_plot_pad_bot(6, 5) = 0.00 + Grid_txt_scale_factor(6, 5) = 0.21 - ! :: + Grid_file_prefix(6) = 'grid6_' - History_Track5_xleft = 0.15 - History_Track5_xright = 0.85 - History_Track5_ybot = 0.15 - History_Track5_ytop = 0.85 - History_Track5_txt_scale = 1.0 - History_Track5_title = 'History_Track5' + + ! Grid(7) + ! ------- + + Grid_num_cols(7) = 1 + Grid_num_rows(7) = 3 + Grid_num_plots(7) = 3 ! :: - History_Track5_xname = '' - History_Track5_yname = '' - History_Track5_xaxis_label = '' - History_Track5_yaxis_label = '' - History_Track5_reverse_xaxis = .false. - History_Track5_reverse_yaxis = .false. - History_Track5_log_xaxis = .false. - History_Track5_log_yaxis = .false. + Grid_plot_name(7, 1) = 'Abundance' + Grid_plot_row(7, 1) = 1 + Grid_plot_rowspan(7, 1) = 1 + Grid_plot_col(7, 1) = 1 + Grid_plot_colspan(7, 1) = 1 + Grid_plot_pad_left(7, 1) = 0.03 + Grid_plot_pad_right(7, 1) = 0.08 + Grid_plot_pad_top(7, 1) = 0.00 + Grid_plot_pad_bot(7, 1) = 0.06 + Grid_txt_scale_factor(7, 1) = 0.9 ! :: - History_Track5_xmin = -101d0 - History_Track5_xmax = -101d0 - History_Track5_ymin = -101d0 - History_Track5_ymax = -101d0 - - ! :: + Grid_plot_name(7, 2) = 'TRho' + Grid_plot_row(7, 2) = 2 + Grid_plot_rowspan(7, 2) = 1 + Grid_plot_col(7, 2) = 1 + Grid_plot_colspan(7, 2) = 1 + Grid_plot_pad_left(7, 2) = 0.03 + Grid_plot_pad_right(7, 2) = 0.08 + Grid_plot_pad_top(7, 2) = 0.06 + Grid_plot_pad_bot(7, 2) = 0.00 + Grid_txt_scale_factor(7, 2) = 0.9 + + ! :: + + Grid_plot_name(7, 3) = 'Text_Summary(1)' + Grid_plot_row(7, 3) = 3 + Grid_plot_rowspan(7, 3) = 1 + Grid_plot_col(7, 3) = 1 + Grid_plot_colspan(7, 3) = 1 + Grid_plot_pad_left(7, 3) = -0.08 + Grid_plot_pad_right(7, 3) = 0.0 + Grid_plot_pad_top(7, 3) = 0.1 + Grid_plot_pad_bot(7, 3) = 0.0 + Grid_txt_scale_factor(7, 3) = 0.16 - History_Track5_xmargin = 0.1 - History_Track5_ymargin = 0.1 - History_Track5_dxmin = -1 - History_Track5_dymin = -1 + Grid_file_prefix(7) = 'grid7_' - ! :: + ! Grid(8) + ! ------- - History_Track5_step_min = -1 - History_Track5_step_max = -1 + Grid_num_cols(8) = 3 + Grid_num_rows(8) = 14 + Grid_num_plots(8) = 6 ! :: - show_History_Track5_target_box = .false. - History_Track5_n_sigma = -3 - History_Track5_xtarget = 0 - History_Track5_xsigma = 0 - History_Track5_ytarget = 0 - History_Track5_ysigma = 0 + Grid_plot_name(8, 1) = 'Summary_Burn' + Grid_plot_row(8, 1) = 1 + Grid_plot_rowspan(8, 1) = 4 + Grid_plot_col(8, 1) = 1 + Grid_plot_colspan(8, 1) = 3 + Grid_plot_pad_left(8, 1) = 0.0 + Grid_plot_pad_right(8, 1) = 0.06 + Grid_plot_pad_top(8, 1) = 0.0 + Grid_plot_pad_bot(8, 1) = 0.09 + Grid_txt_scale_factor(8, 1) = 0.7 ! :: - show_History_Track5_annotation1 = .false. - show_History_Track5_annotation2 = .false. - show_History_Track5_annotation3 = .false. + Grid_plot_name(8, 2) = 'Abundance' + Grid_plot_row(8, 2) = 5 + Grid_plot_rowspan(8, 2) = 4 + Grid_plot_col(8, 2) = 1 + Grid_plot_colspan(8, 2) = 3 + Grid_plot_pad_left(8, 2) = 0.0 + Grid_plot_pad_right(8, 2) = 0.06 + Grid_plot_pad_top(8, 2) = 0.0 + Grid_plot_pad_bot(8, 2) = 0.05 + Grid_txt_scale_factor(8, 2) = 0.7 ! :: - History_Track5_fname = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` + Grid_plot_name(8, 3) = 'HR' + Grid_plot_row(8, 3) = 9 + Grid_plot_rowspan(8, 3) = 3 + Grid_plot_col(8, 3) = 1 + Grid_plot_colspan(8, 3) = 1 + Grid_plot_pad_left(8, 3) = 0.00 + Grid_plot_pad_right(8, 3) = 0.1133 + Grid_plot_pad_top(8, 3) = 0.05 + Grid_plot_pad_bot(8, 3) = 0.0 + Grid_txt_scale_factor(8, 3) = 0.65 ! :: - History_Track5_use_decorator = .false. - - ! **File output** + Grid_plot_name(8, 4) = 'TRho' + Grid_plot_row(8, 4) = 9 + Grid_plot_rowspan(8, 4) = 3 + Grid_plot_col(8, 4) = 2 + Grid_plot_colspan(8, 4) = 1 + Grid_plot_pad_left(8, 4) = 0.0267 + Grid_plot_pad_right(8, 4) = 0.0867 + Grid_plot_pad_top(8, 4) = 0.05 + Grid_plot_pad_bot(8, 4) = 0.0 + Grid_txt_scale_factor(8, 4) = 0.65 + + ! :: + + Grid_plot_name(8, 5) = 'TRho_Profile' + Grid_plot_row(8, 5) = 9 + Grid_plot_rowspan(8, 5) = 3 + Grid_plot_col(8, 5) = 3 + Grid_plot_colspan(8, 5) = 1 + Grid_plot_pad_left(8, 5) = 0.0533 + Grid_plot_pad_right(8, 5) = 0.06 + Grid_plot_pad_top(8, 5) = 0.05 + Grid_plot_pad_bot(8, 5) = 0.0 + Grid_txt_scale_factor(8, 5) = 0.7 ! :: - History_Track5_file_flag = .false. - History_Track5_file_dir = 'png' - History_Track5_file_prefix = 'track5_' - History_Track5_file_interval = 5 - History_Track5_file_width = -1 - History_Track5_file_aspect_ratio = -1 - - - ! History_Track6 - ! -------------- + Grid_plot_name(8, 6) = 'Text_Summary(1)' + Grid_plot_row(8, 6) = 12 + Grid_plot_rowspan(8, 6) = 3 + Grid_plot_col(8, 6) = 1 + Grid_plot_colspan(8, 6) = 3 + Grid_plot_pad_left(8, 6) = -0.08 + Grid_plot_pad_right(8, 6) = 0.0 + Grid_plot_pad_top(8, 6) = 0.06 + Grid_plot_pad_bot(8, 6) = 0.0 + Grid_txt_scale_factor(8, 6) = 0.16 + + Grid_file_prefix(8) = 'grid8_' + + + ! Grid(9) + ! ------- + + Grid_num_cols(9) = 3 + Grid_num_rows(9) = 11 + Grid_num_plots(9) = 5 ! :: - History_Track6_win_flag = .false. - History_Track6_win_width = 6 - History_Track6_win_aspect_ratio = 0.75 + Grid_plot_name(9, 1) = 'Abundance' + Grid_plot_row(9, 1) = 1 + Grid_plot_rowspan(9, 1) = 5 + Grid_plot_col(9, 1) = 1 + Grid_plot_colspan(9, 1) = 3 + Grid_plot_pad_left(9, 1) = 0.0 + Grid_plot_pad_right(9, 1) = 0.06 + Grid_plot_pad_top(9, 1) = 0.0 + Grid_plot_pad_bot(9, 1) = 0.09 + Grid_txt_scale_factor(9, 1) = 0.7 - ! :: - - History_Track6_xleft = 0.15 - History_Track6_xright = 0.85 - History_Track6_ybot = 0.15 - History_Track6_ytop = 0.85 - History_Track6_txt_scale = 1.0 - History_Track6_title = 'History_Track6' + ! :: + + Grid_plot_name(9, 2) = 'HR' + Grid_plot_row(9, 2) = 6 + Grid_plot_rowspan(9, 2) = 3 + Grid_plot_col(9, 2) = 1 + Grid_plot_colspan(9, 2) = 1 + Grid_plot_pad_left(9, 2) = 0.00 + Grid_plot_pad_right(9, 2) = 0.1133 + Grid_plot_pad_top(9, 2) = 0.05 + Grid_plot_pad_bot(9, 2) = 0.01 + Grid_txt_scale_factor(9, 2) = 0.65 - ! :: + ! :: + + Grid_plot_name(9, 3) = 'TRho' + Grid_plot_row(9, 3) = 6 + Grid_plot_rowspan(9, 3) = 3 + Grid_plot_col(9, 3) = 2 + Grid_plot_colspan(9, 3) = 1 + Grid_plot_pad_left(9, 3) = 0.0267 + Grid_plot_pad_right(9, 3) = 0.0867 + Grid_plot_pad_top(9, 3) = 0.05 + Grid_plot_pad_bot(9, 3) = 0.01 + Grid_txt_scale_factor(9, 3) = 0.65 - History_Track6_xname = '' - History_Track6_yname = '' - History_Track6_xaxis_label = '' - History_Track6_yaxis_label = '' - History_Track6_reverse_xaxis = .false. - History_Track6_reverse_yaxis = .false. - History_Track6_log_xaxis = .false. - History_Track6_log_yaxis = .false. + ! :: + + Grid_plot_name(9, 4) = 'TRho_Profile' + Grid_plot_row(9, 4) = 6 + Grid_plot_rowspan(9, 4) = 3 + Grid_plot_col(9, 4) = 3 + Grid_plot_colspan(9, 4) = 1 + Grid_plot_pad_left(9, 4) = 0.0533 + Grid_plot_pad_right(9, 4) = 0.06 + Grid_plot_pad_top(9, 4) = 0.05 + Grid_plot_pad_bot(9, 4) = 0.01 + Grid_txt_scale_factor(9, 4) = 0.7 ! :: - History_Track6_xmin = -101d0 - History_Track6_xmax = -101d0 - History_Track6_ymin = -101d0 - History_Track6_ymax = -101d0 - - ! :: - - History_Track6_xmargin = 0.1 - History_Track6_ymargin = 0.1 - History_Track6_dxmin = -1 - History_Track6_dymin = -1 - - ! :: - - History_Track6_step_min = -1 - History_Track6_step_max = -1 - - ! :: - - show_History_Track6_target_box = .false. - History_Track6_n_sigma = -3 - History_Track6_xtarget = 0 - History_Track6_xsigma = 0 - History_Track6_ytarget = 0 - History_Track6_ysigma = 0 - - ! :: - - show_History_Track6_annotation1 = .false. - show_History_Track6_annotation2 = .false. - show_History_Track6_annotation3 = .false. - - ! :: - - History_Track6_fname = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` - - ! :: - - History_Track6_use_decorator = .false. - - ! **File output** - - ! :: - - History_Track6_file_flag = .false. - History_Track6_file_dir = 'png' - History_Track6_file_prefix = 'track6_' - History_Track6_file_interval = 5 - History_Track6_file_width = -1 - History_Track6_file_aspect_ratio = -1 - - - ! History_Track7 - ! -------------- - - ! :: - - History_Track7_win_flag = .false. - History_Track7_win_width = 6 - History_Track7_win_aspect_ratio = 0.75 - - ! :: - - History_Track7_xleft = 0.15 - History_Track7_xright = 0.85 - History_Track7_ybot = 0.15 - History_Track7_ytop = 0.85 - History_Track7_txt_scale = 1.0 - History_Track7_title = 'History_Track7' - - ! :: - - History_Track7_xname = '' - History_Track7_yname = '' - History_Track7_xaxis_label = '' - History_Track7_yaxis_label = '' - History_Track7_reverse_xaxis = .false. - History_Track7_reverse_yaxis = .false. - History_Track7_log_xaxis = .false. - History_Track7_log_yaxis = .false. - - ! :: - - History_Track7_xmin = -101d0 - History_Track7_xmax = -101d0 - History_Track7_ymin = -101d0 - History_Track7_ymax = -101d0 - - ! :: - - History_Track7_xmargin = 0.1 - History_Track7_ymargin = 0.1 - History_Track7_dxmin = -1 - History_Track7_dymin = -1 - - ! :: - - History_Track7_step_min = -1 - History_Track7_step_max = -1 - - ! :: - - show_History_Track7_target_box = .false. - History_Track7_n_sigma = -3 - History_Track7_xtarget = 0 - History_Track7_xsigma = 0 - History_Track7_ytarget = 0 - History_Track7_ysigma = 0 - - ! :: - - show_History_Track7_annotation1 = .false. - show_History_Track7_annotation2 = .false. - show_History_Track7_annotation3 = .false. - - ! :: - - History_Track7_fname = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` - - ! :: - - History_Track7_use_decorator = .false. - - ! **File output** - - ! :: - - History_Track7_file_flag = .false. - History_Track7_file_dir = 'png' - History_Track7_file_prefix = 'track7_' - History_Track7_file_interval = 5 - History_Track7_file_width = -1 - History_Track7_file_aspect_ratio = -1 - - - ! History_Track8 - ! -------------- - - ! :: - - History_Track8_win_flag = .false. - History_Track8_win_width = 6 - History_Track8_win_aspect_ratio = 0.75 - - ! :: - - History_Track8_xleft = 0.15 - History_Track8_xright = 0.85 - History_Track8_ybot = 0.15 - History_Track8_ytop = 0.85 - History_Track8_txt_scale = 1.0 - History_Track8_title = 'History_Track8' - - ! :: - - History_Track8_xname = '' - History_Track8_yname = '' - History_Track8_xaxis_label = '' - History_Track8_yaxis_label = '' - History_Track8_reverse_xaxis = .false. - History_Track8_reverse_yaxis = .false. - History_Track8_log_xaxis = .false. - History_Track8_log_yaxis = .false. - - ! :: - - History_Track8_xmin = -101d0 - History_Track8_xmax = -101d0 - History_Track8_ymin = -101d0 - History_Track8_ymax = -101d0 - - ! :: - - History_Track8_xmargin = 0.1 - History_Track8_ymargin = 0.1 - History_Track8_dxmin = -1 - History_Track8_dymin = -1 - - ! :: - - History_Track8_step_min = -1 - History_Track8_step_max = -1 - - ! :: - - show_History_Track8_target_box = .false. - History_Track8_n_sigma = -3 - History_Track8_xtarget = 0 - History_Track8_xsigma = 0 - History_Track8_ytarget = 0 - History_Track8_ysigma = 0 - - ! :: - - show_History_Track8_annotation1 = .false. - show_History_Track8_annotation2 = .false. - show_History_Track8_annotation3 = .false. - - ! :: - - History_Track8_fname = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` - - ! :: - - History_Track8_use_decorator = .false. - - ! **File output** - - ! :: - - History_Track8_file_flag = .false. - History_Track8_file_dir = 'png' - History_Track8_file_prefix = 'track8_' - History_Track8_file_interval = 5 - History_Track8_file_width = -1 - History_Track8_file_aspect_ratio = -1 - - - ! History_Track9 - ! -------------- - - ! :: - - History_Track9_win_flag = .false. - History_Track9_win_width = 6 - History_Track9_win_aspect_ratio = 0.75 - - ! :: - - History_Track9_xleft = 0.15 - History_Track9_xright = 0.85 - History_Track9_ybot = 0.15 - History_Track9_ytop = 0.85 - History_Track9_txt_scale = 1.0 - History_Track9_title = 'History_Track9' - - ! :: - - History_Track9_xname = '' - History_Track9_yname = '' - History_Track9_xaxis_label = '' - History_Track9_yaxis_label = '' - History_Track9_reverse_xaxis = .false. - History_Track9_reverse_yaxis = .false. - History_Track9_log_xaxis = .false. - History_Track9_log_yaxis = .false. - - ! :: - - History_Track9_xmin = -101d0 - History_Track9_xmax = -101d0 - History_Track9_ymin = -101d0 - History_Track9_ymax = -101d0 - - ! :: - - History_Track9_xmargin = 0.1 - History_Track9_ymargin = 0.1 - History_Track9_dxmin = -1 - History_Track9_dymin = -1 - - ! :: - - History_Track9_step_min = -1 - History_Track9_step_max = -1 - - ! :: - - show_History_Track9_target_box = .false. - History_Track9_n_sigma = -3 - History_Track9_xtarget = 0 - History_Track9_xsigma = 0 - History_Track9_ytarget = 0 - History_Track9_ysigma = 0 - - ! :: - - show_History_Track9_annotation1 = .false. - show_History_Track9_annotation2 = .false. - show_History_Track9_annotation3 = .false. - - ! :: - - History_Track9_fname = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` - - ! :: - - History_Track9_use_decorator = .false. - - ! **File output** - - ! :: - - History_Track9_file_flag = .false. - History_Track9_file_dir = 'png' - History_Track9_file_prefix = 'track9_' - History_Track9_file_interval = 5 - History_Track9_file_width = -1 - History_Track9_file_aspect_ratio = -1 - -! History Panels -! ============== - - - ! History_Panels1 - ! --------------- - - ! :: - - History_Panels1_win_flag = .false. - - ! :: - - History_Panels1_win_width = 6 - History_Panels1_win_aspect_ratio = 0.75 - - ! :: - - History_Panels1_xleft = 0.15 - History_Panels1_xright = 0.85 - History_Panels1_ybot = 0.15 - History_Panels1_ytop = 0.85 - History_Panels1_txt_scale = 1.0 - History_Panels1_title = 'History_Panels1' - - ! :: - - History_Panels1_xaxis_name = 'model_number' - History_Panels1_xmin = -101d0 - History_Panels1_xmax = -101d0 - History_Panels1_max_width = 100 - History_Panels1_dxmin = -1 - History_Panels1_xaxis_reversed = .false. - History_Panels1_xaxis_log = .false. - History_Panels1_xmargin = 0.0 - History_Panels1_automatic_star_age_units = .false. ! if xaxis_name = 'star_age' - - ! :: - - History_Panels1_same_yaxis_range(:) = .false. - - ! :: - - History_Panels1_yaxis_name(:) = '' - History_Panels1_yaxis_reversed(:) = .false. - History_Panels1_yaxis_log(:) = .false. - History_Panels1_ymin(:) = -101d0 - History_Panels1_ymax(:) = -101d0 - History_Panels1_ymargin(:) = 0.1 - History_Panels1_dymin(:) = -1 - - ! :: - - History_Panels1_other_yaxis_name(:) = '' - History_Panels1_other_yaxis_reversed(:) = .false. - History_Panels1_other_yaxis_log(:) = .false. - History_Panels1_other_ymin(:) = -101d0 - History_Panels1_other_ymax(:) = -101d0 - History_Panels1_other_ymargin(:) = 0.1 - History_Panels1_other_dymin(:) = -1 - - ! :: - - History_Panels1_points_name(:) = '' - - ! setup default - - ! :: - - History_Panels1_num_panels = 3 - - ! :: - - History_Panels1_yaxis_name(1) = 'log_center_T' - History_Panels1_yaxis_reversed(1) = .false. - History_Panels1_ymin(1) = -101d0 - History_Panels1_ymax(1) = -101d0 - History_Panels1_dymin(1) = -1 - - ! :: - - History_Panels1_other_yaxis_name(1) = 'log_center_Rho' - History_Panels1_other_yaxis_reversed(1) = .false. - History_Panels1_other_ymin(1) = -101d0 - History_Panels1_other_ymax(1) = -101d0 - History_Panels1_other_dymin(1) = -1 - - ! :: - - History_Panels1_yaxis_name(2) = 'log_L' - History_Panels1_yaxis_reversed(2) = .false. - History_Panels1_ymin(2) = -101d0 - History_Panels1_ymax(2) = -101d0 - History_Panels1_dymin(2) = -1 - - ! :: - - History_Panels1_other_yaxis_name(2) = 'log_Teff' - History_Panels1_other_yaxis_reversed(2) = .false. - History_Panels1_other_ymin(2) = -101d0 - History_Panels1_other_ymax(2) = -101d0 - History_Panels1_other_dymin(2) = -1 - - ! :: - - History_Panels1_yaxis_name(3) = 'star_mass' - History_Panels1_yaxis_reversed(3) = .false. - History_Panels1_ymin(3) = -101d0 - History_Panels1_ymax(3) = -101d0 - History_Panels1_dymin(3) = -1 - - ! :: - - History_Panels1_other_yaxis_name(3) = 'log_abs_mdot' - History_Panels1_other_yaxis_reversed(3) = .false. - History_Panels1_other_ymin(3) = -101d0 - History_Panels1_other_ymax(3) = -101d0 - History_Panels1_other_dymin(3) = -1 - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` - - ! :: - - History_Panels1_use_decorator = .false. - - ! **File output** - - ! :: - - History_Panels1_file_flag = .false. - History_Panels1_file_dir = 'png' - History_Panels1_file_prefix = 'History_Panels1_' - History_Panels1_file_interval = 5 - History_Panels1_file_width = -1 - History_Panels1_file_aspect_ratio = -1 - - - ! History_Panels2 - ! --------------- - - ! :: - - History_Panels2_win_flag = .false. - - ! :: - - History_Panels2_win_width = 6 - History_Panels2_win_aspect_ratio = 0.75 - - ! :: - - History_Panels2_xleft = 0.15 - History_Panels2_xright = 0.85 - History_Panels2_ybot = 0.15 - History_Panels2_ytop = 0.85 - History_Panels2_txt_scale = 1.0 - History_Panels2_title = 'History_Panels2' - - ! :: - - History_Panels2_xaxis_name = 'model_number' - History_Panels2_xmin = -101d0 - History_Panels2_xmax = -101d0 - History_Panels2_max_width = 100 - History_Panels2_dxmin = -1 - History_Panels2_xaxis_reversed = .false. - History_Panels2_xaxis_log = .false. - History_Panels2_xmargin = 0.0 - History_Panels2_automatic_star_age_units = .false. ! if xaxis_name = 'star_age' - - ! :: - - History_Panels2_same_yaxis_range(:) = .false. - - ! :: - - History_Panels2_num_panels = 0 - - ! :: - - History_Panels2_yaxis_name(:) = '' - History_Panels2_yaxis_reversed(:) = .false. - History_Panels2_yaxis_log(:) = .false. - History_Panels2_ymin(:) = -101d0 - History_Panels2_ymax(:) = -101d0 - History_Panels2_ymargin(:) = 0.1 - History_Panels2_dymin(:) = -1 - - ! :: - - History_Panels2_other_yaxis_name(:) = '' - History_Panels2_other_yaxis_reversed(:) = .false. - History_Panels2_other_yaxis_log(:) = .false. - History_Panels2_other_ymin(:) = -101d0 - History_Panels2_other_ymax(:) = -101d0 - History_Panels2_other_ymargin(:) = 0.1 - History_Panels2_other_dymin(:) = -1 - - ! :: - - History_Panels2_points_name(:) = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` - - ! :: - - History_Panels2_use_decorator = .false. - - ! **File output** - - ! :: - - History_Panels2_file_flag = .false. - History_Panels2_file_dir = 'png' - History_Panels2_file_prefix = 'History_Panels2_' - History_Panels2_file_interval = 5 - History_Panels2_file_width = -1 - History_Panels2_file_aspect_ratio = -1 - - - ! History_Panels3 - ! --------------- - - ! :: - - History_Panels3_win_flag = .false. - - ! :: - - History_Panels3_win_width = 6 - History_Panels3_win_aspect_ratio = 0.75 - - ! :: - - History_Panels3_xleft = 0.15 - History_Panels3_xright = 0.85 - History_Panels3_ybot = 0.15 - History_Panels3_ytop = 0.85 - History_Panels3_txt_scale = 1.0 - History_Panels3_title = 'History_Panels3' - - ! :: - - History_Panels3_xaxis_name = 'model_number' - History_Panels3_xmin = -101d0 - History_Panels3_xmax = -101d0 - History_Panels3_max_width = 100 - History_Panels3_dxmin = -1 - History_Panels3_xaxis_reversed = .false. - History_Panels3_xaxis_log = .false. - History_Panels3_xmargin = 0.0 - History_Panels3_automatic_star_age_units = .false. ! if xaxis_name = 'star_age' - - ! :: - - History_Panels3_same_yaxis_range(:) = .false. - - ! :: - - History_Panels3_num_panels = 0 - - ! :: - - History_Panels3_yaxis_name(:) = '' - History_Panels3_yaxis_reversed(:) = .false. - History_Panels3_yaxis_log(:) = .false. - History_Panels3_ymin(:) = -101d0 - History_Panels3_ymax(:) = -101d0 - History_Panels3_ymargin(:) = 0.1 - History_Panels3_dymin(:) = -1 - - ! :: - - History_Panels3_other_yaxis_name(:) = '' - History_Panels3_other_yaxis_reversed(:) = .false. - History_Panels3_other_yaxis_log(:) = .false. - History_Panels3_other_ymin(:) = -101d0 - History_Panels3_other_ymax(:) = -101d0 - History_Panels3_other_ymargin(:) = 0.1 - History_Panels3_other_dymin(:) = -1 - - ! :: - - History_Panels3_points_name(:) = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` - - ! :: - - History_Panels3_use_decorator = .false. - - ! **File output** - - ! :: - - History_Panels3_file_flag = .false. - History_Panels3_file_dir = 'png' - History_Panels3_file_prefix = 'History_Panels3_' - History_Panels3_file_interval = 5 - History_Panels3_file_width = -1 - History_Panels3_file_aspect_ratio = -1 - - - ! History_Panels4 - ! --------------- - - ! :: - - History_Panels4_win_flag = .false. - - ! :: - - History_Panels4_win_width = 6 - History_Panels4_win_aspect_ratio = 0.75 - - ! :: - - History_Panels4_xleft = 0.15 - History_Panels4_xright = 0.85 - History_Panels4_ybot = 0.15 - History_Panels4_ytop = 0.85 - History_Panels4_txt_scale = 1.0 - History_Panels4_title = 'History_Panels4' - - ! :: - - History_Panels4_xaxis_name = 'model_number' - History_Panels4_xmin = -101d0 - History_Panels4_xmax = -101d0 - History_Panels4_max_width = 100 - History_Panels4_dxmin = -1 - History_Panels4_xaxis_reversed = .false. - History_Panels4_xaxis_log = .false. - - ! :: - - History_Panels4_num_panels = 0 - - ! :: - - History_Panels4_yaxis_name(:) = '' - History_Panels4_yaxis_reversed(:) = .false. - History_Panels4_yaxis_log(:) = .false. - History_Panels4_ymin(:) = -101d0 - History_Panels4_ymax(:) = -101d0 - History_Panels4_ymargin(:) = 0.1 - History_Panels4_dymin(:) = -1 - History_Panels4_xmargin = 0.0 - History_Panels4_automatic_star_age_units = .false. ! if xaxis_name = 'star_age' - - ! :: - - History_Panels4_same_yaxis_range(:) = .false. - - ! :: - - History_Panels4_other_yaxis_name(:) = '' - History_Panels4_other_yaxis_reversed(:) = .false. - History_Panels4_other_yaxis_log(:) = .false. - History_Panels4_other_ymin(:) = -101d0 - History_Panels4_other_ymax(:) = -101d0 - History_Panels4_other_ymargin(:) = 0.1 - History_Panels4_other_dymin(:) = -1 - - ! :: - - History_Panels4_points_name(:) = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` - - ! :: - - History_Panels4_use_decorator = .false. - - ! **File output** - - ! :: - - History_Panels4_file_flag = .false. - History_Panels4_file_dir = 'png' - History_Panels4_file_prefix = 'History_Panels4_' - History_Panels4_file_interval = 5 - History_Panels4_file_width = -1 - History_Panels4_file_aspect_ratio = -1 - - - ! History_Panels5 - ! --------------- - - ! :: - - History_Panels5_win_flag = .false. - - ! :: - - History_Panels5_win_width = 6 - History_Panels5_win_aspect_ratio = 0.75 - - ! :: - - History_Panels5_xleft = 0.15 - History_Panels5_xright = 0.85 - History_Panels5_ybot = 0.15 - History_Panels5_ytop = 0.85 - History_Panels5_txt_scale = 1.0 - History_Panels5_title = 'History_Panels5' - - ! :: - - History_Panels5_xaxis_name = 'model_number' - History_Panels5_xmin = -101d0 - History_Panels5_xmax = -101d0 - History_Panels5_max_width = 100 - History_Panels5_dxmin = -1 - History_Panels5_xaxis_reversed = .false. - History_Panels5_xaxis_log = .false. - History_Panels5_xmargin = 0.0 - History_Panels5_automatic_star_age_units = .false. ! if xaxis_name = 'star_age' - - ! :: - - History_Panels5_same_yaxis_range(:) = .false. - - ! :: - - History_Panels5_num_panels = 0 - - ! :: - - History_Panels5_yaxis_name(1) = 'num_zones' - History_Panels5_yaxis_reversed(1) = .false. - History_Panels5_ymin(1) = -101d0 - History_Panels5_ymax(1) = -101d0 - History_Panels5_dymin(1) = -1 - - ! :: - - History_Panels5_yaxis_name(:) = '' - History_Panels5_yaxis_reversed(:) = .false. - History_Panels5_yaxis_log(:) = .false. - History_Panels5_ymin(:) = -101d0 - History_Panels5_ymax(:) = -101d0 - History_Panels5_ymargin(:) = 0.1 - History_Panels5_dymin(:) = -1 - - ! :: - - History_Panels5_other_yaxis_name(:) = '' - History_Panels5_other_yaxis_reversed(:) = .false. - History_Panels6_other_yaxis_log(:) = .false. - History_Panels5_other_ymin(:) = -101d0 - History_Panels5_other_ymax(:) = -101d0 - History_Panels5_other_ymargin(:) = 0.1 - History_Panels5_other_dymin(:) = -1 - - ! :: - - History_Panels5_points_name(:) = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` - - ! :: - - History_Panels5_use_decorator = .false. - - ! **File output** - - ! :: - - History_Panels5_file_flag = .false. - History_Panels5_file_dir = 'png' - History_Panels5_file_prefix = 'History_Panels5_' - History_Panels5_file_interval = 5 - History_Panels5_file_width = -1 - History_Panels5_file_aspect_ratio = -1 - - ! History_Panels6 - - ! :: - - History_Panels6_win_flag = .false. - - ! :: - - History_Panels6_win_width = 6 - History_Panels6_win_aspect_ratio = 0.75 - - ! :: - - History_Panels6_xleft = 0.15 - History_Panels6_xright = 0.85 - History_Panels6_ybot = 0.15 - History_Panels6_ytop = 0.85 - History_Panels6_txt_scale = 1.0 - History_Panels6_title = 'History_Panels6' - - ! :: - - History_Panels6_xaxis_name = 'model_number' - History_Panels6_xmin = -101d0 - History_Panels6_xmax = -101d0 - History_Panels6_max_width = 100 - History_Panels6_dxmin = -1 - History_Panels6_xaxis_reversed = .false. - History_Panels6_xaxis_log = .false. - History_Panels6_xmargin = 0.0 - History_Panels6_automatic_star_age_units = .false. ! if xaxis_name = 'star_age' - - ! :: - - History_Panels6_same_yaxis_range(:) = .false. - - ! :: - - History_Panels6_num_panels = 0 - - ! :: - - History_Panels6_yaxis_name(:) = '' - History_Panels6_yaxis_reversed(:) = .false. - History_Panels6_yaxis_log(:) = .false. - History_Panels6_ymin(:) = -101d0 - History_Panels6_ymax(:) = -101d0 - History_Panels6_ymargin(:) = 0.1 - History_Panels6_dymin(:) = -1 - - ! :: - - History_Panels6_other_yaxis_name(:) = '' - History_Panels6_other_yaxis_reversed(:) = .false. - History_Panels6_other_yaxis_log(:) = .false. - History_Panels6_other_ymin(:) = -101d0 - History_Panels6_other_ymax(:) = -101d0 - History_Panels6_other_ymargin(:) = 0.1 - History_Panels6_other_dymin(:) = -1 - - ! :: - - History_Panels6_points_name(:) = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` - - ! :: - - History_Panels6_use_decorator = .false. - - ! **File output** - - ! :: - - History_Panels6_file_flag = .false. - History_Panels6_file_dir = 'png' - History_Panels6_file_prefix = 'History_Panels6_' - History_Panels6_file_interval = 5 - History_Panels6_file_width = -1 - History_Panels6_file_aspect_ratio = -1 - - - ! History_Panels7 - ! --------------- - - ! :: - - History_Panels7_win_flag = .false. - - ! :: - - History_Panels7_win_width = 6 - History_Panels7_win_aspect_ratio = 0.75 - - ! :: - - History_Panels7_xleft = 0.15 - History_Panels7_xright = 0.85 - History_Panels7_ybot = 0.15 - History_Panels7_ytop = 0.85 - History_Panels7_txt_scale = 1.0 - History_Panels7_title = 'History_Panels7' - - ! :: - - History_Panels7_xaxis_name = 'model_number' - History_Panels7_xmin = -101d0 - History_Panels7_xmax = -101d0 - History_Panels7_max_width = 100 - History_Panels7_dxmin = -1 - History_Panels7_xaxis_reversed = .false. - History_Panels7_xaxis_log = .false. - History_Panels7_xmargin = 0.0 - History_Panels7_automatic_star_age_units = .false. ! if xaxis_name = 'star_age' - - ! :: - - History_Panels7_same_yaxis_range(:) = .false. - - ! :: - - History_Panels7_num_panels = 0 - - ! :: - - History_Panels7_yaxis_name(:) = '' - History_Panels7_yaxis_reversed(:) = .false. - History_Panels7_yaxis_log(:) = .false. - History_Panels7_ymin(:) = -101d0 - History_Panels7_ymax(:) = -101d0 - History_Panels7_ymargin(:) = 0.1 - History_Panels7_dymin(:) = -1 - - ! :: - - History_Panels7_other_yaxis_name(:) = '' - History_Panels7_other_yaxis_reversed(:) = .false. - History_Panels7_other_yaxis_log(:) = .false. - History_Panels7_other_ymin(:) = -101d0 - History_Panels7_other_ymax(:) = -101d0 - History_Panels7_other_ymargin(:) = 0.1 - History_Panels7_other_dymin(:) = -1 - - ! :: - - History_Panels7_points_name(:) = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` - - ! :: - - History_Panels7_use_decorator = .false. - - ! **File output** - - ! :: - - History_Panels7_file_flag = .false. - History_Panels7_file_dir = 'png' - History_Panels7_file_prefix = 'History_Panels7_' - History_Panels7_file_interval = 5 - History_Panels7_file_width = -1 - History_Panels7_file_aspect_ratio = -1 - - - ! History_Panels8 - ! --------------- - - ! :: - - History_Panels8_win_flag = .false. - - ! :: - - History_Panels8_win_width = 6 - History_Panels8_win_aspect_ratio = 0.75 - - ! :: - - History_Panels8_xleft = 0.15 - History_Panels8_xright = 0.85 - History_Panels8_ybot = 0.15 - History_Panels8_ytop = 0.85 - History_Panels8_txt_scale = 1.0 - History_Panels8_title = 'History_Panels8' - - ! :: - - History_Panels8_xaxis_name = 'model_number' - History_Panels8_xmin = -101d0 - History_Panels8_xmax = -101d0 - History_Panels8_max_width = 100 - History_Panels8_dxmin = -1 - History_Panels8_xaxis_reversed = .false. - History_Panels8_xaxis_log = .false. - History_Panels8_xmargin = 0.0 - History_Panels8_automatic_star_age_units = .false. ! if xaxis_name = 'star_age' - - ! :: - - History_Panels8_same_yaxis_range(:) = .false. - - ! :: - - History_Panels8_num_panels = 0 - - ! :: - - History_Panels8_yaxis_name(:) = '' - History_Panels8_yaxis_reversed(:) = .false. - History_Panels8_yaxis_log(:) = .false. - History_Panels8_ymin(:) = -101d0 - History_Panels8_ymax(:) = -101d0 - History_Panels8_ymargin(:) = 0.1 - History_Panels8_dymin(:) = -1 - - ! :: - - History_Panels8_other_yaxis_name(:) = '' - History_Panels8_other_yaxis_reversed(:) = .false. - History_Panels8_other_yaxis_log(:) = .false. - History_Panels8_other_ymin(:) = -101d0 - History_Panels8_other_ymax(:) = -101d0 - History_Panels8_other_ymargin(:) = 0.1 - History_Panels8_other_dymin(:) = -1 - - ! :: - - History_Panels8_points_name(:) = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` - - ! :: - - History_Panels8_use_decorator = .false. - - ! **File output** - - ! :: - - History_Panels8_file_flag = .false. - History_Panels8_file_dir = 'png' - History_Panels8_file_prefix = 'History_Panels8_' - History_Panels8_file_interval = 5 - History_Panels8_file_width = -1 - History_Panels8_file_aspect_ratio = -1 - - - ! History_Panels9 - ! --------------- - - ! :: - - History_Panels9_win_flag = .false. - - ! :: - - History_Panels9_win_width = 6 - History_Panels9_win_aspect_ratio = 0.75 - - ! :: - - History_Panels9_xleft = 0.15 - History_Panels9_xright = 0.85 - History_Panels9_ybot = 0.15 - History_Panels9_ytop = 0.85 - History_Panels9_txt_scale = 1.0 - History_Panels9_title = 'History_Panels9' - - ! :: - - History_Panels9_xaxis_name = 'model_number' - History_Panels9_xmin = -101d0 - History_Panels9_xmax = -101d0 - History_Panels9_max_width = 100 - History_Panels9_dxmin = -1 - History_Panels9_xaxis_reversed = .false. - History_Panels9_xaxis_log = .false. - History_Panels9_xmargin = 0.0 - History_Panels9_automatic_star_age_units = .false. ! if xaxis_name = 'star_age' - - ! :: - - History_Panels9_same_yaxis_range(:) = .false. - - ! :: - - History_Panels9_num_panels = 0 - - ! :: - - History_Panels9_yaxis_name(1) = 'num_zones' - History_Panels9_yaxis_reversed(1) = .false. - History_Panels9_ymin(1) = -101d0 - History_Panels9_ymax(1) = -101d0 - History_Panels9_dymin(1) = -1 - - ! :: - - History_Panels9_yaxis_name(:) = '' - History_Panels9_yaxis_reversed(:) = .false. - History_Panels9_yaxis_log(:) = .false. - History_Panels9_ymin(:) = -101d0 - History_Panels9_ymax(:) = -101d0 - History_Panels9_ymargin(:) = 0.1 - History_Panels9_dymin(:) = -1 - - ! :: - - History_Panels9_other_yaxis_name(:) = '' - History_Panels9_other_yaxis_reversed(:) = .false. - History_Panels9_other_yaxis_log(:) = .false. - History_Panels9_other_ymin(:) = -101d0 - History_Panels9_other_ymax(:) = -101d0 - History_Panels9_other_ymargin(:) = 0.1 - History_Panels9_other_dymin(:) = -1 - - ! :: - - History_Panels9_points_name(:) = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` - - ! :: - - History_Panels9_use_decorator = .false. - - ! **File output** - - ! :: - - History_Panels9_file_flag = .false. - History_Panels9_file_dir = 'png' - History_Panels9_file_prefix = 'History_Panels9_' - History_Panels9_file_interval = 5 - History_Panels9_file_width = -1 - History_Panels9_file_aspect_ratio = -1 - - - ! History_Panel_points_error_bars - ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ! History_Panel_points_interval - ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ! History_Panel_points_marker - ! ~~~~~~~~~~~~~~~~~~~~~~~~~~~ - ! History_Panel_points_ci - ! ~~~~~~~~~~~~~~~~~~~~~~~ - ! History_Panel_points_lw - ! ~~~~~~~~~~~~~~~~~~~~~~~ - ! History_Panel_points_ch - ! ~~~~~~~~~~~~~~~~~~~~~~~ - - ! :: - - History_Panel_points_error_bars = .true. - History_Panel_points_interval = 1 - History_Panel_points_marker = 5 - History_Panel_points_ci = 1 - History_Panel_points_lw = 1 - History_Panel_points_ch = 1.0 - -! Color Magnitude Panels -! ====================== - - ! Plots either color-color, color-magnitude, magnitude-color or magnitude-magnitude - - - ! Color_magnitude1 - ! ---------------- - - ! :: - - Color_magnitude1_win_flag = .false. - - ! :: - - Color_magnitude1_win_width = 6 - Color_magnitude1_win_aspect_ratio = 0.75 - - ! :: - - Color_magnitude1_xleft = 0.15 - Color_magnitude1_xright = 0.85 - Color_magnitude1_ybot = 0.15 - Color_magnitude1_ytop = 0.85 - Color_magnitude1_txt_scale = 1.0 - Color_magnitude1_title = 'Color_magnitude1' - - ! Plots xaxis1-xaxis2 leave xaxis2 blank if you only want to plot xaxis1. - - ! :: - - Color_magnitude1_xaxis1_name = '' - Color_magnitude1_xaxis2_name = '' - Color_magnitude1_xmin = -101d0 - Color_magnitude1_xmax = -101d0 - Color_magnitude1_max_width = 100 - Color_magnitude1_dxmin = -1 - Color_magnitude1_xaxis_reversed = .false. - Color_magnitude1_xaxis_log = .false. - - ! Plots yaxis1-yaxis2 leave yaxis2 blank if you only want to plot yaxis1. - - ! :: - - Color_magnitude1_yaxis1_name(:) = '' - Color_magnitude1_yaxis2_name(:) = '' - Color_magnitude1_yaxis_reversed(:) = .false. - Color_magnitude1_yaxis_log(:) = .false. - Color_magnitude1_ymin(:) = -101d0 - Color_magnitude1_ymax(:) = -101d0 - Color_magnitude1_ymargin(:) = 0.1 - Color_magnitude1_dymin(:) = -1 - - ! Plots ``other_yaxis1-other_yaxis2`` leave ``other_yaxis2`` blank if you only want to plot ``other_yaxis1``. - - ! :: - - Color_magnitude1_other_yaxis1_name(:) = '' - Color_magnitude1_other_yaxis2_name(:) = '' - Color_magnitude1_other_yaxis_reversed(:) = .false. - Color_magnitude1_other_yaxis_log(:) = .false. - Color_magnitude1_other_ymin(:) = -101d0 - Color_magnitude1_other_ymax(:) = -101d0 - Color_magnitude1_other_ymargin(:) = 0.1 - Color_magnitude1_other_dymin(:) = -1 - - ! setup default - - ! :: - - Color_magnitude1_num_panels = 0 - - ! Plots xaxis1-xaxis2 leave xaxis2 blank if you only want to plot xaxis1. - - ! :: - - Color_magnitude1_xaxis1_name = '' - Color_magnitude1_xaxis2_name = '' - Color_magnitude1_xmin = -101d0 - Color_magnitude1_xmax = -101d0 - Color_magnitude1_max_width = 100 - Color_magnitude1_dxmin = -1 - Color_magnitude1_xaxis_reversed = .false. - Color_magnitude1_xaxis_log = .false. - - ! Plots yaxis1-yaxis2 leave yaxis2 blank if you only want to plot yaxis1. - - ! :: - - Color_magnitude1_yaxis1_name(:) = '' - Color_magnitude1_yaxis2_name(:) = '' - Color_magnitude1_yaxis_reversed(:) = .false. - Color_magnitude1_yaxis_log(:) = .false. - Color_magnitude1_ymin(:) = -101d0 - Color_magnitude1_ymax(:) = -101d0 - Color_magnitude1_ymargin(:) = 0.1 - Color_magnitude1_dymin(:) = -1 - - ! Plots ``other_yaxis1-other_yaxis2`` leave ``other_yaxis2`` blank if you only want to plot ``other_yaxis1``. - - ! :: - - Color_magnitude1_other_yaxis1_name(:) = '' - Color_magnitude1_other_yaxis2_name(:) = '' - Color_magnitude1_other_yaxis_reversed(:) = .false. - Color_magnitude1_other_yaxis_log(:) = .false. - Color_magnitude1_other_ymin(:) = -101d0 - Color_magnitude1_other_ymax(:) = -101d0 - Color_magnitude1_other_ymargin(:) = 0.1 - Color_magnitude1_other_dymin(:) = -1 - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` - - ! :: - - Color_magnitude1_use_decorator = .false. - - ! **File output** - - ! :: - - Color_magnitude1_file_flag = .false. - Color_magnitude1_file_dir = 'png' - Color_magnitude1_file_prefix = 'Color_magnitude1_' - Color_magnitude1_file_interval = 5 - Color_magnitude1_file_width = -1 - Color_magnitude1_file_aspect_ratio = -1 - - - ! Color_magnitude2 - ! ---------------- - - ! :: - - Color_magnitude2_win_flag = .false. - - ! :: - - Color_magnitude2_win_width = 6 - Color_magnitude2_win_aspect_ratio = 0.75 - - ! :: - - Color_magnitude2_xleft = 0.15 - Color_magnitude2_xright = 0.85 - Color_magnitude2_ybot = 0.15 - Color_magnitude2_ytop = 0.85 - Color_magnitude2_txt_scale = 1.0 - Color_magnitude2_title = 'Color_magnitude2' - - ! Plots xaxis1-xaxis2 leave xaxis2 blank if you only want to plot xaxis1. - - ! :: - - Color_magnitude2_xaxis1_name = '' - Color_magnitude2_xaxis2_name = '' - Color_magnitude2_xmin = -101d0 - Color_magnitude2_xmax = -101d0 - Color_magnitude2_max_width = 100 - Color_magnitude2_dxmin = -1 - Color_magnitude2_xaxis_reversed = .false. - Color_magnitude2_xaxis_log = .false. - - ! Plots yaxis1-yaxis2 leave yaxis2 blank if you only want to plot yaxis1. - - ! :: - - Color_magnitude2_yaxis1_name(:) = '' - Color_magnitude2_yaxis2_name(:) = '' - Color_magnitude2_yaxis_reversed(:) = .false. - Color_magnitude2_yaxis_log(:) = .false. - Color_magnitude2_ymin(:) = -101d0 - Color_magnitude2_ymax(:) = -101d0 - Color_magnitude2_ymargin(:) = 0.1 - Color_magnitude2_dymin(:) = -1 - - ! Plots ``other_yaxis1-other_yaxis2`` leave ``other_yaxis2`` blank if you only want to plot ``other_yaxis1``. - - ! :: - - Color_magnitude2_other_yaxis1_name(:) = '' - Color_magnitude2_other_yaxis2_name(:) = '' - Color_magnitude2_other_yaxis_reversed(:) = .false. - Color_magnitude2_other_yaxis_log(:) = .false. - Color_magnitude2_other_ymin(:) = -101d0 - Color_magnitude2_other_ymax(:) = -101d0 - Color_magnitude2_other_ymargin(:) = 0.1 - Color_magnitude2_other_dymin(:) = -1 - - ! setup default - - ! :: - - Color_magnitude2_num_panels = 0 - - ! Plots xaxis1-xaxis2 leave xaxis2 blank if you only want to plot xaxis1. - - ! :: - - Color_magnitude2_xaxis1_name = '' - Color_magnitude2_xaxis2_name = '' - Color_magnitude2_xmin = -101d0 - Color_magnitude2_xmax = -101d0 - Color_magnitude2_max_width = 100 - Color_magnitude2_dxmin = -1 - Color_magnitude2_xaxis_reversed = .false. - Color_magnitude2_xaxis_log = .false. - - ! Plots yaxis1-yaxis2 leave yaxis2 blank if you only want to plot yaxis1. - - ! :: - - Color_magnitude2_yaxis1_name(:) = '' - Color_magnitude2_yaxis2_name(:) = '' - Color_magnitude2_yaxis_reversed(:) = .false. - Color_magnitude2_yaxis_log(:) = .false. - Color_magnitude2_ymin(:) = -101d0 - Color_magnitude2_ymax(:) = -101d0 - Color_magnitude2_ymargin(:) = 0.1 - Color_magnitude2_dymin(:) = -1 - - ! Plots ``other_yaxis1-other_yaxis2`` leave ``other_yaxis2`` blank if you only want to plot ``other_yaxis1``. - - ! :: - - Color_magnitude2_other_yaxis1_name(:) = '' - Color_magnitude2_other_yaxis2_name(:) = '' - Color_magnitude2_other_yaxis_reversed(:) = .false. - Color_magnitude2_other_yaxis_log(:) = .false. - Color_magnitude2_other_ymin(:) = -101d0 - Color_magnitude2_other_ymax(:) = -101d0 - Color_magnitude2_other_ymargin(:) = 0.1 - Color_magnitude2_other_dymin(:) = -1 - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` - - ! :: - - Color_magnitude2_use_decorator = .false. - - ! **File output** - - ! :: - - Color_magnitude2_file_flag = .false. - Color_magnitude2_file_dir = 'png' - Color_magnitude2_file_prefix = 'Color_magnitude2_' - Color_magnitude2_file_interval = 5 - Color_magnitude2_file_width = -1 - Color_magnitude2_file_aspect_ratio = -1 - - - ! Color_magnitude3 - ! ---------------- - - ! :: - - Color_magnitude3_win_flag = .false. - - ! :: - - Color_magnitude3_win_width = 6 - Color_magnitude3_win_aspect_ratio = 0.75 - - ! :: - - Color_magnitude3_xleft = 0.15 - Color_magnitude3_xright = 0.85 - Color_magnitude3_ybot = 0.15 - Color_magnitude3_ytop = 0.85 - Color_magnitude3_txt_scale = 1.0 - Color_magnitude3_title = 'Color_magnitude3' - - ! Plots xaxis1-xaxis2 leave xaxis2 blank if you only want to plot xaxis1. - - ! :: - - Color_magnitude3_xaxis1_name = '' - Color_magnitude3_xaxis2_name = '' - Color_magnitude3_xmin = -101d0 - Color_magnitude3_xmax = -101d0 - Color_magnitude3_max_width = 100 - Color_magnitude3_dxmin = -1 - Color_magnitude3_xaxis_reversed = .false. - Color_magnitude3_xaxis_log = .false. - - ! Plots yaxis1-yaxis2 leave yaxis2 blank if you only want to plot yaxis1. - - ! :: - - Color_magnitude3_yaxis1_name(:) = '' - Color_magnitude3_yaxis2_name(:) = '' - Color_magnitude3_yaxis_reversed(:) = .false. - Color_magnitude3_yaxis_log(:) = .false. - Color_magnitude3_ymin(:) = -101d0 - Color_magnitude3_ymax(:) = -101d0 - Color_magnitude3_ymargin(:) = 0.1 - Color_magnitude3_dymin(:) = -1 - - ! Plots ``other_yaxis1-other_yaxis2`` leave ``other_yaxis2`` blank if you only want to plot ``other_yaxis1``. - - ! :: - - Color_magnitude3_other_yaxis1_name(:) = '' - Color_magnitude3_other_yaxis2_name(:) = '' - Color_magnitude3_other_yaxis_reversed(:) = .false. - Color_magnitude3_other_yaxis_log(:) = .false. - Color_magnitude3_other_ymin(:) = -101d0 - Color_magnitude3_other_ymax(:) = -101d0 - Color_magnitude3_other_ymargin(:) = 0.1 - Color_magnitude3_other_dymin(:) = -1 - - ! setup default - - ! :: - - Color_magnitude3_num_panels = 0 - - ! Plots xaxis1-xaxis2 leave xaxis2 blank if you only want to plot xaxis1. - - ! :: - - Color_magnitude3_xaxis1_name = '' - Color_magnitude3_xaxis2_name = '' - Color_magnitude3_xmin = -101d0 - Color_magnitude3_xmax = -101d0 - Color_magnitude3_max_width = 100 - Color_magnitude3_dxmin = -1 - Color_magnitude3_xaxis_reversed = .false. - Color_magnitude3_xaxis_log = .false. - - ! Plots yaxis1-yaxis2 leave yaxis2 blank if you only want to plot yaxis1. - - ! :: - - Color_magnitude3_yaxis1_name(:) = '' - Color_magnitude3_yaxis2_name(:) = '' - Color_magnitude3_yaxis_reversed(:) = .false. - Color_magnitude3_yaxis_log(:) = .false. - Color_magnitude3_ymin(:) = -101d0 - Color_magnitude3_ymax(:) = -101d0 - Color_magnitude3_ymargin(:) = 0.1 - Color_magnitude3_dymin(:) = -1 - - ! Plots ``other_yaxis1-other_yaxis2`` leave ``other_yaxis2`` blank if you only want to plot ``other_yaxis1``. - - ! :: - - Color_magnitude3_other_yaxis1_name(:) = '' - Color_magnitude3_other_yaxis2_name(:) = '' - Color_magnitude3_other_yaxis_reversed(:) = .false. - Color_magnitude3_other_yaxis_log(:) = .false. - Color_magnitude3_other_ymin(:) = -101d0 - Color_magnitude3_other_ymax(:) = -101d0 - Color_magnitude3_other_ymargin(:) = 0.1 - Color_magnitude3_other_dymin(:) = -1 - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` - - ! :: - - Color_magnitude3_use_decorator = .false. - - ! **File output** - - ! :: - - Color_magnitude3_file_flag = .false. - Color_magnitude3_file_dir = 'png' - Color_magnitude3_file_prefix = 'Color_magnitude3_' - Color_magnitude3_file_interval = 5 - Color_magnitude3_file_width = -1 - Color_magnitude3_file_aspect_ratio = -1 - - - ! Color_magnitude4 - ! ---------------- - - ! :: - - Color_magnitude4_win_flag = .false. - - ! :: - - Color_magnitude4_win_width = 6 - Color_magnitude4_win_aspect_ratio = 0.75 - - ! :: - - Color_magnitude4_xleft = 0.15 - Color_magnitude4_xright = 0.85 - Color_magnitude4_ybot = 0.15 - Color_magnitude4_ytop = 0.85 - Color_magnitude4_txt_scale = 1.0 - Color_magnitude4_title = 'Color_magnitude4' - - ! Plots xaxis1-xaxis2 leave xaxis2 blank if you only want to plot xaxis1. - - ! :: - - Color_magnitude4_xaxis1_name = '' - Color_magnitude4_xaxis2_name = '' - Color_magnitude4_xmin = -101d0 - Color_magnitude4_xmax = -101d0 - Color_magnitude4_max_width = 100 - Color_magnitude4_dxmin = -1 - Color_magnitude4_xaxis_reversed = .false. - Color_magnitude4_xaxis_log = .false. - - ! Plots yaxis1-yaxis2 leave yaxis2 blank if you only want to plot yaxis1. - - ! :: - - Color_magnitude4_yaxis1_name(:) = '' - Color_magnitude4_yaxis2_name(:) = '' - Color_magnitude4_yaxis_reversed(:) = .false. - Color_magnitude4_yaxis_log(:) = .false. - Color_magnitude4_ymin(:) = -101d0 - Color_magnitude4_ymax(:) = -101d0 - Color_magnitude4_ymargin(:) = 0.1 - Color_magnitude4_dymin(:) = -1 - - ! Plots ``other_yaxis1-other_yaxis2`` leave ``other_yaxis2`` blank if you only want to plot ``other_yaxis1``. - - ! :: - - Color_magnitude4_other_yaxis1_name(:) = '' - Color_magnitude4_other_yaxis2_name(:) = '' - Color_magnitude4_other_yaxis_reversed(:) = .false. - Color_magnitude4_other_yaxis_log(:) = .false. - Color_magnitude4_other_ymin(:) = -101d0 - Color_magnitude4_other_ymax(:) = -101d0 - Color_magnitude4_other_ymargin(:) = 0.1 - Color_magnitude4_other_dymin(:) = -1 - - ! setup default - - ! :: - - Color_magnitude4_num_panels = 0 - - ! Plots xaxis1-xaxis2 leave xaxis2 blank if you only want to plot xaxis1. - - ! :: - - Color_magnitude4_xaxis1_name = '' - Color_magnitude4_xaxis2_name = '' - Color_magnitude4_xmin = -101d0 - Color_magnitude4_xmax = -101d0 - Color_magnitude4_max_width = 100 - Color_magnitude4_dxmin = -1 - Color_magnitude4_xaxis_reversed = .false. - Color_magnitude4_xaxis_log = .false. - - ! Plots yaxis1-yaxis2 leave yaxis2 blank if you only want to plot yaxis1. - - ! :: - - Color_magnitude4_yaxis1_name(:) = '' - Color_magnitude4_yaxis2_name(:) = '' - Color_magnitude4_yaxis_reversed(:) = .false. - Color_magnitude4_yaxis_log(:) = .false. - Color_magnitude4_ymin(:) = -101d0 - Color_magnitude4_ymax(:) = -101d0 - Color_magnitude4_ymargin(:) = 0.1 - Color_magnitude4_dymin(:) = -1 - - ! Plots ``other_yaxis1-other_yaxis2`` leave ``other_yaxis2`` blank if you only want to plot ``other_yaxis1``. - - ! :: - - Color_magnitude4_other_yaxis1_name(:) = '' - Color_magnitude4_other_yaxis2_name(:) = '' - Color_magnitude4_other_yaxis_reversed(:) = .false. - Color_magnitude4_other_yaxis_log(:) = .false. - Color_magnitude4_other_ymin(:) = -101d0 - Color_magnitude4_other_ymax(:) = -101d0 - Color_magnitude4_other_ymargin(:) = 0.1 - Color_magnitude4_other_dymin(:) = -1 - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` - - ! :: - - Color_magnitude4_use_decorator = .false. - - ! **File output** - - ! :: - - Color_magnitude4_file_flag = .false. - Color_magnitude4_file_dir = 'png' - Color_magnitude4_file_prefix = 'Color_magnitude4_' - Color_magnitude4_file_interval = 5 - Color_magnitude4_file_width = -1 - Color_magnitude4_file_aspect_ratio = -1 - - - ! Color_magnitude5 - ! ---------------- - - ! :: - - Color_magnitude5_win_flag = .false. - - ! :: - - Color_magnitude5_win_width = 6 - Color_magnitude5_win_aspect_ratio = 0.75 - - ! :: - - Color_magnitude5_xleft = 0.15 - Color_magnitude5_xright = 0.85 - Color_magnitude5_ybot = 0.15 - Color_magnitude5_ytop = 0.85 - Color_magnitude5_txt_scale = 1.0 - Color_magnitude5_title = 'Color_magnitude5' - - ! Plots xaxis1-xaxis2 leave xaxis2 blank if you only want to plot xaxis1. - - ! :: - - Color_magnitude5_xaxis1_name = '' - Color_magnitude5_xaxis2_name = '' - Color_magnitude5_xmin = -101d0 - Color_magnitude5_xmax = -101d0 - Color_magnitude5_max_width = 100 - Color_magnitude5_dxmin = -1 - Color_magnitude5_xaxis_reversed = .false. - Color_magnitude5_xaxis_log = .false. - - ! Plots yaxis1-yaxis2 leave yaxis2 blank if you only want to plot yaxis1. - - ! :: - - Color_magnitude5_yaxis1_name(:) = '' - Color_magnitude5_yaxis2_name(:) = '' - Color_magnitude5_yaxis_reversed(:) = .false. - Color_magnitude5_yaxis_log(:) = .false. - Color_magnitude5_ymin(:) = -101d0 - Color_magnitude5_ymax(:) = -101d0 - Color_magnitude5_ymargin(:) = 0.1 - Color_magnitude5_dymin(:) = -1 - - ! Plots ``other_yaxis1-other_yaxis2`` leave ``other_yaxis2`` blank if you only want to plot ``other_yaxis1``. - - ! :: - - Color_magnitude5_other_yaxis1_name(:) = '' - Color_magnitude5_other_yaxis2_name(:) = '' - Color_magnitude5_other_yaxis_reversed(:) = .false. - Color_magnitude5_other_yaxis_log(:) = .false. - Color_magnitude5_other_ymin(:) = -101d0 - Color_magnitude5_other_ymax(:) = -101d0 - Color_magnitude5_other_ymargin(:) = 0.1 - Color_magnitude5_other_dymin(:) = -1 - - ! setup default - - ! :: - - Color_magnitude5_num_panels = 0 - - ! Plots xaxis1-xaxis2 leave xaxis2 blank if you only want to plot xaxis1. - - ! :: - - Color_magnitude5_xaxis1_name = '' - Color_magnitude5_xaxis2_name = '' - Color_magnitude5_xmin = -101d0 - Color_magnitude5_xmax = -101d0 - Color_magnitude5_max_width = 100 - Color_magnitude5_dxmin = -1 - Color_magnitude5_xaxis_reversed = .false. - Color_magnitude5_xaxis_log = .false. - - ! Plots yaxis1-yaxis2 leave yaxis2 blank if you only want to plot yaxis1. - - ! :: - - Color_magnitude5_yaxis1_name(:) = '' - Color_magnitude5_yaxis2_name(:) = '' - Color_magnitude5_yaxis_reversed(:) = .false. - Color_magnitude5_yaxis_log(:) = .false. - Color_magnitude5_ymin(:) = -101d0 - Color_magnitude5_ymax(:) = -101d0 - Color_magnitude5_ymargin(:) = 0.1 - Color_magnitude5_dymin(:) = -1 - - ! Plots ``other_yaxis1-other_yaxis2`` leave ``other_yaxis2`` blank if you only want to plot ``other_yaxis1``. - - ! :: - - Color_magnitude5_other_yaxis1_name(:) = '' - Color_magnitude5_other_yaxis2_name(:) = '' - Color_magnitude5_other_yaxis_reversed(:) = .false. - Color_magnitude5_other_yaxis_log(:) = .false. - Color_magnitude5_other_ymin(:) = -101d0 - Color_magnitude5_other_ymax(:) = -101d0 - Color_magnitude5_other_ymargin(:) = 0.1 - Color_magnitude5_other_dymin(:) = -1 - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` - - ! :: - - Color_magnitude5_use_decorator = .false. - - ! **File output** - - ! :: - - Color_magnitude5_file_flag = .false. - Color_magnitude5_file_dir = 'png' - Color_magnitude5_file_prefix = 'Color_magnitude5_' - Color_magnitude5_file_interval = 5 - Color_magnitude5_file_width = -1 - Color_magnitude5_file_aspect_ratio = -1 - - - ! Color_magnitude6 - ! ---------------- - - ! :: - - Color_magnitude6_win_flag = .false. - - ! :: - - Color_magnitude6_win_width = 6 - Color_magnitude6_win_aspect_ratio = 0.75 - - ! :: - - Color_magnitude6_xleft = 0.15 - Color_magnitude6_xright = 0.85 - Color_magnitude6_ybot = 0.15 - Color_magnitude6_ytop = 0.85 - Color_magnitude6_txt_scale = 1.0 - Color_magnitude6_title = 'Color_magnitude6' - - ! Plots xaxis1-xaxis2 leave xaxis2 blank if you only want to plot xaxis1. - - ! :: - - Color_magnitude6_xaxis1_name = '' - Color_magnitude6_xaxis2_name = '' - Color_magnitude6_xmin = -101d0 - Color_magnitude6_xmax = -101d0 - Color_magnitude6_max_width = 100 - Color_magnitude6_dxmin = -1 - Color_magnitude6_xaxis_reversed = .false. - Color_magnitude6_xaxis_log = .false. - - ! Plots yaxis1-yaxis2 leave yaxis2 blank if you only want to plot yaxis1. - - ! :: - - Color_magnitude6_yaxis1_name(:) = '' - Color_magnitude6_yaxis2_name(:) = '' - Color_magnitude6_yaxis_reversed(:) = .false. - Color_magnitude6_yaxis_log(:) = .false. - Color_magnitude6_ymin(:) = -101d0 - Color_magnitude6_ymax(:) = -101d0 - Color_magnitude6_ymargin(:) = 0.1 - Color_magnitude6_dymin(:) = -1 - - ! Plots ``other_yaxis1-other_yaxis2`` leave ``other_yaxis2`` blank if you only want to plot ``other_yaxis1``. - - ! :: - - Color_magnitude6_other_yaxis1_name(:) = '' - Color_magnitude6_other_yaxis2_name(:) = '' - Color_magnitude6_other_yaxis_reversed(:) = .false. - Color_magnitude6_other_yaxis_log(:) = .false. - Color_magnitude6_other_ymin(:) = -101d0 - Color_magnitude6_other_ymax(:) = -101d0 - Color_magnitude6_other_ymargin(:) = 0.1 - Color_magnitude6_other_dymin(:) = -1 - - ! setup default - - ! :: - - Color_magnitude6_num_panels = 0 - - ! Plots xaxis1-xaxis2 leave xaxis2 blank if you only want to plot xaxis1. - - ! :: - - Color_magnitude6_xaxis1_name = '' - Color_magnitude6_xaxis2_name = '' - Color_magnitude6_xmin = -101d0 - Color_magnitude6_xmax = -101d0 - Color_magnitude6_max_width = 100 - Color_magnitude6_dxmin = -1 - Color_magnitude6_xaxis_reversed = .false. - Color_magnitude6_xaxis_log = .false. - - ! Plots yaxis1-yaxis2 leave yaxis2 blank if you only want to plot yaxis1. - - ! :: - - Color_magnitude6_yaxis1_name(:) = '' - Color_magnitude6_yaxis2_name(:) = '' - Color_magnitude6_yaxis_reversed(:) = .false. - Color_magnitude6_yaxis_log(:) = .false. - Color_magnitude6_ymin(:) = -101d0 - Color_magnitude6_ymax(:) = -101d0 - Color_magnitude6_ymargin(:) = 0.1 - Color_magnitude6_dymin(:) = -1 - - ! Plots ``other_yaxis1-other_yaxis2`` leave ``other_yaxis2`` blank if you only want to plot ``other_yaxis1``. - - ! :: - - Color_magnitude6_other_yaxis1_name(:) = '' - Color_magnitude6_other_yaxis2_name(:) = '' - Color_magnitude6_other_yaxis_reversed(:) = .false. - Color_magnitude6_other_yaxis_log(:) = .false. - Color_magnitude6_other_ymin(:) = -101d0 - Color_magnitude6_other_ymax(:) = -101d0 - Color_magnitude6_other_ymargin(:) = 0.1 - Color_magnitude6_other_dymin(:) = -1 - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` - - ! :: - - Color_magnitude6_use_decorator = .false. - - ! **File output** - - ! :: - - Color_magnitude6_file_flag = .false. - Color_magnitude6_file_dir = 'png' - Color_magnitude6_file_prefix = 'Color_magnitude6_' - Color_magnitude6_file_interval = 5 - Color_magnitude6_file_width = -1 - Color_magnitude6_file_aspect_ratio = -1 - - - ! Color_magnitude7 - ! ---------------- - - ! :: - - Color_magnitude7_win_flag = .false. - - ! :: - - Color_magnitude7_win_width = 6 - Color_magnitude7_win_aspect_ratio = 0.75 - - ! :: - - Color_magnitude7_xleft = 0.15 - Color_magnitude7_xright = 0.85 - Color_magnitude7_ybot = 0.15 - Color_magnitude7_ytop = 0.85 - Color_magnitude7_txt_scale = 1.0 - Color_magnitude7_title = 'Color_magnitude7' - - ! Plots xaxis1-xaxis2 leave xaxis2 blank if you only want to plot xaxis1. - - ! :: - - Color_magnitude7_xaxis1_name = '' - Color_magnitude7_xaxis2_name = '' - Color_magnitude7_xmin = -101d0 - Color_magnitude7_xmax = -101d0 - Color_magnitude7_max_width = 100 - Color_magnitude7_dxmin = -1 - Color_magnitude7_xaxis_reversed = .false. - Color_magnitude7_xaxis_log = .false. - - ! Plots yaxis1-yaxis2 leave yaxis2 blank if you only want to plot yaxis1. - - ! :: - - Color_magnitude7_yaxis1_name(:) = '' - Color_magnitude7_yaxis2_name(:) = '' - Color_magnitude7_yaxis_reversed(:) = .false. - Color_magnitude7_yaxis_log(:) = .false. - Color_magnitude7_ymin(:) = -101d0 - Color_magnitude7_ymax(:) = -101d0 - Color_magnitude7_ymargin(:) = 0.1 - Color_magnitude7_dymin(:) = -1 - - ! Plots ``other_yaxis1-other_yaxis2`` leave ``other_yaxis2`` blank if you only want to plot ``other_yaxis1``. - - ! :: - - Color_magnitude7_other_yaxis1_name(:) = '' - Color_magnitude7_other_yaxis2_name(:) = '' - Color_magnitude7_other_yaxis_reversed(:) = .false. - Color_magnitude7_other_yaxis_log(:) = .false. - Color_magnitude7_other_ymin(:) = -101d0 - Color_magnitude7_other_ymax(:) = -101d0 - Color_magnitude7_other_ymargin(:) = 0.1 - Color_magnitude7_other_dymin(:) = -1 - - ! setup default - - ! :: - - Color_magnitude7_num_panels = 0 - - ! Plots xaxis1-xaxis2 leave xaxis2 blank if you only want to plot xaxis1. - - ! :: - - Color_magnitude7_xaxis1_name = '' - Color_magnitude7_xaxis2_name = '' - Color_magnitude7_xmin = -101d0 - Color_magnitude7_xmax = -101d0 - Color_magnitude7_max_width = 100 - Color_magnitude7_dxmin = -1 - Color_magnitude7_xaxis_reversed = .false. - Color_magnitude7_xaxis_log = .false. - - ! Plots yaxis1-yaxis2 leave yaxis2 blank if you only want to plot yaxis1. - - ! :: - - Color_magnitude7_yaxis1_name(:) = '' - Color_magnitude7_yaxis2_name(:) = '' - Color_magnitude7_yaxis_reversed(:) = .false. - Color_magnitude7_yaxis_log(:) = .false. - Color_magnitude7_ymin(:) = -101d0 - Color_magnitude7_ymax(:) = -101d0 - Color_magnitude7_ymargin(:) = 0.1 - Color_magnitude7_dymin(:) = -1 - - ! Plots ``other_yaxis1-other_yaxis2`` leave ``other_yaxis2`` blank if you only want to plot ``other_yaxis1``. - - ! :: - - Color_magnitude7_other_yaxis1_name(:) = '' - Color_magnitude7_other_yaxis2_name(:) = '' - Color_magnitude7_other_yaxis_reversed(:) = .false. - Color_magnitude7_other_yaxis_log(:) = .false. - Color_magnitude7_other_ymin(:) = -101d0 - Color_magnitude7_other_ymax(:) = -101d0 - Color_magnitude7_other_ymargin(:) = 0.1 - Color_magnitude7_other_dymin(:) = -1 - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` - - ! :: - - Color_magnitude7_use_decorator = .false. - - ! **File output** - - ! :: - - Color_magnitude7_file_flag = .false. - Color_magnitude7_file_dir = 'png' - Color_magnitude7_file_prefix = 'Color_magnitude7_' - Color_magnitude7_file_interval = 5 - Color_magnitude7_file_width = -1 - Color_magnitude7_file_aspect_ratio = -1 - - - ! Color_magnitude8 - ! ---------------- - - ! :: - - Color_magnitude8_win_flag = .false. - - ! :: - - Color_magnitude8_win_width = 6 - Color_magnitude8_win_aspect_ratio = 0.75 - - ! :: - - Color_magnitude8_xleft = 0.15 - Color_magnitude8_xright = 0.85 - Color_magnitude8_ybot = 0.15 - Color_magnitude8_ytop = 0.85 - Color_magnitude8_txt_scale = 1.0 - Color_magnitude8_title = 'Color_magnitude8' - - ! Plots xaxis1-xaxis2 leave xaxis2 blank if you only want to plot xaxis1. - - ! :: - - Color_magnitude8_xaxis1_name = '' - Color_magnitude8_xaxis2_name = '' - Color_magnitude8_xmin = -101d0 - Color_magnitude8_xmax = -101d0 - Color_magnitude8_max_width = 100 - Color_magnitude8_dxmin = -1 - Color_magnitude8_xaxis_reversed = .false. - Color_magnitude8_xaxis_log = .false. - - ! Plots yaxis1-yaxis2 leave yaxis2 blank if you only want to plot yaxis1. - - ! :: - - Color_magnitude8_yaxis1_name(:) = '' - Color_magnitude8_yaxis2_name(:) = '' - Color_magnitude8_yaxis_reversed(:) = .false. - Color_magnitude8_yaxis_log(:) = .false. - Color_magnitude8_ymin(:) = -101d0 - Color_magnitude8_ymax(:) = -101d0 - Color_magnitude8_ymargin(:) = 0.1 - Color_magnitude8_dymin(:) = -1 - - ! Plots ``other_yaxis1-other_yaxis2`` leave ``other_yaxis2`` blank if you only want to plot ``other_yaxis1``. - - ! :: - - Color_magnitude8_other_yaxis1_name(:) = '' - Color_magnitude8_other_yaxis2_name(:) = '' - Color_magnitude8_other_yaxis_reversed(:) = .false. - Color_magnitude8_other_yaxis_log(:) = .false. - Color_magnitude8_other_ymin(:) = -101d0 - Color_magnitude8_other_ymax(:) = -101d0 - Color_magnitude8_other_ymargin(:) = 0.1 - Color_magnitude8_other_dymin(:) = -1 - - ! setup default - - ! :: - - Color_magnitude8_num_panels = 0 - - ! Plots xaxis1-xaxis2 leave xaxis2 blank if you only want to plot xaxis1. - - ! :: - - Color_magnitude8_xaxis1_name = '' - Color_magnitude8_xaxis2_name = '' - Color_magnitude8_xmin = -101d0 - Color_magnitude8_xmax = -101d0 - Color_magnitude8_max_width = 100 - Color_magnitude8_dxmin = -1 - Color_magnitude8_xaxis_reversed = .false. - Color_magnitude8_xaxis_log = .false. - - ! Plots yaxis1-yaxis2 leave yaxis2 blank if you only want to plot yaxis1. - - ! :: - - Color_magnitude8_yaxis1_name(:) = '' - Color_magnitude8_yaxis2_name(:) = '' - Color_magnitude8_yaxis_reversed(:) = .false. - Color_magnitude8_yaxis_log(:) = .false. - Color_magnitude8_ymin(:) = -101d0 - Color_magnitude8_ymax(:) = -101d0 - Color_magnitude8_ymargin(:) = 0.1 - Color_magnitude8_dymin(:) = -1 - - ! Plots ``other_yaxis1-other_yaxis2`` leave ``other_yaxis2`` blank if you only want to plot ``other_yaxis1``. - - ! :: - - Color_magnitude8_other_yaxis1_name(:) = '' - Color_magnitude8_other_yaxis2_name(:) = '' - Color_magnitude8_other_yaxis_reversed(:) = .false. - Color_magnitude8_other_yaxis_log(:) = .false. - Color_magnitude8_other_ymin(:) = -101d0 - Color_magnitude8_other_ymax(:) = -101d0 - Color_magnitude8_other_ymargin(:) = 0.1 - Color_magnitude8_other_dymin(:) = -1 - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` - - ! :: - - Color_magnitude8_use_decorator = .false. - - ! **File output** - - ! :: - - Color_magnitude8_file_flag = .false. - Color_magnitude8_file_dir = 'png' - Color_magnitude8_file_prefix = 'Color_magnitude8_' - Color_magnitude8_file_interval = 5 - Color_magnitude8_file_width = -1 - Color_magnitude8_file_aspect_ratio = -1 - - - ! Color_magnitude9 - ! ---------------- - - ! :: - - Color_magnitude9_win_flag = .false. - - ! :: - - Color_magnitude9_win_width = 6 - Color_magnitude9_win_aspect_ratio = 0.75 - - ! :: - - Color_magnitude9_xleft = 0.15 - Color_magnitude9_xright = 0.85 - Color_magnitude9_ybot = 0.15 - Color_magnitude9_ytop = 0.85 - Color_magnitude9_txt_scale = 1.0 - Color_magnitude9_title = 'Color_magnitude9' - - ! Plots xaxis1-xaxis2 leave xaxis2 blank if you only want to plot xaxis1. - - ! :: - - Color_magnitude9_xaxis1_name = '' - Color_magnitude9_xaxis2_name = '' - Color_magnitude9_xmin = -101d0 - Color_magnitude9_xmax = -101d0 - Color_magnitude9_max_width = 100 - Color_magnitude9_dxmin = -1 - Color_magnitude9_xaxis_reversed = .false. - Color_magnitude9_xaxis_log = .false. - - ! Plots yaxis1-yaxis2 leave yaxis2 blank if you only want to plot yaxis1. - - ! :: - - Color_magnitude9_yaxis1_name(:) = '' - Color_magnitude9_yaxis2_name(:) = '' - Color_magnitude9_yaxis_reversed(:) = .false. - Color_magnitude9_yaxis_log(:) = .false. - Color_magnitude9_ymin(:) = -101d0 - Color_magnitude9_ymax(:) = -101d0 - Color_magnitude9_ymargin(:) = 0.1 - Color_magnitude9_dymin(:) = -1 - - ! Plots ``other_yaxis1-other_yaxis2`` leave ``other_yaxis2`` blank if you only want to plot ``other_yaxis1``. - - ! :: - - Color_magnitude9_other_yaxis1_name(:) = '' - Color_magnitude9_other_yaxis2_name(:) = '' - Color_magnitude9_other_yaxis_reversed(:) = .false. - Color_magnitude9_other_yaxis_log(:) = .false. - Color_magnitude9_other_ymin(:) = -101d0 - Color_magnitude9_other_ymax(:) = -101d0 - Color_magnitude9_other_ymargin(:) = 0.1 - Color_magnitude9_other_dymin(:) = -1 - - ! setup default - - ! :: - - Color_magnitude9_num_panels = 0 - - ! Plots xaxis1-xaxis2 leave xaxis2 blank if you only want to plot xaxis1. - - ! :: - - Color_magnitude9_xaxis1_name = '' - Color_magnitude9_xaxis2_name = '' - Color_magnitude9_xmin = -101d0 - Color_magnitude9_xmax = -101d0 - Color_magnitude9_max_width = 100 - Color_magnitude9_dxmin = -1 - Color_magnitude9_xaxis_reversed = .false. - Color_magnitude9_xaxis_log = .false. - - ! Plots yaxis1-yaxis2 leave yaxis2 blank if you only want to plot yaxis1. - - ! :: - - Color_magnitude9_yaxis1_name(:) = '' - Color_magnitude9_yaxis2_name(:) = '' - Color_magnitude9_yaxis_reversed(:) = .false. - Color_magnitude9_yaxis_log(:) = .false. - Color_magnitude9_ymin(:) = -101d0 - Color_magnitude9_ymax(:) = -101d0 - Color_magnitude9_ymargin(:) = 0.1 - Color_magnitude9_dymin(:) = -1 - - ! Plots ``other_yaxis1-other_yaxis2`` leave ``other_yaxis2`` blank if you only want to plot ``other_yaxis1``. - - ! :: - - Color_magnitude9_other_yaxis1_name(:) = '' - Color_magnitude9_other_yaxis2_name(:) = '' - Color_magnitude9_other_yaxis_reversed(:) = .false. - Color_magnitude9_other_yaxis_log(:) = .false. - Color_magnitude9_other_ymin(:) = -101d0 - Color_magnitude9_other_ymax(:) = -101d0 - Color_magnitude9_other_ymargin(:) = 0.1 - Color_magnitude9_other_dymin(:) = -1 - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` - - ! :: - - Color_magnitude9_use_decorator = .false. - - ! **File output** - - ! :: - - Color_magnitude9_file_flag = .false. - Color_magnitude9_file_dir = 'png' - Color_magnitude9_file_prefix = 'Color_magnitude9_' - Color_magnitude9_file_interval = 5 - Color_magnitude9_file_width = -1 - Color_magnitude9_file_aspect_ratio = -1 - -! Text Summary -! ============ - - - ! Text_Summary1 - ! ------------- - - ! :: - - Text_Summary1_win_flag = .false. - Text_Summary1_win_width = 10 - Text_Summary1_win_aspect_ratio = 0.15 - - ! :: - - Text_Summary1_xleft = 0.02 - Text_Summary1_xright = 0.98 - Text_Summary1_ybot = 0.08 - Text_Summary1_ytop = 0.98 - Text_Summary1_txt_scale = 4.5 - Text_Summary1_dxval = 0.02 - Text_Summary1_title = '' - - ! setup default - - ! :: - - Text_Summary1_num_rows = 8 - Text_Summary1_num_cols = 4 - Text_Summary1_name(:,:) = '' - - ! :: - - Text_Summary1_name(1,1) = 'model_number' - Text_Summary1_name(2,1) = 'log_star_age' - Text_Summary1_name(3,1) = 'log_dt' - Text_Summary1_name(4,1) = 'log_L' - Text_Summary1_name(5,1) = 'log_Teff' - Text_Summary1_name(6,1) = 'log_R' - Text_Summary1_name(7,1) = 'log_g' - Text_Summary1_name(8,1) = 'log_surf_cell_P' - - ! :: - - Text_Summary1_name(1,2) = 'star_mass' - Text_Summary1_name(2,2) = 'log_abs_mdot' - Text_Summary1_name(3,2) = 'he_core_mass' - Text_Summary1_name(4,2) = 'co_core_mass' - Text_Summary1_name(5,2) = 'cz_bot_mass' - Text_Summary1_name(6,2) = 'cz_top_mass' - Text_Summary1_name(7,2) = 'cz_bot_radius' - Text_Summary1_name(8,2) = 'cz_top_radius' - - ! :: - - Text_Summary1_name(1,3) = 'log_cntr_T' - Text_Summary1_name(2,3) = 'log_cntr_Rho' - Text_Summary1_name(3,3) = 'log_center_P' - Text_Summary1_name(4,3) = 'center h1' - Text_Summary1_name(5,3) = 'center he4' - Text_Summary1_name(6,3) = 'center c12' - Text_Summary1_name(7,3) = 'center n14' - Text_Summary1_name(8,3) = 'center o16' - - ! :: - - Text_Summary1_name(1,4) = 'log_Lnuc' - Text_Summary1_name(2,4) = 'log_Lneu' - Text_Summary1_name(3,4) = 'log_LH' - Text_Summary1_name(4,4) = 'log_LHe' - Text_Summary1_name(5,4) = 'log_LZ' - Text_Summary1_name(6,4) = 'num_zones' - Text_Summary1_name(7,4) = 'num_retries' - Text_Summary1_name(8,4) = '' - - ! **File output** - - ! :: - - Text_Summary1_file_flag = .false. - Text_Summary1_file_dir = 'png' - Text_Summary1_file_prefix = 'Text_Summary1_' - Text_Summary1_file_interval = 5 - Text_Summary1_file_width = -1 - Text_Summary1_file_aspect_ratio = -1 - - - ! Text_Summary2 - ! ------------- - - ! :: - - Text_Summary2_win_flag = .false. - Text_Summary2_win_width = 6 - Text_Summary2_win_aspect_ratio = 1.5 - - ! :: - - Text_Summary2_xleft = 0.02 - Text_Summary2_xright = 0.98 - Text_Summary2_ybot = 0.08 - Text_Summary2_ytop = 0.98 - Text_Summary2_txt_scale = 4.5 - Text_Summary2_dxval = 0.02 - Text_Summary2_title = '' - - ! :: - - Text_Summary2_num_rows = 0 - Text_Summary2_num_cols = 0 - Text_Summary2_name(:,:) = '' - - ! **File output** - - ! :: - - Text_Summary2_file_flag = .false. - Text_Summary2_file_dir = 'png' - Text_Summary2_file_prefix = 'Text_Summary2_' - Text_Summary2_file_interval = 5 - Text_Summary2_file_width = -1 - Text_Summary2_file_aspect_ratio = -1 - - - ! Text_Summary3 - ! ------------- - - ! :: - - Text_Summary3_win_flag = .false. - Text_Summary3_win_width = 6 - Text_Summary3_win_aspect_ratio = 1.5 - - ! :: - - Text_Summary3_xleft = 0.02 - Text_Summary3_xright = 0.98 - Text_Summary3_ybot = 0.08 - Text_Summary3_ytop = 0.98 - Text_Summary3_txt_scale = 4.5 - Text_Summary3_dxval = 0.02 - Text_Summary3_title = '' - - ! :: - - Text_Summary3_num_rows = 0 - Text_Summary3_num_cols = 0 - Text_Summary3_name(:,:) = '' - - ! **File output** - - ! :: - - Text_Summary3_file_flag = .false. - Text_Summary3_file_dir = 'png' - Text_Summary3_file_prefix = 'Text_Summary3_' - Text_Summary3_file_interval = 5 - Text_Summary3_file_width = -1 - Text_Summary3_file_aspect_ratio = -1 - - - ! Text_Summary4 - ! ------------- - - ! :: - - Text_Summary4_win_flag = .false. - Text_Summary4_win_width = 6 - Text_Summary4_win_aspect_ratio = 1.5 - - ! :: - - Text_Summary4_xleft = 0.02 - Text_Summary4_xright = 0.98 - Text_Summary4_ybot = 0.08 - Text_Summary4_ytop = 0.98 - Text_Summary4_txt_scale = 4.5 - Text_Summary4_dxval = 0.02 - Text_Summary4_title = '' - - ! :: - - Text_Summary4_num_rows = 0 - Text_Summary4_num_cols = 0 - Text_Summary4_name(:,:) = '' - - ! **File output** - - ! :: - - Text_Summary4_file_flag = .false. - Text_Summary4_file_dir = 'png' - Text_Summary4_file_prefix = 'Text_Summary4_' - Text_Summary4_file_interval = 5 - Text_Summary4_file_width = -1 - Text_Summary4_file_aspect_ratio = -1 - - - ! Text_Summary5 - ! ------------- - - ! :: - - Text_Summary5_win_flag = .false. - Text_Summary5_win_width = 6 - Text_Summary5_win_aspect_ratio = 1.5 - - ! :: - - Text_Summary5_xleft = 0.02 - Text_Summary5_xright = 0.98 - Text_Summary5_ybot = 0.08 - Text_Summary5_ytop = 0.98 - Text_Summary5_txt_scale = 4.5 - Text_Summary5_dxval = 0.02 - Text_Summary5_title = '' - - ! :: - - Text_Summary5_num_rows = 0 - Text_Summary5_num_cols = 0 - Text_Summary5_name(:,:) = '' - - ! **File output** - - ! :: - - Text_Summary5_file_flag = .false. - Text_Summary5_file_dir = 'png' - Text_Summary5_file_prefix = 'Text_Summary5_' - Text_Summary5_file_interval = 5 - Text_Summary5_file_width = -1 - Text_Summary5_file_aspect_ratio = -1 - - - ! Text_Summary6 - ! ------------- - - ! :: - - Text_Summary6_win_flag = .false. - Text_Summary6_win_width = 6 - Text_Summary6_win_aspect_ratio = 1.5 - - ! :: - - Text_Summary6_xleft = 0.02 - Text_Summary6_xright = 0.98 - Text_Summary6_ybot = 0.08 - Text_Summary6_ytop = 0.98 - Text_Summary6_txt_scale = 4.5 - Text_Summary6_dxval = 0.02 - Text_Summary6_title = '' - - ! :: - - Text_Summary6_num_rows = 0 - Text_Summary6_num_cols = 0 - Text_Summary6_name(:,:) = '' - - ! **File output** - - ! :: - - Text_Summary6_file_flag = .false. - Text_Summary6_file_dir = 'png' - Text_Summary6_file_prefix = 'Text_Summary6_' - Text_Summary6_file_interval = 5 - Text_Summary6_file_width = -1 - Text_Summary6_file_aspect_ratio = -1 - - - ! Text_Summary7 - ! ------------- - - ! :: - - Text_Summary7_win_flag = .false. - Text_Summary7_win_width = 6 - Text_Summary7_win_aspect_ratio = 1.5 - - ! :: - - Text_Summary7_xleft = 0.02 - Text_Summary7_xright = 0.98 - Text_Summary7_ybot = 0.08 - Text_Summary7_ytop = 0.98 - Text_Summary7_txt_scale = 4.5 - Text_Summary7_dxval = 0.02 - Text_Summary7_title = '' - - ! :: - - Text_Summary7_num_rows = 0 - Text_Summary7_num_cols = 0 - Text_Summary7_name(:,:) = '' - - ! **File output** - - ! :: - - Text_Summary7_file_flag = .false. - Text_Summary7_file_dir = 'png' - Text_Summary7_file_prefix = 'Text_Summary7_' - Text_Summary7_file_interval = 5 - Text_Summary7_file_width = -1 - Text_Summary7_file_aspect_ratio = -1 - - - ! Text_Summary8 - ! ------------- - - ! :: - - Text_Summary8_win_flag = .false. - Text_Summary8_win_width = 6 - Text_Summary8_win_aspect_ratio = 1.5 - - ! :: - - Text_Summary8_xleft = 0.02 - Text_Summary8_xright = 0.98 - Text_Summary8_ybot = 0.08 - Text_Summary8_ytop = 0.98 - Text_Summary8_txt_scale = 4.5 - Text_Summary8_dxval = 0.02 - Text_Summary8_title = '' - - ! :: - - Text_Summary8_num_rows = 0 - Text_Summary8_num_cols = 0 - Text_Summary8_name(:,:) = '' - - ! **File output** - - ! :: - - Text_Summary8_file_flag = .false. - Text_Summary8_file_dir = 'png' - Text_Summary8_file_prefix = 'Text_Summary8_' - Text_Summary8_file_interval = 5 - Text_Summary8_file_width = -1 - Text_Summary8_file_aspect_ratio = -1 - - - ! Text_Summary9 - ! ------------- - - ! :: - - Text_Summary9_win_flag = .false. - Text_Summary9_win_width = 6 - Text_Summary9_win_aspect_ratio = 1.5 - - ! :: - - Text_Summary9_xleft = 0.02 - Text_Summary9_xright = 0.98 - Text_Summary9_ybot = 0.08 - Text_Summary9_ytop = 0.98 - Text_Summary9_txt_scale = 4.5 - Text_Summary9_dxval = 0.02 - Text_Summary9_title = '' - - ! :: - - Text_Summary9_num_rows = 0 - Text_Summary9_num_cols = 0 - Text_Summary9_name(:,:) = '' - - ! **File output** - - ! :: - - Text_Summary9_file_flag = .false. - Text_Summary9_file_dir = 'png' - Text_Summary9_file_prefix = 'Text_Summary9_' - Text_Summary9_file_interval = 5 - Text_Summary9_file_width = -1 - Text_Summary9_file_aspect_ratio = -1 - -! Grid -! ==== - - - ! Grid1 - ! ----- - - ! :: - - Grid1_win_flag = .false. - - ! :: - - Grid1_win_width = 6 - Grid1_win_aspect_ratio = 1 - - ! :: - - Grid1_xleft = 0.12 - Grid1_xright = 0.95 - Grid1_ybot = 0.08 - Grid1_ytop = 0.92 - Grid1_title = '' - - ! :: - - Grid1_plot_name(:) = '' - Grid1_plot_row(:) = 1 - Grid1_plot_rowspan(:) = 1 - Grid1_plot_col(:) = 1 - Grid1_plot_colspan(:) = 1 - Grid1_plot_pad_left(:) = 0.0 - Grid1_plot_pad_right(:) = 0.0 - Grid1_plot_pad_top(:) = 0.0 - Grid1_plot_pad_bot(:) = 0.0 - Grid1_txt_scale_factor(:) = 0.7 - - ! set default - - ! :: - - Grid1_num_cols = 2 - Grid1_num_rows = 8 - Grid1_num_plots = 4 - - ! :: - - Grid1_plot_name(1) = 'TRho_Profile' - Grid1_plot_row(1) = 1 - Grid1_plot_rowspan(1) = 4 - Grid1_plot_col(1) = 1 - Grid1_plot_colspan(1) = 2 - Grid1_plot_pad_left(1) = 0.0 - Grid1_plot_pad_right(1) = 0.0 - Grid1_plot_pad_top(1) = 0.0 - Grid1_plot_pad_bot(1) = 0.1 - Grid1_txt_scale_factor(1) = 0.7 - - ! :: - - Grid1_plot_name(2) = 'HR' - Grid1_plot_row(2) = 5 - Grid1_plot_rowspan(2) = 2 - Grid1_plot_col(2) = 1 - Grid1_plot_colspan(2) = 1 - Grid1_plot_pad_left(2) = 0.03 - Grid1_plot_pad_right(2) = 0.07 - Grid1_plot_pad_top(2) = 0.03 - Grid1_plot_pad_bot(2) = 0.0 - Grid1_txt_scale_factor(2) = 0.65 - - ! :: - - Grid1_plot_name(3) = 'TRho' - Grid1_plot_row(3) = 5 - Grid1_plot_rowspan(3) = 2 - Grid1_plot_col(3) = 2 - Grid1_plot_colspan(3) = 1 - Grid1_plot_pad_left(3) = 0.07 - Grid1_plot_pad_right(3) = 0.03 - Grid1_plot_pad_top(3) = 0.03 - Grid1_plot_pad_bot(3) = 0.0 - Grid1_txt_scale_factor(3) = 0.65 - - ! :: - - Grid1_plot_name(4) = 'Text_Summary1' - Grid1_plot_row(4) = 7 - Grid1_plot_rowspan(4) = 2 - Grid1_plot_col(4) = 1 - Grid1_plot_colspan(4) = 2 - Grid1_plot_pad_left(4) = -0.08 - Grid1_plot_pad_right(4) = 0.0 - Grid1_plot_pad_top(4) = 0.08 - Grid1_plot_pad_bot(4) = -0.05 - Grid1_txt_scale_factor(4) = 0.2 - - ! **File output** - - ! :: - - Grid1_file_flag = .false. - Grid1_file_dir = 'png' - Grid1_file_prefix = 'grid1' - Grid1_file_interval = 5 - Grid1_file_width = 9 - Grid1_file_aspect_ratio = -1 - - - ! Grid2 - ! ----- - - ! :: - - Grid2_win_flag = .false. - - ! :: - - Grid2_win_width = 6 - Grid2_win_aspect_ratio = 1 - - ! :: - - Grid2_xleft = 0.12 - Grid2_xright = 0.95 - Grid2_ybot = 0.08 - Grid2_ytop = 0.92 - Grid2_title = '' - - ! :: - - Grid2_plot_name(:) = '' - Grid2_plot_row(:) = 1 - Grid2_plot_rowspan(:) = 1 - Grid2_plot_col(:) = 1 - Grid2_plot_colspan(:) = 1 - Grid2_plot_pad_left(:) = 0.0 - Grid2_plot_pad_right(:) = 0.0 - Grid2_plot_pad_top(:) = 0.0 - Grid2_plot_pad_bot(:) = 0.0 - Grid2_txt_scale_factor(:) = 0.7 - - ! set default - - ! :: - - Grid2_win_width = 9 - Grid2_win_aspect_ratio = 0.6 - - ! :: - - Grid2_num_cols = 4 - Grid2_num_rows = 8 - Grid2_num_plots = 5 - - ! :: - - Grid2_plot_name(1) = 'TRho_Profile' - Grid2_plot_row(1) = 1 - Grid2_plot_rowspan(1) = 4 - Grid2_plot_col(1) = 1 - Grid2_plot_colspan(1) = 2 - Grid2_plot_pad_left(1) = 0.0 - Grid2_plot_pad_right(1) = 0.0 - Grid2_plot_pad_top(1) = 0.0 - Grid2_plot_pad_bot(1) = 0.1 - Grid2_txt_scale_factor(1) = 0.7 - - ! :: - - Grid2_plot_name(2) = 'HR' - Grid2_plot_row(2) = 5 - Grid2_plot_rowspan(2) = 2 - Grid2_plot_col(2) = 1 - Grid2_plot_colspan(2) = 1 - Grid2_plot_pad_left(2) = 0.00 - Grid2_plot_pad_right(2) = 0.04 - Grid2_plot_pad_top(2) = 0.03 - Grid2_plot_pad_bot(2) = 0.0 - Grid2_txt_scale_factor(2) = 0.65 - - ! :: - - Grid2_plot_name(3) = 'TRho' - Grid2_plot_row(3) = 5 - Grid2_plot_rowspan(3) = 2 - Grid2_plot_col(3) = 2 - Grid2_plot_colspan(3) = 1 - Grid2_plot_pad_left(3) = 0.04 - Grid2_plot_pad_right(3) = 0.00 - Grid2_plot_pad_top(3) = 0.03 - Grid2_plot_pad_bot(3) = 0.0 - Grid2_txt_scale_factor(3) = 0.65 - - ! :: - - Grid2_plot_name(4) = 'Text_Summary1' - Grid2_plot_row(4) = 7 - Grid2_plot_rowspan(4) = 2 - Grid2_plot_col(4) = 1 - Grid2_plot_colspan(4) = 4 - Grid2_plot_pad_left(4) = -0.08 - Grid2_plot_pad_right(4) = 0.0 - Grid2_plot_pad_top(4) = 0.08 - Grid2_plot_pad_bot(4) = -0.04 - Grid2_txt_scale_factor(4) = 0.19 - - ! :: - - Grid2_plot_name(5) = 'Abundance' - Grid2_plot_row(5) = 1 - Grid2_plot_rowspan(5) = 6 - Grid2_plot_col(5) = 3 - Grid2_plot_colspan(5) = 2 - Grid2_plot_pad_left(5) = 0.07 - Grid2_plot_pad_right(5) = 0.03 - Grid2_plot_pad_top(5) = 0.0 - Grid2_plot_pad_bot(5) = 0.0 - Grid2_txt_scale_factor(5) = 0.65 - - ! **File output** - - ! :: - - Grid2_file_flag = .false. - Grid2_file_dir = 'png' - Grid2_file_prefix = 'Grid2' - Grid2_file_interval = 5 - Grid2_file_width = 9 - Grid2_file_aspect_ratio = -1 - - - ! Grid3 - ! ----- - - ! :: - - Grid3_win_flag = .false. - - ! :: - - Grid3_win_width = 6 - Grid3_win_aspect_ratio = 1.2 - - ! :: - - Grid3_xleft = 0.10 - Grid3_xright = 0.89 - Grid3_ybot = 0.08 - Grid3_ytop = 0.92 - Grid3_title = '' - - ! :: - - Grid3_num_cols = 1 - Grid3_num_rows = 1 - Grid3_num_plots = 1 - - ! :: - - Grid3_plot_name(:) = '' - Grid3_plot_row(:) = 1 - Grid3_plot_rowspan(:) = 1 - Grid3_plot_col(:) = 1 - Grid3_plot_colspan(:) = 1 - Grid3_plot_pad_left(:) = 0.0 - Grid3_plot_pad_right(:) = 0.0 - Grid3_plot_pad_top(:) = 0.0 - Grid3_plot_pad_bot(:) = 0.0 - Grid3_txt_scale_factor(:) = 0.7 - - ! set default - - ! :: - - Grid3_num_cols = 1 - Grid3_num_rows = 7 - Grid3_num_plots = 3 - - ! :: - - Grid3_plot_name(1) = 'TRho_Profile' - Grid3_plot_row(1) = 1 - Grid3_plot_rowspan(1) = 3 - Grid3_plot_col(1) = 1 - Grid3_plot_colspan(1) = 1 - Grid3_plot_pad_left(1) = 0.03 - Grid3_plot_pad_right(1) = 0.03 - Grid3_plot_pad_top(1) = 0.04 - Grid3_plot_pad_bot(1) = 0.07 - Grid3_txt_scale_factor(1) = 0.7 - - ! :: - - Grid3_plot_name(2) = 'Summary_Profile' - Grid3_plot_row(2) = 4 - Grid3_plot_rowspan(2) = 2 - Grid3_plot_col(2) = 1 - Grid3_plot_colspan(2) = 1 - Grid3_plot_pad_left(2) = 0.03 - Grid3_plot_pad_right(2) = 0.03 - Grid3_plot_pad_top(2) = 0.04 - Grid3_plot_pad_bot(2) = 0.07 - Grid3_txt_scale_factor(2) = 0.7 - - ! :: - - Grid3_plot_name(3) = 'Kipp' - Grid3_plot_row(3) = 6 - Grid3_plot_rowspan(3) = 2 - Grid3_plot_col(3) = 1 - Grid3_plot_colspan(3) = 1 - Grid3_plot_pad_left(3) = 0.03 - Grid3_plot_pad_right(3) = 0.03 - Grid3_plot_pad_top(3) = 0.04 - Grid3_plot_pad_bot(3) = 0.07 - Grid3_txt_scale_factor(3) = 0.7 - - ! **File output** - - ! :: - - Grid3_file_flag = .false. - Grid3_file_dir = 'png' - Grid3_file_prefix = 'grid3_' - Grid3_file_interval = 5 - Grid3_file_width = -1 - Grid3_file_aspect_ratio = -1 - - - ! Grid4 - ! ----- - - ! :: - - Grid4_win_flag = .false. - - ! :: - - Grid4_win_width = 7 - Grid4_win_aspect_ratio = 1 - - ! :: - - Grid4_xleft = 0.12 - Grid4_xright = 0.95 - Grid4_ybot = 0.08 - Grid4_ytop = 0.92 - Grid4_title = '' - - ! :: - - Grid4_plot_name(:) = '' - Grid4_plot_row(:) = 1 - Grid4_plot_rowspan(:) = 1 - Grid4_plot_col(:) = 1 - Grid4_plot_colspan(:) = 1 - Grid4_plot_pad_left(:) = 0.0 - Grid4_plot_pad_right(:) = 0.0 - Grid4_plot_pad_top(:) = 0.0 - Grid4_plot_pad_bot(:) = 0.0 - Grid4_txt_scale_factor(:) = 0.7 - - ! set default - - ! :: - - Grid4_num_cols = 10 - Grid4_num_rows = 9 - Grid4_num_plots = 6 - - ! :: - - Grid4_plot_name(1) = 'TRho_Profile' - Grid4_plot_row(1) = 1 - Grid4_plot_rowspan(1) = 3 - Grid4_plot_col(1) = 1 - Grid4_plot_colspan(1) = 5 - Grid4_plot_pad_left(1) = 0.0 - Grid4_plot_pad_right(1) = 0.09 - Grid4_plot_pad_top(1) = 0.0 - Grid4_plot_pad_bot(1) = 0.1 - Grid4_txt_scale_factor(1) = 0.7 - - ! :: - - Grid4_plot_name(2) = 'Summary_Profile' - Grid4_plot_row(2) = 1 - Grid4_plot_rowspan(2) = 3 - Grid4_plot_col(2) = 6 - Grid4_plot_colspan(2) = 5 - Grid4_plot_pad_left(2) = 0.00 - Grid4_plot_pad_right(2) = 0.09 - Grid4_plot_pad_top(2) = 0.0 - Grid4_plot_pad_bot(2) = 0.1 - Grid4_txt_scale_factor(2) = 0.7 - - ! :: - - Grid4_plot_name(3) = 'HR' - Grid4_plot_row(3) = 4 - Grid4_plot_rowspan(3) = 2 - Grid4_plot_col(3) = 1 - Grid4_plot_colspan(3) = 2 - Grid4_plot_pad_left(3) = 0.0 - Grid4_plot_pad_right(3) = 0.01 - Grid4_plot_pad_top(3) = 0.03 - Grid4_plot_pad_bot(3) = 0.07 - Grid4_txt_scale_factor(3) = 0.65 - - ! :: - - Grid4_plot_name(4) = 'TRho' - Grid4_plot_row(4) = 6 - Grid4_plot_rowspan(4) = 2 - Grid4_plot_col(4) = 1 - Grid4_plot_colspan(4) = 2 - Grid4_plot_pad_left(4) = 0.0 - Grid4_plot_pad_right(4) = 0.01 - Grid4_plot_pad_top(4) = 0.04 - Grid4_plot_pad_bot(4) = 0.06 - Grid4_txt_scale_factor(4) = 0.65 - - ! :: - - Grid4_plot_name(5) = 'Kipp' - Grid4_plot_row(5) = 4 - Grid4_plot_rowspan(5) = 4 - Grid4_plot_col(5) = 3 - Grid4_plot_colspan(5) = 7 - Grid4_plot_pad_left(5) = 0.09 - Grid4_plot_pad_right(5) = 0.0 - Grid4_plot_pad_top(5) = 0.03 - Grid4_plot_pad_bot(5) = 0.06 - Grid4_txt_scale_factor(5) = 0.7 - - ! :: - - Grid4_plot_name(6) = 'Text_Summary1' - Grid4_plot_row(6) = 8 - Grid4_plot_rowspan(6) = 2 - Grid4_plot_col(6) = 1 - Grid4_plot_colspan(6) = 10 - Grid4_plot_pad_left(6) = -0.08 - Grid4_plot_pad_right(6) = 0.0 - Grid4_plot_pad_top(6) = 0.03 - Grid4_plot_pad_bot(6) = 0.0 - Grid4_txt_scale_factor(6) = 0.17 - - ! **File output** - - ! :: - - Grid4_file_flag = .false. - Grid4_file_dir = 'png' - Grid4_file_prefix = 'grid4_' - Grid4_file_interval = 5 - Grid4_file_width = -1 - Grid4_file_aspect_ratio = -1 - - - ! Grid5 - ! ----- - - ! :: - - Grid5_win_flag = .false. - - ! :: - - Grid5_win_width = 7 - Grid5_win_aspect_ratio = 1 - - ! :: - - Grid5_xleft = 0.12 - Grid5_xright = 0.95 - Grid5_ybot = 0.08 - Grid5_ytop = 0.92 - Grid5_title = '' - - ! :: - - Grid5_plot_name(:) = '' - Grid5_plot_row(:) = 1 - Grid5_plot_rowspan(:) = 1 - Grid5_plot_col(:) = 1 - Grid5_plot_colspan(:) = 1 - Grid5_plot_pad_left(:) = 0.0 - Grid5_plot_pad_right(:) = 0.0 - Grid5_plot_pad_top(:) = 0.0 - Grid5_plot_pad_bot(:) = 0.0 - Grid5_txt_scale_factor(:) = 0.7 - - ! set default - - ! :: - - Grid5_num_cols = 10 - Grid5_num_rows = 7 - Grid5_num_plots = 5 - - ! :: - - Grid5_plot_name(1) = 'TRho_Profile' - Grid5_plot_row(1) = 1 - Grid5_plot_rowspan(1) = 3 - Grid5_plot_col(1) = 1 - Grid5_plot_colspan(1) = 5 - Grid5_plot_pad_left(1) = 0.0 - Grid5_plot_pad_right(1) = 0.09 - Grid5_plot_pad_top(1) = 0.0 - Grid5_plot_pad_bot(1) = 0.1 - Grid5_txt_scale_factor(1) = 0.7 - - ! :: - - Grid5_plot_name(2) = 'Summary_Profile' - Grid5_plot_row(2) = 1 - Grid5_plot_rowspan(2) = 3 - Grid5_plot_col(2) = 6 - Grid5_plot_colspan(2) = 5 - Grid5_plot_pad_left(2) = 0.00 - Grid5_plot_pad_right(2) = 0.09 - Grid5_plot_pad_top(2) = 0.0 - Grid5_plot_pad_bot(2) = 0.1 - Grid5_txt_scale_factor(2) = 0.7 - - ! :: - - Grid5_plot_name(3) = 'HR' - Grid5_plot_row(3) = 4 - Grid5_plot_rowspan(3) = 2 - Grid5_plot_col(3) = 1 - Grid5_plot_colspan(3) = 2 - Grid5_plot_pad_left(3) = 0.0 - Grid5_plot_pad_right(3) = 0.01 - Grid5_plot_pad_top(3) = 0.03 - Grid5_plot_pad_bot(3) = 0.07 - Grid5_txt_scale_factor(3) = 0.65 - - ! :: - - Grid5_plot_name(4) = 'TRho' - Grid5_plot_row(4) = 6 - Grid5_plot_rowspan(4) = 2 - Grid5_plot_col(4) = 1 - Grid5_plot_colspan(4) = 2 - Grid5_plot_pad_left(4) = 0.0 - Grid5_plot_pad_right(4) = 0.01 - Grid5_plot_pad_top(4) = 0.04 - Grid5_plot_pad_bot(4) = 0.06 - Grid5_txt_scale_factor(4) = 0.65 - - ! :: - - Grid5_plot_name(5) = 'Kipp' - Grid5_plot_row(5) = 4 - Grid5_plot_rowspan(5) = 4 - Grid5_plot_col(5) = 3 - Grid5_plot_colspan(5) = 7 - Grid5_plot_pad_left(5) = 0.09 - Grid5_plot_pad_right(5) = 0.0 - Grid5_plot_pad_top(5) = 0.03 - Grid5_plot_pad_bot(5) = 0.06 - Grid5_txt_scale_factor(5) = 0.7 - - ! **File output** - - ! :: - - Grid5_file_flag = .false. - Grid5_file_dir = 'png' - Grid5_file_prefix = 'grid5_' - Grid5_file_interval = 5 - Grid5_file_width = -1 - Grid5_file_aspect_ratio = -1 - - - ! Grid6 - ! ----- - - ! :: - - Grid6_win_flag = .false. - - ! :: - - Grid6_win_width = 9 - Grid6_win_aspect_ratio = 0.7 - - ! :: - - Grid6_xleft = 0.12 - Grid6_xright = 0.95 - Grid6_ybot = 0.08 - Grid6_ytop = 0.89 - Grid6_title = '' - - ! :: - - Grid6_num_cols = 1 - Grid6_num_rows = 1 - Grid6_num_plots = 1 - - ! :: - - Grid6_plot_name(:) = '' - Grid6_plot_row(:) = 1 - Grid6_plot_rowspan(:) = 1 - Grid6_plot_col(:) = 1 - Grid6_plot_colspan(:) = 1 - Grid6_plot_pad_left(:) = 0.0 - Grid6_plot_pad_right(:) = 0.03 - Grid6_plot_pad_top(:) = 0.0 - Grid6_plot_pad_bot(:) = 0.09 - Grid6_txt_scale_factor(:) = 0.7 - - ! set default - - ! :: - - Grid6_num_cols = 3 - Grid6_num_rows = 3 - Grid6_num_plots = 5 - - ! :: - - Grid6_plot_name(1) = 'Summary_Burn' - Grid6_plot_row(1) = 1 - Grid6_plot_rowspan(1) = 1 - Grid6_plot_col(1) = 2 - Grid6_plot_colspan(1) = 2 - Grid6_plot_pad_left(1) = 0.03 - Grid6_plot_pad_right(1) = 0.06 - Grid6_plot_pad_top(1) = 0.0 - Grid6_plot_pad_bot(1) = 0.06 - Grid6_txt_scale_factor(1) = 0.7 - - ! :: - - Grid6_plot_name(2) = 'Abundance' - Grid6_plot_row(2) = 2 - Grid6_plot_rowspan(2) = 1 - Grid6_plot_col(2) = 2 - Grid6_plot_colspan(2) = 2 - Grid6_plot_pad_left(2) = 0.03 - Grid6_plot_pad_right(2) = 0.06 - Grid6_plot_pad_top(2) = 0.06 - Grid6_plot_pad_bot(2) = 0.00 - Grid6_txt_scale_factor(2) = 0.7 - - ! :: - - Grid6_plot_name(3) = 'HR' - Grid6_plot_row(3) = 1 - Grid6_plot_rowspan(3) = 1 - Grid6_plot_col(3) = 1 - Grid6_plot_colspan(3) = 1 - Grid6_plot_pad_left(3) = 0.00 - Grid6_plot_pad_right(3) = 0.09 - Grid6_plot_pad_top(3) = 0.00 - Grid6_plot_pad_bot(3) = 0.06 - Grid6_txt_scale_factor(3) = 0.65 - - ! :: - - Grid6_plot_name(4) = 'TRho' - Grid6_plot_row(4) = 2 - Grid6_plot_rowspan(4) = 1 - Grid6_plot_col(4) = 1 - Grid6_plot_colspan(4) = 1 - Grid6_plot_pad_left(4) = 0.00 - Grid6_plot_pad_right(4) = 0.09 - Grid6_plot_pad_top(4) = 0.06 - Grid6_plot_pad_bot(4) = 0.00 - Grid6_txt_scale_factor(4) = 0.65 - - ! :: - - Grid6_plot_name(5) = 'Text_Summary1' - Grid6_plot_row(5) = 3 - Grid6_plot_rowspan(5) = 1 - Grid6_plot_col(5) = 1 - Grid6_plot_colspan(5) = 3 - Grid6_plot_pad_left(5) = -0.07 - Grid6_plot_pad_right(5) = -0.02 - Grid6_plot_pad_top(5) = 0.1 - Grid6_plot_pad_bot(5) = 0.00 - Grid6_txt_scale_factor(5) = 0.21 - - ! **File output** - - ! :: - - Grid6_file_flag = .false. - Grid6_file_dir = 'png' - Grid6_file_prefix = 'grid6_' - Grid6_file_interval = 5 - Grid6_file_width = -1 - Grid6_file_aspect_ratio = -1 - - - ! Grid7 - ! ----- - - ! :: - - Grid7_win_flag = .false. - - ! :: - - Grid7_win_width = 6 - Grid7_win_aspect_ratio = 1.5 - - ! :: - - Grid7_xleft = 0.12 - Grid7_xright = 0.95 - Grid7_ybot = 0.08 - Grid7_ytop = 0.91 - Grid7_title = '' - - ! :: - - Grid7_num_cols = 1 - Grid7_num_rows = 1 - Grid7_num_plots = 1 - - ! :: - - Grid7_plot_name(:) = '' - Grid7_plot_row(:) = 1 - Grid7_plot_rowspan(:) = 1 - Grid7_plot_col(:) = 1 - Grid7_plot_colspan(:) = 1 - Grid7_plot_pad_left(:) = 0.0 - Grid7_plot_pad_right(:) = 0.0 - Grid7_plot_pad_top(:) = 0.0 - Grid7_plot_pad_bot(:) = 0.0 - Grid7_txt_scale_factor(:) = 0.9 - - ! set default - - ! :: - - Grid7_num_cols = 1 - Grid7_num_rows = 3 - Grid7_num_plots = 3 - - ! :: - - Grid7_plot_name(1) = 'Abundance' - Grid7_plot_row(1) = 1 - Grid7_plot_rowspan(1) = 1 - Grid7_plot_col(1) = 1 - Grid7_plot_colspan(1) = 1 - Grid7_plot_pad_left(1) = 0.03 - Grid7_plot_pad_right(1) = 0.08 - Grid7_plot_pad_top(1) = 0.00 - Grid7_plot_pad_bot(1) = 0.06 - Grid7_txt_scale_factor(1) = 0.9 - - ! :: - - Grid7_plot_name(2) = 'TRho' - Grid7_plot_row(2) = 2 - Grid7_plot_rowspan(2) = 1 - Grid7_plot_col(2) = 1 - Grid7_plot_colspan(2) = 1 - Grid7_plot_pad_left(2) = 0.03 - Grid7_plot_pad_right(2) = 0.08 - Grid7_plot_pad_top(2) = 0.06 - Grid7_plot_pad_bot(2) = 0.00 - Grid7_txt_scale_factor(2) = 0.9 - - ! :: - - Grid7_plot_name(3) = 'Text_Summary1' - Grid7_plot_row(3) = 3 - Grid7_plot_rowspan(3) = 1 - Grid7_plot_col(3) = 1 - Grid7_plot_colspan(3) = 1 - Grid7_plot_pad_left(3) = -0.08 - Grid7_plot_pad_right(3) = 0.0 - Grid7_plot_pad_top(3) = 0.1 - Grid7_plot_pad_bot(3) = 0.0 - Grid7_txt_scale_factor(3) = 0.16 - - ! **File output** - - ! :: - - Grid7_file_flag = .false. - Grid7_file_dir = 'png' - Grid7_file_prefix = 'grid7_' - Grid7_file_interval = 5 - Grid7_file_width = -1 - Grid7_file_aspect_ratio = -1 - - - ! Grid8 - ! ----- - - ! :: - - Grid8_win_flag = .false. - - ! :: - - Grid8_win_width = 7 - Grid8_win_aspect_ratio = 1.2 - - ! :: - - Grid8_xleft = 0.12 - Grid8_xright = 0.95 - Grid8_ybot = 0.08 - Grid8_ytop = 0.91 - Grid8_title = '' - - ! :: - - Grid8_num_cols = 1 - Grid8_num_rows = 1 - Grid8_num_plots = 1 - - ! :: - - Grid8_plot_name(:) = '' - Grid8_plot_row(:) = 1 - Grid8_plot_rowspan(:) = 1 - Grid8_plot_col(:) = 1 - Grid8_plot_colspan(:) = 1 - Grid8_plot_pad_left(:) = 0.0 - Grid8_plot_pad_right(:) = 0.03 - Grid8_plot_pad_top(:) = 0.0 - Grid8_plot_pad_bot(:) = 0.09 - Grid8_txt_scale_factor(:) = 0.7 - - ! set default - - ! :: - - Grid8_num_cols = 3 - Grid8_num_rows = 14 - Grid8_num_plots = 6 - - ! :: - - Grid8_plot_name(1) = 'Summary_Burn' - Grid8_plot_row(1) = 1 - Grid8_plot_rowspan(1) = 4 - Grid8_plot_col(1) = 1 - Grid8_plot_colspan(1) = 3 - Grid8_plot_pad_left(1) = 0.0 - Grid8_plot_pad_right(1) = 0.06 - Grid8_plot_pad_top(1) = 0.0 - Grid8_plot_pad_bot(1) = 0.09 - Grid8_txt_scale_factor(1) = 0.7 - - ! :: - - Grid8_plot_name(2) = 'Abundance' - Grid8_plot_row(2) = 5 - Grid8_plot_rowspan(2) = 4 - Grid8_plot_col(2) = 1 - Grid8_plot_colspan(2) = 3 - Grid8_plot_pad_left(2) = 0.0 - Grid8_plot_pad_right(2) = 0.06 - Grid8_plot_pad_top(2) = 0.0 - Grid8_plot_pad_bot(2) = 0.05 - Grid8_txt_scale_factor(2) = 0.7 - - ! :: - - Grid8_plot_name(3) = 'HR' - Grid8_plot_row(3) = 9 - Grid8_plot_rowspan(3) = 3 - Grid8_plot_col(3) = 1 - Grid8_plot_colspan(3) = 1 - Grid8_plot_pad_left(3) = 0.00 - Grid8_plot_pad_right(3) = 0.1133 - Grid8_plot_pad_top(3) = 0.05 - Grid8_plot_pad_bot(3) = 0.0 - Grid8_txt_scale_factor(3) = 0.65 - - ! :: - - Grid8_plot_name(4) = 'TRho' - Grid8_plot_row(4) = 9 - Grid8_plot_rowspan(4) = 3 - Grid8_plot_col(4) = 2 - Grid8_plot_colspan(4) = 1 - Grid8_plot_pad_left(4) = 0.0267 - Grid8_plot_pad_right(4) = 0.0867 - Grid8_plot_pad_top(4) = 0.05 - Grid8_plot_pad_bot(4) = 0.0 - Grid8_txt_scale_factor(4) = 0.65 - - ! :: - - Grid8_plot_name(5) = 'TRho_Profile' - Grid8_plot_row(5) = 9 - Grid8_plot_rowspan(5) = 3 - Grid8_plot_col(5) = 3 - Grid8_plot_colspan(5) = 1 - Grid8_plot_pad_left(5) = 0.0533 - Grid8_plot_pad_right(5) = 0.06 - Grid8_plot_pad_top(5) = 0.05 - Grid8_plot_pad_bot(5) = 0.0 - Grid8_txt_scale_factor(5) = 0.7 - - ! :: - - Grid8_plot_name(6) = 'Text_Summary1' - Grid8_plot_row(6) = 12 - Grid8_plot_rowspan(6) = 3 - Grid8_plot_col(6) = 1 - Grid8_plot_colspan(6) = 3 - Grid8_plot_pad_left(6) = -0.08 - Grid8_plot_pad_right(6) = 0.0 - Grid8_plot_pad_top(6) = 0.06 - Grid8_plot_pad_bot(6) = 0.0 - Grid8_txt_scale_factor(6) = 0.16 - - ! **File output** - - ! :: - - Grid8_file_flag = .false. - Grid8_file_dir = 'png' - Grid8_file_prefix = 'grid8_' - Grid8_file_interval = 5 - Grid8_file_width = -1 - Grid8_file_aspect_ratio = -1 - - - ! Grid9 - ! ----- - - ! :: - - Grid9_win_flag = .false. - - ! :: - - Grid9_win_width = 7 - Grid9_win_aspect_ratio = 0.8 - - ! :: - - Grid9_xleft = 0.15 - Grid9_xright = 0.85 - Grid9_ybot = 0.12 - Grid9_ytop = 0.91 - Grid9_title = '' - - ! :: - - Grid9_num_cols = 1 - Grid9_num_rows = 1 - Grid9_num_plots = 1 - - ! :: - - Grid9_plot_name(:) = '' - Grid9_plot_row(:) = 1 - Grid9_plot_rowspan(:) = 1 - Grid9_plot_col(:) = 1 - Grid9_plot_colspan(:) = 1 - Grid9_plot_pad_left(:) = 0.0 - Grid9_plot_pad_right(:) = 0.0 - Grid9_plot_pad_top(:) = 0.0 - Grid9_plot_pad_bot(:) = 0.0 - Grid9_txt_scale_factor(:) = 0.7 - - ! set default - - ! :: - - Grid9_num_cols = 3 - Grid9_num_rows = 11 - Grid9_num_plots = 5 - - ! :: - - Grid9_plot_name(1) = 'Abundance' - Grid9_plot_row(1) = 1 - Grid9_plot_rowspan(1) = 5 - Grid9_plot_col(1) = 1 - Grid9_plot_colspan(1) = 3 - Grid9_plot_pad_left(1) = 0.0 - Grid9_plot_pad_right(1) = 0.06 - Grid9_plot_pad_top(1) = 0.0 - Grid9_plot_pad_bot(1) = 0.09 - Grid9_txt_scale_factor(1) = 0.7 - - ! :: - - Grid9_plot_name(2) = 'HR' - Grid9_plot_row(2) = 6 - Grid9_plot_rowspan(2) = 3 - Grid9_plot_col(2) = 1 - Grid9_plot_colspan(2) = 1 - Grid9_plot_pad_left(2) = 0.00 - Grid9_plot_pad_right(2) = 0.1133 - Grid9_plot_pad_top(2) = 0.05 - Grid9_plot_pad_bot(2) = 0.01 - Grid9_txt_scale_factor(2) = 0.65 - - ! :: - - Grid9_plot_name(3) = 'TRho' - Grid9_plot_row(3) = 6 - Grid9_plot_rowspan(3) = 3 - Grid9_plot_col(3) = 2 - Grid9_plot_colspan(3) = 1 - Grid9_plot_pad_left(3) = 0.0267 - Grid9_plot_pad_right(3) = 0.0867 - Grid9_plot_pad_top(3) = 0.05 - Grid9_plot_pad_bot(3) = 0.01 - Grid9_txt_scale_factor(3) = 0.65 - - ! :: - - Grid9_plot_name(4) = 'TRho_Profile' - Grid9_plot_row(4) = 6 - Grid9_plot_rowspan(4) = 3 - Grid9_plot_col(4) = 3 - Grid9_plot_colspan(4) = 1 - Grid9_plot_pad_left(4) = 0.0533 - Grid9_plot_pad_right(4) = 0.06 - Grid9_plot_pad_top(4) = 0.05 - Grid9_plot_pad_bot(4) = 0.01 - Grid9_txt_scale_factor(4) = 0.7 - - ! :: - - Grid9_plot_name(5) = 'Text_Summary1' - Grid9_plot_row(5) = 9 - Grid9_plot_rowspan(5) = 3 - Grid9_plot_col(5) = 1 - Grid9_plot_colspan(5) = 3 - Grid9_plot_pad_left(5) = -0.08 - Grid9_plot_pad_right(5) = 0.0 - Grid9_plot_pad_top(5) = 0.08 - Grid9_plot_pad_bot(5) = 0.0 - Grid9_txt_scale_factor(5) = 0.14 - - ! **File output** - - ! :: + Grid_plot_name(9, 5) = 'Text_Summary(1)' + Grid_plot_row(9, 5) = 9 + Grid_plot_rowspan(9, 5) = 3 + Grid_plot_col(9, 5) = 1 + Grid_plot_colspan(9, 5) = 3 + Grid_plot_pad_left(9, 5) = -0.08 + Grid_plot_pad_right(9, 5) = 0.0 + Grid_plot_pad_top(9, 5) = 0.08 + Grid_plot_pad_bot(9, 5) = 0.0 + Grid_txt_scale_factor(9, 5) = 0.14 + + Grid_file_prefix(9) = 'grid9_' - Grid9_file_flag = .false. - Grid9_file_dir = 'png' - Grid9_file_prefix = 'grid9_' - Grid9_file_interval = 5 - Grid9_file_width = -1 - Grid9_file_aspect_ratio = -1 ! Annotation ! ========== diff --git a/star/other/sample_pgstar_plot.f90 b/star/other/sample_pgstar_plot.f90 index a8e5c8f98..5af6ce8bb 100644 --- a/star/other/sample_pgstar_plot.f90 +++ b/star/other/sample_pgstar_plot.f90 @@ -23,407 +23,430 @@ ! ! *********************************************************************** -module sample_pgstar_plot - - ! you can add your own pgstar plots in addition to the standard ones. - ! don't edit this file - ! instead copy the contents to your src/run_star_extras file and edit that. - - ! edit the extras_controls routine to set s% other_pgstar_plots_info - ! s% other_pgstar_plots_info => my_pgstar_plots_info - - use star_lib - use star_def - use math_lib - use star_pgstar - - implicit none - - ! basics needed for every pgstar plot - logical :: my_win_flag, my_file_flag - integer :: my_file_interval - character(len=256) :: my_file_dir, my_file_prefix - real :: & - my_win_width, my_win_aspect_ratio, & - my_file_width, my_file_aspect_ratio - - ! optional extra controls - character(len=256) :: my_xaxis_by - real :: & - my_xmin, my_xmax, & - my_ymin_left, my_ymax_left, my_dymin_left, & - my_ymin_right, my_ymax_right, my_dymin_right - - namelist /my_pgstar/ & - my_win_flag, my_file_flag, & - my_file_interval, & - my_file_dir, my_file_prefix, & - my_win_width, my_win_aspect_ratio, & - my_file_width, my_file_aspect_ratio, & - my_xaxis_by, my_xmin, my_xmax, & - my_ymin_left, my_ymax_left, my_dymin_left, & - my_ymin_right, my_ymax_right, my_dymin_right - -contains - - subroutine my_pgstar_plots_info(id, ierr) - integer, intent(in) :: id - integer, intent(out) :: ierr - - integer, parameter :: num_Other_plots = 1 ! can have up to max_num_Other_plots - integer :: i, plot_id - type(pgstar_win_file_data), pointer :: p - type(star_info), pointer :: s - - ierr = 0 - call star_ptr(id, s, ierr) - if (ierr /= 0) return - - call set_my_namelist_defaults - call read_my_pgstar_namelist('inlist_for_my_pgstar_plots', ierr) - if (ierr /= 0) return - - do i = 1, num_Other_plots - plot_id = i_Other + i - 1 - p => s%pg%pgstar_win_file_ptr(plot_id) - p%plot => my_plot - p%id = plot_id - p%name = 'My_Plot' - p%win_flag = my_win_flag - p%win_width = my_win_width - p%win_aspect_ratio = my_win_aspect_ratio - p%file_flag = my_file_flag - p%file_dir = my_file_dir - p%file_prefix = my_file_prefix - p%file_interval = my_file_interval - p%file_width = my_file_width - p%file_aspect_ratio = my_file_aspect_ratio - end do - - end subroutine my_pgstar_plots_info - - subroutine set_my_namelist_defaults - - my_win_flag = .false. - - my_win_width = 7 - my_win_aspect_ratio = 0.62 ! aspect_ratio = height/width - - my_xaxis_by = 'mass' ! same choices as for main window xaxis_by - my_xmin = -101 ! only used if > -100 - my_xmax = -101 ! only used if > -100 - - my_ymin_left = -101 ! only used if > -100 - my_ymax_left = -101 ! only used if > -100 - my_dymin_left = -101 ! only used if > -100 - - my_ymin_right = -101 ! only used if > -100 - my_ymax_right = -101 ! only used if > -100 - my_dymin_right = -101 ! only used if > -100 - - ! file output - my_file_flag = .false. - my_file_dir = 'pgstar_out' - my_file_prefix = 'profile' - my_file_interval = 5 ! output when mod(model_number,my_file_interval)==0 - my_file_width = -1 ! negative means use same value as for window - my_file_aspect_ratio = -1 ! negative means use same value as for window - - end subroutine set_my_namelist_defaults - - subroutine read_my_pgstar_namelist(filename, ierr) - use utils_lib - character(*), intent(in) :: filename - integer, intent(out) :: ierr - - integer :: unit - - ierr = 0 - - open (newunit=unit, file=trim(filename), action='read', delim='quote', status='old', iostat=ierr) - if (ierr /= 0) then - write (*, '(a)') 'Failed to open control namelist file '//trim(filename) - return - end if - read (unit, nml=my_pgstar, iostat=ierr) - close (unit) - - if (ierr /= 0) then - write (*, *) - write (*, *) - write (*, *) - write (*, *) - write (*, '(a)') & - 'Failed while trying to read control namelist file: '//trim(filename) - write (*, '(a)') & - 'Perhaps the following runtime error message will help you find the problem.' - write (*, *) - open (newunit=unit, file=trim(filename), action='read', delim='quote', status='old', iostat=ierr) - read (unit, nml=my_pgstar) - close (unit) - return - end if - - end subroutine read_my_pgstar_namelist - - subroutine my_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - - real :: winxmin, winxmax, winymin, winymax, label_scale - - type(star_info), pointer :: s - - ierr = 0 - call star_ptr(id, s, ierr) - if (ierr /= 0) return - - call pgslct(device_id) - call pgbbuf() - call pgeras() - - winxmin = 0.14 - winxmax = 0.85 - winymin = 0.13 - winymax = 0.92 - label_scale = 1.2 - - call do_my_plot(s, device_id, & - winxmin, winxmax, winymin, winymax, & - label_scale, ierr) - - call pgebuf() - - end subroutine my_plot - - subroutine do_my_plot(s, device_id, & - winxmin, winxmax, winymin, winymax, label_scale, ierr) - - use utils_lib - use const_def - - type(star_info), pointer :: s - integer, intent(in) :: device_id - real, intent(in) :: winxmin, winxmax, winymin, winymax, label_scale - integer, intent(out) :: ierr - - real :: xmargin - real :: xmin, xmax, xleft, xright, dx, ymin, ymax, ymin2, ymax2, dy - integer :: grid_min, grid_max, npts, nz - real, allocatable, dimension(:) :: xvec, yvec, yvec2, yvec3 - - logical :: dbg = .false. - - include 'formats' - ierr = 0 - xmargin = 0 - - nz = s%nz - allocate (xvec(nz), yvec(nz), yvec2(nz), yvec3(nz)) - - call set_pgstar_xaxis_bounds( & - s, my_xaxis_by, my_xmin, my_xmax, xmargin, & - xvec, xmin, xmax, xleft, xright, dx, & - grid_min, grid_max, npts, ierr) - if (ierr /= 0) return - - if (dbg) then - write (*, 1) 'my_xaxis_by '//trim(my_xaxis_by) - write (*, 1) 'my_xmin', my_xmin - write (*, 1) 'my_xmax', my_xmax - write (*, 2) 'grid_min', grid_min - write (*, 2) 'grid_max', grid_max - write (*, 1) 'xmin', xmin - write (*, 1) 'xmax', xmax - write (*, 1) 'xleft', xleft - write (*, 1) 'xright', xright - write (*, 1) 'dx', dx - end if - - call plot(ierr) - if (ierr /= 0) return - - deallocate (xvec, yvec, yvec2, yvec3) - - contains - - subroutine plot(ierr) - use rates_def, only: i_rate - use chem_def, only: ipp, icno - integer, intent(out) :: ierr - - integer :: lw, lw_sav, k - real :: default_ymax_left, default_ymin_left, & - default_ymax_right, default_ymin_right - character(len=128) :: str - - include 'formats' - ierr = 0 - - call pgsave - - lw = 6 - call pgqlw(lw_sav) - - call pgsvp(winxmin, winxmax, winymin, winymax) - - ! title - call pgmtxt('T', 1.5, 0.5, 0.5, 'My Plot') - - call pgsch(label_scale) - write (str, '(i9)') s%model_number - call pgmtxt('T', 1.8, 0.9, 0.5, str) - - ! xlabel - call pgsci(1) - call pgsch(label_scale) - call show_pgstar_xaxis_by(s, my_xaxis_by, ierr) - if (ierr /= 0) return - - ! left axis - - default_ymax_left = 10 - default_ymin_left = -2 - - yvec = s%lnd(1:nz)/ln10 - yvec2 = s%lnT(1:nz)/ln10 - - if (my_ymax_left > -100) then - ymax = my_ymax_left - else - ymax = max(default_ymax_left, maxval(yvec(grid_min:grid_max))) - ymax2 = max(default_ymax_left, maxval(yvec2(grid_min:grid_max))) - if (ymax2 > ymax) ymax = ymax2 - end if - - if (my_ymin_left > -100) then - ymin = my_ymin_left - else - ymin = max(default_ymin_left, minval(yvec(grid_min:grid_max))) - ymin2 = max(default_ymin_left, minval(yvec2(grid_min:grid_max))) - if (ymin2 < ymin) ymin = ymin2 - end if - - dy = ymax - ymin - if (dy == 0) dy = 1 - if (my_dymin_left > -100) dy = my_dymin_left - - ymax = ymax + 0.1*dy - ymin = ymin - 0.1*dy - - if (dbg) then - write (*, 1) 'left axis xleft, xright', xleft, xright - write (*, 1) 'left axis ymin, ymax, dy', ymin, ymax, dy - end if - - call pgswin(xleft, xright, ymin, ymax) - call pgscf(1) - call pgsci(1) - call pgsch(label_scale) - call pgbox('', 0.0, 0, 'BNSTV', 0.0, 0) - - call pgsci(clr_Teal) - call pgsch(label_scale) - call pgmtxt('L', 3.6, 0.5, 0.5, 'log density (g cm\u-3\d)') - call pgslw(lw) - call pgline(npts, xvec(grid_min:grid_max), yvec(grid_min:grid_max)) - call pgslw(lw_sav) - - call pgsci(clr_Coral) - call pgmtxt('L', 5.3, 0.5, 0.5, 'log T (K)') - call pgslw(lw) - call pgline(npts, xvec(grid_min:grid_max), yvec2(grid_min:grid_max)) - call pgslw(lw_sav) - - ! right axis - - lw = 8 - - default_ymax_right = 0 - default_ymin_right = -10 - - do k = 1, nz - yvec(k) = safe_log10(s%eps_nuc_categories(ipp, k)) - yvec2(k) = safe_log10(s%eps_nuc_categories(icno, k)) - end do - - if (my_ymax_right > -100) then - ymax = my_ymax_right - else - ymax = max(default_ymax_right, maxval(yvec(grid_min:grid_max))) - ymax2 = max(default_ymax_right, maxval(yvec2(grid_min:grid_max))) - if (ymax2 > ymax) ymax = ymax2 - end if - if (my_ymin_right > -100) then - ymin = my_ymin_right - else - ymin = max(default_ymin_right, minval(yvec(grid_min:grid_max))) - ymin2 = max(default_ymin_right, minval(yvec2(grid_min:grid_max))) - if (ymin2 < ymin) ymin = ymin2 - end if - - dy = ymax - ymin - if (dy == 0) dy = 1 - if (my_dymin_right > -100) dy = my_dymin_right - - ymax = ymax + 0.1*dy - ymin = ymin - 0.1*dy - - if (dbg) then - write (*, 1) 'right axis xleft, xright', xleft, xright - write (*, 1) 'right axis ymin, ymax, dy', ymin, ymax, dy - end if - - call pgswin(xleft, xright, ymin, ymax) - - call pgscf(1) - call pgsci(1) - call pgsch(label_scale) - call pgbox('BCNST', 0.0, 0, 'CMSTV', 0.0, 0) - - call pgsci(clr_FireBrick) - call pgmtxt('R', 5.6, 0.5, 0.5, 'log eps PP (erg g\u-1\d s\u-1\d)') - call pgslw(lw) - call pgline(npts, xvec(grid_min:grid_max), yvec2(grid_min:grid_max)) - call pgslw(lw_sav) - - call pgsci(clr_RoyalBlue) - call pgmtxt('R', 3.9, 0.5, 0.5, 'log eps CNO (erg g\u-1\d s\u-1\d)') - call pgslw(lw) - call pgline(npts, xvec(grid_min:grid_max), yvec(grid_min:grid_max)) - call pgslw(lw_sav) - - call pgunsa - - end subroutine plot - - end subroutine do_my_plot - -end module sample_pgstar_plot - -! inlist_for_my_pgstar_plots - -! remove the leading !'s to use this - -!&my_pgstar -! -! my_win_flag = .true. -! -! my_win_width = 7 -! my_win_aspect_ratio = 0.62 ! aspect_ratio = height/width -! -! my_xaxis_by = 'mass' ! same choices as for main window xaxis_by -! my_xmin = -101 ! only used if > -100 -! my_xmax = -101 ! only used if > -100 -! -! ! file output -! my_file_flag = .false. -! my_file_dir = 'pgstar_out' -! my_file_prefix = 'profile' -! my_file_interval = 5 ! output when mod(model_number,my_file_interval)==0 -! my_file_width = -1 ! negative means use same value as for window -! my_file_aspect_ratio = -1 ! negative means use same value as for window -! -! -!/ ! end of my_pgstar namelist - + module sample_pgstar_plot + + ! you can add your own pgstar plots in addition to the standard ones. + ! don't edit this file + ! instead copy the contents to your src/run_star_extras file and edit that. + + ! edit the extras_controls routine to set s% other_pgstar_plots_info + ! s% other_pgstar_plots_info => my_pgstar_plots_info + + + use star_lib + use star_def + use math_lib + use star_pgstar + + implicit none + + + ! basics needed for every pgstar plot + logical :: my_win_flag, my_file_flag + integer :: my_file_interval + character (len=256) :: my_file_dir, my_file_prefix + real :: & + my_win_width, my_win_aspect_ratio, & + my_file_width, my_file_aspect_ratio + + ! optional extra controls + character (len=256) :: my_xaxis_by + real :: & + my_xmin, my_xmax, & + my_ymin_left, my_ymax_left, my_dymin_left, & + my_ymin_right, my_ymax_right, my_dymin_right + + + namelist /my_pgstar/ & + my_win_flag, my_file_flag, & + my_file_interval, & + my_file_dir, my_file_prefix, & + my_win_width, my_win_aspect_ratio, & + my_file_width, my_file_aspect_ratio, & + my_xaxis_by, my_xmin, my_xmax, & + my_ymin_left, my_ymax_left, my_dymin_left, & + my_ymin_right, my_ymax_right, my_dymin_right + + + contains + + + subroutine my_pgstar_plots_info(id, ierr) + integer, intent(in) :: id + integer, intent(out) :: ierr + + integer, parameter :: num_Other_plots = 1 ! can have up to max_num_Other_plots + integer :: i, plot_id + type (pgstar_win_file_data), pointer :: p + type (star_info), pointer :: s + + ierr = 0 + call star_ptr(id, s, ierr) + if (ierr /= 0) return + + call set_my_namelist_defaults + call read_my_pgstar_namelist('inlist_for_my_pgstar_plots', ierr) + if (ierr /= 0) return + + do i = 1, num_Other_plots + plot_id = i_Other + i - 1 + p => s% pg% pgstar_win_file_ptr(plot_id) + p% plot => my_plot + p% id = plot_id + p% name = 'My_Plot' + p% win_flag = my_win_flag + p% win_width = my_win_width + p% win_aspect_ratio = my_win_aspect_ratio + p% file_flag = my_file_flag + p% file_dir = my_file_dir + p% file_prefix = my_file_prefix + p% file_interval = my_file_interval + p% file_width = my_file_width + p% file_aspect_ratio = my_file_aspect_ratio + end do + + end subroutine my_pgstar_plots_info + + + subroutine set_my_namelist_defaults + + my_win_flag = .false. + + my_win_width = 7 + my_win_aspect_ratio = 0.62 ! aspect_ratio = height/width + + my_xaxis_by = 'mass' ! same choices as for main window xaxis_by + my_xmin = -101 ! only used if > -100 + my_xmax = -101 ! only used if > -100 + + my_ymin_left = -101 ! only used if > -100 + my_ymax_left = -101 ! only used if > -100 + my_dymin_left = -101 ! only used if > -100 + + my_ymin_right = -101 ! only used if > -100 + my_ymax_right = -101 ! only used if > -100 + my_dymin_right = -101 ! only used if > -100 + + ! file output + my_file_flag = .false. + my_file_dir = 'pgstar_out' + my_file_prefix = 'profile' + my_file_interval = 5 ! output when mod(model_number,my_file_interval)==0 + my_file_width = -1 ! negative means use same value as for window + my_file_aspect_ratio = -1 ! negative means use same value as for window + + end subroutine set_my_namelist_defaults + + + subroutine read_my_pgstar_namelist(filename, ierr) + use utils_lib + character(*), intent(in) :: filename + integer, intent(out) :: ierr + + integer :: unit + + ierr = 0 + + open(newunit=unit, file=trim(filename), action='read', delim='quote', status='old', iostat=ierr) + if (ierr /= 0) then + write(*,'(a)') 'Failed to open control namelist file '// trim(filename) + return + end if + read(unit, nml=my_pgstar, iostat=ierr) + close(unit) + + if (ierr /= 0) then + write(*, *) + write(*, *) + write(*, *) + write(*, *) + write(*, '(a)') & + 'Failed while trying to read control namelist file: ' // trim(filename) + write(*, '(a)') & + 'Perhaps the following runtime error message will help you find the problem.' + write(*, *) + open(newunit=unit, file=trim(filename), action='read', delim='quote', status='old', iostat=ierr) + read(unit, nml=my_pgstar) + close(unit) + return + end if + + end subroutine read_my_pgstar_namelist + + + subroutine my_plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix + integer, intent(out) :: ierr + + real :: winxmin, winxmax, winymin, winymax, label_scale + + type (star_info), pointer :: s + + ierr = 0 + call star_ptr(id, s, ierr) + if (ierr /= 0) return + + call pgslct(device_id) + call pgbbuf() + call pgeras() + + winxmin = 0.14 + winxmax = 0.85 + winymin = 0.13 + winymax = 0.92 + label_scale = 1.2 + + call do_my_plot(s, device_id, & + winxmin, winxmax, winymin, winymax, & + label_scale, ierr) + + call pgebuf() + + end subroutine my_plot + + + subroutine do_my_plot(s, device_id, & + winxmin, winxmax, winymin, winymax, label_scale, ierr) + + use utils_lib + use const_def + + type (star_info), pointer :: s + integer, intent(in) :: device_id + real, intent(in) :: winxmin, winxmax, winymin, winymax, label_scale + integer, intent(out) :: ierr + + real :: windy, xmargin + real :: xmin, xmax, xleft, xright, dx, tmp, ymin, ymax, ymin2, ymax2, dy + integer :: grid_min, grid_max, npts, nz + real, allocatable, dimension(:) :: xvec, yvec, yvec2, yvec3 + + logical :: dbg = .false. + + include 'formats' + ierr = 0 + xmargin = 0 + + nz = s% nz + allocate (xvec(nz), yvec(nz), yvec2(nz), yvec3(nz)) + + call set_pgstar_xaxis_bounds( & + s, my_xaxis_by, my_xmin, my_xmax, xmargin, & + xvec, xmin, xmax, xleft, xright, dx, & + grid_min, grid_max, npts, ierr) + if (ierr /= 0) return + + if (dbg) then + write(*,1) 'my_xaxis_by ' // trim(my_xaxis_by) + write(*,1) 'my_xmin', my_xmin + write(*,1) 'my_xmax', my_xmax + write(*,2) 'grid_min', grid_min + write(*,2) 'grid_max', grid_max + write(*,1) 'xmin', xmin + write(*,1) 'xmax', xmax + write(*,1) 'xleft', xleft + write(*,1) 'xright', xright + write(*,1) 'dx', dx + end if + + call plot(ierr) + if (ierr /= 0) return + + deallocate(xvec, yvec, yvec2, yvec3) + + + contains + + + subroutine plot(ierr) + use rates_def, only: i_rate + use chem_def, only: ipp, icno + integer, intent(out) :: ierr + + integer :: lw, lw_sav, k + real :: ybot, eps, & + default_ymax_left, default_ymin_left, & + default_ymax_right, default_ymin_right + character (len=128) :: str + + include 'formats' + ierr = 0 + + call pgsave + + lw = 6 + call pgqlw(lw_sav) + + call pgsvp(winxmin, winxmax, winymin, winymax) + + ! title + call pgmtxt('T',1.5,0.5,0.5,'My Plot') + + call pgsch(label_scale) + write(str,'(i9)') s% model_number + call pgmtxt('T',1.8,0.9,0.5,str) + + ! xlabel + call pgsci(1) + call pgsch(label_scale) + call show_pgstar_xaxis_by(s,my_xaxis_by,ierr) + if (ierr /= 0) return + + + ! left axis + + default_ymax_left = 10 + default_ymin_left = -2 + + yvec = s% lnd(1:nz)/ln10 + yvec2 = s% lnT(1:nz)/ln10 + + if (my_ymax_left > -100) then + ymax = my_ymax_left + else + ymax = max(default_ymax_left,maxval(yvec(grid_min:grid_max))) + ymax2 = max(default_ymax_left,maxval(yvec2(grid_min:grid_max))) + if (ymax2 > ymax) ymax = ymax2 + end if + + if (my_ymin_left > -100) then + ymin = my_ymin_left + else + ymin = max(default_ymin_left,minval(yvec(grid_min:grid_max))) + ymin2 = max(default_ymin_left,minval(yvec2(grid_min:grid_max))) + if (ymin2 < ymin) ymin = ymin2 + end if + + dy = ymax-ymin + if (dy == 0) dy = 1 + if (my_dymin_left > -100) dy = my_dymin_left + + ymax = ymax + 0.1*dy + ymin = ymin - 0.1*dy + + if (dbg) then + write(*,1) 'left axis xleft, xright', xleft, xright + write(*,1) 'left axis ymin, ymax, dy', ymin, ymax, dy + end if + + call pgswin(xleft, xright, ymin, ymax) + call pgscf(1) + call pgsci(1) + call pgsch(label_scale) + call pgbox('',0.0,0,'BNSTV',0.0,0) + + call pgsci(clr_Teal) + call pgsch(label_scale) + call pgmtxt('L',3.6,0.5,0.5,'log density (g cm\u-3\d)') + call pgslw(lw) + call pgline(npts, xvec(grid_min:grid_max), yvec(grid_min:grid_max)) + call pgslw(lw_sav) + + call pgsci(clr_Coral) + call pgmtxt('L',5.3,0.5,0.5,'log T (K)') + call pgslw(lw) + call pgline(npts, xvec(grid_min:grid_max), yvec2(grid_min:grid_max)) + call pgslw(lw_sav) + + + ! right axis + + lw = 8 + + default_ymax_right = 0 + default_ymin_right = -10 + + do k=1,nz + yvec(k) = safe_log10(s% eps_nuc_categories(ipp,k)) + yvec2(k) = safe_log10(s% eps_nuc_categories(icno,k)) + end do + + if (my_ymax_right > -100) then + ymax = my_ymax_right + else + ymax = max(default_ymax_right,maxval(yvec(grid_min:grid_max))) + ymax2 = max(default_ymax_right,maxval(yvec2(grid_min:grid_max))) + if (ymax2 > ymax) ymax = ymax2 + end if + if (my_ymin_right > -100) then + ymin = my_ymin_right + else + ymin = max(default_ymin_right,minval(yvec(grid_min:grid_max))) + ymin2 = max(default_ymin_right,minval(yvec2(grid_min:grid_max))) + if (ymin2 < ymin) ymin = ymin2 + end if + + dy = ymax-ymin + if (dy == 0) dy = 1 + if (my_dymin_right > -100) dy = my_dymin_right + + ymax = ymax + 0.1*dy + ymin = ymin - 0.1*dy + + if (dbg) then + write(*,1) 'right axis xleft, xright', xleft, xright + write(*,1) 'right axis ymin, ymax, dy', ymin, ymax, dy + end if + + call pgswin(xleft, xright, ymin, ymax) + + call pgscf(1) + call pgsci(1) + call pgsch(label_scale) + call pgbox('BCNST',0.0,0,'CMSTV',0.0,0) + + call pgsci(clr_FireBrick) + call pgmtxt('R',5.6,0.5,0.5,'log eps PP (erg g\u-1\d s\u-1\d)') + call pgslw(lw) + call pgline(npts, xvec(grid_min:grid_max), yvec2(grid_min:grid_max)) + call pgslw(lw_sav) + + call pgsci(clr_RoyalBlue) + call pgmtxt('R',3.9,0.5,0.5,'log eps CNO (erg g\u-1\d s\u-1\d)') + call pgslw(lw) + call pgline(npts, xvec(grid_min:grid_max), yvec(grid_min:grid_max)) + call pgslw(lw_sav) + + call pgunsa + + end subroutine plot + + + end subroutine do_my_plot + + + + + + + end module sample_pgstar_plot + + + + ! inlist_for_my_pgstar_plots + + ! remove the leading !'s to use this + + + !&my_pgstar + ! + ! my_win_flag = .true. + ! + ! my_win_width = 7 + ! my_win_aspect_ratio = 0.62 ! aspect_ratio = height/width + ! + ! my_xaxis_by = 'mass' ! same choices as for main window xaxis_by + ! my_xmin = -101 ! only used if > -100 + ! my_xmax = -101 ! only used if > -100 + ! + ! ! file output + ! my_file_flag = .false. + ! my_file_dir = 'pgstar_out' + ! my_file_prefix = 'profile' + ! my_file_interval = 5 ! output when mod(model_number,my_file_interval)==0 + ! my_file_width = -1 ! negative means use same value as for window + ! my_file_aspect_ratio = -1 ! negative means use same value as for window + ! + ! + !/ ! end of my_pgstar namelist + \ No newline at end of file diff --git a/star/private/pgstar_abundance.f90 b/star/private/pgstar_abundance.f90 index 5f3f4ae1d..a2e387443 100644 --- a/star/private/pgstar_abundance.f90 +++ b/star/private/pgstar_abundance.f90 @@ -36,9 +36,8 @@ module pgstar_abundance contains - subroutine abundance_plot(id, device_id, ierr) - implicit none - integer, intent(in) :: id, device_id + subroutine abundance_plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (star_info), pointer :: s diff --git a/star/private/pgstar_color_magnitude.f90 b/star/private/pgstar_color_magnitude.f90 index 307093df6..c558edd72 100644 --- a/star/private/pgstar_color_magnitude.f90 +++ b/star/private/pgstar_color_magnitude.f90 @@ -23,910 +23,438 @@ ! ! *********************************************************************** - module pgstar_Color_Magnitude +module pgstar_Color_Magnitude + + use star_private_def + use const_def + use pgstar_support + use star_pgstar + + implicit none + + +contains + + + subroutine Color_Magnitude_plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix + integer, intent(out) :: ierr + type (star_info), pointer :: s + ierr = 0 + + call get_star_ptr(id, s, ierr) + if (ierr /= 0) return + call pgslct(device_id) + call pgbbuf() + call pgeras() + call do_Color_Magnitude_plot(s, id, device_id, array_ix, & + s% pg% Color_Magnitude_xleft(array_ix), s% pg% Color_Magnitude_xright(array_ix), & + s% pg% Color_Magnitude_ybot(array_ix), s% pg% Color_Magnitude_ytop(array_ix), .false., & + s% pg% Color_Magnitude_title(array_ix), s% pg% Color_Magnitude_txt_scale(array_ix), ierr) + if (ierr /= 0) return + call pgebuf() + end subroutine Color_Magnitude_plot + + + subroutine do_Color_Magnitude_plot(s, id, device_id, array_ix, & + vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) + type (star_info), pointer :: s + integer, intent(in) :: id, device_id, array_ix + real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale + logical, intent(in) :: subplot + character (len = *), intent(in) :: title + integer, intent(out) :: ierr + procedure(pgstar_decorator_interface), pointer :: decorator + + select case (array_ix) ! decorator interfaces cannot be arrayified + case(1) + decorator => s% pg% Color_Magnitude1_pgstar_decorator + case(2) + decorator => s% pg% Color_Magnitude2_pgstar_decorator + case(3) + decorator => s% pg% Color_Magnitude3_pgstar_decorator + case(4) + decorator => s% pg% Color_Magnitude4_pgstar_decorator + case(5) + decorator => s% pg% Color_Magnitude5_pgstar_decorator + case(6) + decorator => s% pg% Color_Magnitude6_pgstar_decorator + case(7) + decorator => s% pg% Color_Magnitude7_pgstar_decorator + case(8) + decorator => s% pg% Color_Magnitude8_pgstar_decorator + case(9) + decorator => s% pg% Color_Magnitude9_pgstar_decorator + case default + write(*, *) "select appropriate color magnitude window (1..9)" + return + end select + + call do_one_cm_plot(& + id, s, device_id, array_ix, & + vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & + s% pg% Color_Magnitude_max_width(array_ix), s% pg% Color_Magnitude_num_panels(array_ix), & + + s% pg% Color_Magnitude_xaxis1_name(array_ix), s% pg% Color_Magnitude_xaxis2_name(array_ix), & + s% pg% Color_Magnitude_xmin(array_ix), s% pg% Color_Magnitude_xmax(array_ix), & + s% pg% Color_Magnitude_dxmin(array_ix), s% pg% Color_Magnitude_xmargin(array_ix), & + s% pg% Color_Magnitude_xaxis_reversed(array_ix), s% pg% Color_Magnitude_xaxis_log(array_ix), & + + s% pg% Color_Magnitude_yaxis1_name(array_ix, :), s% pg% Color_Magnitude_yaxis2_name(array_ix, :), & + s% pg% Color_Magnitude_ymin(array_ix, :), s% pg% Color_Magnitude_ymax(array_ix, :), & + s% pg% Color_Magnitude_dymin(array_ix, :), s% pg% Color_Magnitude_ymargin(array_ix, :), & + s% pg% Color_Magnitude_yaxis_reversed(array_ix, :), s% pg% Color_Magnitude_yaxis_log(array_ix, :), & + + s% pg% Color_Magnitude_other_yaxis1_name(array_ix, :), s% pg% Color_Magnitude_other_yaxis2_name(array_ix, :), & + s% pg% Color_Magnitude_other_ymin(array_ix, :), s% pg% Color_Magnitude_other_ymax(array_ix, :), & + s% pg% Color_Magnitude_other_dymin(array_ix, :), s% pg% Color_Magnitude_other_ymargin(array_ix, :), & + s% pg% Color_Magnitude_other_yaxis_reversed(array_ix, :), s% pg% Color_Magnitude_other_yaxis_log(array_ix, :), & + + s% pg% Color_Magnitude_use_decorator(array_ix), decorator, & + ierr) + end subroutine do_Color_Magnitude_plot + + + subroutine do_one_cm_plot(& + id, s, device_id, array_ix, & + vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & + color_max_width, color_num_panels, & + + color_xaxis1_name, color_xaxis2_name, & + color_xmin_in, color_xmax, & + color_dxmin, color_xmargin, & + color_xaxis_reversed, color_xaxis_log, & + + color_yaxis1_name, color_yaxis2_name, & + color_ymin, color_ymax, & + color_dymin, color_ymargin, & + color_yaxis_reversed, color_yaxis_log, & + + color_other_yaxis1_name, color_other_yaxis2_name, & + color_other_ymin, color_other_ymax, & + color_other_dymin, color_other_ymargin, & + color_other_yaxis_reversed, color_other_yaxis_log, & + + color_use_decorator, color_pgstar_decorator, & + ierr) + use utils_lib + use star_def + + type (star_info), pointer :: s + integer, intent(in) :: id, device_id, array_ix, color_num_panels + logical, intent(in) :: subplot, color_xaxis_reversed, color_xaxis_log + character (len = *), intent(in) :: title, color_xaxis1_name, color_xaxis2_name + real, intent(in) :: & + vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale, & + color_xmin_in, color_xmax, color_max_width, color_xmargin, color_dxmin + real, intent(in), dimension(:) :: & + color_other_ymin, color_other_ymax, & + color_other_dymin, color_other_ymargin, & + color_ymin, color_ymax, color_dymin, color_ymargin + logical, intent(in), dimension(:) :: & + color_other_yaxis_reversed, color_other_yaxis_log, & + color_yaxis_reversed, color_yaxis_log + logical, intent(in) :: color_use_decorator + character (len = *), intent(in), dimension(:) :: & + color_other_yaxis1_name, color_other_yaxis2_name, & + color_yaxis1_name, color_yaxis2_name + integer, intent(out) :: ierr + procedure(pgstar_decorator_interface), pointer :: color_pgstar_decorator + + character (len = strlen) :: yname, other_yname + character (len = strlen) :: yname1, yname2, & + other_yname1, other_yname2 + real, allocatable, dimension(:) :: xvec1, xvec2, yvec1, yvec2, & + other_yvec1, other_yvec2 + real, allocatable, dimension(:) :: xvec, yvec, other_yvec + + integer :: i, ii, n, j, k, max_width, step_min, step_max, & + y_color, other_y_color, yaxis_id, other_yaxis_id, & + clr_sav, npts, yfile_data_len, other_yfile_data_len + real :: color_xmin, xmin, xmax, dx, xleft, xright, & + ymargin, panel_dy, panel_ytop, panel_ybot, & + ymin, ymax, dy, ybot, ytop, & + other_ymin, other_ymax, other_ybot, other_ytop + logical :: have_yaxis1, have_other_yaxis1, have_yaxis2, have_other_yaxis2, have_xaxis2 + logical :: have_yaxis, have_other_yaxis + + integer :: grid_min, grid_max + integer :: ix1, ix2 + + include 'formats' + ierr = 0 + have_xaxis2 = .False. + + step_min = 1 + step_max = s% model_number + + n = count_hist_points(s, step_min, step_max) + + allocate(xvec1(n), xvec2(n), yvec1(n), yvec2(n), other_yvec1(n), other_yvec2(n), stat = ierr) + if (ierr /= 0) then + write(*, *) 'allocate failed for PGSTAR' + return + end if + + allocate(xvec(n), yvec(n), other_yvec(n), stat = ierr) + if (ierr /= 0) then + write(*, *) 'allocate failed for PGSTAR' + return + end if + + call integer_dict_lookup(s% history_names_dict, color_xaxis1_name, ix1, ierr) + if (ierr /= 0) ix1 = -1 + if (ix1 <= 0) then + write(*, '(A)') + write(*, *) 'ERROR: failed to find ' // & + trim(color_xaxis1_name) // ' in history data' + write(*, '(A)') + ierr = -1 + end if + + if(len_trim(color_xaxis2_name)>0) THEN + have_xaxis2 = .True. + call integer_dict_lookup(s% history_names_dict, color_xaxis2_name, ix2, ierr) + if (ierr /= 0) ix2 = -1 + if (ix2 <= 0) then + write(*, '(A)') + write(*, *) 'ERROR: failed to find ' // & + trim(color_xaxis2_name) // ' in history data' + write(*, '(A)') + ierr = -1 + end if + end if - use star_private_def - use const_def - use pgstar_support - use star_pgstar + color_xmin = color_xmin_in - implicit none + call get_hist_points(s, step_min, step_max, n, ix1, xvec1, ierr) + if (ierr /= 0) then + write(*, *) 'pgstar get_hist_points failed ' // trim(color_xaxis1_name) + deallocate(xvec1, xvec2) + call dealloc + ierr = 0 + return + end if + if (have_xaxis2) call get_hist_points(s, step_min, step_max, n, ix2, xvec2, ierr) + if (ierr /= 0) then + write(*, *) 'pgstar get_hist_points failed ' // trim(color_xaxis2_name) + deallocate(xvec1, xvec2) + call dealloc + ierr = 0 + return + end if + xvec = xvec1 + if(have_xaxis2) xvec = xvec - xvec2 - contains + deallocate(xvec1, xvec2) + call set_xleft_xright(& + n, xvec, color_xmin, color_xmax, color_xmargin, & + color_xaxis_reversed, color_dxmin, xleft, xright) - subroutine Color_Magnitude1_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_Color_Magnitude1_plot(s, id, device_id, & - s% pg% Color_Magnitude1_xleft, s% pg% Color_Magnitude1_xright, & - s% pg% Color_Magnitude1_ybot, s% pg% Color_Magnitude1_ytop, .false., & - s% pg% Color_Magnitude1_title, s% pg% Color_Magnitude1_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Color_Magnitude1_plot - - - subroutine do_Color_Magnitude1_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call do_Color_Magnitude_plot( & - id, s, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% Color_Magnitude1_xaxis1_name, & - s% pg% Color_Magnitude1_xaxis2_name, & - s% pg% Color_Magnitude1_xmin, & - s% pg% Color_Magnitude1_xmax, & - s% pg% Color_Magnitude1_dxmin, & - s% pg% Color_Magnitude1_xmargin, & - s% pg% Color_Magnitude1_max_width, & - s% pg% Color_Magnitude1_num_panels, & - s% pg% Color_Magnitude1_other_ymin, & - s% pg% Color_Magnitude1_other_ymax, & - s% pg% Color_Magnitude1_yaxis_reversed, & - s% pg% Color_Magnitude1_other_yaxis_log, & - s% pg% Color_Magnitude1_other_dymin, & - s% pg% Color_Magnitude1_other_ymargin, & - s% pg% Color_Magnitude1_other_yaxis1_name, & - s% pg% Color_Magnitude1_other_yaxis2_name, & - s% pg% Color_Magnitude1_ymin, & - s% pg% Color_Magnitude1_ymax, & - s% pg% Color_Magnitude1_xaxis_reversed, & - s% pg% Color_Magnitude1_yaxis_reversed, & - s% pg% Color_Magnitude1_xaxis_log, & - s% pg% Color_Magnitude1_yaxis_log, & - s% pg% Color_Magnitude1_dymin, & - s% pg% Color_Magnitude1_ymargin, & - s% pg% Color_Magnitude1_yaxis1_name, & - s% pg% Color_Magnitude1_yaxis2_name, & - s% pg% Color_Magnitude1_use_decorator, & - s% pg% Color_Magnitude1_pgstar_decorator, & - ierr) - end subroutine do_Color_Magnitude1_plot - - - subroutine Color_Magnitude2_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_Color_Magnitude2_plot(s, id, device_id, & - s% pg% Color_Magnitude2_xleft, s% pg% Color_Magnitude2_xright, & - s% pg% Color_Magnitude2_ybot, s% pg% Color_Magnitude2_ytop, .false., & - s% pg% Color_Magnitude2_title, s% pg% Color_Magnitude2_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Color_Magnitude2_plot - - - subroutine do_Color_Magnitude2_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call do_Color_Magnitude_plot( & - id, s, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% Color_Magnitude2_xaxis1_name, & - s% pg% Color_Magnitude2_xaxis2_name, & - s% pg% Color_Magnitude2_xmin, & - s% pg% Color_Magnitude2_xmax, & - s% pg% Color_Magnitude2_dxmin, & - s% pg% Color_Magnitude2_xmargin, & - s% pg% Color_Magnitude2_max_width, & - s% pg% Color_Magnitude2_num_panels, & - s% pg% Color_Magnitude2_other_ymin, & - s% pg% Color_Magnitude2_other_ymax, & - s% pg% Color_Magnitude2_yaxis_reversed, & - s% pg% Color_Magnitude2_other_yaxis_log, & - s% pg% Color_Magnitude2_other_dymin, & - s% pg% Color_Magnitude2_other_ymargin, & - s% pg% Color_Magnitude2_other_yaxis1_name, & - s% pg% Color_Magnitude2_other_yaxis2_name, & - s% pg% Color_Magnitude2_ymin, & - s% pg% Color_Magnitude2_ymax, & - s% pg% Color_Magnitude2_xaxis_reversed, & - s% pg% Color_Magnitude2_yaxis_reversed, & - s% pg% Color_Magnitude2_xaxis_log, & - s% pg% Color_Magnitude2_yaxis_log, & - s% pg% Color_Magnitude2_dymin, & - s% pg% Color_Magnitude2_ymargin, & - s% pg% Color_Magnitude2_yaxis1_name, & - s% pg% Color_Magnitude2_yaxis2_name, & - s% pg% Color_Magnitude2_use_decorator, & - s% pg% Color_Magnitude2_pgstar_decorator, & - ierr) - end subroutine do_Color_Magnitude2_plot - - - subroutine Color_Magnitude3_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_Color_Magnitude3_plot(s, id, device_id, & - s% pg% Color_Magnitude3_xleft, s% pg% Color_Magnitude3_xright, & - s% pg% Color_Magnitude3_ybot, s% pg% Color_Magnitude3_ytop, .false., & - s% pg% Color_Magnitude3_title, s% pg% Color_Magnitude3_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Color_Magnitude3_plot - - - subroutine do_Color_Magnitude3_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call do_Color_Magnitude_plot( & - id, s, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% Color_Magnitude3_xaxis1_name, & - s% pg% Color_Magnitude3_xaxis2_name, & - s% pg% Color_Magnitude3_xmin, & - s% pg% Color_Magnitude3_xmax, & - s% pg% Color_Magnitude3_dxmin, & - s% pg% Color_Magnitude3_xmargin, & - s% pg% Color_Magnitude3_max_width, & - s% pg% Color_Magnitude3_num_panels, & - s% pg% Color_Magnitude3_other_ymin, & - s% pg% Color_Magnitude3_other_ymax, & - s% pg% Color_Magnitude3_yaxis_reversed, & - s% pg% Color_Magnitude3_other_yaxis_log, & - s% pg% Color_Magnitude3_other_dymin, & - s% pg% Color_Magnitude3_other_ymargin, & - s% pg% Color_Magnitude3_other_yaxis1_name, & - s% pg% Color_Magnitude3_other_yaxis2_name, & - s% pg% Color_Magnitude3_ymin, & - s% pg% Color_Magnitude3_ymax, & - s% pg% Color_Magnitude3_xaxis_reversed, & - s% pg% Color_Magnitude3_yaxis_reversed, & - s% pg% Color_Magnitude3_xaxis_log, & - s% pg% Color_Magnitude3_yaxis_log, & - s% pg% Color_Magnitude3_dymin, & - s% pg% Color_Magnitude3_ymargin, & - s% pg% Color_Magnitude3_yaxis1_name, & - s% pg% Color_Magnitude3_yaxis2_name, & - s% pg% Color_Magnitude3_use_decorator, & - s% pg% Color_Magnitude3_pgstar_decorator, & - ierr) - end subroutine do_Color_Magnitude3_plot - - - subroutine Color_Magnitude4_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_Color_Magnitude4_plot(s, id, device_id, & - s% pg% Color_Magnitude4_xleft, s% pg% Color_Magnitude4_xright, & - s% pg% Color_Magnitude4_ybot, s% pg% Color_Magnitude4_ytop, .false., & - s% pg% Color_Magnitude4_title, s% pg% Color_Magnitude4_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Color_Magnitude4_plot - - - subroutine do_Color_Magnitude4_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call do_Color_Magnitude_plot( & - id, s, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% Color_Magnitude4_xaxis1_name, & - s% pg% Color_Magnitude4_xaxis2_name, & - s% pg% Color_Magnitude4_xmin, & - s% pg% Color_Magnitude4_xmax, & - s% pg% Color_Magnitude4_dxmin, & - s% pg% Color_Magnitude4_xmargin, & - s% pg% Color_Magnitude4_max_width, & - s% pg% Color_Magnitude4_num_panels, & - s% pg% Color_Magnitude4_other_ymin, & - s% pg% Color_Magnitude4_other_ymax, & - s% pg% Color_Magnitude4_yaxis_reversed, & - s% pg% Color_Magnitude4_other_yaxis_log, & - s% pg% Color_Magnitude4_other_dymin, & - s% pg% Color_Magnitude4_other_ymargin, & - s% pg% Color_Magnitude4_other_yaxis1_name, & - s% pg% Color_Magnitude4_other_yaxis2_name, & - s% pg% Color_Magnitude4_ymin, & - s% pg% Color_Magnitude4_ymax, & - s% pg% Color_Magnitude4_xaxis_reversed, & - s% pg% Color_Magnitude4_yaxis_reversed, & - s% pg% Color_Magnitude4_xaxis_log, & - s% pg% Color_Magnitude4_yaxis_log, & - s% pg% Color_Magnitude4_dymin, & - s% pg% Color_Magnitude4_ymargin, & - s% pg% Color_Magnitude4_yaxis1_name, & - s% pg% Color_Magnitude4_yaxis2_name, & - s% pg% Color_Magnitude4_use_decorator, & - s% pg% Color_Magnitude4_pgstar_decorator, & - ierr) - end subroutine do_Color_Magnitude4_plot - - - subroutine Color_Magnitude5_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_Color_Magnitude5_plot(s, id, device_id, & - s% pg% Color_Magnitude5_xleft, s% pg% Color_Magnitude5_xright, & - s% pg% Color_Magnitude5_ybot, s% pg% Color_Magnitude5_ytop, .false., & - s% pg% Color_Magnitude5_title, s% pg% Color_Magnitude5_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Color_Magnitude5_plot - - - subroutine do_Color_Magnitude5_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call do_Color_Magnitude_plot( & - id, s, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% Color_Magnitude5_xaxis1_name, & - s% pg% Color_Magnitude5_xaxis2_name, & - s% pg% Color_Magnitude5_xmin, & - s% pg% Color_Magnitude5_xmax, & - s% pg% Color_Magnitude5_dxmin, & - s% pg% Color_Magnitude5_xmargin, & - s% pg% Color_Magnitude5_max_width, & - s% pg% Color_Magnitude5_num_panels, & - s% pg% Color_Magnitude5_other_ymin, & - s% pg% Color_Magnitude5_other_ymax, & - s% pg% Color_Magnitude5_yaxis_reversed, & - s% pg% Color_Magnitude5_other_yaxis_log, & - s% pg% Color_Magnitude5_other_dymin, & - s% pg% Color_Magnitude5_other_ymargin, & - s% pg% Color_Magnitude5_other_yaxis1_name, & - s% pg% Color_Magnitude5_other_yaxis2_name, & - s% pg% Color_Magnitude5_ymin, & - s% pg% Color_Magnitude5_ymax, & - s% pg% Color_Magnitude5_xaxis_reversed, & - s% pg% Color_Magnitude5_yaxis_reversed, & - s% pg% Color_Magnitude5_xaxis_log, & - s% pg% Color_Magnitude5_yaxis_log, & - s% pg% Color_Magnitude5_dymin, & - s% pg% Color_Magnitude5_ymargin, & - s% pg% Color_Magnitude5_yaxis1_name, & - s% pg% Color_Magnitude5_yaxis2_name, & - s% pg% Color_Magnitude5_use_decorator, & - s% pg% Color_Magnitude5_pgstar_decorator, & - ierr) - end subroutine do_Color_Magnitude5_plot - - - subroutine Color_Magnitude6_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_Color_Magnitude6_plot(s, id, device_id, & - s% pg% Color_Magnitude6_xleft, s% pg% Color_Magnitude6_xright, & - s% pg% Color_Magnitude6_ybot, s% pg% Color_Magnitude6_ytop, .false., & - s% pg% Color_Magnitude6_title, s% pg% Color_Magnitude6_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Color_Magnitude6_plot - - - subroutine do_Color_Magnitude6_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call do_Color_Magnitude_plot( & - id, s, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% Color_Magnitude6_xaxis1_name, & - s% pg% Color_Magnitude6_xaxis2_name, & - s% pg% Color_Magnitude6_xmin, & - s% pg% Color_Magnitude6_xmax, & - s% pg% Color_Magnitude6_dxmin, & - s% pg% Color_Magnitude6_xmargin, & - s% pg% Color_Magnitude6_max_width, & - s% pg% Color_Magnitude6_num_panels, & - s% pg% Color_Magnitude6_other_ymin, & - s% pg% Color_Magnitude6_other_ymax, & - s% pg% Color_Magnitude6_yaxis_reversed, & - s% pg% Color_Magnitude6_other_yaxis_log, & - s% pg% Color_Magnitude6_other_dymin, & - s% pg% Color_Magnitude6_other_ymargin, & - s% pg% Color_Magnitude6_other_yaxis1_name, & - s% pg% Color_Magnitude6_other_yaxis2_name, & - s% pg% Color_Magnitude6_ymin, & - s% pg% Color_Magnitude6_ymax, & - s% pg% Color_Magnitude6_xaxis_reversed, & - s% pg% Color_Magnitude6_yaxis_reversed, & - s% pg% Color_Magnitude6_xaxis_log, & - s% pg% Color_Magnitude6_yaxis_log, & - s% pg% Color_Magnitude6_dymin, & - s% pg% Color_Magnitude6_ymargin, & - s% pg% Color_Magnitude6_yaxis1_name, & - s% pg% Color_Magnitude6_yaxis2_name, & - s% pg% Color_Magnitude6_use_decorator, & - s% pg% Color_Magnitude6_pgstar_decorator, & - ierr) - end subroutine do_Color_Magnitude6_plot - - - subroutine Color_Magnitude7_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_Color_Magnitude7_plot(s, id, device_id, & - s% pg% Color_Magnitude7_xleft, s% pg% Color_Magnitude7_xright, & - s% pg% Color_Magnitude7_ybot, s% pg% Color_Magnitude7_ytop, .false., & - s% pg% Color_Magnitude7_title, s% pg% Color_Magnitude7_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Color_Magnitude7_plot - - - subroutine do_Color_Magnitude7_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call do_Color_Magnitude_plot( & - id, s, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% Color_Magnitude7_xaxis1_name, & - s% pg% Color_Magnitude7_xaxis2_name, & - s% pg% Color_Magnitude7_xmin, & - s% pg% Color_Magnitude7_xmax, & - s% pg% Color_Magnitude7_dxmin, & - s% pg% Color_Magnitude7_xmargin, & - s% pg% Color_Magnitude7_max_width, & - s% pg% Color_Magnitude7_num_panels, & - s% pg% Color_Magnitude7_other_ymin, & - s% pg% Color_Magnitude7_other_ymax, & - s% pg% Color_Magnitude7_yaxis_reversed, & - s% pg% Color_Magnitude7_other_yaxis_log, & - s% pg% Color_Magnitude7_other_dymin, & - s% pg% Color_Magnitude7_other_ymargin, & - s% pg% Color_Magnitude7_other_yaxis1_name, & - s% pg% Color_Magnitude7_other_yaxis2_name, & - s% pg% Color_Magnitude7_ymin, & - s% pg% Color_Magnitude7_ymax, & - s% pg% Color_Magnitude7_xaxis_reversed, & - s% pg% Color_Magnitude7_yaxis_reversed, & - s% pg% Color_Magnitude7_xaxis_log, & - s% pg% Color_Magnitude7_yaxis_log, & - s% pg% Color_Magnitude7_dymin, & - s% pg% Color_Magnitude7_ymargin, & - s% pg% Color_Magnitude7_yaxis1_name, & - s% pg% Color_Magnitude7_yaxis2_name, & - s% pg% Color_Magnitude7_use_decorator, & - s% pg% Color_Magnitude7_pgstar_decorator, & - ierr) - end subroutine do_Color_Magnitude7_plot - - - subroutine Color_Magnitude8_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_Color_Magnitude8_plot(s, id, device_id, & - s% pg% Color_Magnitude8_xleft, s% pg% Color_Magnitude8_xright, & - s% pg% Color_Magnitude8_ybot, s% pg% Color_Magnitude8_ytop, .false., & - s% pg% Color_Magnitude8_title, s% pg% Color_Magnitude8_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Color_Magnitude8_plot - - - subroutine do_Color_Magnitude8_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call do_Color_Magnitude_plot( & - id, s, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% Color_Magnitude8_xaxis1_name, & - s% pg% Color_Magnitude8_xaxis2_name, & - s% pg% Color_Magnitude8_xmin, & - s% pg% Color_Magnitude8_xmax, & - s% pg% Color_Magnitude8_dxmin, & - s% pg% Color_Magnitude8_xmargin, & - s% pg% Color_Magnitude8_max_width, & - s% pg% Color_Magnitude8_num_panels, & - s% pg% Color_Magnitude8_other_ymin, & - s% pg% Color_Magnitude8_other_ymax, & - s% pg% Color_Magnitude8_yaxis_reversed, & - s% pg% Color_Magnitude8_other_yaxis_log, & - s% pg% Color_Magnitude8_other_dymin, & - s% pg% Color_Magnitude8_other_ymargin, & - s% pg% Color_Magnitude8_other_yaxis1_name, & - s% pg% Color_Magnitude8_other_yaxis2_name, & - s% pg% Color_Magnitude8_ymin, & - s% pg% Color_Magnitude8_ymax, & - s% pg% Color_Magnitude8_xaxis_reversed, & - s% pg% Color_Magnitude8_yaxis_reversed, & - s% pg% Color_Magnitude8_xaxis_log, & - s% pg% Color_Magnitude8_yaxis_log, & - s% pg% Color_Magnitude8_dymin, & - s% pg% Color_Magnitude8_ymargin, & - s% pg% Color_Magnitude8_yaxis1_name, & - s% pg% Color_Magnitude8_yaxis2_name, & - s% pg% Color_Magnitude8_use_decorator, & - s% pg% Color_Magnitude8_pgstar_decorator, & - ierr) - end subroutine do_Color_Magnitude8_plot - - - subroutine Color_Magnitude9_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_Color_Magnitude9_plot(s, id, device_id, & - s% pg% Color_Magnitude9_xleft, s% pg% Color_Magnitude9_xright, & - s% pg% Color_Magnitude9_ybot, s% pg% Color_Magnitude9_ytop, .false., & - s% pg% Color_Magnitude9_title, s% pg% Color_Magnitude9_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Color_Magnitude9_plot - - - subroutine do_Color_Magnitude9_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call do_Color_Magnitude_plot( & - id, s, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% Color_Magnitude9_xaxis1_name, & - s% pg% Color_Magnitude9_xaxis2_name, & - s% pg% Color_Magnitude9_xmin, & - s% pg% Color_Magnitude9_xmax, & - s% pg% Color_Magnitude9_dxmin, & - s% pg% Color_Magnitude9_xmargin, & - s% pg% Color_Magnitude9_max_width, & - s% pg% Color_Magnitude9_num_panels, & - s% pg% Color_Magnitude9_other_ymin, & - s% pg% Color_Magnitude9_other_ymax, & - s% pg% Color_Magnitude9_yaxis_reversed, & - s% pg% Color_Magnitude9_other_yaxis_log, & - s% pg% Color_Magnitude9_other_dymin, & - s% pg% Color_Magnitude9_other_ymargin, & - s% pg% Color_Magnitude9_other_yaxis1_name, & - s% pg% Color_Magnitude9_other_yaxis2_name, & - s% pg% Color_Magnitude9_ymin, & - s% pg% Color_Magnitude9_ymax, & - s% pg% Color_Magnitude9_xaxis_reversed, & - s% pg% Color_Magnitude9_yaxis_reversed, & - s% pg% Color_Magnitude9_xaxis_log, & - s% pg% Color_Magnitude9_yaxis_log, & - s% pg% Color_Magnitude9_dymin, & - s% pg% Color_Magnitude9_ymargin, & - s% pg% Color_Magnitude9_yaxis1_name, & - s% pg% Color_Magnitude9_yaxis2_name, & - s% pg% Color_Magnitude9_use_decorator, & - s% pg% Color_Magnitude9_pgstar_decorator, & - ierr) - end subroutine do_Color_Magnitude9_plot - - - subroutine do_Color_Magnitude_plot( & - id, s, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - color_xaxis1_name,color_xaxis2_name,& - color_xmin_in, color_xmax, dxmin,color_xmargin, & - color_max_width, color_num_panels, & - color_other_ymin, color_other_ymax, & - color_other_yaxis_reversed, color_other_yaxis_log, & - color_other_dymin, color_other_ymargin, & - color_other_yaxis1_name,color_other_yaxis2_name, & - color_ymin, color_ymax, & - color_xaxis_reversed, color_yaxis_reversed, & - color_xaxis_log,color_yaxis_log, & - color_dymin, color_ymargin, & - color_yaxis1_name, color_yaxis2_name, & - color_use_decorator, color_pgstar_decorator, & - ierr) - use utils_lib - use star_def - - type (star_info), pointer :: s - integer, intent(in) :: id, device_id, color_num_panels - logical, intent(in) :: subplot, color_xaxis_reversed, color_xaxis_log - character (len=*), intent(in) :: title, color_xaxis1_name,color_xaxis2_name - real, intent(in) :: & - vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale, & - color_xmin_in, color_xmax, color_max_width, color_xmargin, dxmin - real, intent(in), dimension(:) :: & - color_other_ymin, color_other_ymax, & - color_other_dymin, color_other_ymargin, & - color_ymin, color_ymax, color_dymin, color_ymargin - logical, intent(in), dimension(:) :: & - color_other_yaxis_reversed, color_other_yaxis_log, & - color_yaxis_reversed, color_yaxis_log - logical, intent(in) :: color_use_decorator - character (len=*), intent(in), dimension(:) :: & - color_other_yaxis1_name, color_other_yaxis2_name, & - color_yaxis1_name,color_yaxis2_name - integer, intent(out) :: ierr - procedure(pgstar_decorator_interface), pointer :: color_pgstar_decorator - - character (len=strlen) :: yname1,yname2, & - other_yname1,other_yname2 - real, allocatable, dimension(:) :: xvec1,xvec2, yvec1,yvec2,& - other_yvec1,other_yvec2 - real, allocatable, dimension(:) :: xvec, yvec, other_yvec - - integer :: i, n, j, step_min, step_max, & - y_color, other_y_color - real :: color_xmin, xleft, xright, & - ymargin, panel_dy, panel_ytop, panel_ybot, & - ybot, ytop, & - other_ybot, other_ytop - logical :: have_yaxis1, have_other_yaxis1,have_yaxis2, have_other_yaxis2,have_xaxis2 - logical :: have_yaxis,have_other_yaxis - - integer :: ix1,ix2 - - include 'formats' - ierr = 0 - have_xaxis2=.False. + call pgsave + call pgsch(txt_scale) - step_min = 1 - step_max = s% model_number + ymargin = 0.05 + y_color = clr_Goldenrod + other_y_color = clr_LightSkyBlue - n = count_hist_points(s, step_min, step_max) + panel_dy = (vp_ytop - vp_ybot) / real(color_num_panels) - allocate(xvec1(n), xvec2(n), yvec1(n), yvec2(n), other_yvec1(n), other_yvec2(n), stat=ierr) - if (ierr /= 0) then - write(*,*) 'allocate failed for PGSTAR' - return - end if + do j = 1, color_num_panels - allocate(xvec(n),yvec(n),other_yvec(n), stat=ierr) - if (ierr /= 0) then - write(*,*) 'allocate failed for PGSTAR' - return + yname1 = color_yaxis1_name(j) + if (len_trim(yname1) == 0) then + have_yaxis1 = .false. + else + have_yaxis1 = get1_yvec(yname1, yvec1) end if - call integer_dict_lookup(s% history_names_dict, color_xaxis1_name, ix1, ierr) - if (ierr /= 0) ix1 = -1 - if (ix1 <= 0) then - write(*,'(A)') - write(*,*) 'ERROR: failed to find ' // & - trim(color_xaxis1_name) // ' in history data' - write(*,'(A)') - ierr = -1 + yname2 = color_yaxis2_name(j) + if (len_trim(yname2) == 0) then + have_yaxis2 = .false. + else + have_yaxis2 = get1_yvec(yname2, yvec2) end if - if(len_trim(color_xaxis2_name)>0) THEN - have_xaxis2=.True. - call integer_dict_lookup(s% history_names_dict, color_xaxis2_name, ix2, ierr) - if (ierr /= 0) ix2 = -1 - if (ix2 <= 0) then - write(*,'(A)') - write(*,*) 'ERROR: failed to find ' // & - trim(color_xaxis2_name) // ' in history data' - write(*,'(A)') - ierr = -1 - end if + other_yname1 = color_other_yaxis1_name(j) + if (len_trim(color_other_yaxis1_name(j)) == 0) then + have_other_yaxis1 = .false. + else + have_other_yaxis1 = get1_yvec(other_yname1, other_yvec1) end if - color_xmin = color_xmin_in + other_yname2 = color_other_yaxis2_name(j) + if (len_trim(color_other_yaxis2_name(j)) == 0) then + have_other_yaxis2 = .false. + else + have_other_yaxis2 = get1_yvec(other_yname2, other_yvec2) + end if - call get_hist_points(s, step_min, step_max, n, ix1, xvec1, ierr) - if (ierr /= 0) then - write(*,*) 'pgstar get_hist_points failed ' // trim(color_xaxis1_name) - deallocate(xvec1, xvec2) - call dealloc - ierr = 0 - return + if (have_yaxis1) then + have_yaxis = .True. + else + have_yaxis = .false. end if - if (have_xaxis2) call get_hist_points(s, step_min, step_max, n, ix2, xvec2, ierr) - if (ierr /= 0) then - write(*,*) 'pgstar get_hist_points failed ' // trim(color_xaxis2_name) - deallocate(xvec1,xvec2) - call dealloc - ierr = 0 - return + + if (have_other_yaxis1) then + have_other_yaxis = .True. + else + have_other_yaxis = .false. end if - xvec=xvec1 - if(have_xaxis2) xvec=xvec-xvec2 + if ((.not. have_yaxis) .and. (.not. have_other_yaxis)) cycle - deallocate(xvec1,xvec2) + yvec = yvec1 + if(have_yaxis2) yvec = yvec - yvec2 - call set_xleft_xright( & - n, xvec, color_xmin, color_xmax, color_xmargin, & - color_xaxis_reversed, dxmin, xleft, xright) + ! Make sure limits are sensible for plotting + do i = lbound(yvec, dim = 1), ubound(yvec, dim = 1) + if (yvec(i)>100) yvec(i) = 100 + if (yvec(i)<-100) yvec(i) = -100 + end do - call pgsave - call pgsch(txt_scale) + other_yvec = other_yvec1 + if (have_other_yaxis2) other_yvec = other_yvec - other_yvec2 - ymargin = 0.05 - y_color = clr_Goldenrod - other_y_color = clr_LightSkyBlue + ! Make sure limits are sensible for plotting + do i = lbound(other_yvec, dim = 1), ubound(other_yvec, dim = 1) + if (other_yvec(i)>100) other_yvec(i) = 100 + if (other_yvec(i)<-100) other_yvec(i) = -100 + end do - panel_dy = (vp_ytop - vp_ybot)/real(color_num_panels) + panel_ytop = vp_ytop - real(j - 1) * panel_dy + panel_ybot = panel_ytop - panel_dy - do j = 1, color_num_panels + call pgsvp(vp_xleft, vp_xright, panel_ybot, panel_ytop) - yname1 = color_yaxis1_name(j) - if (len_trim(yname1) == 0) then - have_yaxis1 = .false. - else - have_yaxis1 = get1_yvec(yname1, yvec1) + if (j == 1) then + if (.not. subplot) then + call show_model_number_pgstar(s) + call show_age_pgstar(s) end if + call show_title_pgstar(s, title) + end if - yname2 = color_yaxis2_name(j) - if (len_trim(yname2) == 0) then - have_yaxis2 = .false. - else - have_yaxis2 = get1_yvec(yname2, yvec2) - end if + if (have_other_yaxis) then + call set_ytop_ybot(& + n, other_yvec, color_other_ymin(j), color_other_ymax(j), -101.0, & + color_other_ymargin(j), color_other_yaxis_reversed(j), & + color_other_dymin(j), other_ybot, other_ytop) + call pgswin(xleft, xright, other_ybot, other_ytop) + call pgscf(1) + call pgsci(1) + call show_box_pgstar(s, '', 'CMSTV') + call pgsci(other_y_color) - other_yname1 = color_other_yaxis1_name(j) - if (len_trim(color_other_yaxis1_name(j)) == 0) then - have_other_yaxis1 = .false. + if (have_other_yaxis2) then + call show_right_yaxis_label_pgstar(s, trim(create_label(other_yname1, other_yname2))) else - have_other_yaxis1 = get1_yvec(other_yname1, other_yvec1) + call show_right_yaxis_label_pgstar(s, trim(create_label(other_yname1, ''))) end if - other_yname2 = color_other_yaxis2_name(j) - if (len_trim(color_other_yaxis2_name(j)) == 0) then - have_other_yaxis2 = .false. - else - have_other_yaxis2 = get1_yvec(other_yname2, other_yvec2) - end if + call pgslw(s% pg% pgstar_lw) + call pgline(n, xvec, other_yvec) + call pgslw(1) + end if - if(have_yaxis1)then - have_yaxis=.True. + if (have_yaxis) then + call set_ytop_ybot(& + n, yvec, color_ymin(j), color_ymax(j), -101.0, & + color_ymargin(j), color_yaxis_reversed(j), & + color_dymin(j), ybot, ytop) + call pgswin(xleft, xright, ybot, ytop) + call pgscf(1) + call pgsci(1) + if (j < color_num_panels) then + if (.not. have_other_yaxis) then + call show_box_pgstar(s, 'BCST1', 'BCMNSTV1') + else + call show_box_pgstar(s, 'BCST', 'BNSTV') + end if else - have_yaxis=.false. + if (.not. have_other_yaxis) then + call show_box_pgstar(s, 'BCNST1', 'BCMNSTV1') + else + call show_box_pgstar(s, 'BCNST', 'BNSTV') + end if end if - - if(have_other_yaxis1) then - have_other_yaxis=.True. + call pgsci(y_color) + if (have_yaxis2) then + call show_left_yaxis_label_pgstar(s, trim(create_label(yname1, yname2))) else - have_other_yaxis=.false. + call show_left_yaxis_label_pgstar(s, trim(create_label(yname1, ''))) end if + call pgslw(s% pg% pgstar_lw) + call pgline(n, xvec, yvec) + call pgslw(1) + end if - if ((.not. have_yaxis) .and. (.not. have_other_yaxis)) cycle + call pgsci(1) - yvec=yvec1 - if(have_yaxis2) yvec=yvec-yvec2 + call show_pgstar_decorator(s% id, color_use_decorator, color_pgstar_decorator, j, ierr) - ! Make sure limits are sensible for plotting - do i=lbound(yvec,dim=1),ubound(yvec,dim=1) - if (yvec(i)>100) yvec(i)=100 - if (yvec(i)<-100) yvec(i)=-100 - end do + end do - other_yvec=other_yvec1 - if(have_other_yaxis2) other_yvec=other_yvec-other_yvec2 + if (have_xaxis2) then + call show_xaxis_label_pgstar(s, trim(create_label(color_xaxis1_name, color_xaxis2_name))) + else + call show_xaxis_label_pgstar(s, trim(create_label(color_xaxis1_name, ''))) + end if - ! Make sure limits are sensible for plotting - do i=lbound(other_yvec,dim=1),ubound(other_yvec,dim=1) - if (other_yvec(i)>100) other_yvec(i)=100 - if (other_yvec(i)<-100) other_yvec(i)=-100 - end do + call pgunsa + call dealloc - panel_ytop = vp_ytop - real(j-1)*panel_dy - panel_ybot = panel_ytop - panel_dy + contains - call pgsvp(vp_xleft, vp_xright, panel_ybot, panel_ytop) + subroutine dealloc + deallocate(xvec, yvec, other_yvec, yvec1, yvec2, other_yvec1, other_yvec2) + end subroutine dealloc - if (j == 1) then - if (.not. subplot) then - call show_model_number_pgstar(s) - call show_age_pgstar(s) - end if - call show_title_pgstar(s, title) - end if + logical function get1_yvec(name, vec) + character (len = *) :: name + real, dimension(:), allocatable :: vec + get1_yvec = get1_hist_yvec(s, step_min, step_max, n, name, vec) + end function get1_yvec - if (have_other_yaxis) then - call set_ytop_ybot( & - n, other_yvec, color_other_ymin(j), color_other_ymax(j), -101.0, & - color_other_ymargin(j), color_other_yaxis_reversed(j), & - color_other_dymin(j), other_ybot, other_ytop) - call pgswin(xleft, xright, other_ybot, other_ytop) - call pgscf(1) - call pgsci(1) - call show_box_pgstar(s,'','CMSTV') - call pgsci(other_y_color) - - if (have_other_yaxis2) then - call show_right_yaxis_label_pgstar(s,trim(create_label(other_yname1,other_yname2))) - else - call show_right_yaxis_label_pgstar(s,trim(create_label(other_yname1,''))) - end if + function create_label(str1, str2) result(new_str) + character(len = *) :: str1, str2 + integer :: len1, len2, endStr1 + character(len = strlen) :: new_str - call pgslw(s% pg% pgstar_lw) - call pgline(n, xvec, other_yvec) - call pgslw(1) - end if + new_str = '' - if (have_yaxis) then - call set_ytop_ybot( & - n, yvec, color_ymin(j), color_ymax(j), -101.0, & - color_ymargin(j), color_yaxis_reversed(j), & - color_dymin(j), ybot, ytop) - call pgswin(xleft, xright, ybot, ytop) - call pgscf(1) - call pgsci(1) - if (j < color_num_panels) then - if (.not. have_other_yaxis) then - call show_box_pgstar(s,'BCST1','BCMNSTV1') - else - call show_box_pgstar(s,'BCST','BNSTV') - end if - else - if (.not. have_other_yaxis) then - call show_box_pgstar(s,'BCNST1','BCMNSTV1') - else - call show_box_pgstar(s,'BCNST','BNSTV') - end if - end if - call pgsci(y_color) - if(have_yaxis2)then - call show_left_yaxis_label_pgstar(s,trim(create_label(yname1,yname2))) - else - call show_left_yaxis_label_pgstar(s,trim(create_label(yname1,''))) - end if - call pgslw(s% pg% pgstar_lw) - call pgline(n, xvec, yvec) - call pgslw(1) - end if + len1 = len_trim(str1) + len2 = len_trim(str2) - call pgsci(1) - - call show_pgstar_decorator(s%id,color_use_decorator,color_pgstar_decorator, j, ierr) - - end do - - if (have_xaxis2) then - call show_xaxis_label_pgstar(s,trim(create_label(color_xaxis1_name,color_xaxis2_name))) + !Strings start with bc_ + if(str1(1:3)=='bc_') then + new_str = str1(4:len1) + !String start with abs_mag_ + else if(str1(1:8)=='abs_mag_') then + new_str = 'M\d' // str1(9:len1) // '\u' else - call show_xaxis_label_pgstar(s,trim(create_label(color_xaxis1_name,''))) + new_str = str1(1:len1) end if + endStr1 = len_trim(new_str) - call pgunsa - - call dealloc - - contains - - subroutine dealloc - deallocate(xvec, yvec, other_yvec, yvec1, yvec2, other_yvec1, other_yvec2) - end subroutine dealloc - - logical function get1_yvec(name, vec) - character (len=*) :: name - real, dimension(:), allocatable :: vec - get1_yvec = get1_hist_yvec(s, step_min, step_max, n, name, vec) - end function get1_yvec - - function create_label(str1,str2) result(new_str) - character(len=*) :: str1,str2 - integer :: len1,len2,endStr1 - character(len=strlen) :: new_str - - new_str='' - - len1=len_trim(str1) - len2=len_trim(str2) - + if(len2>0)then !Strings start with bc_ - if(str1(1:3)=='bc_') then - new_str=str1(4:len1) - !String start with abs_mag_ - else if(str1(1:8)=='abs_mag_') then - new_str='M\d'//str1(9:len1)//'\u' - else - new_str=str1(1:len1) - end if - endStr1=len_trim(new_str) - - if(len2>0)then - !Strings start with bc_ - if(str1(1:1)=='b') then - new_str(endStr1+1:)=' - '//str2(4:len2) + if(str1(1:1)=='b') then + new_str(endStr1 + 1:) = ' - ' // str2(4:len2) !String start with abs_mag_ - else if(str1(1:1)=='a') then - new_str(endStr1+1:)=' - M\d'//str2(9:len2)//'\u' - else - new_str(endStr1+1:)=str2(1:len2) - end if + else if(str1(1:1)=='a') then + new_str(endStr1 + 1:) = ' - M\d' // str2(9:len2) // '\u' + else + new_str(endStr1 + 1:) = str2(1:len2) end if + end if - end function create_label + end function create_label - end subroutine do_Color_Magnitude_plot + end subroutine do_one_cm_plot - end module pgstar_Color_Magnitude +end module pgstar_Color_Magnitude diff --git a/star/private/pgstar_ctrls_io.f90 b/star/private/pgstar_ctrls_io.f90 index b343bea73..1d36c3b47 100644 --- a/star/private/pgstar_ctrls_io.f90 +++ b/star/private/pgstar_ctrls_io.f90 @@ -25,6 +25,7 @@ module pgstar_ctrls_io + use const_def use star_private_def use star_pgstar @@ -107,578 +108,72 @@ module pgstar_ctrls_io Profile_Panels_xwidth_left_of_shock, & Profile_Panels_xwidth_right_of_shock, & - Profile_Panels1_win_flag, & - Profile_Panels1_file_flag, & - do_Profile_Panels1_win, & - do_Profile_Panels1_file, & - id_Profile_Panels1_win, & - id_Profile_Panels1_file, & - Profile_Panels1_file_interval, & - Profile_Panels1_file_dir, & - Profile_Panels1_file_prefix, & - Profile_Panels1_xaxis_reversed, & - Profile_Panels1_xaxis_name, & - Profile_Panels1_title, & - Profile_Panels1_xmin, & - Profile_Panels1_xmax, & - Profile_Panels1_xmargin, & - Profile_Panels1_show_mix_regions_on_xaxis, & - Profile_Panels1_win_width, & - Profile_Panels1_win_aspect_ratio, & - Profile_Panels1_xleft, & - Profile_Panels1_xright, & - Profile_Panels1_ybot, & - Profile_Panels1_ytop, & - Profile_Panels1_txt_scale, & - prev_Profile_Panels1_win_width, & - prev_Profile_Panels1_win_ratio, & - Profile_Panels1_file_width, & - Profile_Panels1_file_aspect_ratio, & - prev_Profile_Panels1_file_width, & - prev_Profile_Panels1_file_ratio, & - Profile_Panels1_num_panels, & - Profile_Panels1_yaxis_name, & - Profile_Panels1_other_yaxis_name, & - Profile_Panels1_yaxis_reversed, & - Profile_Panels1_other_yaxis_reversed, & - Profile_Panels1_yaxis_log, & - Profile_Panels1_other_yaxis_log, & - Profile_Panels1_same_yaxis_range, & - Profile_Panels1_ymin, & - Profile_Panels1_other_ymin, & - Profile_Panels1_ymax, & - Profile_Panels1_other_ymax, & - Profile_Panels1_ycenter, & - Profile_Panels1_other_ycenter, & - Profile_Panels1_ymargin, & - Profile_Panels1_other_ymargin, & - Profile_Panels1_dymin, & - Profile_Panels1_other_dymin, & - Profile_Panels1_show_grid, & - Profile_Panels1_use_decorator, & - - Profile_Panels2_win_flag, & - Profile_Panels2_file_flag, & - do_Profile_Panels2_win, & - do_Profile_Panels2_file, & - id_Profile_Panels2_win, & - id_Profile_Panels2_file, & - Profile_Panels2_file_interval, & - Profile_Panels2_file_dir, & - Profile_Panels2_file_prefix, & - Profile_Panels2_xaxis_reversed, & - Profile_Panels2_xaxis_name, & - Profile_Panels2_title, & - Profile_Panels2_xmin, & - Profile_Panels2_xmax, & - Profile_Panels2_xmargin, & - Profile_Panels2_show_mix_regions_on_xaxis, & - Profile_Panels2_win_width, & - Profile_Panels2_win_aspect_ratio, & - Profile_Panels2_xleft, & - Profile_Panels2_xright, & - Profile_Panels2_ybot, & - Profile_Panels2_ytop, & - Profile_Panels2_txt_scale, & - prev_Profile_Panels2_win_width, & - prev_Profile_Panels2_win_ratio, & - Profile_Panels2_file_width, & - Profile_Panels2_file_aspect_ratio, & - prev_Profile_Panels2_file_width, & - prev_Profile_Panels2_file_ratio, & - Profile_Panels2_num_panels, & - Profile_Panels2_yaxis_name, & - Profile_Panels2_other_yaxis_name, & - Profile_Panels2_yaxis_reversed, & - Profile_Panels2_other_yaxis_reversed, & - Profile_Panels2_yaxis_log, & - Profile_Panels2_other_yaxis_log, & - Profile_Panels2_same_yaxis_range, & - Profile_Panels2_ymin, & - Profile_Panels2_other_ymin, & - Profile_Panels2_ymax, & - Profile_Panels2_other_ymax, & - Profile_Panels2_ycenter, & - Profile_Panels2_other_ycenter, & - Profile_Panels2_ymargin, & - Profile_Panels2_other_ymargin, & - Profile_Panels2_dymin, & - Profile_Panels2_other_dymin, & - Profile_Panels2_show_grid, & - Profile_Panels2_use_decorator, & - - Profile_Panels3_win_flag, & - Profile_Panels3_file_flag, & - do_Profile_Panels3_win, & - do_Profile_Panels3_file, & - id_Profile_Panels3_win, & - id_Profile_Panels3_file, & - Profile_Panels3_file_interval, & - Profile_Panels3_file_dir, & - Profile_Panels3_file_prefix, & - Profile_Panels3_xaxis_reversed, & - Profile_Panels3_xaxis_name, & - Profile_Panels3_title, & - Profile_Panels3_xmin, & - Profile_Panels3_xmax, & - Profile_Panels3_xmargin, & - Profile_Panels3_show_mix_regions_on_xaxis, & - Profile_Panels3_win_width, & - Profile_Panels3_win_aspect_ratio, & - Profile_Panels3_xleft, & - Profile_Panels3_xright, & - Profile_Panels3_ybot, & - Profile_Panels3_ytop, & - Profile_Panels3_txt_scale, & - prev_Profile_Panels3_win_width, & - prev_Profile_Panels3_win_ratio, & - Profile_Panels3_file_width, & - Profile_Panels3_file_aspect_ratio, & - prev_Profile_Panels3_file_width, & - prev_Profile_Panels3_file_ratio, & - Profile_Panels3_num_panels, & - Profile_Panels3_yaxis_name, & - Profile_Panels3_other_yaxis_name, & - Profile_Panels3_yaxis_reversed, & - Profile_Panels3_other_yaxis_reversed, & - Profile_Panels3_yaxis_log, & - Profile_Panels3_other_yaxis_log, & - Profile_Panels3_same_yaxis_range, & - Profile_Panels3_ymin, & - Profile_Panels3_other_ymin, & - Profile_Panels3_ymax, & - Profile_Panels3_other_ymax, & - Profile_Panels3_ycenter, & - Profile_Panels3_other_ycenter, & - Profile_Panels3_ymargin, & - Profile_Panels3_other_ymargin, & - Profile_Panels3_dymin, & - Profile_Panels3_other_dymin, & - Profile_Panels3_show_grid, & - Profile_Panels3_use_decorator, & - - Profile_Panels4_win_flag, & - Profile_Panels4_file_flag, & - do_Profile_Panels4_win, & - do_Profile_Panels4_file, & - id_Profile_Panels4_win, & - id_Profile_Panels4_file, & - Profile_Panels4_file_interval, & - Profile_Panels4_file_dir, & - Profile_Panels4_file_prefix, & - Profile_Panels4_xaxis_reversed, & - Profile_Panels4_xaxis_name, & - Profile_Panels4_title, & - Profile_Panels4_xmin, & - Profile_Panels4_xmax, & - Profile_Panels4_xmargin, & - Profile_Panels4_show_mix_regions_on_xaxis, & - Profile_Panels4_win_width, & - Profile_Panels4_win_aspect_ratio, & - Profile_Panels4_xleft, & - Profile_Panels4_xright, & - Profile_Panels4_ybot, & - Profile_Panels4_ytop, & - Profile_Panels4_txt_scale, & - prev_Profile_Panels4_win_width, & - prev_Profile_Panels4_win_ratio, & - Profile_Panels4_file_width, & - Profile_Panels4_file_aspect_ratio, & - prev_Profile_Panels4_file_width, & - prev_Profile_Panels4_file_ratio, & - Profile_Panels4_num_panels, & - Profile_Panels4_yaxis_name, & - Profile_Panels4_other_yaxis_name, & - Profile_Panels4_yaxis_reversed, & - Profile_Panels4_other_yaxis_reversed, & - Profile_Panels4_yaxis_log, & - Profile_Panels4_other_yaxis_log, & - Profile_Panels4_same_yaxis_range, & - Profile_Panels4_ymin, & - Profile_Panels4_other_ymin, & - Profile_Panels4_ymax, & - Profile_Panels4_other_ymax, & - Profile_Panels4_ycenter, & - Profile_Panels4_other_ycenter, & - Profile_Panels4_ymargin, & - Profile_Panels4_other_ymargin, & - Profile_Panels4_dymin, & - Profile_Panels4_other_dymin, & - Profile_Panels4_show_grid, & - Profile_Panels4_use_decorator, & - - - Profile_Panels5_win_flag, & - Profile_Panels5_file_flag, & - do_Profile_Panels5_win, & - do_Profile_Panels5_file, & - id_Profile_Panels5_win, & - id_Profile_Panels5_file, & - Profile_Panels5_file_interval, & - Profile_Panels5_file_dir, & - Profile_Panels5_file_prefix, & - Profile_Panels5_xaxis_reversed, & - Profile_Panels5_xaxis_name, & - Profile_Panels5_title, & - Profile_Panels5_xmin, & - Profile_Panels5_xmax, & - Profile_Panels5_xmargin, & - Profile_Panels5_show_mix_regions_on_xaxis, & - Profile_Panels5_win_width, & - Profile_Panels5_win_aspect_ratio, & - Profile_Panels5_xleft, & - Profile_Panels5_xright, & - Profile_Panels5_ybot, & - Profile_Panels5_ytop, & - Profile_Panels5_txt_scale, & - prev_Profile_Panels5_win_width, & - prev_Profile_Panels5_win_ratio, & - Profile_Panels5_file_width, & - Profile_Panels5_file_aspect_ratio, & - prev_Profile_Panels5_file_width, & - prev_Profile_Panels5_file_ratio, & - Profile_Panels5_num_panels, & - Profile_Panels5_yaxis_name, & - Profile_Panels5_other_yaxis_name, & - Profile_Panels5_yaxis_reversed, & - Profile_Panels5_other_yaxis_reversed, & - Profile_Panels5_yaxis_log, & - Profile_Panels5_other_yaxis_log, & - Profile_Panels5_same_yaxis_range, & - Profile_Panels5_ymin, & - Profile_Panels5_other_ymin, & - Profile_Panels5_ymax, & - Profile_Panels5_other_ymax, & - Profile_Panels5_ycenter, & - Profile_Panels5_other_ycenter, & - Profile_Panels5_ymargin, & - Profile_Panels5_other_ymargin, & - Profile_Panels5_dymin, & - Profile_Panels5_other_dymin, & - Profile_Panels5_show_grid, & - Profile_Panels5_use_decorator, & - - - Profile_Panels6_win_flag, & - Profile_Panels6_file_flag, & - do_Profile_Panels6_win, & - do_Profile_Panels6_file, & - id_Profile_Panels6_win, & - id_Profile_Panels6_file, & - Profile_Panels6_file_interval, & - Profile_Panels6_file_dir, & - Profile_Panels6_file_prefix, & - Profile_Panels6_xaxis_reversed, & - Profile_Panels6_xaxis_name, & - Profile_Panels6_title, & - Profile_Panels6_xmin, & - Profile_Panels6_xmax, & - Profile_Panels6_xmargin, & - Profile_Panels6_show_mix_regions_on_xaxis, & - Profile_Panels6_win_width, & - Profile_Panels6_win_aspect_ratio, & - Profile_Panels6_xleft, & - Profile_Panels6_xright, & - Profile_Panels6_ybot, & - Profile_Panels6_ytop, & - Profile_Panels6_txt_scale, & - prev_Profile_Panels6_win_width, & - prev_Profile_Panels6_win_ratio, & - Profile_Panels6_file_width, & - Profile_Panels6_file_aspect_ratio, & - prev_Profile_Panels6_file_width, & - prev_Profile_Panels6_file_ratio, & - Profile_Panels6_num_panels, & - Profile_Panels6_yaxis_name, & - Profile_Panels6_other_yaxis_name, & - Profile_Panels6_yaxis_reversed, & - Profile_Panels6_other_yaxis_reversed, & - Profile_Panels6_yaxis_log, & - Profile_Panels6_other_yaxis_log, & - Profile_Panels6_same_yaxis_range, & - Profile_Panels6_ymin, & - Profile_Panels6_other_ymin, & - Profile_Panels6_ymax, & - Profile_Panels6_other_ymax, & - Profile_Panels6_ycenter, & - Profile_Panels6_other_ycenter, & - Profile_Panels6_ymargin, & - Profile_Panels6_other_ymargin, & - Profile_Panels6_dymin, & - Profile_Panels6_other_dymin, & - Profile_Panels6_show_grid, & - Profile_Panels6_use_decorator, & - - - Profile_Panels7_win_flag, & - Profile_Panels7_file_flag, & - do_Profile_Panels7_win, & - do_Profile_Panels7_file, & - id_Profile_Panels7_win, & - id_Profile_Panels7_file, & - Profile_Panels7_file_interval, & - Profile_Panels7_file_dir, & - Profile_Panels7_file_prefix, & - Profile_Panels7_xaxis_reversed, & - Profile_Panels7_xaxis_name, & - Profile_Panels7_title, & - Profile_Panels7_xmin, & - Profile_Panels7_xmax, & - Profile_Panels7_xmargin, & - Profile_Panels7_show_mix_regions_on_xaxis, & - Profile_Panels7_win_width, & - Profile_Panels7_win_aspect_ratio, & - Profile_Panels7_xleft, & - Profile_Panels7_xright, & - Profile_Panels7_ybot, & - Profile_Panels7_ytop, & - Profile_Panels7_txt_scale, & - prev_Profile_Panels7_win_width, & - prev_Profile_Panels7_win_ratio, & - Profile_Panels7_file_width, & - Profile_Panels7_file_aspect_ratio, & - prev_Profile_Panels7_file_width, & - prev_Profile_Panels7_file_ratio, & - Profile_Panels7_num_panels, & - Profile_Panels7_yaxis_name, & - Profile_Panels7_other_yaxis_name, & - Profile_Panels7_yaxis_reversed, & - Profile_Panels7_other_yaxis_reversed, & - Profile_Panels7_yaxis_log, & - Profile_Panels7_other_yaxis_log, & - Profile_Panels7_same_yaxis_range, & - Profile_Panels7_ymin, & - Profile_Panels7_other_ymin, & - Profile_Panels7_ymax, & - Profile_Panels7_other_ymax, & - Profile_Panels7_ycenter, & - Profile_Panels7_other_ycenter, & - Profile_Panels7_ymargin, & - Profile_Panels7_other_ymargin, & - Profile_Panels7_dymin, & - Profile_Panels7_other_dymin, & - Profile_Panels7_show_grid, & - Profile_Panels7_use_decorator, & - - - Profile_Panels8_win_flag, & - Profile_Panels8_file_flag, & - do_Profile_Panels8_win, & - do_Profile_Panels8_file, & - id_Profile_Panels8_win, & - id_Profile_Panels8_file, & - Profile_Panels8_file_interval, & - Profile_Panels8_file_dir, & - Profile_Panels8_file_prefix, & - Profile_Panels8_xaxis_reversed, & - Profile_Panels8_xaxis_name, & - Profile_Panels8_title, & - Profile_Panels8_xmin, & - Profile_Panels8_xmax, & - Profile_Panels8_xmargin, & - Profile_Panels8_show_mix_regions_on_xaxis, & - Profile_Panels8_win_width, & - Profile_Panels8_win_aspect_ratio, & - Profile_Panels8_xleft, & - Profile_Panels8_xright, & - Profile_Panels8_ybot, & - Profile_Panels8_ytop, & - Profile_Panels8_txt_scale, & - prev_Profile_Panels8_win_width, & - prev_Profile_Panels8_win_ratio, & - Profile_Panels8_file_width, & - Profile_Panels8_file_aspect_ratio, & - prev_Profile_Panels8_file_width, & - prev_Profile_Panels8_file_ratio, & - Profile_Panels8_num_panels, & - Profile_Panels8_yaxis_name, & - Profile_Panels8_other_yaxis_name, & - Profile_Panels8_yaxis_reversed, & - Profile_Panels8_other_yaxis_reversed, & - Profile_Panels8_yaxis_log, & - Profile_Panels8_other_yaxis_log, & - Profile_Panels8_same_yaxis_range, & - Profile_Panels8_ymin, & - Profile_Panels8_other_ymin, & - Profile_Panels8_ymax, & - Profile_Panels8_other_ymax, & - Profile_Panels8_ycenter, & - Profile_Panels8_other_ycenter, & - Profile_Panels8_ymargin, & - Profile_Panels8_other_ymargin, & - Profile_Panels8_dymin, & - Profile_Panels8_other_dymin, & - Profile_Panels8_show_grid, & - Profile_Panels8_use_decorator, & - - - Profile_Panels9_win_flag, & - Profile_Panels9_file_flag, & - do_Profile_Panels9_win, & - do_Profile_Panels9_file, & - id_Profile_Panels9_win, & - id_Profile_Panels9_file, & - Profile_Panels9_file_interval, & - Profile_Panels9_file_dir, & - Profile_Panels9_file_prefix, & - Profile_Panels9_xaxis_reversed, & - Profile_Panels9_xaxis_name, & - Profile_Panels9_title, & - Profile_Panels9_xmin, & - Profile_Panels9_xmax, & - Profile_Panels9_xmargin, & - Profile_Panels9_show_mix_regions_on_xaxis, & - Profile_Panels9_win_width, & - Profile_Panels9_win_aspect_ratio, & - Profile_Panels9_xleft, & - Profile_Panels9_xright, & - Profile_Panels9_ybot, & - Profile_Panels9_ytop, & - Profile_Panels9_txt_scale, & - prev_Profile_Panels9_win_width, & - prev_Profile_Panels9_win_ratio, & - Profile_Panels9_file_width, & - Profile_Panels9_file_aspect_ratio, & - prev_Profile_Panels9_file_width, & - prev_Profile_Panels9_file_ratio, & - Profile_Panels9_num_panels, & - Profile_Panels9_yaxis_name, & - Profile_Panels9_other_yaxis_name, & - Profile_Panels9_yaxis_reversed, & - Profile_Panels9_other_yaxis_reversed, & - Profile_Panels9_yaxis_log, & - Profile_Panels9_other_yaxis_log, & - Profile_Panels9_same_yaxis_range, & - Profile_Panels9_ymin, & - Profile_Panels9_other_ymin, & - Profile_Panels9_ymax, & - Profile_Panels9_other_ymax, & - Profile_Panels9_ycenter, & - Profile_Panels9_other_ycenter, & - Profile_Panels9_ymargin, & - Profile_Panels9_other_ymargin, & - Profile_Panels9_dymin, & - Profile_Panels9_other_dymin, & - Profile_Panels9_show_grid, & - Profile_Panels9_use_decorator, & - - - Text_Summary1_win_flag, & - Text_Summary1_file_flag, & - Text_Summary1_file_interval, & - Text_Summary1_file_dir, & - Text_Summary1_file_prefix, & - Text_Summary1_num_cols, Text_Summary1_num_rows, Text_Summary1_name, & - Text_Summary1_win_width, & - Text_Summary1_win_aspect_ratio, & - Text_Summary1_file_width, & - Text_Summary1_file_aspect_ratio, & - Text_Summary1_title, Text_Summary1_xleft, Text_Summary1_xright, & - Text_Summary1_ybot, Text_Summary1_ytop, Text_Summary1_txt_scale, Text_Summary1_dxval, & - - Text_Summary2_win_flag, & - Text_Summary2_file_flag, & - Text_Summary2_file_interval, & - Text_Summary2_file_dir, & - Text_Summary2_file_prefix, & - Text_Summary2_num_cols, Text_Summary2_num_rows, Text_Summary2_name, & - Text_Summary2_win_width, & - Text_Summary2_win_aspect_ratio, & - Text_Summary2_file_width, & - Text_Summary2_file_aspect_ratio, & - Text_Summary2_title, Text_Summary2_xleft, Text_Summary2_xright, & - Text_Summary2_ybot, Text_Summary2_ytop, Text_Summary2_txt_scale, Text_Summary2_dxval, & - - Text_Summary3_win_flag, & - Text_Summary3_file_flag, & - Text_Summary3_file_interval, & - Text_Summary3_file_dir, & - Text_Summary3_file_prefix, & - Text_Summary3_num_cols, Text_Summary3_num_rows, Text_Summary3_name, & - Text_Summary3_win_width, & - Text_Summary3_win_aspect_ratio, & - Text_Summary3_file_width, & - Text_Summary3_file_aspect_ratio, & - Text_Summary3_title, Text_Summary3_xleft, Text_Summary3_xright, & - Text_Summary3_ybot, Text_Summary3_ytop, Text_Summary3_txt_scale, Text_Summary3_dxval, & - - Text_Summary4_win_flag, & - Text_Summary4_file_flag, & - Text_Summary4_file_interval, & - Text_Summary4_file_dir, & - Text_Summary4_file_prefix, & - Text_Summary4_num_cols, Text_Summary4_num_rows, Text_Summary4_name, & - Text_Summary4_win_width, & - Text_Summary4_win_aspect_ratio, & - Text_Summary4_file_width, & - Text_Summary4_file_aspect_ratio, & - Text_Summary4_title, Text_Summary4_xleft, Text_Summary4_xright, & - Text_Summary4_ybot, Text_Summary4_ytop, Text_Summary4_txt_scale, Text_Summary4_dxval, & - - Text_Summary5_win_flag, & - Text_Summary5_file_flag, & - Text_Summary5_file_interval, & - Text_Summary5_file_dir, & - Text_Summary5_file_prefix, & - Text_Summary5_num_cols, Text_Summary5_num_rows, Text_Summary5_name, & - Text_Summary5_win_width, & - Text_Summary5_win_aspect_ratio, & - Text_Summary5_file_width, & - Text_Summary5_file_aspect_ratio, & - Text_Summary5_title, Text_Summary5_xleft, Text_Summary5_xright, & - Text_Summary5_ybot, Text_Summary5_ytop, Text_Summary5_txt_scale, Text_Summary5_dxval, & - - Text_Summary6_win_flag, & - Text_Summary6_file_flag, & - Text_Summary6_file_interval, & - Text_Summary6_file_dir, & - Text_Summary6_file_prefix, & - Text_Summary6_num_cols, Text_Summary6_num_rows, Text_Summary6_name, & - Text_Summary6_win_width, & - Text_Summary6_win_aspect_ratio, & - Text_Summary6_file_width, & - Text_Summary6_file_aspect_ratio, & - Text_Summary6_title, Text_Summary6_xleft, Text_Summary6_xright, & - Text_Summary6_ybot, Text_Summary6_ytop, Text_Summary6_txt_scale, Text_Summary6_dxval, & - - Text_Summary7_win_flag, & - Text_Summary7_file_flag, & - Text_Summary7_file_interval, & - Text_Summary7_file_dir, & - Text_Summary7_file_prefix, & - Text_Summary7_num_cols, Text_Summary7_num_rows, Text_Summary7_name, & - Text_Summary7_win_width, & - Text_Summary7_win_aspect_ratio, & - Text_Summary7_file_width, & - Text_Summary7_file_aspect_ratio, & - Text_Summary7_title, Text_Summary7_xleft, Text_Summary7_xright, & - Text_Summary7_ybot, Text_Summary7_ytop, Text_Summary7_txt_scale, Text_Summary7_dxval, & - - Text_Summary8_win_flag, & - Text_Summary8_file_flag, & - Text_Summary8_file_interval, & - Text_Summary8_file_dir, & - Text_Summary8_file_prefix, & - Text_Summary8_num_cols, Text_Summary8_num_rows, Text_Summary8_name, & - Text_Summary8_win_width, & - Text_Summary8_win_aspect_ratio, & - Text_Summary8_file_width, & - Text_Summary8_file_aspect_ratio, & - Text_Summary8_title, Text_Summary8_xleft, Text_Summary8_xright, & - Text_Summary8_ybot, Text_Summary8_ytop, Text_Summary8_txt_scale, Text_Summary8_dxval, & - - Text_Summary9_win_flag, & - Text_Summary9_file_flag, & - Text_Summary9_file_interval, & - Text_Summary9_file_dir, & - Text_Summary9_file_prefix, & - Text_Summary9_num_cols, Text_Summary9_num_rows, Text_Summary9_name, & - Text_Summary9_win_width, & - Text_Summary9_win_aspect_ratio, & - Text_Summary9_file_width, & - Text_Summary9_file_aspect_ratio, & - Text_Summary9_title, Text_Summary9_xleft, Text_Summary9_xright, & - Text_Summary9_ybot, Text_Summary9_ytop, Text_Summary9_txt_scale, Text_Summary9_dxval, & + Profile_Panels_win_flag, & + Profile_Panels_file_flag, & + Profile_Panels_file_interval, & + Profile_Panels_file_dir, & + Profile_Panels_file_prefix, & + Profile_Panels_xaxis_reversed, & + Profile_Panels_xaxis_name, & + Profile_Panels_title, & + Profile_Panels_xmin, & + Profile_Panels_xmax, & + Profile_Panels_xmargin, & + Profile_Panels_show_mix_regions_on_xaxis, & + Profile_Panels_win_width, & + Profile_Panels_win_aspect_ratio, & + Profile_Panels_xleft, & + Profile_Panels_xright, & + Profile_Panels_ybot, & + Profile_Panels_ytop, & + Profile_Panels_txt_scale, & + prev_Profile_Panels_win_width, & + prev_Profile_Panels_win_ratio, & + Profile_Panels_file_width, & + Profile_Panels_file_aspect_ratio, & + prev_Profile_Panels_file_width, & + prev_Profile_Panels_file_ratio, & + Profile_Panels_num_panels, & + Profile_Panels_yaxis_name, & + Profile_Panels_other_yaxis_name, & + Profile_Panels_yaxis_reversed, & + Profile_Panels_other_yaxis_reversed, & + Profile_Panels_yaxis_log, & + Profile_Panels_other_yaxis_log, & + Profile_Panels_same_yaxis_range, & + Profile_Panels_ymin, & + Profile_Panels_other_ymin, & + Profile_Panels_ymax, & + Profile_Panels_other_ymax, & + Profile_Panels_ycenter, & + Profile_Panels_other_ycenter, & + Profile_Panels_ymargin, & + Profile_Panels_other_ymargin, & + Profile_Panels_dymin, & + Profile_Panels_other_dymin, & + Profile_Panels_show_grid, & + Profile_Panels_use_decorator, & + + + Text_Summary_win_flag, & + Text_Summary_file_flag, & + Text_Summary_file_interval, & + Text_Summary_file_dir, & + Text_Summary_file_prefix, & + Text_Summary_num_cols, & + Text_Summary_num_rows, & + Text_Summary_name, & + Text_Summary_win_width, & + Text_Summary_win_aspect_ratio, & + Text_Summary_file_width, & + Text_Summary_file_aspect_ratio, & + Text_Summary_title, & + Text_Summary_xleft, & + Text_Summary_xright, & + Text_Summary_ybot, & + Text_Summary_ytop, & + Text_Summary_txt_scale, & + Text_Summary_dxval, & logg_Teff_win_flag, & logg_Teff_file_flag, & @@ -1156,410 +651,50 @@ module pgstar_ctrls_io TmaxRho_title, & TmaxRho_use_decorator, & - History_Track1_win_flag, & - History_Track1_file_flag, & - History_Track1_file_interval, & - History_Track1_step_min, & - History_Track1_step_max, & - show_History_Track1_target_box, & - History_Track1_n_sigma, & - History_Track1_xtarget, & - History_Track1_xsigma, & - History_Track1_ytarget, & - History_Track1_ysigma, & - History_Track1_xname, & - History_Track1_xaxis_label, & - History_Track1_yname, & - History_Track1_yaxis_label, & - History_Track1_file_dir, & - History_Track1_file_prefix, & - show_History_Track1_annotation1, & - show_History_Track1_annotation2, & - show_History_Track1_annotation3, & - History_Track1_fname, & - History_Track1_reverse_xaxis, & - History_Track1_reverse_yaxis, & - History_Track1_log_xaxis, & - History_Track1_log_yaxis, & - History_Track1_xmin, & - History_Track1_xmax, & - History_Track1_ymin, & - History_Track1_ymax, & - History_Track1_xmargin, & - History_Track1_ymargin, & - History_Track1_dxmin, & - History_Track1_dymin, & - History_Track1_win_width, & - History_Track1_win_aspect_ratio, & - History_Track1_file_width, & - History_Track1_file_aspect_ratio, & - History_Track1_xleft, & - History_Track1_xright, & - History_Track1_ybot, & - History_Track1_ytop, & - History_Track1_txt_scale, & - History_Track1_title, & - History_Track1_use_decorator, & - - History_Track2_win_flag, & - History_Track2_file_flag, & - History_Track2_file_interval, & - History_Track2_step_min, & - History_Track2_step_max, & - show_History_Track2_target_box, & - History_Track2_n_sigma, & - History_Track2_xtarget, & - History_Track2_xsigma, & - History_Track2_ytarget, & - History_Track2_ysigma, & - History_Track2_xname, & - History_Track2_xaxis_label, & - History_Track2_yname, & - History_Track2_yaxis_label, & - History_Track2_file_dir, & - History_Track2_file_prefix, & - show_History_Track2_annotation1, & - show_History_Track2_annotation2, & - show_History_Track2_annotation3, & - History_Track2_fname, & - History_Track2_reverse_xaxis, & - History_Track2_reverse_yaxis, & - History_Track2_log_xaxis, & - History_Track2_log_yaxis, & - History_Track2_xmin, & - History_Track2_xmax, & - History_Track2_ymin, & - History_Track2_ymax, & - History_Track2_xmargin, & - History_Track2_ymargin, & - History_Track2_dxmin, & - History_Track2_dymin, & - History_Track2_win_width, & - History_Track2_win_aspect_ratio, & - History_Track2_file_width, & - History_Track2_file_aspect_ratio, & - History_Track2_xleft, & - History_Track2_xright, & - History_Track2_ybot, & - History_Track2_ytop, & - History_Track2_txt_scale, & - History_Track2_title, & - History_Track2_use_decorator, & - - History_Track3_win_flag, & - History_Track3_file_flag, & - History_Track3_file_interval, & - History_Track3_step_min, & - History_Track3_step_max, & - show_History_Track3_target_box, & - History_Track3_n_sigma, & - History_Track3_xtarget, & - History_Track3_xsigma, & - History_Track3_ytarget, & - History_Track3_ysigma, & - History_Track3_xname, & - History_Track3_xaxis_label, & - History_Track3_yname, & - History_Track3_yaxis_label, & - History_Track3_file_dir, & - History_Track3_file_prefix, & - show_History_Track3_annotation1, & - show_History_Track3_annotation2, & - show_History_Track3_annotation3, & - History_Track3_fname, & - History_Track3_reverse_xaxis, & - History_Track3_reverse_yaxis, & - History_Track3_log_xaxis, & - History_Track3_log_yaxis, & - History_Track3_xmin, & - History_Track3_xmax, & - History_Track3_ymin, & - History_Track3_ymax, & - History_Track3_xmargin, & - History_Track3_ymargin, & - History_Track3_dxmin, & - History_Track3_dymin, & - History_Track3_win_width, & - History_Track3_win_aspect_ratio, & - History_Track3_file_width, & - History_Track3_file_aspect_ratio, & - History_Track3_xleft, & - History_Track3_xright, & - History_Track3_ybot, & - History_Track3_ytop, & - History_Track3_txt_scale, & - History_Track3_title, & - History_Track3_use_decorator, & - - History_Track4_win_flag, & - History_Track4_file_flag, & - History_Track4_file_interval, & - History_Track4_step_min, & - History_Track4_step_max, & - show_History_Track4_target_box, & - History_Track4_n_sigma, & - History_Track4_xtarget, & - History_Track4_xsigma, & - History_Track4_ytarget, & - History_Track4_ysigma, & - History_Track4_xname, & - History_Track4_xaxis_label, & - History_Track4_yname, & - History_Track4_yaxis_label, & - History_Track4_file_dir, & - History_Track4_file_prefix, & - show_History_Track4_annotation1, & - show_History_Track4_annotation2, & - show_History_Track4_annotation3, & - History_Track4_fname, & - History_Track4_reverse_xaxis, & - History_Track4_reverse_yaxis, & - History_Track4_log_xaxis, & - History_Track4_log_yaxis, & - History_Track4_xmin, & - History_Track4_xmax, & - History_Track4_ymin, & - History_Track4_ymax, & - History_Track4_xmargin, & - History_Track4_ymargin, & - History_Track4_dxmin, & - History_Track4_dymin, & - History_Track4_win_width, & - History_Track4_win_aspect_ratio, & - History_Track4_file_width, & - History_Track4_file_aspect_ratio, & - History_Track4_xleft, & - History_Track4_xright, & - History_Track4_ybot, & - History_Track4_ytop, & - History_Track4_txt_scale, & - History_Track4_title, & - History_Track4_use_decorator, & - - History_Track5_win_flag, & - History_Track5_file_flag, & - History_Track5_file_interval, & - History_Track5_step_min, & - History_Track5_step_max, & - show_History_Track5_target_box, & - History_Track5_n_sigma, & - History_Track5_xtarget, & - History_Track5_xsigma, & - History_Track5_ytarget, & - History_Track5_ysigma, & - History_Track5_xname, & - History_Track5_xaxis_label, & - History_Track5_yname, & - History_Track5_yaxis_label, & - History_Track5_file_dir, & - History_Track5_file_prefix, & - show_History_Track5_annotation1, & - show_History_Track5_annotation2, & - show_History_Track5_annotation3, & - History_Track5_fname, & - History_Track5_reverse_xaxis, & - History_Track5_reverse_yaxis, & - History_Track5_log_xaxis, & - History_Track5_log_yaxis, & - History_Track5_xmin, & - History_Track5_xmax, & - History_Track5_ymin, & - History_Track5_ymax, & - History_Track5_xmargin, & - History_Track5_ymargin, & - History_Track5_dxmin, & - History_Track5_dymin, & - History_Track5_win_width, & - History_Track5_win_aspect_ratio, & - History_Track5_file_width, & - History_Track5_file_aspect_ratio, & - History_Track5_xleft, & - History_Track5_xright, & - History_Track5_ybot, & - History_Track5_ytop, & - History_Track5_txt_scale, & - History_Track5_title, & - History_Track5_use_decorator, & - - History_Track6_win_flag, & - History_Track6_file_flag, & - History_Track6_file_interval, & - History_Track6_step_min, & - History_Track6_step_max, & - show_History_Track6_target_box, & - History_Track6_n_sigma, & - History_Track6_xtarget, & - History_Track6_xsigma, & - History_Track6_ytarget, & - History_Track6_ysigma, & - History_Track6_xname, & - History_Track6_xaxis_label, & - History_Track6_yname, & - History_Track6_yaxis_label, & - History_Track6_file_dir, & - History_Track6_file_prefix, & - show_History_Track6_annotation1, & - show_History_Track6_annotation2, & - show_History_Track6_annotation3, & - History_Track6_fname, & - History_Track6_reverse_xaxis, & - History_Track6_reverse_yaxis, & - History_Track6_log_xaxis, & - History_Track6_log_yaxis, & - History_Track6_xmin, & - History_Track6_xmax, & - History_Track6_ymin, & - History_Track6_ymax, & - History_Track6_xmargin, & - History_Track6_ymargin, & - History_Track6_dxmin, & - History_Track6_dymin, & - History_Track6_win_width, & - History_Track6_win_aspect_ratio, & - History_Track6_file_width, & - History_Track6_file_aspect_ratio, & - History_Track6_xleft, & - History_Track6_xright, & - History_Track6_ybot, & - History_Track6_ytop, & - History_Track6_txt_scale, & - History_Track6_title, & - History_Track6_use_decorator, & - - History_Track7_win_flag, & - History_Track7_file_flag, & - History_Track7_file_interval, & - History_Track7_step_min, & - History_Track7_step_max, & - show_History_Track7_target_box, & - History_Track7_n_sigma, & - History_Track7_xtarget, & - History_Track7_xsigma, & - History_Track7_ytarget, & - History_Track7_ysigma, & - History_Track7_xname, & - History_Track7_xaxis_label, & - History_Track7_yname, & - History_Track7_yaxis_label, & - History_Track7_file_dir, & - History_Track7_file_prefix, & - show_History_Track7_annotation1, & - show_History_Track7_annotation2, & - show_History_Track7_annotation3, & - History_Track7_fname, & - History_Track7_reverse_xaxis, & - History_Track7_reverse_yaxis, & - History_Track7_log_xaxis, & - History_Track7_log_yaxis, & - History_Track7_xmin, & - History_Track7_xmax, & - History_Track7_ymin, & - History_Track7_ymax, & - History_Track7_xmargin, & - History_Track7_ymargin, & - History_Track7_dxmin, & - History_Track7_dymin, & - History_Track7_win_width, & - History_Track7_win_aspect_ratio, & - History_Track7_file_width, & - History_Track7_file_aspect_ratio, & - History_Track7_xleft, & - History_Track7_xright, & - History_Track7_ybot, & - History_Track7_ytop, & - History_Track7_txt_scale, & - History_Track7_title, & - History_Track7_use_decorator, & - - History_Track8_win_flag, & - History_Track8_file_flag, & - History_Track8_file_interval, & - History_Track8_step_min, & - History_Track8_step_max, & - show_History_Track8_target_box, & - History_Track8_n_sigma, & - History_Track8_xtarget, & - History_Track8_xsigma, & - History_Track8_ytarget, & - History_Track8_ysigma, & - History_Track8_xname, & - History_Track8_xaxis_label, & - History_Track8_yname, & - History_Track8_yaxis_label, & - History_Track8_file_dir, & - History_Track8_file_prefix, & - show_History_Track8_annotation1, & - show_History_Track8_annotation2, & - show_History_Track8_annotation3, & - History_Track8_fname, & - History_Track8_reverse_xaxis, & - History_Track8_reverse_yaxis, & - History_Track8_log_xaxis, & - History_Track8_log_yaxis, & - History_Track8_xmin, & - History_Track8_xmax, & - History_Track8_ymin, & - History_Track8_ymax, & - History_Track8_xmargin, & - History_Track8_ymargin, & - History_Track8_dxmin, & - History_Track8_dymin, & - History_Track8_win_width, & - History_Track8_win_aspect_ratio, & - History_Track8_file_width, & - History_Track8_file_aspect_ratio, & - History_Track8_xleft, & - History_Track8_xright, & - History_Track8_ybot, & - History_Track8_ytop, & - History_Track8_txt_scale, & - History_Track8_title, & - History_Track8_use_decorator, & - - History_Track9_win_flag, & - History_Track9_file_flag, & - History_Track9_file_interval, & - History_Track9_step_min, & - History_Track9_step_max, & - show_History_Track9_target_box, & - History_Track9_n_sigma, & - History_Track9_xtarget, & - History_Track9_xsigma, & - History_Track9_ytarget, & - History_Track9_ysigma, & - History_Track9_xname, & - History_Track9_xaxis_label, & - History_Track9_yname, & - History_Track9_yaxis_label, & - History_Track9_file_dir, & - History_Track9_file_prefix, & - show_History_Track9_annotation1, & - show_History_Track9_annotation2, & - show_History_Track9_annotation3, & - History_Track9_fname, & - History_Track9_reverse_xaxis, & - History_Track9_reverse_yaxis, & - History_Track9_log_xaxis, & - History_Track9_log_yaxis, & - History_Track9_xmin, & - History_Track9_xmax, & - History_Track9_ymin, & - History_Track9_ymax, & - History_Track9_xmargin, & - History_Track9_ymargin, & - History_Track9_dxmin, & - History_Track9_dymin, & - History_Track9_win_width, & - History_Track9_win_aspect_ratio, & - History_Track9_file_width, & - History_Track9_file_aspect_ratio, & - History_Track9_xleft, & - History_Track9_xright, & - History_Track9_ybot, & - History_Track9_ytop, & - History_Track9_txt_scale, & - History_Track9_title, & - History_Track9_use_decorator, & + History_Track_win_flag, & + History_Track_file_flag, & + History_Track_file_interval, & + History_Track_step_min, & + History_Track_step_max, & + show_History_Track_target_box, & + History_Track_n_sigma, & + History_Track_xtarget, & + History_Track_xsigma, & + History_Track_ytarget, & + History_Track_ysigma, & + History_Track_xname, & + History_Track_xaxis_label, & + History_Track_yname, & + History_Track_yaxis_label, & + History_Track_file_dir, & + History_Track_file_prefix, & + show_History_Track_annotation1, & + show_History_Track_annotation2, & + show_History_Track_annotation3, & + History_Track_fname, & + History_Track_reverse_xaxis, & + History_Track_reverse_yaxis, & + History_Track_log_xaxis, & + History_Track_log_yaxis, & + History_Track_xmin, & + History_Track_xmax, & + History_Track_ymin, & + History_Track_ymax, & + History_Track_xmargin, & + History_Track_ymargin, & + History_Track_dxmin, & + History_Track_dymin, & + History_Track_win_width, & + History_Track_win_aspect_ratio, & + History_Track_file_width, & + History_Track_file_aspect_ratio, & + History_Track_xleft, & + History_Track_xright, & + History_Track_ybot, & + History_Track_ytop, & + History_Track_txt_scale, & + History_Track_title, & + History_Track_use_decorator, & Kipp_win_flag, & Kipp_file_flag, & @@ -1761,392 +896,48 @@ module pgstar_ctrls_io Mixing_title, & Mixing_use_decorator, & - History_Panels1_win_flag, & - History_Panels1_win_width, & - History_Panels1_win_aspect_ratio, & - History_Panels1_xleft, & - History_Panels1_xright, & - History_Panels1_ybot, & - History_Panels1_ytop, & - History_Panels1_txt_scale, & - History_Panels1_title, & - History_Panels1_xmax, & - History_Panels1_xmin, & - History_Panels1_dxmin, & - History_Panels1_max_width, & - History_Panels1_num_panels, & - History_Panels1_xaxis_name, & - History_Panels1_automatic_star_age_units, & - History_Panels1_yaxis_name, & - History_Panels1_xaxis_reversed, & - History_Panels1_yaxis_reversed, & - History_Panels1_yaxis_log, & - History_Panels1_ymin, & - History_Panels1_ymax, & - History_Panels1_dymin, & - History_Panels1_other_yaxis_name, & - History_Panels1_other_yaxis_reversed, & - History_Panels1_xaxis_log, & - History_Panels1_other_yaxis_log, & - History_Panels1_same_yaxis_range, & - History_Panels1_other_ymin, & - History_Panels1_other_ymax, & - History_Panels1_other_dymin, & - History_Panels1_points_name, & - History_Panels1_file_flag, & - History_Panels1_file_dir, & - History_Panels1_file_prefix, & - History_Panels1_file_interval, & - History_Panels1_file_width, & - History_Panels1_file_aspect_ratio, & - History_Panels1_xmargin, & - History_Panels1_ymargin, & - History_Panels1_other_ymargin, & - History_Panels1_use_decorator, & - - History_Panels2_win_flag, & - History_Panels2_win_width, & - History_Panels2_win_aspect_ratio, & - History_Panels2_xleft, & - History_Panels2_xright, & - History_Panels2_ybot, & - History_Panels2_ytop, & - History_Panels2_txt_scale, & - History_Panels2_title, & - History_Panels2_xmax, & - History_Panels2_xmin, & - History_Panels2_dxmin, & - History_Panels2_max_width, & - History_Panels2_num_panels, & - History_Panels2_xaxis_name, & - History_Panels2_automatic_star_age_units, & - History_Panels2_yaxis_name, & - History_Panels2_xaxis_reversed, & - History_Panels2_yaxis_reversed, & - History_Panels2_yaxis_log, & - History_Panels2_ymin, & - History_Panels2_ymax, & - History_Panels2_dymin, & - History_Panels2_other_yaxis_name, & - History_Panels2_other_yaxis_reversed, & - History_Panels2_xaxis_log, & - History_Panels2_other_yaxis_log, & - History_Panels2_same_yaxis_range, & - History_Panels2_other_ymin, & - History_Panels2_other_ymax, & - History_Panels2_other_dymin, & - History_Panels2_points_name, & - History_Panels2_file_flag, & - History_Panels2_file_dir, & - History_Panels2_file_prefix, & - History_Panels2_file_interval, & - History_Panels2_file_width, & - History_Panels2_file_aspect_ratio, & - History_Panels2_xmargin, & - History_Panels2_ymargin, & - History_Panels2_other_ymargin, & - History_Panels2_use_decorator, & - - History_Panels3_win_flag, & - History_Panels3_win_width, & - History_Panels3_win_aspect_ratio, & - History_Panels3_xleft, & - History_Panels3_xright, & - History_Panels3_ybot, & - History_Panels3_ytop, & - History_Panels3_txt_scale, & - History_Panels3_title, & - History_Panels3_xmax, & - History_Panels3_xmin, & - History_Panels3_dxmin, & - History_Panels3_max_width, & - History_Panels3_num_panels, & - History_Panels3_xaxis_name, & - History_Panels3_automatic_star_age_units, & - History_Panels3_yaxis_name, & - History_Panels3_xaxis_reversed, & - History_Panels3_yaxis_reversed, & - History_Panels3_yaxis_log, & - History_Panels3_ymin, & - History_Panels3_ymax, & - History_Panels3_dymin, & - History_Panels3_other_yaxis_name, & - History_Panels3_other_yaxis_reversed, & - History_Panels3_xaxis_log, & - History_Panels3_other_yaxis_log, & - History_Panels3_same_yaxis_range, & - History_Panels3_other_ymin, & - History_Panels3_other_ymax, & - History_Panels3_other_dymin, & - History_Panels3_points_name, & - History_Panels3_file_flag, & - History_Panels3_file_dir, & - History_Panels3_file_prefix, & - History_Panels3_file_interval, & - History_Panels3_file_width, & - History_Panels3_file_aspect_ratio, & - History_Panels3_xmargin, & - History_Panels3_ymargin, & - History_Panels3_other_ymargin, & - History_Panels3_use_decorator, & - - History_Panels4_win_flag, & - History_Panels4_win_width, & - History_Panels4_win_aspect_ratio, & - History_Panels4_xleft, & - History_Panels4_xright, & - History_Panels4_ybot, & - History_Panels4_ytop, & - History_Panels4_txt_scale, & - History_Panels4_title, & - History_Panels4_xmax, & - History_Panels4_xmin, & - History_Panels4_dxmin, & - History_Panels4_max_width, & - History_Panels4_num_panels, & - History_Panels4_xaxis_name, & - History_Panels4_automatic_star_age_units, & - History_Panels4_yaxis_name, & - History_Panels4_xaxis_reversed, & - History_Panels4_yaxis_reversed, & - History_Panels4_yaxis_log, & - History_Panels4_ymin, & - History_Panels4_ymax, & - History_Panels4_dymin, & - History_Panels4_other_yaxis_name, & - History_Panels4_other_yaxis_reversed, & - History_Panels4_xaxis_log, & - History_Panels4_other_yaxis_log, & - History_Panels4_same_yaxis_range, & - History_Panels4_other_ymin, & - History_Panels4_other_ymax, & - History_Panels4_other_dymin, & - History_Panels4_points_name, & - History_Panels4_file_flag, & - History_Panels4_file_dir, & - History_Panels4_file_prefix, & - History_Panels4_file_interval, & - History_Panels4_file_width, & - History_Panels4_file_aspect_ratio, & - History_Panels4_xmargin, & - History_Panels4_ymargin, & - History_Panels4_other_ymargin, & - History_Panels4_use_decorator, & - - History_Panels5_win_flag, & - History_Panels5_win_width, & - History_Panels5_win_aspect_ratio, & - History_Panels5_xleft, & - History_Panels5_xright, & - History_Panels5_ybot, & - History_Panels5_ytop, & - History_Panels5_txt_scale, & - History_Panels5_title, & - History_Panels5_xmax, & - History_Panels5_xmin, & - History_Panels5_dxmin, & - History_Panels5_max_width, & - History_Panels5_num_panels, & - History_Panels5_xaxis_name, & - History_Panels5_automatic_star_age_units, & - History_Panels5_yaxis_name, & - History_Panels5_xaxis_reversed, & - History_Panels5_yaxis_reversed, & - History_Panels5_yaxis_log, & - History_Panels5_ymin, & - History_Panels5_ymax, & - History_Panels5_dymin, & - History_Panels5_other_yaxis_name, & - History_Panels5_other_yaxis_reversed, & - History_Panels5_xaxis_log, & - History_Panels5_other_yaxis_log, & - History_Panels5_same_yaxis_range, & - History_Panels5_other_ymin, & - History_Panels5_other_ymax, & - History_Panels5_other_dymin, & - History_Panels5_points_name, & - History_Panels5_file_flag, & - History_Panels5_file_dir, & - History_Panels5_file_prefix, & - History_Panels5_file_interval, & - History_Panels5_file_width, & - History_Panels5_file_aspect_ratio, & - History_Panels5_xmargin, & - History_Panels5_ymargin, & - History_Panels5_other_ymargin, & - History_Panels5_use_decorator, & - - History_Panels6_win_flag, & - History_Panels6_win_width, & - History_Panels6_win_aspect_ratio, & - History_Panels6_xleft, & - History_Panels6_xright, & - History_Panels6_ybot, & - History_Panels6_ytop, & - History_Panels6_txt_scale, & - History_Panels6_title, & - History_Panels6_xmax, & - History_Panels6_xmin, & - History_Panels6_dxmin, & - History_Panels6_max_width, & - History_Panels6_num_panels, & - History_Panels6_xaxis_name, & - History_Panels6_automatic_star_age_units, & - History_Panels6_yaxis_name, & - History_Panels6_xaxis_reversed, & - History_Panels6_yaxis_reversed, & - History_Panels6_yaxis_log, & - History_Panels6_ymin, & - History_Panels6_ymax, & - History_Panels6_dymin, & - History_Panels6_other_yaxis_name, & - History_Panels6_other_yaxis_reversed, & - History_Panels6_xaxis_log, & - History_Panels6_other_yaxis_log, & - History_Panels6_same_yaxis_range, & - History_Panels6_other_ymin, & - History_Panels6_other_ymax, & - History_Panels6_other_dymin, & - History_Panels6_points_name, & - History_Panels6_file_flag, & - History_Panels6_file_dir, & - History_Panels6_file_prefix, & - History_Panels6_file_interval, & - History_Panels6_file_width, & - History_Panels6_file_aspect_ratio, & - History_Panels6_xmargin, & - History_Panels6_ymargin, & - History_Panels6_other_ymargin, & - History_Panels6_use_decorator, & - - History_Panels7_win_flag, & - History_Panels7_win_width, & - History_Panels7_win_aspect_ratio, & - History_Panels7_xleft, & - History_Panels7_xright, & - History_Panels7_ybot, & - History_Panels7_ytop, & - History_Panels7_txt_scale, & - History_Panels7_title, & - History_Panels7_xmax, & - History_Panels7_xmin, & - History_Panels7_dxmin, & - History_Panels7_max_width, & - History_Panels7_num_panels, & - History_Panels7_xaxis_name, & - History_Panels7_automatic_star_age_units, & - History_Panels7_yaxis_name, & - History_Panels7_xaxis_reversed, & - History_Panels7_yaxis_reversed, & - History_Panels7_yaxis_log, & - History_Panels7_ymin, & - History_Panels7_ymax, & - History_Panels7_dymin, & - History_Panels7_other_yaxis_name, & - History_Panels7_other_yaxis_reversed, & - History_Panels7_xaxis_log, & - History_Panels7_other_yaxis_log, & - History_Panels7_same_yaxis_range, & - History_Panels7_other_ymin, & - History_Panels7_other_ymax, & - History_Panels7_other_dymin, & - History_Panels7_points_name, & - History_Panels7_file_flag, & - History_Panels7_file_dir, & - History_Panels7_file_prefix, & - History_Panels7_file_interval, & - History_Panels7_file_width, & - History_Panels7_file_aspect_ratio, & - History_Panels7_xmargin, & - History_Panels7_ymargin, & - History_Panels7_other_ymargin, & - History_Panels7_use_decorator, & - - History_Panels8_win_flag, & - History_Panels8_win_width, & - History_Panels8_win_aspect_ratio, & - History_Panels8_xleft, & - History_Panels8_xright, & - History_Panels8_ybot, & - History_Panels8_ytop, & - History_Panels8_txt_scale, & - History_Panels8_title, & - History_Panels8_xmax, & - History_Panels8_xmin, & - History_Panels8_dxmin, & - History_Panels8_max_width, & - History_Panels8_num_panels, & - History_Panels8_xaxis_name, & - History_Panels8_automatic_star_age_units, & - History_Panels8_yaxis_name, & - History_Panels8_xaxis_reversed, & - History_Panels8_yaxis_reversed, & - History_Panels8_yaxis_log, & - History_Panels8_ymin, & - History_Panels8_ymax, & - History_Panels8_dymin, & - History_Panels8_other_yaxis_name, & - History_Panels8_other_yaxis_reversed, & - History_Panels8_xaxis_log, & - History_Panels8_other_yaxis_log, & - History_Panels8_same_yaxis_range, & - History_Panels8_other_ymin, & - History_Panels8_other_ymax, & - History_Panels8_other_dymin, & - History_Panels8_points_name, & - History_Panels8_file_flag, & - History_Panels8_file_dir, & - History_Panels8_file_prefix, & - History_Panels8_file_interval, & - History_Panels8_file_width, & - History_Panels8_file_aspect_ratio, & - History_Panels8_xmargin, & - History_Panels8_ymargin, & - History_Panels8_other_ymargin, & - History_Panels8_use_decorator, & - - History_Panels9_win_flag, & - History_Panels9_win_width, & - History_Panels9_win_aspect_ratio, & - History_Panels9_xleft, & - History_Panels9_xright, & - History_Panels9_ybot, & - History_Panels9_ytop, & - History_Panels9_txt_scale, & - History_Panels9_title, & - History_Panels9_xmax, & - History_Panels9_xmin, & - History_Panels9_dxmin, & - History_Panels9_max_width, & - History_Panels9_num_panels, & - History_Panels9_xaxis_name, & - History_Panels9_automatic_star_age_units, & - History_Panels9_yaxis_name, & - History_Panels9_xaxis_reversed, & - History_Panels9_yaxis_reversed, & - History_Panels9_yaxis_log, & - History_Panels9_ymin, & - History_Panels9_ymax, & - History_Panels9_dymin, & - History_Panels9_other_yaxis_name, & - History_Panels9_other_yaxis_reversed, & - History_Panels9_xaxis_log, & - History_Panels9_other_yaxis_log, & - History_Panels9_same_yaxis_range, & - History_Panels9_other_ymin, & - History_Panels9_other_ymax, & - History_Panels9_other_dymin, & - History_Panels9_points_name, & - History_Panels9_file_flag, & - History_Panels9_file_dir, & - History_Panels9_file_prefix, & - History_Panels9_file_interval, & - History_Panels9_file_width, & - History_Panels9_file_aspect_ratio, & - History_Panels9_xmargin, & - History_Panels9_ymargin, & - History_Panels9_other_ymargin, & - History_Panels9_use_decorator, & + History_Panels_win_flag, & + History_Panels_win_width, & + History_Panels_win_aspect_ratio, & + History_Panels_xleft, & + History_Panels_xright, & + History_Panels_ybot, & + History_Panels_ytop, & + History_Panels_txt_scale, & + History_Panels_title, & + History_Panels_xmax, & + History_Panels_xmin, & + History_Panels_dxmin, & + History_Panels_max_width, & + History_Panels_num_panels, & + History_Panels_xaxis_name, & + History_Panels_automatic_star_age_units, & + History_Panels_yaxis_name, & + History_Panels_xaxis_reversed, & + History_Panels_yaxis_reversed, & + History_Panels_yaxis_log, & + History_Panels_ymin, & + History_Panels_ymax, & + History_Panels_dymin, & + History_Panels_other_yaxis_name, & + History_Panels_other_yaxis_reversed, & + History_Panels_xaxis_log, & + History_Panels_other_yaxis_log, & + History_Panels_same_yaxis_range, & + History_Panels_other_ymin, & + History_Panels_other_ymax, & + History_Panels_other_dymin, & + History_Panels_points_name, & + History_Panels_file_flag, & + History_Panels_file_dir, & + History_Panels_file_prefix, & + History_Panels_file_interval, & + History_Panels_file_width, & + History_Panels_file_aspect_ratio, & + History_Panels_xmargin, & + History_Panels_ymargin, & + History_Panels_other_ymargin, & + History_Panels_use_decorator, & History_Panel_points_error_bars, & History_Panel_points_interval, & @@ -2155,393 +946,48 @@ module pgstar_ctrls_io History_Panel_points_lw, & History_Panel_points_ch, & - Color_Magnitude1_win_flag, & - Color_Magnitude1_win_width, & - Color_Magnitude1_win_aspect_ratio, & - Color_Magnitude1_xleft, & - Color_Magnitude1_xright, & - Color_Magnitude1_ybot, & - Color_Magnitude1_ytop, & - Color_Magnitude1_txt_scale, & - Color_Magnitude1_title, & - Color_Magnitude1_xmax, & - Color_Magnitude1_xmin, & - Color_Magnitude1_dxmin, & - Color_Magnitude1_max_width, & - Color_Magnitude1_num_panels, & - Color_Magnitude1_xaxis1_name, & - Color_Magnitude1_xaxis2_name, & - Color_Magnitude1_yaxis1_name, & - Color_Magnitude1_yaxis2_name, & - Color_Magnitude1_xaxis_reversed, & - Color_Magnitude1_yaxis_reversed, & - Color_Magnitude1_yaxis_log, & - Color_Magnitude1_ymin, & - Color_Magnitude1_ymax, & - Color_Magnitude1_dymin, & - Color_Magnitude1_other_yaxis1_name, & - Color_Magnitude1_other_yaxis2_name, & - Color_Magnitude1_other_yaxis_reversed, & - Color_Magnitude1_xaxis_log, & - Color_Magnitude1_other_yaxis_log, & - Color_Magnitude1_other_ymin, & - Color_Magnitude1_other_ymax, & - Color_Magnitude1_other_dymin, & - Color_Magnitude1_file_flag, & - Color_Magnitude1_file_dir, & - Color_Magnitude1_file_prefix, & - Color_Magnitude1_file_interval, & - Color_Magnitude1_file_width, & - Color_Magnitude1_file_aspect_ratio, & - Color_Magnitude1_xmargin, & - Color_Magnitude1_ymargin, & - Color_Magnitude1_other_ymargin, & - Color_Magnitude1_use_decorator, & - - Color_Magnitude2_win_flag, & - Color_Magnitude2_win_width, & - Color_Magnitude2_win_aspect_ratio, & - Color_Magnitude2_xleft, & - Color_Magnitude2_xright, & - Color_Magnitude2_ybot, & - Color_Magnitude2_ytop, & - Color_Magnitude2_txt_scale, & - Color_Magnitude2_title, & - Color_Magnitude2_xmax, & - Color_Magnitude2_xmin, & - Color_Magnitude2_dxmin, & - Color_Magnitude2_max_width, & - Color_Magnitude2_num_panels, & - Color_Magnitude2_xaxis1_name, & - Color_Magnitude2_xaxis2_name, & - Color_Magnitude2_yaxis1_name, & - Color_Magnitude2_yaxis2_name, & - Color_Magnitude2_xaxis_reversed, & - Color_Magnitude2_yaxis_reversed, & - Color_Magnitude2_yaxis_log, & - Color_Magnitude2_ymin, & - Color_Magnitude2_ymax, & - Color_Magnitude2_dymin, & - Color_Magnitude2_other_yaxis1_name, & - Color_Magnitude2_other_yaxis2_name, & - Color_Magnitude2_other_yaxis_reversed, & - Color_Magnitude2_xaxis_log, & - Color_Magnitude2_other_yaxis_log, & - Color_Magnitude2_other_ymin, & - Color_Magnitude2_other_ymax, & - Color_Magnitude2_other_dymin, & - Color_Magnitude2_file_flag, & - Color_Magnitude2_file_dir, & - Color_Magnitude2_file_prefix, & - Color_Magnitude2_file_interval, & - Color_Magnitude2_file_width, & - Color_Magnitude2_file_aspect_ratio, & - Color_Magnitude2_xmargin, & - Color_Magnitude2_ymargin, & - Color_Magnitude2_other_ymargin, & - Color_Magnitude2_use_decorator, & - - Color_Magnitude3_win_flag, & - Color_Magnitude3_win_width, & - Color_Magnitude3_win_aspect_ratio, & - Color_Magnitude3_xleft, & - Color_Magnitude3_xright, & - Color_Magnitude3_ybot, & - Color_Magnitude3_ytop, & - Color_Magnitude3_txt_scale, & - Color_Magnitude3_title, & - Color_Magnitude3_xmax, & - Color_Magnitude3_xmin, & - Color_Magnitude3_dxmin, & - Color_Magnitude3_max_width, & - Color_Magnitude3_num_panels, & - Color_Magnitude3_xaxis1_name, & - Color_Magnitude3_xaxis2_name, & - Color_Magnitude3_yaxis1_name, & - Color_Magnitude3_yaxis2_name, & - Color_Magnitude3_xaxis_reversed, & - Color_Magnitude3_yaxis_reversed, & - Color_Magnitude3_yaxis_log, & - Color_Magnitude3_ymin, & - Color_Magnitude3_ymax, & - Color_Magnitude3_dymin, & - Color_Magnitude3_other_yaxis1_name, & - Color_Magnitude3_other_yaxis2_name, & - Color_Magnitude3_other_yaxis_reversed, & - Color_Magnitude3_xaxis_log, & - Color_Magnitude3_other_yaxis_log, & - Color_Magnitude3_other_ymin, & - Color_Magnitude3_other_ymax, & - Color_Magnitude3_other_dymin, & - Color_Magnitude3_file_flag, & - Color_Magnitude3_file_dir, & - Color_Magnitude3_file_prefix, & - Color_Magnitude3_file_interval, & - Color_Magnitude3_file_width, & - Color_Magnitude3_file_aspect_ratio, & - Color_Magnitude3_xmargin, & - Color_Magnitude3_ymargin, & - Color_Magnitude3_other_ymargin, & - Color_Magnitude3_use_decorator, & - - Color_Magnitude4_win_flag, & - Color_Magnitude4_win_width, & - Color_Magnitude4_win_aspect_ratio, & - Color_Magnitude4_xleft, & - Color_Magnitude4_xright, & - Color_Magnitude4_ybot, & - Color_Magnitude4_ytop, & - Color_Magnitude4_txt_scale, & - Color_Magnitude4_title, & - Color_Magnitude4_xmax, & - Color_Magnitude4_xmin, & - Color_Magnitude4_dxmin, & - Color_Magnitude4_max_width, & - Color_Magnitude4_num_panels, & - Color_Magnitude4_xaxis1_name, & - Color_Magnitude4_xaxis2_name, & - Color_Magnitude4_yaxis1_name, & - Color_Magnitude4_yaxis2_name, & - Color_Magnitude4_xaxis_reversed, & - Color_Magnitude4_yaxis_reversed, & - Color_Magnitude4_yaxis_log, & - Color_Magnitude4_ymin, & - Color_Magnitude4_ymax, & - Color_Magnitude4_dymin, & - Color_Magnitude4_other_yaxis1_name, & - Color_Magnitude4_other_yaxis2_name, & - Color_Magnitude4_other_yaxis_reversed, & - Color_Magnitude4_xaxis_log, & - Color_Magnitude4_other_yaxis_log, & - Color_Magnitude4_other_ymin, & - Color_Magnitude4_other_ymax, & - Color_Magnitude4_other_dymin, & - Color_Magnitude4_file_flag, & - Color_Magnitude4_file_dir, & - Color_Magnitude4_file_prefix, & - Color_Magnitude4_file_interval, & - Color_Magnitude4_file_width, & - Color_Magnitude4_file_aspect_ratio, & - Color_Magnitude4_xmargin, & - Color_Magnitude4_ymargin, & - Color_Magnitude4_other_ymargin, & - Color_Magnitude4_use_decorator, & - - Color_Magnitude5_win_flag, & - Color_Magnitude5_win_width, & - Color_Magnitude5_win_aspect_ratio, & - Color_Magnitude5_xleft, & - Color_Magnitude5_xright, & - Color_Magnitude5_ybot, & - Color_Magnitude5_ytop, & - Color_Magnitude5_txt_scale, & - Color_Magnitude5_title, & - Color_Magnitude5_xmax, & - Color_Magnitude5_xmin, & - Color_Magnitude5_dxmin, & - Color_Magnitude5_max_width, & - Color_Magnitude5_num_panels, & - Color_Magnitude5_xaxis1_name, & - Color_Magnitude5_xaxis2_name, & - Color_Magnitude5_yaxis1_name, & - Color_Magnitude5_yaxis2_name, & - Color_Magnitude5_xaxis_reversed, & - Color_Magnitude5_yaxis_reversed, & - Color_Magnitude5_yaxis_log, & - Color_Magnitude5_ymin, & - Color_Magnitude5_ymax, & - Color_Magnitude5_dymin, & - Color_Magnitude5_other_yaxis1_name, & - Color_Magnitude5_other_yaxis2_name, & - Color_Magnitude5_other_yaxis_reversed, & - Color_Magnitude5_xaxis_log, & - Color_Magnitude5_other_yaxis_log, & - Color_Magnitude5_other_ymin, & - Color_Magnitude5_other_ymax, & - Color_Magnitude5_other_dymin, & - Color_Magnitude5_file_flag, & - Color_Magnitude5_file_dir, & - Color_Magnitude5_file_prefix, & - Color_Magnitude5_file_interval, & - Color_Magnitude5_file_width, & - Color_Magnitude5_file_aspect_ratio, & - Color_Magnitude5_xmargin, & - Color_Magnitude5_ymargin, & - Color_Magnitude5_other_ymargin, & - Color_Magnitude5_use_decorator, & - - Color_Magnitude6_win_flag, & - Color_Magnitude6_win_width, & - Color_Magnitude6_win_aspect_ratio, & - Color_Magnitude6_xleft, & - Color_Magnitude6_xright, & - Color_Magnitude6_ybot, & - Color_Magnitude6_ytop, & - Color_Magnitude6_txt_scale, & - Color_Magnitude6_title, & - Color_Magnitude6_xmax, & - Color_Magnitude6_xmin, & - Color_Magnitude6_dxmin, & - Color_Magnitude6_max_width, & - Color_Magnitude6_num_panels, & - Color_Magnitude6_xaxis1_name, & - Color_Magnitude6_xaxis2_name, & - Color_Magnitude6_yaxis1_name, & - Color_Magnitude6_yaxis2_name, & - Color_Magnitude6_xaxis_reversed, & - Color_Magnitude6_yaxis_reversed, & - Color_Magnitude6_yaxis_log, & - Color_Magnitude6_ymin, & - Color_Magnitude6_ymax, & - Color_Magnitude6_dymin, & - Color_Magnitude6_other_yaxis1_name, & - Color_Magnitude6_other_yaxis2_name, & - Color_Magnitude6_other_yaxis_reversed, & - Color_Magnitude6_xaxis_log, & - Color_Magnitude6_other_yaxis_log, & - Color_Magnitude6_other_ymin, & - Color_Magnitude6_other_ymax, & - Color_Magnitude6_other_dymin, & - Color_Magnitude6_file_flag, & - Color_Magnitude6_file_dir, & - Color_Magnitude6_file_prefix, & - Color_Magnitude6_file_interval, & - Color_Magnitude6_file_width, & - Color_Magnitude6_file_aspect_ratio, & - Color_Magnitude6_xmargin, & - Color_Magnitude6_ymargin, & - Color_Magnitude6_other_ymargin, & - Color_Magnitude6_use_decorator, & - - Color_Magnitude7_win_flag, & - Color_Magnitude7_win_width, & - Color_Magnitude7_win_aspect_ratio, & - Color_Magnitude7_xleft, & - Color_Magnitude7_xright, & - Color_Magnitude7_ybot, & - Color_Magnitude7_ytop, & - Color_Magnitude7_txt_scale, & - Color_Magnitude7_title, & - Color_Magnitude7_xmax, & - Color_Magnitude7_xmin, & - Color_Magnitude7_dxmin, & - Color_Magnitude7_max_width, & - Color_Magnitude7_num_panels, & - Color_Magnitude7_xaxis1_name, & - Color_Magnitude7_xaxis2_name, & - Color_Magnitude7_yaxis1_name, & - Color_Magnitude7_yaxis2_name, & - Color_Magnitude7_xaxis_reversed, & - Color_Magnitude7_yaxis_reversed, & - Color_Magnitude7_yaxis_log, & - Color_Magnitude7_ymin, & - Color_Magnitude7_ymax, & - Color_Magnitude7_dymin, & - Color_Magnitude7_other_yaxis1_name, & - Color_Magnitude7_other_yaxis2_name, & - Color_Magnitude7_other_yaxis_reversed, & - Color_Magnitude7_xaxis_log, & - Color_Magnitude7_other_yaxis_log, & - Color_Magnitude7_other_ymin, & - Color_Magnitude7_other_ymax, & - Color_Magnitude7_other_dymin, & - Color_Magnitude7_file_flag, & - Color_Magnitude7_file_dir, & - Color_Magnitude7_file_prefix, & - Color_Magnitude7_file_interval, & - Color_Magnitude7_file_width, & - Color_Magnitude7_file_aspect_ratio, & - Color_Magnitude7_xmargin, & - Color_Magnitude7_ymargin, & - Color_Magnitude7_other_ymargin, & - Color_Magnitude7_use_decorator, & - - Color_Magnitude8_win_flag, & - Color_Magnitude8_win_width, & - Color_Magnitude8_win_aspect_ratio, & - Color_Magnitude8_xleft, & - Color_Magnitude8_xright, & - Color_Magnitude8_ybot, & - Color_Magnitude8_ytop, & - Color_Magnitude8_txt_scale, & - Color_Magnitude8_title, & - Color_Magnitude8_xmax, & - Color_Magnitude8_xmin, & - Color_Magnitude8_dxmin, & - Color_Magnitude8_max_width, & - Color_Magnitude8_num_panels, & - Color_Magnitude8_xaxis1_name, & - Color_Magnitude8_xaxis2_name, & - Color_Magnitude8_yaxis1_name, & - Color_Magnitude8_yaxis2_name, & - Color_Magnitude8_xaxis_reversed, & - Color_Magnitude8_yaxis_reversed, & - Color_Magnitude8_yaxis_log, & - Color_Magnitude8_ymin, & - Color_Magnitude8_ymax, & - Color_Magnitude8_dymin, & - Color_Magnitude8_other_yaxis1_name, & - Color_Magnitude8_other_yaxis2_name, & - Color_Magnitude8_other_yaxis_reversed, & - Color_Magnitude8_xaxis_log, & - Color_Magnitude8_other_yaxis_log, & - Color_Magnitude8_other_ymin, & - Color_Magnitude8_other_ymax, & - Color_Magnitude8_other_dymin, & - Color_Magnitude8_file_flag, & - Color_Magnitude8_file_dir, & - Color_Magnitude8_file_prefix, & - Color_Magnitude8_file_interval, & - Color_Magnitude8_file_width, & - Color_Magnitude8_file_aspect_ratio, & - Color_Magnitude8_xmargin, & - Color_Magnitude8_ymargin, & - Color_Magnitude8_other_ymargin, & - Color_Magnitude8_use_decorator, & - - Color_Magnitude9_win_flag, & - Color_Magnitude9_win_width, & - Color_Magnitude9_win_aspect_ratio, & - Color_Magnitude9_xleft, & - Color_Magnitude9_xright, & - Color_Magnitude9_ybot, & - Color_Magnitude9_ytop, & - Color_Magnitude9_txt_scale, & - Color_Magnitude9_title, & - Color_Magnitude9_xmax, & - Color_Magnitude9_xmin, & - Color_Magnitude9_dxmin, & - Color_Magnitude9_max_width, & - Color_Magnitude9_num_panels, & - Color_Magnitude9_xaxis1_name, & - Color_Magnitude9_xaxis2_name, & - Color_Magnitude9_yaxis1_name, & - Color_Magnitude9_yaxis2_name, & - Color_Magnitude9_xaxis_reversed, & - Color_Magnitude9_yaxis_reversed, & - Color_Magnitude9_yaxis_log, & - Color_Magnitude9_ymin, & - Color_Magnitude9_ymax, & - Color_Magnitude9_dymin, & - Color_Magnitude9_other_yaxis1_name, & - Color_Magnitude9_other_yaxis2_name, & - Color_Magnitude9_other_yaxis_reversed, & - Color_Magnitude9_xaxis_log, & - Color_Magnitude9_other_yaxis_log, & - Color_Magnitude9_other_ymin, & - Color_Magnitude9_other_ymax, & - Color_Magnitude9_other_dymin, & - Color_Magnitude9_file_flag, & - Color_Magnitude9_file_dir, & - Color_Magnitude9_file_prefix, & - Color_Magnitude9_file_interval, & - Color_Magnitude9_file_width, & - Color_Magnitude9_file_aspect_ratio, & - Color_Magnitude9_xmargin, & - Color_Magnitude9_ymargin, & - Color_Magnitude9_other_ymargin, & - Color_Magnitude9_use_decorator, & - + Color_Magnitude_win_flag, & + Color_Magnitude_win_width, & + Color_Magnitude_win_aspect_ratio, & + Color_Magnitude_xleft, & + Color_Magnitude_xright, & + Color_Magnitude_ybot, & + Color_Magnitude_ytop, & + Color_Magnitude_txt_scale, & + Color_Magnitude_title, & + Color_Magnitude_xmax, & + Color_Magnitude_xmin, & + Color_Magnitude_dxmin, & + Color_Magnitude_max_width, & + Color_Magnitude_num_panels, & + Color_Magnitude_xaxis1_name, & + Color_Magnitude_xaxis2_name, & + Color_Magnitude_yaxis1_name, & + Color_Magnitude_yaxis2_name, & + Color_Magnitude_xaxis_reversed, & + Color_Magnitude_yaxis_reversed, & + Color_Magnitude_yaxis_log, & + Color_Magnitude_ymin, & + Color_Magnitude_ymax, & + Color_Magnitude_dymin, & + Color_Magnitude_other_yaxis1_name, & + Color_Magnitude_other_yaxis2_name, & + Color_Magnitude_other_yaxis_reversed, & + Color_Magnitude_xaxis_log, & + Color_Magnitude_other_yaxis_log, & + Color_Magnitude_other_ymin, & + Color_Magnitude_other_ymax, & + Color_Magnitude_other_dymin, & + Color_Magnitude_file_flag, & + Color_Magnitude_file_dir, & + Color_Magnitude_file_prefix, & + Color_Magnitude_file_interval, & + Color_Magnitude_file_width, & + Color_Magnitude_file_aspect_ratio, & + Color_Magnitude_xmargin, & + Color_Magnitude_ymargin, & + Color_Magnitude_other_ymargin, & + Color_Magnitude_use_decorator, & Mode_Prop_win_flag, & Mode_Prop_file_flag, & @@ -2777,259 +1223,33 @@ module pgstar_ctrls_io dPg_dnu_title, & dPg_dnu_use_decorator, & - - Grid1_win_flag, & - Grid1_win_width, & - Grid1_win_aspect_ratio, & - Grid1_xleft, & - Grid1_xright, & - Grid1_ybot, & - Grid1_ytop, & - Grid1_title, & - Grid1_txt_scale_factor, & - Grid1_num_cols, & - Grid1_num_rows, & - Grid1_num_plots, & - Grid1_plot_name, & - Grid1_plot_row, & - Grid1_plot_rowspan, & - Grid1_plot_col, & - Grid1_plot_colspan, & - Grid1_plot_pad_left, & - Grid1_plot_pad_right, & - Grid1_plot_pad_top, & - Grid1_plot_pad_bot, & - Grid1_file_flag, & - Grid1_file_dir, & - Grid1_file_prefix, & - Grid1_file_interval, & - Grid1_file_width, & - Grid1_file_aspect_ratio, & - - Grid2_win_flag, & - Grid2_win_width, & - Grid2_win_aspect_ratio, & - Grid2_xleft, & - Grid2_xright, & - Grid2_ybot, & - Grid2_ytop, & - Grid2_title, & - Grid2_txt_scale_factor, & - Grid2_num_cols, & - Grid2_num_rows, & - Grid2_num_plots, & - Grid2_plot_name, & - Grid2_plot_row, & - Grid2_plot_rowspan, & - Grid2_plot_col, & - Grid2_plot_colspan, & - Grid2_plot_pad_left, & - Grid2_plot_pad_right, & - Grid2_plot_pad_top, & - Grid2_plot_pad_bot, & - Grid2_file_flag, & - Grid2_file_dir, & - Grid2_file_prefix, & - Grid2_file_interval, & - Grid2_file_width, & - Grid2_file_aspect_ratio, & - - Grid3_win_flag, & - Grid3_win_width, & - Grid3_win_aspect_ratio, & - Grid3_xleft, & - Grid3_xright, & - Grid3_ybot, & - Grid3_ytop, & - Grid3_title, & - Grid3_txt_scale_factor, & - Grid3_num_cols, & - Grid3_num_rows, & - Grid3_num_plots, & - Grid3_plot_name, & - Grid3_plot_row, & - Grid3_plot_rowspan, & - Grid3_plot_col, & - Grid3_plot_colspan, & - Grid3_plot_pad_left, & - Grid3_plot_pad_right, & - Grid3_plot_pad_top, & - Grid3_plot_pad_bot, & - Grid3_file_flag, & - Grid3_file_dir, & - Grid3_file_prefix, & - Grid3_file_interval, & - Grid3_file_width, & - Grid3_file_aspect_ratio, & - - Grid4_win_flag, & - Grid4_win_width, & - Grid4_win_aspect_ratio, & - Grid4_xleft, & - Grid4_xright, & - Grid4_ybot, & - Grid4_ytop, & - Grid4_title, & - Grid4_txt_scale_factor, & - Grid4_num_cols, & - Grid4_num_rows, & - Grid4_num_plots, & - Grid4_plot_name, & - Grid4_plot_row, & - Grid4_plot_rowspan, & - Grid4_plot_col, & - Grid4_plot_colspan, & - Grid4_plot_pad_left, & - Grid4_plot_pad_right, & - Grid4_plot_pad_top, & - Grid4_plot_pad_bot, & - Grid4_file_flag, & - Grid4_file_dir, & - Grid4_file_prefix, & - Grid4_file_interval, & - Grid4_file_width, & - Grid4_file_aspect_ratio, & - - Grid5_win_flag, & - Grid5_win_width, & - Grid5_win_aspect_ratio, & - Grid5_xleft, & - Grid5_xright, & - Grid5_ybot, & - Grid5_ytop, & - Grid5_title, & - Grid5_txt_scale_factor, & - Grid5_num_cols, & - Grid5_num_rows, & - Grid5_num_plots, & - Grid5_plot_name, & - Grid5_plot_row, & - Grid5_plot_rowspan, & - Grid5_plot_col, & - Grid5_plot_colspan, & - Grid5_plot_pad_left, & - Grid5_plot_pad_right, & - Grid5_plot_pad_top, & - Grid5_plot_pad_bot, & - Grid5_file_flag, & - Grid5_file_dir, & - Grid5_file_prefix, & - Grid5_file_interval, & - Grid5_file_width, & - Grid5_file_aspect_ratio, & - - Grid6_win_flag, & - Grid6_win_width, & - Grid6_win_aspect_ratio, & - Grid6_xleft, & - Grid6_xright, & - Grid6_ybot, & - Grid6_ytop, & - Grid6_title, & - Grid6_txt_scale_factor, & - Grid6_num_cols, & - Grid6_num_rows, & - Grid6_num_plots, & - Grid6_plot_name, & - Grid6_plot_row, & - Grid6_plot_rowspan, & - Grid6_plot_col, & - Grid6_plot_colspan, & - Grid6_plot_pad_left, & - Grid6_plot_pad_right, & - Grid6_plot_pad_top, & - Grid6_plot_pad_bot, & - Grid6_file_flag, & - Grid6_file_dir, & - Grid6_file_prefix, & - Grid6_file_interval, & - Grid6_file_width, & - Grid6_file_aspect_ratio, & - - Grid7_win_flag, & - Grid7_win_width, & - Grid7_win_aspect_ratio, & - Grid7_xleft, & - Grid7_xright, & - Grid7_ybot, & - Grid7_ytop, & - Grid7_title, & - Grid7_txt_scale_factor, & - Grid7_num_cols, & - Grid7_num_rows, & - Grid7_num_plots, & - Grid7_plot_name, & - Grid7_plot_row, & - Grid7_plot_rowspan, & - Grid7_plot_col, & - Grid7_plot_colspan, & - Grid7_plot_pad_left, & - Grid7_plot_pad_right, & - Grid7_plot_pad_top, & - Grid7_plot_pad_bot, & - Grid7_file_flag, & - Grid7_file_dir, & - Grid7_file_prefix, & - Grid7_file_interval, & - Grid7_file_width, & - Grid7_file_aspect_ratio, & - - Grid8_win_flag, & - Grid8_win_width, & - Grid8_win_aspect_ratio, & - Grid8_xleft, & - Grid8_xright, & - Grid8_ybot, & - Grid8_ytop, & - Grid8_title, & - Grid8_txt_scale_factor, & - Grid8_num_cols, & - Grid8_num_rows, & - Grid8_num_plots, & - Grid8_plot_name, & - Grid8_plot_row, & - Grid8_plot_rowspan, & - Grid8_plot_col, & - Grid8_plot_colspan, & - Grid8_plot_pad_left, & - Grid8_plot_pad_right, & - Grid8_plot_pad_top, & - Grid8_plot_pad_bot, & - Grid8_file_flag, & - Grid8_file_dir, & - Grid8_file_prefix, & - Grid8_file_interval, & - Grid8_file_width, & - Grid8_file_aspect_ratio, & - - Grid9_win_flag, & - Grid9_win_width, & - Grid9_win_aspect_ratio, & - Grid9_xleft, & - Grid9_xright, & - Grid9_ybot, & - Grid9_ytop, & - Grid9_title, & - Grid9_txt_scale_factor, & - Grid9_num_cols, & - Grid9_num_rows, & - Grid9_num_plots, & - Grid9_plot_name, & - Grid9_plot_row, & - Grid9_plot_rowspan, & - Grid9_plot_col, & - Grid9_plot_colspan, & - Grid9_plot_pad_left, & - Grid9_plot_pad_right, & - Grid9_plot_pad_top, & - Grid9_plot_pad_bot, & - Grid9_file_flag, & - Grid9_file_dir, & - Grid9_file_prefix, & - Grid9_file_interval, & - Grid9_file_width, & - Grid9_file_aspect_ratio, & - + Grid_win_flag, & + Grid_win_width, & + Grid_win_aspect_ratio, & + Grid_xleft, & + Grid_xright, & + Grid_ybot, & + Grid_ytop, & + Grid_title, & + Grid_txt_scale_factor, & + Grid_num_cols, & + Grid_num_rows, & + Grid_num_plots, & + Grid_plot_name, & + Grid_plot_row, & + Grid_plot_rowspan, & + Grid_plot_col, & + Grid_plot_colspan, & + Grid_plot_pad_left, & + Grid_plot_pad_right, & + Grid_plot_pad_top, & + Grid_plot_pad_bot, & + Grid_file_flag, & + Grid_file_dir, & + Grid_file_prefix, & + Grid_file_interval, & + Grid_file_width, & + Grid_file_aspect_ratio, & annotation1_ci, & annotation1_ch, & @@ -3064,9 +1284,6 @@ module pgstar_ctrls_io read_extra_pgstar_inlist, & extra_pgstar_inlist_name - - - contains @@ -3231,637 +1448,72 @@ subroutine store_pgstar_controls(s, ierr) s% pg% Profile_Panels_xwidth_right_of_shock = & Profile_Panels_xwidth_right_of_shock - s% pg% Profile_Panels1_win_flag = Profile_Panels1_win_flag - s% pg% Profile_Panels1_file_flag = Profile_Panels1_file_flag - s% pg% do_Profile_Panels1_win = do_Profile_Panels1_win - s% pg% do_Profile_Panels1_file = do_Profile_Panels1_file - s% pg% id_Profile_Panels1_win = id_Profile_Panels1_win - s% pg% id_Profile_Panels1_file = id_Profile_Panels1_file - s% pg% Profile_Panels1_file_interval = Profile_Panels1_file_interval - s% pg% Profile_Panels1_file_dir = Profile_Panels1_file_dir - s% pg% Profile_Panels1_file_prefix = Profile_Panels1_file_prefix - s% pg% Profile_Panels1_xaxis_reversed = Profile_Panels1_xaxis_reversed - s% pg% Profile_Panels1_xaxis_name = Profile_Panels1_xaxis_name - s% pg% Profile_Panels1_title = Profile_Panels1_title - s% pg% Profile_Panels1_xmin = Profile_Panels1_xmin - s% pg% Profile_Panels1_xmax = Profile_Panels1_xmax - s% pg% Profile_Panels1_xmargin = Profile_Panels1_xmargin - s% pg% Profile_Panels1_show_mix_regions_on_xaxis = & - Profile_Panels1_show_mix_regions_on_xaxis - s% pg% Profile_Panels1_win_width = Profile_Panels1_win_width - s% pg% Profile_Panels1_win_aspect_ratio = Profile_Panels1_win_aspect_ratio - s% pg% Profile_Panels1_xleft = Profile_Panels1_xleft - s% pg% Profile_Panels1_xright = Profile_Panels1_xright - s% pg% Profile_Panels1_ybot = Profile_Panels1_ybot - s% pg% Profile_Panels1_ytop = Profile_Panels1_ytop - s% pg% Profile_Panels1_txt_scale = Profile_Panels1_txt_scale - s% pg% prev_Profile_Panels1_win_width = prev_Profile_Panels1_win_width - s% pg% prev_Profile_Panels1_win_ratio = prev_Profile_Panels1_win_ratio - s% pg% Profile_Panels1_file_width = Profile_Panels1_file_width - s% pg% Profile_Panels1_file_aspect_ratio = Profile_Panels1_file_aspect_ratio - s% pg% prev_Profile_Panels1_file_width = prev_Profile_Panels1_file_width - s% pg% prev_Profile_Panels1_file_ratio = prev_Profile_Panels1_file_ratio - s% pg% Profile_Panels1_num_panels = Profile_Panels1_num_panels - s% pg% Profile_Panels1_yaxis_name = Profile_Panels1_yaxis_name - s% pg% Profile_Panels1_other_yaxis_name = Profile_Panels1_other_yaxis_name - s% pg% Profile_Panels1_yaxis_reversed = Profile_Panels1_yaxis_reversed - s% pg% Profile_Panels1_other_yaxis_reversed = Profile_Panels1_other_yaxis_reversed - s% pg% Profile_Panels1_yaxis_log = Profile_Panels1_yaxis_log - s% pg% Profile_Panels1_other_yaxis_log = Profile_Panels1_other_yaxis_log - s% pg% Profile_Panels1_same_yaxis_range = Profile_Panels1_same_yaxis_range - s% pg% Profile_Panels1_ymin = Profile_Panels1_ymin - s% pg% Profile_Panels1_other_ymin = Profile_Panels1_other_ymin - s% pg% Profile_Panels1_ymax = Profile_Panels1_ymax - s% pg% Profile_Panels1_other_ymax = Profile_Panels1_other_ymax - s% pg% Profile_Panels1_ycenter = Profile_Panels1_ycenter - s% pg% Profile_Panels1_other_ycenter = Profile_Panels1_other_ycenter - s% pg% Profile_Panels1_ymargin = Profile_Panels1_ymargin - s% pg% Profile_Panels1_other_ymargin = Profile_Panels1_other_ymargin - s% pg% Profile_Panels1_dymin = Profile_Panels1_dymin - s% pg% Profile_Panels1_other_dymin = Profile_Panels1_other_dymin - s% pg% Profile_Panels1_show_grid = Profile_Panels1_show_grid - s% pg% Profile_Panels1_use_decorator = Profile_Panels1_use_decorator - - s% pg% Profile_Panels2_win_flag = Profile_Panels2_win_flag - s% pg% Profile_Panels2_file_flag = Profile_Panels2_file_flag - s% pg% do_Profile_Panels2_win = do_Profile_Panels2_win - s% pg% do_Profile_Panels2_file = do_Profile_Panels2_file - s% pg% id_Profile_Panels2_win = id_Profile_Panels2_win - s% pg% id_Profile_Panels2_file = id_Profile_Panels2_file - s% pg% Profile_Panels2_file_interval = Profile_Panels2_file_interval - s% pg% Profile_Panels2_file_dir = Profile_Panels2_file_dir - s% pg% Profile_Panels2_file_prefix = Profile_Panels2_file_prefix - s% pg% Profile_Panels2_xaxis_reversed = Profile_Panels2_xaxis_reversed - s% pg% Profile_Panels2_xaxis_name = Profile_Panels2_xaxis_name - s% pg% Profile_Panels2_title = Profile_Panels2_title - s% pg% Profile_Panels2_xmin = Profile_Panels2_xmin - s% pg% Profile_Panels2_xmax = Profile_Panels2_xmax - s% pg% Profile_Panels2_xmargin = Profile_Panels2_xmargin - s% pg% Profile_Panels2_show_mix_regions_on_xaxis = Profile_Panels2_show_mix_regions_on_xaxis - s% pg% Profile_Panels2_win_width = Profile_Panels2_win_width - s% pg% Profile_Panels2_win_aspect_ratio = Profile_Panels2_win_aspect_ratio - s% pg% Profile_Panels2_xleft = Profile_Panels2_xleft - s% pg% Profile_Panels2_xright = Profile_Panels2_xright - s% pg% Profile_Panels2_ybot = Profile_Panels2_ybot - s% pg% Profile_Panels2_ytop = Profile_Panels2_ytop - s% pg% Profile_Panels2_txt_scale = Profile_Panels2_txt_scale - s% pg% prev_Profile_Panels2_win_width = prev_Profile_Panels2_win_width - s% pg% prev_Profile_Panels2_win_ratio = prev_Profile_Panels2_win_ratio - s% pg% Profile_Panels2_file_width = Profile_Panels2_file_width - s% pg% Profile_Panels2_file_aspect_ratio = Profile_Panels2_file_aspect_ratio - s% pg% prev_Profile_Panels2_file_width = prev_Profile_Panels2_file_width - s% pg% prev_Profile_Panels2_file_ratio = prev_Profile_Panels2_file_ratio - s% pg% Profile_Panels2_num_panels = Profile_Panels2_num_panels - s% pg% Profile_Panels2_yaxis_name = Profile_Panels2_yaxis_name - s% pg% Profile_Panels2_other_yaxis_name = Profile_Panels2_other_yaxis_name - s% pg% Profile_Panels2_yaxis_reversed = Profile_Panels2_yaxis_reversed - s% pg% Profile_Panels2_other_yaxis_reversed = Profile_Panels2_other_yaxis_reversed - s% pg% Profile_Panels2_yaxis_log = Profile_Panels2_yaxis_log - s% pg% Profile_Panels2_other_yaxis_log = Profile_Panels2_other_yaxis_log - s% pg% Profile_Panels2_same_yaxis_range = Profile_Panels2_same_yaxis_range - s% pg% Profile_Panels2_ymin = Profile_Panels2_ymin - s% pg% Profile_Panels2_other_ymin = Profile_Panels2_other_ymin - s% pg% Profile_Panels2_ymax = Profile_Panels2_ymax - s% pg% Profile_Panels2_other_ymax = Profile_Panels2_other_ymax - s% pg% Profile_Panels2_ycenter = Profile_Panels2_ycenter - s% pg% Profile_Panels2_other_ycenter = Profile_Panels2_other_ycenter - s% pg% Profile_Panels2_ymargin = Profile_Panels2_ymargin - s% pg% Profile_Panels2_other_ymargin = Profile_Panels2_other_ymargin - s% pg% Profile_Panels2_dymin = Profile_Panels2_dymin - s% pg% Profile_Panels2_other_dymin = Profile_Panels2_other_dymin - s% pg% Profile_Panels2_show_grid = Profile_Panels2_show_grid - s% pg% Profile_Panels2_use_decorator = Profile_Panels2_use_decorator - - s% pg% Profile_Panels3_win_flag = Profile_Panels3_win_flag - s% pg% Profile_Panels3_file_flag = Profile_Panels3_file_flag - s% pg% do_Profile_Panels3_win = do_Profile_Panels3_win - s% pg% do_Profile_Panels3_file = do_Profile_Panels3_file - s% pg% id_Profile_Panels3_win = id_Profile_Panels3_win - s% pg% id_Profile_Panels3_file = id_Profile_Panels3_file - s% pg% Profile_Panels3_file_interval = Profile_Panels3_file_interval - s% pg% Profile_Panels3_file_dir = Profile_Panels3_file_dir - s% pg% Profile_Panels3_file_prefix = Profile_Panels3_file_prefix - s% pg% Profile_Panels3_xaxis_reversed = Profile_Panels3_xaxis_reversed - s% pg% Profile_Panels3_xaxis_name = Profile_Panels3_xaxis_name - s% pg% Profile_Panels3_title = Profile_Panels3_title - s% pg% Profile_Panels3_xmin = Profile_Panels3_xmin - s% pg% Profile_Panels3_xmargin = Profile_Panels3_xmargin - s% pg% Profile_Panels3_show_mix_regions_on_xaxis = Profile_Panels3_show_mix_regions_on_xaxis - s% pg% Profile_Panels3_xmax = Profile_Panels3_xmax - s% pg% Profile_Panels3_win_width = Profile_Panels3_win_width - s% pg% Profile_Panels3_win_aspect_ratio = Profile_Panels3_win_aspect_ratio - s% pg% Profile_Panels3_xleft = Profile_Panels3_xleft - s% pg% Profile_Panels3_xright = Profile_Panels3_xright - s% pg% Profile_Panels3_ybot = Profile_Panels3_ybot - s% pg% Profile_Panels3_ytop = Profile_Panels3_ytop - s% pg% Profile_Panels3_txt_scale = Profile_Panels3_txt_scale - s% pg% prev_Profile_Panels3_win_width = prev_Profile_Panels3_win_width - s% pg% prev_Profile_Panels3_win_ratio = prev_Profile_Panels3_win_ratio - s% pg% Profile_Panels3_file_width = Profile_Panels3_file_width - s% pg% Profile_Panels3_file_aspect_ratio = Profile_Panels3_file_aspect_ratio - s% pg% prev_Profile_Panels3_file_width = prev_Profile_Panels3_file_width - s% pg% prev_Profile_Panels3_file_ratio = prev_Profile_Panels3_file_ratio - s% pg% Profile_Panels3_num_panels = Profile_Panels3_num_panels - s% pg% Profile_Panels3_yaxis_name = Profile_Panels3_yaxis_name - s% pg% Profile_Panels3_other_yaxis_name = Profile_Panels3_other_yaxis_name - s% pg% Profile_Panels3_yaxis_reversed = Profile_Panels3_yaxis_reversed - s% pg% Profile_Panels3_other_yaxis_reversed = Profile_Panels3_other_yaxis_reversed - s% pg% Profile_Panels3_yaxis_log = Profile_Panels3_yaxis_log - s% pg% Profile_Panels3_other_yaxis_log = Profile_Panels3_other_yaxis_log - s% pg% Profile_Panels3_same_yaxis_range = Profile_Panels3_same_yaxis_range - s% pg% Profile_Panels3_ymin = Profile_Panels3_ymin - s% pg% Profile_Panels3_other_ymin = Profile_Panels3_other_ymin - s% pg% Profile_Panels3_ymax = Profile_Panels3_ymax - s% pg% Profile_Panels3_other_ymax = Profile_Panels3_other_ymax - s% pg% Profile_Panels3_ycenter = Profile_Panels3_ycenter - s% pg% Profile_Panels3_other_ycenter = Profile_Panels3_other_ycenter - s% pg% Profile_Panels3_ymargin = Profile_Panels3_ymargin - s% pg% Profile_Panels3_other_ymargin = Profile_Panels3_other_ymargin - s% pg% Profile_Panels3_dymin = Profile_Panels3_dymin - s% pg% Profile_Panels3_other_dymin = Profile_Panels3_other_dymin - s% pg% Profile_Panels3_show_grid = Profile_Panels3_show_grid - s% pg% Profile_Panels3_use_decorator = Profile_Panels3_use_decorator - - s% pg% Profile_Panels4_win_flag = Profile_Panels4_win_flag - s% pg% Profile_Panels4_file_flag = Profile_Panels4_file_flag - s% pg% do_Profile_Panels4_win = do_Profile_Panels4_win - s% pg% do_Profile_Panels4_file = do_Profile_Panels4_file - s% pg% id_Profile_Panels4_win = id_Profile_Panels4_win - s% pg% id_Profile_Panels4_file = id_Profile_Panels4_file - s% pg% Profile_Panels4_file_interval = Profile_Panels4_file_interval - s% pg% Profile_Panels4_file_dir = Profile_Panels4_file_dir - s% pg% Profile_Panels4_file_prefix = Profile_Panels4_file_prefix - s% pg% Profile_Panels4_xaxis_reversed = Profile_Panels4_xaxis_reversed - s% pg% Profile_Panels4_xaxis_name = Profile_Panels4_xaxis_name - s% pg% Profile_Panels4_title = Profile_Panels4_title - s% pg% Profile_Panels4_xmin = Profile_Panels4_xmin - s% pg% Profile_Panels4_xmax = Profile_Panels4_xmax - s% pg% Profile_Panels4_xmargin = Profile_Panels4_xmargin - s% pg% Profile_Panels4_show_mix_regions_on_xaxis = Profile_Panels4_show_mix_regions_on_xaxis - s% pg% Profile_Panels4_win_width = Profile_Panels4_win_width - s% pg% Profile_Panels4_win_aspect_ratio = Profile_Panels4_win_aspect_ratio - s% pg% Profile_Panels4_xleft = Profile_Panels4_xleft - s% pg% Profile_Panels4_xright = Profile_Panels4_xright - s% pg% Profile_Panels4_ybot = Profile_Panels4_ybot - s% pg% Profile_Panels4_ytop = Profile_Panels4_ytop - s% pg% Profile_Panels4_txt_scale = Profile_Panels4_txt_scale - s% pg% prev_Profile_Panels4_win_width = prev_Profile_Panels4_win_width - s% pg% prev_Profile_Panels4_win_ratio = prev_Profile_Panels4_win_ratio - s% pg% Profile_Panels4_file_width = Profile_Panels4_file_width - s% pg% Profile_Panels4_file_aspect_ratio = Profile_Panels4_file_aspect_ratio - s% pg% prev_Profile_Panels4_file_width = prev_Profile_Panels4_file_width - s% pg% prev_Profile_Panels4_file_ratio = prev_Profile_Panels4_file_ratio - s% pg% Profile_Panels4_num_panels = Profile_Panels4_num_panels - s% pg% Profile_Panels4_yaxis_name = Profile_Panels4_yaxis_name - s% pg% Profile_Panels4_other_yaxis_name = Profile_Panels4_other_yaxis_name - s% pg% Profile_Panels4_yaxis_reversed = Profile_Panels4_yaxis_reversed - s% pg% Profile_Panels4_other_yaxis_reversed = Profile_Panels4_other_yaxis_reversed - s% pg% Profile_Panels4_yaxis_log = Profile_Panels4_yaxis_log - s% pg% Profile_Panels4_other_yaxis_log = Profile_Panels4_other_yaxis_log - s% pg% Profile_Panels4_same_yaxis_range = Profile_Panels4_same_yaxis_range - s% pg% Profile_Panels4_ymin = Profile_Panels4_ymin - s% pg% Profile_Panels4_other_ymin = Profile_Panels4_other_ymin - s% pg% Profile_Panels4_ymax = Profile_Panels4_ymax - s% pg% Profile_Panels4_other_ymax = Profile_Panels4_other_ymax - s% pg% Profile_Panels4_ycenter = Profile_Panels4_ycenter - s% pg% Profile_Panels4_other_ycenter = Profile_Panels4_other_ycenter - s% pg% Profile_Panels4_ymargin = Profile_Panels4_ymargin - s% pg% Profile_Panels4_other_ymargin = Profile_Panels4_other_ymargin - s% pg% Profile_Panels4_dymin = Profile_Panels4_dymin - s% pg% Profile_Panels4_other_dymin = Profile_Panels4_other_dymin - s% pg% Profile_Panels4_show_grid = Profile_Panels4_show_grid - s% pg% Profile_Panels4_use_decorator = Profile_Panels4_use_decorator - - s% pg% Profile_Panels5_win_flag = Profile_Panels5_win_flag - s% pg% Profile_Panels5_file_flag = Profile_Panels5_file_flag - s% pg% do_Profile_Panels5_win = do_Profile_Panels5_win - s% pg% do_Profile_Panels5_file = do_Profile_Panels5_file - s% pg% id_Profile_Panels5_win = id_Profile_Panels5_win - s% pg% id_Profile_Panels5_file = id_Profile_Panels5_file - s% pg% Profile_Panels5_file_interval = Profile_Panels5_file_interval - s% pg% Profile_Panels5_file_dir = Profile_Panels5_file_dir - s% pg% Profile_Panels5_file_prefix = Profile_Panels5_file_prefix - s% pg% Profile_Panels5_xaxis_reversed = Profile_Panels5_xaxis_reversed - s% pg% Profile_Panels5_xaxis_name = Profile_Panels5_xaxis_name - s% pg% Profile_Panels5_title = Profile_Panels5_title - s% pg% Profile_Panels5_xmin = Profile_Panels5_xmin - s% pg% Profile_Panels5_xmax = Profile_Panels5_xmax - s% pg% Profile_Panels5_xmargin = Profile_Panels5_xmargin - s% pg% Profile_Panels5_show_mix_regions_on_xaxis = Profile_Panels5_show_mix_regions_on_xaxis - s% pg% Profile_Panels5_win_width = Profile_Panels5_win_width - s% pg% Profile_Panels5_win_aspect_ratio = Profile_Panels5_win_aspect_ratio - s% pg% Profile_Panels5_xleft = Profile_Panels5_xleft - s% pg% Profile_Panels5_xright = Profile_Panels5_xright - s% pg% Profile_Panels5_ybot = Profile_Panels5_ybot - s% pg% Profile_Panels5_ytop = Profile_Panels5_ytop - s% pg% Profile_Panels5_txt_scale = Profile_Panels5_txt_scale - s% pg% prev_Profile_Panels5_win_width = prev_Profile_Panels5_win_width - s% pg% prev_Profile_Panels5_win_ratio = prev_Profile_Panels5_win_ratio - s% pg% Profile_Panels5_file_width = Profile_Panels5_file_width - s% pg% Profile_Panels5_file_aspect_ratio = Profile_Panels5_file_aspect_ratio - s% pg% prev_Profile_Panels5_file_width = prev_Profile_Panels5_file_width - s% pg% prev_Profile_Panels5_file_ratio = prev_Profile_Panels5_file_ratio - s% pg% Profile_Panels5_num_panels = Profile_Panels5_num_panels - s% pg% Profile_Panels5_yaxis_name = Profile_Panels5_yaxis_name - s% pg% Profile_Panels5_other_yaxis_name = Profile_Panels5_other_yaxis_name - s% pg% Profile_Panels5_yaxis_reversed = Profile_Panels5_yaxis_reversed - s% pg% Profile_Panels5_other_yaxis_reversed = Profile_Panels5_other_yaxis_reversed - s% pg% Profile_Panels5_yaxis_log = Profile_Panels5_yaxis_log - s% pg% Profile_Panels5_other_yaxis_log = Profile_Panels5_other_yaxis_log - s% pg% Profile_Panels5_same_yaxis_range = Profile_Panels5_same_yaxis_range - s% pg% Profile_Panels5_ymin = Profile_Panels5_ymin - s% pg% Profile_Panels5_other_ymin = Profile_Panels5_other_ymin - s% pg% Profile_Panels5_ymax = Profile_Panels5_ymax - s% pg% Profile_Panels5_other_ymax = Profile_Panels5_other_ymax - s% pg% Profile_Panels5_ycenter = Profile_Panels5_ycenter - s% pg% Profile_Panels5_other_ycenter = Profile_Panels5_other_ycenter - s% pg% Profile_Panels5_ymargin = Profile_Panels5_ymargin - s% pg% Profile_Panels5_other_ymargin = Profile_Panels5_other_ymargin - s% pg% Profile_Panels5_dymin = Profile_Panels5_dymin - s% pg% Profile_Panels5_other_dymin = Profile_Panels5_other_dymin - s% pg% Profile_Panels5_show_grid = Profile_Panels5_show_grid - s% pg% Profile_Panels5_use_decorator = Profile_Panels5_use_decorator - - s% pg% Profile_Panels6_win_flag = Profile_Panels6_win_flag - s% pg% Profile_Panels6_file_flag = Profile_Panels6_file_flag - s% pg% do_Profile_Panels6_win = do_Profile_Panels6_win - s% pg% do_Profile_Panels6_file = do_Profile_Panels6_file - s% pg% id_Profile_Panels6_win = id_Profile_Panels6_win - s% pg% id_Profile_Panels6_file = id_Profile_Panels6_file - s% pg% Profile_Panels6_file_interval = Profile_Panels6_file_interval - s% pg% Profile_Panels6_file_dir = Profile_Panels6_file_dir - s% pg% Profile_Panels6_file_prefix = Profile_Panels6_file_prefix - s% pg% Profile_Panels6_xaxis_reversed = Profile_Panels6_xaxis_reversed - s% pg% Profile_Panels6_xaxis_name = Profile_Panels6_xaxis_name - s% pg% Profile_Panels6_title = Profile_Panels6_title - s% pg% Profile_Panels6_xmin = Profile_Panels6_xmin - s% pg% Profile_Panels6_xmax = Profile_Panels6_xmax - s% pg% Profile_Panels6_xmargin = Profile_Panels6_xmargin - s% pg% Profile_Panels6_show_mix_regions_on_xaxis = Profile_Panels6_show_mix_regions_on_xaxis - s% pg% Profile_Panels6_win_width = Profile_Panels6_win_width - s% pg% Profile_Panels6_win_aspect_ratio = Profile_Panels6_win_aspect_ratio - s% pg% Profile_Panels6_xleft = Profile_Panels6_xleft - s% pg% Profile_Panels6_xright = Profile_Panels6_xright - s% pg% Profile_Panels6_ybot = Profile_Panels6_ybot - s% pg% Profile_Panels6_ytop = Profile_Panels6_ytop - s% pg% Profile_Panels6_txt_scale = Profile_Panels6_txt_scale - s% pg% prev_Profile_Panels6_win_width = prev_Profile_Panels6_win_width - s% pg% prev_Profile_Panels6_win_ratio = prev_Profile_Panels6_win_ratio - s% pg% Profile_Panels6_file_width = Profile_Panels6_file_width - s% pg% Profile_Panels6_file_aspect_ratio = Profile_Panels6_file_aspect_ratio - s% pg% prev_Profile_Panels6_file_width = prev_Profile_Panels6_file_width - s% pg% prev_Profile_Panels6_file_ratio = prev_Profile_Panels6_file_ratio - s% pg% Profile_Panels6_num_panels = Profile_Panels6_num_panels - s% pg% Profile_Panels6_yaxis_name = Profile_Panels6_yaxis_name - s% pg% Profile_Panels6_other_yaxis_name = Profile_Panels6_other_yaxis_name - s% pg% Profile_Panels6_yaxis_reversed = Profile_Panels6_yaxis_reversed - s% pg% Profile_Panels6_other_yaxis_reversed = Profile_Panels6_other_yaxis_reversed - s% pg% Profile_Panels6_yaxis_log = Profile_Panels6_yaxis_log - s% pg% Profile_Panels6_other_yaxis_log = Profile_Panels6_other_yaxis_log - s% pg% Profile_Panels6_same_yaxis_range = Profile_Panels6_same_yaxis_range - s% pg% Profile_Panels6_ymin = Profile_Panels6_ymin - s% pg% Profile_Panels6_other_ymin = Profile_Panels6_other_ymin - s% pg% Profile_Panels6_ymax = Profile_Panels6_ymax - s% pg% Profile_Panels6_other_ymax = Profile_Panels6_other_ymax - s% pg% Profile_Panels6_ycenter = Profile_Panels6_ycenter - s% pg% Profile_Panels6_other_ycenter = Profile_Panels6_other_ycenter - s% pg% Profile_Panels6_ymargin = Profile_Panels6_ymargin - s% pg% Profile_Panels6_other_ymargin = Profile_Panels6_other_ymargin - s% pg% Profile_Panels6_dymin = Profile_Panels6_dymin - s% pg% Profile_Panels6_other_dymin = Profile_Panels6_other_dymin - s% pg% Profile_Panels6_show_grid = Profile_Panels6_show_grid - s% pg% Profile_Panels6_use_decorator = Profile_Panels6_use_decorator - - s% pg% Profile_Panels7_win_flag = Profile_Panels7_win_flag - s% pg% Profile_Panels7_file_flag = Profile_Panels7_file_flag - s% pg% do_Profile_Panels7_win = do_Profile_Panels7_win - s% pg% do_Profile_Panels7_file = do_Profile_Panels7_file - s% pg% id_Profile_Panels7_win = id_Profile_Panels7_win - s% pg% id_Profile_Panels7_file = id_Profile_Panels7_file - s% pg% Profile_Panels7_file_interval = Profile_Panels7_file_interval - s% pg% Profile_Panels7_file_dir = Profile_Panels7_file_dir - s% pg% Profile_Panels7_file_prefix = Profile_Panels7_file_prefix - s% pg% Profile_Panels7_xaxis_reversed = Profile_Panels7_xaxis_reversed - s% pg% Profile_Panels7_xaxis_name = Profile_Panels7_xaxis_name - s% pg% Profile_Panels7_title = Profile_Panels7_title - s% pg% Profile_Panels7_xmin = Profile_Panels7_xmin - s% pg% Profile_Panels7_xmax = Profile_Panels7_xmax - s% pg% Profile_Panels7_xmargin = Profile_Panels7_xmargin - s% pg% Profile_Panels7_show_mix_regions_on_xaxis = Profile_Panels7_show_mix_regions_on_xaxis - s% pg% Profile_Panels7_win_width = Profile_Panels7_win_width - s% pg% Profile_Panels7_win_aspect_ratio = Profile_Panels7_win_aspect_ratio - s% pg% Profile_Panels7_xleft = Profile_Panels7_xleft - s% pg% Profile_Panels7_xright = Profile_Panels7_xright - s% pg% Profile_Panels7_ybot = Profile_Panels7_ybot - s% pg% Profile_Panels7_ytop = Profile_Panels7_ytop - s% pg% Profile_Panels7_txt_scale = Profile_Panels7_txt_scale - s% pg% prev_Profile_Panels7_win_width = prev_Profile_Panels7_win_width - s% pg% prev_Profile_Panels7_win_ratio = prev_Profile_Panels7_win_ratio - s% pg% Profile_Panels7_file_width = Profile_Panels7_file_width - s% pg% Profile_Panels7_file_aspect_ratio = Profile_Panels7_file_aspect_ratio - s% pg% prev_Profile_Panels7_file_width = prev_Profile_Panels7_file_width - s% pg% prev_Profile_Panels7_file_ratio = prev_Profile_Panels7_file_ratio - s% pg% Profile_Panels7_num_panels = Profile_Panels7_num_panels - s% pg% Profile_Panels7_yaxis_name = Profile_Panels7_yaxis_name - s% pg% Profile_Panels7_other_yaxis_name = Profile_Panels7_other_yaxis_name - s% pg% Profile_Panels7_yaxis_reversed = Profile_Panels7_yaxis_reversed - s% pg% Profile_Panels7_other_yaxis_reversed = Profile_Panels7_other_yaxis_reversed - s% pg% Profile_Panels7_yaxis_log = Profile_Panels7_yaxis_log - s% pg% Profile_Panels7_other_yaxis_log = Profile_Panels7_other_yaxis_log - s% pg% Profile_Panels7_same_yaxis_range = Profile_Panels7_same_yaxis_range - s% pg% Profile_Panels7_ymin = Profile_Panels7_ymin - s% pg% Profile_Panels7_other_ymin = Profile_Panels7_other_ymin - s% pg% Profile_Panels7_ymax = Profile_Panels7_ymax - s% pg% Profile_Panels7_other_ymax = Profile_Panels7_other_ymax - s% pg% Profile_Panels7_ycenter = Profile_Panels7_ycenter - s% pg% Profile_Panels7_other_ycenter = Profile_Panels7_other_ycenter - s% pg% Profile_Panels7_ymargin = Profile_Panels7_ymargin - s% pg% Profile_Panels7_other_ymargin = Profile_Panels7_other_ymargin - s% pg% Profile_Panels7_dymin = Profile_Panels7_dymin - s% pg% Profile_Panels7_other_dymin = Profile_Panels7_other_dymin - s% pg% Profile_Panels7_show_grid = Profile_Panels7_show_grid - s% pg% Profile_Panels7_use_decorator = Profile_Panels7_use_decorator - - s% pg% Profile_Panels8_win_flag = Profile_Panels8_win_flag - s% pg% Profile_Panels8_file_flag = Profile_Panels8_file_flag - s% pg% do_Profile_Panels8_win = do_Profile_Panels8_win - s% pg% do_Profile_Panels8_file = do_Profile_Panels8_file - s% pg% id_Profile_Panels8_win = id_Profile_Panels8_win - s% pg% id_Profile_Panels8_file = id_Profile_Panels8_file - s% pg% Profile_Panels8_file_interval = Profile_Panels8_file_interval - s% pg% Profile_Panels8_file_dir = Profile_Panels8_file_dir - s% pg% Profile_Panels8_file_prefix = Profile_Panels8_file_prefix - s% pg% Profile_Panels8_xaxis_reversed = Profile_Panels8_xaxis_reversed - s% pg% Profile_Panels8_xaxis_name = Profile_Panels8_xaxis_name - s% pg% Profile_Panels8_title = Profile_Panels8_title - s% pg% Profile_Panels8_xmin = Profile_Panels8_xmin - s% pg% Profile_Panels8_xmax = Profile_Panels8_xmax - s% pg% Profile_Panels8_xmargin = Profile_Panels8_xmargin - s% pg% Profile_Panels8_show_mix_regions_on_xaxis = Profile_Panels8_show_mix_regions_on_xaxis - s% pg% Profile_Panels8_win_width = Profile_Panels8_win_width - s% pg% Profile_Panels8_win_aspect_ratio = Profile_Panels8_win_aspect_ratio - s% pg% Profile_Panels8_xleft = Profile_Panels8_xleft - s% pg% Profile_Panels8_xright = Profile_Panels8_xright - s% pg% Profile_Panels8_ybot = Profile_Panels8_ybot - s% pg% Profile_Panels8_ytop = Profile_Panels8_ytop - s% pg% Profile_Panels8_txt_scale = Profile_Panels8_txt_scale - s% pg% prev_Profile_Panels8_win_width = prev_Profile_Panels8_win_width - s% pg% prev_Profile_Panels8_win_ratio = prev_Profile_Panels8_win_ratio - s% pg% Profile_Panels8_file_width = Profile_Panels8_file_width - s% pg% Profile_Panels8_file_aspect_ratio = Profile_Panels8_file_aspect_ratio - s% pg% prev_Profile_Panels8_file_width = prev_Profile_Panels8_file_width - s% pg% prev_Profile_Panels8_file_ratio = prev_Profile_Panels8_file_ratio - s% pg% Profile_Panels8_num_panels = Profile_Panels8_num_panels - s% pg% Profile_Panels8_yaxis_name = Profile_Panels8_yaxis_name - s% pg% Profile_Panels8_other_yaxis_name = Profile_Panels8_other_yaxis_name - s% pg% Profile_Panels8_yaxis_reversed = Profile_Panels8_yaxis_reversed - s% pg% Profile_Panels8_other_yaxis_reversed = Profile_Panels8_other_yaxis_reversed - s% pg% Profile_Panels8_yaxis_log = Profile_Panels8_yaxis_log - s% pg% Profile_Panels8_other_yaxis_log = Profile_Panels8_other_yaxis_log - s% pg% Profile_Panels8_same_yaxis_range = Profile_Panels8_same_yaxis_range - s% pg% Profile_Panels8_ymin = Profile_Panels8_ymin - s% pg% Profile_Panels8_other_ymin = Profile_Panels8_other_ymin - s% pg% Profile_Panels8_ymax = Profile_Panels8_ymax - s% pg% Profile_Panels8_other_ymax = Profile_Panels8_other_ymax - s% pg% Profile_Panels8_ycenter = Profile_Panels8_ycenter - s% pg% Profile_Panels8_other_ycenter = Profile_Panels8_other_ycenter - s% pg% Profile_Panels8_ymargin = Profile_Panels8_ymargin - s% pg% Profile_Panels8_other_ymargin = Profile_Panels8_other_ymargin - s% pg% Profile_Panels8_dymin = Profile_Panels8_dymin - s% pg% Profile_Panels8_other_dymin = Profile_Panels8_other_dymin - s% pg% Profile_Panels8_show_grid = Profile_Panels8_show_grid - s% pg% Profile_Panels8_use_decorator = Profile_Panels8_use_decorator - - - s% pg% Profile_Panels9_win_flag = Profile_Panels9_win_flag - s% pg% Profile_Panels9_file_flag = Profile_Panels9_file_flag - s% pg% do_Profile_Panels9_win = do_Profile_Panels9_win - s% pg% do_Profile_Panels9_file = do_Profile_Panels9_file - s% pg% id_Profile_Panels9_win = id_Profile_Panels9_win - s% pg% id_Profile_Panels9_file = id_Profile_Panels9_file - s% pg% Profile_Panels9_file_interval = Profile_Panels9_file_interval - s% pg% Profile_Panels9_file_dir = Profile_Panels9_file_dir - s% pg% Profile_Panels9_file_prefix = Profile_Panels9_file_prefix - s% pg% Profile_Panels9_xaxis_reversed = Profile_Panels9_xaxis_reversed - s% pg% Profile_Panels9_xaxis_name = Profile_Panels9_xaxis_name - s% pg% Profile_Panels9_title = Profile_Panels9_title - s% pg% Profile_Panels9_xmin = Profile_Panels9_xmin - s% pg% Profile_Panels9_xmax = Profile_Panels9_xmax - s% pg% Profile_Panels9_xmargin = Profile_Panels9_xmargin - s% pg% Profile_Panels9_show_mix_regions_on_xaxis = Profile_Panels9_show_mix_regions_on_xaxis - s% pg% Profile_Panels9_win_width = Profile_Panels9_win_width - s% pg% Profile_Panels9_win_aspect_ratio = Profile_Panels9_win_aspect_ratio - s% pg% Profile_Panels9_xleft = Profile_Panels9_xleft - s% pg% Profile_Panels9_xright = Profile_Panels9_xright - s% pg% Profile_Panels9_ybot = Profile_Panels9_ybot - s% pg% Profile_Panels9_ytop = Profile_Panels9_ytop - s% pg% Profile_Panels9_txt_scale = Profile_Panels9_txt_scale - s% pg% prev_Profile_Panels9_win_width = prev_Profile_Panels9_win_width - s% pg% prev_Profile_Panels9_win_ratio = prev_Profile_Panels9_win_ratio - s% pg% Profile_Panels9_file_width = Profile_Panels9_file_width - s% pg% Profile_Panels9_file_aspect_ratio = Profile_Panels9_file_aspect_ratio - s% pg% prev_Profile_Panels9_file_width = prev_Profile_Panels9_file_width - s% pg% prev_Profile_Panels9_file_ratio = prev_Profile_Panels9_file_ratio - s% pg% Profile_Panels9_num_panels = Profile_Panels9_num_panels - s% pg% Profile_Panels9_yaxis_name = Profile_Panels9_yaxis_name - s% pg% Profile_Panels9_other_yaxis_name = Profile_Panels9_other_yaxis_name - s% pg% Profile_Panels9_yaxis_reversed = Profile_Panels9_yaxis_reversed - s% pg% Profile_Panels9_other_yaxis_reversed = Profile_Panels9_other_yaxis_reversed - s% pg% Profile_Panels9_yaxis_log = Profile_Panels9_yaxis_log - s% pg% Profile_Panels9_other_yaxis_log = Profile_Panels9_other_yaxis_log - s% pg% Profile_Panels9_same_yaxis_range = Profile_Panels9_same_yaxis_range - s% pg% Profile_Panels9_ymin = Profile_Panels9_ymin - s% pg% Profile_Panels9_other_ymin = Profile_Panels9_other_ymin - s% pg% Profile_Panels9_ymax = Profile_Panels9_ymax - s% pg% Profile_Panels9_other_ymax = Profile_Panels9_other_ymax - s% pg% Profile_Panels9_ycenter = Profile_Panels9_ycenter - s% pg% Profile_Panels9_other_ycenter = Profile_Panels9_other_ycenter - s% pg% Profile_Panels9_ymargin = Profile_Panels9_ymargin - s% pg% Profile_Panels9_other_ymargin = Profile_Panels9_other_ymargin - s% pg% Profile_Panels9_dymin = Profile_Panels9_dymin - s% pg% Profile_Panels9_other_dymin = Profile_Panels9_other_dymin - s% pg% Profile_Panels9_show_grid = Profile_Panels9_show_grid - s% pg% Profile_Panels9_use_decorator = Profile_Panels9_use_decorator - - s% pg% Text_Summary1_win_flag = Text_Summary1_win_flag - s% pg% Text_Summary1_file_flag = Text_Summary1_file_flag - s% pg% Text_Summary1_file_interval = Text_Summary1_file_interval - s% pg% Text_Summary1_file_dir = Text_Summary1_file_dir - s% pg% Text_Summary1_file_prefix = Text_Summary1_file_prefix - s% pg% Text_Summary1_num_cols = Text_Summary1_num_cols - s% pg% Text_Summary1_num_rows = Text_Summary1_num_rows - s% pg% Text_Summary1_name = Text_Summary1_name - s% pg% Text_Summary1_win_width = Text_Summary1_win_width - s% pg% Text_Summary1_win_aspect_ratio = Text_Summary1_win_aspect_ratio - s% pg% Text_Summary1_file_width = Text_Summary1_file_width - s% pg% Text_Summary1_file_aspect_ratio = Text_Summary1_file_aspect_ratio - s% pg% Text_Summary1_title = Text_Summary1_title - s% pg% Text_Summary1_xleft = Text_Summary1_xleft - s% pg% Text_Summary1_xright = Text_Summary1_xright - s% pg% Text_Summary1_ybot = Text_Summary1_ybot - s% pg% Text_Summary1_ytop = Text_Summary1_ytop - s% pg% Text_Summary1_txt_scale = Text_Summary1_txt_scale - s% pg% Text_Summary1_dxval = Text_Summary1_dxval - - s% pg% Text_Summary2_win_flag = Text_Summary2_win_flag - s% pg% Text_Summary2_file_flag = Text_Summary2_file_flag - s% pg% Text_Summary2_file_interval = Text_Summary2_file_interval - s% pg% Text_Summary2_file_dir = Text_Summary2_file_dir - s% pg% Text_Summary2_file_prefix = Text_Summary2_file_prefix - s% pg% Text_Summary2_num_cols = Text_Summary2_num_cols - s% pg% Text_Summary2_num_rows = Text_Summary2_num_rows - s% pg% Text_Summary2_name = Text_Summary2_name - s% pg% Text_Summary2_win_width = Text_Summary2_win_width - s% pg% Text_Summary2_win_aspect_ratio = Text_Summary2_win_aspect_ratio - s% pg% Text_Summary2_file_width = Text_Summary2_file_width - s% pg% Text_Summary2_file_aspect_ratio = Text_Summary2_file_aspect_ratio - s% pg% Text_Summary2_title = Text_Summary2_title - s% pg% Text_Summary2_xleft = Text_Summary2_xleft - s% pg% Text_Summary2_xright = Text_Summary2_xright - s% pg% Text_Summary2_ybot = Text_Summary2_ybot - s% pg% Text_Summary2_ytop = Text_Summary2_ytop - s% pg% Text_Summary2_txt_scale = Text_Summary2_txt_scale - s% pg% Text_Summary2_dxval = Text_Summary2_dxval - - s% pg% Text_Summary3_win_flag = Text_Summary3_win_flag - s% pg% Text_Summary3_file_flag = Text_Summary3_file_flag - s% pg% Text_Summary3_file_interval = Text_Summary3_file_interval - s% pg% Text_Summary3_file_dir = Text_Summary3_file_dir - s% pg% Text_Summary3_file_prefix = Text_Summary3_file_prefix - s% pg% Text_Summary3_num_cols = Text_Summary3_num_cols - s% pg% Text_Summary3_num_rows = Text_Summary3_num_rows - s% pg% Text_Summary3_name = Text_Summary3_name - s% pg% Text_Summary3_win_width = Text_Summary3_win_width - s% pg% Text_Summary3_win_aspect_ratio = Text_Summary3_win_aspect_ratio - s% pg% Text_Summary3_file_width = Text_Summary3_file_width - s% pg% Text_Summary3_file_aspect_ratio = Text_Summary3_file_aspect_ratio - s% pg% Text_Summary3_title = Text_Summary3_title - s% pg% Text_Summary3_xleft = Text_Summary3_xleft - s% pg% Text_Summary3_xright = Text_Summary3_xright - s% pg% Text_Summary3_ybot = Text_Summary3_ybot - s% pg% Text_Summary3_ytop = Text_Summary3_ytop - s% pg% Text_Summary3_txt_scale = Text_Summary3_txt_scale - s% pg% Text_Summary3_dxval = Text_Summary3_dxval - - s% pg% Text_Summary4_win_flag = Text_Summary4_win_flag - s% pg% Text_Summary4_file_flag = Text_Summary4_file_flag - s% pg% Text_Summary4_file_interval = Text_Summary4_file_interval - s% pg% Text_Summary4_file_dir = Text_Summary4_file_dir - s% pg% Text_Summary4_file_prefix = Text_Summary4_file_prefix - s% pg% Text_Summary4_num_cols = Text_Summary4_num_cols - s% pg% Text_Summary4_num_rows = Text_Summary4_num_rows - s% pg% Text_Summary4_name = Text_Summary4_name - s% pg% Text_Summary4_win_width = Text_Summary4_win_width - s% pg% Text_Summary4_win_aspect_ratio = Text_Summary4_win_aspect_ratio - s% pg% Text_Summary4_file_width = Text_Summary4_file_width - s% pg% Text_Summary4_file_aspect_ratio = Text_Summary4_file_aspect_ratio - s% pg% Text_Summary4_title = Text_Summary4_title - s% pg% Text_Summary4_xleft = Text_Summary4_xleft - s% pg% Text_Summary4_xright = Text_Summary4_xright - s% pg% Text_Summary4_ybot = Text_Summary4_ybot - s% pg% Text_Summary4_ytop = Text_Summary4_ytop - s% pg% Text_Summary4_txt_scale = Text_Summary4_txt_scale - s% pg% Text_Summary4_dxval = Text_Summary4_dxval - - s% pg% Text_Summary5_win_flag = Text_Summary5_win_flag - s% pg% Text_Summary5_file_flag = Text_Summary5_file_flag - s% pg% Text_Summary5_file_interval = Text_Summary5_file_interval - s% pg% Text_Summary5_file_dir = Text_Summary5_file_dir - s% pg% Text_Summary5_file_prefix = Text_Summary5_file_prefix - s% pg% Text_Summary5_num_cols = Text_Summary5_num_cols - s% pg% Text_Summary5_num_rows = Text_Summary5_num_rows - s% pg% Text_Summary5_name = Text_Summary5_name - s% pg% Text_Summary5_win_width = Text_Summary5_win_width - s% pg% Text_Summary5_win_aspect_ratio = Text_Summary5_win_aspect_ratio - s% pg% Text_Summary5_file_width = Text_Summary5_file_width - s% pg% Text_Summary5_file_aspect_ratio = Text_Summary5_file_aspect_ratio - s% pg% Text_Summary5_title = Text_Summary5_title - s% pg% Text_Summary5_xleft = Text_Summary5_xleft - s% pg% Text_Summary5_xright = Text_Summary5_xright - s% pg% Text_Summary5_ybot = Text_Summary5_ybot - s% pg% Text_Summary5_ytop = Text_Summary5_ytop - s% pg% Text_Summary5_txt_scale = Text_Summary5_txt_scale - s% pg% Text_Summary5_dxval = Text_Summary5_dxval - - s% pg% Text_Summary6_win_flag = Text_Summary6_win_flag - s% pg% Text_Summary6_file_flag = Text_Summary6_file_flag - s% pg% Text_Summary6_file_interval = Text_Summary6_file_interval - s% pg% Text_Summary6_file_dir = Text_Summary6_file_dir - s% pg% Text_Summary6_file_prefix = Text_Summary6_file_prefix - s% pg% Text_Summary6_num_cols = Text_Summary6_num_cols - s% pg% Text_Summary6_num_rows = Text_Summary6_num_rows - s% pg% Text_Summary6_name = Text_Summary6_name - s% pg% Text_Summary6_win_width = Text_Summary6_win_width - s% pg% Text_Summary6_win_aspect_ratio = Text_Summary6_win_aspect_ratio - s% pg% Text_Summary6_file_width = Text_Summary6_file_width - s% pg% Text_Summary6_file_aspect_ratio = Text_Summary6_file_aspect_ratio - s% pg% Text_Summary6_title = Text_Summary6_title - s% pg% Text_Summary6_xleft = Text_Summary6_xleft - s% pg% Text_Summary6_xright = Text_Summary6_xright - s% pg% Text_Summary6_ybot = Text_Summary6_ybot - s% pg% Text_Summary6_ytop = Text_Summary6_ytop - s% pg% Text_Summary6_txt_scale = Text_Summary6_txt_scale - s% pg% Text_Summary6_dxval = Text_Summary6_dxval - - s% pg% Text_Summary7_win_flag = Text_Summary7_win_flag - s% pg% Text_Summary7_file_flag = Text_Summary7_file_flag - s% pg% Text_Summary7_file_interval = Text_Summary7_file_interval - s% pg% Text_Summary7_file_dir = Text_Summary7_file_dir - s% pg% Text_Summary7_file_prefix = Text_Summary7_file_prefix - s% pg% Text_Summary7_num_cols = Text_Summary7_num_cols - s% pg% Text_Summary7_num_rows = Text_Summary7_num_rows - s% pg% Text_Summary7_name = Text_Summary7_name - s% pg% Text_Summary7_win_width = Text_Summary7_win_width - s% pg% Text_Summary7_win_aspect_ratio = Text_Summary7_win_aspect_ratio - s% pg% Text_Summary7_file_width = Text_Summary7_file_width - s% pg% Text_Summary7_file_aspect_ratio = Text_Summary7_file_aspect_ratio - s% pg% Text_Summary7_title = Text_Summary7_title - s% pg% Text_Summary7_xleft = Text_Summary7_xleft - s% pg% Text_Summary7_xright = Text_Summary7_xright - s% pg% Text_Summary7_ybot = Text_Summary7_ybot - s% pg% Text_Summary7_ytop = Text_Summary7_ytop - s% pg% Text_Summary7_txt_scale = Text_Summary7_txt_scale - s% pg% Text_Summary7_dxval = Text_Summary7_dxval - - s% pg% Text_Summary8_win_flag = Text_Summary8_win_flag - s% pg% Text_Summary8_file_flag = Text_Summary8_file_flag - s% pg% Text_Summary8_file_interval = Text_Summary8_file_interval - s% pg% Text_Summary8_file_dir = Text_Summary8_file_dir - s% pg% Text_Summary8_file_prefix = Text_Summary8_file_prefix - s% pg% Text_Summary8_num_cols = Text_Summary8_num_cols - s% pg% Text_Summary8_num_rows = Text_Summary8_num_rows - s% pg% Text_Summary8_name = Text_Summary8_name - s% pg% Text_Summary8_win_width = Text_Summary8_win_width - s% pg% Text_Summary8_win_aspect_ratio = Text_Summary8_win_aspect_ratio - s% pg% Text_Summary8_file_width = Text_Summary8_file_width - s% pg% Text_Summary8_file_aspect_ratio = Text_Summary8_file_aspect_ratio - s% pg% Text_Summary8_title = Text_Summary8_title - s% pg% Text_Summary8_xleft = Text_Summary8_xleft - s% pg% Text_Summary8_xright = Text_Summary8_xright - s% pg% Text_Summary8_ybot = Text_Summary8_ybot - s% pg% Text_Summary8_ytop = Text_Summary8_ytop - s% pg% Text_Summary8_txt_scale = Text_Summary8_txt_scale - s% pg% Text_Summary8_dxval = Text_Summary8_dxval - - s% pg% Text_Summary9_win_flag = Text_Summary9_win_flag - s% pg% Text_Summary9_file_flag = Text_Summary9_file_flag - s% pg% Text_Summary9_file_interval = Text_Summary9_file_interval - s% pg% Text_Summary9_file_dir = Text_Summary9_file_dir - s% pg% Text_Summary9_file_prefix = Text_Summary9_file_prefix - s% pg% Text_Summary9_num_cols = Text_Summary9_num_cols - s% pg% Text_Summary9_num_rows = Text_Summary9_num_rows - s% pg% Text_Summary9_name = Text_Summary9_name - s% pg% Text_Summary9_win_width = Text_Summary9_win_width - s% pg% Text_Summary9_win_aspect_ratio = Text_Summary9_win_aspect_ratio - s% pg% Text_Summary9_file_width = Text_Summary9_file_width - s% pg% Text_Summary9_file_aspect_ratio = Text_Summary9_file_aspect_ratio - s% pg% Text_Summary9_title = Text_Summary9_title - s% pg% Text_Summary9_xleft = Text_Summary9_xleft - s% pg% Text_Summary9_xright = Text_Summary9_xright - s% pg% Text_Summary9_ybot = Text_Summary9_ybot - s% pg% Text_Summary9_ytop = Text_Summary9_ytop - s% pg% Text_Summary9_txt_scale = Text_Summary9_txt_scale - s% pg% Text_Summary9_dxval = Text_Summary9_dxval + s% pg% Profile_Panels_win_flag = Profile_Panels_win_flag + s% pg% Profile_Panels_file_flag = Profile_Panels_file_flag + s% pg% Profile_Panels_file_interval = Profile_Panels_file_interval + s% pg% Profile_Panels_file_dir = Profile_Panels_file_dir + s% pg% Profile_Panels_file_prefix = Profile_Panels_file_prefix + s% pg% Profile_Panels_xaxis_reversed = Profile_Panels_xaxis_reversed + s% pg% Profile_Panels_xaxis_name = Profile_Panels_xaxis_name + s% pg% Profile_Panels_title = Profile_Panels_title + s% pg% Profile_Panels_xmin = Profile_Panels_xmin + s% pg% Profile_Panels_xmax = Profile_Panels_xmax + s% pg% Profile_Panels_xmargin = Profile_Panels_xmargin + s% pg% Profile_Panels_show_mix_regions_on_xaxis = & + Profile_Panels_show_mix_regions_on_xaxis + s% pg% Profile_Panels_win_width = Profile_Panels_win_width + s% pg% Profile_Panels_win_aspect_ratio = Profile_Panels_win_aspect_ratio + s% pg% Profile_Panels_xleft = Profile_Panels_xleft + s% pg% Profile_Panels_xright = Profile_Panels_xright + s% pg% Profile_Panels_ybot = Profile_Panels_ybot + s% pg% Profile_Panels_ytop = Profile_Panels_ytop + s% pg% Profile_Panels_txt_scale = Profile_Panels_txt_scale + s% pg% prev_Profile_Panels_win_width = prev_Profile_Panels_win_width + s% pg% prev_Profile_Panels_win_ratio = prev_Profile_Panels_win_ratio + s% pg% Profile_Panels_file_width = Profile_Panels_file_width + s% pg% Profile_Panels_file_aspect_ratio = Profile_Panels_file_aspect_ratio + s% pg% prev_Profile_Panels_file_width = prev_Profile_Panels_file_width + s% pg% prev_Profile_Panels_file_ratio = prev_Profile_Panels_file_ratio + s% pg% Profile_Panels_num_panels = Profile_Panels_num_panels + s% pg% Profile_Panels_yaxis_name = Profile_Panels_yaxis_name + s% pg% Profile_Panels_other_yaxis_name = Profile_Panels_other_yaxis_name + s% pg% Profile_Panels_yaxis_reversed = Profile_Panels_yaxis_reversed + s% pg% Profile_Panels_other_yaxis_reversed = Profile_Panels_other_yaxis_reversed + s% pg% Profile_Panels_yaxis_log = Profile_Panels_yaxis_log + s% pg% Profile_Panels_other_yaxis_log = Profile_Panels_other_yaxis_log + s% pg% Profile_Panels_same_yaxis_range = Profile_Panels_same_yaxis_range + s% pg% Profile_Panels_ymin = Profile_Panels_ymin + s% pg% Profile_Panels_other_ymin = Profile_Panels_other_ymin + s% pg% Profile_Panels_ymax = Profile_Panels_ymax + s% pg% Profile_Panels_other_ymax = Profile_Panels_other_ymax + s% pg% Profile_Panels_ycenter = Profile_Panels_ycenter + s% pg% Profile_Panels_other_ycenter = Profile_Panels_other_ycenter + s% pg% Profile_Panels_ymargin = Profile_Panels_ymargin + s% pg% Profile_Panels_other_ymargin = Profile_Panels_other_ymargin + s% pg% Profile_Panels_dymin = Profile_Panels_dymin + s% pg% Profile_Panels_other_dymin = Profile_Panels_other_dymin + s% pg% Profile_Panels_show_grid = Profile_Panels_show_grid + s% pg% Profile_Panels_use_decorator = Profile_Panels_use_decorator + + s% pg% Text_Summary_win_flag = Text_Summary_win_flag + s% pg% Text_Summary_file_flag = Text_Summary_file_flag + s% pg% Text_Summary_file_interval = Text_Summary_file_interval + s% pg% Text_Summary_file_dir = Text_Summary_file_dir + s% pg% Text_Summary_file_prefix = Text_Summary_file_prefix + s% pg% Text_Summary_num_cols = Text_Summary_num_cols + s% pg% Text_Summary_num_rows = Text_Summary_num_rows + s% pg% Text_Summary_name = Text_Summary_name + s% pg% Text_Summary_win_width = Text_Summary_win_width + s% pg% Text_Summary_win_aspect_ratio = Text_Summary_win_aspect_ratio + s% pg% Text_Summary_file_width = Text_Summary_file_width + s% pg% Text_Summary_file_aspect_ratio = Text_Summary_file_aspect_ratio + s% pg% Text_Summary_title = Text_Summary_title + s% pg% Text_Summary_xleft = Text_Summary_xleft + s% pg% Text_Summary_xright = Text_Summary_xright + s% pg% Text_Summary_ybot = Text_Summary_ybot + s% pg% Text_Summary_ytop = Text_Summary_ytop + s% pg% Text_Summary_txt_scale = Text_Summary_txt_scale + s% pg% Text_Summary_dxval = Text_Summary_dxval s% pg% logg_Teff_win_flag = logg_Teff_win_flag s% pg% logg_Teff_file_flag = logg_Teff_file_flag @@ -4451,411 +2103,50 @@ subroutine store_pgstar_controls(s, ierr) s% pg% Production_use_decorator = Production_use_decorator - s% pg% History_Track1_win_flag = History_Track1_win_flag - s% pg% History_Track1_file_flag = History_Track1_file_flag - s% pg% History_Track1_file_interval = History_Track1_file_interval - s% pg% History_Track1_step_min = History_Track1_step_min - s% pg% History_Track1_step_max = History_Track1_step_max - s% pg% show_History_Track1_target_box = show_History_Track1_target_box - s% pg% History_Track1_n_sigma = History_Track1_n_sigma - s% pg% History_Track1_xtarget = History_Track1_xtarget - s% pg% History_Track1_xsigma = History_Track1_xsigma - s% pg% History_Track1_ytarget = History_Track1_ytarget - s% pg% History_Track1_ysigma = History_Track1_ysigma - s% pg% History_Track1_file_dir = History_Track1_file_dir - s% pg% History_Track1_file_prefix = History_Track1_file_prefix - s% pg% show_History_Track1_annotation1 = show_History_Track1_annotation1 - s% pg% show_History_Track1_annotation2 = show_History_Track1_annotation2 - s% pg% show_History_Track1_annotation3 = show_History_Track1_annotation3 - s% pg% History_Track1_fname = History_Track1_fname - s% pg% History_Track1_xname = History_Track1_xname - s% pg% History_Track1_xaxis_label = History_Track1_xaxis_label - s% pg% History_Track1_yname = History_Track1_yname - s% pg% History_Track1_yaxis_label = History_Track1_yaxis_label - s% pg% History_Track1_reverse_xaxis = History_Track1_reverse_xaxis - s% pg% History_Track1_reverse_yaxis = History_Track1_reverse_yaxis - s% pg% History_Track1_log_xaxis = History_Track1_log_xaxis - s% pg% History_Track1_log_yaxis = History_Track1_log_yaxis - s% pg% History_Track1_xmin = History_Track1_xmin - s% pg% History_Track1_xmax = History_Track1_xmax - s% pg% History_Track1_ymin = History_Track1_ymin - s% pg% History_Track1_ymax = History_Track1_ymax - s% pg% History_Track1_xmargin = History_Track1_xmargin - s% pg% History_Track1_ymargin = History_Track1_ymargin - s% pg% History_Track1_dxmin = History_Track1_dxmin - s% pg% History_Track1_dymin = History_Track1_dymin - s% pg% History_Track1_win_width = History_Track1_win_width - s% pg% History_Track1_win_aspect_ratio = History_Track1_win_aspect_ratio - s% pg% History_Track1_file_width = History_Track1_file_width - s% pg% History_Track1_file_aspect_ratio = History_Track1_file_aspect_ratio - s% pg% History_Track1_xleft = History_Track1_xleft - s% pg% History_Track1_xright = History_Track1_xright - s% pg% History_Track1_ybot = History_Track1_ybot - s% pg% History_Track1_ytop = History_Track1_ytop - s% pg% History_Track1_txt_scale = History_Track1_txt_scale - s% pg% History_Track1_title = History_Track1_title - s% pg% History_Track1_use_decorator = History_Track1_use_decorator - - - s% pg% History_Track2_win_flag = History_Track2_win_flag - s% pg% History_Track2_file_flag = History_Track2_file_flag - s% pg% History_Track2_file_interval = History_Track2_file_interval - s% pg% History_Track2_step_min = History_Track2_step_min - s% pg% History_Track2_step_max = History_Track2_step_max - s% pg% show_History_Track2_target_box = show_History_Track2_target_box - s% pg% History_Track2_n_sigma = History_Track2_n_sigma - s% pg% History_Track2_xtarget = History_Track2_xtarget - s% pg% History_Track2_xsigma = History_Track2_xsigma - s% pg% History_Track2_ytarget = History_Track2_ytarget - s% pg% History_Track2_ysigma = History_Track2_ysigma - s% pg% History_Track2_xname = History_Track2_xname - s% pg% History_Track2_xaxis_label = History_Track2_xaxis_label - s% pg% History_Track2_yname = History_Track2_yname - s% pg% History_Track2_yaxis_label = History_Track2_yaxis_label - s% pg% History_Track2_file_dir = History_Track2_file_dir - s% pg% History_Track2_file_prefix = History_Track2_file_prefix - s% pg% show_History_Track2_annotation1 = show_History_Track2_annotation1 - s% pg% show_History_Track2_annotation2 = show_History_Track2_annotation2 - s% pg% show_History_Track2_annotation3 = show_History_Track2_annotation3 - s% pg% History_Track2_fname = History_Track2_fname - s% pg% History_Track2_reverse_xaxis = History_Track2_reverse_xaxis - s% pg% History_Track2_reverse_yaxis = History_Track2_reverse_yaxis - s% pg% History_Track2_log_xaxis = History_Track2_log_xaxis - s% pg% History_Track2_log_yaxis = History_Track2_log_yaxis - s% pg% History_Track2_xmin = History_Track2_xmin - s% pg% History_Track2_xmax = History_Track2_xmax - s% pg% History_Track2_ymin = History_Track2_ymin - s% pg% History_Track2_ymax = History_Track2_ymax - s% pg% History_Track2_xmargin = History_Track2_xmargin - s% pg% History_Track2_ymargin = History_Track2_ymargin - s% pg% History_Track2_dxmin = History_Track2_dxmin - s% pg% History_Track2_dymin = History_Track2_dymin - s% pg% History_Track2_win_width = History_Track2_win_width - s% pg% History_Track2_win_aspect_ratio = History_Track2_win_aspect_ratio - s% pg% History_Track2_file_width = History_Track2_file_width - s% pg% History_Track2_file_aspect_ratio = History_Track2_file_aspect_ratio - s% pg% History_Track2_xleft = History_Track2_xleft - s% pg% History_Track2_xright = History_Track2_xright - s% pg% History_Track2_ybot = History_Track2_ybot - s% pg% History_Track2_ytop = History_Track2_ytop - s% pg% History_Track2_txt_scale = History_Track2_txt_scale - s% pg% History_Track2_title = History_Track2_title - s% pg% History_Track2_use_decorator = History_Track2_use_decorator - - s% pg% History_Track3_win_flag = History_Track3_win_flag - s% pg% History_Track3_file_flag = History_Track3_file_flag - s% pg% History_Track3_file_interval = History_Track3_file_interval - s% pg% History_Track3_step_min = History_Track3_step_min - s% pg% History_Track3_step_max = History_Track3_step_max - s% pg% show_History_Track3_target_box = show_History_Track3_target_box - s% pg% History_Track3_n_sigma = History_Track3_n_sigma - s% pg% History_Track3_xtarget = History_Track3_xtarget - s% pg% History_Track3_xsigma = History_Track3_xsigma - s% pg% History_Track3_ytarget = History_Track3_ytarget - s% pg% History_Track3_ysigma = History_Track3_ysigma - s% pg% History_Track3_xname = History_Track3_xname - s% pg% History_Track3_xaxis_label = History_Track3_xaxis_label - s% pg% History_Track3_yname = History_Track3_yname - s% pg% History_Track3_yaxis_label = History_Track3_yaxis_label - s% pg% History_Track3_file_dir = History_Track3_file_dir - s% pg% History_Track3_file_prefix = History_Track3_file_prefix - s% pg% show_History_Track3_annotation1 = show_History_Track3_annotation1 - s% pg% show_History_Track3_annotation2 = show_History_Track3_annotation2 - s% pg% show_History_Track3_annotation3 = show_History_Track3_annotation3 - s% pg% History_Track3_fname = History_Track3_fname - s% pg% History_Track3_reverse_xaxis = History_Track3_reverse_xaxis - s% pg% History_Track3_reverse_yaxis = History_Track3_reverse_yaxis - s% pg% History_Track3_log_xaxis = History_Track3_log_xaxis - s% pg% History_Track3_log_yaxis = History_Track3_log_yaxis - s% pg% History_Track3_xmin = History_Track3_xmin - s% pg% History_Track3_xmax = History_Track3_xmax - s% pg% History_Track3_ymin = History_Track3_ymin - s% pg% History_Track3_ymax = History_Track3_ymax - s% pg% History_Track3_xmargin = History_Track3_xmargin - s% pg% History_Track3_ymargin = History_Track3_ymargin - s% pg% History_Track3_dxmin = History_Track3_dxmin - s% pg% History_Track3_dymin = History_Track3_dymin - s% pg% History_Track3_win_width = History_Track3_win_width - s% pg% History_Track3_win_aspect_ratio = History_Track3_win_aspect_ratio - s% pg% History_Track3_file_width = History_Track3_file_width - s% pg% History_Track3_file_aspect_ratio = History_Track3_file_aspect_ratio - s% pg% History_Track3_xleft = History_Track3_xleft - s% pg% History_Track3_xright = History_Track3_xright - s% pg% History_Track3_ybot = History_Track3_ybot - s% pg% History_Track3_ytop = History_Track3_ytop - s% pg% History_Track3_txt_scale = History_Track3_txt_scale - s% pg% History_Track3_title = History_Track3_title - s% pg% History_Track3_use_decorator = History_Track3_use_decorator - - s% pg% History_Track4_win_flag = History_Track4_win_flag - s% pg% History_Track4_file_flag = History_Track4_file_flag - s% pg% History_Track4_file_interval = History_Track4_file_interval - s% pg% History_Track4_step_min = History_Track4_step_min - s% pg% History_Track4_step_max = History_Track4_step_max - s% pg% show_History_Track4_target_box = show_History_Track4_target_box - s% pg% History_Track4_n_sigma = History_Track4_n_sigma - s% pg% History_Track4_xtarget = History_Track4_xtarget - s% pg% History_Track4_xsigma = History_Track4_xsigma - s% pg% History_Track4_ytarget = History_Track4_ytarget - s% pg% History_Track4_ysigma = History_Track4_ysigma - s% pg% History_Track4_xname = History_Track4_xname - s% pg% History_Track4_xaxis_label = History_Track4_xaxis_label - s% pg% History_Track4_yname = History_Track4_yname - s% pg% History_Track4_yaxis_label = History_Track4_yaxis_label - s% pg% History_Track4_file_dir = History_Track4_file_dir - s% pg% History_Track4_file_prefix = History_Track4_file_prefix - s% pg% show_History_Track4_annotation1 = show_History_Track4_annotation1 - s% pg% show_History_Track4_annotation2 = show_History_Track4_annotation2 - s% pg% show_History_Track4_annotation3 = show_History_Track4_annotation3 - s% pg% History_Track4_fname = History_Track4_fname - s% pg% History_Track4_reverse_xaxis = History_Track4_reverse_xaxis - s% pg% History_Track4_reverse_yaxis = History_Track4_reverse_yaxis - s% pg% History_Track4_log_xaxis = History_Track4_log_xaxis - s% pg% History_Track4_log_yaxis = History_Track4_log_yaxis - s% pg% History_Track4_xmin = History_Track4_xmin - s% pg% History_Track4_xmax = History_Track4_xmax - s% pg% History_Track4_ymin = History_Track4_ymin - s% pg% History_Track4_ymax = History_Track4_ymax - s% pg% History_Track4_xmargin = History_Track4_xmargin - s% pg% History_Track4_ymargin = History_Track4_ymargin - s% pg% History_Track4_dxmin = History_Track4_dxmin - s% pg% History_Track4_dymin = History_Track4_dymin - s% pg% History_Track4_win_width = History_Track4_win_width - s% pg% History_Track4_win_aspect_ratio = History_Track4_win_aspect_ratio - s% pg% History_Track4_file_width = History_Track4_file_width - s% pg% History_Track4_file_aspect_ratio = History_Track4_file_aspect_ratio - s% pg% History_Track4_xleft = History_Track4_xleft - s% pg% History_Track4_xright = History_Track4_xright - s% pg% History_Track4_ybot = History_Track4_ybot - s% pg% History_Track4_ytop = History_Track4_ytop - s% pg% History_Track4_txt_scale = History_Track4_txt_scale - s% pg% History_Track4_title = History_Track4_title - s% pg% History_Track4_use_decorator = History_Track4_use_decorator - - s% pg% History_Track5_win_flag = History_Track5_win_flag - s% pg% History_Track5_file_flag = History_Track5_file_flag - s% pg% History_Track5_file_interval = History_Track5_file_interval - s% pg% History_Track5_step_min = History_Track5_step_min - s% pg% History_Track5_step_max = History_Track5_step_max - s% pg% show_History_Track5_target_box = show_History_Track5_target_box - s% pg% History_Track5_n_sigma = History_Track5_n_sigma - s% pg% History_Track5_xtarget = History_Track5_xtarget - s% pg% History_Track5_xsigma = History_Track5_xsigma - s% pg% History_Track5_ytarget = History_Track5_ytarget - s% pg% History_Track5_ysigma = History_Track5_ysigma - s% pg% History_Track5_xname = History_Track5_xname - s% pg% History_Track5_xaxis_label = History_Track5_xaxis_label - s% pg% History_Track5_yname = History_Track5_yname - s% pg% History_Track5_yaxis_label = History_Track5_yaxis_label - s% pg% History_Track5_file_dir = History_Track5_file_dir - s% pg% History_Track5_file_prefix = History_Track5_file_prefix - s% pg% show_History_Track5_annotation1 = show_History_Track5_annotation1 - s% pg% show_History_Track5_annotation2 = show_History_Track5_annotation2 - s% pg% show_History_Track5_annotation3 = show_History_Track5_annotation3 - s% pg% History_Track5_fname = History_Track5_fname - s% pg% History_Track5_reverse_xaxis = History_Track5_reverse_xaxis - s% pg% History_Track5_reverse_yaxis = History_Track5_reverse_yaxis - s% pg% History_Track5_log_xaxis = History_Track5_log_xaxis - s% pg% History_Track5_log_yaxis = History_Track5_log_yaxis - s% pg% History_Track5_xmin = History_Track5_xmin - s% pg% History_Track5_xmax = History_Track5_xmax - s% pg% History_Track5_ymin = History_Track5_ymin - s% pg% History_Track5_ymax = History_Track5_ymax - s% pg% History_Track5_xmargin = History_Track5_xmargin - s% pg% History_Track5_ymargin = History_Track5_ymargin - s% pg% History_Track5_dxmin = History_Track5_dxmin - s% pg% History_Track5_dymin = History_Track5_dymin - s% pg% History_Track5_win_width = History_Track5_win_width - s% pg% History_Track5_win_aspect_ratio = History_Track5_win_aspect_ratio - s% pg% History_Track5_file_width = History_Track5_file_width - s% pg% History_Track5_file_aspect_ratio = History_Track5_file_aspect_ratio - s% pg% History_Track5_xleft = History_Track5_xleft - s% pg% History_Track5_xright = History_Track5_xright - s% pg% History_Track5_ybot = History_Track5_ybot - s% pg% History_Track5_ytop = History_Track5_ytop - s% pg% History_Track5_txt_scale = History_Track5_txt_scale - s% pg% History_Track5_title = History_Track5_title - s% pg% History_Track5_use_decorator = History_Track5_use_decorator - - s% pg% History_Track6_win_flag = History_Track6_win_flag - s% pg% History_Track6_file_flag = History_Track6_file_flag - s% pg% History_Track6_file_interval = History_Track6_file_interval - s% pg% History_Track6_step_min = History_Track6_step_min - s% pg% History_Track6_step_max = History_Track6_step_max - s% pg% show_History_Track6_target_box = show_History_Track6_target_box - s% pg% History_Track6_n_sigma = History_Track6_n_sigma - s% pg% History_Track6_xtarget = History_Track6_xtarget - s% pg% History_Track6_xsigma = History_Track6_xsigma - s% pg% History_Track6_ytarget = History_Track6_ytarget - s% pg% History_Track6_ysigma = History_Track6_ysigma - s% pg% History_Track6_xname = History_Track6_xname - s% pg% History_Track6_xaxis_label = History_Track6_xaxis_label - s% pg% History_Track6_yname = History_Track6_yname - s% pg% History_Track6_yaxis_label = History_Track6_yaxis_label - s% pg% History_Track6_file_dir = History_Track6_file_dir - s% pg% History_Track6_file_prefix = History_Track6_file_prefix - s% pg% show_History_Track6_annotation1 = show_History_Track6_annotation1 - s% pg% show_History_Track6_annotation2 = show_History_Track6_annotation2 - s% pg% show_History_Track6_annotation3 = show_History_Track6_annotation3 - s% pg% History_Track6_fname = History_Track6_fname - s% pg% History_Track6_reverse_xaxis = History_Track6_reverse_xaxis - s% pg% History_Track6_reverse_yaxis = History_Track6_reverse_yaxis - s% pg% History_Track6_log_xaxis = History_Track6_log_xaxis - s% pg% History_Track6_log_yaxis = History_Track6_log_yaxis - s% pg% History_Track6_xmin = History_Track6_xmin - s% pg% History_Track6_xmax = History_Track6_xmax - s% pg% History_Track6_ymin = History_Track6_ymin - s% pg% History_Track6_ymax = History_Track6_ymax - s% pg% History_Track6_xmargin = History_Track6_xmargin - s% pg% History_Track6_ymargin = History_Track6_ymargin - s% pg% History_Track6_dxmin = History_Track6_dxmin - s% pg% History_Track6_dymin = History_Track6_dymin - s% pg% History_Track6_win_width = History_Track6_win_width - s% pg% History_Track6_win_aspect_ratio = History_Track6_win_aspect_ratio - s% pg% History_Track6_file_width = History_Track6_file_width - s% pg% History_Track6_file_aspect_ratio = History_Track6_file_aspect_ratio - s% pg% History_Track6_xleft = History_Track6_xleft - s% pg% History_Track6_xright = History_Track6_xright - s% pg% History_Track6_ybot = History_Track6_ybot - s% pg% History_Track6_ytop = History_Track6_ytop - s% pg% History_Track6_txt_scale = History_Track6_txt_scale - s% pg% History_Track6_title = History_Track6_title - s% pg% History_Track6_use_decorator = History_Track6_use_decorator - - s% pg% History_Track7_win_flag = History_Track7_win_flag - s% pg% History_Track7_file_flag = History_Track7_file_flag - s% pg% History_Track7_file_interval = History_Track7_file_interval - s% pg% History_Track7_step_min = History_Track7_step_min - s% pg% History_Track7_step_max = History_Track7_step_max - s% pg% show_History_Track7_target_box = show_History_Track7_target_box - s% pg% History_Track7_n_sigma = History_Track7_n_sigma - s% pg% History_Track7_xtarget = History_Track7_xtarget - s% pg% History_Track7_xsigma = History_Track7_xsigma - s% pg% History_Track7_ytarget = History_Track7_ytarget - s% pg% History_Track7_ysigma = History_Track7_ysigma - s% pg% History_Track7_xname = History_Track7_xname - s% pg% History_Track7_xaxis_label = History_Track7_xaxis_label - s% pg% History_Track7_yname = History_Track7_yname - s% pg% History_Track7_yaxis_label = History_Track7_yaxis_label - s% pg% History_Track7_file_dir = History_Track7_file_dir - s% pg% History_Track7_file_prefix = History_Track7_file_prefix - s% pg% show_History_Track7_annotation1 = show_History_Track7_annotation1 - s% pg% show_History_Track7_annotation2 = show_History_Track7_annotation2 - s% pg% show_History_Track7_annotation3 = show_History_Track7_annotation3 - s% pg% History_Track7_fname = History_Track7_fname - s% pg% History_Track7_reverse_xaxis = History_Track7_reverse_xaxis - s% pg% History_Track7_reverse_yaxis = History_Track7_reverse_yaxis - s% pg% History_Track7_log_xaxis = History_Track7_log_xaxis - s% pg% History_Track7_log_yaxis = History_Track7_log_yaxis - s% pg% History_Track7_xmin = History_Track7_xmin - s% pg% History_Track7_xmax = History_Track7_xmax - s% pg% History_Track7_ymin = History_Track7_ymin - s% pg% History_Track7_ymax = History_Track7_ymax - s% pg% History_Track7_xmargin = History_Track7_xmargin - s% pg% History_Track7_ymargin = History_Track7_ymargin - s% pg% History_Track7_dxmin = History_Track7_dxmin - s% pg% History_Track7_dymin = History_Track7_dymin - s% pg% History_Track7_win_width = History_Track7_win_width - s% pg% History_Track7_win_aspect_ratio = History_Track7_win_aspect_ratio - s% pg% History_Track7_file_width = History_Track7_file_width - s% pg% History_Track7_file_aspect_ratio = History_Track7_file_aspect_ratio - s% pg% History_Track7_xleft = History_Track7_xleft - s% pg% History_Track7_xright = History_Track7_xright - s% pg% History_Track7_ybot = History_Track7_ybot - s% pg% History_Track7_ytop = History_Track7_ytop - s% pg% History_Track7_txt_scale = History_Track7_txt_scale - s% pg% History_Track7_title = History_Track7_title - s% pg% History_Track7_use_decorator = History_Track7_use_decorator - - s% pg% History_Track8_win_flag = History_Track8_win_flag - s% pg% History_Track8_file_flag = History_Track8_file_flag - s% pg% History_Track8_file_interval = History_Track8_file_interval - s% pg% History_Track8_step_min = History_Track8_step_min - s% pg% History_Track8_step_max = History_Track8_step_max - s% pg% show_History_Track8_target_box = show_History_Track8_target_box - s% pg% History_Track8_n_sigma = History_Track8_n_sigma - s% pg% History_Track8_xtarget = History_Track8_xtarget - s% pg% History_Track8_xsigma = History_Track8_xsigma - s% pg% History_Track8_ytarget = History_Track8_ytarget - s% pg% History_Track8_ysigma = History_Track8_ysigma - s% pg% History_Track8_xname = History_Track8_xname - s% pg% History_Track8_xaxis_label = History_Track8_xaxis_label - s% pg% History_Track8_yname = History_Track8_yname - s% pg% History_Track8_yaxis_label = History_Track8_yaxis_label - s% pg% History_Track8_file_dir = History_Track8_file_dir - s% pg% History_Track8_file_prefix = History_Track8_file_prefix - s% pg% show_History_Track8_annotation1 = show_History_Track8_annotation1 - s% pg% show_History_Track8_annotation2 = show_History_Track8_annotation2 - s% pg% show_History_Track8_annotation3 = show_History_Track8_annotation3 - s% pg% History_Track8_fname = History_Track8_fname - s% pg% History_Track8_reverse_xaxis = History_Track8_reverse_xaxis - s% pg% History_Track8_reverse_yaxis = History_Track8_reverse_yaxis - s% pg% History_Track8_log_xaxis = History_Track8_log_xaxis - s% pg% History_Track8_log_yaxis = History_Track8_log_yaxis - s% pg% History_Track8_xmin = History_Track8_xmin - s% pg% History_Track8_xmax = History_Track8_xmax - s% pg% History_Track8_ymin = History_Track8_ymin - s% pg% History_Track8_ymax = History_Track8_ymax - s% pg% History_Track8_xmargin = History_Track8_xmargin - s% pg% History_Track8_ymargin = History_Track8_ymargin - s% pg% History_Track8_dxmin = History_Track8_dxmin - s% pg% History_Track8_dymin = History_Track8_dymin - s% pg% History_Track8_win_width = History_Track8_win_width - s% pg% History_Track8_win_aspect_ratio = History_Track8_win_aspect_ratio - s% pg% History_Track8_file_width = History_Track8_file_width - s% pg% History_Track8_file_aspect_ratio = History_Track8_file_aspect_ratio - s% pg% History_Track8_xleft = History_Track8_xleft - s% pg% History_Track8_xright = History_Track8_xright - s% pg% History_Track8_ybot = History_Track8_ybot - s% pg% History_Track8_ytop = History_Track8_ytop - s% pg% History_Track8_txt_scale = History_Track8_txt_scale - s% pg% History_Track8_title = History_Track8_title - s% pg% History_Track8_use_decorator = History_Track8_use_decorator - - s% pg% History_Track9_win_flag = History_Track9_win_flag - s% pg% History_Track9_file_flag = History_Track9_file_flag - s% pg% History_Track9_file_interval = History_Track9_file_interval - s% pg% History_Track9_step_min = History_Track9_step_min - s% pg% History_Track9_step_max = History_Track9_step_max - s% pg% show_History_Track9_target_box = show_History_Track9_target_box - s% pg% History_Track9_n_sigma = History_Track9_n_sigma - s% pg% History_Track9_xtarget = History_Track9_xtarget - s% pg% History_Track9_xsigma = History_Track9_xsigma - s% pg% History_Track9_ytarget = History_Track9_ytarget - s% pg% History_Track9_ysigma = History_Track9_ysigma - s% pg% History_Track9_xname = History_Track9_xname - s% pg% History_Track9_xaxis_label = History_Track9_xaxis_label - s% pg% History_Track9_yname = History_Track9_yname - s% pg% History_Track9_yaxis_label = History_Track9_yaxis_label - s% pg% History_Track9_file_dir = History_Track9_file_dir - s% pg% History_Track9_file_prefix = History_Track9_file_prefix - s% pg% show_History_Track9_annotation1 = show_History_Track9_annotation1 - s% pg% show_History_Track9_annotation2 = show_History_Track9_annotation2 - s% pg% show_History_Track9_annotation3 = show_History_Track9_annotation3 - s% pg% History_Track9_fname = History_Track9_fname - s% pg% History_Track9_reverse_xaxis = History_Track9_reverse_xaxis - s% pg% History_Track9_reverse_yaxis = History_Track9_reverse_yaxis - s% pg% History_Track9_log_xaxis = History_Track9_log_xaxis - s% pg% History_Track9_log_yaxis = History_Track9_log_yaxis - s% pg% History_Track9_xmin = History_Track9_xmin - s% pg% History_Track9_xmax = History_Track9_xmax - s% pg% History_Track9_ymin = History_Track9_ymin - s% pg% History_Track9_ymax = History_Track9_ymax - s% pg% History_Track9_xmargin = History_Track9_xmargin - s% pg% History_Track9_ymargin = History_Track9_ymargin - s% pg% History_Track9_dxmin = History_Track9_dxmin - s% pg% History_Track9_dymin = History_Track9_dymin - s% pg% History_Track9_win_width = History_Track9_win_width - s% pg% History_Track9_win_aspect_ratio = History_Track9_win_aspect_ratio - s% pg% History_Track9_file_width = History_Track9_file_width - s% pg% History_Track9_file_aspect_ratio = History_Track9_file_aspect_ratio - s% pg% History_Track9_xleft = History_Track9_xleft - s% pg% History_Track9_xright = History_Track9_xright - s% pg% History_Track9_ybot = History_Track9_ybot - s% pg% History_Track9_ytop = History_Track9_ytop - s% pg% History_Track9_txt_scale = History_Track9_txt_scale - s% pg% History_Track9_title = History_Track9_title - s% pg% History_Track9_use_decorator = History_Track9_use_decorator + s% pg% History_Track_win_flag = History_Track_win_flag + s% pg% History_Track_file_flag = History_Track_file_flag + s% pg% History_Track_file_interval = History_Track_file_interval + s% pg% History_Track_step_min = History_Track_step_min + s% pg% History_Track_step_max = History_Track_step_max + s% pg% show_History_Track_target_box = show_History_Track_target_box + s% pg% History_Track_n_sigma = History_Track_n_sigma + s% pg% History_Track_xtarget = History_Track_xtarget + s% pg% History_Track_xsigma = History_Track_xsigma + s% pg% History_Track_ytarget = History_Track_ytarget + s% pg% History_Track_ysigma = History_Track_ysigma + s% pg% History_Track_file_dir = History_Track_file_dir + s% pg% History_Track_file_prefix = History_Track_file_prefix + s% pg% show_History_Track_annotation1 = show_History_Track_annotation1 + s% pg% show_History_Track_annotation2 = show_History_Track_annotation2 + s% pg% show_History_Track_annotation3 = show_History_Track_annotation3 + s% pg% History_Track_fname = History_Track_fname + s% pg% History_Track_xname = History_Track_xname + s% pg% History_Track_xaxis_label = History_Track_xaxis_label + s% pg% History_Track_yname = History_Track_yname + s% pg% History_Track_yaxis_label = History_Track_yaxis_label + s% pg% History_Track_reverse_xaxis = History_Track_reverse_xaxis + s% pg% History_Track_reverse_yaxis = History_Track_reverse_yaxis + s% pg% History_Track_log_xaxis = History_Track_log_xaxis + s% pg% History_Track_log_yaxis = History_Track_log_yaxis + s% pg% History_Track_xmin = History_Track_xmin + s% pg% History_Track_xmax = History_Track_xmax + s% pg% History_Track_ymin = History_Track_ymin + s% pg% History_Track_ymax = History_Track_ymax + s% pg% History_Track_xmargin = History_Track_xmargin + s% pg% History_Track_ymargin = History_Track_ymargin + s% pg% History_Track_dxmin = History_Track_dxmin + s% pg% History_Track_dymin = History_Track_dymin + s% pg% History_Track_win_width = History_Track_win_width + s% pg% History_Track_win_aspect_ratio = History_Track_win_aspect_ratio + s% pg% History_Track_file_width = History_Track_file_width + s% pg% History_Track_file_aspect_ratio = History_Track_file_aspect_ratio + s% pg% History_Track_xleft = History_Track_xleft + s% pg% History_Track_xright = History_Track_xright + s% pg% History_Track_ybot = History_Track_ybot + s% pg% History_Track_ytop = History_Track_ytop + s% pg% History_Track_txt_scale = History_Track_txt_scale + s% pg% History_Track_title = History_Track_title + s% pg% History_Track_use_decorator = History_Track_use_decorator s% pg% Kipp_win_flag = Kipp_win_flag s% pg% Kipp_file_flag = Kipp_file_flag @@ -4996,396 +2287,50 @@ subroutine store_pgstar_controls(s, ierr) s% pg% profile_mass_point_str_clr = profile_mass_point_str_clr s% pg% profile_mass_point_str_scale = profile_mass_point_str_scale s% pg% TRho_Profile_use_decorator = TRho_Profile_use_decorator - - - s% pg% History_Panels1_win_flag = History_Panels1_win_flag - s% pg% History_Panels1_win_width = History_Panels1_win_width - s% pg% History_Panels1_win_aspect_ratio = History_Panels1_win_aspect_ratio - s% pg% History_Panels1_xleft = History_Panels1_xleft - s% pg% History_Panels1_xright = History_Panels1_xright - s% pg% History_Panels1_ybot = History_Panels1_ybot - s% pg% History_Panels1_ytop = History_Panels1_ytop - s% pg% History_Panels1_txt_scale = History_Panels1_txt_scale - s% pg% History_Panels1_title = History_Panels1_title - s% pg% History_Panels1_xmax = History_Panels1_xmax - s% pg% History_Panels1_xmin = History_Panels1_xmin - s% pg% History_Panels1_dxmin = History_Panels1_dxmin - s% pg% History_Panels1_max_width = History_Panels1_max_width - s% pg% History_Panels1_num_panels = History_Panels1_num_panels - s% pg% History_Panels1_xaxis_name = History_Panels1_xaxis_name - s% pg% History_Panels1_automatic_star_age_units = History_Panels1_automatic_star_age_units - s% pg% History_Panels1_yaxis_name = History_Panels1_yaxis_name - s% pg% History_Panels1_xaxis_reversed = History_Panels1_xaxis_reversed - s% pg% History_Panels1_yaxis_reversed = History_Panels1_yaxis_reversed - s% pg% History_Panels1_xaxis_log = History_Panels1_xaxis_log - s% pg% History_Panels1_yaxis_log = History_Panels1_yaxis_log - s% pg% History_Panels1_ymin = History_Panels1_ymin - s% pg% History_Panels1_ymax = History_Panels1_ymax - s% pg% History_Panels1_dymin = History_Panels1_dymin - s% pg% History_Panels1_other_yaxis_name = History_Panels1_other_yaxis_name - s% pg% History_Panels1_other_yaxis_reversed = History_Panels1_other_yaxis_reversed - s% pg% History_Panels1_other_yaxis_log = History_Panels1_other_yaxis_log - s% pg% History_Panels1_same_yaxis_range = History_Panels1_same_yaxis_range - s% pg% History_Panels1_other_ymin = History_Panels1_other_ymin - s% pg% History_Panels1_other_ymax = History_Panels1_other_ymax - s% pg% History_Panels1_other_dymin = History_Panels1_other_dymin - s% pg% History_Panels1_file_flag = History_Panels1_file_flag - s% pg% History_Panels1_points_name = History_Panels1_points_name - s% pg% History_Panels1_file_dir = History_Panels1_file_dir - s% pg% History_Panels1_file_prefix = History_Panels1_file_prefix - s% pg% History_Panels1_file_interval = History_Panels1_file_interval - s% pg% History_Panels1_file_width = History_Panels1_file_width - s% pg% History_Panels1_file_aspect_ratio = History_Panels1_file_aspect_ratio - s% pg% History_Panels1_xmargin = History_Panels1_xmargin - s% pg% History_Panels1_ymargin = History_Panels1_ymargin - s% pg% History_Panels1_other_ymargin = History_Panels1_other_ymargin - s% pg% History_Panels1_use_decorator = History_Panels1_use_decorator - - s% pg% History_Panels2_win_flag = History_Panels2_win_flag - s% pg% History_Panels2_win_width = History_Panels2_win_width - s% pg% History_Panels2_win_aspect_ratio = History_Panels2_win_aspect_ratio - s% pg% History_Panels2_xleft = History_Panels2_xleft - s% pg% History_Panels2_xright = History_Panels2_xright - s% pg% History_Panels2_ybot = History_Panels2_ybot - s% pg% History_Panels2_ytop = History_Panels2_ytop - s% pg% History_Panels2_txt_scale = History_Panels2_txt_scale - s% pg% History_Panels2_title = History_Panels2_title - s% pg% History_Panels2_xmax = History_Panels2_xmax - s% pg% History_Panels2_xmin = History_Panels2_xmin - s% pg% History_Panels2_dxmin = History_Panels2_dxmin - s% pg% History_Panels2_max_width = History_Panels2_max_width - s% pg% History_Panels2_num_panels = History_Panels2_num_panels - s% pg% History_Panels2_xaxis_name = History_Panels2_xaxis_name - s% pg% History_Panels2_automatic_star_age_units = History_Panels2_automatic_star_age_units - s% pg% History_Panels2_yaxis_name = History_Panels2_yaxis_name - s% pg% History_Panels2_xaxis_reversed = History_Panels2_xaxis_reversed - s% pg% History_Panels2_yaxis_reversed = History_Panels2_yaxis_reversed - s% pg% History_Panels2_xaxis_log = History_Panels2_xaxis_log - s% pg% History_Panels2_yaxis_log = History_Panels2_yaxis_log - s% pg% History_Panels2_ymin = History_Panels2_ymin - s% pg% History_Panels2_ymax = History_Panels2_ymax - s% pg% History_Panels2_dymin = History_Panels2_dymin - s% pg% History_Panels2_other_yaxis_name = History_Panels2_other_yaxis_name - s% pg% History_Panels2_other_yaxis_reversed = History_Panels2_other_yaxis_reversed - s% pg% History_Panels2_other_yaxis_log = History_Panels2_other_yaxis_log - s% pg% History_Panels2_same_yaxis_range = History_Panels2_same_yaxis_range - s% pg% History_Panels2_other_ymin = History_Panels2_other_ymin - s% pg% History_Panels2_other_ymax = History_Panels2_other_ymax - s% pg% History_Panels2_other_dymin = History_Panels2_other_dymin - s% pg% History_Panels2_file_flag = History_Panels2_file_flag - s% pg% History_Panels2_points_name = History_Panels2_points_name - s% pg% History_Panels2_file_dir = History_Panels2_file_dir - s% pg% History_Panels2_file_prefix = History_Panels2_file_prefix - s% pg% History_Panels2_file_interval = History_Panels2_file_interval - s% pg% History_Panels2_file_width = History_Panels2_file_width - s% pg% History_Panels2_file_aspect_ratio = History_Panels2_file_aspect_ratio - s% pg% History_Panels2_xmargin = History_Panels2_xmargin - s% pg% History_Panels2_ymargin = History_Panels2_ymargin - s% pg% History_Panels2_other_ymargin = History_Panels2_other_ymargin - s% pg% History_Panels2_use_decorator = History_Panels2_use_decorator - - s% pg% History_Panels3_win_flag = History_Panels3_win_flag - s% pg% History_Panels3_win_width = History_Panels3_win_width - s% pg% History_Panels3_win_aspect_ratio = History_Panels3_win_aspect_ratio - s% pg% History_Panels3_xleft = History_Panels3_xleft - s% pg% History_Panels3_xright = History_Panels3_xright - s% pg% History_Panels3_ybot = History_Panels3_ybot - s% pg% History_Panels3_ytop = History_Panels3_ytop - s% pg% History_Panels3_txt_scale = History_Panels3_txt_scale - s% pg% History_Panels3_title = History_Panels3_title - s% pg% History_Panels3_xmax = History_Panels3_xmax - s% pg% History_Panels3_xmin = History_Panels3_xmin - s% pg% History_Panels3_dxmin = History_Panels3_dxmin - s% pg% History_Panels3_max_width = History_Panels3_max_width - s% pg% History_Panels3_num_panels = History_Panels3_num_panels - s% pg% History_Panels3_xaxis_name = History_Panels3_xaxis_name - s% pg% History_Panels3_automatic_star_age_units = History_Panels3_automatic_star_age_units - s% pg% History_Panels3_yaxis_name = History_Panels3_yaxis_name - s% pg% History_Panels3_xaxis_reversed = History_Panels3_xaxis_reversed - s% pg% History_Panels3_yaxis_reversed = History_Panels3_yaxis_reversed - s% pg% History_Panels3_xaxis_log = History_Panels3_xaxis_log - s% pg% History_Panels3_yaxis_log = History_Panels3_yaxis_log - s% pg% History_Panels3_ymin = History_Panels3_ymin - s% pg% History_Panels3_ymax = History_Panels3_ymax - s% pg% History_Panels3_dymin = History_Panels3_dymin - s% pg% History_Panels3_other_yaxis_name = History_Panels3_other_yaxis_name - s% pg% History_Panels3_other_yaxis_reversed = History_Panels3_other_yaxis_reversed - s% pg% History_Panels3_other_yaxis_log = History_Panels3_other_yaxis_log - s% pg% History_Panels3_same_yaxis_range = History_Panels3_same_yaxis_range - s% pg% History_Panels3_other_ymin = History_Panels3_other_ymin - s% pg% History_Panels3_other_ymax = History_Panels3_other_ymax - s% pg% History_Panels3_other_dymin = History_Panels3_other_dymin - s% pg% History_Panels3_file_flag = History_Panels3_file_flag - s% pg% History_Panels3_points_name = History_Panels3_points_name - s% pg% History_Panels3_file_dir = History_Panels3_file_dir - s% pg% History_Panels3_file_prefix = History_Panels3_file_prefix - s% pg% History_Panels3_file_interval = History_Panels3_file_interval - s% pg% History_Panels3_file_width = History_Panels3_file_width - s% pg% History_Panels3_file_aspect_ratio = History_Panels3_file_aspect_ratio - s% pg% History_Panels3_xmargin = History_Panels3_xmargin - s% pg% History_Panels3_ymargin = History_Panels3_ymargin - s% pg% History_Panels3_other_ymargin = History_Panels3_other_ymargin - s% pg% History_Panels3_use_decorator = History_Panels3_use_decorator - s% pg% History_Panels4_win_flag = History_Panels4_win_flag - s% pg% History_Panels4_win_width = History_Panels4_win_width - s% pg% History_Panels4_win_aspect_ratio = History_Panels4_win_aspect_ratio - s% pg% History_Panels4_xleft = History_Panels4_xleft - s% pg% History_Panels4_xright = History_Panels4_xright - s% pg% History_Panels4_ybot = History_Panels4_ybot - s% pg% History_Panels4_ytop = History_Panels4_ytop - s% pg% History_Panels4_txt_scale = History_Panels4_txt_scale - s% pg% History_Panels4_title = History_Panels4_title - s% pg% History_Panels4_xmax = History_Panels4_xmax - s% pg% History_Panels4_xmin = History_Panels4_xmin - s% pg% History_Panels4_dxmin = History_Panels4_dxmin - s% pg% History_Panels4_max_width = History_Panels4_max_width - s% pg% History_Panels4_num_panels = History_Panels4_num_panels - s% pg% History_Panels4_xaxis_name = History_Panels4_xaxis_name - s% pg% History_Panels4_automatic_star_age_units = History_Panels4_automatic_star_age_units - s% pg% History_Panels4_yaxis_name = History_Panels4_yaxis_name - s% pg% History_Panels4_xaxis_reversed = History_Panels4_xaxis_reversed - s% pg% History_Panels4_yaxis_reversed = History_Panels4_yaxis_reversed - s% pg% History_Panels4_xaxis_log = History_Panels4_xaxis_log - s% pg% History_Panels4_yaxis_log = History_Panels4_yaxis_log - s% pg% History_Panels4_ymin = History_Panels4_ymin - s% pg% History_Panels4_ymax = History_Panels4_ymax - s% pg% History_Panels4_dymin = History_Panels4_dymin - s% pg% History_Panels4_other_yaxis_name = History_Panels4_other_yaxis_name - s% pg% History_Panels4_other_yaxis_reversed = History_Panels4_other_yaxis_reversed - s% pg% History_Panels4_other_yaxis_log = History_Panels4_other_yaxis_log - s% pg% History_Panels4_same_yaxis_range = History_Panels4_same_yaxis_range - s% pg% History_Panels4_other_ymin = History_Panels4_other_ymin - s% pg% History_Panels4_other_ymax = History_Panels4_other_ymax - s% pg% History_Panels4_other_dymin = History_Panels4_other_dymin - s% pg% History_Panels4_file_flag = History_Panels4_file_flag - s% pg% History_Panels4_points_name = History_Panels4_points_name - s% pg% History_Panels4_file_dir = History_Panels4_file_dir - s% pg% History_Panels4_file_prefix = History_Panels4_file_prefix - s% pg% History_Panels4_file_interval = History_Panels4_file_interval - s% pg% History_Panels4_file_width = History_Panels4_file_width - s% pg% History_Panels4_file_aspect_ratio = History_Panels4_file_aspect_ratio - s% pg% History_Panels4_xmargin = History_Panels4_xmargin - s% pg% History_Panels4_ymargin = History_Panels4_ymargin - s% pg% History_Panels4_other_ymargin = History_Panels4_other_ymargin - s% pg% History_Panels4_use_decorator = History_Panels4_use_decorator + s% pg% History_Panels_win_flag = History_Panels_win_flag + s% pg% History_Panels_win_width = History_Panels_win_width + s% pg% History_Panels_win_aspect_ratio = History_Panels_win_aspect_ratio + s% pg% History_Panels_xleft = History_Panels_xleft + s% pg% History_Panels_xright = History_Panels_xright + s% pg% History_Panels_ybot = History_Panels_ybot + s% pg% History_Panels_ytop = History_Panels_ytop + s% pg% History_Panels_txt_scale = History_Panels_txt_scale + s% pg% History_Panels_title = History_Panels_title + s% pg% History_Panels_xmax = History_Panels_xmax + s% pg% History_Panels_xmin = History_Panels_xmin + s% pg% History_Panels_dxmin = History_Panels_dxmin + s% pg% History_Panels_max_width = History_Panels_max_width + s% pg% History_Panels_num_panels = History_Panels_num_panels + s% pg% History_Panels_xaxis_name = History_Panels_xaxis_name + s% pg% History_Panels_automatic_star_age_units = History_Panels_automatic_star_age_units + s% pg% History_Panels_yaxis_name = History_Panels_yaxis_name + s% pg% History_Panels_xaxis_reversed = History_Panels_xaxis_reversed + s% pg% History_Panels_yaxis_reversed = History_Panels_yaxis_reversed + s% pg% History_Panels_xaxis_log = History_Panels_xaxis_log + s% pg% History_Panels_yaxis_log = History_Panels_yaxis_log + s% pg% History_Panels_ymin = History_Panels_ymin + s% pg% History_Panels_ymax = History_Panels_ymax + s% pg% History_Panels_dymin = History_Panels_dymin + s% pg% History_Panels_other_yaxis_name = History_Panels_other_yaxis_name + s% pg% History_Panels_other_yaxis_reversed = History_Panels_other_yaxis_reversed + s% pg% History_Panels_other_yaxis_log = History_Panels_other_yaxis_log + s% pg% History_Panels_same_yaxis_range = History_Panels_same_yaxis_range + s% pg% History_Panels_other_ymin = History_Panels_other_ymin + s% pg% History_Panels_other_ymax = History_Panels_other_ymax + s% pg% History_Panels_other_dymin = History_Panels_other_dymin + s% pg% History_Panels_file_flag = History_Panels_file_flag + s% pg% History_Panels_points_name = History_Panels_points_name + s% pg% History_Panels_file_dir = History_Panels_file_dir + s% pg% History_Panels_file_prefix = History_Panels_file_prefix + s% pg% History_Panels_file_interval = History_Panels_file_interval + s% pg% History_Panels_file_width = History_Panels_file_width + s% pg% History_Panels_file_aspect_ratio = History_Panels_file_aspect_ratio + s% pg% History_Panels_xmargin = History_Panels_xmargin + s% pg% History_Panels_ymargin = History_Panels_ymargin + s% pg% History_Panels_other_ymargin = History_Panels_other_ymargin + s% pg% History_Panels_use_decorator = History_Panels_use_decorator - s% pg% History_Panels5_win_flag = History_Panels5_win_flag - s% pg% History_Panels5_win_width = History_Panels5_win_width - s% pg% History_Panels5_win_aspect_ratio = History_Panels5_win_aspect_ratio - s% pg% History_Panels5_xleft = History_Panels5_xleft - s% pg% History_Panels5_xright = History_Panels5_xright - s% pg% History_Panels5_ybot = History_Panels5_ybot - s% pg% History_Panels5_ytop = History_Panels5_ytop - s% pg% History_Panels5_txt_scale = History_Panels5_txt_scale - s% pg% History_Panels5_title = History_Panels5_title - s% pg% History_Panels5_xmax = History_Panels5_xmax - s% pg% History_Panels5_xmin = History_Panels5_xmin - s% pg% History_Panels5_dxmin = History_Panels5_dxmin - s% pg% History_Panels5_max_width = History_Panels5_max_width - s% pg% History_Panels5_num_panels = History_Panels5_num_panels - s% pg% History_Panels5_xaxis_name = History_Panels5_xaxis_name - s% pg% History_Panels5_automatic_star_age_units = History_Panels5_automatic_star_age_units - s% pg% History_Panels5_yaxis_name = History_Panels5_yaxis_name - s% pg% History_Panels5_xaxis_reversed = History_Panels5_xaxis_reversed - s% pg% History_Panels5_yaxis_reversed = History_Panels5_yaxis_reversed - s% pg% History_Panels5_xaxis_log = History_Panels5_xaxis_log - s% pg% History_Panels5_yaxis_log = History_Panels5_yaxis_log - s% pg% History_Panels5_ymin = History_Panels5_ymin - s% pg% History_Panels5_ymax = History_Panels5_ymax - s% pg% History_Panels5_dymin = History_Panels5_dymin - s% pg% History_Panels5_other_yaxis_name = History_Panels5_other_yaxis_name - s% pg% History_Panels5_other_yaxis_reversed = History_Panels5_other_yaxis_reversed - s% pg% History_Panels5_other_yaxis_log = History_Panels5_other_yaxis_log - s% pg% History_Panels5_same_yaxis_range = History_Panels5_same_yaxis_range - s% pg% History_Panels5_other_ymin = History_Panels5_other_ymin - s% pg% History_Panels5_other_ymax = History_Panels5_other_ymax - s% pg% History_Panels5_other_dymin = History_Panels5_other_dymin - s% pg% History_Panels5_file_flag = History_Panels5_file_flag - s% pg% History_Panels5_points_name = History_Panels5_points_name - s% pg% History_Panels5_file_dir = History_Panels5_file_dir - s% pg% History_Panels5_file_prefix = History_Panels5_file_prefix - s% pg% History_Panels5_file_interval = History_Panels5_file_interval - s% pg% History_Panels5_file_width = History_Panels5_file_width - s% pg% History_Panels5_file_aspect_ratio = History_Panels5_file_aspect_ratio - s% pg% History_Panels5_xmargin = History_Panels5_xmargin - s% pg% History_Panels5_ymargin = History_Panels5_ymargin - s% pg% History_Panels5_other_ymargin = History_Panels5_other_ymargin - s% pg% History_Panels5_use_decorator = History_Panels5_use_decorator - - s% pg% History_Panels6_win_flag = History_Panels6_win_flag - s% pg% History_Panels6_win_width = History_Panels6_win_width - s% pg% History_Panels6_win_aspect_ratio = History_Panels6_win_aspect_ratio - s% pg% History_Panels6_xleft = History_Panels6_xleft - s% pg% History_Panels6_xright = History_Panels6_xright - s% pg% History_Panels6_ybot = History_Panels6_ybot - s% pg% History_Panels6_ytop = History_Panels6_ytop - s% pg% History_Panels6_txt_scale = History_Panels6_txt_scale - s% pg% History_Panels6_title = History_Panels6_title - s% pg% History_Panels6_xmax = History_Panels6_xmax - s% pg% History_Panels6_xmin = History_Panels6_xmin - s% pg% History_Panels6_dxmin = History_Panels6_dxmin - s% pg% History_Panels6_max_width = History_Panels6_max_width - s% pg% History_Panels6_num_panels = History_Panels6_num_panels - s% pg% History_Panels6_xaxis_name = History_Panels6_xaxis_name - s% pg% History_Panels6_automatic_star_age_units = History_Panels6_automatic_star_age_units - s% pg% History_Panels6_yaxis_name = History_Panels6_yaxis_name - s% pg% History_Panels6_xaxis_reversed = History_Panels6_xaxis_reversed - s% pg% History_Panels6_yaxis_reversed = History_Panels6_yaxis_reversed - s% pg% History_Panels6_xaxis_log = History_Panels6_xaxis_log - s% pg% History_Panels6_yaxis_log = History_Panels6_yaxis_log - s% pg% History_Panels6_ymin = History_Panels6_ymin - s% pg% History_Panels6_ymax = History_Panels6_ymax - s% pg% History_Panels6_dymin = History_Panels6_dymin - s% pg% History_Panels6_other_yaxis_name = History_Panels6_other_yaxis_name - s% pg% History_Panels6_other_yaxis_reversed = History_Panels6_other_yaxis_reversed - s% pg% History_Panels6_other_yaxis_log = History_Panels6_other_yaxis_log - s% pg% History_Panels6_same_yaxis_range = History_Panels6_same_yaxis_range - s% pg% History_Panels6_other_ymin = History_Panels6_other_ymin - s% pg% History_Panels6_other_ymax = History_Panels6_other_ymax - s% pg% History_Panels6_other_dymin = History_Panels6_other_dymin - s% pg% History_Panels6_file_flag = History_Panels6_file_flag - s% pg% History_Panels6_points_name = History_Panels6_points_name - s% pg% History_Panels6_file_dir = History_Panels6_file_dir - s% pg% History_Panels6_file_prefix = History_Panels6_file_prefix - s% pg% History_Panels6_file_interval = History_Panels6_file_interval - s% pg% History_Panels6_file_width = History_Panels6_file_width - s% pg% History_Panels6_file_aspect_ratio = History_Panels6_file_aspect_ratio - s% pg% History_Panels6_xmargin = History_Panels6_xmargin - s% pg% History_Panels6_ymargin = History_Panels6_ymargin - s% pg% History_Panels6_other_ymargin = History_Panels6_other_ymargin - s% pg% History_Panels6_use_decorator = History_Panels6_use_decorator - - s% pg% History_Panels7_win_flag = History_Panels7_win_flag - s% pg% History_Panels7_win_width = History_Panels7_win_width - s% pg% History_Panels7_win_aspect_ratio = History_Panels7_win_aspect_ratio - s% pg% History_Panels7_xleft = History_Panels7_xleft - s% pg% History_Panels7_xright = History_Panels7_xright - s% pg% History_Panels7_ybot = History_Panels7_ybot - s% pg% History_Panels7_ytop = History_Panels7_ytop - s% pg% History_Panels7_txt_scale = History_Panels7_txt_scale - s% pg% History_Panels7_title = History_Panels7_title - s% pg% History_Panels7_xmax = History_Panels7_xmax - s% pg% History_Panels7_xmin = History_Panels7_xmin - s% pg% History_Panels7_dxmin = History_Panels7_dxmin - s% pg% History_Panels7_max_width = History_Panels7_max_width - s% pg% History_Panels7_num_panels = History_Panels7_num_panels - s% pg% History_Panels7_xaxis_name = History_Panels7_xaxis_name - s% pg% History_Panels7_automatic_star_age_units = History_Panels7_automatic_star_age_units - s% pg% History_Panels7_yaxis_name = History_Panels7_yaxis_name - s% pg% History_Panels7_xaxis_reversed = History_Panels7_xaxis_reversed - s% pg% History_Panels7_yaxis_reversed = History_Panels7_yaxis_reversed - s% pg% History_Panels7_xaxis_log = History_Panels7_xaxis_log - s% pg% History_Panels7_yaxis_log = History_Panels7_yaxis_log - s% pg% History_Panels7_ymin = History_Panels7_ymin - s% pg% History_Panels7_ymax = History_Panels7_ymax - s% pg% History_Panels7_dymin = History_Panels7_dymin - s% pg% History_Panels7_other_yaxis_name = History_Panels7_other_yaxis_name - s% pg% History_Panels7_other_yaxis_reversed = History_Panels7_other_yaxis_reversed - s% pg% History_Panels7_other_yaxis_log = History_Panels7_other_yaxis_log - s% pg% History_Panels7_same_yaxis_range = History_Panels7_same_yaxis_range - s% pg% History_Panels7_other_ymin = History_Panels7_other_ymin - s% pg% History_Panels7_other_ymax = History_Panels7_other_ymax - s% pg% History_Panels7_other_dymin = History_Panels7_other_dymin - s% pg% History_Panels7_file_flag = History_Panels7_file_flag - s% pg% History_Panels7_points_name = History_Panels7_points_name - s% pg% History_Panels7_file_dir = History_Panels7_file_dir - s% pg% History_Panels7_file_prefix = History_Panels7_file_prefix - s% pg% History_Panels7_file_interval = History_Panels7_file_interval - s% pg% History_Panels7_file_width = History_Panels7_file_width - s% pg% History_Panels7_file_aspect_ratio = History_Panels7_file_aspect_ratio - s% pg% History_Panels7_xmargin = History_Panels7_xmargin - s% pg% History_Panels7_ymargin = History_Panels7_ymargin - s% pg% History_Panels7_other_ymargin = History_Panels7_other_ymargin - s% pg% History_Panels7_use_decorator = History_Panels7_use_decorator - - s% pg% History_Panels8_win_flag = History_Panels8_win_flag - s% pg% History_Panels8_win_width = History_Panels8_win_width - s% pg% History_Panels8_win_aspect_ratio = History_Panels8_win_aspect_ratio - s% pg% History_Panels8_xleft = History_Panels8_xleft - s% pg% History_Panels8_xright = History_Panels8_xright - s% pg% History_Panels8_ybot = History_Panels8_ybot - s% pg% History_Panels8_ytop = History_Panels8_ytop - s% pg% History_Panels8_txt_scale = History_Panels8_txt_scale - s% pg% History_Panels8_title = History_Panels8_title - s% pg% History_Panels8_xmax = History_Panels8_xmax - s% pg% History_Panels8_xmin = History_Panels8_xmin - s% pg% History_Panels8_dxmin = History_Panels8_dxmin - s% pg% History_Panels8_max_width = History_Panels8_max_width - s% pg% History_Panels8_num_panels = History_Panels8_num_panels - s% pg% History_Panels8_xaxis_name = History_Panels8_xaxis_name - s% pg% History_Panels8_automatic_star_age_units = History_Panels8_automatic_star_age_units - s% pg% History_Panels8_yaxis_name = History_Panels8_yaxis_name - s% pg% History_Panels8_xaxis_reversed = History_Panels8_xaxis_reversed - s% pg% History_Panels8_yaxis_reversed = History_Panels8_yaxis_reversed - s% pg% History_Panels8_xaxis_log = History_Panels8_xaxis_log - s% pg% History_Panels8_yaxis_log = History_Panels8_yaxis_log - s% pg% History_Panels8_ymin = History_Panels8_ymin - s% pg% History_Panels8_ymax = History_Panels8_ymax - s% pg% History_Panels8_dymin = History_Panels8_dymin - s% pg% History_Panels8_other_yaxis_name = History_Panels8_other_yaxis_name - s% pg% History_Panels8_other_yaxis_reversed = History_Panels8_other_yaxis_reversed - s% pg% History_Panels8_other_yaxis_log = History_Panels8_other_yaxis_log - s% pg% History_Panels8_same_yaxis_range = History_Panels8_same_yaxis_range - s% pg% History_Panels8_other_ymin = History_Panels8_other_ymin - s% pg% History_Panels8_other_ymax = History_Panels8_other_ymax - s% pg% History_Panels8_other_dymin = History_Panels8_other_dymin - s% pg% History_Panels8_file_flag = History_Panels8_file_flag - s% pg% History_Panels8_points_name = History_Panels8_points_name - s% pg% History_Panels8_file_dir = History_Panels8_file_dir - s% pg% History_Panels8_file_prefix = History_Panels8_file_prefix - s% pg% History_Panels8_file_interval = History_Panels8_file_interval - s% pg% History_Panels8_file_width = History_Panels8_file_width - s% pg% History_Panels8_file_aspect_ratio = History_Panels8_file_aspect_ratio - s% pg% History_Panels8_xmargin = History_Panels8_xmargin - s% pg% History_Panels8_ymargin = History_Panels8_ymargin - s% pg% History_Panels8_other_ymargin = History_Panels8_other_ymargin - s% pg% History_Panels8_use_decorator = History_Panels8_use_decorator - - s% pg% History_Panels9_win_flag = History_Panels9_win_flag - s% pg% History_Panels9_win_width = History_Panels9_win_width - s% pg% History_Panels9_win_aspect_ratio = History_Panels9_win_aspect_ratio - s% pg% History_Panels9_xleft = History_Panels9_xleft - s% pg% History_Panels9_xright = History_Panels9_xright - s% pg% History_Panels9_ybot = History_Panels9_ybot - s% pg% History_Panels9_ytop = History_Panels9_ytop - s% pg% History_Panels9_txt_scale = History_Panels9_txt_scale - s% pg% History_Panels9_title = History_Panels9_title - s% pg% History_Panels9_xmax = History_Panels9_xmax - s% pg% History_Panels9_xmin = History_Panels9_xmin - s% pg% History_Panels9_dxmin = History_Panels9_dxmin - s% pg% History_Panels9_max_width = History_Panels9_max_width - s% pg% History_Panels9_num_panels = History_Panels9_num_panels - s% pg% History_Panels9_xaxis_name = History_Panels9_xaxis_name - s% pg% History_Panels9_automatic_star_age_units = History_Panels9_automatic_star_age_units - s% pg% History_Panels9_yaxis_name = History_Panels9_yaxis_name - s% pg% History_Panels9_xaxis_reversed = History_Panels9_xaxis_reversed - s% pg% History_Panels9_yaxis_reversed = History_Panels9_yaxis_reversed - s% pg% History_Panels9_xaxis_log = History_Panels9_xaxis_log - s% pg% History_Panels9_yaxis_log = History_Panels9_yaxis_log - s% pg% History_Panels9_ymin = History_Panels9_ymin - s% pg% History_Panels9_ymax = History_Panels9_ymax - s% pg% History_Panels9_dymin = History_Panels9_dymin - s% pg% History_Panels9_other_yaxis_name = History_Panels9_other_yaxis_name - s% pg% History_Panels9_other_yaxis_reversed = History_Panels9_other_yaxis_reversed - s% pg% History_Panels9_other_yaxis_log = History_Panels9_other_yaxis_log - s% pg% History_Panels9_same_yaxis_range = History_Panels9_same_yaxis_range - s% pg% History_Panels9_other_ymin = History_Panels9_other_ymin - s% pg% History_Panels9_other_ymax = History_Panels9_other_ymax - s% pg% History_Panels9_other_dymin = History_Panels9_other_dymin - s% pg% History_Panels9_file_flag = History_Panels9_file_flag - s% pg% History_Panels9_points_name = History_Panels9_points_name - s% pg% History_Panels9_file_flag = History_Panels9_file_flag - s% pg% History_Panels9_file_dir = History_Panels9_file_dir - s% pg% History_Panels9_file_prefix = History_Panels9_file_prefix - s% pg% History_Panels9_file_interval = History_Panels9_file_interval - s% pg% History_Panels9_file_width = History_Panels9_file_width - s% pg% History_Panels9_file_aspect_ratio = History_Panels9_file_aspect_ratio - s% pg% History_Panels9_xmargin = History_Panels9_xmargin - s% pg% History_Panels9_ymargin = History_Panels9_ymargin - s% pg% History_Panels9_other_ymargin = History_Panels9_other_ymargin - s% pg% History_Panels9_use_decorator = History_Panels9_use_decorator - s% pg% History_Panel_points_error_bars = History_Panel_points_error_bars s% pg% History_Panel_points_interval = History_Panel_points_interval s% pg% History_Panel_points_marker = History_Panel_points_marker @@ -5393,393 +2338,48 @@ subroutine store_pgstar_controls(s, ierr) s% pg% History_Panel_points_lw = History_Panel_points_lw s% pg% History_Panel_points_ch = History_Panel_points_ch - s% pg% Color_Magnitude1_win_flag = Color_Magnitude1_win_flag - s% pg% Color_Magnitude1_win_width = Color_Magnitude1_win_width - s% pg% Color_Magnitude1_win_aspect_ratio = Color_Magnitude1_win_aspect_ratio - s% pg% Color_Magnitude1_xleft = Color_Magnitude1_xleft - s% pg% Color_Magnitude1_xright = Color_Magnitude1_xright - s% pg% Color_Magnitude1_ybot = Color_Magnitude1_ybot - s% pg% Color_Magnitude1_ytop = Color_Magnitude1_ytop - s% pg% Color_Magnitude1_txt_scale = Color_Magnitude1_txt_scale - s% pg% Color_Magnitude1_title = Color_Magnitude1_title - s% pg% Color_Magnitude1_xmax = Color_Magnitude1_xmax - s% pg% Color_Magnitude1_xmin = Color_Magnitude1_xmin - s% pg% Color_Magnitude1_dxmin = Color_Magnitude1_dxmin - s% pg% Color_Magnitude1_max_width = Color_Magnitude1_max_width - s% pg% Color_Magnitude1_num_panels = Color_Magnitude1_num_panels - s% pg% Color_Magnitude1_xaxis1_name = Color_Magnitude1_xaxis1_name - s% pg% Color_Magnitude1_xaxis2_name = Color_Magnitude1_xaxis2_name - s% pg% Color_Magnitude1_yaxis1_name = Color_Magnitude1_yaxis1_name - s% pg% Color_Magnitude1_yaxis2_name = Color_Magnitude1_yaxis2_name - s% pg% Color_Magnitude1_xaxis_reversed = Color_Magnitude1_xaxis_reversed - s% pg% Color_Magnitude1_yaxis_reversed = Color_Magnitude1_yaxis_reversed - s% pg% Color_Magnitude1_xaxis_log = Color_Magnitude1_xaxis_log - s% pg% Color_Magnitude1_yaxis_log = Color_Magnitude1_yaxis_log - s% pg% Color_Magnitude1_ymin = Color_Magnitude1_ymin - s% pg% Color_Magnitude1_ymax = Color_Magnitude1_ymax - s% pg% Color_Magnitude1_dymin = Color_Magnitude1_dymin - s% pg% Color_Magnitude1_other_yaxis1_name = Color_Magnitude1_other_yaxis1_name - s% pg% Color_Magnitude1_other_yaxis2_name = Color_Magnitude1_other_yaxis2_name - s% pg% Color_Magnitude1_other_yaxis_reversed = Color_Magnitude1_other_yaxis_reversed - s% pg% Color_Magnitude1_other_yaxis_log = Color_Magnitude1_other_yaxis_log - s% pg% Color_Magnitude1_other_ymin = Color_Magnitude1_other_ymin - s% pg% Color_Magnitude1_other_ymax = Color_Magnitude1_other_ymax - s% pg% Color_Magnitude1_other_dymin = Color_Magnitude1_other_dymin - s% pg% Color_Magnitude1_file_flag = Color_Magnitude1_file_flag - s% pg% Color_Magnitude1_file_dir = Color_Magnitude1_file_dir - s% pg% Color_Magnitude1_file_prefix = Color_Magnitude1_file_prefix - s% pg% Color_Magnitude1_file_interval = Color_Magnitude1_file_interval - s% pg% Color_Magnitude1_file_width = Color_Magnitude1_file_width - s% pg% Color_Magnitude1_file_aspect_ratio = Color_Magnitude1_file_aspect_ratio - s% pg% Color_Magnitude1_xmargin = Color_Magnitude1_xmargin - s% pg% Color_Magnitude1_ymargin = Color_Magnitude1_ymargin - s% pg% Color_Magnitude1_other_ymargin = Color_Magnitude1_other_ymargin - s% pg% Color_Magnitude1_use_decorator = Color_Magnitude1_use_decorator - - s% pg% Color_Magnitude2_win_flag = Color_Magnitude2_win_flag - s% pg% Color_Magnitude2_win_width = Color_Magnitude2_win_width - s% pg% Color_Magnitude2_win_aspect_ratio = Color_Magnitude2_win_aspect_ratio - s% pg% Color_Magnitude2_xleft = Color_Magnitude2_xleft - s% pg% Color_Magnitude2_xright = Color_Magnitude2_xright - s% pg% Color_Magnitude2_ybot = Color_Magnitude2_ybot - s% pg% Color_Magnitude2_ytop = Color_Magnitude2_ytop - s% pg% Color_Magnitude2_txt_scale = Color_Magnitude2_txt_scale - s% pg% Color_Magnitude2_title = Color_Magnitude2_title - s% pg% Color_Magnitude2_xmax = Color_Magnitude2_xmax - s% pg% Color_Magnitude2_xmin = Color_Magnitude2_xmin - s% pg% Color_Magnitude2_dxmin = Color_Magnitude2_dxmin - s% pg% Color_Magnitude2_max_width = Color_Magnitude2_max_width - s% pg% Color_Magnitude2_num_panels = Color_Magnitude2_num_panels - s% pg% Color_Magnitude2_xaxis1_name = Color_Magnitude2_xaxis1_name - s% pg% Color_Magnitude2_xaxis2_name = Color_Magnitude2_xaxis2_name - s% pg% Color_Magnitude2_yaxis1_name = Color_Magnitude2_yaxis1_name - s% pg% Color_Magnitude2_yaxis2_name = Color_Magnitude2_yaxis2_name - s% pg% Color_Magnitude2_xaxis_reversed = Color_Magnitude2_xaxis_reversed - s% pg% Color_Magnitude2_yaxis_reversed = Color_Magnitude2_yaxis_reversed - s% pg% Color_Magnitude2_xaxis_log = Color_Magnitude2_xaxis_log - s% pg% Color_Magnitude2_yaxis_log = Color_Magnitude2_yaxis_log - s% pg% Color_Magnitude2_ymin = Color_Magnitude2_ymin - s% pg% Color_Magnitude2_ymax = Color_Magnitude2_ymax - s% pg% Color_Magnitude2_dymin = Color_Magnitude2_dymin - s% pg% Color_Magnitude2_other_yaxis1_name = Color_Magnitude2_other_yaxis1_name - s% pg% Color_Magnitude2_other_yaxis2_name = Color_Magnitude2_other_yaxis2_name - s% pg% Color_Magnitude2_other_yaxis_reversed = Color_Magnitude2_other_yaxis_reversed - s% pg% Color_Magnitude2_other_yaxis_log = Color_Magnitude2_other_yaxis_log - s% pg% Color_Magnitude2_other_ymin = Color_Magnitude2_other_ymin - s% pg% Color_Magnitude2_other_ymax = Color_Magnitude2_other_ymax - s% pg% Color_Magnitude2_other_dymin = Color_Magnitude2_other_dymin - s% pg% Color_Magnitude2_file_flag = Color_Magnitude2_file_flag - s% pg% Color_Magnitude2_file_dir = Color_Magnitude2_file_dir - s% pg% Color_Magnitude2_file_prefix = Color_Magnitude2_file_prefix - s% pg% Color_Magnitude2_file_interval = Color_Magnitude2_file_interval - s% pg% Color_Magnitude2_file_width = Color_Magnitude2_file_width - s% pg% Color_Magnitude2_file_aspect_ratio = Color_Magnitude2_file_aspect_ratio - s% pg% Color_Magnitude2_xmargin = Color_Magnitude2_xmargin - s% pg% Color_Magnitude2_ymargin = Color_Magnitude2_ymargin - s% pg% Color_Magnitude2_other_ymargin = Color_Magnitude2_other_ymargin - s% pg% Color_Magnitude2_use_decorator = Color_Magnitude2_use_decorator - - s% pg% Color_Magnitude3_win_flag = Color_Magnitude3_win_flag - s% pg% Color_Magnitude3_win_width = Color_Magnitude3_win_width - s% pg% Color_Magnitude3_win_aspect_ratio = Color_Magnitude3_win_aspect_ratio - s% pg% Color_Magnitude3_xleft = Color_Magnitude3_xleft - s% pg% Color_Magnitude3_xright = Color_Magnitude3_xright - s% pg% Color_Magnitude3_ybot = Color_Magnitude3_ybot - s% pg% Color_Magnitude3_ytop = Color_Magnitude3_ytop - s% pg% Color_Magnitude3_txt_scale = Color_Magnitude3_txt_scale - s% pg% Color_Magnitude3_title = Color_Magnitude3_title - s% pg% Color_Magnitude3_xmax = Color_Magnitude3_xmax - s% pg% Color_Magnitude3_xmin = Color_Magnitude3_xmin - s% pg% Color_Magnitude3_dxmin = Color_Magnitude3_dxmin - s% pg% Color_Magnitude3_max_width = Color_Magnitude3_max_width - s% pg% Color_Magnitude3_num_panels = Color_Magnitude3_num_panels - s% pg% Color_Magnitude3_xaxis1_name = Color_Magnitude3_xaxis1_name - s% pg% Color_Magnitude3_xaxis2_name = Color_Magnitude3_xaxis2_name - s% pg% Color_Magnitude3_yaxis1_name = Color_Magnitude3_yaxis1_name - s% pg% Color_Magnitude3_yaxis2_name = Color_Magnitude3_yaxis2_name - s% pg% Color_Magnitude3_xaxis_reversed = Color_Magnitude3_xaxis_reversed - s% pg% Color_Magnitude3_yaxis_reversed = Color_Magnitude3_yaxis_reversed - s% pg% Color_Magnitude3_xaxis_log = Color_Magnitude3_xaxis_log - s% pg% Color_Magnitude3_yaxis_log = Color_Magnitude3_yaxis_log - s% pg% Color_Magnitude3_ymin = Color_Magnitude3_ymin - s% pg% Color_Magnitude3_ymax = Color_Magnitude3_ymax - s% pg% Color_Magnitude3_dymin = Color_Magnitude3_dymin - s% pg% Color_Magnitude3_other_yaxis1_name = Color_Magnitude3_other_yaxis1_name - s% pg% Color_Magnitude3_other_yaxis2_name = Color_Magnitude3_other_yaxis2_name - s% pg% Color_Magnitude3_other_yaxis_reversed = Color_Magnitude3_other_yaxis_reversed - s% pg% Color_Magnitude3_other_yaxis_log = Color_Magnitude3_other_yaxis_log - s% pg% Color_Magnitude3_other_ymin = Color_Magnitude3_other_ymin - s% pg% Color_Magnitude3_other_ymax = Color_Magnitude3_other_ymax - s% pg% Color_Magnitude3_other_dymin = Color_Magnitude3_other_dymin - s% pg% Color_Magnitude3_file_flag = Color_Magnitude3_file_flag - s% pg% Color_Magnitude3_file_dir = Color_Magnitude3_file_dir - s% pg% Color_Magnitude3_file_prefix = Color_Magnitude3_file_prefix - s% pg% Color_Magnitude3_file_interval = Color_Magnitude3_file_interval - s% pg% Color_Magnitude3_file_width = Color_Magnitude3_file_width - s% pg% Color_Magnitude3_file_aspect_ratio = Color_Magnitude3_file_aspect_ratio - s% pg% Color_Magnitude3_xmargin = Color_Magnitude3_xmargin - s% pg% Color_Magnitude3_ymargin = Color_Magnitude3_ymargin - s% pg% Color_Magnitude3_other_ymargin = Color_Magnitude3_other_ymargin - s% pg% Color_Magnitude3_use_decorator = Color_Magnitude3_use_decorator - - s% pg% Color_Magnitude4_win_flag = Color_Magnitude4_win_flag - s% pg% Color_Magnitude4_win_width = Color_Magnitude4_win_width - s% pg% Color_Magnitude4_win_aspect_ratio = Color_Magnitude4_win_aspect_ratio - s% pg% Color_Magnitude4_xleft = Color_Magnitude4_xleft - s% pg% Color_Magnitude4_xright = Color_Magnitude4_xright - s% pg% Color_Magnitude4_ybot = Color_Magnitude4_ybot - s% pg% Color_Magnitude4_ytop = Color_Magnitude4_ytop - s% pg% Color_Magnitude4_txt_scale = Color_Magnitude4_txt_scale - s% pg% Color_Magnitude4_title = Color_Magnitude4_title - s% pg% Color_Magnitude4_xmax = Color_Magnitude4_xmax - s% pg% Color_Magnitude4_xmin = Color_Magnitude4_xmin - s% pg% Color_Magnitude4_dxmin = Color_Magnitude4_dxmin - s% pg% Color_Magnitude4_max_width = Color_Magnitude4_max_width - s% pg% Color_Magnitude4_num_panels = Color_Magnitude4_num_panels - s% pg% Color_Magnitude4_xaxis1_name = Color_Magnitude4_xaxis1_name - s% pg% Color_Magnitude4_xaxis2_name = Color_Magnitude4_xaxis2_name - s% pg% Color_Magnitude4_yaxis1_name = Color_Magnitude4_yaxis1_name - s% pg% Color_Magnitude4_yaxis2_name = Color_Magnitude4_yaxis2_name - s% pg% Color_Magnitude4_xaxis_reversed = Color_Magnitude4_xaxis_reversed - s% pg% Color_Magnitude4_yaxis_reversed = Color_Magnitude4_yaxis_reversed - s% pg% Color_Magnitude4_xaxis_log = Color_Magnitude4_xaxis_log - s% pg% Color_Magnitude4_yaxis_log = Color_Magnitude4_yaxis_log - s% pg% Color_Magnitude4_ymin = Color_Magnitude4_ymin - s% pg% Color_Magnitude4_ymax = Color_Magnitude4_ymax - s% pg% Color_Magnitude4_dymin = Color_Magnitude4_dymin - s% pg% Color_Magnitude4_other_yaxis1_name = Color_Magnitude4_other_yaxis1_name - s% pg% Color_Magnitude4_other_yaxis2_name = Color_Magnitude4_other_yaxis2_name - s% pg% Color_Magnitude4_other_yaxis_reversed = Color_Magnitude4_other_yaxis_reversed - s% pg% Color_Magnitude4_other_yaxis_log = Color_Magnitude4_other_yaxis_log - s% pg% Color_Magnitude4_other_ymin = Color_Magnitude4_other_ymin - s% pg% Color_Magnitude4_other_ymax = Color_Magnitude4_other_ymax - s% pg% Color_Magnitude4_other_dymin = Color_Magnitude4_other_dymin - s% pg% Color_Magnitude4_file_flag = Color_Magnitude4_file_flag - s% pg% Color_Magnitude4_file_dir = Color_Magnitude4_file_dir - s% pg% Color_Magnitude4_file_prefix = Color_Magnitude4_file_prefix - s% pg% Color_Magnitude4_file_interval = Color_Magnitude4_file_interval - s% pg% Color_Magnitude4_file_width = Color_Magnitude4_file_width - s% pg% Color_Magnitude4_file_aspect_ratio = Color_Magnitude4_file_aspect_ratio - s% pg% Color_Magnitude4_xmargin = Color_Magnitude4_xmargin - s% pg% Color_Magnitude4_ymargin = Color_Magnitude4_ymargin - s% pg% Color_Magnitude4_other_ymargin = Color_Magnitude4_other_ymargin - s% pg% Color_Magnitude4_use_decorator = Color_Magnitude4_use_decorator - - s% pg% Color_Magnitude5_win_flag = Color_Magnitude5_win_flag - s% pg% Color_Magnitude5_win_width = Color_Magnitude5_win_width - s% pg% Color_Magnitude5_win_aspect_ratio = Color_Magnitude5_win_aspect_ratio - s% pg% Color_Magnitude5_xleft = Color_Magnitude5_xleft - s% pg% Color_Magnitude5_xright = Color_Magnitude5_xright - s% pg% Color_Magnitude5_ybot = Color_Magnitude5_ybot - s% pg% Color_Magnitude5_ytop = Color_Magnitude5_ytop - s% pg% Color_Magnitude5_txt_scale = Color_Magnitude5_txt_scale - s% pg% Color_Magnitude5_title = Color_Magnitude5_title - s% pg% Color_Magnitude5_xmax = Color_Magnitude5_xmax - s% pg% Color_Magnitude5_xmin = Color_Magnitude5_xmin - s% pg% Color_Magnitude5_dxmin = Color_Magnitude5_dxmin - s% pg% Color_Magnitude5_max_width = Color_Magnitude5_max_width - s% pg% Color_Magnitude5_num_panels = Color_Magnitude5_num_panels - s% pg% Color_Magnitude5_xaxis1_name = Color_Magnitude5_xaxis1_name - s% pg% Color_Magnitude5_xaxis2_name = Color_Magnitude5_xaxis2_name - s% pg% Color_Magnitude5_yaxis1_name = Color_Magnitude5_yaxis1_name - s% pg% Color_Magnitude5_yaxis2_name = Color_Magnitude5_yaxis2_name - s% pg% Color_Magnitude5_xaxis_reversed = Color_Magnitude5_xaxis_reversed - s% pg% Color_Magnitude5_yaxis_reversed = Color_Magnitude5_yaxis_reversed - s% pg% Color_Magnitude5_xaxis_log = Color_Magnitude5_xaxis_log - s% pg% Color_Magnitude5_yaxis_log = Color_Magnitude5_yaxis_log - s% pg% Color_Magnitude5_ymin = Color_Magnitude5_ymin - s% pg% Color_Magnitude5_ymax = Color_Magnitude5_ymax - s% pg% Color_Magnitude5_dymin = Color_Magnitude5_dymin - s% pg% Color_Magnitude5_other_yaxis1_name = Color_Magnitude5_other_yaxis1_name - s% pg% Color_Magnitude5_other_yaxis2_name = Color_Magnitude5_other_yaxis2_name - s% pg% Color_Magnitude5_other_yaxis_reversed = Color_Magnitude5_other_yaxis_reversed - s% pg% Color_Magnitude5_other_yaxis_log = Color_Magnitude5_other_yaxis_log - s% pg% Color_Magnitude5_other_ymin = Color_Magnitude5_other_ymin - s% pg% Color_Magnitude5_other_ymax = Color_Magnitude5_other_ymax - s% pg% Color_Magnitude5_other_dymin = Color_Magnitude5_other_dymin - s% pg% Color_Magnitude5_file_flag = Color_Magnitude5_file_flag - s% pg% Color_Magnitude5_file_dir = Color_Magnitude5_file_dir - s% pg% Color_Magnitude5_file_prefix = Color_Magnitude5_file_prefix - s% pg% Color_Magnitude5_file_interval = Color_Magnitude5_file_interval - s% pg% Color_Magnitude5_file_width = Color_Magnitude5_file_width - s% pg% Color_Magnitude5_file_aspect_ratio = Color_Magnitude5_file_aspect_ratio - s% pg% Color_Magnitude5_xmargin = Color_Magnitude5_xmargin - s% pg% Color_Magnitude5_ymargin = Color_Magnitude5_ymargin - s% pg% Color_Magnitude5_other_ymargin = Color_Magnitude5_other_ymargin - s% pg% Color_Magnitude5_use_decorator = Color_Magnitude5_use_decorator - - s% pg% Color_Magnitude6_win_flag = Color_Magnitude6_win_flag - s% pg% Color_Magnitude6_win_width = Color_Magnitude6_win_width - s% pg% Color_Magnitude6_win_aspect_ratio = Color_Magnitude6_win_aspect_ratio - s% pg% Color_Magnitude6_xleft = Color_Magnitude6_xleft - s% pg% Color_Magnitude6_xright = Color_Magnitude6_xright - s% pg% Color_Magnitude6_ybot = Color_Magnitude6_ybot - s% pg% Color_Magnitude6_ytop = Color_Magnitude6_ytop - s% pg% Color_Magnitude6_txt_scale = Color_Magnitude6_txt_scale - s% pg% Color_Magnitude6_title = Color_Magnitude6_title - s% pg% Color_Magnitude6_xmax = Color_Magnitude6_xmax - s% pg% Color_Magnitude6_xmin = Color_Magnitude6_xmin - s% pg% Color_Magnitude6_dxmin = Color_Magnitude6_dxmin - s% pg% Color_Magnitude6_max_width = Color_Magnitude6_max_width - s% pg% Color_Magnitude6_num_panels = Color_Magnitude6_num_panels - s% pg% Color_Magnitude6_xaxis1_name = Color_Magnitude6_xaxis1_name - s% pg% Color_Magnitude6_xaxis2_name = Color_Magnitude6_xaxis2_name - s% pg% Color_Magnitude6_yaxis1_name = Color_Magnitude6_yaxis1_name - s% pg% Color_Magnitude6_yaxis2_name = Color_Magnitude6_yaxis2_name - s% pg% Color_Magnitude6_xaxis_reversed = Color_Magnitude6_xaxis_reversed - s% pg% Color_Magnitude6_yaxis_reversed = Color_Magnitude6_yaxis_reversed - s% pg% Color_Magnitude6_xaxis_log = Color_Magnitude6_xaxis_log - s% pg% Color_Magnitude6_yaxis_log = Color_Magnitude6_yaxis_log - s% pg% Color_Magnitude6_ymin = Color_Magnitude6_ymin - s% pg% Color_Magnitude6_ymax = Color_Magnitude6_ymax - s% pg% Color_Magnitude6_dymin = Color_Magnitude6_dymin - s% pg% Color_Magnitude6_other_yaxis1_name = Color_Magnitude6_other_yaxis1_name - s% pg% Color_Magnitude6_other_yaxis2_name = Color_Magnitude6_other_yaxis2_name - s% pg% Color_Magnitude6_other_yaxis_reversed = Color_Magnitude6_other_yaxis_reversed - s% pg% Color_Magnitude6_other_yaxis_log = Color_Magnitude6_other_yaxis_log - s% pg% Color_Magnitude6_other_ymin = Color_Magnitude6_other_ymin - s% pg% Color_Magnitude6_other_ymax = Color_Magnitude6_other_ymax - s% pg% Color_Magnitude6_other_dymin = Color_Magnitude6_other_dymin - s% pg% Color_Magnitude6_file_flag = Color_Magnitude6_file_flag - s% pg% Color_Magnitude6_file_dir = Color_Magnitude6_file_dir - s% pg% Color_Magnitude6_file_prefix = Color_Magnitude6_file_prefix - s% pg% Color_Magnitude6_file_interval = Color_Magnitude6_file_interval - s% pg% Color_Magnitude6_file_width = Color_Magnitude6_file_width - s% pg% Color_Magnitude6_file_aspect_ratio = Color_Magnitude6_file_aspect_ratio - s% pg% Color_Magnitude6_xmargin = Color_Magnitude6_xmargin - s% pg% Color_Magnitude6_ymargin = Color_Magnitude6_ymargin - s% pg% Color_Magnitude6_other_ymargin = Color_Magnitude6_other_ymargin - s% pg% Color_Magnitude6_use_decorator = Color_Magnitude6_use_decorator - - s% pg% Color_Magnitude7_win_flag = Color_Magnitude7_win_flag - s% pg% Color_Magnitude7_win_width = Color_Magnitude7_win_width - s% pg% Color_Magnitude7_win_aspect_ratio = Color_Magnitude7_win_aspect_ratio - s% pg% Color_Magnitude7_xleft = Color_Magnitude7_xleft - s% pg% Color_Magnitude7_xright = Color_Magnitude7_xright - s% pg% Color_Magnitude7_ybot = Color_Magnitude7_ybot - s% pg% Color_Magnitude7_ytop = Color_Magnitude7_ytop - s% pg% Color_Magnitude7_txt_scale = Color_Magnitude7_txt_scale - s% pg% Color_Magnitude7_title = Color_Magnitude7_title - s% pg% Color_Magnitude7_xmax = Color_Magnitude7_xmax - s% pg% Color_Magnitude7_xmin = Color_Magnitude7_xmin - s% pg% Color_Magnitude7_dxmin = Color_Magnitude7_dxmin - s% pg% Color_Magnitude7_max_width = Color_Magnitude7_max_width - s% pg% Color_Magnitude7_num_panels = Color_Magnitude7_num_panels - s% pg% Color_Magnitude7_xaxis1_name = Color_Magnitude7_xaxis1_name - s% pg% Color_Magnitude7_xaxis2_name = Color_Magnitude7_xaxis2_name - s% pg% Color_Magnitude7_yaxis1_name = Color_Magnitude7_yaxis1_name - s% pg% Color_Magnitude7_yaxis2_name = Color_Magnitude7_yaxis2_name - s% pg% Color_Magnitude7_xaxis_reversed = Color_Magnitude7_xaxis_reversed - s% pg% Color_Magnitude7_yaxis_reversed = Color_Magnitude7_yaxis_reversed - s% pg% Color_Magnitude7_xaxis_log = Color_Magnitude7_xaxis_log - s% pg% Color_Magnitude7_yaxis_log = Color_Magnitude7_yaxis_log - s% pg% Color_Magnitude7_ymin = Color_Magnitude7_ymin - s% pg% Color_Magnitude7_ymax = Color_Magnitude7_ymax - s% pg% Color_Magnitude7_dymin = Color_Magnitude7_dymin - s% pg% Color_Magnitude7_other_yaxis1_name = Color_Magnitude7_other_yaxis1_name - s% pg% Color_Magnitude7_other_yaxis2_name = Color_Magnitude7_other_yaxis2_name - s% pg% Color_Magnitude7_other_yaxis_reversed = Color_Magnitude7_other_yaxis_reversed - s% pg% Color_Magnitude7_other_yaxis_log = Color_Magnitude7_other_yaxis_log - s% pg% Color_Magnitude7_other_ymin = Color_Magnitude7_other_ymin - s% pg% Color_Magnitude7_other_ymax = Color_Magnitude7_other_ymax - s% pg% Color_Magnitude7_other_dymin = Color_Magnitude7_other_dymin - s% pg% Color_Magnitude7_file_flag = Color_Magnitude7_file_flag - s% pg% Color_Magnitude7_file_dir = Color_Magnitude7_file_dir - s% pg% Color_Magnitude7_file_prefix = Color_Magnitude7_file_prefix - s% pg% Color_Magnitude7_file_interval = Color_Magnitude7_file_interval - s% pg% Color_Magnitude7_file_width = Color_Magnitude7_file_width - s% pg% Color_Magnitude7_file_aspect_ratio = Color_Magnitude7_file_aspect_ratio - s% pg% Color_Magnitude7_xmargin = Color_Magnitude7_xmargin - s% pg% Color_Magnitude7_ymargin = Color_Magnitude7_ymargin - s% pg% Color_Magnitude7_other_ymargin = Color_Magnitude7_other_ymargin - s% pg% Color_Magnitude7_use_decorator = Color_Magnitude7_use_decorator - - s% pg% Color_Magnitude8_win_flag = Color_Magnitude8_win_flag - s% pg% Color_Magnitude8_win_width = Color_Magnitude8_win_width - s% pg% Color_Magnitude8_win_aspect_ratio = Color_Magnitude8_win_aspect_ratio - s% pg% Color_Magnitude8_xleft = Color_Magnitude8_xleft - s% pg% Color_Magnitude8_xright = Color_Magnitude8_xright - s% pg% Color_Magnitude8_ybot = Color_Magnitude8_ybot - s% pg% Color_Magnitude8_ytop = Color_Magnitude8_ytop - s% pg% Color_Magnitude8_txt_scale = Color_Magnitude8_txt_scale - s% pg% Color_Magnitude8_title = Color_Magnitude8_title - s% pg% Color_Magnitude8_xmax = Color_Magnitude8_xmax - s% pg% Color_Magnitude8_xmin = Color_Magnitude8_xmin - s% pg% Color_Magnitude8_dxmin = Color_Magnitude8_dxmin - s% pg% Color_Magnitude8_max_width = Color_Magnitude8_max_width - s% pg% Color_Magnitude8_num_panels = Color_Magnitude8_num_panels - s% pg% Color_Magnitude8_xaxis1_name = Color_Magnitude8_xaxis1_name - s% pg% Color_Magnitude8_xaxis2_name = Color_Magnitude8_xaxis2_name - s% pg% Color_Magnitude8_yaxis1_name = Color_Magnitude8_yaxis1_name - s% pg% Color_Magnitude8_yaxis2_name = Color_Magnitude8_yaxis2_name - s% pg% Color_Magnitude8_xaxis_reversed = Color_Magnitude8_xaxis_reversed - s% pg% Color_Magnitude8_yaxis_reversed = Color_Magnitude8_yaxis_reversed - s% pg% Color_Magnitude8_xaxis_log = Color_Magnitude8_xaxis_log - s% pg% Color_Magnitude8_yaxis_log = Color_Magnitude8_yaxis_log - s% pg% Color_Magnitude8_ymin = Color_Magnitude8_ymin - s% pg% Color_Magnitude8_ymax = Color_Magnitude8_ymax - s% pg% Color_Magnitude8_dymin = Color_Magnitude8_dymin - s% pg% Color_Magnitude8_other_yaxis1_name = Color_Magnitude8_other_yaxis1_name - s% pg% Color_Magnitude8_other_yaxis2_name = Color_Magnitude8_other_yaxis2_name - s% pg% Color_Magnitude8_other_yaxis_reversed = Color_Magnitude8_other_yaxis_reversed - s% pg% Color_Magnitude8_other_yaxis_log = Color_Magnitude8_other_yaxis_log - s% pg% Color_Magnitude8_other_ymin = Color_Magnitude8_other_ymin - s% pg% Color_Magnitude8_other_ymax = Color_Magnitude8_other_ymax - s% pg% Color_Magnitude8_other_dymin = Color_Magnitude8_other_dymin - s% pg% Color_Magnitude8_file_flag = Color_Magnitude8_file_flag - s% pg% Color_Magnitude8_file_dir = Color_Magnitude8_file_dir - s% pg% Color_Magnitude8_file_prefix = Color_Magnitude8_file_prefix - s% pg% Color_Magnitude8_file_interval = Color_Magnitude8_file_interval - s% pg% Color_Magnitude8_file_width = Color_Magnitude8_file_width - s% pg% Color_Magnitude8_file_aspect_ratio = Color_Magnitude8_file_aspect_ratio - s% pg% Color_Magnitude8_xmargin = Color_Magnitude8_xmargin - s% pg% Color_Magnitude8_ymargin = Color_Magnitude8_ymargin - s% pg% Color_Magnitude8_other_ymargin = Color_Magnitude8_other_ymargin - s% pg% Color_Magnitude8_use_decorator = Color_Magnitude8_use_decorator - - s% pg% Color_Magnitude9_win_flag = Color_Magnitude9_win_flag - s% pg% Color_Magnitude9_win_width = Color_Magnitude9_win_width - s% pg% Color_Magnitude9_win_aspect_ratio = Color_Magnitude9_win_aspect_ratio - s% pg% Color_Magnitude9_xleft = Color_Magnitude9_xleft - s% pg% Color_Magnitude9_xright = Color_Magnitude9_xright - s% pg% Color_Magnitude9_ybot = Color_Magnitude9_ybot - s% pg% Color_Magnitude9_ytop = Color_Magnitude9_ytop - s% pg% Color_Magnitude9_txt_scale = Color_Magnitude9_txt_scale - s% pg% Color_Magnitude9_title = Color_Magnitude9_title - s% pg% Color_Magnitude9_xmax = Color_Magnitude9_xmax - s% pg% Color_Magnitude9_xmin = Color_Magnitude9_xmin - s% pg% Color_Magnitude9_dxmin = Color_Magnitude9_dxmin - s% pg% Color_Magnitude9_max_width = Color_Magnitude9_max_width - s% pg% Color_Magnitude9_num_panels = Color_Magnitude9_num_panels - s% pg% Color_Magnitude9_xaxis1_name = Color_Magnitude9_xaxis1_name - s% pg% Color_Magnitude9_xaxis2_name = Color_Magnitude9_xaxis2_name - s% pg% Color_Magnitude9_yaxis1_name = Color_Magnitude9_yaxis1_name - s% pg% Color_Magnitude9_yaxis2_name = Color_Magnitude9_yaxis2_name - s% pg% Color_Magnitude9_xaxis_reversed = Color_Magnitude9_xaxis_reversed - s% pg% Color_Magnitude9_yaxis_reversed = Color_Magnitude9_yaxis_reversed - s% pg% Color_Magnitude9_xaxis_log = Color_Magnitude9_xaxis_log - s% pg% Color_Magnitude9_yaxis_log = Color_Magnitude9_yaxis_log - s% pg% Color_Magnitude9_ymin = Color_Magnitude9_ymin - s% pg% Color_Magnitude9_ymax = Color_Magnitude9_ymax - s% pg% Color_Magnitude9_dymin = Color_Magnitude9_dymin - s% pg% Color_Magnitude9_other_yaxis1_name = Color_Magnitude9_other_yaxis1_name - s% pg% Color_Magnitude9_other_yaxis2_name = Color_Magnitude9_other_yaxis2_name - s% pg% Color_Magnitude9_other_yaxis_reversed = Color_Magnitude9_other_yaxis_reversed - s% pg% Color_Magnitude9_other_yaxis_log = Color_Magnitude9_other_yaxis_log - s% pg% Color_Magnitude9_other_ymin = Color_Magnitude9_other_ymin - s% pg% Color_Magnitude9_other_ymax = Color_Magnitude9_other_ymax - s% pg% Color_Magnitude9_other_dymin = Color_Magnitude9_other_dymin - s% pg% Color_Magnitude9_file_flag = Color_Magnitude9_file_flag - s% pg% Color_Magnitude9_file_dir = Color_Magnitude9_file_dir - s% pg% Color_Magnitude9_file_prefix = Color_Magnitude9_file_prefix - s% pg% Color_Magnitude9_file_interval = Color_Magnitude9_file_interval - s% pg% Color_Magnitude9_file_width = Color_Magnitude9_file_width - s% pg% Color_Magnitude9_file_aspect_ratio = Color_Magnitude9_file_aspect_ratio - s% pg% Color_Magnitude9_xmargin = Color_Magnitude9_xmargin - s% pg% Color_Magnitude9_ymargin = Color_Magnitude9_ymargin - s% pg% Color_Magnitude9_other_ymargin = Color_Magnitude9_other_ymargin - s% pg% Color_Magnitude9_use_decorator = Color_Magnitude9_use_decorator - + s% pg% Color_Magnitude_win_flag = Color_Magnitude_win_flag + s% pg% Color_Magnitude_win_width = Color_Magnitude_win_width + s% pg% Color_Magnitude_win_aspect_ratio = Color_Magnitude_win_aspect_ratio + s% pg% Color_Magnitude_xleft = Color_Magnitude_xleft + s% pg% Color_Magnitude_xright = Color_Magnitude_xright + s% pg% Color_Magnitude_ybot = Color_Magnitude_ybot + s% pg% Color_Magnitude_ytop = Color_Magnitude_ytop + s% pg% Color_Magnitude_txt_scale = Color_Magnitude_txt_scale + s% pg% Color_Magnitude_title = Color_Magnitude_title + s% pg% Color_Magnitude_xmax = Color_Magnitude_xmax + s% pg% Color_Magnitude_xmin = Color_Magnitude_xmin + s% pg% Color_Magnitude_dxmin = Color_Magnitude_dxmin + s% pg% Color_Magnitude_max_width = Color_Magnitude_max_width + s% pg% Color_Magnitude_num_panels = Color_Magnitude_num_panels + s% pg% Color_Magnitude_xaxis1_name = Color_Magnitude_xaxis1_name + s% pg% Color_Magnitude_xaxis2_name = Color_Magnitude_xaxis2_name + s% pg% Color_Magnitude_yaxis1_name = Color_Magnitude_yaxis1_name + s% pg% Color_Magnitude_yaxis2_name = Color_Magnitude_yaxis2_name + s% pg% Color_Magnitude_xaxis_reversed = Color_Magnitude_xaxis_reversed + s% pg% Color_Magnitude_yaxis_reversed = Color_Magnitude_yaxis_reversed + s% pg% Color_Magnitude_xaxis_log = Color_Magnitude_xaxis_log + s% pg% Color_Magnitude_yaxis_log = Color_Magnitude_yaxis_log + s% pg% Color_Magnitude_ymin = Color_Magnitude_ymin + s% pg% Color_Magnitude_ymax = Color_Magnitude_ymax + s% pg% Color_Magnitude_dymin = Color_Magnitude_dymin + s% pg% Color_Magnitude_other_yaxis1_name = Color_Magnitude_other_yaxis1_name + s% pg% Color_Magnitude_other_yaxis2_name = Color_Magnitude_other_yaxis2_name + s% pg% Color_Magnitude_other_yaxis_reversed = Color_Magnitude_other_yaxis_reversed + s% pg% Color_Magnitude_other_yaxis_log = Color_Magnitude_other_yaxis_log + s% pg% Color_Magnitude_other_ymin = Color_Magnitude_other_ymin + s% pg% Color_Magnitude_other_ymax = Color_Magnitude_other_ymax + s% pg% Color_Magnitude_other_dymin = Color_Magnitude_other_dymin + s% pg% Color_Magnitude_file_flag = Color_Magnitude_file_flag + s% pg% Color_Magnitude_file_dir = Color_Magnitude_file_dir + s% pg% Color_Magnitude_file_prefix = Color_Magnitude_file_prefix + s% pg% Color_Magnitude_file_interval = Color_Magnitude_file_interval + s% pg% Color_Magnitude_file_width = Color_Magnitude_file_width + s% pg% Color_Magnitude_file_aspect_ratio = Color_Magnitude_file_aspect_ratio + s% pg% Color_Magnitude_xmargin = Color_Magnitude_xmargin + s% pg% Color_Magnitude_ymargin = Color_Magnitude_ymargin + s% pg% Color_Magnitude_other_ymargin = Color_Magnitude_other_ymargin + s% pg% Color_Magnitude_use_decorator = Color_Magnitude_use_decorator s% pg% Mode_Prop_win_flag = Mode_Prop_win_flag s% pg% Mode_Prop_file_flag = Mode_Prop_file_flag @@ -5963,258 +2563,33 @@ subroutine store_pgstar_controls(s, ierr) s% pg% dPg_dnu_file_aspect_ratio = dPg_dnu_file_aspect_ratio s% pg% dPg_dnu_use_decorator = dPg_dnu_use_decorator - s% pg% Grid1_win_flag = Grid1_win_flag - s% pg% Grid1_win_width = Grid1_win_width - s% pg% Grid1_win_aspect_ratio = Grid1_win_aspect_ratio - s% pg% Grid1_xleft = Grid1_xleft - s% pg% Grid1_xright = Grid1_xright - s% pg% Grid1_ybot = Grid1_ybot - s% pg% Grid1_ytop = Grid1_ytop - s% pg% Grid1_title = Grid1_title - s% pg% Grid1_txt_scale_factor = Grid1_txt_scale_factor - s% pg% Grid1_num_cols = Grid1_num_cols - s% pg% Grid1_num_rows = Grid1_num_rows - s% pg% Grid1_num_plots = Grid1_num_plots - s% pg% Grid1_plot_name = Grid1_plot_name - s% pg% Grid1_plot_row = Grid1_plot_row - s% pg% Grid1_plot_rowspan = Grid1_plot_rowspan - s% pg% Grid1_plot_col = Grid1_plot_col - s% pg% Grid1_plot_colspan = Grid1_plot_colspan - s% pg% Grid1_plot_pad_left = Grid1_plot_pad_left - s% pg% Grid1_plot_pad_right = Grid1_plot_pad_right - s% pg% Grid1_plot_pad_top = Grid1_plot_pad_top - s% pg% Grid1_plot_pad_bot = Grid1_plot_pad_bot - s% pg% Grid1_file_flag = Grid1_file_flag - s% pg% Grid1_file_dir = Grid1_file_dir - s% pg% Grid1_file_prefix = Grid1_file_prefix - s% pg% Grid1_file_interval = Grid1_file_interval - s% pg% Grid1_file_width = Grid1_file_width - s% pg% Grid1_file_aspect_ratio = Grid1_file_aspect_ratio - - s% pg% Grid2_win_flag = Grid2_win_flag - s% pg% Grid2_win_width = Grid2_win_width - s% pg% Grid2_win_aspect_ratio = Grid2_win_aspect_ratio - s% pg% Grid2_xleft = Grid2_xleft - s% pg% Grid2_xright = Grid2_xright - s% pg% Grid2_ybot = Grid2_ybot - s% pg% Grid2_ytop = Grid2_ytop - s% pg% Grid2_title = Grid2_title - s% pg% Grid2_txt_scale_factor = Grid2_txt_scale_factor - s% pg% Grid2_num_cols = Grid2_num_cols - s% pg% Grid2_num_rows = Grid2_num_rows - s% pg% Grid2_num_plots = Grid2_num_plots - s% pg% Grid2_plot_name = Grid2_plot_name - s% pg% Grid2_plot_row = Grid2_plot_row - s% pg% Grid2_plot_rowspan = Grid2_plot_rowspan - s% pg% Grid2_plot_col = Grid2_plot_col - s% pg% Grid2_plot_colspan = Grid2_plot_colspan - s% pg% Grid2_plot_pad_left = Grid2_plot_pad_left - s% pg% Grid2_plot_pad_right = Grid2_plot_pad_right - s% pg% Grid2_plot_pad_top = Grid2_plot_pad_top - s% pg% Grid2_plot_pad_bot = Grid2_plot_pad_bot - s% pg% Grid2_file_flag = Grid2_file_flag - s% pg% Grid2_file_dir = Grid2_file_dir - s% pg% Grid2_file_prefix = Grid2_file_prefix - s% pg% Grid2_file_interval = Grid2_file_interval - s% pg% Grid2_file_width = Grid2_file_width - s% pg% Grid2_file_aspect_ratio = Grid2_file_aspect_ratio - - s% pg% Grid3_win_flag = Grid3_win_flag - s% pg% Grid3_win_width = Grid3_win_width - s% pg% Grid3_win_aspect_ratio = Grid3_win_aspect_ratio - s% pg% Grid3_xleft = Grid3_xleft - s% pg% Grid3_xright = Grid3_xright - s% pg% Grid3_ybot = Grid3_ybot - s% pg% Grid3_ytop = Grid3_ytop - s% pg% Grid3_title = Grid3_title - s% pg% Grid3_txt_scale_factor = Grid3_txt_scale_factor - s% pg% Grid3_num_cols = Grid3_num_cols - s% pg% Grid3_num_rows = Grid3_num_rows - s% pg% Grid3_num_plots = Grid3_num_plots - s% pg% Grid3_plot_name = Grid3_plot_name - s% pg% Grid3_plot_row = Grid3_plot_row - s% pg% Grid3_plot_rowspan = Grid3_plot_rowspan - s% pg% Grid3_plot_col = Grid3_plot_col - s% pg% Grid3_plot_colspan = Grid3_plot_colspan - s% pg% Grid3_plot_pad_left = Grid3_plot_pad_left - s% pg% Grid3_plot_pad_right = Grid3_plot_pad_right - s% pg% Grid3_plot_pad_top = Grid3_plot_pad_top - s% pg% Grid3_plot_pad_bot = Grid3_plot_pad_bot - s% pg% Grid3_file_flag = Grid3_file_flag - s% pg% Grid3_file_dir = Grid3_file_dir - s% pg% Grid3_file_prefix = Grid3_file_prefix - s% pg% Grid3_file_interval = Grid3_file_interval - s% pg% Grid3_file_width = Grid3_file_width - s% pg% Grid3_file_aspect_ratio = Grid3_file_aspect_ratio - - s% pg% Grid4_win_flag = Grid4_win_flag - s% pg% Grid4_win_width = Grid4_win_width - s% pg% Grid4_win_aspect_ratio = Grid4_win_aspect_ratio - s% pg% Grid4_xleft = Grid4_xleft - s% pg% Grid4_xright = Grid4_xright - s% pg% Grid4_ybot = Grid4_ybot - s% pg% Grid4_ytop = Grid4_ytop - s% pg% Grid4_title = Grid4_title - s% pg% Grid4_txt_scale_factor = Grid4_txt_scale_factor - s% pg% Grid4_num_cols = Grid4_num_cols - s% pg% Grid4_num_rows = Grid4_num_rows - s% pg% Grid4_num_plots = Grid4_num_plots - s% pg% Grid4_plot_name = Grid4_plot_name - s% pg% Grid4_plot_row = Grid4_plot_row - s% pg% Grid4_plot_rowspan = Grid4_plot_rowspan - s% pg% Grid4_plot_col = Grid4_plot_col - s% pg% Grid4_plot_colspan = Grid4_plot_colspan - s% pg% Grid4_plot_pad_left = Grid4_plot_pad_left - s% pg% Grid4_plot_pad_right = Grid4_plot_pad_right - s% pg% Grid4_plot_pad_top = Grid4_plot_pad_top - s% pg% Grid4_plot_pad_bot = Grid4_plot_pad_bot - s% pg% Grid4_file_flag = Grid4_file_flag - s% pg% Grid4_file_dir = Grid4_file_dir - s% pg% Grid4_file_prefix = Grid4_file_prefix - s% pg% Grid4_file_interval = Grid4_file_interval - s% pg% Grid4_file_width = Grid4_file_width - s% pg% Grid4_file_aspect_ratio = Grid4_file_aspect_ratio - - s% pg% Grid5_win_flag = Grid5_win_flag - s% pg% Grid5_win_width = Grid5_win_width - s% pg% Grid5_win_aspect_ratio = Grid5_win_aspect_ratio - s% pg% Grid5_xleft = Grid5_xleft - s% pg% Grid5_xright = Grid5_xright - s% pg% Grid5_ybot = Grid5_ybot - s% pg% Grid5_ytop = Grid5_ytop - s% pg% Grid5_title = Grid5_title - s% pg% Grid5_txt_scale_factor = Grid5_txt_scale_factor - s% pg% Grid5_num_cols = Grid5_num_cols - s% pg% Grid5_num_rows = Grid5_num_rows - s% pg% Grid5_num_plots = Grid5_num_plots - s% pg% Grid5_plot_name = Grid5_plot_name - s% pg% Grid5_plot_row = Grid5_plot_row - s% pg% Grid5_plot_rowspan = Grid5_plot_rowspan - s% pg% Grid5_plot_col = Grid5_plot_col - s% pg% Grid5_plot_colspan = Grid5_plot_colspan - s% pg% Grid5_plot_pad_left = Grid5_plot_pad_left - s% pg% Grid5_plot_pad_right = Grid5_plot_pad_right - s% pg% Grid5_plot_pad_top = Grid5_plot_pad_top - s% pg% Grid5_plot_pad_bot = Grid5_plot_pad_bot - s% pg% Grid5_file_flag = Grid5_file_flag - s% pg% Grid5_file_dir = Grid5_file_dir - s% pg% Grid5_file_prefix = Grid5_file_prefix - s% pg% Grid5_file_interval = Grid5_file_interval - s% pg% Grid5_file_width = Grid5_file_width - s% pg% Grid5_file_aspect_ratio = Grid5_file_aspect_ratio - - s% pg% Grid6_win_flag = Grid6_win_flag - s% pg% Grid6_win_width = Grid6_win_width - s% pg% Grid6_win_aspect_ratio = Grid6_win_aspect_ratio - s% pg% Grid6_xleft = Grid6_xleft - s% pg% Grid6_xright = Grid6_xright - s% pg% Grid6_ybot = Grid6_ybot - s% pg% Grid6_ytop = Grid6_ytop - s% pg% Grid6_title = Grid6_title - s% pg% Grid6_txt_scale_factor = Grid6_txt_scale_factor - s% pg% Grid6_num_cols = Grid6_num_cols - s% pg% Grid6_num_rows = Grid6_num_rows - s% pg% Grid6_num_plots = Grid6_num_plots - s% pg% Grid6_plot_name = Grid6_plot_name - s% pg% Grid6_plot_row = Grid6_plot_row - s% pg% Grid6_plot_rowspan = Grid6_plot_rowspan - s% pg% Grid6_plot_col = Grid6_plot_col - s% pg% Grid6_plot_colspan = Grid6_plot_colspan - s% pg% Grid6_plot_pad_left = Grid6_plot_pad_left - s% pg% Grid6_plot_pad_right = Grid6_plot_pad_right - s% pg% Grid6_plot_pad_top = Grid6_plot_pad_top - s% pg% Grid6_plot_pad_bot = Grid6_plot_pad_bot - s% pg% Grid6_file_flag = Grid6_file_flag - s% pg% Grid6_file_dir = Grid6_file_dir - s% pg% Grid6_file_prefix = Grid6_file_prefix - s% pg% Grid6_file_interval = Grid6_file_interval - s% pg% Grid6_file_width = Grid6_file_width - s% pg% Grid6_file_aspect_ratio = Grid6_file_aspect_ratio - - s% pg% Grid7_win_flag = Grid7_win_flag - s% pg% Grid7_win_width = Grid7_win_width - s% pg% Grid7_win_aspect_ratio = Grid7_win_aspect_ratio - s% pg% Grid7_xleft = Grid7_xleft - s% pg% Grid7_xright = Grid7_xright - s% pg% Grid7_ybot = Grid7_ybot - s% pg% Grid7_ytop = Grid7_ytop - s% pg% Grid7_title = Grid7_title - s% pg% Grid7_txt_scale_factor = Grid7_txt_scale_factor - s% pg% Grid7_num_cols = Grid7_num_cols - s% pg% Grid7_num_rows = Grid7_num_rows - s% pg% Grid7_num_plots = Grid7_num_plots - s% pg% Grid7_plot_name = Grid7_plot_name - s% pg% Grid7_plot_row = Grid7_plot_row - s% pg% Grid7_plot_rowspan = Grid7_plot_rowspan - s% pg% Grid7_plot_col = Grid7_plot_col - s% pg% Grid7_plot_colspan = Grid7_plot_colspan - s% pg% Grid7_plot_pad_left = Grid7_plot_pad_left - s% pg% Grid7_plot_pad_right = Grid7_plot_pad_right - s% pg% Grid7_plot_pad_top = Grid7_plot_pad_top - s% pg% Grid7_plot_pad_bot = Grid7_plot_pad_bot - s% pg% Grid7_file_flag = Grid7_file_flag - s% pg% Grid7_file_dir = Grid7_file_dir - s% pg% Grid7_file_prefix = Grid7_file_prefix - s% pg% Grid7_file_interval = Grid7_file_interval - s% pg% Grid7_file_width = Grid7_file_width - s% pg% Grid7_file_aspect_ratio = Grid7_file_aspect_ratio - - s% pg% Grid8_win_flag = Grid8_win_flag - s% pg% Grid8_win_width = Grid8_win_width - s% pg% Grid8_win_aspect_ratio = Grid8_win_aspect_ratio - s% pg% Grid8_xleft = Grid8_xleft - s% pg% Grid8_xright = Grid8_xright - s% pg% Grid8_ybot = Grid8_ybot - s% pg% Grid8_ytop = Grid8_ytop - s% pg% Grid8_title = Grid8_title - s% pg% Grid8_txt_scale_factor = Grid8_txt_scale_factor - s% pg% Grid8_num_cols = Grid8_num_cols - s% pg% Grid8_num_rows = Grid8_num_rows - s% pg% Grid8_num_plots = Grid8_num_plots - s% pg% Grid8_plot_name = Grid8_plot_name - s% pg% Grid8_plot_row = Grid8_plot_row - s% pg% Grid8_plot_rowspan = Grid8_plot_rowspan - s% pg% Grid8_plot_col = Grid8_plot_col - s% pg% Grid8_plot_colspan = Grid8_plot_colspan - s% pg% Grid8_plot_pad_left = Grid8_plot_pad_left - s% pg% Grid8_plot_pad_right = Grid8_plot_pad_right - s% pg% Grid8_plot_pad_top = Grid8_plot_pad_top - s% pg% Grid8_plot_pad_bot = Grid8_plot_pad_bot - s% pg% Grid8_file_flag = Grid8_file_flag - s% pg% Grid8_file_dir = Grid8_file_dir - s% pg% Grid8_file_prefix = Grid8_file_prefix - s% pg% Grid8_file_interval = Grid8_file_interval - s% pg% Grid8_file_width = Grid8_file_width - s% pg% Grid8_file_aspect_ratio = Grid8_file_aspect_ratio - - s% pg% Grid9_win_flag = Grid9_win_flag - s% pg% Grid9_win_width = Grid9_win_width - s% pg% Grid9_win_aspect_ratio = Grid9_win_aspect_ratio - s% pg% Grid9_xleft = Grid9_xleft - s% pg% Grid9_xright = Grid9_xright - s% pg% Grid9_ybot = Grid9_ybot - s% pg% Grid9_ytop = Grid9_ytop - s% pg% Grid9_title = Grid9_title - s% pg% Grid9_txt_scale_factor = Grid9_txt_scale_factor - s% pg% Grid9_num_cols = Grid9_num_cols - s% pg% Grid9_num_rows = Grid9_num_rows - s% pg% Grid9_num_plots = Grid9_num_plots - s% pg% Grid9_plot_name = Grid9_plot_name - s% pg% Grid9_plot_row = Grid9_plot_row - s% pg% Grid9_plot_rowspan = Grid9_plot_rowspan - s% pg% Grid9_plot_col = Grid9_plot_col - s% pg% Grid9_plot_colspan = Grid9_plot_colspan - s% pg% Grid9_plot_pad_left = Grid9_plot_pad_left - s% pg% Grid9_plot_pad_right = Grid9_plot_pad_right - s% pg% Grid9_plot_pad_top = Grid9_plot_pad_top - s% pg% Grid9_plot_pad_bot = Grid9_plot_pad_bot - s% pg% Grid9_file_flag = Grid9_file_flag - s% pg% Grid9_file_dir = Grid9_file_dir - s% pg% Grid9_file_prefix = Grid9_file_prefix - s% pg% Grid9_file_interval = Grid9_file_interval - s% pg% Grid9_file_width = Grid9_file_width - s% pg% Grid9_file_aspect_ratio = Grid9_file_aspect_ratio - + s% pg% Grid_win_flag = Grid_win_flag + s% pg% Grid_win_width = Grid_win_width + s% pg% Grid_win_aspect_ratio = Grid_win_aspect_ratio + s% pg% Grid_xleft = Grid_xleft + s% pg% Grid_xright = Grid_xright + s% pg% Grid_ybot = Grid_ybot + s% pg% Grid_ytop = Grid_ytop + s% pg% Grid_title = Grid_title + s% pg% Grid_txt_scale_factor = Grid_txt_scale_factor + s% pg% Grid_num_cols = Grid_num_cols + s% pg% Grid_num_rows = Grid_num_rows + s% pg% Grid_num_plots = Grid_num_plots + s% pg% Grid_plot_name = Grid_plot_name + s% pg% Grid_plot_row = Grid_plot_row + s% pg% Grid_plot_rowspan = Grid_plot_rowspan + s% pg% Grid_plot_col = Grid_plot_col + s% pg% Grid_plot_colspan = Grid_plot_colspan + s% pg% Grid_plot_pad_left = Grid_plot_pad_left + s% pg% Grid_plot_pad_right = Grid_plot_pad_right + s% pg% Grid_plot_pad_top = Grid_plot_pad_top + s% pg% Grid_plot_pad_bot = Grid_plot_pad_bot + s% pg% Grid_file_flag = Grid_file_flag + s% pg% Grid_file_dir = Grid_file_dir + s% pg% Grid_file_prefix = Grid_file_prefix + s% pg% Grid_file_interval = Grid_file_interval + s% pg% Grid_file_width = Grid_file_width + s% pg% Grid_file_aspect_ratio = Grid_file_aspect_ratio s% pg% annotation1_ci = annotation1_ci s% pg% annotation1_ch = annotation1_ch @@ -6254,451 +2629,6 @@ end subroutine store_pgstar_controls subroutine set_default_pgstar_controls - Text_Summary1_name = '' - Text_Summary2_name = '' - Text_Summary3_name = '' - Text_Summary4_name = '' - Text_Summary5_name = '' - Text_Summary6_name = '' - Text_Summary7_name = '' - Text_Summary8_name = '' - Text_Summary9_name = '' - - profile_mass_point_q(:) = 0 - profile_mass_point_color_index(:) = 0 - profile_mass_point_symbol(:) = 0 - profile_mass_point_symbol_scale(:) = 0 - profile_mass_point_str(:) = '' - profile_mass_point_str_clr(:) = 0 - profile_mass_point_str_scale(:) = 0 - - Profile_Panels1_yaxis_name(:) = '' - Profile_Panels1_other_yaxis_name(:) = '' - Profile_Panels2_yaxis_name(:) = '' - Profile_Panels2_other_yaxis_name(:) = '' - Profile_Panels3_yaxis_name(:) = '' - Profile_Panels3_other_yaxis_name(:) = '' - Profile_Panels4_yaxis_name(:) = '' - Profile_Panels4_other_yaxis_name(:) = '' - Profile_Panels5_yaxis_name(:) = '' - Profile_Panels5_other_yaxis_name(:) = '' - Profile_Panels6_yaxis_name(:) = '' - Profile_Panels6_other_yaxis_name(:) = '' - Profile_Panels7_yaxis_name(:) = '' - Profile_Panels7_other_yaxis_name(:) = '' - Profile_Panels8_yaxis_name(:) = '' - Profile_Panels8_other_yaxis_name(:) = '' - Profile_Panels9_yaxis_name(:) = '' - Profile_Panels9_other_yaxis_name(:) = '' - - History_Panels1_yaxis_name(:) = '' - History_Panels1_other_yaxis_name(:) = '' - History_Panels1_yaxis_reversed(:) = .false. - History_Panels1_other_yaxis_reversed(:) = .false. - History_Panels1_yaxis_log(:) = .false. - History_Panels1_other_yaxis_log(:) = .false. - History_Panels1_same_yaxis_range(:) = .false. - History_Panels1_ymin(:) = 0 - History_Panels1_other_ymin(:) = 0 - History_Panels1_ymax(:) = 0 - History_Panels1_other_ymax(:) = 0 - History_Panels1_ymargin(:) = 0 - History_Panels1_other_ymargin(:) = 0 - History_Panels1_dymin(:) = 0 - History_Panels1_other_dymin(:) = 0 - History_Panels1_points_name(:) = '' - - History_Panels2_yaxis_name(:) = '' - History_Panels2_other_yaxis_name(:) = '' - History_Panels2_yaxis_reversed(:) = .false. - History_Panels2_other_yaxis_reversed(:) = .false. - History_Panels2_yaxis_log(:) = .false. - History_Panels2_other_yaxis_log(:) = .false. - History_Panels2_same_yaxis_range(:) = .false. - History_Panels2_ymin(:) = 0 - History_Panels2_other_ymin(:) = 0 - History_Panels2_ymax(:) = 0 - History_Panels2_other_ymax(:) = 0 - History_Panels2_ymargin(:) = 0 - History_Panels2_other_ymargin(:) = 0 - History_Panels2_dymin(:) = 0 - History_Panels2_other_dymin(:) = 0 - History_Panels2_points_name(:) = '' - - History_Panels3_yaxis_name(:) = '' - History_Panels3_other_yaxis_name(:) = '' - History_Panels3_yaxis_reversed(:) = .false. - History_Panels3_other_yaxis_reversed(:) = .false. - History_Panels3_yaxis_log(:) = .false. - History_Panels3_other_yaxis_log(:) = .false. - History_Panels3_same_yaxis_range(:) = .false. - History_Panels3_ymin(:) = 0 - History_Panels3_other_ymin(:) = 0 - History_Panels3_ymax(:) = 0 - History_Panels3_other_ymax(:) = 0 - History_Panels3_ymargin(:) = 0 - History_Panels3_other_ymargin(:) = 0 - History_Panels3_dymin(:) = 0 - History_Panels3_other_dymin(:) = 0 - History_Panels3_points_name(:) = '' - - History_Panels4_yaxis_name(:) = '' - History_Panels4_other_yaxis_name(:) = '' - History_Panels4_yaxis_reversed(:) = .false. - History_Panels4_other_yaxis_reversed(:) = .false. - History_Panels4_yaxis_log(:) = .false. - History_Panels4_other_yaxis_log(:) = .false. - History_Panels4_same_yaxis_range(:) = .false. - History_Panels4_ymin(:) = 0 - History_Panels4_other_ymin(:) = 0 - History_Panels4_ymax(:) = 0 - History_Panels4_other_ymax(:) = 0 - History_Panels4_ymargin(:) = 0 - History_Panels4_other_ymargin(:) = 0 - History_Panels4_dymin(:) = 0 - History_Panels4_other_dymin(:) = 0 - History_Panels4_points_name(:) = '' - - History_Panels5_yaxis_name(:) = '' - History_Panels5_other_yaxis_name(:) = '' - History_Panels5_yaxis_reversed(:) = .false. - History_Panels5_other_yaxis_reversed(:) = .false. - History_Panels5_yaxis_log(:) = .false. - History_Panels5_other_yaxis_log(:) = .false. - History_Panels5_same_yaxis_range(:) = .false. - History_Panels5_ymin(:) = 0 - History_Panels5_other_ymin(:) = 0 - History_Panels5_ymax(:) = 0 - History_Panels5_other_ymax(:) = 0 - History_Panels5_ymargin(:) = 0 - History_Panels5_other_ymargin(:) = 0 - History_Panels5_dymin(:) = 0 - History_Panels5_other_dymin(:) = 0 - History_Panels5_points_name(:) = '' - - History_Panels6_yaxis_name(:) = '' - History_Panels6_other_yaxis_name(:) = '' - History_Panels6_yaxis_reversed(:) = .false. - History_Panels6_other_yaxis_reversed(:) = .false. - History_Panels6_yaxis_log(:) = .false. - History_Panels6_other_yaxis_log(:) = .false. - History_Panels6_same_yaxis_range(:) = .false. - History_Panels6_ymin(:) = 0 - History_Panels6_other_ymin(:) = 0 - History_Panels6_ymax(:) = 0 - History_Panels6_other_ymax(:) = 0 - History_Panels6_ymargin(:) = 0 - History_Panels6_other_ymargin(:) = 0 - History_Panels6_dymin(:) = 0 - History_Panels6_other_dymin(:) = 0 - History_Panels6_points_name(:) = '' - - History_Panels7_yaxis_name(:) = '' - History_Panels7_other_yaxis_name(:) = '' - History_Panels7_yaxis_reversed(:) = .false. - History_Panels7_other_yaxis_reversed(:) = .false. - History_Panels7_yaxis_log(:) = .false. - History_Panels7_other_yaxis_log(:) = .false. - History_Panels7_same_yaxis_range(:) = .false. - History_Panels7_ymin(:) = 0 - History_Panels7_other_ymin(:) = 0 - History_Panels7_ymax(:) = 0 - History_Panels7_other_ymax(:) = 0 - History_Panels7_ymargin(:) = 0 - History_Panels7_other_ymargin(:) = 0 - History_Panels7_dymin(:) = 0 - History_Panels7_other_dymin(:) = 0 - History_Panels7_points_name(:) = '' - - History_Panels8_yaxis_name(:) = '' - History_Panels8_other_yaxis_name(:) = '' - History_Panels8_yaxis_reversed(:) = .false. - History_Panels8_other_yaxis_reversed(:) = .false. - History_Panels8_yaxis_log(:) = .false. - History_Panels8_other_yaxis_log(:) = .false. - History_Panels8_same_yaxis_range(:) = .false. - History_Panels8_ymin(:) = 0 - History_Panels8_other_ymin(:) = 0 - History_Panels8_ymax(:) = 0 - History_Panels8_other_ymax(:) = 0 - History_Panels8_ymargin(:) = 0 - History_Panels8_other_ymargin(:) = 0 - History_Panels8_dymin(:) = 0 - History_Panels8_other_dymin(:) = 0 - History_Panels8_points_name(:) = '' - - History_Panels9_yaxis_name(:) = '' - History_Panels9_other_yaxis_name(:) = '' - History_Panels9_yaxis_reversed(:) = .false. - History_Panels9_other_yaxis_reversed(:) = .false. - History_Panels9_yaxis_log(:) = .false. - History_Panels9_other_yaxis_log(:) = .false. - History_Panels9_same_yaxis_range(:) = .false. - History_Panels9_ymin(:) = 0 - History_Panels9_other_ymin(:) = 0 - History_Panels9_ymax(:) = 0 - History_Panels9_other_ymax(:) = 0 - History_Panels9_ymargin(:) = 0 - History_Panels9_other_ymargin(:) = 0 - History_Panels9_dymin(:) = 0 - History_Panels9_other_dymin(:) = 0 - History_Panels9_points_name(:) = '' - - Color_Magnitude1_yaxis1_name(:) = '' - Color_Magnitude1_other_yaxis1_name(:) = '' - Color_Magnitude1_yaxis2_name(:) = '' - Color_Magnitude1_other_yaxis2_name(:) = '' - Color_Magnitude1_yaxis_reversed(:) = .false. - Color_Magnitude1_other_yaxis_reversed(:) = .false. - Color_Magnitude1_yaxis_log(:) = .false. - Color_Magnitude1_other_yaxis_log(:) = .false. - Color_Magnitude1_ymin(:) = 0 - Color_Magnitude1_other_ymin(:) = 0 - Color_Magnitude1_ymax(:) = 0 - Color_Magnitude1_other_ymax(:) = 0 - Color_Magnitude1_ymargin(:) = 0 - Color_Magnitude1_other_ymargin(:) = 0 - Color_Magnitude1_dymin(:) = 0 - Color_Magnitude1_other_dymin(:) = 0 - - Color_Magnitude2_yaxis1_name(:) = '' - Color_Magnitude2_other_yaxis1_name(:) = '' - Color_Magnitude2_yaxis2_name(:) = '' - Color_Magnitude2_other_yaxis2_name(:) = '' - Color_Magnitude2_yaxis_reversed(:) = .false. - Color_Magnitude2_other_yaxis_reversed(:) = .false. - Color_Magnitude2_yaxis_log(:) = .false. - Color_Magnitude2_other_yaxis_log(:) = .false. - Color_Magnitude2_ymin(:) = 0 - Color_Magnitude2_other_ymin(:) = 0 - Color_Magnitude2_ymax(:) = 0 - Color_Magnitude2_other_ymax(:) = 0 - Color_Magnitude2_ymargin(:) = 0 - Color_Magnitude2_other_ymargin(:) = 0 - Color_Magnitude2_dymin(:) = 0 - Color_Magnitude2_other_dymin(:) = 0 - - Color_Magnitude3_yaxis1_name(:) = '' - Color_Magnitude3_other_yaxis1_name(:) = '' - Color_Magnitude3_yaxis2_name(:) = '' - Color_Magnitude3_other_yaxis2_name(:) = '' - Color_Magnitude3_yaxis_reversed(:) = .false. - Color_Magnitude3_other_yaxis_reversed(:) = .false. - Color_Magnitude3_yaxis_log(:) = .false. - Color_Magnitude3_other_yaxis_log(:) = .false. - Color_Magnitude3_ymin(:) = 0 - Color_Magnitude3_other_ymin(:) = 0 - Color_Magnitude3_ymax(:) = 0 - Color_Magnitude3_other_ymax(:) = 0 - Color_Magnitude3_ymargin(:) = 0 - Color_Magnitude3_other_ymargin(:) = 0 - Color_Magnitude3_dymin(:) = 0 - Color_Magnitude3_other_dymin(:) = 0 - - Color_Magnitude4_yaxis1_name(:) = '' - Color_Magnitude4_other_yaxis1_name(:) = '' - Color_Magnitude4_yaxis2_name(:) = '' - Color_Magnitude4_other_yaxis2_name(:) = '' - Color_Magnitude4_yaxis_reversed(:) = .false. - Color_Magnitude4_other_yaxis_reversed(:) = .false. - Color_Magnitude4_yaxis_log(:) = .false. - Color_Magnitude4_other_yaxis_log(:) = .false. - Color_Magnitude4_ymin(:) = 0 - Color_Magnitude4_other_ymin(:) = 0 - Color_Magnitude4_ymax(:) = 0 - Color_Magnitude4_other_ymax(:) = 0 - Color_Magnitude4_ymargin(:) = 0 - Color_Magnitude4_other_ymargin(:) = 0 - Color_Magnitude4_dymin(:) = 0 - Color_Magnitude4_other_dymin(:) = 0 - - Color_Magnitude5_yaxis1_name(:) = '' - Color_Magnitude5_other_yaxis1_name(:) = '' - Color_Magnitude5_yaxis2_name(:) = '' - Color_Magnitude5_other_yaxis2_name(:) = '' - Color_Magnitude5_yaxis_reversed(:) = .false. - Color_Magnitude5_other_yaxis_reversed(:) = .false. - Color_Magnitude5_yaxis_log(:) = .false. - Color_Magnitude5_other_yaxis_log(:) = .false. - Color_Magnitude5_ymin(:) = 0 - Color_Magnitude5_other_ymin(:) = 0 - Color_Magnitude5_ymax(:) = 0 - Color_Magnitude5_other_ymax(:) = 0 - Color_Magnitude5_ymargin(:) = 0 - Color_Magnitude5_other_ymargin(:) = 0 - Color_Magnitude5_dymin(:) = 0 - Color_Magnitude5_other_dymin(:) = 0 - - Color_Magnitude6_yaxis1_name(:) = '' - Color_Magnitude6_other_yaxis1_name(:) = '' - Color_Magnitude6_yaxis2_name(:) = '' - Color_Magnitude6_other_yaxis2_name(:) = '' - Color_Magnitude6_yaxis_reversed(:) = .false. - Color_Magnitude6_other_yaxis_reversed(:) = .false. - Color_Magnitude6_yaxis_log(:) = .false. - Color_Magnitude6_other_yaxis_log(:) = .false. - Color_Magnitude6_ymin(:) = 0 - Color_Magnitude6_other_ymin(:) = 0 - Color_Magnitude6_ymax(:) = 0 - Color_Magnitude6_other_ymax(:) = 0 - Color_Magnitude6_ymargin(:) = 0 - Color_Magnitude6_other_ymargin(:) = 0 - Color_Magnitude6_dymin(:) = 0 - Color_Magnitude6_other_dymin(:) = 0 - - Color_Magnitude7_yaxis1_name(:) = '' - Color_Magnitude7_other_yaxis1_name(:) = '' - Color_Magnitude7_yaxis2_name(:) = '' - Color_Magnitude7_other_yaxis2_name(:) = '' - Color_Magnitude7_yaxis_reversed(:) = .false. - Color_Magnitude7_other_yaxis_reversed(:) = .false. - Color_Magnitude7_yaxis_log(:) = .false. - Color_Magnitude7_other_yaxis_log(:) = .false. - Color_Magnitude7_ymin(:) = 0 - Color_Magnitude7_other_ymin(:) = 0 - Color_Magnitude7_ymax(:) = 0 - Color_Magnitude7_other_ymax(:) = 0 - Color_Magnitude7_ymargin(:) = 0 - Color_Magnitude7_other_ymargin(:) = 0 - Color_Magnitude7_dymin(:) = 0 - Color_Magnitude7_other_dymin(:) = 0 - - Color_Magnitude8_yaxis1_name(:) = '' - Color_Magnitude8_other_yaxis1_name(:) = '' - Color_Magnitude8_yaxis2_name(:) = '' - Color_Magnitude8_other_yaxis2_name(:) = '' - Color_Magnitude8_yaxis_reversed(:) = .false. - Color_Magnitude8_other_yaxis_reversed(:) = .false. - Color_Magnitude8_yaxis_log(:) = .false. - Color_Magnitude8_other_yaxis_log(:) = .false. - Color_Magnitude8_ymin(:) = 0 - Color_Magnitude8_other_ymin(:) = 0 - Color_Magnitude8_ymax(:) = 0 - Color_Magnitude8_other_ymax(:) = 0 - Color_Magnitude8_ymargin(:) = 0 - Color_Magnitude8_other_ymargin(:) = 0 - Color_Magnitude8_dymin(:) = 0 - Color_Magnitude8_other_dymin(:) = 0 - - Color_Magnitude9_yaxis1_name(:) = '' - Color_Magnitude9_other_yaxis1_name(:) = '' - Color_Magnitude9_yaxis2_name(:) = '' - Color_Magnitude9_other_yaxis2_name(:) = '' - Color_Magnitude9_yaxis_reversed(:) = .false. - Color_Magnitude9_other_yaxis_reversed(:) = .false. - Color_Magnitude9_yaxis_log(:) = .false. - Color_Magnitude9_other_yaxis_log(:) = .false. - Color_Magnitude9_ymin(:) = 0 - Color_Magnitude9_other_ymin(:) = 0 - Color_Magnitude9_ymax(:) = 0 - Color_Magnitude9_other_ymax(:) = 0 - Color_Magnitude9_ymargin(:) = 0 - Color_Magnitude9_other_ymargin(:) = 0 - Color_Magnitude9_dymin(:) = 0 - Color_Magnitude9_other_dymin(:) = 0 - - Summary_History_name(:) = '' - Summary_History_legend(:) = '' - - Grid1_plot_name(:) = '' - Grid1_txt_scale_factor(:) = 1 - Grid1_plot_pad_left(:) = 0 - Grid1_plot_pad_right(:) = 0 - Grid1_plot_pad_top(:) = 0 - Grid1_plot_pad_bot(:) = 0 - Grid1_plot_row(:) = 0 - Grid1_plot_rowspan(:) = 0 - Grid1_plot_col(:) = 0 - Grid1_plot_colspan(:) = 0 - - Grid2_plot_name(:) = '' - Grid2_txt_scale_factor(:) = 1 - Grid2_plot_pad_left(:) = 0 - Grid2_plot_pad_right(:) = 0 - Grid2_plot_pad_top(:) = 0 - Grid2_plot_pad_bot(:) = 0 - Grid2_plot_row(:) = 0 - Grid2_plot_rowspan(:) = 0 - Grid2_plot_col(:) = 0 - Grid2_plot_colspan(:) = 0 - - Grid3_plot_name(:) = '' - Grid3_txt_scale_factor(:) = 1 - Grid3_plot_pad_left(:) = 0 - Grid3_plot_pad_right(:) = 0 - Grid3_plot_pad_top(:) = 0 - Grid3_plot_pad_bot(:) = 0 - Grid3_plot_row(:) = 0 - Grid3_plot_rowspan(:) = 0 - Grid3_plot_col(:) = 0 - Grid3_plot_colspan(:) = 0 - - Grid4_plot_name(:) = '' - Grid4_txt_scale_factor(:) = 1 - Grid4_plot_pad_left(:) = 0 - Grid4_plot_pad_right(:) = 0 - Grid4_plot_pad_top(:) = 0 - Grid4_plot_pad_bot(:) = 0 - Grid4_plot_row(:) = 0 - Grid4_plot_rowspan(:) = 0 - Grid4_plot_col(:) = 0 - Grid4_plot_colspan(:) = 0 - - Grid5_plot_name(:) = '' - Grid5_txt_scale_factor(:) = 1 - Grid5_plot_pad_left(:) = 0 - Grid5_plot_pad_right(:) = 0 - Grid5_plot_pad_top(:) = 0 - Grid5_plot_pad_bot(:) = 0 - Grid5_plot_row(:) = 0 - Grid5_plot_rowspan(:) = 0 - Grid5_plot_col(:) = 0 - Grid5_plot_colspan(:) = 0 - - Grid6_plot_name(:) = '' - Grid6_txt_scale_factor(:) = 1 - Grid6_plot_pad_left(:) = 0 - Grid6_plot_pad_right(:) = 0 - Grid6_plot_pad_top(:) = 0 - Grid6_plot_pad_bot(:) = 0 - Grid6_plot_row(:) = 0 - Grid6_plot_rowspan(:) = 0 - Grid6_plot_col(:) = 0 - Grid6_plot_colspan(:) = 0 - - Grid7_plot_name(:) = '' - Grid7_txt_scale_factor(:) = 1 - Grid7_plot_pad_left(:) = 0 - Grid7_plot_pad_right(:) = 0 - Grid7_plot_pad_top(:) = 0 - Grid7_plot_pad_bot(:) = 0 - Grid7_plot_row(:) = 0 - Grid7_plot_rowspan(:) = 0 - Grid7_plot_col(:) = 0 - Grid7_plot_colspan(:) = 0 - - Grid8_plot_name(:) = '' - Grid8_txt_scale_factor(:) = 1 - Grid8_plot_pad_left(:) = 0 - Grid8_plot_pad_right(:) = 0 - Grid8_plot_pad_top(:) = 0 - Grid8_plot_pad_bot(:) = 0 - Grid8_plot_row(:) = 0 - Grid8_plot_rowspan(:) = 0 - Grid8_plot_col(:) = 0 - Grid8_plot_colspan(:) = 0 - - Grid9_plot_name(:) = '' - Grid9_txt_scale_factor(:) = 1 - Grid9_plot_pad_left(:) = 0 - Grid9_plot_pad_right(:) = 0 - Grid9_plot_pad_top(:) = 0 - Grid9_plot_pad_bot(:) = 0 - Grid9_plot_row(:) = 0 - Grid9_plot_rowspan(:) = 0 - Grid9_plot_col(:) = 0 - Grid9_plot_colspan(:) = 0 - include 'pgstar.defaults' end subroutine set_default_pgstar_controls diff --git a/star/private/pgstar_dpg_dnu.f90 b/star/private/pgstar_dpg_dnu.f90 index 3f7879187..a7d691d82 100644 --- a/star/private/pgstar_dpg_dnu.f90 +++ b/star/private/pgstar_dpg_dnu.f90 @@ -36,8 +36,8 @@ module pgstar_dPg_dnu contains - subroutine dPg_dnu_Plot(id, device_id, ierr) - integer, intent(in) :: id, device_id + subroutine dPg_dnu_Plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (star_info), pointer :: s diff --git a/star/private/pgstar_dynamo.f90 b/star/private/pgstar_dynamo.f90 index 9b4ed745f..0ca522f39 100644 --- a/star/private/pgstar_dynamo.f90 +++ b/star/private/pgstar_dynamo.f90 @@ -36,9 +36,8 @@ module pgstar_dynamo contains - subroutine Dynamo_plot(id, device_id, ierr) - implicit none - integer, intent(in) :: id, device_id + subroutine Dynamo_plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (star_info), pointer :: s diff --git a/star/private/pgstar_full.f90 b/star/private/pgstar_full.f90 index fda43ebdb..bf3d1446c 100644 --- a/star/private/pgstar_full.f90 +++ b/star/private/pgstar_full.f90 @@ -27,8 +27,8 @@ module pgstar use star_private_def use const_def - use chem_def, only : category_name - use rates_def, only : i_rate + use chem_def, only: category_name + use rates_def, only: i_rate use pgstar_support use star_pgstar @@ -39,7 +39,7 @@ module pgstar subroutine do_create_file_name(s, dir, prefix, name) - use pgstar_support, only : create_file_name + use pgstar_support, only: create_file_name type (star_info), pointer :: s character (len = *), intent(in) :: dir, prefix character (len = *), intent(out) :: name @@ -48,8 +48,8 @@ end subroutine do_create_file_name subroutine do_write_plot_to_file(s, p, filename, ierr) - use star_def, only : star_info - use pgstar_support, only : write_plot_to_file + use star_def, only: star_info + use pgstar_support, only: write_plot_to_file type (star_info), pointer :: s type (pgstar_win_file_data), pointer :: p character (len = *), intent(in) :: filename @@ -60,7 +60,7 @@ end subroutine do_write_plot_to_file subroutine do_show_pgstar_annotations(& s, show_annotation1, show_annotation2, show_annotation3) - use pgstar_support, only : show_annotations + use pgstar_support, only: show_annotations type (star_info), pointer :: s logical, intent(in) :: & show_annotation1, show_annotation2, show_annotation3 @@ -103,7 +103,7 @@ end subroutine do_restart_run_for_pgstar subroutine do_read_pgstar_controls(s, inlist_fname, ierr) - use pgstar_ctrls_io, only : read_pgstar + use pgstar_ctrls_io, only: read_pgstar type (star_info), pointer :: s character(*), intent(in) :: inlist_fname integer, intent(out) :: ierr @@ -120,192 +120,69 @@ end subroutine do_read_pgstar_controls subroutine set_win_file_data(s, ierr) - use pgstar_kipp, only : Kipp_Plot - use pgstar_L_R, only : L_R_Plot - use pgstar_L_v, only : L_v_Plot - use pgstar_L_Teff, only : L_Teff_Plot - use pgstar_logL_R, only : logL_R_Plot - use pgstar_logL_v, only : logL_v_Plot - use pgstar_logL_Teff, only : logL_Teff_Plot - use pgstar_r_L, only : R_L_Plot - use pgstar_r_Teff, only : R_Teff_Plot - use pgstar_logg_Teff, only : logg_Teff_Plot - use pgstar_logg_logT, only : logg_logT_Plot - use pgstar_dPg_dnu, only : dPg_dnu_Plot - use pgstar_hr, only : HR_Plot - use pgstar_trho, only : TRho_Plot - use pgstar_tmaxrho, only : TmaxRho_Plot - use pgstar_dynamo, only : Dynamo_plot - use pgstar_mixing_Ds, only : Mixing_plot - use pgstar_trho_profile, only : TRho_Profile_plot - use pgstar_power, only : power_plot - use pgstar_mode_prop, only : mode_propagation_plot - use pgstar_abundance, only : abundance_plot - use pgstar_summary_burn, only : summary_burn_plot - use pgstar_summary_profile, only : summary_profile_plot - use pgstar_summary_history, only : summary_history_plot - use pgstar_grid, only : & - grid1_plot, grid2_plot, grid3_plot, grid4_plot, & - grid5_plot, grid6_plot, grid7_plot, grid8_plot, grid9_plot - use pgstar_summary, only : & - Text_Summary1_Plot, Text_Summary2_Plot, Text_Summary3_Plot, & - Text_Summary4_Plot, Text_Summary5_Plot, Text_Summary6_Plot, & - Text_Summary7_Plot, Text_Summary8_Plot, Text_Summary9_Plot - use pgstar_profile_panels, only : & - Profile_Panels1_plot, Profile_Panels2_plot, Profile_Panels3_plot, & - Profile_Panels4_plot, Profile_Panels5_plot, Profile_Panels6_plot, & - Profile_Panels7_plot, Profile_Panels8_plot, Profile_Panels9_plot - use pgstar_history_panels, only : & - History_Panels1_plot, History_Panels2_plot, History_Panels3_plot, & - History_Panels4_plot, History_Panels5_plot, History_Panels6_plot, & - History_Panels7_plot, History_Panels8_plot, History_Panels9_plot - use pgstar_hist_track, only : & - History_Track1_plot, History_Track2_plot, History_Track3_plot, & - History_Track4_plot, History_Track5_plot, History_Track6_plot, & - History_Track7_plot, History_Track8_plot, History_Track9_plot - use pgstar_network, only : Network_plot - use pgstar_production, only : Production_plot - use pgstar_Color_Magnitude, only : & - Color_Magnitude1_plot, Color_Magnitude2_plot, Color_Magnitude3_plot, & - Color_Magnitude4_plot, Color_Magnitude5_plot, Color_Magnitude6_plot, & - Color_Magnitude7_plot, Color_Magnitude8_plot, Color_Magnitude9_plot + use pgstar_kipp, only: Kipp_Plot + use pgstar_L_R, only: L_R_Plot + use pgstar_L_v, only: L_v_Plot + use pgstar_L_Teff, only: L_Teff_Plot + use pgstar_logL_R, only: logL_R_Plot + use pgstar_logL_v, only: logL_v_Plot + use pgstar_logL_Teff, only: logL_Teff_Plot + use pgstar_r_L, only: R_L_Plot + use pgstar_r_Teff, only: R_Teff_Plot + use pgstar_logg_Teff, only: logg_Teff_Plot + use pgstar_logg_logT, only: logg_logT_Plot + use pgstar_dPg_dnu, only: dPg_dnu_Plot + use pgstar_hr, only: HR_Plot + use pgstar_trho, only: TRho_Plot + use pgstar_tmaxrho, only: TmaxRho_Plot + use pgstar_dynamo, only: Dynamo_plot + use pgstar_mixing_Ds, only: Mixing_plot + use pgstar_trho_profile, only: TRho_Profile_plot + use pgstar_power, only: power_plot + use pgstar_mode_prop, only: mode_propagation_plot + use pgstar_abundance, only: abundance_plot + use pgstar_summary_burn, only: summary_burn_plot + use pgstar_summary_profile, only: summary_profile_plot + use pgstar_summary_history, only: summary_history_plot + use pgstar_grid, only: grid_plot + use pgstar_summary, only: Text_Summary_Plot + use pgstar_profile_panels, only: Profile_Panels_plot + use pgstar_history_panels, only: History_Panels_plot + use pgstar_hist_track, only: History_Track_plot + use pgstar_network, only: Network_plot + use pgstar_production, only: Production_plot + use pgstar_Color_Magnitude, only: Color_Magnitude_plot type (star_info), pointer :: s integer, intent(out) :: ierr type (pgstar_win_file_data), pointer :: p integer :: i + character (len = strlen) :: nm ! store win and file info in records - p => s% pg% pgstar_win_file_ptr(i_Text_Summary1) - p% plot => Text_Summary1_Plot - p% id = i_Text_Summary1 - p% name = 'Text_Summary1' - p% win_flag = s% pg% Text_Summary1_win_flag - p% win_width = s% pg% Text_Summary1_win_width - p% win_aspect_ratio = s% pg% Text_Summary1_win_aspect_ratio - p% file_flag = s% pg% Text_Summary1_file_flag - p% file_dir = s% pg% Text_Summary1_file_dir - p% file_prefix = s% pg% Text_Summary1_file_prefix - p% file_interval = s% pg% Text_Summary1_file_interval - p% file_width = s% pg% Text_Summary1_file_width - p% file_aspect_ratio = s% pg% Text_Summary1_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Text_Summary2) - p% plot => Text_Summary2_Plot - p% id = i_Text_Summary2 - p% name = 'Text_Summary2' - p% win_flag = s% pg% Text_Summary2_win_flag - p% win_width = s% pg% Text_Summary2_win_width - p% win_aspect_ratio = s% pg% Text_Summary2_win_aspect_ratio - p% file_flag = s% pg% Text_Summary2_file_flag - p% file_dir = s% pg% Text_Summary2_file_dir - p% file_prefix = s% pg% Text_Summary2_file_prefix - p% file_interval = s% pg% Text_Summary2_file_interval - p% file_width = s% pg% Text_Summary2_file_width - p% file_aspect_ratio = s% pg% Text_Summary2_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Text_Summary3) - p% plot => Text_Summary3_Plot - p% id = i_Text_Summary3 - p% name = 'Text_Summary3' - p% win_flag = s% pg% Text_Summary3_win_flag - p% win_width = s% pg% Text_Summary3_win_width - p% win_aspect_ratio = s% pg% Text_Summary3_win_aspect_ratio - p% file_flag = s% pg% Text_Summary3_file_flag - p% file_dir = s% pg% Text_Summary3_file_dir - p% file_prefix = s% pg% Text_Summary3_file_prefix - p% file_interval = s% pg% Text_Summary3_file_interval - p% file_width = s% pg% Text_Summary3_file_width - p% file_aspect_ratio = s% pg% Text_Summary3_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Text_Summary4) - p% plot => Text_Summary4_Plot - p% id = i_Text_Summary4 - p% name = 'Text_Summary4' - p% win_flag = s% pg% Text_Summary4_win_flag - p% win_width = s% pg% Text_Summary4_win_width - p% win_aspect_ratio = s% pg% Text_Summary4_win_aspect_ratio - p% file_flag = s% pg% Text_Summary4_file_flag - p% file_dir = s% pg% Text_Summary4_file_dir - p% file_prefix = s% pg% Text_Summary4_file_prefix - p% file_interval = s% pg% Text_Summary4_file_interval - p% file_width = s% pg% Text_Summary4_file_width - p% file_aspect_ratio = s% pg% Text_Summary4_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Text_Summary5) - p% plot => Text_Summary5_Plot - p% id = i_Text_Summary5 - p% name = 'Text_Summary5' - p% win_flag = s% pg% Text_Summary5_win_flag - p% win_width = s% pg% Text_Summary5_win_width - p% win_aspect_ratio = s% pg% Text_Summary5_win_aspect_ratio - p% file_flag = s% pg% Text_Summary5_file_flag - p% file_dir = s% pg% Text_Summary5_file_dir - p% file_prefix = s% pg% Text_Summary5_file_prefix - p% file_interval = s% pg% Text_Summary5_file_interval - p% file_width = s% pg% Text_Summary5_file_width - p% file_aspect_ratio = s% pg% Text_Summary5_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Text_Summary6) - p% plot => Text_Summary6_Plot - p% id = i_Text_Summary6 - p% name = 'Text_Summary6' - p% win_flag = s% pg% Text_Summary6_win_flag - p% win_width = s% pg% Text_Summary6_win_width - p% win_aspect_ratio = s% pg% Text_Summary6_win_aspect_ratio - p% file_flag = s% pg% Text_Summary6_file_flag - p% file_dir = s% pg% Text_Summary6_file_dir - p% file_prefix = s% pg% Text_Summary6_file_prefix - p% file_interval = s% pg% Text_Summary6_file_interval - p% file_width = s% pg% Text_Summary6_file_width - p% file_aspect_ratio = s% pg% Text_Summary6_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Text_Summary7) - p% plot => Text_Summary7_Plot - p% id = i_Text_Summary7 - p% name = 'Text_Summary7' - p% win_flag = s% pg% Text_Summary7_win_flag - p% win_width = s% pg% Text_Summary7_win_width - p% win_aspect_ratio = s% pg% Text_Summary7_win_aspect_ratio - p% file_flag = s% pg% Text_Summary7_file_flag - p% file_dir = s% pg% Text_Summary7_file_dir - p% file_prefix = s% pg% Text_Summary7_file_prefix - p% file_interval = s% pg% Text_Summary7_file_interval - p% file_width = s% pg% Text_Summary7_file_width - p% file_aspect_ratio = s% pg% Text_Summary7_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Text_Summary8) - p% plot => Text_Summary8_Plot - p% id = i_Text_Summary8 - p% name = 'Text_Summary8' - p% win_flag = s% pg% Text_Summary8_win_flag - p% win_width = s% pg% Text_Summary8_win_width - p% win_aspect_ratio = s% pg% Text_Summary8_win_aspect_ratio - p% file_flag = s% pg% Text_Summary8_file_flag - p% file_dir = s% pg% Text_Summary8_file_dir - p% file_prefix = s% pg% Text_Summary8_file_prefix - p% file_interval = s% pg% Text_Summary8_file_interval - p% file_width = s% pg% Text_Summary8_file_width - p% file_aspect_ratio = s% pg% Text_Summary8_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Text_Summary9) - p% plot => Text_Summary9_Plot - p% id = i_Text_Summary9 - p% name = 'Text_Summary9' - p% win_flag = s% pg% Text_Summary9_win_flag - p% win_width = s% pg% Text_Summary9_win_width - p% win_aspect_ratio = s% pg% Text_Summary9_win_aspect_ratio - p% file_flag = s% pg% Text_Summary9_file_flag - p% file_dir = s% pg% Text_Summary9_file_dir - p% file_prefix = s% pg% Text_Summary9_file_prefix - p% file_interval = s% pg% Text_Summary9_file_interval - p% file_width = s% pg% Text_Summary9_file_width - p% file_aspect_ratio = s% pg% Text_Summary9_file_aspect_ratio + do i = 1, pgstar_array_length + p => s% pg% pgstar_win_file_ptr(i_Text_Summary + i - 1) + p% plot => Text_Summary_Plot + p% id = i_Text_Summary + i - 1 + p% array_ix = i + write(nm, '(I2)') i + p% name = 'Text_Summary' // trim(nm) + p% win_flag = s% pg% Text_Summary_win_flag(i) + p% win_width = s% pg% Text_Summary_win_width(i) + p% win_aspect_ratio = s% pg% Text_Summary_win_aspect_ratio(i) + p% file_flag = s% pg% Text_Summary_file_flag(i) + p% file_dir = s% pg% Text_Summary_file_dir(i) + p% file_prefix = s% pg% Text_Summary_file_prefix(i) + p% file_interval = s% pg% Text_Summary_file_interval(i) + p% file_width = s% pg% Text_Summary_file_width(i) + p% file_aspect_ratio = s% pg% Text_Summary_file_aspect_ratio(i) + end do p => s% pg% pgstar_win_file_ptr(i_TRho_Profile) p% plot => TRho_Profile_plot p% id = i_TRho_Profile + p% array_ix = 0 p% name = 'TRho_Profile' p% win_flag = s% pg% TRho_Profile_win_flag p% win_width = s% pg% TRho_Profile_win_width @@ -317,135 +194,28 @@ subroutine set_win_file_data(s, ierr) p% file_width = s% pg% TRho_Profile_file_width p% file_aspect_ratio = s% pg% TRho_Profile_file_aspect_ratio - p => s% pg% pgstar_win_file_ptr(i_Profile_Panels1) - p% plot => Profile_Panels1_plot - p% id = i_Profile_Panels1 - p% name = 'Profile_Panels1' - p% win_flag = s% pg% Profile_Panels1_win_flag - p% win_width = s% pg% Profile_Panels1_win_width - p% win_aspect_ratio = s% pg% Profile_Panels1_win_aspect_ratio - p% file_flag = s% pg% Profile_Panels1_file_flag - p% file_dir = s% pg% Profile_Panels1_file_dir - p% file_prefix = s% pg% Profile_Panels1_file_prefix - p% file_interval = s% pg% Profile_Panels1_file_interval - p% file_width = s% pg% Profile_Panels1_file_width - p% file_aspect_ratio = s% pg% Profile_Panels1_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Profile_Panels2) - p% plot => Profile_Panels2_plot - p% id = i_Profile_Panels2 - p% name = 'Profile_Panels2' - p% win_flag = s% pg% Profile_Panels2_win_flag - p% win_width = s% pg% Profile_Panels2_win_width - p% win_aspect_ratio = s% pg% Profile_Panels2_win_aspect_ratio - p% file_flag = s% pg% Profile_Panels2_file_flag - p% file_dir = s% pg% Profile_Panels2_file_dir - p% file_prefix = s% pg% Profile_Panels2_file_prefix - p% file_interval = s% pg% Profile_Panels2_file_interval - p% file_width = s% pg% Profile_Panels2_file_width - p% file_aspect_ratio = s% pg% Profile_Panels2_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Profile_Panels3) - p% plot => Profile_Panels3_plot - p% id = i_Profile_Panels3 - p% name = 'Profile_Panels3' - p% win_flag = s% pg% Profile_Panels3_win_flag - p% win_width = s% pg% Profile_Panels3_win_width - p% win_aspect_ratio = s% pg% Profile_Panels3_win_aspect_ratio - p% file_flag = s% pg% Profile_Panels3_file_flag - p% file_dir = s% pg% Profile_Panels3_file_dir - p% file_prefix = s% pg% Profile_Panels3_file_prefix - p% file_interval = s% pg% Profile_Panels3_file_interval - p% file_width = s% pg% Profile_Panels3_file_width - p% file_aspect_ratio = s% pg% Profile_Panels3_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Profile_Panels4) - p% plot => Profile_Panels4_plot - p% id = i_Profile_Panels4 - p% name = 'Profile_Panels4' - p% win_flag = s% pg% Profile_Panels4_win_flag - p% win_width = s% pg% Profile_Panels4_win_width - p% win_aspect_ratio = s% pg% Profile_Panels4_win_aspect_ratio - p% file_flag = s% pg% Profile_Panels4_file_flag - p% file_dir = s% pg% Profile_Panels4_file_dir - p% file_prefix = s% pg% Profile_Panels4_file_prefix - p% file_interval = s% pg% Profile_Panels4_file_interval - p% file_width = s% pg% Profile_Panels4_file_width - p% file_aspect_ratio = s% pg% Profile_Panels4_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Profile_Panels5) - p% plot => Profile_Panels5_plot - p% id = i_Profile_Panels5 - p% name = 'Profile_Panels5' - p% win_flag = s% pg% Profile_Panels5_win_flag - p% win_width = s% pg% Profile_Panels5_win_width - p% win_aspect_ratio = s% pg% Profile_Panels5_win_aspect_ratio - p% file_flag = s% pg% Profile_Panels5_file_flag - p% file_dir = s% pg% Profile_Panels5_file_dir - p% file_prefix = s% pg% Profile_Panels5_file_prefix - p% file_interval = s% pg% Profile_Panels5_file_interval - p% file_width = s% pg% Profile_Panels5_file_width - p% file_aspect_ratio = s% pg% Profile_Panels5_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Profile_Panels6) - p% plot => Profile_Panels6_plot - p% id = i_Profile_Panels6 - p% name = 'Profile_Panels6' - p% win_flag = s% pg% Profile_Panels6_win_flag - p% win_width = s% pg% Profile_Panels6_win_width - p% win_aspect_ratio = s% pg% Profile_Panels6_win_aspect_ratio - p% file_flag = s% pg% Profile_Panels6_file_flag - p% file_dir = s% pg% Profile_Panels6_file_dir - p% file_prefix = s% pg% Profile_Panels6_file_prefix - p% file_interval = s% pg% Profile_Panels6_file_interval - p% file_width = s% pg% Profile_Panels6_file_width - p% file_aspect_ratio = s% pg% Profile_Panels6_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Profile_Panels7) - p% plot => Profile_Panels7_plot - p% id = i_Profile_Panels7 - p% name = 'Profile_Panels7' - p% win_flag = s% pg% Profile_Panels7_win_flag - p% win_width = s% pg% Profile_Panels7_win_width - p% win_aspect_ratio = s% pg% Profile_Panels7_win_aspect_ratio - p% file_flag = s% pg% Profile_Panels7_file_flag - p% file_dir = s% pg% Profile_Panels7_file_dir - p% file_prefix = s% pg% Profile_Panels7_file_prefix - p% file_interval = s% pg% Profile_Panels7_file_interval - p% file_width = s% pg% Profile_Panels7_file_width - p% file_aspect_ratio = s% pg% Profile_Panels7_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Profile_Panels8) - p% plot => Profile_Panels8_plot - p% id = i_Profile_Panels8 - p% name = 'Profile_Panels8' - p% win_flag = s% pg% Profile_Panels8_win_flag - p% win_width = s% pg% Profile_Panels8_win_width - p% win_aspect_ratio = s% pg% Profile_Panels8_win_aspect_ratio - p% file_flag = s% pg% Profile_Panels8_file_flag - p% file_dir = s% pg% Profile_Panels8_file_dir - p% file_prefix = s% pg% Profile_Panels8_file_prefix - p% file_interval = s% pg% Profile_Panels8_file_interval - p% file_width = s% pg% Profile_Panels8_file_width - p% file_aspect_ratio = s% pg% Profile_Panels8_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Profile_Panels9) - p% plot => Profile_Panels9_plot - p% id = i_Profile_Panels9 - p% name = 'Profile_Panels9' - p% win_flag = s% pg% Profile_Panels9_win_flag - p% win_width = s% pg% Profile_Panels9_win_width - p% win_aspect_ratio = s% pg% Profile_Panels9_win_aspect_ratio - p% file_flag = s% pg% Profile_Panels9_file_flag - p% file_dir = s% pg% Profile_Panels9_file_dir - p% file_prefix = s% pg% Profile_Panels9_file_prefix - p% file_interval = s% pg% Profile_Panels9_file_interval - p% file_width = s% pg% Profile_Panels9_file_width - p% file_aspect_ratio = s% pg% Profile_Panels9_file_aspect_ratio + do i = 1, pgstar_array_length + p => s% pg% pgstar_win_file_ptr(i_Profile_Panels + i - 1) + p% plot => Profile_Panels_plot + p% id = i_Profile_Panels + i - 1 + p% array_ix = i + write(nm, '(I1)') i + p% name = 'Profile_Panels' // trim(nm) + p% win_flag = s% pg% Profile_Panels_win_flag(i) + p% win_width = s% pg% Profile_Panels_win_width(i) + p% win_aspect_ratio = s% pg% Profile_Panels_win_aspect_ratio(i) + p% file_flag = s% pg% Profile_Panels_file_flag(i) + p% file_dir = s% pg% Profile_Panels_file_dir(i) + p% file_prefix = s% pg% Profile_Panels_file_prefix(i) + p% file_interval = s% pg% Profile_Panels_file_interval(i) + p% file_width = s% pg% Profile_Panels_file_width(i) + p% file_aspect_ratio = s% pg% Profile_Panels_file_aspect_ratio(i) + end do p => s% pg% pgstar_win_file_ptr(i_logg_Teff) p% plot => logg_Teff_Plot p% id = i_logg_Teff + p% array_ix = 0 p% name = 'logg_Teff' p% win_flag = s% pg% logg_Teff_win_flag p% win_width = s% pg% logg_Teff_win_width @@ -460,6 +230,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_logL_Teff) p% plot => logL_Teff_Plot p% id = i_logL_Teff + p% array_ix = 0 p% name = 'logL_Teff' p% win_flag = s% pg% logL_Teff_win_flag p% win_width = s% pg% logL_Teff_win_width @@ -474,6 +245,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_L_Teff) p% plot => L_Teff_Plot p% id = i_L_Teff + p% array_ix = 0 p% name = 'L_Teff' p% win_flag = s% pg% L_Teff_win_flag p% win_width = s% pg% L_Teff_win_width @@ -488,6 +260,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_L_v) p% plot => L_v_Plot p% id = i_L_v + p% array_ix = 0 p% name = 'L_v' p% win_flag = s% pg% L_v_win_flag p% win_width = s% pg% L_v_win_width @@ -502,6 +275,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_L_R) p% plot => L_R_Plot p% id = i_L_R + p% array_ix = 0 p% name = 'L_R' p% win_flag = s% pg% L_R_win_flag p% win_width = s% pg% L_R_win_width @@ -516,6 +290,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_R_Teff) p% plot => R_Teff_Plot p% id = i_R_Teff + p% array_ix = 0 p% name = 'R_Teff' p% win_flag = s% pg% R_Teff_win_flag p% win_width = s% pg% R_Teff_win_width @@ -530,6 +305,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_R_L) p% plot => R_L_Plot p% id = i_R_L + p% array_ix = 0 p% name = 'R_L' p% win_flag = s% pg% R_L_win_flag p% win_width = s% pg% R_L_win_width @@ -544,6 +320,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_logg_logT) p% plot => logg_logT_Plot p% id = i_logg_logT + p% array_ix = 0 p% name = 'logg_logT' p% win_flag = s% pg% logg_logT_win_flag p% win_width = s% pg% logg_logT_win_width @@ -558,6 +335,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_dPg_dnu) p% plot => dPg_dnu_Plot p% id = i_dPg_dnu + p% array_ix = 0 p% name = 'dPg_dnu' p% win_flag = s% pg% dPg_dnu_win_flag p% win_width = s% pg% dPg_dnu_win_width @@ -572,6 +350,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_HR) p% plot => HR_Plot p% id = i_HR + p% array_ix = 0 p% name = 'HR' p% win_flag = s% pg% HR_win_flag p% win_width = s% pg% HR_win_width @@ -586,6 +365,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_TRho) p% plot => TRho_Plot p% id = i_TRho + p% array_ix = 0 p% name = 'TRho' p% win_flag = s% pg% TRho_win_flag p% win_width = s% pg% TRho_win_width @@ -600,6 +380,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_TmaxRho) p% plot => TmaxRho_Plot p% id = i_TmaxRho + p% array_ix = 0 p% name = 'TmaxRho' p% win_flag = s% pg% TmaxRho_win_flag p% win_width = s% pg% TmaxRho_win_width @@ -614,6 +395,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Dynamo) p% plot => Dynamo_plot p% id = i_Dynamo + p% array_ix = 0 p% name = 'Dynamo' p% win_flag = s% pg% Dynamo_win_flag p% win_width = s% pg% Dynamo_win_width @@ -628,6 +410,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Mixing) p% plot => Mixing_plot p% id = i_Mixing + p% array_ix = 0 p% name = 'Mixing' p% win_flag = s% pg% Mixing_win_flag p% win_width = s% pg% Mixing_win_width @@ -642,6 +425,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Kipp) p% plot => Kipp_Plot p% id = i_Kipp + p% array_ix = 0 p% name = 'Kipp' p% win_flag = s% pg% Kipp_win_flag p% win_width = s% pg% Kipp_win_width @@ -656,6 +440,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Network) p% plot => Network_Plot p% id = i_Network + p% array_ix = 0 p% name = 'Network' p% win_flag = s% pg% Network_win_flag p% win_width = s% pg% Network_win_width @@ -670,6 +455,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Production) p% plot => Production_Plot p% id = i_Production + p% array_ix = 0 p% name = 'Production' p% win_flag = s% pg% Production_win_flag p% win_width = s% pg% Production_win_width @@ -681,261 +467,46 @@ subroutine set_win_file_data(s, ierr) p% file_width = s% pg% Production_file_width p% file_aspect_ratio = s% pg% Production_file_aspect_ratio - p => s% pg% pgstar_win_file_ptr(i_Hist_Panels1) - p% plot => History_Panels1_plot - p% id = i_Hist_Panels1 - p% name = 'History_Panels1' - p% win_flag = s% pg% History_Panels1_win_flag - p% win_width = s% pg% History_Panels1_win_width - p% win_aspect_ratio = s% pg% History_Panels1_win_aspect_ratio - p% file_flag = s% pg% History_Panels1_file_flag - p% file_dir = s% pg% History_Panels1_file_dir - p% file_prefix = s% pg% History_Panels1_file_prefix - p% file_interval = s% pg% History_Panels1_file_interval - p% file_width = s% pg% History_Panels1_file_width - p% file_aspect_ratio = s% pg% History_Panels1_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Hist_Panels2) - p% plot => History_Panels2_plot - p% id = i_Hist_Panels2 - p% name = 'History_Panels2' - p% win_flag = s% pg% History_Panels2_win_flag - p% win_width = s% pg% History_Panels2_win_width - p% win_aspect_ratio = s% pg% History_Panels2_win_aspect_ratio - p% file_flag = s% pg% History_Panels2_file_flag - p% file_dir = s% pg% History_Panels2_file_dir - p% file_prefix = s% pg% History_Panels2_file_prefix - p% file_interval = s% pg% History_Panels2_file_interval - p% file_width = s% pg% History_Panels2_file_width - p% file_aspect_ratio = s% pg% History_Panels2_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Hist_Panels3) - p% plot => History_Panels3_plot - p% id = i_Hist_Panels3 - p% name = 'History_Panels3' - p% win_flag = s% pg% History_Panels3_win_flag - p% win_width = s% pg% History_Panels3_win_width - p% win_aspect_ratio = s% pg% History_Panels3_win_aspect_ratio - p% file_flag = s% pg% History_Panels3_file_flag - p% file_dir = s% pg% History_Panels3_file_dir - p% file_prefix = s% pg% History_Panels3_file_prefix - p% file_interval = s% pg% History_Panels3_file_interval - p% file_width = s% pg% History_Panels3_file_width - p% file_aspect_ratio = s% pg% History_Panels3_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Hist_Panels4) - p% plot => History_Panels4_plot - p% id = i_Hist_Panels4 - p% name = 'History_Panels4' - p% win_flag = s% pg% History_Panels4_win_flag - p% win_width = s% pg% History_Panels4_win_width - p% win_aspect_ratio = s% pg% History_Panels4_win_aspect_ratio - p% file_flag = s% pg% History_Panels4_file_flag - p% file_dir = s% pg% History_Panels4_file_dir - p% file_prefix = s% pg% History_Panels4_file_prefix - p% file_interval = s% pg% History_Panels4_file_interval - p% file_width = s% pg% History_Panels4_file_width - p% file_aspect_ratio = s% pg% History_Panels4_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Hist_Panels5) - p% plot => History_Panels5_plot - p% id = i_Hist_Panels5 - p% name = 'History_Panels5' - p% win_flag = s% pg% History_Panels5_win_flag - p% win_width = s% pg% History_Panels5_win_width - p% win_aspect_ratio = s% pg% History_Panels5_win_aspect_ratio - p% file_flag = s% pg% History_Panels5_file_flag - p% file_dir = s% pg% History_Panels5_file_dir - p% file_prefix = s% pg% History_Panels5_file_prefix - p% file_interval = s% pg% History_Panels5_file_interval - p% file_width = s% pg% History_Panels5_file_width - p% file_aspect_ratio = s% pg% History_Panels5_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Hist_Panels6) - p% plot => History_Panels6_plot - p% id = i_Hist_Panels6 - p% name = 'History_Panels6' - p% win_flag = s% pg% History_Panels6_win_flag - p% win_width = s% pg% History_Panels6_win_width - p% win_aspect_ratio = s% pg% History_Panels6_win_aspect_ratio - p% file_flag = s% pg% History_Panels6_file_flag - p% file_dir = s% pg% History_Panels6_file_dir - p% file_prefix = s% pg% History_Panels6_file_prefix - p% file_interval = s% pg% History_Panels6_file_interval - p% file_width = s% pg% History_Panels6_file_width - p% file_aspect_ratio = s% pg% History_Panels6_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Hist_Panels7) - p% plot => History_Panels7_plot - p% id = i_Hist_Panels7 - p% name = 'History_Panels7' - p% win_flag = s% pg% History_Panels7_win_flag - p% win_width = s% pg% History_Panels7_win_width - p% win_aspect_ratio = s% pg% History_Panels7_win_aspect_ratio - p% file_flag = s% pg% History_Panels7_file_flag - p% file_dir = s% pg% History_Panels7_file_dir - p% file_prefix = s% pg% History_Panels7_file_prefix - p% file_interval = s% pg% History_Panels7_file_interval - p% file_width = s% pg% History_Panels7_file_width - p% file_aspect_ratio = s% pg% History_Panels7_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Hist_Panels8) - p% plot => History_Panels8_plot - p% id = i_Hist_Panels8 - p% name = 'History_Panels8' - p% win_flag = s% pg% History_Panels8_win_flag - p% win_width = s% pg% History_Panels8_win_width - p% win_aspect_ratio = s% pg% History_Panels8_win_aspect_ratio - p% file_flag = s% pg% History_Panels8_file_flag - p% file_dir = s% pg% History_Panels8_file_dir - p% file_prefix = s% pg% History_Panels8_file_prefix - p% file_interval = s% pg% History_Panels8_file_interval - p% file_width = s% pg% History_Panels8_file_width - p% file_aspect_ratio = s% pg% History_Panels8_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Hist_Panels9) - p% plot => History_Panels9_plot - p% id = i_Hist_Panels9 - p% name = 'History_Panels9' - p% win_flag = s% pg% History_Panels9_win_flag - p% win_width = s% pg% History_Panels9_win_width - p% win_aspect_ratio = s% pg% History_Panels9_win_aspect_ratio - p% file_flag = s% pg% History_Panels9_file_flag - p% file_dir = s% pg% History_Panels9_file_dir - p% file_prefix = s% pg% History_Panels9_file_prefix - p% file_interval = s% pg% History_Panels9_file_interval - p% file_width = s% pg% History_Panels9_file_width - p% file_aspect_ratio = s% pg% History_Panels9_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Hist_Track1) - p% plot => History_Track1_plot - p% id = i_Hist_Track1 - p% name = 'History_Track1' - p% win_flag = s% pg% History_Track1_win_flag - p% win_width = s% pg% History_Track1_win_width - p% win_aspect_ratio = s% pg% History_Track1_win_aspect_ratio - p% file_flag = s% pg% History_Track1_file_flag - p% file_dir = s% pg% History_Track1_file_dir - p% file_prefix = s% pg% History_Track1_file_prefix - p% file_interval = s% pg% History_Track1_file_interval - p% file_width = s% pg% History_Track1_file_width - p% file_aspect_ratio = s% pg% History_Track1_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Hist_Track2) - p% plot => History_Track2_plot - p% id = i_Hist_Track2 - p% name = 'History_Track2' - p% win_flag = s% pg% History_Track2_win_flag - p% win_width = s% pg% History_Track2_win_width - p% win_aspect_ratio = s% pg% History_Track2_win_aspect_ratio - p% file_flag = s% pg% History_Track2_file_flag - p% file_dir = s% pg% History_Track2_file_dir - p% file_prefix = s% pg% History_Track2_file_prefix - p% file_interval = s% pg% History_Track2_file_interval - p% file_width = s% pg% History_Track2_file_width - p% file_aspect_ratio = s% pg% History_Track2_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Hist_Track3) - p% plot => History_Track3_plot - p% id = i_Hist_Track3 - p% name = 'History_Track3' - p% win_flag = s% pg% History_Track3_win_flag - p% win_width = s% pg% History_Track3_win_width - p% win_aspect_ratio = s% pg% History_Track3_win_aspect_ratio - p% file_flag = s% pg% History_Track3_file_flag - p% file_dir = s% pg% History_Track3_file_dir - p% file_prefix = s% pg% History_Track3_file_prefix - p% file_interval = s% pg% History_Track3_file_interval - p% file_width = s% pg% History_Track3_file_width - p% file_aspect_ratio = s% pg% History_Track3_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Hist_Track4) - p% plot => History_Track4_plot - p% id = i_Hist_Track4 - p% name = 'History_Track4' - p% win_flag = s% pg% History_Track4_win_flag - p% win_width = s% pg% History_Track4_win_width - p% win_aspect_ratio = s% pg% History_Track4_win_aspect_ratio - p% file_flag = s% pg% History_Track4_file_flag - p% file_dir = s% pg% History_Track4_file_dir - p% file_prefix = s% pg% History_Track4_file_prefix - p% file_interval = s% pg% History_Track4_file_interval - p% file_width = s% pg% History_Track4_file_width - p% file_aspect_ratio = s% pg% History_Track4_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Hist_Track5) - p% plot => History_Track5_plot - p% id = i_Hist_Track5 - p% name = 'History_Track5' - p% win_flag = s% pg% History_Track5_win_flag - p% win_width = s% pg% History_Track5_win_width - p% win_aspect_ratio = s% pg% History_Track5_win_aspect_ratio - p% file_flag = s% pg% History_Track5_file_flag - p% file_dir = s% pg% History_Track5_file_dir - p% file_prefix = s% pg% History_Track5_file_prefix - p% file_interval = s% pg% History_Track5_file_interval - p% file_width = s% pg% History_Track5_file_width - p% file_aspect_ratio = s% pg% History_Track5_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Hist_Track6) - p% plot => History_Track6_plot - p% id = i_Hist_Track6 - p% name = 'History_Track6' - p% win_flag = s% pg% History_Track6_win_flag - p% win_width = s% pg% History_Track6_win_width - p% win_aspect_ratio = s% pg% History_Track6_win_aspect_ratio - p% file_flag = s% pg% History_Track6_file_flag - p% file_dir = s% pg% History_Track6_file_dir - p% file_prefix = s% pg% History_Track6_file_prefix - p% file_interval = s% pg% History_Track6_file_interval - p% file_width = s% pg% History_Track6_file_width - p% file_aspect_ratio = s% pg% History_Track6_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Hist_Track7) - p% plot => History_Track7_plot - p% id = i_Hist_Track7 - p% name = 'History_Track7' - p% win_flag = s% pg% History_Track7_win_flag - p% win_width = s% pg% History_Track7_win_width - p% win_aspect_ratio = s% pg% History_Track7_win_aspect_ratio - p% file_flag = s% pg% History_Track7_file_flag - p% file_dir = s% pg% History_Track7_file_dir - p% file_prefix = s% pg% History_Track7_file_prefix - p% file_interval = s% pg% History_Track7_file_interval - p% file_width = s% pg% History_Track7_file_width - p% file_aspect_ratio = s% pg% History_Track7_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Hist_Track8) - p% plot => History_Track8_plot - p% id = i_Hist_Track8 - p% name = 'History_Track8' - p% win_flag = s% pg% History_Track8_win_flag - p% win_width = s% pg% History_Track8_win_width - p% win_aspect_ratio = s% pg% History_Track8_win_aspect_ratio - p% file_flag = s% pg% History_Track8_file_flag - p% file_dir = s% pg% History_Track8_file_dir - p% file_prefix = s% pg% History_Track8_file_prefix - p% file_interval = s% pg% History_Track8_file_interval - p% file_width = s% pg% History_Track8_file_width - p% file_aspect_ratio = s% pg% History_Track8_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Hist_Track9) - p% plot => History_Track9_plot - p% id = i_Hist_Track9 - p% name = 'History_Track9' - p% win_flag = s% pg% History_Track9_win_flag - p% win_width = s% pg% History_Track9_win_width - p% win_aspect_ratio = s% pg% History_Track9_win_aspect_ratio - p% file_flag = s% pg% History_Track9_file_flag - p% file_dir = s% pg% History_Track9_file_dir - p% file_prefix = s% pg% History_Track9_file_prefix - p% file_interval = s% pg% History_Track9_file_interval - p% file_width = s% pg% History_Track9_file_width - p% file_aspect_ratio = s% pg% History_Track9_file_aspect_ratio + do i = 1, pgstar_array_length + p => s% pg% pgstar_win_file_ptr(i_Hist_Panels + i - 1) + p% plot => History_Panels_plot + p% id = i_Hist_Panels + i - 1 + p% array_ix = i + write(nm, '( I1 )') i + p% name = 'History_Panels' // nm + p% win_flag = s% pg% History_Panels_win_flag(i) + p% win_width = s% pg% History_Panels_win_width(i) + p% win_aspect_ratio = s% pg% History_Panels_win_aspect_ratio(i) + p% file_flag = s% pg% History_Panels_file_flag(i) + p% file_dir = s% pg% History_Panels_file_dir(i) + p% file_prefix = s% pg% History_Panels_file_prefix(i) + p% file_interval = s% pg% History_Panels_file_interval(i) + p% file_width = s% pg% History_Panels_file_width(i) + p% file_aspect_ratio = s% pg% History_Panels_file_aspect_ratio(i) + end do + + do i = 1, pgstar_array_length + p => s% pg% pgstar_win_file_ptr(i_Hist_Track + i - 1) + p% plot => History_Track_plot + p% id = i_Hist_Track + i - 1 + p% array_ix = i + write(nm, '(I1)') i + p% name = 'History_Track' // trim(nm) + p% win_flag = s% pg% History_Track_win_flag(i) + p% win_width = s% pg% History_Track_win_width(i) + p% win_aspect_ratio = s% pg% History_Track_win_aspect_ratio(i) + p% file_flag = s% pg% History_Track_file_flag(i) + p% file_dir = s% pg% History_Track_file_dir(i) + p% file_prefix = s% pg% History_Track_file_prefix(i) + p% file_interval = s% pg% History_Track_file_interval(i) + p% file_width = s% pg% History_Track_file_width(i) + p% file_aspect_ratio = s% pg% History_Track_file_aspect_ratio(i) + end do p => s% pg% pgstar_win_file_ptr(i_Mode_Prop) p% plot => mode_propagation_plot p% id = i_Mode_Prop + p% array_ix = 0 p% name = 'Mode_Propagation' p% win_flag = s% pg% Mode_Prop_win_flag p% win_width = s% pg% Mode_Prop_win_width @@ -950,6 +521,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Power) p% plot => power_plot p% id = i_Power + p% array_ix = 0 p% name = 'Power' p% win_flag = s% pg% Power_win_flag p% win_width = s% pg% Power_win_width @@ -964,6 +536,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Abundance) p% plot => abundance_plot p% id = i_Abundance + p% array_ix = 0 p% name = 'Abundance' p% win_flag = s% pg% Abundance_win_flag p% win_width = s% pg% Abundance_win_width @@ -978,6 +551,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Summary_Burn) p% plot => summary_burn_plot p% id = i_Summary_Burn + p% array_ix = 0 p% name = 'Summary_Burn' p% win_flag = s% pg% Summary_Burn_win_flag p% win_width = s% pg% Summary_Burn_win_width @@ -992,6 +566,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Summary_Profile) p% plot => summary_profile_plot p% id = i_Summary_Profile + p% array_ix = 0 p% name = 'Summary_Profile' p% win_flag = s% pg% Summary_Profile_win_flag p% win_width = s% pg% Summary_Profile_win_width @@ -1006,6 +581,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Summary_History) p% plot => summary_history_plot p% id = i_Summary_History + p% array_ix = 0 p% name = 'Summary_History' p% win_flag = s% pg% Summary_History_win_flag p% win_width = s% pg% Summary_History_win_width @@ -1017,257 +593,41 @@ subroutine set_win_file_data(s, ierr) p% file_width = s% pg% Summary_History_file_width p% file_aspect_ratio = s% pg% Summary_History_file_aspect_ratio - p => s% pg% pgstar_win_file_ptr(i_Col_Mag1) - p% plot => Color_Magnitude1_plot - p% id = i_Col_Mag1 - p% name = 'Color_Magnitude1' - p% win_flag = s% pg% Color_Magnitude1_win_flag - p% win_width = s% pg% Color_Magnitude1_win_width - p% win_aspect_ratio = s% pg% Color_Magnitude1_win_aspect_ratio - p% file_flag = s% pg% Color_Magnitude1_file_flag - p% file_dir = s% pg% Color_Magnitude1_file_dir - p% file_prefix = s% pg% Color_Magnitude1_file_prefix - p% file_interval = s% pg% Color_Magnitude1_file_interval - p% file_width = s% pg% Color_Magnitude1_file_width - p% file_aspect_ratio = s% pg% Color_Magnitude1_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Col_Mag2) - p% plot => Color_Magnitude2_plot - p% id = i_Col_Mag2 - p% name = 'Color_Magnitude2' - p% win_flag = s% pg% Color_Magnitude2_win_flag - p% win_width = s% pg% Color_Magnitude2_win_width - p% win_aspect_ratio = s% pg% Color_Magnitude2_win_aspect_ratio - p% file_flag = s% pg% Color_Magnitude2_file_flag - p% file_dir = s% pg% Color_Magnitude2_file_dir - p% file_prefix = s% pg% Color_Magnitude2_file_prefix - p% file_interval = s% pg% Color_Magnitude2_file_interval - p% file_width = s% pg% Color_Magnitude2_file_width - p% file_aspect_ratio = s% pg% Color_Magnitude2_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Col_Mag3) - p% plot => Color_Magnitude3_plot - p% id = i_Col_Mag3 - p% name = 'Color_Magnitude3' - p% win_flag = s% pg% Color_Magnitude3_win_flag - p% win_width = s% pg% Color_Magnitude3_win_width - p% win_aspect_ratio = s% pg% Color_Magnitude3_win_aspect_ratio - p% file_flag = s% pg% Color_Magnitude3_file_flag - p% file_dir = s% pg% Color_Magnitude3_file_dir - p% file_prefix = s% pg% Color_Magnitude3_file_prefix - p% file_interval = s% pg% Color_Magnitude3_file_interval - p% file_width = s% pg% Color_Magnitude3_file_width - p% file_aspect_ratio = s% pg% Color_Magnitude3_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Col_Mag4) - p% plot => Color_Magnitude4_plot - p% id = i_Col_Mag4 - p% name = 'Color_Magnitude4' - p% win_flag = s% pg% Color_Magnitude4_win_flag - p% win_width = s% pg% Color_Magnitude4_win_width - p% win_aspect_ratio = s% pg% Color_Magnitude4_win_aspect_ratio - p% file_flag = s% pg% Color_Magnitude4_file_flag - p% file_dir = s% pg% Color_Magnitude4_file_dir - p% file_prefix = s% pg% Color_Magnitude4_file_prefix - p% file_interval = s% pg% Color_Magnitude4_file_interval - p% file_width = s% pg% Color_Magnitude4_file_width - p% file_aspect_ratio = s% pg% Color_Magnitude4_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Col_Mag5) - p% plot => Color_Magnitude5_plot - p% id = i_Col_Mag5 - p% name = 'Color_Magnitude5' - p% win_flag = s% pg% Color_Magnitude5_win_flag - p% win_width = s% pg% Color_Magnitude5_win_width - p% win_aspect_ratio = s% pg% Color_Magnitude5_win_aspect_ratio - p% file_flag = s% pg% Color_Magnitude5_file_flag - p% file_dir = s% pg% Color_Magnitude5_file_dir - p% file_prefix = s% pg% Color_Magnitude5_file_prefix - p% file_interval = s% pg% Color_Magnitude5_file_interval - p% file_width = s% pg% Color_Magnitude5_file_width - p% file_aspect_ratio = s% pg% Color_Magnitude5_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Col_Mag6) - p% plot => Color_Magnitude6_plot - p% id = i_Col_Mag6 - p% name = 'Color_Magnitude6' - p% win_flag = s% pg% Color_Magnitude6_win_flag - p% win_width = s% pg% Color_Magnitude6_win_width - p% win_aspect_ratio = s% pg% Color_Magnitude6_win_aspect_ratio - p% file_flag = s% pg% Color_Magnitude6_file_flag - p% file_dir = s% pg% Color_Magnitude6_file_dir - p% file_prefix = s% pg% Color_Magnitude6_file_prefix - p% file_interval = s% pg% Color_Magnitude6_file_interval - p% file_width = s% pg% Color_Magnitude6_file_width - p% file_aspect_ratio = s% pg% Color_Magnitude6_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Col_Mag7) - p% plot => Color_Magnitude7_plot - p% id = i_Col_Mag7 - p% name = 'Color_Magnitude7' - p% win_flag = s% pg% Color_Magnitude7_win_flag - p% win_width = s% pg% Color_Magnitude7_win_width - p% win_aspect_ratio = s% pg% Color_Magnitude7_win_aspect_ratio - p% file_flag = s% pg% Color_Magnitude7_file_flag - p% file_dir = s% pg% Color_Magnitude7_file_dir - p% file_prefix = s% pg% Color_Magnitude7_file_prefix - p% file_interval = s% pg% Color_Magnitude7_file_interval - p% file_width = s% pg% Color_Magnitude7_file_width - p% file_aspect_ratio = s% pg% Color_Magnitude7_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Col_Mag8) - p% plot => Color_Magnitude8_plot - p% id = i_Col_Mag8 - p% name = 'Color_Magnitude8' - p% win_flag = s% pg% Color_Magnitude8_win_flag - p% win_width = s% pg% Color_Magnitude8_win_width - p% win_aspect_ratio = s% pg% Color_Magnitude8_win_aspect_ratio - p% file_flag = s% pg% Color_Magnitude8_file_flag - p% file_dir = s% pg% Color_Magnitude8_file_dir - p% file_prefix = s% pg% Color_Magnitude8_file_prefix - p% file_interval = s% pg% Color_Magnitude8_file_interval - p% file_width = s% pg% Color_Magnitude8_file_width - p% file_aspect_ratio = s% pg% Color_Magnitude8_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Col_Mag9) - p% plot => Color_Magnitude9_plot - p% id = i_Col_Mag9 - p% name = 'Color_Magnitude9' - p% win_flag = s% pg% Color_Magnitude9_win_flag - p% win_width = s% pg% Color_Magnitude9_win_width - p% win_aspect_ratio = s% pg% Color_Magnitude9_win_aspect_ratio - p% file_flag = s% pg% Color_Magnitude9_file_flag - p% file_dir = s% pg% Color_Magnitude9_file_dir - p% file_prefix = s% pg% Color_Magnitude9_file_prefix - p% file_interval = s% pg% Color_Magnitude9_file_interval - p% file_width = s% pg% Color_Magnitude9_file_width - p% file_aspect_ratio = s% pg% Color_Magnitude9_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Grid1) - p% plot => grid1_plot - p% id = i_Grid1 - p% name = 'Grid1' - p% win_flag = s% pg% Grid1_win_flag - p% win_width = s% pg% Grid1_win_width - p% win_aspect_ratio = s% pg% Grid1_win_aspect_ratio - p% file_flag = s% pg% Grid1_file_flag - p% file_dir = s% pg% Grid1_file_dir - p% file_prefix = s% pg% Grid1_file_prefix - p% file_interval = s% pg% Grid1_file_interval - p% file_width = s% pg% Grid1_file_width - p% file_aspect_ratio = s% pg% Grid1_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Grid2) - p% plot => grid2_plot - p% id = i_Grid2 - p% name = 'Grid2' - p% win_flag = s% pg% Grid2_win_flag - p% win_width = s% pg% Grid2_win_width - p% win_aspect_ratio = s% pg% Grid2_win_aspect_ratio - p% file_flag = s% pg% Grid2_file_flag - p% file_dir = s% pg% Grid2_file_dir - p% file_prefix = s% pg% Grid2_file_prefix - p% file_interval = s% pg% Grid2_file_interval - p% file_width = s% pg% Grid2_file_width - p% file_aspect_ratio = s% pg% Grid2_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Grid3) - p% plot => grid3_plot - p% id = i_Grid3 - p% name = 'Grid3' - p% win_flag = s% pg% Grid3_win_flag - p% win_width = s% pg% Grid3_win_width - p% win_aspect_ratio = s% pg% Grid3_win_aspect_ratio - p% file_flag = s% pg% Grid3_file_flag - p% file_dir = s% pg% Grid3_file_dir - p% file_prefix = s% pg% Grid3_file_prefix - p% file_interval = s% pg% Grid3_file_interval - p% file_width = s% pg% Grid3_file_width - p% file_aspect_ratio = s% pg% Grid3_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Grid4) - p% plot => grid4_plot - p% id = i_Grid4 - p% name = 'Grid4' - p% win_flag = s% pg% Grid4_win_flag - p% win_width = s% pg% Grid4_win_width - p% win_aspect_ratio = s% pg% Grid4_win_aspect_ratio - p% file_flag = s% pg% Grid4_file_flag - p% file_dir = s% pg% Grid4_file_dir - p% file_prefix = s% pg% Grid4_file_prefix - p% file_interval = s% pg% Grid4_file_interval - p% file_width = s% pg% Grid4_file_width - p% file_aspect_ratio = s% pg% Grid4_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Grid5) - p% plot => grid5_plot - p% id = i_Grid5 - p% name = 'Grid5' - p% win_flag = s% pg% Grid5_win_flag - p% win_width = s% pg% Grid5_win_width - p% win_aspect_ratio = s% pg% Grid5_win_aspect_ratio - p% file_flag = s% pg% Grid5_file_flag - p% file_dir = s% pg% Grid5_file_dir - p% file_prefix = s% pg% Grid5_file_prefix - p% file_interval = s% pg% Grid5_file_interval - p% file_width = s% pg% Grid5_file_width - p% file_aspect_ratio = s% pg% Grid5_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Grid6) - p% plot => grid6_plot - p% id = i_Grid6 - p% name = 'Grid6' - p% win_flag = s% pg% Grid6_win_flag - p% win_width = s% pg% Grid6_win_width - p% win_aspect_ratio = s% pg% Grid6_win_aspect_ratio - p% file_flag = s% pg% Grid6_file_flag - p% file_dir = s% pg% Grid6_file_dir - p% file_prefix = s% pg% Grid6_file_prefix - p% file_interval = s% pg% Grid6_file_interval - p% file_width = s% pg% Grid6_file_width - p% file_aspect_ratio = s% pg% Grid6_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Grid7) - p% plot => grid7_plot - p% id = i_Grid7 - p% name = 'Grid7' - p% win_flag = s% pg% Grid7_win_flag - p% win_width = s% pg% Grid7_win_width - p% win_aspect_ratio = s% pg% Grid7_win_aspect_ratio - p% file_flag = s% pg% Grid7_file_flag - p% file_dir = s% pg% Grid7_file_dir - p% file_prefix = s% pg% Grid7_file_prefix - p% file_interval = s% pg% Grid7_file_interval - p% file_width = s% pg% Grid7_file_width - p% file_aspect_ratio = s% pg% Grid7_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Grid8) - p% plot => grid8_plot - p% id = i_Grid8 - p% name = 'Grid8' - p% win_flag = s% pg% Grid8_win_flag - p% win_width = s% pg% Grid8_win_width - p% win_aspect_ratio = s% pg% Grid8_win_aspect_ratio - p% file_flag = s% pg% Grid8_file_flag - p% file_dir = s% pg% Grid8_file_dir - p% file_prefix = s% pg% Grid8_file_prefix - p% file_interval = s% pg% Grid8_file_interval - p% file_width = s% pg% Grid8_file_width - p% file_aspect_ratio = s% pg% Grid8_file_aspect_ratio - - p => s% pg% pgstar_win_file_ptr(i_Grid9) - p% plot => grid9_plot - p% id = i_Grid9 - p% name = 'Grid9' - p% win_flag = s% pg% Grid9_win_flag - p% win_width = s% pg% Grid9_win_width - p% win_aspect_ratio = s% pg% Grid9_win_aspect_ratio - p% file_flag = s% pg% Grid9_file_flag - p% file_dir = s% pg% Grid9_file_dir - p% file_prefix = s% pg% Grid9_file_prefix - p% file_interval = s% pg% Grid9_file_interval - p% file_width = s% pg% Grid9_file_width - p% file_aspect_ratio = s% pg% Grid9_file_aspect_ratio + do i = 1, pgstar_array_length + p => s% pg% pgstar_win_file_ptr(i_Col_Mag + i - 1) + p% plot => Color_Magnitude_plot + p% id = i_Col_Mag + i - 1 + p% array_ix = i + write(nm, '(I1)') i + p% name = 'Color_Magnitude' // trim(nm) + p% win_flag = s% pg% Color_Magnitude_win_flag(i) + p% win_width = s% pg% Color_Magnitude_win_width(i) + p% win_aspect_ratio = s% pg% Color_Magnitude_win_aspect_ratio(i) + p% file_flag = s% pg% Color_Magnitude_file_flag(i) + p% file_dir = s% pg% Color_Magnitude_file_dir(i) + p% file_prefix = s% pg% Color_Magnitude_file_prefix(i) + p% file_interval = s% pg% Color_Magnitude_file_interval(i) + p% file_width = s% pg% Color_Magnitude_file_width(i) + p% file_aspect_ratio = s% pg% Color_Magnitude_file_aspect_ratio(i) + end do + + do i = 1, pgstar_array_length + p => s% pg% pgstar_win_file_ptr(i_Grid + i - 1) + p% plot => grid_plot + p% id = i_Grid + i - 1 + p% array_ix = 1 + write(nm, '(I1)') i + p% name = 'Grid' // trim(nm) + p% win_flag = s% pg% Grid_win_flag(i) + p% win_width = s% pg% Grid_win_width(i) + p% win_aspect_ratio = s% pg% Grid_win_aspect_ratio(i) + p% file_flag = s% pg% Grid_file_flag(i) + p% file_dir = s% pg% Grid_file_dir(i) + p% file_prefix = s% pg% Grid_file_prefix(i) + p% file_interval = s% pg% Grid_file_interval(i) + p% file_width = s% pg% Grid_file_width(i) + p% file_aspect_ratio = s% pg% Grid_file_aspect_ratio(i) + end do do i = 1, max_num_Other_plots p => s% pg% pgstar_win_file_ptr(i_Other + i - 1) @@ -1420,14 +780,14 @@ subroutine onScreen_Plots(s, must_write_files_in, ierr) do i = 1, num_pgstar_plots p => s% pg% pgstar_win_file_ptr(i) - if(show_plot_now) then + if (show_plot_now) then ! call to check_window opens device call check_window(s, p, ierr) if (failed('check_window')) return ! make the plot (window) if (p% do_win) then - call p% plot(s% id, p% id_win, ierr) + call p% plot(s% id, p% id_win, p% array_ix, ierr) if (failed(p% name)) return end if end if @@ -1439,13 +799,13 @@ subroutine onScreen_Plots(s, must_write_files_in, ierr) end if end if - if(save_plot_now)then + if (save_plot_now) then ! call to check_file opens device and does mkdir call check_file(s, p, ierr) ! make the plot (file) if (p% do_file) then - call p% plot(s% id, p% id_file, ierr) + call p% plot(s% id, p% id_file, p% array_ix, ierr) if (failed(p% name)) return call pgclos if (s% pg% pgstar_report_writing_files) & @@ -1576,7 +936,7 @@ end subroutine read_pgstar_data subroutine update_pgstar_data(s, ierr) - use star_utils, only : eval_csound + use star_utils, only: eval_csound type (star_info), pointer :: s integer, intent(out) :: ierr @@ -1603,7 +963,7 @@ subroutine update_pgstar_data(s, ierr) contains subroutine get_hist_values(num, ierr) - use history, only : do_get_data_for_history_columns + use history, only: do_get_data_for_history_columns integer, intent(in) :: num integer, intent(out) :: ierr integer :: i diff --git a/star/private/pgstar_grid.f90 b/star/private/pgstar_grid.f90 index 79ce7a49c..d9cc6edc2 100644 --- a/star/private/pgstar_grid.f90 +++ b/star/private/pgstar_grid.f90 @@ -35,326 +35,11 @@ module pgstar_grid contains - subroutine grid1_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id + subroutine grid_plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - - call pgslct(device_id) - call pgbbuf() - call pgeras() - - call do_grid1_plot(s, id, device_id, & - s% pg% Grid1_xleft, s% pg% Grid1_xright, & - s% pg% Grid1_ybot, s% pg% Grid1_ytop, .false., s% pg% Grid1_title, & - s% pg% Grid1_txt_scale_factor, ierr) - - call pgebuf() - end subroutine grid1_plot - - subroutine do_grid1_plot(s, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, & - txt_scale_factor, ierr) - integer, intent(in) :: id, device_id - real, intent(in) :: winxmin, winxmax, winymin, winymax - real, intent(in), dimension(max_num_pgstar_grid_plots) :: txt_scale_factor - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call Grid_plot(s, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, & - txt_scale_factor, & - s% pg% Grid1_num_cols, & - s% pg% Grid1_num_rows, & - s% pg% Grid1_num_plots, & - s% pg% Grid1_plot_name, & - s% pg% Grid1_plot_row, & - s% pg% Grid1_plot_rowspan, & - s% pg% Grid1_plot_col, & - s% pg% Grid1_plot_colspan, & - s% pg% Grid1_plot_pad_left, & - s% pg% Grid1_plot_pad_right, & - s% pg% Grid1_plot_pad_top, & - s% pg% Grid1_plot_pad_bot, & - ierr) - end subroutine do_grid1_plot - - subroutine grid2_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - - call pgslct(device_id) - call pgbbuf() - call pgeras() - - call do_grid2_plot(s, id, device_id, & - s% pg% Grid2_xleft, s% pg% Grid2_xright, & - s% pg% Grid2_ybot, s% pg% Grid2_ytop, .false., s% pg% Grid2_title, & - s% pg% Grid2_txt_scale_factor, ierr) - - call pgebuf() - end subroutine grid2_plot - - - subroutine do_grid2_plot(s, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, & - txt_scale_factor, ierr) - integer, intent(in) :: id, device_id - real, intent(in) :: winxmin, winxmax, winymin, winymax - real, intent(in), dimension(max_num_pgstar_grid_plots) :: txt_scale_factor - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call Grid_plot(s, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, & - txt_scale_factor, & - s% pg% Grid2_num_cols, & - s% pg% Grid2_num_rows, & - s% pg% Grid2_num_plots, & - s% pg% Grid2_plot_name, & - s% pg% Grid2_plot_row, & - s% pg% Grid2_plot_rowspan, & - s% pg% Grid2_plot_col, & - s% pg% Grid2_plot_colspan, & - s% pg% Grid2_plot_pad_left, & - s% pg% Grid2_plot_pad_right, & - s% pg% Grid2_plot_pad_top, & - s% pg% Grid2_plot_pad_bot, & - ierr) - end subroutine do_grid2_plot - - - subroutine grid3_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - - call pgslct(device_id) - call pgbbuf() - call pgeras() - - call do_grid3_plot(s, id, device_id, & - s% pg% Grid3_xleft, s% pg% Grid3_xright, & - s% pg% Grid3_ybot, s% pg% Grid3_ytop, .false., s% pg% Grid3_title, & - s% pg% Grid3_txt_scale_factor, ierr) - - call pgebuf() - end subroutine grid3_plot - - - subroutine do_grid3_plot(s, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, & - txt_scale_factor, ierr) - integer, intent(in) :: id, device_id - real, intent(in) :: winxmin, winxmax, winymin, winymax - real, intent(in), dimension(max_num_pgstar_grid_plots) :: txt_scale_factor - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call Grid_plot(s, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, & - txt_scale_factor, & - s% pg% Grid3_num_cols, & - s% pg% Grid3_num_rows, & - s% pg% Grid3_num_plots, & - s% pg% Grid3_plot_name, & - s% pg% Grid3_plot_row, & - s% pg% Grid3_plot_rowspan, & - s% pg% Grid3_plot_col, & - s% pg% Grid3_plot_colspan, & - s% pg% Grid3_plot_pad_left, & - s% pg% Grid3_plot_pad_right, & - s% pg% Grid3_plot_pad_top, & - s% pg% Grid3_plot_pad_bot, & - ierr) - end subroutine do_grid3_plot - - - subroutine grid4_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - - call pgslct(device_id) - call pgbbuf() - call pgeras() - - call do_grid4_plot(s, id, device_id, & - s% pg% Grid4_xleft, s% pg% Grid4_xright, & - s% pg% Grid4_ybot, s% pg% Grid4_ytop, .false., s% pg% Grid4_title, & - s% pg% Grid4_txt_scale_factor, ierr) - - call pgebuf() - end subroutine grid4_plot - - - subroutine do_grid4_plot(s, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, & - txt_scale_factor, ierr) - integer, intent(in) :: id, device_id - real, intent(in) :: winxmin, winxmax, winymin, winymax - real, intent(in), dimension(max_num_pgstar_grid_plots) :: txt_scale_factor - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call Grid_plot(s, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, & - txt_scale_factor, & - s% pg% Grid4_num_cols, & - s% pg% Grid4_num_rows, & - s% pg% Grid4_num_plots, & - s% pg% Grid4_plot_name, & - s% pg% Grid4_plot_row, & - s% pg% Grid4_plot_rowspan, & - s% pg% Grid4_plot_col, & - s% pg% Grid4_plot_colspan, & - s% pg% Grid4_plot_pad_left, & - s% pg% Grid4_plot_pad_right, & - s% pg% Grid4_plot_pad_top, & - s% pg% Grid4_plot_pad_bot, & - ierr) - end subroutine do_grid4_plot - - - subroutine grid5_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - - call pgslct(device_id) - call pgbbuf() - call pgeras() - - call do_grid5_plot(s, id, device_id, & - s% pg% Grid5_xleft, s% pg% Grid5_xright, & - s% pg% Grid5_ybot, s% pg% Grid5_ytop, .false., s% pg% Grid5_title, & - s% pg% Grid5_txt_scale_factor, ierr) - - call pgebuf() - end subroutine grid5_plot - - - subroutine do_grid5_plot(s, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, & - txt_scale_factor, ierr) - integer, intent(in) :: id, device_id - real, intent(in) :: winxmin, winxmax, winymin, winymax - real, intent(in), dimension(max_num_pgstar_grid_plots) :: txt_scale_factor - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call Grid_plot(s, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, & - txt_scale_factor, & - s% pg% Grid5_num_cols, & - s% pg% Grid5_num_rows, & - s% pg% Grid5_num_plots, & - s% pg% Grid5_plot_name, & - s% pg% Grid5_plot_row, & - s% pg% Grid5_plot_rowspan, & - s% pg% Grid5_plot_col, & - s% pg% Grid5_plot_colspan, & - s% pg% Grid5_plot_pad_left, & - s% pg% Grid5_plot_pad_right, & - s% pg% Grid5_plot_pad_top, & - s% pg% Grid5_plot_pad_bot, & - ierr) - end subroutine do_grid5_plot - - subroutine grid6_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - - call pgslct(device_id) - call pgbbuf() - call pgeras() - - call do_grid6_plot(s, id, device_id, & - s% pg% Grid6_xleft, s% pg% Grid6_xright, & - s% pg% Grid6_ybot, s% pg% Grid6_ytop, .false., s% pg% Grid6_title, & - s% pg% Grid6_txt_scale_factor, ierr) - - call pgebuf() - end subroutine grid6_plot - - - subroutine do_grid6_plot(s, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, & - txt_scale_factor, ierr) - integer, intent(in) :: id, device_id - real, intent(in) :: winxmin, winxmax, winymin, winymax - real, intent(in), dimension(max_num_pgstar_grid_plots) :: txt_scale_factor - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call Grid_plot(s, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, & - txt_scale_factor, & - s% pg% Grid6_num_cols, & - s% pg% Grid6_num_rows, & - s% pg% Grid6_num_plots, & - s% pg% Grid6_plot_name, & - s% pg% Grid6_plot_row, & - s% pg% Grid6_plot_rowspan, & - s% pg% Grid6_plot_col, & - s% pg% Grid6_plot_colspan, & - s% pg% Grid6_plot_pad_left, & - s% pg% Grid6_plot_pad_right, & - s% pg% Grid6_plot_pad_top, & - s% pg% Grid6_plot_pad_bot, & - ierr) - end subroutine do_grid6_plot - - - subroutine grid7_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s ierr = 0 call get_star_ptr(id, s, ierr) if (ierr /= 0) return @@ -363,153 +48,49 @@ subroutine grid7_plot(id, device_id, ierr) call pgbbuf() call pgeras() - call do_grid7_plot(s, id, device_id, & - s% pg% Grid7_xleft, s% pg% Grid7_xright, & - s% pg% Grid7_ybot, s% pg% Grid7_ytop, .false., s% pg% Grid7_title, & - s% pg% Grid7_txt_scale_factor, ierr) - - call pgebuf() - end subroutine grid7_plot - - - subroutine do_grid7_plot(s, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, & - txt_scale_factor, ierr) - integer, intent(in) :: id, device_id - real, intent(in) :: winxmin, winxmax, winymin, winymax - real, intent(in), dimension(max_num_pgstar_grid_plots) :: txt_scale_factor - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call Grid_plot(s, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, & - txt_scale_factor, & - s% pg% Grid7_num_cols, & - s% pg% Grid7_num_rows, & - s% pg% Grid7_num_plots, & - s% pg% Grid7_plot_name, & - s% pg% Grid7_plot_row, & - s% pg% Grid7_plot_rowspan, & - s% pg% Grid7_plot_col, & - s% pg% Grid7_plot_colspan, & - s% pg% Grid7_plot_pad_left, & - s% pg% Grid7_plot_pad_right, & - s% pg% Grid7_plot_pad_top, & - s% pg% Grid7_plot_pad_bot, & + call do_grid_plot(s, id, device_id, array_ix, & + s% pg% Grid_xleft(array_ix), s% pg% Grid_xright(array_ix), & + s% pg% Grid_ybot(array_ix), s% pg% Grid_ytop(array_ix), .false., & + s% pg% Grid_title(array_ix), s% pg% Grid_txt_scale_factor(array_ix, :), & ierr) - end subroutine do_grid7_plot - - - subroutine grid8_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - - call pgslct(device_id) - call pgbbuf() - call pgeras() - - call do_grid8_plot(s, id, device_id, & - s% pg% Grid8_xleft, s% pg% Grid8_xright, & - s% pg% Grid8_ybot, s% pg% Grid8_ytop, .false., s% pg% Grid8_title, & - s% pg% Grid8_txt_scale_factor, ierr) call pgebuf() - end subroutine grid8_plot - + end subroutine grid_plot - subroutine do_grid8_plot(s, id, device_id, & + subroutine do_grid_plot(s, id, device_id, array_ix, & winxmin, winxmax, winymin, winymax, subplot, title, & txt_scale_factor, ierr) - integer, intent(in) :: id, device_id + integer, intent(in) :: id, device_id, array_ix real, intent(in) :: winxmin, winxmax, winymin, winymax real, intent(in), dimension(max_num_pgstar_grid_plots) :: txt_scale_factor logical, intent(in) :: subplot character (len = *), intent(in) :: title integer, intent(out) :: ierr type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call Grid_plot(s, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, & - txt_scale_factor, & - s% pg% Grid8_num_cols, & - s% pg% Grid8_num_rows, & - s% pg% Grid8_num_plots, & - s% pg% Grid8_plot_name, & - s% pg% Grid8_plot_row, & - s% pg% Grid8_plot_rowspan, & - s% pg% Grid8_plot_col, & - s% pg% Grid8_plot_colspan, & - s% pg% Grid8_plot_pad_left, & - s% pg% Grid8_plot_pad_right, & - s% pg% Grid8_plot_pad_top, & - s% pg% Grid8_plot_pad_bot, & - ierr) - end subroutine do_grid8_plot - subroutine grid9_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s ierr = 0 call get_star_ptr(id, s, ierr) if (ierr /= 0) return - - call pgslct(device_id) - call pgbbuf() - call pgeras() - - call do_grid9_plot(s, id, device_id, & - s% pg% Grid9_xleft, s% pg% Grid9_xright, & - s% pg% Grid9_ybot, s% pg% Grid9_ytop, .false., s% pg% Grid9_title, & - s% pg% Grid9_txt_scale_factor, ierr) - - call pgebuf() - end subroutine grid9_plot - - - subroutine do_grid9_plot(s, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, & - txt_scale_factor, ierr) - integer, intent(in) :: id, device_id - real, intent(in) :: winxmin, winxmax, winymin, winymax - real, intent(in), dimension(max_num_pgstar_grid_plots) :: txt_scale_factor - logical, intent(in) :: subplot - character (len = *), intent(in) :: title - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call Grid_plot(s, id, device_id, & + call do_one_Grid_plot(s, id, device_id, array_ix, & winxmin, winxmax, winymin, winymax, subplot, title, & txt_scale_factor, & - s% pg% Grid9_num_cols, & - s% pg% Grid9_num_rows, & - s% pg% Grid9_num_plots, & - s% pg% Grid9_plot_name, & - s% pg% Grid9_plot_row, & - s% pg% Grid9_plot_rowspan, & - s% pg% Grid9_plot_col, & - s% pg% Grid9_plot_colspan, & - s% pg% Grid9_plot_pad_left, & - s% pg% Grid9_plot_pad_right, & - s% pg% Grid9_plot_pad_top, & - s% pg% Grid9_plot_pad_bot, & + s% pg% Grid_num_cols(array_ix), & + s% pg% Grid_num_rows(array_ix), & + s% pg% Grid_num_plots(array_ix), & + s% pg% Grid_plot_name(array_ix, :), & + s% pg% Grid_plot_row(array_ix, :), & + s% pg% Grid_plot_rowspan(array_ix, :), & + s% pg% Grid_plot_col(array_ix, :), & + s% pg% Grid_plot_colspan(array_ix, :), & + s% pg% Grid_plot_pad_left(array_ix, :), & + s% pg% Grid_plot_pad_right(array_ix, :), & + s% pg% Grid_plot_pad_top(array_ix, :), & + s% pg% Grid_plot_pad_bot(array_ix, :), & ierr) - end subroutine do_grid9_plot + end subroutine do_grid_plot - subroutine Grid_plot(s, id, device_id, & + subroutine do_one_Grid_plot(s, id, device_id, array_ix, & Grid_xleft, Grid_xright, & Grid_ybot, Grid_ytop, subplot, Grid_title, & Grid_txt_scale_factor, & @@ -554,30 +135,15 @@ subroutine Grid_plot(s, id, device_id, & use pgstar_summary_history, only : do_summary_history_plot use pgstar_network, only : do_network_plot use pgstar_production, only : do_production_plot - use pgstar_summary, only : & - do_Text_Summary1_plot, do_Text_Summary2_plot, do_Text_Summary3_plot, & - do_Text_Summary4_plot, do_Text_Summary5_plot, do_Text_Summary6_plot, & - do_Text_Summary7_plot, do_Text_Summary8_plot, do_Text_Summary9_plot - use pgstar_profile_panels, only : & - do_Profile_Panels1_plot, do_Profile_Panels2_plot, do_Profile_Panels3_plot, & - do_Profile_Panels4_plot, do_Profile_Panels5_plot, do_Profile_Panels6_plot, & - do_Profile_Panels7_plot, do_Profile_Panels8_plot, do_Profile_Panels9_plot - use pgstar_history_panels, only : & - do_History_Panels1_plot, do_History_Panels2_plot, do_History_Panels3_plot, & - do_History_Panels4_plot, do_History_Panels5_plot, do_History_Panels6_plot, & - do_History_Panels7_plot, do_History_Panels8_plot, do_History_Panels9_plot - use pgstar_hist_track, only : & - do_History_Track1_plot, do_History_Track2_plot, do_History_Track3_plot, & - do_History_Track4_plot, do_History_Track5_plot, do_History_Track6_plot, & - do_History_Track7_plot, do_History_Track8_plot, do_History_Track9_plot - use pgstar_Color_Magnitude, only : & - do_Color_Magnitude1_plot, do_Color_Magnitude2_plot, do_Color_Magnitude3_plot, & - do_Color_Magnitude4_plot, do_Color_Magnitude5_plot, do_Color_Magnitude6_plot, & - do_Color_Magnitude7_plot, do_Color_Magnitude8_plot, do_Color_Magnitude9_plot + use pgstar_summary, only : do_Text_Summary_plot + use pgstar_profile_panels, only : do_Profile_Panels_plot + use pgstar_history_panels, only : do_History_Panels_plot + use pgstar_hist_track, only : do_History_Track_plot + use pgstar_Color_Magnitude, only : do_Color_Magnitude_plot type (star_info), pointer :: s logical, intent(in) :: subplot - integer, intent(in) :: id, device_id, & + integer, intent(in) :: id, device_id, array_ix, & Grid_num_cols, & Grid_num_rows, & Grid_num_plots, & @@ -713,42 +279,42 @@ subroutine Grid_plot(s, id, device_id, & call do_TRho_Profile_plot(& s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% TRho_Profile_title, & Grid_txt_scale_factor(i) * s% pg% TRho_Profile_txt_scale, ierr) - case ('profile_panels1') - call do_Profile_Panels1_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% Profile_Panels1_title, & - Grid_txt_scale_factor(i) * s% pg% Profile_Panels1_txt_scale, ierr) - case ('profile_panels2') - call do_Profile_Panels2_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% Profile_Panels2_title, & - Grid_txt_scale_factor(i) * s% pg% Profile_Panels2_txt_scale, ierr) - case ('profile_panels3') - call do_Profile_Panels3_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% Profile_Panels3_title, & - Grid_txt_scale_factor(i) * s% pg% Profile_Panels3_txt_scale, ierr) - case ('profile_panels4') - call do_Profile_Panels4_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% Profile_Panels4_title, & - Grid_txt_scale_factor(i) * s% pg% Profile_Panels4_txt_scale, ierr) - case ('profile_panels5') - call do_Profile_Panels5_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% Profile_Panels5_title, & - Grid_txt_scale_factor(i) * s% pg% Profile_Panels5_txt_scale, ierr) - case ('profile_panels6') - call do_Profile_Panels6_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% Profile_Panels6_title, & - Grid_txt_scale_factor(i) * s% pg% Profile_Panels6_txt_scale, ierr) - case ('profile_panels7') - call do_Profile_Panels7_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% Profile_Panels7_title, & - Grid_txt_scale_factor(i) * s% pg% Profile_Panels7_txt_scale, ierr) - case ('profile_panels8') - call do_Profile_Panels8_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% Profile_Panels8_title, & - Grid_txt_scale_factor(i) * s% pg% Profile_Panels8_txt_scale, ierr) - case ('profile_panels9') - call do_Profile_Panels9_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% Profile_Panels9_title, & - Grid_txt_scale_factor(i) * s% pg% Profile_Panels9_txt_scale, ierr) + case ('profile_panels(1)') + call do_Profile_Panels_plot(& + s, id, device_id, 1, xleft, xright, ybot, ytop, grid_subplot, s% pg% Profile_Panels_title(1), & + Grid_txt_scale_factor(i) * s% pg% Profile_Panels_txt_scale(1), ierr) + case ('profile_panels(2)') + call do_Profile_Panels_plot(& + s, id, device_id, 2, xleft, xright, ybot, ytop, grid_subplot, s% pg% Profile_Panels_title(2), & + Grid_txt_scale_factor(i) * s% pg% Profile_Panels_txt_scale(2), ierr) + case ('profile_panels(3)') + call do_Profile_Panels_plot(& + s, id, device_id, 3, xleft, xright, ybot, ytop, grid_subplot, s% pg% Profile_Panels_title(3), & + Grid_txt_scale_factor(i) * s% pg% Profile_Panels_txt_scale(3), ierr) + case ('profile_panels(4)') + call do_Profile_Panels_plot(& + s, id, device_id, 4, xleft, xright, ybot, ytop, grid_subplot, s% pg% Profile_Panels_title(4), & + Grid_txt_scale_factor(i) * s% pg% Profile_Panels_txt_scale(4), ierr) + case ('profile_panels(5)') + call do_Profile_Panels_plot(& + s, id, device_id, 5, xleft, xright, ybot, ytop, grid_subplot, s% pg% Profile_Panels_title(5), & + Grid_txt_scale_factor(i) * s% pg% Profile_Panels_txt_scale(5), ierr) + case ('profile_panels(6)') + call do_Profile_Panels_plot(& + s, id, device_id, 6, xleft, xright, ybot, ytop, grid_subplot, s% pg% Profile_Panels_title(6), & + Grid_txt_scale_factor(i) * s% pg% Profile_Panels_txt_scale(6), ierr) + case ('profile_panels(7)') + call do_Profile_Panels_plot(& + s, id, device_id, 7, xleft, xright, ybot, ytop, grid_subplot, s% pg% Profile_Panels_title(7), & + Grid_txt_scale_factor(i) * s% pg% Profile_Panels_txt_scale(7), ierr) + case ('profile_panels(8)') + call do_Profile_Panels_plot(& + s, id, device_id, 8, xleft, xright, ybot, ytop, grid_subplot, s% pg% Profile_Panels_title(8), & + Grid_txt_scale_factor(i) * s% pg% Profile_Panels_txt_scale(8), ierr) + case ('profile_panels(9)') + call do_Profile_Panels_plot(& + s, id, device_id, 9, xleft, xright, ybot, ytop, grid_subplot, s% pg% Profile_Panels_title(9), & + Grid_txt_scale_factor(i) * s% pg% Profile_Panels_txt_scale(9), ierr) case ('logg_teff') call do_logg_Teff_plot(& s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% logg_Teff_title, & @@ -799,114 +365,114 @@ subroutine Grid_plot(s, id, device_id, & call do_dPg_dnu_plot(& s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% dPg_dnu_title, & Grid_txt_scale_factor(i) * s% pg% dPg_dnu_txt_scale, ierr) - case ('history_panels1') - call do_History_Panels1_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Panels1_title, & - Grid_txt_scale_factor(i) * s% pg% History_Panels1_txt_scale, ierr) - case ('history_panels2') - call do_History_Panels2_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Panels2_title, & - Grid_txt_scale_factor(i) * s% pg% History_Panels2_txt_scale, ierr) - case ('history_panels3') - call do_History_Panels3_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Panels3_title, & - Grid_txt_scale_factor(i) * s% pg% History_Panels3_txt_scale, ierr) - case ('history_panels4') - call do_History_Panels4_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Panels4_title, & - Grid_txt_scale_factor(i) * s% pg% History_Panels4_txt_scale, ierr) - case ('history_panels5') - call do_History_Panels5_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Panels5_title, & - Grid_txt_scale_factor(i) * s% pg% History_Panels5_txt_scale, ierr) - case ('history_panels6') - call do_History_Panels6_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Panels6_title, & - Grid_txt_scale_factor(i) * s% pg% History_Panels6_txt_scale, ierr) - case ('history_panels7') - call do_History_Panels7_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Panels7_title, & - Grid_txt_scale_factor(i) * s% pg% History_Panels7_txt_scale, ierr) - case ('history_panels8') - call do_History_Panels8_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Panels8_title, & - Grid_txt_scale_factor(i) * s% pg% History_Panels8_txt_scale, ierr) - case ('history_panels9') - call do_History_Panels9_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Panels9_title, & - Grid_txt_scale_factor(i) * s% pg% History_Panels9_txt_scale, ierr) - case ('color_magnitude1') - call do_Color_Magnitude1_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% Color_Magnitude1_title, & - Grid_txt_scale_factor(i) * s% pg% Color_Magnitude1_txt_scale, ierr) - case ('color_magnitude2') - call do_Color_Magnitude2_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% Color_Magnitude2_title, & - Grid_txt_scale_factor(i) * s% pg% Color_Magnitude2_txt_scale, ierr) - case ('color_magnitude3') - call do_Color_Magnitude3_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% Color_Magnitude3_title, & - Grid_txt_scale_factor(i) * s% pg% Color_Magnitude3_txt_scale, ierr) - case ('color_magnitude4') - call do_Color_Magnitude4_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% Color_Magnitude4_title, & - Grid_txt_scale_factor(i) * s% pg% Color_Magnitude4_txt_scale, ierr) - case ('color_magnitude5') - call do_Color_Magnitude5_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% Color_Magnitude5_title, & - Grid_txt_scale_factor(i) * s% pg% Color_Magnitude5_txt_scale, ierr) - case ('color_magnitude6') - call do_Color_Magnitude6_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% Color_Magnitude6_title, & - Grid_txt_scale_factor(i) * s% pg% Color_Magnitude6_txt_scale, ierr) - case ('color_magnitude7') - call do_Color_Magnitude7_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% Color_Magnitude7_title, & - Grid_txt_scale_factor(i) * s% pg% Color_Magnitude7_txt_scale, ierr) - case ('color_magnitude8') - call do_Color_Magnitude8_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% Color_Magnitude8_title, & - Grid_txt_scale_factor(i) * s% pg% Color_Magnitude8_txt_scale, ierr) - case ('color_magnitude9') - call do_Color_Magnitude9_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% Color_Magnitude9_title, & - Grid_txt_scale_factor(i) * s% pg% Color_Magnitude9_txt_scale, ierr) - case ('history_track1') - call do_History_Track1_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Track1_title, & - Grid_txt_scale_factor(i) * s% pg% History_Track1_txt_scale, ierr) - case ('history_track2') - call do_History_Track2_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Track2_title, & - Grid_txt_scale_factor(i) * s% pg% History_Track2_txt_scale, ierr) - case ('history_track3') - call do_History_Track3_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Track3_title, & - Grid_txt_scale_factor(i) * s% pg% History_Track3_txt_scale, ierr) - case ('history_track4') - call do_History_Track4_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Track4_title, & - Grid_txt_scale_factor(i) * s% pg% History_Track4_txt_scale, ierr) - case ('history_track5') - call do_History_Track5_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Track5_title, & - Grid_txt_scale_factor(i) * s% pg% History_Track5_txt_scale, ierr) - case ('history_track6') - call do_History_Track6_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Track6_title, & - Grid_txt_scale_factor(i) * s% pg% History_Track6_txt_scale, ierr) - case ('history_track7') - call do_History_Track7_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Track7_title, & - Grid_txt_scale_factor(i) * s% pg% History_Track7_txt_scale, ierr) - case ('history_track8') - call do_History_Track8_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Track8_title, & - Grid_txt_scale_factor(i) * s% pg% History_Track8_txt_scale, ierr) - case ('history_track9') - call do_History_Track9_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Track9_title, & - Grid_txt_scale_factor(i) * s% pg% History_Track9_txt_scale, ierr) + case ('history_panels(1)') + call do_History_Panels_plot(& + s, id, device_id, 1, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Panels_title(1), & + Grid_txt_scale_factor(i) * s% pg% History_Panels_txt_scale(1), ierr) + case ('history_panels(2)') + call do_History_Panels_plot(& + s, id, device_id, 2, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Panels_title(2), & + Grid_txt_scale_factor(i) * s% pg% History_Panels_txt_scale(2), ierr) + case ('history_panels(3)') + call do_History_Panels_plot(& + s, id, device_id, 3, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Panels_title(3), & + Grid_txt_scale_factor(i) * s% pg% History_Panels_txt_scale(3), ierr) + case ('history_panels(4)') + call do_History_Panels_plot(& + s, id, device_id, 4, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Panels_title(4), & + Grid_txt_scale_factor(i) * s% pg% History_Panels_txt_scale(4), ierr) + case ('history_panels(5)') + call do_History_Panels_plot(& + s, id, device_id, 5, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Panels_title(5), & + Grid_txt_scale_factor(i) * s% pg% History_Panels_txt_scale(5), ierr) + case ('history_panels(6)') + call do_History_Panels_plot(& + s, id, device_id, 6, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Panels_title(6), & + Grid_txt_scale_factor(i) * s% pg% History_Panels_txt_scale(6), ierr) + case ('history_panels(7)') + call do_History_Panels_plot(& + s, id, device_id, 7, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Panels_title(7), & + Grid_txt_scale_factor(i) * s% pg% History_Panels_txt_scale(7), ierr) + case ('history_panels(8)') + call do_History_Panels_plot(& + s, id, device_id, 8, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Panels_title(8), & + Grid_txt_scale_factor(i) * s% pg% History_Panels_txt_scale(8), ierr) + case ('history_panels(9)') + call do_History_Panels_plot(& + s, id, device_id, 9, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Panels_title(9), & + Grid_txt_scale_factor(i) * s% pg% History_Panels_txt_scale(9), ierr) + case ('color_magnitude(1)') + call do_Color_Magnitude_plot(& + s, id, device_id, 1, xleft, xright, ybot, ytop, grid_subplot, s% pg% Color_Magnitude_title(1), & + Grid_txt_scale_factor(i) * s% pg% Color_Magnitude_txt_scale(1), ierr) + case ('color_magnitude(2)') + call do_Color_Magnitude_plot(& + s, id, device_id, 2, xleft, xright, ybot, ytop, grid_subplot, s% pg% Color_Magnitude_title(2), & + Grid_txt_scale_factor(i) * s% pg% Color_Magnitude_txt_scale(2), ierr) + case ('color_magnitude(3)') + call do_Color_Magnitude_plot(& + s, id, device_id, 3, xleft, xright, ybot, ytop, grid_subplot, s% pg% Color_Magnitude_title(3), & + Grid_txt_scale_factor(i) * s% pg% Color_Magnitude_txt_scale(3), ierr) + case ('color_magnitude(4)') + call do_Color_Magnitude_plot(& + s, id, device_id, 4, xleft, xright, ybot, ytop, grid_subplot, s% pg% Color_Magnitude_title(4), & + Grid_txt_scale_factor(i) * s% pg% Color_Magnitude_txt_scale(4), ierr) + case ('color_magnitude(5)') + call do_Color_Magnitude_plot(& + s, id, device_id, 5, xleft, xright, ybot, ytop, grid_subplot, s% pg% Color_Magnitude_title(5), & + Grid_txt_scale_factor(i) * s% pg% Color_Magnitude_txt_scale(5), ierr) + case ('color_magnitude(6)') + call do_Color_Magnitude_plot(& + s, id, device_id, 6, xleft, xright, ybot, ytop, grid_subplot, s% pg% Color_Magnitude_title(6), & + Grid_txt_scale_factor(i) * s% pg% Color_Magnitude_txt_scale(6), ierr) + case ('color_magnitude(7)') + call do_Color_Magnitude_plot(& + s, id, device_id, 7, xleft, xright, ybot, ytop, grid_subplot, s% pg% Color_Magnitude_title(7), & + Grid_txt_scale_factor(i) * s% pg% Color_Magnitude_txt_scale(7), ierr) + case ('color_magnitude(8)') + call do_Color_Magnitude_plot(& + s, id, device_id, 8, xleft, xright, ybot, ytop, grid_subplot, s% pg% Color_Magnitude_title(8), & + Grid_txt_scale_factor(i) * s% pg% Color_Magnitude_txt_scale(8), ierr) + case ('color_magnitude(9)') + call do_Color_Magnitude_plot(& + s, id, device_id, 9, xleft, xright, ybot, ytop, grid_subplot, s% pg% Color_Magnitude_title(9), & + Grid_txt_scale_factor(i) * s% pg% Color_Magnitude_txt_scale(9), ierr) + case ('history_track(1)') + call do_History_Track_plot(& + s, id, device_id, 1, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Track_title(1), & + Grid_txt_scale_factor(i) * s% pg% History_Track_txt_scale(1), ierr) + case ('history_track(2)') + call do_History_Track_plot(& + s, id, device_id, 2, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Track_title(2), & + Grid_txt_scale_factor(i) * s% pg% History_Track_txt_scale(2), ierr) + case ('history_track(3)') + call do_History_Track_plot(& + s, id, device_id, 3, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Track_title(3), & + Grid_txt_scale_factor(i) * s% pg% History_Track_txt_scale(3), ierr) + case ('history_track(4)') + call do_History_Track_plot(& + s, id, device_id, 4, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Track_title(4), & + Grid_txt_scale_factor(i) * s% pg% History_Track_txt_scale(4), ierr) + case ('history_track(5)') + call do_History_Track_plot(& + s, id, device_id, 5, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Track_title(5), & + Grid_txt_scale_factor(i) * s% pg% History_Track_txt_scale(5), ierr) + case ('history_track(6)') + call do_History_Track_plot(& + s, id, device_id, 6, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Track_title(6), & + Grid_txt_scale_factor(i) * s% pg% History_Track_txt_scale(6), ierr) + case ('history_track(7)') + call do_History_Track_plot(& + s, id, device_id, 7, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Track_title(7), & + Grid_txt_scale_factor(i) * s% pg% History_Track_txt_scale(7), ierr) + case ('history_track(8)') + call do_History_Track_plot(& + s, id, device_id, 8, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Track_title(8), & + Grid_txt_scale_factor(i) * s% pg% History_Track_txt_scale(8), ierr) + case ('history_track(9)') + call do_History_Track_plot(& + s, id, device_id, 9, xleft, xright, ybot, ytop, grid_subplot, s% pg% History_Track_title(9), & + Grid_txt_scale_factor(i) * s% pg% History_Track_txt_scale(9), ierr) case ('kipp') call do_Kipp_plot(& s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% Kipp_title, & @@ -919,42 +485,42 @@ subroutine Grid_plot(s, id, device_id, & call do_Production_plot(& s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% Production_title, & Grid_txt_scale_factor(i) * s% pg% Production_txt_scale, ierr) - case ('text_summary1') - call do_Text_Summary1_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% Text_Summary1_title, & - Grid_txt_scale_factor(i) * s% pg% Text_Summary1_txt_scale, s% pg% Text_Summary1_dxval, ierr) - case ('text_summary2') - call do_Text_Summary2_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% Text_Summary2_title, & - Grid_txt_scale_factor(i) * s% pg% Text_Summary2_txt_scale, s% pg% Text_Summary2_dxval, ierr) - case ('text_summary3') - call do_Text_Summary3_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% Text_Summary3_title, & - Grid_txt_scale_factor(i) * s% pg% Text_Summary3_txt_scale, s% pg% Text_Summary3_dxval, ierr) - case ('text_summary4') - call do_Text_Summary4_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% Text_Summary4_title, & - Grid_txt_scale_factor(i) * s% pg% Text_Summary4_txt_scale, s% pg% Text_Summary4_dxval, ierr) - case ('text_summary5') - call do_Text_Summary5_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% Text_Summary5_title, & - Grid_txt_scale_factor(i) * s% pg% Text_Summary5_txt_scale, s% pg% Text_Summary5_dxval, ierr) - case ('text_summary6') - call do_Text_Summary6_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% Text_Summary6_title, & - Grid_txt_scale_factor(i) * s% pg% Text_Summary6_txt_scale, s% pg% Text_Summary6_dxval, ierr) - case ('text_summary7') - call do_Text_Summary7_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% Text_Summary7_title, & - Grid_txt_scale_factor(i) * s% pg% Text_Summary7_txt_scale, s% pg% Text_Summary7_dxval, ierr) - case ('text_summary8') - call do_Text_Summary8_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% Text_Summary8_title, & - Grid_txt_scale_factor(i) * s% pg% Text_Summary8_txt_scale, s% pg% Text_Summary8_dxval, ierr) - case ('text_summary9') - call do_Text_Summary9_plot(& - s, id, device_id, xleft, xright, ybot, ytop, grid_subplot, s% pg% Text_Summary9_title, & - Grid_txt_scale_factor(i) * s% pg% Text_Summary9_txt_scale, s% pg% Text_Summary9_dxval, ierr) + case ('text_summary(1)') + call do_Text_Summary_plot(& + s, id, device_id, 1, xleft, xright, ybot, ytop, grid_subplot, s% pg% Text_Summary_title(1), & + Grid_txt_scale_factor(i) * s% pg% Text_Summary_txt_scale(1), s% pg% Text_Summary_dxval(1), ierr) + case ('text_summary(2)') + call do_Text_Summary_plot(& + s, id, device_id, 2, xleft, xright, ybot, ytop, grid_subplot, s% pg% Text_Summary_title(2), & + Grid_txt_scale_factor(i) * s% pg% Text_Summary_txt_scale(2), s% pg% Text_Summary_dxval(2), ierr) + case ('text_summary(3)') + call do_Text_Summary_plot(& + s, id, device_id, 3, xleft, xright, ybot, ytop, grid_subplot, s% pg% Text_Summary_title(3), & + Grid_txt_scale_factor(i) * s% pg% Text_Summary_txt_scale(3), s% pg% Text_Summary_dxval(3), ierr) + case ('text_summary(4)') + call do_Text_Summary_plot(& + s, id, device_id, 4, xleft, xright, ybot, ytop, grid_subplot, s% pg% Text_Summary_title(4), & + Grid_txt_scale_factor(i) * s% pg% Text_Summary_txt_scale(4), s% pg% Text_Summary_dxval(4), ierr) + case ('text_summary(5)') + call do_Text_Summary_plot(& + s, id, device_id, 5, xleft, xright, ybot, ytop, grid_subplot, s% pg% Text_Summary_title(5), & + Grid_txt_scale_factor(i) * s% pg% Text_Summary_txt_scale(5), s% pg% Text_Summary_dxval(5), ierr) + case ('text_summary(6)') + call do_Text_Summary_plot(& + s, id, device_id, 6, xleft, xright, ybot, ytop, grid_subplot, s% pg% Text_Summary_title(6), & + Grid_txt_scale_factor(i) * s% pg% Text_Summary_txt_scale(6), s% pg% Text_Summary_dxval(6), ierr) + case ('text_summary(7)') + call do_Text_Summary_plot(& + s, id, device_id, 7, xleft, xright, ybot, ytop, grid_subplot, s% pg% Text_Summary_title(7), & + Grid_txt_scale_factor(i) * s% pg% Text_Summary_txt_scale(7), s% pg% Text_Summary_dxval(7), ierr) + case ('text_summary(8)') + call do_Text_Summary_plot(& + s, id, device_id, 8, xleft, xright, ybot, ytop, grid_subplot, s% pg% Text_Summary_title(8), & + Grid_txt_scale_factor(i) * s% pg% Text_Summary_txt_scale(8), s% pg% Text_Summary_dxval(8), ierr) + case ('text_summary(9)') + call do_Text_Summary_plot(& + s, id, device_id, 9, xleft, xright, ybot, ytop, grid_subplot, s% pg% Text_Summary_title(9), & + Grid_txt_scale_factor(i) * s% pg% Text_Summary_txt_scale(9), s% pg% Text_Summary_dxval(9), ierr) case default ! check for "other" plot found_it = .false. @@ -1001,11 +567,11 @@ subroutine Grid_plot(s, id, device_id, & 'Dynamo', & 'Mixing', & 'Mode_Prop', & - 'Text_Summary1,..,9', & - 'Profile_Panels1,..,9', & - 'History_Panels1,..,9', & - 'History_Tracks1,..,9', & - 'Color_Magnitude1,..,9', & + 'Text_Summary(1,..,9)', & + 'Profile_Panels(1,..,9)', & + 'History_Panels(1,..,9)', & + 'History_Tracks(1,..,9)', & + 'Color_Magnitude(1,..,9)', & 'and if you are using star/astero', & 'Echelle', & 'Ratios' @@ -1021,8 +587,7 @@ subroutine Grid_plot(s, id, device_id, & end do - end subroutine Grid_plot + end subroutine do_one_Grid_plot end module pgstar_grid - diff --git a/star/private/pgstar_hist_track.f90 b/star/private/pgstar_hist_track.f90 index fce694473..06fb289dc 100644 --- a/star/private/pgstar_hist_track.f90 +++ b/star/private/pgstar_hist_track.f90 @@ -23,823 +23,346 @@ ! ! *********************************************************************** - module pgstar_hist_track +module pgstar_hist_track + + use star_private_def + use const_def + use pgstar_support + use star_pgstar + + implicit none + + +contains + + + subroutine History_Track_plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix + integer, intent(out) :: ierr + type (star_info), pointer :: s + + ierr = 0 + call get_star_ptr(id, s, ierr) + if (ierr /= 0) return + call pgslct(device_id) + call pgbbuf() + call pgeras() + call do_History_Track_plot(s, id, device_id, array_ix, & + s% pg% History_Track_xleft(array_ix), s% pg% History_Track_xright(array_ix), & + s% pg% History_Track_ybot(array_ix), s% pg% History_Track_ytop(array_ix), .false., & + s% pg% History_Track_title(array_ix), s% pg% History_Track_txt_scale(array_ix), ierr) + if (ierr /= 0) return + call pgebuf() + end subroutine History_Track_plot + + + subroutine do_History_Track_plot(s, id, device_id, array_ix, & + vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) + type (star_info), pointer :: s + integer, intent(in) :: id, device_id, array_ix + real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale + logical, intent(in) :: subplot + character (len = *), intent(in) :: title + integer, intent(out) :: ierr + procedure(pgstar_decorator_interface), pointer :: decorator + + select case (array_ix) ! decorator interfaces cannot be arrayified + case(1) + decorator => s% pg% History_Track1_pgstar_decorator + case(2) + decorator => s% pg% History_Track2_pgstar_decorator + case(3) + decorator => s% pg% History_Track3_pgstar_decorator + case(4) + decorator => s% pg% History_Track4_pgstar_decorator + case(5) + decorator => s% pg% History_Track5_pgstar_decorator + case(6) + decorator => s% pg% History_Track6_pgstar_decorator + case(7) + decorator => s% pg% History_Track7_pgstar_decorator + case(8) + decorator => s% pg% History_Track8_pgstar_decorator + case(9) + decorator => s% pg% History_Track9_pgstar_decorator + case default + write(*, *) "select appropriate history track window (1..9)" + return + end select + + call do_Hist_Track(s, id, device_id, & + vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & + s% pg% History_Track_xname(array_ix), & + s% pg% History_Track_yname(array_ix), & + s% pg% History_Track_xaxis_label(array_ix), & + s% pg% History_Track_yaxis_label(array_ix), & + s% pg% History_Track_xmin(array_ix), & + s% pg% History_Track_xmax(array_ix), & + s% pg% History_Track_xmargin(array_ix), & + s% pg% History_Track_dxmin(array_ix), & + s% pg% History_Track_ymin(array_ix), & + s% pg% History_Track_ymax(array_ix), & + s% pg% History_Track_ymargin(array_ix), & + s% pg% History_Track_dymin(array_ix), & + s% pg% History_Track_step_min(array_ix), & + s% pg% History_Track_step_max(array_ix), & + s% pg% History_Track_reverse_xaxis(array_ix), & + s% pg% History_Track_reverse_yaxis(array_ix), & + s% pg% History_Track_log_xaxis(array_ix), & + s% pg% History_Track_log_yaxis(array_ix), & + s% pg% show_History_Track_target_box(array_ix), & + s% pg% History_Track_n_sigma(array_ix), & + s% pg% History_Track_xtarget(array_ix), & + s% pg% History_Track_ytarget(array_ix), & + s% pg% History_Track_xsigma(array_ix), & + s% pg% History_Track_ysigma(array_ix), & + s% pg% show_History_Track_annotation1(array_ix), & + s% pg% show_History_Track_annotation2(array_ix), & + s% pg% show_History_Track_annotation3(array_ix), & + s% pg% History_Track_fname(array_ix), & + s% pg% History_Track_use_decorator(array_ix), & + decorator, null_decorate, & + ierr) + end subroutine do_History_Track_plot + + + subroutine null_decorate(id, ierr) + integer, intent(in) :: id + integer, intent(out) :: ierr + ierr = 0 + end subroutine null_decorate + + + subroutine do_Hist_Track(s, id, device_id, & + vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & + xname, yname, xaxis_label, yaxis_label, & + given_xmin, given_xmax, xmargin, dxmin, & + given_ymin, given_ymax, ymargin, dymin, & + step_min_in, step_max_in, & + reverse_xaxis, reverse_yaxis, & + log_xaxis, log_yaxis, & + show_target_box, n_sigma, & + xtarget, ytarget, xsigma, ysigma, & + show_annotation1, show_annotation2, show_annotation3, & + fname, & + use_decorator, pgstar_decorator, decorate, ierr) + use utils_lib + + type (star_info), pointer :: s + integer, intent(in) :: & + id, device_id, step_min_in, step_max_in, n_sigma + real, intent(in) :: & + vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale, & + xtarget, ytarget, xsigma, ysigma, & + given_xmin, given_xmax, xmargin, dxmin, & + given_ymin, given_ymax, ymargin, dymin + character (len = *), intent(in) :: & + title, xname, yname, xaxis_label, yaxis_label, fname + logical, intent(in) :: subplot, & + reverse_xaxis, reverse_yaxis, log_xaxis, log_yaxis, show_target_box, & + show_annotation1, show_annotation2, show_annotation3, use_decorator + interface + subroutine decorate(id, ierr) + integer, intent(in) :: id + integer, intent(out) :: ierr + end subroutine decorate + end interface + integer, intent(out) :: ierr + procedure(pgstar_decorator_interface), pointer :: pgstar_decorator + + real :: xmin, xmax, ymin, ymax, xleft, xright, ybot, ytop + integer :: i, j, j_min, j_max, step_min, step_max + real :: dx, dy, xplus, xminus, yplus, yminus + real, dimension(:), allocatable :: xvec, yvec + character (len = strlen) :: str + integer :: k, n + integer :: ix, iy + integer :: file_data_len + real, allocatable, dimension(:) :: file_data_xvec, file_data_yvec + + logical, parameter :: dbg = .false. + + include 'formats' + + ierr = 0 + + call integer_dict_lookup(s% history_names_dict, xname, ix, ierr) + if (ierr /= 0) ix = -1 + if (ix <= 0) then + write(*, '(A)') + write(*, *) 'ERROR: failed to find ' // & + trim(xname) // ' in history data' + write(*, '(A)') + ierr = -1 + end if + + call integer_dict_lookup(s% history_names_dict, yname, iy, ierr) + if (ierr /= 0) iy = -1 + if (iy <= 0) then + write(*, '(A)') + write(*, *) 'ERROR: failed to find ' // & + trim(yname) // ' in history data' + write(*, '(A)') + ierr = -1 + end if + if (ierr /= 0) return + step_min = max(step_min_in, 1) + if (step_max_in >= 0) then + step_max = min(step_max_in, s% model_number) + else + step_max = s% model_number + end if + n = count_hist_points(s, step_min, step_max) + allocate(xvec(n), yvec(n), stat = ierr) + if (ierr /= 0) then + write(*, *) 'allocate failed for PGSTAR' + return + end if + + call get_hist_points(s, step_min, step_max, n, ix, xvec, ierr) + if (ierr /= 0) then + write(*, *) 'pgstar do_Hist_Track get_hist_points failed ' // trim(xname) + ierr = 0 + !return + end if + call get_hist_points(s, step_min, step_max, n, iy, yvec, ierr) + if (ierr /= 0) then + write(*, *) 'pgstar do_Hist_Track get_hist_points failed ' // trim(yname) + ierr = 0 + !return + end if + + if (log_xaxis) then + do k = 1, n + xvec(k) = log10(max(tiny(xvec(k)), abs(xvec(k)))) + end do + end if + + if (log_yaxis) then + do k = 1, n + yvec(k) = log10(max(tiny(yvec(k)), abs(yvec(k)))) + end do + end if + + call set_xleft_xright(& + n, xvec, given_xmin, given_xmax, xmargin, & + reverse_xaxis, dxmin, xleft, xright) + + call set_ytop_ybot(& + n, yvec, given_ymin, given_ymax, -101.0, ymargin, & + reverse_yaxis, dymin, ybot, ytop) + + call pgsave + call pgsch(txt_scale) + call pgsvp(vp_xleft, vp_xright, vp_ybot, vp_ytop) + call pgswin(xleft, xright, ybot, ytop) + call pgscf(1) + call pgsci(1) + call show_box_pgstar(s, 'BCNST1', 'BCNSTV1') + + if (log_xaxis) then + call show_xaxis_label_pgstar(s, 'log ' // xaxis_label) + else + call show_xaxis_label_pgstar(s, xaxis_label) + end if + + if (log_yaxis) then + call show_left_yaxis_label_pgstar(s, 'log ' // yaxis_label) + else + call show_left_yaxis_label_pgstar(s, yaxis_label) + end if + + if (.not. subplot) then + call show_model_number_pgstar(s) + call show_age_pgstar(s) + end if + call show_title_pgstar(s, title) + + call pgslw(s% pg% pgstar_lw) + + call show_file_track + + if (show_target_box) then + call pgsci(clr_Silver) + if (n_sigma >= 0) then + j_min = n_sigma + j_max = n_sigma + else + j_min = 1 + j_max = -n_sigma + end if + do j = j_min, j_max + dx = xsigma * j + xplus = xtarget + dx + xminus = xtarget - dx + if (log_xaxis) then + xplus = log10(max(tiny(xplus), xplus)) + xminus = log10(max(tiny(xminus), xminus)) + end if + dy = ysigma * j + yplus = ytarget + dy + yminus = ytarget - dy + if (log_yaxis) then + yplus = log10(max(tiny(yplus), yplus)) + yminus = log10(max(tiny(yminus), yminus)) + end if + call pgmove(xminus, yminus) + call pgdraw(xplus, yminus) + call pgdraw(xplus, yplus) + call pgdraw(xminus, yplus) + call pgdraw(xminus, yminus) + end do + end if - use star_private_def - use const_def - use pgstar_support - use star_pgstar + call pgsci(clr_Teal) + call pgline(n, xvec, yvec) + call pgsci(clr_Crimson) + call pgsch(2.8 * txt_scale) + call pgpt1(xvec(n), yvec(n), 0902) - implicit none + call show_annotations(s, & + show_annotation1, & + show_annotation2, & + show_annotation3) + call decorate(s% id, ierr) ! hard coded decorator for other plots - contains + call pgunsa + call show_pgstar_decorator(s%id, use_decorator, pgstar_decorator, 0, ierr) ! user decorator - subroutine History_Track1_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Track1_plot(s, id, device_id, & - s% pg% History_Track1_xleft, s% pg% History_Track1_xright, & - s% pg% History_Track1_ybot, s% pg% History_Track1_ytop, .false., & - s% pg% History_Track1_title, s% pg% History_Track1_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Track1_plot - - - subroutine do_History_Track1_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call do_Hist_Track(s, id,device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% History_Track1_xname, & - s% pg% History_Track1_yname, & - s% pg% History_Track1_xaxis_label, & - s% pg% History_Track1_yaxis_label, & - s% pg% History_Track1_xmin, & - s% pg% History_Track1_xmax, & - s% pg% History_Track1_xmargin, & - s% pg% History_Track1_dxmin, & - s% pg% History_Track1_ymin, & - s% pg% History_Track1_ymax, & - s% pg% History_Track1_ymargin, & - s% pg% History_Track1_dymin, & - s% pg% History_Track1_step_min, & - s% pg% History_Track1_step_max, & - s% pg% History_Track1_reverse_xaxis, & - s% pg% History_Track1_reverse_yaxis, & - s% pg% History_Track1_log_xaxis, & - s% pg% History_Track1_log_yaxis, & - s% pg% show_History_Track1_target_box, & - s% pg% History_Track1_n_sigma, & - s% pg% History_Track1_xtarget, & - s% pg% History_Track1_ytarget, & - s% pg% History_Track1_xsigma, & - s% pg% History_Track1_ysigma, & - s% pg% show_History_Track1_annotation1, & - s% pg% show_History_Track1_annotation2, & - s% pg% show_History_Track1_annotation3, & - s% pg% History_Track1_fname, & - s% pg% History_Track1_use_decorator, & - s% pg% History_Track1_pgstar_decorator, & - null_decorate, ierr) - end subroutine do_History_Track1_plot - - - subroutine History_Track2_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Track2_plot(s, id, device_id, & - s% pg% History_Track2_xleft, s% pg% History_Track2_xright, & - s% pg% History_Track2_ybot, s% pg% History_Track2_ytop, .false., & - s% pg% History_Track2_title, s% pg% History_Track2_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Track2_plot - - - subroutine do_History_Track2_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call do_Hist_Track(s, id,device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% History_Track2_xname, & - s% pg% History_Track2_yname, & - s% pg% History_Track2_xaxis_label, & - s% pg% History_Track2_yaxis_label, & - s% pg% History_Track2_xmin, & - s% pg% History_Track2_xmax, & - s% pg% History_Track2_xmargin, & - s% pg% History_Track2_dxmin, & - s% pg% History_Track2_ymin, & - s% pg% History_Track2_ymax, & - s% pg% History_Track2_ymargin, & - s% pg% History_Track2_dymin, & - s% pg% History_Track2_step_min, & - s% pg% History_Track2_step_max, & - s% pg% History_Track2_reverse_xaxis, & - s% pg% History_Track2_reverse_yaxis, & - s% pg% History_Track2_log_xaxis, & - s% pg% History_Track2_log_yaxis, & - s% pg% show_History_Track2_target_box, & - s% pg% History_Track2_n_sigma, & - s% pg% History_Track2_xtarget, & - s% pg% History_Track2_ytarget, & - s% pg% History_Track2_xsigma, & - s% pg% History_Track2_ysigma, & - s% pg% show_History_Track2_annotation1, & - s% pg% show_History_Track2_annotation2, & - s% pg% show_History_Track2_annotation3, & - s% pg% History_Track2_fname, & - s% pg% History_Track2_use_decorator, & - s% pg% History_Track2_pgstar_decorator, & - null_decorate, ierr) - end subroutine do_History_Track2_plot - - - subroutine History_Track3_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Track3_plot(s, id, device_id, & - s% pg% History_Track3_xleft, s% pg% History_Track3_xright, & - s% pg% History_Track3_ybot, s% pg% History_Track3_ytop, .false., & - s% pg% History_Track3_title, s% pg% History_Track3_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Track3_plot - - - subroutine do_History_Track3_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call do_Hist_Track(s, id,device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% History_Track3_xname, & - s% pg% History_Track3_yname, & - s% pg% History_Track3_xaxis_label, & - s% pg% History_Track3_yaxis_label, & - s% pg% History_Track3_xmin, & - s% pg% History_Track3_xmax, & - s% pg% History_Track3_xmargin, & - s% pg% History_Track3_dxmin, & - s% pg% History_Track3_ymin, & - s% pg% History_Track3_ymax, & - s% pg% History_Track3_ymargin, & - s% pg% History_Track3_dymin, & - s% pg% History_Track3_step_min, & - s% pg% History_Track3_step_max, & - s% pg% History_Track3_reverse_xaxis, & - s% pg% History_Track3_reverse_yaxis, & - s% pg% History_Track3_log_xaxis, & - s% pg% History_Track3_log_yaxis, & - s% pg% show_History_Track3_target_box, & - s% pg% History_Track3_n_sigma, & - s% pg% History_Track3_xtarget, & - s% pg% History_Track3_ytarget, & - s% pg% History_Track3_xsigma, & - s% pg% History_Track3_ysigma, & - s% pg% show_History_Track3_annotation1, & - s% pg% show_History_Track3_annotation2, & - s% pg% show_History_Track3_annotation3, & - s% pg% History_Track3_fname, & - s% pg% History_Track3_use_decorator, & - s% pg% History_Track3_pgstar_decorator, & - null_decorate, ierr) - end subroutine do_History_Track3_plot - - - subroutine History_Track4_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Track4_plot(s, id, device_id, & - s% pg% History_Track4_xleft, s% pg% History_Track4_xright, & - s% pg% History_Track4_ybot, s% pg% History_Track4_ytop, .false., & - s% pg% History_Track4_title, s% pg% History_Track4_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Track4_plot - - - subroutine do_History_Track4_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call do_Hist_Track(s, id,device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% History_Track4_xname, & - s% pg% History_Track4_yname, & - s% pg% History_Track4_xaxis_label, & - s% pg% History_Track4_yaxis_label, & - s% pg% History_Track4_xmin, & - s% pg% History_Track4_xmax, & - s% pg% History_Track4_xmargin, & - s% pg% History_Track4_dxmin, & - s% pg% History_Track4_ymin, & - s% pg% History_Track4_ymax, & - s% pg% History_Track4_ymargin, & - s% pg% History_Track4_dymin, & - s% pg% History_Track4_step_min, & - s% pg% History_Track4_step_max, & - s% pg% History_Track4_reverse_xaxis, & - s% pg% History_Track4_reverse_yaxis, & - s% pg% History_Track4_log_xaxis, & - s% pg% History_Track4_log_yaxis, & - s% pg% show_History_Track4_target_box, & - s% pg% History_Track4_n_sigma, & - s% pg% History_Track4_xtarget, & - s% pg% History_Track4_ytarget, & - s% pg% History_Track4_xsigma, & - s% pg% History_Track4_ysigma, & - s% pg% show_History_Track4_annotation1, & - s% pg% show_History_Track4_annotation2, & - s% pg% show_History_Track4_annotation3, & - s% pg% History_Track4_fname, & - s% pg% History_Track4_use_decorator, & - s% pg% History_Track4_pgstar_decorator, & - null_decorate, ierr) - end subroutine do_History_Track4_plot - - - subroutine History_Track5_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Track5_plot(s, id, device_id, & - s% pg% History_Track5_xleft, s% pg% History_Track5_xright, & - s% pg% History_Track5_ybot, s% pg% History_Track5_ytop, .false., & - s% pg% History_Track5_title, s% pg% History_Track5_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Track5_plot - - - subroutine do_History_Track5_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call do_Hist_Track(s, id,device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% History_Track5_xname, & - s% pg% History_Track5_yname, & - s% pg% History_Track5_xaxis_label, & - s% pg% History_Track5_yaxis_label, & - s% pg% History_Track5_xmin, & - s% pg% History_Track5_xmax, & - s% pg% History_Track5_xmargin, & - s% pg% History_Track5_dxmin, & - s% pg% History_Track5_ymin, & - s% pg% History_Track5_ymax, & - s% pg% History_Track5_ymargin, & - s% pg% History_Track5_dymin, & - s% pg% History_Track5_step_min, & - s% pg% History_Track5_step_max, & - s% pg% History_Track5_reverse_xaxis, & - s% pg% History_Track5_reverse_yaxis, & - s% pg% History_Track5_log_xaxis, & - s% pg% History_Track5_log_yaxis, & - s% pg% show_History_Track5_target_box, & - s% pg% History_Track5_n_sigma, & - s% pg% History_Track5_xtarget, & - s% pg% History_Track5_ytarget, & - s% pg% History_Track5_xsigma, & - s% pg% History_Track5_ysigma, & - s% pg% show_History_Track5_annotation1, & - s% pg% show_History_Track5_annotation2, & - s% pg% show_History_Track5_annotation3, & - s% pg% History_Track5_fname, & - s% pg% History_Track5_use_decorator, & - s% pg% History_Track5_pgstar_decorator, & - null_decorate, ierr) - end subroutine do_History_Track5_plot - - - subroutine History_Track6_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Track6_plot(s, id, device_id, & - s% pg% History_Track6_xleft, s% pg% History_Track6_xright, & - s% pg% History_Track6_ybot, s% pg% History_Track6_ytop, .false., & - s% pg% History_Track6_title, s% pg% History_Track6_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Track6_plot - - - subroutine do_History_Track6_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call do_Hist_Track(s, id,device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% History_Track6_xname, & - s% pg% History_Track6_yname, & - s% pg% History_Track6_xaxis_label, & - s% pg% History_Track6_yaxis_label, & - s% pg% History_Track6_xmin, & - s% pg% History_Track6_xmax, & - s% pg% History_Track6_xmargin, & - s% pg% History_Track6_dxmin, & - s% pg% History_Track6_ymin, & - s% pg% History_Track6_ymax, & - s% pg% History_Track6_ymargin, & - s% pg% History_Track6_dymin, & - s% pg% History_Track6_step_min, & - s% pg% History_Track6_step_max, & - s% pg% History_Track6_reverse_xaxis, & - s% pg% History_Track6_reverse_yaxis, & - s% pg% History_Track6_log_xaxis, & - s% pg% History_Track6_log_yaxis, & - s% pg% show_History_Track6_target_box, & - s% pg% History_Track6_n_sigma, & - s% pg% History_Track6_xtarget, & - s% pg% History_Track6_ytarget, & - s% pg% History_Track6_xsigma, & - s% pg% History_Track6_ysigma, & - s% pg% show_History_Track6_annotation1, & - s% pg% show_History_Track6_annotation2, & - s% pg% show_History_Track6_annotation3, & - s% pg% History_Track6_fname, & - s% pg% History_Track6_use_decorator, & - s% pg% History_Track6_pgstar_decorator, & - null_decorate, ierr) - end subroutine do_History_Track6_plot - - - subroutine History_Track7_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Track7_plot(s, id, device_id, & - s% pg% History_Track7_xleft, s% pg% History_Track7_xright, & - s% pg% History_Track7_ybot, s% pg% History_Track7_ytop, .false., & - s% pg% History_Track7_title, s% pg% History_Track7_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Track7_plot - - - subroutine do_History_Track7_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call do_Hist_Track(s, id,device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% History_Track7_xname, & - s% pg% History_Track7_yname, & - s% pg% History_Track7_xaxis_label, & - s% pg% History_Track7_yaxis_label, & - s% pg% History_Track7_xmin, & - s% pg% History_Track7_xmax, & - s% pg% History_Track7_xmargin, & - s% pg% History_Track7_dxmin, & - s% pg% History_Track7_ymin, & - s% pg% History_Track7_ymax, & - s% pg% History_Track7_ymargin, & - s% pg% History_Track7_dymin, & - s% pg% History_Track7_step_min, & - s% pg% History_Track7_step_max, & - s% pg% History_Track7_reverse_xaxis, & - s% pg% History_Track7_reverse_yaxis, & - s% pg% History_Track7_log_xaxis, & - s% pg% History_Track7_log_yaxis, & - s% pg% show_History_Track7_target_box, & - s% pg% History_Track7_n_sigma, & - s% pg% History_Track7_xtarget, & - s% pg% History_Track7_ytarget, & - s% pg% History_Track7_xsigma, & - s% pg% History_Track7_ysigma, & - s% pg% show_History_Track7_annotation1, & - s% pg% show_History_Track7_annotation2, & - s% pg% show_History_Track7_annotation3, & - s% pg% History_Track7_fname, & - s% pg% History_Track7_use_decorator, & - s% pg% History_Track7_pgstar_decorator, & - null_decorate, ierr) - end subroutine do_History_Track7_plot - - - subroutine History_Track8_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Track8_plot(s, id, device_id, & - s% pg% History_Track8_xleft, s% pg% History_Track8_xright, & - s% pg% History_Track8_ybot, s% pg% History_Track8_ytop, .false., & - s% pg% History_Track8_title, s% pg% History_Track8_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Track8_plot - - - subroutine do_History_Track8_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call do_Hist_Track(s, id,device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% History_Track8_xname, & - s% pg% History_Track8_yname, & - s% pg% History_Track8_xaxis_label, & - s% pg% History_Track8_yaxis_label, & - s% pg% History_Track8_xmin, & - s% pg% History_Track8_xmax, & - s% pg% History_Track8_xmargin, & - s% pg% History_Track8_dxmin, & - s% pg% History_Track8_ymin, & - s% pg% History_Track8_ymax, & - s% pg% History_Track8_ymargin, & - s% pg% History_Track8_dymin, & - s% pg% History_Track8_step_min, & - s% pg% History_Track8_step_max, & - s% pg% History_Track8_reverse_xaxis, & - s% pg% History_Track8_reverse_yaxis, & - s% pg% History_Track8_log_xaxis, & - s% pg% History_Track8_log_yaxis, & - s% pg% show_History_Track8_target_box, & - s% pg% History_Track8_n_sigma, & - s% pg% History_Track8_xtarget, & - s% pg% History_Track8_ytarget, & - s% pg% History_Track8_xsigma, & - s% pg% History_Track8_ysigma, & - s% pg% show_History_Track8_annotation1, & - s% pg% show_History_Track8_annotation2, & - s% pg% show_History_Track8_annotation3, & - s% pg% History_Track8_fname, & - s% pg% History_Track8_use_decorator, & - s% pg% History_Track8_pgstar_decorator, & - null_decorate, ierr) - end subroutine do_History_Track8_plot - - - subroutine History_Track9_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Track9_plot(s, id, device_id, & - s% pg% History_Track9_xleft, s% pg% History_Track9_xright, & - s% pg% History_Track9_ybot, s% pg% History_Track9_ytop, .false., & - s% pg% History_Track9_title, s% pg% History_Track9_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Track9_plot - - - subroutine do_History_Track9_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call do_Hist_Track(s, id,device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% History_Track9_xname, & - s% pg% History_Track9_yname, & - s% pg% History_Track9_xaxis_label, & - s% pg% History_Track9_yaxis_label, & - s% pg% History_Track9_xmin, & - s% pg% History_Track9_xmax, & - s% pg% History_Track9_xmargin, & - s% pg% History_Track9_dxmin, & - s% pg% History_Track9_ymin, & - s% pg% History_Track9_ymax, & - s% pg% History_Track9_ymargin, & - s% pg% History_Track9_dymin, & - s% pg% History_Track9_step_min, & - s% pg% History_Track9_step_max, & - s% pg% History_Track9_reverse_xaxis, & - s% pg% History_Track9_reverse_yaxis, & - s% pg% History_Track9_log_xaxis, & - s% pg% History_Track9_log_yaxis, & - s% pg% show_History_Track9_target_box, & - s% pg% History_Track9_n_sigma, & - s% pg% History_Track9_xtarget, & - s% pg% History_Track9_ytarget, & - s% pg% History_Track9_xsigma, & - s% pg% History_Track9_ysigma, & - s% pg% show_History_Track9_annotation1, & - s% pg% show_History_Track9_annotation2, & - s% pg% show_History_Track9_annotation3, & - s% pg% History_Track9_fname, & - s% pg% History_Track9_use_decorator, & - s% pg% History_Track9_pgstar_decorator, & - null_decorate, ierr) - end subroutine do_History_Track9_plot - - - subroutine null_decorate(id, ierr) - integer, intent(in) :: id - integer, intent(out) :: ierr - ierr = 0 - end subroutine null_decorate - - - subroutine do_Hist_Track(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - xname, yname, xaxis_label, yaxis_label, & - given_xmin, given_xmax, xmargin, dxmin, & - given_ymin, given_ymax, ymargin, dymin, & - step_min_in, step_max_in, & - reverse_xaxis, reverse_yaxis, & - log_xaxis, log_yaxis, & - show_target_box, n_sigma, & - xtarget, ytarget, xsigma, ysigma, & - show_annotation1, show_annotation2, show_annotation3, & - fname, & - use_decorator, pgstar_decorator, & - decorate, ierr) - use utils_lib - - type (star_info), pointer :: s - integer, intent(in) :: & - id, device_id, step_min_in, step_max_in, n_sigma - real, intent(in) :: & - vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale, & - xtarget, ytarget, xsigma, ysigma, & - given_xmin, given_xmax, xmargin, dxmin, & - given_ymin, given_ymax, ymargin, dymin - character (len=*), intent(in) :: & - title, xname, yname, xaxis_label, yaxis_label, fname - logical, intent(in) :: subplot, & - reverse_xaxis, reverse_yaxis, log_xaxis, log_yaxis, show_target_box, & - show_annotation1, show_annotation2, show_annotation3, use_decorator - interface - subroutine decorate(id, ierr) - integer, intent(in) :: id - integer, intent(out) :: ierr - end subroutine decorate - end interface - integer, intent(out) :: ierr - procedure(pgstar_decorator_interface), pointer :: pgstar_decorator - - real :: xleft, xright, ybot, ytop - integer :: j, j_min, j_max, step_min, step_max - real :: dx, dy, xplus, xminus, yplus, yminus - real, dimension(:), allocatable :: xvec, yvec - integer :: k, n - integer :: ix, iy - integer :: file_data_len - real, allocatable, dimension(:) :: file_data_xvec, file_data_yvec - - logical, parameter :: dbg = .false. - - include 'formats' + deallocate(xvec, yvec) - ierr = 0 + contains - call integer_dict_lookup(s% history_names_dict, xname, ix, ierr) - if (ierr /= 0) ix = -1 - if (ix <= 0) then - write(*,'(A)') - write(*,*) 'ERROR: failed to find ' // & - trim(xname) // ' in history data' - write(*,'(A)') - ierr = -1 - end if - call integer_dict_lookup(s% history_names_dict, yname, iy, ierr) - if (ierr /= 0) iy = -1 - if (iy <= 0) then - write(*,'(A)') - write(*,*) 'ERROR: failed to find ' // & - trim(yname) // ' in history data' - write(*,'(A)') - ierr = -1 - end if - if (ierr /= 0) return - step_min = max(step_min_in, 1) - if (step_max_in >= 0) then - step_max = min(step_max_in, s% model_number) - else - step_max = s% model_number - end if - n = count_hist_points(s, step_min, step_max) - allocate(xvec(n), yvec(n), stat=ierr) - if (ierr /= 0) then - write(*,*) 'allocate failed for PGSTAR' + subroutine show_file_track + integer :: k + if (len_trim(fname) == 0) return + if (.not. read_values_from_file(fname, & + file_data_xvec, file_data_yvec, file_data_len)) then + write(*, *) & + 'bad filename for History tracks plot ' // trim(fname) return end if - - call get_hist_points(s, step_min, step_max, n, ix, xvec, ierr) - if (ierr /= 0) then - write(*,*) 'pgstar do_Hist_Track get_hist_points failed ' // trim(xname) - ierr = 0 - !return - end if - call get_hist_points(s, step_min, step_max, n, iy, yvec, ierr) - if (ierr /= 0) then - write(*,*) 'pgstar do_Hist_Track get_hist_points failed ' // trim(yname) - ierr = 0 - !return - end if - if (log_xaxis) then - do k=1,n - xvec(k) = log10(max(tiny(xvec(k)),abs(xvec(k)))) - end do - end if - - if (log_yaxis) then - do k=1,n - yvec(k) = log10(max(tiny(yvec(k)),abs(yvec(k)))) + do k = 1, file_data_len + file_data_xvec(k) = log10(max(tiny(file_data_xvec(k)), abs(file_data_xvec(k)))) end do end if - - call set_xleft_xright( & - n, xvec, given_xmin, given_xmax, xmargin, & - reverse_xaxis, dxmin, xleft, xright) - - call set_ytop_ybot( & - n, yvec, given_ymin, given_ymax, -101.0, ymargin, & - reverse_yaxis, dymin, ybot, ytop) - - call pgsave - call pgsch(txt_scale) - call pgsvp(vp_xleft, vp_xright, vp_ybot, vp_ytop) - call pgswin(xleft, xright, ybot, ytop) - call pgscf(1) - call pgsci(1) - call show_box_pgstar(s,'BCNST1','BCNSTV1') - - if (log_xaxis) then - call show_xaxis_label_pgstar(s,'log ' // xaxis_label) - else - call show_xaxis_label_pgstar(s,xaxis_label) - end if - if (log_yaxis) then - call show_left_yaxis_label_pgstar(s,'log ' // yaxis_label) - else - call show_left_yaxis_label_pgstar(s,yaxis_label) - end if - - if (.not. subplot) then - call show_model_number_pgstar(s) - call show_age_pgstar(s) - end if - call show_title_pgstar(s, title) - - call pgslw(s% pg% pgstar_lw) - - call show_file_track - - if (show_target_box) then - call pgsci(clr_Silver) - if (n_sigma >= 0) then - j_min = n_sigma - j_max = n_sigma - else - j_min = 1 - j_max = -n_sigma - end if - do j=j_min, j_max - dx = xsigma*j - xplus = xtarget + dx - xminus = xtarget - dx - if (log_xaxis) then - xplus = log10(max(tiny(xplus),xplus)) - xminus = log10(max(tiny(xminus),xminus)) - end if - dy = ysigma*j - yplus = ytarget + dy - yminus = ytarget - dy - if (log_yaxis) then - yplus = log10(max(tiny(yplus),yplus)) - yminus = log10(max(tiny(yminus),yminus)) - end if - call pgmove(xminus, yminus) - call pgdraw(xplus, yminus) - call pgdraw(xplus, yplus) - call pgdraw(xminus, yplus) - call pgdraw(xminus, yminus) + do k = 1, file_data_len + file_data_yvec(k) = log10(max(tiny(file_data_yvec(k)), abs(file_data_yvec(k)))) end do end if - - call pgsci(clr_Teal) - call pgline(n, xvec, yvec) - call pgsci(clr_Crimson) - call pgsch(2.8*txt_scale) - call pgpt1(xvec(n), yvec(n), 0902) - - call show_annotations(s, & - show_annotation1, & - show_annotation2, & - show_annotation3) - - call decorate(s% id, ierr) - - call pgunsa - - call show_pgstar_decorator(s%id, use_decorator, pgstar_decorator, 0, ierr) - - deallocate(xvec, yvec) - - contains - - - subroutine show_file_track - integer :: k - if (len_trim(fname) == 0) return - if (.not. read_values_from_file(fname, & - file_data_xvec, file_data_yvec, file_data_len)) then - write(*,*) & - 'bad filename for History tracks plot ' // trim(fname) - return - end if - if (log_xaxis) then - do k=1,file_data_len - file_data_xvec(k) = log10(max(tiny(file_data_xvec(k)),abs(file_data_xvec(k)))) - end do - end if - if (log_yaxis) then - do k=1,file_data_len - file_data_yvec(k) = log10(max(tiny(file_data_yvec(k)),abs(file_data_yvec(k)))) - end do - end if - call pgsci(clr_Goldenrod) - call pgline(file_data_len, file_data_xvec, file_data_yvec) - deallocate(file_data_xvec, file_data_yvec) - end subroutine show_file_track + call pgsci(clr_Goldenrod) + call pgline(file_data_len, file_data_xvec, file_data_yvec) + deallocate(file_data_xvec, file_data_yvec) + end subroutine show_file_track - end subroutine do_Hist_Track + end subroutine do_Hist_Track - end module pgstar_hist_track +end module pgstar_hist_track diff --git a/star/private/pgstar_history_panels.f90 b/star/private/pgstar_history_panels.f90 index 09ec4521b..7ecd1fb0e 100644 --- a/star/private/pgstar_history_panels.f90 +++ b/star/private/pgstar_history_panels.f90 @@ -23,954 +23,487 @@ ! ! *********************************************************************** - module pgstar_history_panels +module pgstar_history_panels + + use star_private_def + use const_def + use pgstar_support + use star_pgstar + + implicit none + + +contains + + + subroutine History_Panels_plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix + integer, intent(out) :: ierr + type (star_info), pointer :: s + + ierr = 0 + call get_star_ptr(id, s, ierr) + if (ierr /= 0) return + call pgslct(device_id) + call pgbbuf() + call pgeras() + call do_History_Panels_plot(s, id, device_id, array_ix, & + s% pg% History_Panels_xleft(array_ix), s% pg% History_Panels_xright(array_ix), & + s% pg% History_Panels_ybot(array_ix), s% pg% History_Panels_ytop(array_ix), .false., & + s% pg% History_Panels_title(array_ix), s% pg% History_Panels_txt_scale(array_ix), ierr) + if (ierr /= 0) return + call pgebuf() + end subroutine History_Panels_plot + + + subroutine do_History_Panels_plot(s, id, device_id, array_ix, & + vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) + type (star_info), pointer :: s + integer, intent(in) :: id, device_id, array_ix + real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale + logical, intent(in) :: subplot + character (len = *), intent(in) :: title + integer, intent(out) :: ierr + procedure(pgstar_decorator_interface), pointer :: decorator + + select case (array_ix) ! decorator interfaces cannot be arrayified + case(1) + decorator => s% pg% History_Panels1_pgstar_decorator + case(2) + decorator => s% pg% History_Panels2_pgstar_decorator + case(3) + decorator => s% pg% History_Panels3_pgstar_decorator + case(4) + decorator => s% pg% History_Panels4_pgstar_decorator + case(5) + decorator => s% pg% History_Panels5_pgstar_decorator + case(6) + decorator => s% pg% History_Panels6_pgstar_decorator + case(7) + decorator => s% pg% History_Panels7_pgstar_decorator + case(8) + decorator => s% pg% History_Panels8_pgstar_decorator + case(9) + decorator => s% pg% History_Panels9_pgstar_decorator + case default + write(*, *) "select appropriate history panels window (1..9)" + return + end select + + call do_one_panels_plot(& + id, s, device_id, array_ix, & + vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & + s% pg% History_Panels_max_width(array_ix), s% pg% History_Panels_num_panels(array_ix), & + + s% pg% History_Panels_xaxis_name(array_ix), & + s% pg% History_Panels_xmin(array_ix), s% pg% History_Panels_xmax(array_ix), & + s% pg% History_Panels_dxmin(array_ix), s% pg% History_Panels_xmargin(array_ix), & + s% pg% History_Panels_xaxis_reversed(array_ix), s% pg% History_Panels_xaxis_log(array_ix), & + + s% pg% History_Panels_yaxis_name(array_ix, :), & + s% pg% History_Panels_ymin(array_ix, :), s% pg% History_Panels_ymax(array_ix, :), & + s% pg% History_Panels_dymin(array_ix, :), s% pg% History_Panels_ymargin(array_ix, :), & + s% pg% History_Panels_yaxis_reversed(array_ix, :), s% pg% History_Panels_yaxis_log(array_ix, :), & + + s% pg% History_Panels_other_yaxis_name(array_ix, :), & + s% pg% History_Panels_other_ymin(array_ix, :), s% pg% History_Panels_other_ymax(array_ix, :), & + s% pg% History_Panels_other_dymin(array_ix, :), s% pg% History_Panels_other_ymargin(array_ix, :), & + s% pg% History_Panels_other_yaxis_reversed(array_ix, :), s% pg% History_Panels_other_yaxis_log(array_ix, :), & + + s% pg% History_Panels_same_yaxis_range(array_ix, :), & + s% pg% History_Panels_points_name(array_ix, :), & + s% pg% History_Panels_automatic_star_age_units(array_ix), & + + s% pg% History_Panels_use_decorator(array_ix), decorator, & + ierr) + end subroutine do_History_Panels_plot + + + subroutine do_one_panels_plot( & + id, s, device_id, array_ix, & + vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & + hist_max_width, hist_num_panels, & + hist_xaxis_name_in, & + hist_xmin_in, hist_xmax,& + dxmin, hist_xmargin, & + hist_xaxis_reversed, hist_xaxis_log, & + hist_yaxis_name, & + hist_ymin, hist_ymax, & + hist_dymin, hist_ymargin, & + hist_yaxis_reversed, hist_yaxis_log, & + hist_other_yaxis_name, & + hist_other_ymin, hist_other_ymax, & + hist_other_dymin, hist_other_ymargin, & + hist_other_yaxis_reversed, hist_other_yaxis_log, & + + hist_same_yaxis_range, & + hist_points_name, & + automatic_star_age_units, & + + use_decorator, pgstar_decorator, & + ierr) + use utils_lib + use chem_def + use net_def + use net_lib, only: get_net_reaction_table + use rates_def, only: rates_reaction_id_max + use const_def, only: Msun, Rsun + + type (star_info), pointer :: s + integer, intent(in) :: id, device_id, array_ix, hist_num_panels + logical, intent(in) :: subplot, automatic_star_age_units, hist_xaxis_reversed, hist_xaxis_log + character (len = *), intent(in) :: title, hist_xaxis_name_in + real, intent(in) :: & + vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale, & + hist_xmin_in, hist_xmax, hist_max_width, hist_xmargin, dxmin + real, intent(in), dimension(:) :: & + hist_other_ymin, hist_other_ymax, & + hist_other_dymin, hist_other_ymargin, & + hist_ymin, hist_ymax, hist_dymin, hist_ymargin + logical, intent(in), dimension(:) :: & + hist_other_yaxis_reversed, hist_other_yaxis_log, & + hist_yaxis_reversed, hist_yaxis_log, hist_same_yaxis_range + logical, intent(in) :: use_decorator + character (len = *), intent(in), dimension(:) :: & + hist_points_name, hist_other_yaxis_name, hist_yaxis_name + integer, intent(out) :: ierr + procedure(pgstar_decorator_interface), pointer :: pgstar_decorator + + character (len = strlen) :: yname, other_yname, hist_xaxis_name + real, allocatable, dimension(:) :: xvec, yvec, other_yvec + real, allocatable, dimension(:) :: yfile_xdata, other_yfile_xdata + real, allocatable, dimension(:) :: yfile_ydata, other_yfile_ydata + integer :: i, ii, n, j, k, max_width, step_min, step_max, & + y_color, other_y_color, yaxis_id, other_yaxis_id, & + clr_sav, npts, yfile_data_len, other_yfile_data_len + real :: hist_xmin, xmin, xmax, dx, xleft, xright, & + ymargin, panel_dy, panel_ytop, panel_ybot, & + ymin, ymax, dy, ybot, ytop, xpt, ypt, errpt, & + other_ymin, other_ymax, other_ybot, other_ytop + logical :: have_yaxis, have_other_yaxis + + integer :: grid_min, grid_max + integer :: ix, iounit, ishape, num_pts + + include 'formats' + + ierr = 0 + + hist_xaxis_name = hist_xaxis_name_in + hist_xmin = hist_xmin_in + + step_min = 1 + step_max = s% model_number + + if (hist_xaxis_name == 'model_number') then + max_width = int(hist_max_width) + step_min = int(hist_xmin) + if (step_min <= 0) step_min = 1 + step_max = int(hist_xmax) + if (step_max <= 0) step_max = s% model_number + if (step_min >= s% model_number) step_min = 1 + if (max_width > 0) step_min = max(step_min, step_max - max_width) + else if (hist_xaxis_name == 'star_age' .and. automatic_star_age_units) then + if (s% star_age > 1d0) then + hist_xaxis_name = 'star_age_yr' + else if (s% star_age * secyer > secday) then + hist_xaxis_name = 'star_age_day' + else if (s% star_age * secyer > 60 * 60) then + hist_xaxis_name = 'star_age_hr' + else if (s% star_age * secyer > 60) then + hist_xaxis_name = 'star_age_min' + else + hist_xaxis_name = 'star_age_sec' + end if + end if + + call integer_dict_lookup(s% history_names_dict, hist_xaxis_name, ix, ierr) + if (ierr /= 0) ix = -1 + if (ix <= 0) then + write(*, '(A)') + write(*, *) 'ERROR: failed to find ' // & + trim(hist_xaxis_name) // ' in history data' + write(*, '(A)') + ierr = -1 + end if + + n = count_hist_points(s, step_min, step_max) + allocate(xvec(n), yvec(n), other_yvec(n), stat = ierr) + if (ierr /= 0) then + write(*, *) 'allocate failed for PGSTAR' + return + end if + + call get_hist_points(s, step_min, step_max, n, ix, xvec, ierr) + if (ierr /= 0) then + write(*, *) 'pgstar do_history_panels_plot get_hist_points failed ' // trim(hist_xaxis_name) + ierr = 0 + !return + end if - use star_private_def - use const_def - use pgstar_support - use star_pgstar + if (hist_xaxis_log) then + do k = 1, n + xvec(k) = log10(max(tiny(xvec(k)), abs(xvec(k)))) + end do + end if + + if (hist_max_width > 0d0 .and. hist_xaxis_name /= 'model_number') then + ii = n + do i = ii, 1, -1 + if (xvec(ii) - xvec(i) > hist_max_width) then + do j = i, ii + xvec(j - i + 1) = xvec(j) + end do + n = n - i + 1 + hist_xmin = xvec(n) - hist_max_width + exit + end if + end do + end if - implicit none + call set_xleft_xright(& + n, xvec, hist_xmin, hist_xmax, hist_xmargin, & + hist_xaxis_reversed, dxmin, xleft, xright) + call pgsave + call pgsch(txt_scale) - contains + ymargin = 0.05 + y_color = clr_Goldenrod + other_y_color = clr_LightSkyBlue + panel_dy = (vp_ytop - vp_ybot) / real(hist_num_panels) - subroutine History_Panels1_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Panels1_plot(s, id, device_id, & - s% pg% History_Panels1_xleft, s% pg% History_Panels1_xright, & - s% pg% History_Panels1_ybot, s% pg% History_Panels1_ytop, .false., & - s% pg% History_Panels1_title, s% pg% History_Panels1_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Panels1_plot - - - subroutine do_History_Panels1_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call do_history_panels_plot( & - id, s, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% History_Panels1_xaxis_name, & - s% pg% History_Panels1_automatic_star_age_units, & - s% pg% History_Panels1_xmin, & - s% pg% History_Panels1_xmax, & - s% pg% History_Panels1_dxmin, & - s% pg% History_Panels1_xmargin, & - s% pg% History_Panels1_max_width, & - s% pg% History_Panels1_num_panels, & - s% pg% History_Panels1_other_ymin, & - s% pg% History_Panels1_other_ymax, & - s% pg% History_Panels1_other_yaxis_reversed, & - s% pg% History_Panels1_other_yaxis_log, & - s% pg% History_Panels1_same_yaxis_range, & - s% pg% History_Panels1_other_dymin, & - s% pg% History_Panels1_points_name, & - s% pg% History_Panels1_other_ymargin, & - s% pg% History_Panels1_other_yaxis_name, & - s% pg% History_Panels1_ymin, & - s% pg% History_Panels1_ymax, & - s% pg% History_Panels1_xaxis_reversed, & - s% pg% History_Panels1_yaxis_reversed, & - s% pg% History_Panels1_xaxis_log, & - s% pg% History_Panels1_yaxis_log, & - s% pg% History_Panels1_dymin, & - s% pg% History_Panels1_ymargin, & - s% pg% History_Panels1_yaxis_name, & - s% pg% History_Panels1_use_decorator, & - s% pg% History_Panels1_pgstar_decorator, & - ierr) - end subroutine do_History_Panels1_plot - - - subroutine History_Panels2_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - include 'formats' - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Panels2_plot(s, id, device_id, & - s% pg% History_Panels2_xleft, s% pg% History_Panels2_xright, & - s% pg% History_Panels2_ybot, s% pg% History_Panels2_ytop, .false., & - s% pg% History_Panels2_title, s% pg% History_Panels2_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Panels2_plot - - - subroutine do_History_Panels2_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call do_history_panels_plot( & - id, s, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% History_Panels2_xaxis_name, & - s% pg% History_Panels2_automatic_star_age_units, & - s% pg% History_Panels2_xmin, & - s% pg% History_Panels2_xmax, & - s% pg% History_Panels2_dxmin, & - s% pg% History_Panels2_xmargin, & - s% pg% History_Panels2_max_width, & - s% pg% History_Panels2_num_panels, & - s% pg% History_Panels2_other_ymin, & - s% pg% History_Panels2_other_ymax, & - s% pg% History_Panels2_other_yaxis_reversed, & - s% pg% History_Panels2_other_yaxis_log, & - s% pg% History_Panels2_same_yaxis_range, & - s% pg% History_Panels2_other_dymin, & - s% pg% History_Panels2_points_name, & - s% pg% History_Panels2_other_ymargin, & - s% pg% History_Panels2_other_yaxis_name, & - s% pg% History_Panels2_ymin, & - s% pg% History_Panels2_ymax, & - s% pg% History_Panels2_xaxis_reversed, & - s% pg% History_Panels2_yaxis_reversed, & - s% pg% History_Panels2_xaxis_log, & - s% pg% History_Panels2_yaxis_log, & - s% pg% History_Panels2_dymin, & - s% pg% History_Panels2_ymargin, & - s% pg% History_Panels2_yaxis_name, & - s% pg% History_Panels2_use_decorator, & - s% pg% History_Panels2_pgstar_decorator, & - ierr) - end subroutine do_History_Panels2_plot - - - subroutine History_Panels3_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Panels3_plot(s, id, device_id, & - s% pg% History_Panels3_xleft, s% pg% History_Panels3_xright, & - s% pg% History_Panels3_ybot, s% pg% History_Panels3_ytop, .false., & - s% pg% History_Panels3_title, s% pg% History_Panels3_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Panels3_plot - - - subroutine do_History_Panels3_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call do_history_panels_plot( & - id, s, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% History_Panels3_xaxis_name, & - s% pg% History_Panels3_automatic_star_age_units, & - s% pg% History_Panels3_xmin, & - s% pg% History_Panels3_xmax, & - s% pg% History_Panels3_dxmin, & - s% pg% History_Panels3_xmargin, & - s% pg% History_Panels3_max_width, & - s% pg% History_Panels3_num_panels, & - s% pg% History_Panels3_other_ymin, & - s% pg% History_Panels3_other_ymax, & - s% pg% History_Panels3_other_yaxis_reversed, & - s% pg% History_Panels3_other_yaxis_log, & - s% pg% History_Panels3_same_yaxis_range, & - s% pg% History_Panels3_other_dymin, & - s% pg% History_Panels3_points_name, & - s% pg% History_Panels3_other_ymargin, & - s% pg% History_Panels3_other_yaxis_name, & - s% pg% History_Panels3_ymin, & - s% pg% History_Panels3_ymax, & - s% pg% History_Panels3_xaxis_reversed, & - s% pg% History_Panels3_yaxis_reversed, & - s% pg% History_Panels3_xaxis_log, & - s% pg% History_Panels3_yaxis_log, & - s% pg% History_Panels3_dymin, & - s% pg% History_Panels3_ymargin, & - s% pg% History_Panels3_yaxis_name, & - s% pg% History_Panels3_use_decorator, & - s% pg% History_Panels3_pgstar_decorator, & - ierr) - end subroutine do_History_Panels3_plot - - - subroutine History_Panels4_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Panels4_plot(s, id, device_id, & - s% pg% History_Panels4_xleft, s% pg% History_Panels4_xright, & - s% pg% History_Panels4_ybot, s% pg% History_Panels4_ytop, .false., & - s% pg% History_Panels4_title, s% pg% History_Panels4_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Panels4_plot - - - subroutine do_History_Panels4_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call do_history_panels_plot( & - id, s, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% History_Panels4_xaxis_name, & - s% pg% History_Panels4_automatic_star_age_units, & - s% pg% History_Panels4_xmin, & - s% pg% History_Panels4_xmax, & - s% pg% History_Panels4_dxmin, & - s% pg% History_Panels4_xmargin, & - s% pg% History_Panels4_max_width, & - s% pg% History_Panels4_num_panels, & - s% pg% History_Panels4_other_ymin, & - s% pg% History_Panels4_other_ymax, & - s% pg% History_Panels4_other_yaxis_reversed, & - s% pg% History_Panels4_other_yaxis_log, & - s% pg% History_Panels4_same_yaxis_range, & - s% pg% History_Panels4_other_dymin, & - s% pg% History_Panels4_points_name, & - s% pg% History_Panels4_other_ymargin, & - s% pg% History_Panels4_other_yaxis_name, & - s% pg% History_Panels4_ymin, & - s% pg% History_Panels4_ymax, & - s% pg% History_Panels4_xaxis_reversed, & - s% pg% History_Panels4_yaxis_reversed, & - s% pg% History_Panels4_xaxis_log, & - s% pg% History_Panels4_yaxis_log, & - s% pg% History_Panels4_dymin, & - s% pg% History_Panels4_ymargin, & - s% pg% History_Panels4_yaxis_name, & - s% pg% History_Panels4_use_decorator, & - s% pg% History_Panels4_pgstar_decorator, & - ierr) - end subroutine do_History_Panels4_plot - - - subroutine History_Panels5_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Panels5_plot(s, id, device_id, & - s% pg% History_Panels5_xleft, s% pg% History_Panels5_xright, & - s% pg% History_Panels5_ybot, s% pg% History_Panels5_ytop, .false., & - s% pg% History_Panels5_title, s% pg% History_Panels5_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Panels5_plot - - - subroutine do_History_Panels5_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call do_history_panels_plot( & - id, s, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% History_Panels5_xaxis_name, & - s% pg% History_Panels5_automatic_star_age_units, & - s% pg% History_Panels5_xmin, & - s% pg% History_Panels5_xmax, & - s% pg% History_Panels5_dxmin, & - s% pg% History_Panels5_xmargin, & - s% pg% History_Panels5_max_width, & - s% pg% History_Panels5_num_panels, & - s% pg% History_Panels5_other_ymin, & - s% pg% History_Panels5_other_ymax, & - s% pg% History_Panels5_other_yaxis_reversed, & - s% pg% History_Panels5_other_yaxis_log, & - s% pg% History_Panels5_same_yaxis_range, & - s% pg% History_Panels5_other_dymin, & - s% pg% History_Panels5_points_name, & - s% pg% History_Panels5_other_ymargin, & - s% pg% History_Panels5_other_yaxis_name, & - s% pg% History_Panels5_ymin, & - s% pg% History_Panels5_ymax, & - s% pg% History_Panels5_xaxis_reversed, & - s% pg% History_Panels5_yaxis_reversed, & - s% pg% History_Panels5_xaxis_log, & - s% pg% History_Panels5_yaxis_log, & - s% pg% History_Panels5_dymin, & - s% pg% History_Panels5_ymargin, & - s% pg% History_Panels5_yaxis_name, & - s% pg% History_Panels5_use_decorator, & - s% pg% History_Panels5_pgstar_decorator, & - ierr) - end subroutine do_History_Panels5_plot - - - subroutine History_Panels6_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Panels6_plot(s, id, device_id, & - s% pg% History_Panels6_xleft, s% pg% History_Panels6_xright, & - s% pg% History_Panels6_ybot, s% pg% History_Panels6_ytop, .false., & - s% pg% History_Panels6_title, s% pg% History_Panels6_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Panels6_plot - - - subroutine do_History_Panels6_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call do_history_panels_plot( & - id, s, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% History_Panels6_xaxis_name, & - s% pg% History_Panels6_automatic_star_age_units, & - s% pg% History_Panels6_xmin, & - s% pg% History_Panels6_xmax, & - s% pg% History_Panels6_dxmin, & - s% pg% History_Panels6_xmargin, & - s% pg% History_Panels6_max_width, & - s% pg% History_Panels6_num_panels, & - s% pg% History_Panels6_other_ymin, & - s% pg% History_Panels6_other_ymax, & - s% pg% History_Panels6_other_yaxis_reversed, & - s% pg% History_Panels6_other_yaxis_log, & - s% pg% History_Panels6_same_yaxis_range, & - s% pg% History_Panels6_other_dymin, & - s% pg% History_Panels6_points_name, & - s% pg% History_Panels6_other_ymargin, & - s% pg% History_Panels6_other_yaxis_name, & - s% pg% History_Panels6_ymin, & - s% pg% History_Panels6_ymax, & - s% pg% History_Panels6_xaxis_reversed, & - s% pg% History_Panels6_yaxis_reversed, & - s% pg% History_Panels6_xaxis_log, & - s% pg% History_Panels6_yaxis_log, & - s% pg% History_Panels6_dymin, & - s% pg% History_Panels6_ymargin, & - s% pg% History_Panels6_yaxis_name, & - s% pg% History_Panels6_use_decorator, & - s% pg% History_Panels6_pgstar_decorator, & - ierr) - end subroutine do_History_Panels6_plot - - - subroutine History_Panels7_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Panels7_plot(s, id, device_id, & - s% pg% History_Panels7_xleft, s% pg% History_Panels7_xright, & - s% pg% History_Panels7_ybot, s% pg% History_Panels7_ytop, .false., & - s% pg% History_Panels7_title, s% pg% History_Panels7_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Panels7_plot - - - subroutine do_History_Panels7_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call do_history_panels_plot( & - id, s, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% History_Panels7_xaxis_name, & - s% pg% History_Panels7_automatic_star_age_units, & - s% pg% History_Panels7_xmin, & - s% pg% History_Panels7_xmax, & - s% pg% History_Panels7_dxmin, & - s% pg% History_Panels7_xmargin, & - s% pg% History_Panels7_max_width, & - s% pg% History_Panels7_num_panels, & - s% pg% History_Panels7_other_ymin, & - s% pg% History_Panels7_other_ymax, & - s% pg% History_Panels7_other_yaxis_reversed, & - s% pg% History_Panels7_other_yaxis_log, & - s% pg% History_Panels7_same_yaxis_range, & - s% pg% History_Panels7_other_dymin, & - s% pg% History_Panels7_points_name, & - s% pg% History_Panels7_other_ymargin, & - s% pg% History_Panels7_other_yaxis_name, & - s% pg% History_Panels7_ymin, & - s% pg% History_Panels7_ymax, & - s% pg% History_Panels7_xaxis_reversed, & - s% pg% History_Panels7_yaxis_reversed, & - s% pg% History_Panels7_xaxis_log, & - s% pg% History_Panels7_yaxis_log, & - s% pg% History_Panels7_dymin, & - s% pg% History_Panels7_ymargin, & - s% pg% History_Panels7_yaxis_name, & - s% pg% History_Panels7_use_decorator, & - s% pg% History_Panels7_pgstar_decorator, & - ierr) - end subroutine do_History_Panels7_plot - - - subroutine History_Panels8_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Panels8_plot(s, id, device_id, & - s% pg% History_Panels8_xleft, s% pg% History_Panels8_xright, & - s% pg% History_Panels8_ybot, s% pg% History_Panels8_ytop, .false., & - s% pg% History_Panels8_title, s% pg% History_Panels8_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Panels8_plot - - - subroutine do_History_Panels8_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call do_history_panels_plot( & - id, s, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% History_Panels8_xaxis_name, & - s% pg% History_Panels8_automatic_star_age_units, & - s% pg% History_Panels8_xmin, & - s% pg% History_Panels8_xmax, & - s% pg% History_Panels8_dxmin, & - s% pg% History_Panels8_xmargin, & - s% pg% History_Panels8_max_width, & - s% pg% History_Panels8_num_panels, & - s% pg% History_Panels8_other_ymin, & - s% pg% History_Panels8_other_ymax, & - s% pg% History_Panels8_other_yaxis_reversed, & - s% pg% History_Panels8_other_yaxis_log, & - s% pg% History_Panels8_same_yaxis_range, & - s% pg% History_Panels8_other_dymin, & - s% pg% History_Panels8_points_name, & - s% pg% History_Panels8_other_ymargin, & - s% pg% History_Panels8_other_yaxis_name, & - s% pg% History_Panels8_ymin, & - s% pg% History_Panels8_ymax, & - s% pg% History_Panels8_xaxis_reversed, & - s% pg% History_Panels8_yaxis_reversed, & - s% pg% History_Panels8_xaxis_log, & - s% pg% History_Panels8_yaxis_log, & - s% pg% History_Panels8_dymin, & - s% pg% History_Panels8_ymargin, & - s% pg% History_Panels8_yaxis_name, & - s% pg% History_Panels8_use_decorator, & - s% pg% History_Panels8_pgstar_decorator, & - ierr) - end subroutine do_History_Panels8_plot - - - subroutine History_Panels9_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_History_Panels9_plot(s, id, device_id, & - s% pg% History_Panels9_xleft, s% pg% History_Panels9_xright, & - s% pg% History_Panels9_ybot, s% pg% History_Panels9_ytop, .false., & - s% pg% History_Panels9_title, s% pg% History_Panels9_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine History_Panels9_plot - - - subroutine do_History_Panels9_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call do_history_panels_plot( & - id, s, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% History_Panels9_xaxis_name, & - s% pg% History_Panels9_automatic_star_age_units, & - s% pg% History_Panels9_xmin, & - s% pg% History_Panels9_xmax, & - s% pg% History_Panels9_dxmin, & - s% pg% History_Panels9_xmargin, & - s% pg% History_Panels9_max_width, & - s% pg% History_Panels9_num_panels, & - s% pg% History_Panels9_other_ymin, & - s% pg% History_Panels9_other_ymax, & - s% pg% History_Panels9_other_yaxis_reversed, & - s% pg% History_Panels9_other_yaxis_log, & - s% pg% History_Panels9_same_yaxis_range, & - s% pg% History_Panels9_other_dymin, & - s% pg% History_Panels9_points_name, & - s% pg% History_Panels9_other_ymargin, & - s% pg% History_Panels9_other_yaxis_name, & - s% pg% History_Panels9_ymin, & - s% pg% History_Panels9_ymax, & - s% pg% History_Panels9_xaxis_reversed, & - s% pg% History_Panels9_yaxis_reversed, & - s% pg% History_Panels9_xaxis_log, & - s% pg% History_Panels9_yaxis_log, & - s% pg% History_Panels9_dymin, & - s% pg% History_Panels9_ymargin, & - s% pg% History_Panels9_yaxis_name, & - s% pg% History_Panels9_use_decorator, & - s% pg% History_Panels9_pgstar_decorator, & - ierr) - end subroutine do_History_Panels9_plot - - - subroutine do_history_panels_plot( & - id, s, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - hist_xaxis_name_in, automatic_star_age_units, hist_xmin_in, hist_xmax, dxmin, hist_xmargin, & - hist_max_width, hist_num_panels, & - hist_other_ymin, hist_other_ymax, & - hist_other_yaxis_reversed, hist_other_yaxis_log, & - hist_same_yaxis_range, & - hist_other_dymin, hist_points_name, & - hist_other_ymargin, hist_other_yaxis_name, & - hist_ymin, hist_ymax, & - hist_xaxis_reversed, hist_yaxis_reversed, & - hist_xaxis_log,hist_yaxis_log, & - hist_dymin, hist_ymargin, hist_yaxis_name, & - use_decorator, pgstar_decorator, & - ierr) - use utils_lib - use chem_def - use net_def - use net_lib, only: get_net_reaction_table - use const_def, only: Msun, Rsun - - type (star_info), pointer :: s - integer, intent(in) :: id, device_id, hist_num_panels - logical, intent(in) :: subplot, automatic_star_age_units, hist_xaxis_reversed, hist_xaxis_log - character (len=*), intent(in) :: title, hist_xaxis_name_in - real, intent(in) :: & - vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale, & - hist_xmin_in, hist_xmax, hist_max_width, hist_xmargin, dxmin - real, intent(in), dimension(:) :: & - hist_other_ymin, hist_other_ymax, & - hist_other_dymin, hist_other_ymargin, & - hist_ymin, hist_ymax, hist_dymin, hist_ymargin - logical, intent(in), dimension(:) :: & - hist_other_yaxis_reversed, hist_other_yaxis_log, & - hist_yaxis_reversed, hist_yaxis_log, hist_same_yaxis_range - logical, intent(in) :: use_decorator - character (len=*), intent(in), dimension(:) :: & - hist_points_name, hist_other_yaxis_name, hist_yaxis_name - integer, intent(out) :: ierr - procedure(pgstar_decorator_interface), pointer :: pgstar_decorator - - character (len=strlen) :: yname, other_yname, hist_xaxis_name - real, allocatable, dimension(:) :: xvec, yvec, other_yvec - real, allocatable, dimension(:) :: yfile_xdata, other_yfile_xdata - real, allocatable, dimension(:) :: yfile_ydata, other_yfile_ydata - integer :: i, ii, n, j, k, max_width, step_min, step_max, & - y_color, other_y_color, & - yfile_data_len, other_yfile_data_len - real :: hist_xmin, xleft, xright, & - ymargin, panel_dy, panel_ytop, panel_ybot, & - ybot, ytop, xpt, ypt, errpt, & - other_ybot, other_ytop - logical :: have_yaxis, have_other_yaxis - - integer :: ix, iounit, ishape, num_pts - - include 'formats' + do j = 1, hist_num_panels - ierr = 0 + yfile_data_len = 0 + other_yfile_data_len = 0 - hist_xaxis_name = hist_xaxis_name_in - hist_xmin = hist_xmin_in - - step_min = 1 - step_max = s% model_number - - if (hist_xaxis_name == 'model_number') then - max_width = int(hist_max_width) - step_min = int(hist_xmin) - if (step_min <= 0) step_min = 1 - step_max = int(hist_xmax) - if (step_max <= 0) step_max = s% model_number - if (step_min >= s% model_number) step_min = 1 - if (max_width > 0) step_min = max(step_min, step_max - max_width) - else if (hist_xaxis_name == 'star_age' .and. automatic_star_age_units) then - if (s% star_age > 1d0) then - hist_xaxis_name = 'star_age_yr' - else if (s% star_age*secyer > secday) then - hist_xaxis_name = 'star_age_day' - else if (s% star_age*secyer > 60*60) then - hist_xaxis_name = 'star_age_hr' - else if (s% star_age*secyer > 60) then - hist_xaxis_name = 'star_age_min' - else - hist_xaxis_name = 'star_age_sec' + yname = hist_yaxis_name(j) + if (len_trim(yname) == 0) then + have_yaxis = .false. + else + have_yaxis = get1_yvec(yname, yvec) + if (.not. have_yaxis) then + if (.not. read_values_from_file(yname, & + yfile_xdata, yfile_ydata, yfile_data_len)) then + write(*, *) & + 'bad yaxis for History panels plot ' // trim(yname) + cycle + end if + have_yaxis = .true. end if end if - call integer_dict_lookup(s% history_names_dict, hist_xaxis_name, ix, ierr) - if (ierr /= 0) ix = -1 - if (ix <= 0) then - write(*,'(A)') - write(*,*) 'ERROR: failed to find ' // & - trim(hist_xaxis_name) // ' in history data' - write(*,'(A)') - ierr = -1 + other_yname = hist_other_yaxis_name(j) + if (len_trim(hist_other_yaxis_name(j)) == 0) then + have_other_yaxis = .false. + else + have_other_yaxis = get1_yvec(other_yname, other_yvec) + if (.not. have_other_yaxis) then + if (.not. read_values_from_file(other_yname, & + other_yfile_xdata, other_yfile_ydata, other_yfile_data_len)) then + write(*, *) & + 'bad other yaxis for History panels plot ' // trim(other_yname) + cycle + end if + have_other_yaxis = .true. + end if end if - n = count_hist_points(s, step_min, step_max) - allocate(xvec(n), yvec(n), other_yvec(n), stat=ierr) - if (ierr /= 0) then - write(*,*) 'allocate failed for PGSTAR' - return - end if + if ((.not. have_yaxis) .and. (.not. have_other_yaxis)) cycle - call get_hist_points(s, step_min, step_max, n, ix, xvec, ierr) - if (ierr /= 0) then - write(*,*) 'pgstar do_history_panels_plot get_hist_points failed ' // trim(hist_xaxis_name) - ierr = 0 - !return - end if + panel_ytop = vp_ytop - real(j - 1) * panel_dy + panel_ybot = panel_ytop - panel_dy - if (hist_xaxis_log) then - do k=1,n - xvec(k) = log10(max(tiny(xvec(k)),abs(xvec(k)))) - end do + call pgsvp(vp_xleft, vp_xright, panel_ybot, panel_ytop) + + if (j == 1) then + if (.not. subplot) then + call show_model_number_pgstar(s) + call show_age_pgstar(s) + end if + call show_title_pgstar(s, title) end if - if (hist_max_width > 0d0 .and. hist_xaxis_name /= 'model_number') then - ii = n - do i=ii,1,-1 - if (xvec(ii) - xvec(i) > hist_max_width) then - do j=i,ii - xvec(j-i+1) = xvec(j) + if (have_other_yaxis) then + if (other_yfile_data_len > 0) then + if (hist_other_yaxis_log(j)) then + do k = 1, other_yfile_data_len + other_yfile_ydata(k) = & + log10(max(tiny(other_yfile_ydata(k)), abs(other_yfile_ydata(k)))) end do - n = n - i + 1 - hist_xmin = xvec(n) - hist_max_width - exit end if - end do - end if - - call set_xleft_xright( & - n, xvec, hist_xmin, hist_xmax, hist_xmargin, & - hist_xaxis_reversed, dxmin, xleft, xright) - - call pgsave - call pgsch(txt_scale) - - ymargin = 0.05 - y_color = clr_Goldenrod - other_y_color = clr_LightSkyBlue - - panel_dy = (vp_ytop - vp_ybot)/real(hist_num_panels) - - do j = 1, hist_num_panels - - yfile_data_len = 0 - other_yfile_data_len = 0 - - yname = hist_yaxis_name(j) - if (len_trim(yname) == 0) then - have_yaxis = .false. + call set_ytop_ybot(& + other_yfile_data_len, other_yfile_ydata, & + hist_other_ymin(j), hist_other_ymax(j), -101.0, & + hist_other_ymargin(j), hist_other_yaxis_reversed(j), & + hist_other_dymin(j), other_ybot, other_ytop) else - have_yaxis = get1_yvec(yname, yvec) - if (.not. have_yaxis) then - if (.not. read_values_from_file(yname, & - yfile_xdata, yfile_ydata, yfile_data_len)) then - write(*,*) & - 'bad yaxis for History panels plot ' // trim(yname) - cycle - end if - have_yaxis = .true. + if (hist_other_yaxis_log(j)) then + do k = 1, n + other_yvec(k) = log10(max(tiny(other_yvec(k)), abs(other_yvec(k)))) + end do end if + call set_ytop_ybot(& + n, other_yvec, hist_other_ymin(j), hist_other_ymax(j), -101.0, & + hist_other_ymargin(j), hist_other_yaxis_reversed(j), & + hist_other_dymin(j), other_ybot, other_ytop) end if + end if - other_yname = hist_other_yaxis_name(j) - if (len_trim(hist_other_yaxis_name(j)) == 0) then - have_other_yaxis = .false. + if (have_yaxis) then + if (yfile_data_len > 0) then + if (hist_yaxis_log(j)) then + do k = 1, yfile_data_len + yfile_ydata(k) = log10(max(tiny(yfile_ydata(k)), abs(yfile_ydata(k)))) + end do + end if + call set_ytop_ybot(& + yfile_data_len, yfile_ydata, hist_ymin(j), hist_ymax(j), -101.0, & + hist_ymargin(j), hist_yaxis_reversed(j), & + hist_dymin(j), ybot, ytop) else - have_other_yaxis = get1_yvec(other_yname, other_yvec) - if (.not. have_other_yaxis) then - if (.not. read_values_from_file(other_yname, & - other_yfile_xdata, other_yfile_ydata, other_yfile_data_len)) then - write(*,*) & - 'bad other yaxis for History panels plot ' // trim(other_yname) - cycle - end if - have_other_yaxis = .true. + if (hist_yaxis_log(j)) then + do k = 1, n + yvec(k) = log10(max(tiny(yvec(k)), abs(yvec(k)))) + end do end if + call set_ytop_ybot(& + n, yvec, hist_ymin(j), hist_ymax(j), -101.0, & + hist_ymargin(j), hist_yaxis_reversed(j), & + hist_dymin(j), ybot, ytop) end if + end if - if ((.not. have_yaxis) .and. (.not. have_other_yaxis)) cycle - - panel_ytop = vp_ytop - real(j-1)*panel_dy - panel_ybot = panel_ytop - panel_dy - - call pgsvp(vp_xleft, vp_xright, panel_ybot, panel_ytop) - - if (j == 1) then - if (.not. subplot) then - call show_model_number_pgstar(s) - call show_age_pgstar(s) - end if - call show_title_pgstar(s, title) - end if + if (have_yaxis .and. have_other_yaxis .and. hist_same_yaxis_range(j)) then + if (other_ybot < ybot) ybot = other_ybot + if (ybot < other_ybot) other_ybot = ybot + if (other_ytop > ytop) ytop = other_ytop + if (ytop > other_ytop) other_ytop = ytop + end if - if (have_other_yaxis) then - if (other_yfile_data_len > 0) then - if (hist_other_yaxis_log(j)) then - do k=1,other_yfile_data_len - other_yfile_ydata(k) = & - log10(max(tiny(other_yfile_ydata(k)),abs(other_yfile_ydata(k)))) - end do - end if - call set_ytop_ybot( & - other_yfile_data_len, other_yfile_ydata, & - hist_other_ymin(j), hist_other_ymax(j), -101.0, & - hist_other_ymargin(j), hist_other_yaxis_reversed(j), & - hist_other_dymin(j), other_ybot, other_ytop) - else - if (hist_other_yaxis_log(j)) then - do k=1,n - other_yvec(k) = log10(max(tiny(other_yvec(k)),abs(other_yvec(k)))) - end do - end if - call set_ytop_ybot( & - n, other_yvec, hist_other_ymin(j), hist_other_ymax(j), -101.0, & - hist_other_ymargin(j), hist_other_yaxis_reversed(j), & - hist_other_dymin(j), other_ybot, other_ytop) - end if + if (have_other_yaxis) then + !write(*,1) trim(other_yname), other_ybot, other_ytop + call pgswin(xleft, xright, other_ybot, other_ytop) + call pgscf(1) + call pgsci(1) + call show_box_pgstar(s, '', 'CMSTV') + call pgsci(other_y_color) + if (hist_other_yaxis_log(j)) then + call show_right_yaxis_label_pgstar(s, 'log ' // other_yname) + else + call show_right_yaxis_label_pgstar(s, other_yname) end if - - if (have_yaxis) then - if (yfile_data_len > 0) then - if (hist_yaxis_log(j)) then - do k=1,yfile_data_len - yfile_ydata(k) = log10(max(tiny(yfile_ydata(k)),abs(yfile_ydata(k)))) - end do - end if - call set_ytop_ybot( & - yfile_data_len, yfile_ydata, hist_ymin(j), hist_ymax(j), -101.0, & - hist_ymargin(j), hist_yaxis_reversed(j), & - hist_dymin(j), ybot, ytop) - else - if (hist_yaxis_log(j)) then - do k=1,n - yvec(k) = log10(max(tiny(yvec(k)),abs(yvec(k)))) - end do - end if - call set_ytop_ybot( & - n, yvec, hist_ymin(j), hist_ymax(j), -101.0, & - hist_ymargin(j), hist_yaxis_reversed(j), & - hist_dymin(j), ybot, ytop) - end if + call pgslw(s% pg% pgstar_lw) + if (other_yfile_data_len > 0) then + call pgline(& + other_yfile_data_len, other_yfile_xdata, other_yfile_ydata) + deallocate(other_yfile_xdata, other_yfile_ydata) + else + call pgline(n, xvec, other_yvec) end if + call pgslw(1) + end if - if (have_yaxis .and. have_other_yaxis .and. hist_same_yaxis_range(j)) then - if (other_ybot < ybot) ybot = other_ybot - if (ybot < other_ybot) other_ybot = ybot - if (other_ytop > ytop) ytop = other_ytop - if (ytop > other_ytop) other_ytop = ytop - end if - - if (have_other_yaxis) then - !write(*,1) trim(other_yname), other_ybot, other_ytop - call pgswin(xleft, xright, other_ybot, other_ytop) - call pgscf(1) - call pgsci(1) - call show_box_pgstar(s,'','CMSTV') - call pgsci(other_y_color) - if (hist_other_yaxis_log(j)) then - call show_right_yaxis_label_pgstar(s,'log ' // other_yname) + if (have_yaxis) then + !write(*,1) trim(yname), ybot, ytop + call pgswin(xleft, xright, ybot, ytop) + call pgscf(1) + call pgsci(1) + if (j < hist_num_panels) then + if (.not. have_other_yaxis) then + call show_box_pgstar(s, 'BCST1', 'BCMNSTV1') else - call show_right_yaxis_label_pgstar(s,other_yname) + call show_box_pgstar(s, 'BCST', 'BNSTV') end if - call pgslw(s% pg% pgstar_lw) - if (other_yfile_data_len > 0) then - call pgline( & - other_yfile_data_len, other_yfile_xdata, other_yfile_ydata) - deallocate(other_yfile_xdata, other_yfile_ydata) + else + if (.not. have_other_yaxis) then + call show_box_pgstar(s, 'BCNST1', 'BCMNSTV1') else - call pgline(n, xvec, other_yvec) + call show_box_pgstar(s, 'BCNST', 'BNSTV') end if - call pgslw(1) end if - if (have_yaxis) then - !write(*,1) trim(yname), ybot, ytop - call pgswin(xleft, xright, ybot, ytop) - call pgscf(1) - call pgsci(1) - if (j < hist_num_panels) then - if (.not. have_other_yaxis) then - call show_box_pgstar(s,'BCST1','BCMNSTV1') - else - call show_box_pgstar(s,'BCST','BNSTV') - end if - else - if (.not. have_other_yaxis) then - call show_box_pgstar(s,'BCNST1','BCMNSTV1') - else - call show_box_pgstar(s,'BCNST','BNSTV') - end if + if (len_trim(hist_points_name(j)) > 0) then + iounit = 33 + open(unit = iounit, file = trim(hist_points_name(j)), & + status = 'old', action = 'read', iostat = ierr) + if (ierr /= 0) then + write(*, '(a)') 'failed to open ' // trim(hist_points_name(j)) + return end if - - if (len_trim(hist_points_name(j)) > 0) then - iounit = 33 - open(unit=iounit, file=trim(hist_points_name(j)), & - status='old', action='read', iostat=ierr) - if (ierr /= 0) then - write(*, '(a)') 'failed to open ' // trim(hist_points_name(j)) - return + read(iounit, *) num_pts + ishape = s% pg% History_Panel_points_marker ! 5 + call pgsave + call pgsci(s% pg% History_Panel_points_ci) !1) + call pgslw(s% pg% History_Panel_points_lw) !2) + call pgsch(s% pg% History_Panel_points_ch) !1.0) + do k = 1, num_pts + if (s% pg% History_Panel_points_error_bars) then + read(iounit, *) xpt, ypt, errpt + else + read(iounit, *) xpt, ypt end if - read(iounit,*) num_pts - ishape = s% pg% History_Panel_points_marker ! 5 - call pgsave - call pgsci(s% pg% History_Panel_points_ci) !1) - call pgslw(s% pg% History_Panel_points_lw) !2) - call pgsch(s% pg% History_Panel_points_ch) !1.0) - do k = 1, num_pts + if (mod(k - 1, s% pg% History_Panel_points_interval) == 0) then if (s% pg% History_Panel_points_error_bars) then - read(iounit,*) xpt, ypt, errpt + call pgmove(xpt, ypt + errpt) + call pgdraw(xpt, ypt - errpt) else - read(iounit,*) xpt, ypt + call pgpt1(xpt, ypt, ishape) end if - if (mod(k-1,s% pg% History_Panel_points_interval) == 0) then - if (s% pg% History_Panel_points_error_bars) then - call pgmove(xpt, ypt+errpt) - call pgdraw(xpt, ypt-errpt) - else - call pgpt1(xpt, ypt, ishape) - end if - end if - end do - close(iounit) - call pgunsa - end if + end if + end do + close(iounit) + call pgunsa + end if - call pgsci(y_color) - if (hist_yaxis_log(j)) then - call show_left_yaxis_label_pgstar(s,'log ' // yname) - else - call show_left_yaxis_label_pgstar(s,yname) - end if - call pgslw(s% pg% pgstar_lw) - if (yfile_data_len > 0) then - call pgsls(s% pg% pgstar_history_line_style) - call pgline(yfile_data_len, yfile_xdata, yfile_ydata) - call pgsls(1) - deallocate(yfile_xdata, yfile_ydata) - else - call pgsls(s% pg% pgstar_history_line_style) - call pgline(n, xvec, yvec) - call pgsls(1) - end if - call pgslw(1) + call pgsci(y_color) + if (hist_yaxis_log(j)) then + call show_left_yaxis_label_pgstar(s, 'log ' // yname) + else + call show_left_yaxis_label_pgstar(s, yname) + end if + call pgslw(s% pg% pgstar_lw) + if (yfile_data_len > 0) then + call pgsls(s% pg% pgstar_history_line_style) + call pgline(yfile_data_len, yfile_xdata, yfile_ydata) + call pgsls(1) + deallocate(yfile_xdata, yfile_ydata) + else + call pgsls(s% pg% pgstar_history_line_style) + call pgline(n, xvec, yvec) + call pgsls(1) end if + call pgslw(1) + end if - call pgsci(1) - call show_pgstar_decorator(s%id,use_decorator,pgstar_decorator, j, ierr) - end do + call pgsci(1) + call show_pgstar_decorator(s%id, use_decorator, pgstar_decorator, j, ierr) + end do - if (hist_xaxis_log) then - call show_xaxis_label_pgstar(s,'log ' // hist_xaxis_name) - else - call show_xaxis_label_pgstar(s,hist_xaxis_name) - end if + if (hist_xaxis_log) then + call show_xaxis_label_pgstar(s, 'log ' // hist_xaxis_name) + else + call show_xaxis_label_pgstar(s, hist_xaxis_name) + end if + + deallocate(xvec, yvec, other_yvec) - deallocate(xvec, yvec, other_yvec) + call pgunsa - call pgunsa - - contains + contains - logical function get1_yvec(name, vec) - character (len=*) :: name - real, dimension(:), allocatable :: vec - get1_yvec = get1_hist_yvec(s, step_min, step_max, n, name, vec) - end function get1_yvec + logical function get1_yvec(name, vec) + character (len = *) :: name + real, dimension(:), allocatable :: vec + get1_yvec = get1_hist_yvec(s, step_min, step_max, n, name, vec) + end function get1_yvec - end subroutine do_history_panels_plot + end subroutine do_one_panels_plot - end module pgstar_history_panels +end module pgstar_history_panels diff --git a/star/private/pgstar_hr.f90 b/star/private/pgstar_hr.f90 index 2d5286bc5..689fac052 100644 --- a/star/private/pgstar_hr.f90 +++ b/star/private/pgstar_hr.f90 @@ -36,8 +36,8 @@ module pgstar_HR contains - subroutine HR_Plot(id, device_id, ierr) - integer, intent(in) :: id, device_id + subroutine HR_Plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (star_info), pointer :: s ierr = 0 diff --git a/star/private/pgstar_kipp.f90 b/star/private/pgstar_kipp.f90 index 2d5f81997..1a2bae0e4 100644 --- a/star/private/pgstar_kipp.f90 +++ b/star/private/pgstar_kipp.f90 @@ -36,8 +36,8 @@ module pgstar_kipp contains - subroutine Kipp_Plot(id, device_id, ierr) - integer, intent(in) :: id, device_id + subroutine Kipp_Plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (star_info), pointer :: s diff --git a/star/private/pgstar_l_r.f90 b/star/private/pgstar_l_r.f90 index e983a2bf8..f50ea416e 100644 --- a/star/private/pgstar_l_r.f90 +++ b/star/private/pgstar_l_r.f90 @@ -36,8 +36,8 @@ module pgstar_l_r contains - subroutine L_r_Plot(id, device_id, ierr) - integer, intent(in) :: id, device_id + subroutine L_r_Plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (star_info), pointer :: s ierr = 0 diff --git a/star/private/pgstar_l_teff.f90 b/star/private/pgstar_l_teff.f90 index e2e59a516..44be024ea 100644 --- a/star/private/pgstar_l_teff.f90 +++ b/star/private/pgstar_l_teff.f90 @@ -36,8 +36,8 @@ module pgstar_l_teff contains - subroutine L_Teff_Plot(id, device_id, ierr) - integer, intent(in) :: id, device_id + subroutine L_Teff_Plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (star_info), pointer :: s ierr = 0 diff --git a/star/private/pgstar_l_v.f90 b/star/private/pgstar_l_v.f90 index 6c70ba8ca..75836bc95 100644 --- a/star/private/pgstar_l_v.f90 +++ b/star/private/pgstar_l_v.f90 @@ -36,8 +36,8 @@ module pgstar_l_v contains - subroutine L_v_Plot(id, device_id, ierr) - integer, intent(in) :: id, device_id + subroutine L_v_Plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (star_info), pointer :: s ierr = 0 diff --git a/star/private/pgstar_logg_logt.f90 b/star/private/pgstar_logg_logt.f90 index b520ae14f..f70988425 100644 --- a/star/private/pgstar_logg_logt.f90 +++ b/star/private/pgstar_logg_logt.f90 @@ -36,8 +36,8 @@ module pgstar_logg_logT contains - subroutine logg_logT_Plot(id, device_id, ierr) - integer, intent(in) :: id, device_id + subroutine logg_logT_Plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (star_info), pointer :: s diff --git a/star/private/pgstar_logg_teff.f90 b/star/private/pgstar_logg_teff.f90 index 920bb6c9d..75a627124 100644 --- a/star/private/pgstar_logg_teff.f90 +++ b/star/private/pgstar_logg_teff.f90 @@ -36,8 +36,8 @@ module pgstar_logg_Teff contains - subroutine logg_Teff_Plot(id, device_id, ierr) - integer, intent(in) :: id, device_id + subroutine logg_Teff_Plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (star_info), pointer :: s diff --git a/star/private/pgstar_logl_r.f90 b/star/private/pgstar_logl_r.f90 index 2ab0a71a6..d6e2d89f0 100644 --- a/star/private/pgstar_logl_r.f90 +++ b/star/private/pgstar_logl_r.f90 @@ -36,8 +36,8 @@ module pgstar_logl_r contains - subroutine logL_R_Plot(id, device_id, ierr) - integer, intent(in) :: id, device_id + subroutine logL_R_Plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (star_info), pointer :: s ierr = 0 diff --git a/star/private/pgstar_logl_teff.f90 b/star/private/pgstar_logl_teff.f90 index ecd739e39..6761bef67 100644 --- a/star/private/pgstar_logl_teff.f90 +++ b/star/private/pgstar_logl_teff.f90 @@ -36,8 +36,8 @@ module pgstar_logL_Teff contains - subroutine logL_Teff_Plot(id, device_id, ierr) - integer, intent(in) :: id, device_id + subroutine logL_Teff_Plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (star_info), pointer :: s ierr = 0 diff --git a/star/private/pgstar_logl_v.f90 b/star/private/pgstar_logl_v.f90 index dddb12f3a..24bef6efe 100644 --- a/star/private/pgstar_logl_v.f90 +++ b/star/private/pgstar_logl_v.f90 @@ -36,8 +36,8 @@ module pgstar_logl_v contains - subroutine logL_v_Plot(id, device_id, ierr) - integer, intent(in) :: id, device_id + subroutine logL_v_Plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (star_info), pointer :: s ierr = 0 diff --git a/star/private/pgstar_mixing_ds.f90 b/star/private/pgstar_mixing_ds.f90 index 164a416ca..b9d1303a2 100644 --- a/star/private/pgstar_mixing_ds.f90 +++ b/star/private/pgstar_mixing_ds.f90 @@ -37,9 +37,8 @@ module pgstar_mixing_Ds contains - subroutine Mixing_plot(id, device_id, ierr) - implicit none - integer, intent(in) :: id, device_id + subroutine Mixing_plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (star_info), pointer :: s @@ -93,9 +92,9 @@ subroutine do_Mixing_panel(s, id, device_id, & logical, intent(in) :: subplot, & xaxis_reversed, panel_flag, xaxis_numeric_labels_flag integer, intent(out) :: ierr + call MixDs_plot(s, device_id, & s% pg% Mixing_win_flag, s% pg% Mixing_file_flag, & - s% pg% do_Mixing_win, s% pg% do_Mixing_file, & s% pg% id_Mixing_win, s% pg% id_Mixing_file, s% pg% Mixing_file_interval, & s% pg% Mixing_file_dir, s% pg% Mixing_file_prefix, & s% pg% show_Mixing_annotation1, s% pg% show_Mixing_annotation2, & @@ -111,10 +110,8 @@ subroutine do_Mixing_panel(s, id, device_id, & end subroutine do_Mixing_panel - subroutine MixDs_plot(s, device_id, & MixDs_win_flag, MixDs_file_flag, & - do_MixDs_win, do_MixDs_file, & id_MixDs_win, id_MixDs_file, MixDs_file_interval, & MixDs_file_dir, MixDs_file_prefix, & show_MixDs_annotation1, show_MixDs_annotation2, show_MixDs_annotation3, & @@ -133,7 +130,6 @@ subroutine MixDs_plot(s, device_id, & type (star_info), pointer :: s integer, intent(in) :: device_id logical, intent(in) :: MixDs_win_flag, MixDs_file_flag - logical, intent(in) :: do_MixDs_win, do_MixDs_file integer, intent(in) :: id_MixDs_win, id_MixDs_file, MixDs_file_interval character (len=strlen), intent(in) :: MixDs_file_dir, MixDs_file_prefix logical, intent(in) :: show_MixDs_annotation1, show_MixDs_annotation2, show_MixDs_annotation3 diff --git a/star/private/pgstar_mode_prop.f90 b/star/private/pgstar_mode_prop.f90 index dd8c2c601..74b27f4bc 100644 --- a/star/private/pgstar_mode_prop.f90 +++ b/star/private/pgstar_mode_prop.f90 @@ -36,9 +36,8 @@ module pgstar_mode_prop contains - subroutine mode_propagation_plot(id, device_id, ierr) - implicit none - integer, intent(in) :: id, device_id + subroutine mode_propagation_plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (star_info), pointer :: s diff --git a/star/private/pgstar_network.f90 b/star/private/pgstar_network.f90 index dea0bd988..d20a757fa 100644 --- a/star/private/pgstar_network.f90 +++ b/star/private/pgstar_network.f90 @@ -35,9 +35,8 @@ module pgstar_network contains - subroutine network_plot(id, device_id, ierr) - implicit none - integer, intent(in) :: id, device_id + subroutine network_plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (star_info), pointer :: s diff --git a/star/private/pgstar_power.f90 b/star/private/pgstar_power.f90 index 9e31de192..8cf81e85e 100644 --- a/star/private/pgstar_power.f90 +++ b/star/private/pgstar_power.f90 @@ -36,9 +36,8 @@ module pgstar_power contains - subroutine power_plot(id, device_id, ierr) - implicit none - integer, intent(in) :: id, device_id + subroutine power_plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (star_info), pointer :: s diff --git a/star/private/pgstar_production.f90 b/star/private/pgstar_production.f90 index 11871e8bf..ca696ad45 100644 --- a/star/private/pgstar_production.f90 +++ b/star/private/pgstar_production.f90 @@ -36,9 +36,8 @@ module pgstar_production contains - subroutine production_plot(id, device_id, ierr) - implicit none - integer, intent(in) :: id, device_id + subroutine production_plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (star_info), pointer :: s diff --git a/star/private/pgstar_profile_panels.f90 b/star/private/pgstar_profile_panels.f90 index 0f9e6b976..4fede498e 100644 --- a/star/private/pgstar_profile_panels.f90 +++ b/star/private/pgstar_profile_panels.f90 @@ -23,996 +23,592 @@ ! ! *********************************************************************** - module pgstar_profile_panels - - use star_private_def - use const_def - use pgstar_support - use pgstar_trho_profile - use star_pgstar - - implicit none - - - contains - - - subroutine Profile_Panels1_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_profile_panels1_plot(s, id, device_id, & - s% pg% Profile_Panels1_xleft, s% pg% Profile_Panels1_xright, & - s% pg% Profile_Panels1_ybot, s% pg% Profile_Panels1_ytop, .false., & - s% pg% Profile_Panels1_title, s% pg% Profile_Panels1_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Profile_Panels1_plot - - - subroutine do_profile_panels1_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call Pro_panels_plot(s, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% Profile_Panels1_xaxis_reversed, & - s% pg% Profile_Panels1_yaxis_reversed, & - s% pg% Profile_Panels1_other_yaxis_reversed, & - s% pg% Profile_Panels1_yaxis_log, & - s% pg% Profile_Panels1_other_yaxis_log, & - s% pg% Profile_Panels1_same_yaxis_range, & - s% pg% Profile_Panels1_xaxis_name, & - s% pg% Profile_Panels1_yaxis_name, & - s% pg% Profile_Panels1_other_yaxis_name, & - s% pg% Profile_Panels1_xmin, s% pg% Profile_Panels1_xmax, & - s% pg% Profile_Panels1_xmargin, s% pg% Profile_Panels1_show_mix_regions_on_xaxis, & - s% pg% Profile_Panels1_ymin, s% pg% Profile_Panels1_other_ymin, & - s% pg% Profile_Panels1_ymax, s% pg% Profile_Panels1_other_ymax, & - s% pg% Profile_Panels1_ycenter, s% pg% Profile_Panels1_other_ycenter, & - s% pg% Profile_Panels1_ymargin, s% pg% Profile_Panels1_other_ymargin, & - s% pg% Profile_Panels1_dymin, s% pg% Profile_Panels1_other_dymin, & - s% pg% Profile_Panels1_show_grid, & - s% pg% Profile_Panels1_num_panels, & - s% pg% Profile_Panels1_use_decorator, & - s% pg% Profile_Panels1_pgstar_decorator, & - 1, & - ierr) - end subroutine do_profile_panels1_plot - - - subroutine Profile_Panels2_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_profile_Panels2_plot(s, id, device_id, & - s% pg% Profile_Panels2_xleft, s% pg% Profile_Panels2_xright, & - s% pg% Profile_Panels2_ybot, s% pg% Profile_Panels2_ytop, .false., & - s% pg% Profile_Panels2_title, s% pg% Profile_Panels2_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Profile_Panels2_plot - - - subroutine do_profile_Panels2_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call Pro_panels_plot(s, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% Profile_Panels2_xaxis_reversed, & - s% pg% Profile_Panels2_yaxis_reversed, & - s% pg% Profile_Panels2_other_yaxis_reversed, & - s% pg% Profile_Panels2_yaxis_log, & - s% pg% Profile_Panels2_other_yaxis_log, & - s% pg% Profile_Panels2_same_yaxis_range, & - s% pg% Profile_Panels2_xaxis_name, & - s% pg% Profile_Panels2_yaxis_name, & - s% pg% Profile_Panels2_other_yaxis_name, & - s% pg% Profile_Panels2_xmin, s% pg% Profile_Panels2_xmax, & - s% pg% Profile_Panels2_xmargin, s% pg% Profile_Panels2_show_mix_regions_on_xaxis, & - s% pg% Profile_Panels2_ymin, s% pg% Profile_Panels2_other_ymin, & - s% pg% Profile_Panels2_ymax, s% pg% Profile_Panels2_other_ymax, & - s% pg% Profile_Panels2_ycenter, s% pg% Profile_Panels2_other_ycenter, & - s% pg% Profile_Panels2_ymargin, s% pg% Profile_Panels2_other_ymargin, & - s% pg% Profile_Panels2_dymin, s% pg% Profile_Panels2_other_dymin, & - s% pg% Profile_Panels2_show_grid, & - s% pg% Profile_Panels2_num_panels, & - s% pg% Profile_Panels2_use_decorator, & - s% pg% Profile_Panels2_pgstar_decorator, & - 2, & - ierr) - end subroutine do_profile_Panels2_plot - - - subroutine Profile_Panels3_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_profile_Panels3_plot(s, id, device_id, & - s% pg% Profile_Panels3_xleft, s% pg% Profile_Panels3_xright, & - s% pg% Profile_Panels3_ybot, s% pg% Profile_Panels3_ytop, .false., & - s% pg% Profile_Panels3_title, s% pg% Profile_Panels3_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Profile_Panels3_plot - - - subroutine do_profile_Panels3_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call Pro_panels_plot(s, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% Profile_Panels3_xaxis_reversed, & - s% pg% Profile_Panels3_yaxis_reversed, & - s% pg% Profile_Panels3_other_yaxis_reversed, & - s% pg% Profile_Panels3_yaxis_log, & - s% pg% Profile_Panels3_other_yaxis_log, & - s% pg% Profile_Panels3_same_yaxis_range, & - s% pg% Profile_Panels3_xaxis_name, & - s% pg% Profile_Panels3_yaxis_name, & - s% pg% Profile_Panels3_other_yaxis_name, & - s% pg% Profile_Panels3_xmin, s% pg% Profile_Panels3_xmax, & - s% pg% Profile_Panels3_xmargin, s% pg% Profile_Panels3_show_mix_regions_on_xaxis, & - s% pg% Profile_Panels3_ymin, s% pg% Profile_Panels3_other_ymin, & - s% pg% Profile_Panels3_ymax, s% pg% Profile_Panels3_other_ymax, & - s% pg% Profile_Panels3_ycenter, s% pg% Profile_Panels3_other_ycenter, & - s% pg% Profile_Panels3_ymargin, s% pg% Profile_Panels3_other_ymargin, & - s% pg% Profile_Panels3_dymin, s% pg% Profile_Panels3_other_dymin, & - s% pg% Profile_Panels3_show_grid, & - s% pg% Profile_Panels3_num_panels, & - s% pg% Profile_Panels3_use_decorator, & - s% pg% Profile_Panels3_pgstar_decorator, & - 3, & - ierr) - end subroutine do_profile_Panels3_plot - - - subroutine Profile_Panels4_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_profile_Panels4_plot(s, id, device_id, & - s% pg% Profile_Panels4_xleft, s% pg% Profile_Panels4_xright, & - s% pg% Profile_Panels4_ybot, s% pg% Profile_Panels4_ytop, .false., & - s% pg% Profile_Panels4_title, s% pg% Profile_Panels4_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Profile_Panels4_plot - - - subroutine do_Profile_Panels4_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call Pro_panels_plot(s, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% Profile_Panels4_xaxis_reversed, & - s% pg% Profile_Panels4_yaxis_reversed, & - s% pg% Profile_Panels4_other_yaxis_reversed, & - s% pg% Profile_Panels4_yaxis_log, & - s% pg% Profile_Panels4_other_yaxis_log, & - s% pg% Profile_Panels4_same_yaxis_range, & - s% pg% Profile_Panels4_xaxis_name, & - s% pg% Profile_Panels4_yaxis_name, & - s% pg% Profile_Panels4_other_yaxis_name, & - s% pg% Profile_Panels4_xmin, s% pg% Profile_Panels4_xmax, & - s% pg% Profile_Panels4_xmargin, s% pg% Profile_Panels4_show_mix_regions_on_xaxis, & - s% pg% Profile_Panels4_ymin, s% pg% Profile_Panels4_other_ymin, & - s% pg% Profile_Panels4_ymax, s% pg% Profile_Panels4_other_ymax, & - s% pg% Profile_Panels4_ycenter, s% pg% Profile_Panels4_other_ycenter, & - s% pg% Profile_Panels4_ymargin, s% pg% Profile_Panels4_other_ymargin, & - s% pg% Profile_Panels4_dymin, s% pg% Profile_Panels4_other_dymin, & - s% pg% Profile_Panels4_show_grid, & - s% pg% Profile_Panels4_num_panels, & - s% pg% Profile_Panels4_use_decorator, & - s% pg% Profile_Panels4_pgstar_decorator, & - 4, & - ierr) - end subroutine do_profile_Panels4_plot - - - subroutine Profile_Panels5_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_Profile_Panels5_plot(s, id, device_id, & - s% pg% Profile_Panels5_xleft, s% pg% Profile_Panels5_xright, & - s% pg% Profile_Panels5_ybot, s% pg% Profile_Panels5_ytop, .false., & - s% pg% Profile_Panels5_title, s% pg% Profile_Panels5_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Profile_Panels5_plot - - - subroutine do_Profile_Panels5_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call Pro_panels_plot(s, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% Profile_Panels5_xaxis_reversed, & - s% pg% Profile_Panels5_yaxis_reversed, & - s% pg% Profile_Panels5_other_yaxis_reversed, & - s% pg% Profile_Panels5_yaxis_log, & - s% pg% Profile_Panels5_other_yaxis_log, & - s% pg% Profile_Panels5_same_yaxis_range, & - s% pg% Profile_Panels5_xaxis_name, & - s% pg% Profile_Panels5_yaxis_name, & - s% pg% Profile_Panels5_other_yaxis_name, & - s% pg% Profile_Panels5_xmin, s% pg% Profile_Panels5_xmax, & - s% pg% Profile_Panels5_xmargin, s% pg% Profile_Panels5_show_mix_regions_on_xaxis, & - s% pg% Profile_Panels5_ymin, s% pg% Profile_Panels5_other_ymin, & - s% pg% Profile_Panels5_ymax, s% pg% Profile_Panels5_other_ymax, & - s% pg% Profile_Panels5_ycenter, s% pg% Profile_Panels5_other_ycenter, & - s% pg% Profile_Panels5_ymargin, s% pg% Profile_Panels5_other_ymargin, & - s% pg% Profile_Panels5_dymin, s% pg% Profile_Panels5_other_dymin, & - s% pg% Profile_Panels5_show_grid, & - s% pg% Profile_Panels5_num_panels, & - s% pg% Profile_Panels5_use_decorator, & - s% pg% Profile_Panels5_pgstar_decorator, & - 5, & - ierr) - end subroutine do_Profile_Panels5_plot - - - subroutine Profile_Panels6_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_Profile_Panels6_plot(s, id, device_id, & - s% pg% Profile_Panels6_xleft, s% pg% Profile_Panels6_xright, & - s% pg% Profile_Panels6_ybot, s% pg% Profile_Panels6_ytop, .false., & - s% pg% Profile_Panels6_title, s% pg% Profile_Panels6_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Profile_Panels6_plot - - - subroutine do_Profile_Panels6_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call Pro_panels_plot(s, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% Profile_Panels6_xaxis_reversed, & - s% pg% Profile_Panels6_yaxis_reversed, & - s% pg% Profile_Panels6_other_yaxis_reversed, & - s% pg% Profile_Panels6_yaxis_log, & - s% pg% Profile_Panels6_other_yaxis_log, & - s% pg% Profile_Panels6_same_yaxis_range, & - s% pg% Profile_Panels6_xaxis_name, & - s% pg% Profile_Panels6_yaxis_name, & - s% pg% Profile_Panels6_other_yaxis_name, & - s% pg% Profile_Panels6_xmin, s% pg% Profile_Panels6_xmax, & - s% pg% Profile_Panels6_xmargin, s% pg% Profile_Panels6_show_mix_regions_on_xaxis, & - s% pg% Profile_Panels6_ymin, s% pg% Profile_Panels6_other_ymin, & - s% pg% Profile_Panels6_ymax, s% pg% Profile_Panels6_other_ymax, & - s% pg% Profile_Panels6_ycenter, s% pg% Profile_Panels6_other_ycenter, & - s% pg% Profile_Panels6_ymargin, s% pg% Profile_Panels6_other_ymargin, & - s% pg% Profile_Panels6_dymin, s% pg% Profile_Panels6_other_dymin, & - s% pg% Profile_Panels6_show_grid, & - s% pg% Profile_Panels6_num_panels, & - s% pg% Profile_Panels6_use_decorator, & - s% pg% Profile_Panels6_pgstar_decorator, & - 6, & - ierr) - end subroutine do_Profile_Panels6_plot - - - subroutine Profile_Panels7_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_Profile_Panels7_plot(s, id, device_id, & - s% pg% Profile_Panels7_xleft, s% pg% Profile_Panels7_xright, & - s% pg% Profile_Panels7_ybot, s% pg% Profile_Panels7_ytop, .false., & - s% pg% Profile_Panels7_title, s% pg% Profile_Panels7_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Profile_Panels7_plot - - - subroutine do_Profile_Panels7_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call Pro_panels_plot(s, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% Profile_Panels7_xaxis_reversed, & - s% pg% Profile_Panels7_yaxis_reversed, & - s% pg% Profile_Panels7_other_yaxis_reversed, & - s% pg% Profile_Panels7_yaxis_log, & - s% pg% Profile_Panels7_other_yaxis_log, & - s% pg% Profile_Panels7_same_yaxis_range, & - s% pg% Profile_Panels7_xaxis_name, & - s% pg% Profile_Panels7_yaxis_name, & - s% pg% Profile_Panels7_other_yaxis_name, & - s% pg% Profile_Panels7_xmin, s% pg% Profile_Panels7_xmax, & - s% pg% Profile_Panels7_xmargin, s% pg% Profile_Panels7_show_mix_regions_on_xaxis, & - s% pg% Profile_Panels7_ymin, s% pg% Profile_Panels7_other_ymin, & - s% pg% Profile_Panels7_ymax, s% pg% Profile_Panels7_other_ymax, & - s% pg% Profile_Panels7_ycenter, s% pg% Profile_Panels7_other_ycenter, & - s% pg% Profile_Panels7_ymargin, s% pg% Profile_Panels7_other_ymargin, & - s% pg% Profile_Panels7_dymin, s% pg% Profile_Panels7_other_dymin, & - s% pg% Profile_Panels7_show_grid, & - s% pg% Profile_Panels7_num_panels, & - s% pg% Profile_Panels7_use_decorator, & - s% pg% Profile_Panels7_pgstar_decorator, & - 7, & - ierr) - end subroutine do_Profile_Panels7_plot - - - subroutine Profile_Panels8_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_Profile_Panels8_plot(s, id, device_id, & - s% pg% Profile_Panels8_xleft, s% pg% Profile_Panels8_xright, & - s% pg% Profile_Panels8_ybot, s% pg% Profile_Panels8_ytop, .false., & - s% pg% Profile_Panels8_title, s% pg% Profile_Panels8_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Profile_Panels8_plot - - - subroutine do_Profile_Panels8_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call Pro_panels_plot(s, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% Profile_Panels8_xaxis_reversed, & - s% pg% Profile_Panels8_yaxis_reversed, & - s% pg% Profile_Panels8_other_yaxis_reversed, & - s% pg% Profile_Panels8_yaxis_log, & - s% pg% Profile_Panels8_other_yaxis_log, & - s% pg% Profile_Panels8_same_yaxis_range, & - s% pg% Profile_Panels8_xaxis_name, & - s% pg% Profile_Panels8_yaxis_name, & - s% pg% Profile_Panels8_other_yaxis_name, & - s% pg% Profile_Panels8_xmin, s% pg% Profile_Panels8_xmax, & - s% pg% Profile_Panels8_xmargin, s% pg% Profile_Panels8_show_mix_regions_on_xaxis, & - s% pg% Profile_Panels8_ymin, s% pg% Profile_Panels8_other_ymin, & - s% pg% Profile_Panels8_ymax, s% pg% Profile_Panels8_other_ymax, & - s% pg% Profile_Panels8_ycenter, s% pg% Profile_Panels8_other_ycenter, & - s% pg% Profile_Panels8_ymargin, s% pg% Profile_Panels8_other_ymargin, & - s% pg% Profile_Panels8_dymin, s% pg% Profile_Panels8_other_dymin, & - s% pg% Profile_Panels8_show_grid, & - s% pg% Profile_Panels8_num_panels, & - s% pg% Profile_Panels8_use_decorator, & - s% pg% Profile_Panels8_pgstar_decorator, & - 8, & - ierr) - end subroutine do_Profile_Panels8_plot - - - subroutine Profile_Panels9_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_Profile_Panels9_plot(s, id, device_id, & - s% pg% Profile_Panels9_xleft, s% pg% Profile_Panels9_xright, & - s% pg% Profile_Panels9_ybot, s% pg% Profile_Panels9_ytop, .false., & - s% pg% Profile_Panels9_title, s% pg% Profile_Panels9_txt_scale, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Profile_Panels9_plot - - - subroutine do_Profile_Panels9_plot(s, id, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call Pro_panels_plot(s, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - s% pg% Profile_Panels9_xaxis_reversed, & - s% pg% Profile_Panels9_yaxis_reversed, & - s% pg% Profile_Panels9_other_yaxis_reversed, & - s% pg% Profile_Panels9_yaxis_log, & - s% pg% Profile_Panels9_other_yaxis_log, & - s% pg% Profile_Panels9_same_yaxis_range, & - s% pg% Profile_Panels9_xaxis_name, & - s% pg% Profile_Panels9_yaxis_name, & - s% pg% Profile_Panels9_other_yaxis_name, & - s% pg% Profile_Panels9_xmin, s% pg% Profile_Panels9_xmax, & - s% pg% Profile_Panels9_xmargin, s% pg% Profile_Panels9_show_mix_regions_on_xaxis, & - s% pg% Profile_Panels9_ymin, s% pg% Profile_Panels9_other_ymin, & - s% pg% Profile_Panels9_ymax, s% pg% Profile_Panels9_other_ymax, & - s% pg% Profile_Panels9_ycenter, s% pg% Profile_Panels9_other_ycenter, & - s% pg% Profile_Panels9_ymargin, s% pg% Profile_Panels9_other_ymargin, & - s% pg% Profile_Panels9_dymin, s% pg% Profile_Panels9_other_dymin, & - s% pg% Profile_Panels9_show_grid, & - s% pg% Profile_Panels9_num_panels, & - s% pg% Profile_Panels9_use_decorator, & - s% pg% Profile_Panels9_pgstar_decorator, & - 9, & - ierr) - end subroutine do_Profile_Panels9_plot - - - subroutine Pro_panels_plot(s, device_id, & - vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & - panels_xaxis_reversed, & - panels_yaxis_reversed, & - panels_other_yaxis_reversed, & - panels_yaxis_log, & - panels_other_yaxis_log, & - panels_same_yaxis_range, & - panels_xaxis_name, & - panels_yaxis_name, & - panels_other_yaxis_name, & - panels_xmin_in, panels_xmax_in, & - panels_xmargin_in, show_mix_regions, & - panels_ymin, panels_other_ymin, & - panels_ymax, panels_other_ymax, & - panels_ycenter, panels_other_ycenter, & - panels_ymargin, panels_other_ymargin, & - panels_dymin, panels_other_dymin, & - panels_show_grid, & - panels_num_panels, & - use_decorator, pgstar_decorator, & - panels_id, & - ierr) - - use pgstar_abundance, only: do_abundance_panel - use pgstar_power, only: do_power_panel - use pgstar_dynamo, only: do_Dynamo_panel - use pgstar_mixing_Ds, only: do_Mixing_panel - use pgstar_mode_prop, only: do_mode_propagation_panel - use pgstar_summary_profile, only: do_summary_profile_panel - use utils_lib - use profile_getval, only: get_profile_val, get_profile_id - - type (star_info), pointer :: s - integer, intent(in) :: & - device_id, panels_num_panels, panels_id - real, intent(in) :: & - vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale, & - panels_xmin_in, panels_xmax_in, panels_xmargin_in - logical, intent(in) :: subplot, show_mix_regions - logical, intent(in), dimension(:) :: & - panels_yaxis_log, & - panels_other_yaxis_log, & - panels_same_yaxis_range - real, intent(in), dimension(:) :: & - panels_ymin, panels_other_ymin, & - panels_ymax, panels_other_ymax, & - panels_ycenter, panels_other_ycenter, & - panels_ymargin, panels_other_ymargin, & - panels_dymin, panels_other_dymin - character (len=*), intent(in) :: & - title, panels_xaxis_name - character (len=*), intent(in), dimension(:) :: & - panels_yaxis_name, & - panels_other_yaxis_name - logical, intent(in) :: & - panels_xaxis_reversed, use_decorator - logical, intent(in), dimension(:) :: & - panels_yaxis_reversed, & - panels_other_yaxis_reversed - logical, intent(in) :: panels_show_grid - integer, intent(out) :: ierr - procedure(pgstar_decorator_interface), pointer :: pgstar_decorator - - integer :: & - j, k, nz, y_color, clr_sav, id, & - other_y_color, grid_min, grid_max, npts, yaxis_id, other_yaxis_id, ishape - real :: panel_dy, panel_ybot, panel_ytop, & - dx, other_ytop, other_ybot, & - ybot, ytop, xmin, xmax, xleft, xright, panels_xmargin, & - panels_xmin, panels_xmax, xwidth_left_frac, xwidth_right_frac, & - xwidth_left_of_shock, xwidth_right_of_shock, shock_xmin, shock_xmax, & - xshock_sp - real(dp) :: photosphere_logxm, xshock - character (len=strlen) :: xname, yname, other_yname - logical :: found_shock - real, allocatable, dimension(:) :: xvec, yvec, other_yvec, unshifted_xvec - real, allocatable, dimension(:) :: yfile_xdata, other_yfile_xdata - real, allocatable, dimension(:) :: yfile_ydata, other_yfile_ydata - integer :: yfile_data_len, other_yfile_data_len, xaxis_id - - include 'formats' - - ierr = 0 - - id = s% id - - call pgsave - call pgsch(txt_scale) - - y_color = clr_Goldenrod - other_y_color = clr_LightSkyBlue - - panel_dy = (vp_ytop - vp_ybot)/real(panels_num_panels) - - nz = s% nz - allocate (xvec(nz), yvec(nz), other_yvec(nz), unshifted_xvec(nz)) - - panels_xmin = panels_xmin_in - panels_xmax = panels_xmax_in - panels_xmargin = panels_xmargin_in - - xwidth_left_frac = s% pg% Profile_Panels_xwidth_left_div_shock_value - xwidth_right_frac = s% pg% Profile_Panels_xwidth_right_div_shock_value - xwidth_left_of_shock = s% pg% Profile_Panels_xwidth_left_of_shock - xwidth_right_of_shock = s% pg% Profile_Panels_xwidth_right_of_shock - - xshock = 0 - found_shock = .false. - - xaxis_id = get_profile_id(s, panels_xaxis_name) - if (xaxis_id > 0 .and. s% v_center >= 0 .and. ( & - s% pg% Profile_Panels_show_Mach_1_location .or. & - xwidth_left_frac > 0 .or. xwidth_right_frac > 0 .or. & - xwidth_left_of_shock > 0 .or. xwidth_right_of_shock > 0)) then - found_shock = find_shock(s, xaxis_id, xshock) - if (found_shock .and. xshock <= 0) then - write(*,*) 'Panel:',panels_id,' shock location on xaxis must be positive for tracking location in plot.' - if (panels_xaxis_name == 'logR') write(*,*) 'perhaps use logR_cm instead of logR?' - write(*,'(A)') - found_shock = .false. - end if +module pgstar_profile_panels + + use star_private_def + use const_def + use pgstar_support + use pgstar_trho_profile + use star_pgstar + + implicit none + + +contains + + + subroutine Profile_Panels_plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix + integer, intent(out) :: ierr + type (star_info), pointer :: s + + ierr = 0 + call get_star_ptr(id, s, ierr) + if (ierr /= 0) return + call pgslct(device_id) + call pgbbuf() + call pgeras() + call do_profile_panels_plot(s, id, device_id, array_ix, & + s% pg% Profile_Panels_xleft(array_ix), s% pg% Profile_Panels_xright(array_ix), & + s% pg% Profile_Panels_ybot(array_ix), s% pg% Profile_Panels_ytop(array_ix), .false., & + s% pg% Profile_Panels_title(array_ix), s% pg% Profile_Panels_txt_scale(array_ix), ierr) + if (ierr /= 0) return + call pgebuf() + end subroutine Profile_Panels_plot + + + subroutine do_profile_panels_plot(s, id, device_id, array_ix, & + vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, ierr) + type (star_info), pointer :: s + integer, intent(in) :: id, device_id, array_ix + real, intent(in) :: vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale + logical, intent(in) :: subplot + character (len = *), intent(in) :: title + integer, intent(out) :: ierr + procedure(pgstar_decorator_interface), pointer :: decorator + + select case (array_ix) ! decorator interfaces cannot be arrayified + case(1) + decorator => s% pg% Profile_Panels1_pgstar_decorator + case(2) + decorator => s% pg% Profile_Panels2_pgstar_decorator + case(3) + decorator => s% pg% Profile_Panels3_pgstar_decorator + case(4) + decorator => s% pg% Profile_Panels4_pgstar_decorator + case(5) + decorator => s% pg% Profile_Panels5_pgstar_decorator + case(6) + decorator => s% pg% Profile_Panels6_pgstar_decorator + case(7) + decorator => s% pg% Profile_Panels7_pgstar_decorator + case(8) + decorator => s% pg% Profile_Panels8_pgstar_decorator + case(9) + decorator => s% pg% Profile_Panels9_pgstar_decorator + case default + write(*, *) "select appropriate profile panels window (1..9)" + return + end select + + call Pro_panels_plot(s, device_id, array_ix, & + vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & + s% pg% Profile_Panels_num_panels(array_ix), & + + s% pg% Profile_Panels_xaxis_name(array_ix), & + s% pg% Profile_Panels_xmin(array_ix), s% pg% Profile_Panels_xmax(array_ix), & + s% pg% Profile_Panels_xmargin(array_ix), & + s% pg% Profile_Panels_xaxis_reversed(array_ix), & + + s% pg% Profile_Panels_yaxis_name(array_ix, :), s% pg% Profile_Panels_ycenter(array_ix, :), & + s% pg% Profile_Panels_ymin(array_ix, :), s% pg% Profile_Panels_ymax(array_ix, :), & + s% pg% Profile_Panels_dymin(array_ix, :), s% pg% Profile_Panels_ymargin(array_ix, :), & + s% pg% Profile_Panels_yaxis_reversed(array_ix, :), s% pg% Profile_Panels_yaxis_log(array_ix, :), & + + s% pg% Profile_Panels_other_yaxis_name(array_ix, :), s% pg% Profile_Panels_other_ycenter(array_ix, :), & + s% pg% Profile_Panels_other_ymin(array_ix, :), s% pg% Profile_Panels_other_ymax(array_ix, :), & + s% pg% Profile_Panels_other_dymin(array_ix, :), s% pg% Profile_Panels_other_ymargin(array_ix, :), & + s% pg% Profile_Panels_other_yaxis_reversed(array_ix, :), s% pg% Profile_Panels_other_yaxis_log(array_ix, :), & + + s% pg% Profile_Panels_same_yaxis_range(array_ix, :), & + s% pg% Profile_Panels_show_mix_regions_on_xaxis(array_ix), & + s% pg% Profile_Panels_show_grid(array_ix), & + + s% pg% Profile_Panels_use_decorator(array_ix), decorator, & + ierr) + end subroutine do_profile_panels_plot + + + subroutine Pro_panels_plot(s, device_id, array_ix, & + vp_xleft, vp_xright, vp_ybot, vp_ytop, subplot, title, txt_scale, & + panels_num_panels, & + panels_xaxis_name, & + panels_xmin_in, panels_xmax_in, & + panels_xmargin_in, & + panels_xaxis_reversed, & + + panels_yaxis_name, panels_ycenter, & + panels_ymin, panels_ymax, & + panels_dymin, panels_ymargin, & + panels_yaxis_reversed, panels_yaxis_log, & + + panels_other_yaxis_name, panels_other_ycenter, & + panels_other_ymin, panels_other_ymax, & + panels_other_dymin, panels_other_ymargin, & + panels_other_yaxis_reversed, panels_other_yaxis_log, & + + panels_same_yaxis_range, & + show_mix_regions, & + panels_show_grid, & + + use_decorator, pgstar_decorator, & + ierr) + + use pgstar_abundance, only: do_abundance_panel + use pgstar_power, only: do_power_panel + use pgstar_dynamo, only: do_Dynamo_panel + use pgstar_mixing_Ds, only: do_Mixing_panel + use pgstar_mode_prop, only: do_mode_propagation_panel + use pgstar_summary_profile, only: do_summary_profile_panel + use utils_lib + use profile_getval, only: get_profile_val, get_profile_id + + type (star_info), pointer :: s + integer, intent(in) :: & + device_id, panels_num_panels, array_ix + real, intent(in) :: & + vp_xleft, vp_xright, vp_ybot, vp_ytop, txt_scale, & + panels_xmin_in, panels_xmax_in, panels_xmargin_in + logical, intent(in) :: subplot, show_mix_regions + logical, intent(in), dimension(:) :: & + panels_yaxis_log, & + panels_other_yaxis_log, & + panels_same_yaxis_range + real, intent(in), dimension(:) :: & + panels_ymin, panels_other_ymin, & + panels_ymax, panels_other_ymax, & + panels_ycenter, panels_other_ycenter, & + panels_ymargin, panels_other_ymargin, & + panels_dymin, panels_other_dymin + character (len = *), intent(in) :: & + title, panels_xaxis_name + character (len = *), intent(in), dimension(:) :: & + panels_yaxis_name, & + panels_other_yaxis_name + logical, intent(in) :: & + panels_xaxis_reversed, use_decorator + logical, intent(in), dimension(:) :: & + panels_yaxis_reversed, & + panels_other_yaxis_reversed + logical, intent(in) :: panels_show_grid + integer, intent(out) :: ierr + procedure(pgstar_decorator_interface), pointer :: pgstar_decorator + + integer :: & + j, k, k0, k_max, i, nz, kmin, kmax, cnt, y_color, clr_sav, id, & + other_y_color, grid_min, grid_max, npts, yaxis_id, other_yaxis_id, ishape + real :: del, xpos, ypos, panel_dy, panel_ybot, panel_ytop, & + dx, dy, xpos0, dxpos, dypos, dxval, other_ytop, other_ybot, & + ybot, ytop, xmin, xmax, xleft, xright, xwidth, panels_xmargin, & + panels_xmin, panels_xmax, xwidth_left_frac, xwidth_right_frac, & + xwidth_left_of_shock, xwidth_right_of_shock, shock_xmin, shock_xmax, & + xshock_sp + real(dp) :: cs, x00, xp1, ms, photosphere_logxm, xshock + character (len = strlen) :: str, xname, yname, other_yname + logical :: found_shock + real, allocatable, dimension(:) :: xvec, yvec, other_yvec, unshifted_xvec + real, allocatable, dimension(:) :: yfile_xdata, other_yfile_xdata + real, allocatable, dimension(:) :: yfile_ydata, other_yfile_ydata + integer :: yfile_data_len, other_yfile_data_len, xaxis_id + + include 'formats' + + ierr = 0 + + id = s% id + + call pgsave + call pgsch(txt_scale) + + y_color = clr_Goldenrod + other_y_color = clr_LightSkyBlue + + panel_dy = (vp_ytop - vp_ybot) / real(panels_num_panels) + + nz = s% nz + allocate (xvec(nz), yvec(nz), other_yvec(nz), unshifted_xvec(nz)) + + panels_xmin = panels_xmin_in + panels_xmax = panels_xmax_in + panels_xmargin = panels_xmargin_in + + xwidth_left_frac = s% pg% Profile_Panels_xwidth_left_div_shock_value + xwidth_right_frac = s% pg% Profile_Panels_xwidth_right_div_shock_value + xwidth_left_of_shock = s% pg% Profile_Panels_xwidth_left_of_shock + xwidth_right_of_shock = s% pg% Profile_Panels_xwidth_right_of_shock + + xshock = 0 + found_shock = .false. + + xaxis_id = get_profile_id(s, panels_xaxis_name) + if (xaxis_id > 0 .and. s% v_center >= 0 .and. (& + s% pg% Profile_Panels_show_Mach_1_location .or. & + xwidth_left_frac > 0 .or. xwidth_right_frac > 0 .or. & + xwidth_left_of_shock > 0 .or. xwidth_right_of_shock > 0)) then + found_shock = find_shock(s, xaxis_id, xshock) + if (found_shock .and. xshock <= 0) then + write(*, *) 'Panel:', array_ix, ' shock location on xaxis must be positive for tracking location in plot.' + if (panels_xaxis_name == 'logR') write(*, *) 'perhaps use logR_cm instead of logR?' + write(*, '(A)') + found_shock = .false. end if - xshock_sp=real(xshock,kind=kind(xshock_sp)) - - if (found_shock .and. ( & - xwidth_left_frac > 0 .or. xwidth_right_frac > 0 .or. & - xwidth_left_of_shock > 0 .or. xwidth_right_of_shock > 0)) then - - xmin = get_profile_val(s, xaxis_id, nz) - xmax = get_profile_val(s, xaxis_id, 1) - if (xmin > xmax) then ! switch - dx = xmin; xmin = xmax; xmax = dx - end if + end if + xshock_sp = real(xshock, kind = kind(xshock_sp)) - shock_xmin = -HUGE(shock_xmin) - if (xwidth_left_frac > 0) & - shock_xmin = xshock*(1.0 - xwidth_left_frac) - if (xwidth_left_of_shock > 0) & - shock_xmin = max(shock_xmin, xshock_sp - xwidth_left_of_shock) - if (shock_xmin > xmin) then - panels_xmin = shock_xmin - panels_xmargin = 0 - end if - - shock_xmax = HUGE(shock_xmax) - if (xwidth_right_frac > 0) & - shock_xmax = xshock*(1.0 + xwidth_right_frac) - if (xwidth_right_of_shock > 0) & - shock_xmax = min(shock_xmax, xshock_sp + xwidth_right_of_shock) - if (shock_xmax < xmax) then - panels_xmax = shock_xmax - panels_xmargin = 0 - end if + if (found_shock .and. (& + xwidth_left_frac > 0 .or. xwidth_right_frac > 0 .or. & + xwidth_left_of_shock > 0 .or. xwidth_right_of_shock > 0)) then + xmin = get_profile_val(s, xaxis_id, nz) + xmax = get_profile_val(s, xaxis_id, 1) + if (xmin > xmax) then ! switch + dx = xmin; xmin = xmax; xmax = dx end if - call set_xaxis_bounds( & - s, panels_xaxis_name, panels_xmin, & - panels_xmax, panels_xaxis_reversed, panels_xmargin, & - xvec, xmin, xmax, xleft, xright, dx, & - grid_min, grid_max, npts, ierr) - if (ierr /= 0) then - write(*,*) 'Panel:',panels_id,' set_xaxis_bounds error in Profile panels -- please check ' // & - trim(panels_xaxis_name) - write(*,1) 'xleft', xleft - write(*,1) 'xright', xright - stop - return + shock_xmin = -HUGE(shock_xmin) + if (xwidth_left_frac > 0) & + shock_xmin = xshock * (1.0 - xwidth_left_frac) + if (xwidth_left_of_shock > 0) & + shock_xmin = max(shock_xmin, xshock_sp - xwidth_left_of_shock) + if (shock_xmin > xmin) then + panels_xmin = shock_xmin + panels_xmargin = 0 end if - if (xleft == xright) return - - if (found_shock .and. s% pg% Profile_Panels_show_Mach_1_location) then - ! mark shock location - call pgsave - call pgsvp(vp_xleft, vp_xright, vp_ybot, vp_ytop) - call pgswin(0.0, 1.0, 0.0, 1.0) - call pgsci(clr_Gray) - call pgsls(Line_Type_Dash) - call pgslw(1) - dx = (xshock - xmin)/(xmax - xmin) - call pgmove(dx, 0.0) - call pgdraw(dx, 1.0) - call pgunsa + + shock_xmax = HUGE(shock_xmax) + if (xwidth_right_frac > 0) & + shock_xmax = xshock * (1.0 + xwidth_right_frac) + if (xwidth_right_of_shock > 0) & + shock_xmax = min(shock_xmax, xshock_sp + xwidth_right_of_shock) + if (shock_xmax < xmax) then + panels_xmax = shock_xmax + panels_xmargin = 0 end if - if (s% pg% Profile_Panels_show_photosphere_location .and. & - (panels_xaxis_name == 'mass' .or. & - panels_xaxis_name == 'logxm' .or. & - panels_xaxis_name == 'radius' .or. & - panels_xaxis_name == 'radius_cm')) then - call pgsave - call pgsvp(vp_xleft, vp_xright, vp_ybot, vp_ytop) - call pgswin(0.0, 1.0, 0.0, 1.0) - call pgsci(clr_Gray) - call pgsls(Line_Type_Dash) - call pgslw(5) - if (panels_xaxis_name == 'radius') then - dx = (s% photosphere_r - xmin)/(xmax - xmin) - else if (panels_xaxis_name == 'radius_cm') then - dx = (s% photosphere_r*Rsun - xmin)/(xmax - xmin) - else if (panels_xaxis_name == 'mass') then - dx = (s% photosphere_m - xmin)/(xmax - xmin) + end if + + call set_xaxis_bounds(& + s, panels_xaxis_name, panels_xmin, & + panels_xmax, panels_xaxis_reversed, panels_xmargin, & + xvec, xmin, xmax, xleft, xright, dx, & + grid_min, grid_max, npts, ierr) + if (ierr /= 0) then + write(*, *) 'Panel:', array_ix, ' set_xaxis_bounds error in Profile panels -- please check ' // & + trim(panels_xaxis_name) + write(*, 1) 'xleft', xleft + write(*, 1) 'xright', xright + stop + return + end if + if (xleft == xright) return + + if (found_shock .and. s% pg% Profile_Panels_show_Mach_1_location) then + ! mark shock location + call pgsave + call pgsvp(vp_xleft, vp_xright, vp_ybot, vp_ytop) + call pgswin(0.0, 1.0, 0.0, 1.0) + call pgsci(clr_Gray) + call pgsls(Line_Type_Dash) + call pgslw(1) + dx = (xshock - xmin) / (xmax - xmin) + call pgmove(dx, 0.0) + call pgdraw(dx, 1.0) + call pgunsa + end if + + if (s% pg% Profile_Panels_show_photosphere_location .and. & + (panels_xaxis_name == 'mass' .or. & + panels_xaxis_name == 'logxm' .or. & + panels_xaxis_name == 'radius' .or. & + panels_xaxis_name == 'radius_cm')) then + call pgsave + call pgsvp(vp_xleft, vp_xright, vp_ybot, vp_ytop) + call pgswin(0.0, 1.0, 0.0, 1.0) + call pgsci(clr_Gray) + call pgsls(Line_Type_Dash) + call pgslw(5) + if (panels_xaxis_name == 'radius') then + dx = (s% photosphere_r - xmin) / (xmax - xmin) + else if (panels_xaxis_name == 'radius_cm') then + dx = (s% photosphere_r * Rsun - xmin) / (xmax - xmin) + else if (panels_xaxis_name == 'mass') then + dx = (s% photosphere_m - xmin) / (xmax - xmin) + else + if (s% star_mass > s% photosphere_m) then + photosphere_logxm = log10(s% star_mass - s% photosphere_m) else - if (s% star_mass > s% photosphere_m) then - photosphere_logxm = log10(s% star_mass - s% photosphere_m) - else - photosphere_logxm = -99 - end if - dx = 1 - (photosphere_logxm - xmin)/(xmax - xmin) - write(*,2) 'Panel:',panels_id,' photosphere_xm xmin photo_x xmax dx', s% model_number, & - s% star_mass - s% photosphere_m, & - xmin, photosphere_logxm, xmax, dx + photosphere_logxm = -99 end if - call pgmove(dx, 0.0) - call pgdraw(dx, 1.0) - call pgunsa + dx = 1 - (photosphere_logxm - xmin) / (xmax - xmin) + write(*, 2) 'Panel:', array_ix, ' photosphere_xm xmin photo_x xmax dx', s% model_number, & + s% star_mass - s% photosphere_m, & + xmin, photosphere_logxm, xmax, dx end if - - do k=1,nz - unshifted_xvec(k) = xvec(k) + call pgmove(dx, 0.0) + call pgdraw(dx, 1.0) + call pgunsa + end if + + do k = 1, nz + unshifted_xvec(k) = xvec(k) + end do + if (grid_min > 1) then + do k = 1, npts + xvec(k) = xvec(k + grid_min - 1) end do - if (grid_min > 1) then - do k=1,npts - xvec(k) = xvec(k+grid_min-1) - end do - end if + end if - do j = 1, panels_num_panels + do j = 1, panels_num_panels - panel_ytop = vp_ytop - real(j-1)*panel_dy - panel_ybot = panel_ytop - panel_dy + panel_ytop = vp_ytop - real(j - 1) * panel_dy + panel_ybot = panel_ytop - panel_dy - call pgsvp(vp_xleft, vp_xright, panel_ybot, panel_ytop) + call pgsvp(vp_xleft, vp_xright, panel_ybot, panel_ytop) - if (j == 1) then - if (.not. subplot) then - call show_model_number_pgstar(s) - call show_age_pgstar(s) - end if - call show_title_pgstar(s, title, 0.4) + if (j == 1) then + if (.not. subplot) then + call show_model_number_pgstar(s) + call show_age_pgstar(s) end if + call show_title_pgstar(s, title, 0.4) + end if - yname = panels_yaxis_name(j) - - if (trim(yname) == 'Abundance') then + yname = panels_yaxis_name(j) - call do_abundance_panel(s, id, device_id, & - vp_xleft, vp_xright, panel_ybot, panel_ytop, .true., '', txt_scale, & - panels_xaxis_name, xmin, xmax, panels_xaxis_reversed, & - panels_ymin(j), panels_ymax(j), & - .true., (j == panels_num_panels), ierr) - if (ierr /= 0) then - write(*,*) 'Panel:',panels_id,' panels failed in do_abundance_panel' - stop - end if - cycle - - else if (trim(yname) == 'Power') then - - call do_power_panel(s, id, device_id, & - vp_xleft, vp_xright, panel_ybot, panel_ytop, .true., '', txt_scale, & - panels_xaxis_name, xmin, xmax, panels_xaxis_reversed, & - panels_ymin(j), panels_ymax(j), & - .true., (j == panels_num_panels), ierr) - if (ierr /= 0) then - write(*,*) 'Panel:',panels_id,' panels failed in do_power_panel' - stop - end if - cycle + if (trim(yname) == 'Abundance') then - else if (trim(yname) == 'Dynamo') then + call do_abundance_panel(s, id, device_id, & + vp_xleft, vp_xright, panel_ybot, panel_ytop, .true., '', txt_scale, & + panels_xaxis_name, xmin, xmax, panels_xaxis_reversed, & + panels_ymin(j), panels_ymax(j), & + .true., (j == panels_num_panels), ierr) + if (ierr /= 0) then + write(*, *) 'Panel:', array_ix, ' panels failed in do_abundance_panel' + stop + end if + cycle + + else if (trim(yname) == 'Power') then + + call do_power_panel(s, id, device_id, & + vp_xleft, vp_xright, panel_ybot, panel_ytop, .true., '', txt_scale, & + panels_xaxis_name, xmin, xmax, panels_xaxis_reversed, & + panels_ymin(j), panels_ymax(j), & + .true., (j == panels_num_panels), ierr) + if (ierr /= 0) then + write(*, *) 'Panel:', array_ix, ' panels failed in do_power_panel' + stop + end if + cycle - call do_Dynamo_panel(s, id, device_id, & - vp_xleft, vp_xright, panel_ybot, panel_ytop, .true., '', txt_scale, & - panels_xaxis_name, xmin, xmax, panels_xaxis_reversed, & - .true., (j == panels_num_panels), ierr) - if (ierr /= 0) then - write(*,*) 'Panel:',panels_id,' panels failed in do_dynamo_panel' - stop - end if - cycle - - else if (trim(yname) == 'Mixing') then - - call do_Mixing_panel(s, id, device_id, & - vp_xleft, vp_xright, panel_ybot, panel_ytop, .true., '', txt_scale, & - panels_xaxis_name, xmin, xmax, panels_xaxis_reversed, & - panels_ymin(j), panels_ymax(j), & - .true., (j == panels_num_panels), ierr) - if (ierr /= 0) then - write(*,*) 'Panel:',panels_id,' panels failed in do_mixing_panel' - stop - end if - cycle + else if (trim(yname) == 'Dynamo') then - else if (trim(yname) == 'Mode_Prop') then + call do_Dynamo_panel(s, id, device_id, & + vp_xleft, vp_xright, panel_ybot, panel_ytop, .true., '', txt_scale, & + panels_xaxis_name, xmin, xmax, panels_xaxis_reversed, & + .true., (j == panels_num_panels), ierr) + if (ierr /= 0) then + write(*, *) 'Panel:', array_ix, ' panels failed in do_dynamo_panel' + stop + end if + cycle + + else if (trim(yname) == 'Mixing') then + + call do_Mixing_panel(s, id, device_id, & + vp_xleft, vp_xright, panel_ybot, panel_ytop, .true., '', txt_scale, & + panels_xaxis_name, xmin, xmax, panels_xaxis_reversed, & + panels_ymin(j), panels_ymax(j), & + .true., (j == panels_num_panels), ierr) + if (ierr /= 0) then + write(*, *) 'Panel:', array_ix, ' panels failed in do_mixing_panel' + stop + end if + cycle - call do_mode_propagation_panel(s, id, device_id, & - vp_xleft, vp_xright, panel_ybot, panel_ytop, .true., '', txt_scale, & - panels_xaxis_name, xmin, xmax, panels_xaxis_reversed, & - .true., (j == panels_num_panels), ierr) - if (ierr /= 0) then - write(*,*) 'Panel:',panels_id,' panels failed in do_mode_propagation_panel' - stop - end if - cycle + else if (trim(yname) == 'Mode_Prop') then - else if (trim(yname) == 'Summary_Profile') then + call do_mode_propagation_panel(s, id, device_id, & + vp_xleft, vp_xright, panel_ybot, panel_ytop, .true., '', txt_scale, & + panels_xaxis_name, xmin, xmax, panels_xaxis_reversed, & + .true., (j == panels_num_panels), ierr) + if (ierr /= 0) then + write(*, *) 'Panel:', array_ix, ' panels failed in do_mode_propagation_panel' + stop + end if + cycle - call do_summary_profile_panel(s, id, device_id, & - vp_xleft, vp_xright, panel_ybot, panel_ytop, .true., '', txt_scale, & - panels_xaxis_name, xmin, xmax, panels_xaxis_reversed, & - .true., (j == panels_num_panels), ierr) - if (ierr /= 0) then - write(*,*) 'Panel:',panels_id,' panels failed in do_summary_profile_panel' - stop - end if - cycle + else if (trim(yname) == 'Summary_Profile') then + call do_summary_profile_panel(s, id, device_id, & + vp_xleft, vp_xright, panel_ybot, panel_ytop, .true., '', txt_scale, & + panels_xaxis_name, xmin, xmax, panels_xaxis_reversed, & + .true., (j == panels_num_panels), ierr) + if (ierr /= 0) then + write(*, *) 'Panel:', array_ix, ' panels failed in do_summary_profile_panel' + stop end if + cycle - other_yaxis_id = 0 - yfile_data_len = 0 - other_yfile_data_len = 0 - - if (len_trim(panels_other_yaxis_name(j)) > 0) then - other_yname = panels_other_yaxis_name(j) - other_yaxis_id = get_profile_id(s, other_yname) - if (other_yaxis_id <= 0) then - if (.not. read_values_from_file(other_yname, & - other_yfile_xdata, other_yfile_ydata, other_yfile_data_len)) then - write(*,'(A,1X,I1,A,1X,I1,A)') & - 'Panel:',panels_id,' bad other yaxis(',j,') for Profile panels plot name=',trim(other_yname) - return - end if - if (panels_other_yaxis_log(j)) then - do k=1,other_yfile_data_len - other_yfile_ydata(k) = log10(max(tiny(other_yfile_ydata(k)),abs(other_yfile_ydata(k)))) - end do - end if - call set_ytop_ybot( & - other_yfile_data_len, other_yfile_ydata, panels_other_ymin(j), & - panels_other_ymax(j), panels_other_ycenter(j), panels_other_ymargin(j), & - panels_other_yaxis_reversed(j), panels_other_dymin(j), other_ybot, other_ytop) - else - do k=1,npts - other_yvec(k) = get_profile_val(s, other_yaxis_id, k+grid_min-1) - end do - if (panels_other_yaxis_log(j)) then - do k=1,npts - other_yvec(k) = log10(max(tiny(other_yvec(k)),abs(other_yvec(k)))) - end do - end if - call set_ytop_ybot( & - npts, other_yvec, panels_other_ymin(j), panels_other_ymax(j), panels_other_ycenter(j), & - panels_other_ymargin(j), panels_other_yaxis_reversed(j), & - panels_other_dymin(j), other_ybot, other_ytop) - end if - end if + end if - yaxis_id = get_profile_id(s, yname) - if (yaxis_id <= 0) then - if (.not. read_values_from_file( & - yname, yfile_xdata, yfile_ydata, yfile_data_len)) then - write(*,'(A,1X,I1,A,1X,I1,A)') & - 'Panel:',panels_id,' bad yaxis(',j,') for Profile panels plot name=',trim(yname) + other_yaxis_id = 0 + yfile_data_len = 0 + other_yfile_data_len = 0 + + if (len_trim(panels_other_yaxis_name(j)) > 0) then + other_yname = panels_other_yaxis_name(j) + other_yaxis_id = get_profile_id(s, other_yname) + if (other_yaxis_id <= 0) then + if (.not. read_values_from_file(other_yname, & + other_yfile_xdata, other_yfile_ydata, other_yfile_data_len)) then + write(*, '(A,1X,I1,A,1X,I1,A)') & + 'Panel:', array_ix, ' bad other yaxis(', j, ') for Profile panels plot name=', trim(other_yname) return end if - if (panels_yaxis_log(j)) then - do k=1,yfile_data_len - yfile_ydata(k) = log10(max(tiny(yfile_ydata(k)),abs(yfile_ydata(k)))) + if (panels_other_yaxis_log(j)) then + do k = 1, other_yfile_data_len + other_yfile_ydata(k) = log10(max(tiny(other_yfile_ydata(k)), abs(other_yfile_ydata(k)))) end do end if - call set_ytop_ybot( & - yfile_data_len, yfile_xdata, panels_ymin(j), panels_ycenter(j), panels_ymax(j), & - panels_ymargin(j), panels_yaxis_reversed(j), panels_dymin(j), ybot, ytop) + call set_ytop_ybot(& + other_yfile_data_len, other_yfile_ydata, panels_other_ymin(j), & + panels_other_ymax(j), panels_other_ycenter(j), panels_other_ymargin(j), & + panels_other_yaxis_reversed(j), panels_other_dymin(j), other_ybot, other_ytop) else - do k=1,npts - yvec(k) = get_profile_val(s, yaxis_id, k+grid_min-1) + do k = 1, npts + other_yvec(k) = get_profile_val(s, other_yaxis_id, k + grid_min - 1) end do - if (panels_yaxis_log(j)) then - do k=1,npts - yvec(k) = log10(max(tiny(yvec(k)),abs(yvec(k)))) + if (panels_other_yaxis_log(j)) then + do k = 1, npts + other_yvec(k) = log10(max(tiny(other_yvec(k)), abs(other_yvec(k)))) end do end if - call set_ytop_ybot( & - npts, yvec, panels_ymin(j), panels_ymax(j), panels_ycenter(j), panels_ymargin(j), & - panels_yaxis_reversed(j), panels_dymin(j), ybot, ytop) + call set_ytop_ybot(& + npts, other_yvec, panels_other_ymin(j), panels_other_ymax(j), panels_other_ycenter(j), & + panels_other_ymargin(j), panels_other_yaxis_reversed(j), & + panels_other_dymin(j), other_ybot, other_ytop) end if - - if (panels_same_yaxis_range(j) .and. len_trim(panels_other_yaxis_name(j)) > 0) then - if (other_ybot < ybot) ybot = other_ybot - if (ybot < other_ybot) other_ybot = ybot - if (other_ytop > ytop) ytop = other_ytop - if (ytop > other_ytop) other_ytop = ytop + end if + + yaxis_id = get_profile_id(s, yname) + if (yaxis_id <= 0) then + if (.not. read_values_from_file(& + yname, yfile_xdata, yfile_ydata, yfile_data_len)) then + write(*, '(A,1X,I1,A,1X,I1,A)') & + 'Panel:', array_ix, ' bad yaxis(', j, ') for Profile panels plot name=', trim(yname) + return end if - - if (len_trim(panels_other_yaxis_name(j)) > 0) then - call pgswin(xleft, xright, other_ybot, other_ytop) - call pgscf(1) - call pgsci(1) - call show_box_pgstar(s,'','CMSTV') - call pgsci(other_y_color) - if (panels_other_yaxis_log(j)) then - call show_right_yaxis_label_pgstar(s,'log ' // other_yname) - else - call show_right_yaxis_label_pgstar(s,other_yname) - end if - call pgslw(s% pg% pgstar_lw) - call pgsci(other_y_color) - if (other_yfile_data_len > 0) then - call pgline( & - other_yfile_data_len, other_yfile_xdata, other_yfile_ydata) - deallocate(other_yfile_xdata, other_yfile_ydata) - else - call pgline(npts, xvec, other_yvec) - if (panels_show_grid) then - ishape = 21 - do k=1,npts - call pgpt1(xvec(k),other_yvec(k),ishape) - end do - end if - end if - call pgslw(1) + if (panels_yaxis_log(j)) then + do k = 1, yfile_data_len + yfile_ydata(k) = log10(max(tiny(yfile_ydata(k)), abs(yfile_ydata(k)))) + end do end if - - call pgswin(xleft, xright, ybot, ytop) - call pgscf(1) - call pgsci(1) - if (j < panels_num_panels) then - if (other_yaxis_id <= 0 .and. other_yfile_data_len <= 0) then - call show_box_pgstar(s,'BCST','BCMNSTV') - else - call show_box_pgstar(s,'BCST','BNSTV') - end if - else - if (other_yaxis_id <= 0 .and. other_yfile_data_len <= 0) then - call show_box_pgstar(s,'BCNST','BCMNSTV') - else - call show_box_pgstar(s,'BCNST','BNSTV') - end if + call set_ytop_ybot(& + yfile_data_len, yfile_xdata, panels_ymin(j), panels_ycenter(j), panels_ymax(j), & + panels_ymargin(j), panels_yaxis_reversed(j), panels_dymin(j), ybot, ytop) + else + do k = 1, npts + yvec(k) = get_profile_val(s, yaxis_id, k + grid_min - 1) + end do + if (panels_yaxis_log(j)) then + do k = 1, npts + yvec(k) = log10(max(tiny(yvec(k)), abs(yvec(k)))) + end do end if + call set_ytop_ybot(& + npts, yvec, panels_ymin(j), panels_ymax(j), panels_ycenter(j), panels_ymargin(j), & + panels_yaxis_reversed(j), panels_dymin(j), ybot, ytop) + end if - call pgqci(clr_sav) - call pgsci(y_color) - if (panels_yaxis_log(j)) then - call show_left_yaxis_label_pgstar(s,'log ' // yname) + if (panels_same_yaxis_range(j) .and. len_trim(panels_other_yaxis_name(j)) > 0) then + if (other_ybot < ybot) ybot = other_ybot + if (ybot < other_ybot) other_ybot = ybot + if (other_ytop > ytop) ytop = other_ytop + if (ytop > other_ytop) other_ytop = ytop + end if + + if (len_trim(panels_other_yaxis_name(j)) > 0) then + call pgswin(xleft, xright, other_ybot, other_ytop) + call pgscf(1) + call pgsci(1) + call show_box_pgstar(s, '', 'CMSTV') + call pgsci(other_y_color) + if (panels_other_yaxis_log(j)) then + call show_right_yaxis_label_pgstar(s, 'log ' // other_yname) else - call show_left_yaxis_label_pgstar(s,yname) + call show_right_yaxis_label_pgstar(s, other_yname) end if call pgslw(s% pg% pgstar_lw) - if (yfile_data_len > 0) then - call pgsls(s% pg% pgstar_profile_line_style) - call pgline(yfile_data_len, yfile_xdata, yfile_ydata) - call pgsls(1) - deallocate(yfile_xdata, yfile_ydata) + call pgsci(other_y_color) + if (other_yfile_data_len > 0) then + call pgline(& + other_yfile_data_len, other_yfile_xdata, other_yfile_ydata) + deallocate(other_yfile_xdata, other_yfile_ydata) else - call pgsls(s% pg% pgstar_profile_line_style) - call pgline(npts, xvec, yvec) - call pgsls(1) + call pgline(npts, xvec, other_yvec) if (panels_show_grid) then ishape = 21 - do k=1,npts - call pgpt1(xvec(k),yvec(k),ishape) + do k = 1, npts + call pgpt1(xvec(k), other_yvec(k), ishape) end do end if end if call pgslw(1) - call pgsci(1) - - call show_pgstar_decorator(s% id, use_decorator, pgstar_decorator, j, ierr) - end do + end if - xname = trim(panels_xaxis_name) - call show_xaxis_label_pgstar(s,xname) + call pgswin(xleft, xright, ybot, ytop) + call pgscf(1) + call pgsci(1) + if (j < panels_num_panels) then + if (other_yaxis_id <= 0 .and. other_yfile_data_len <= 0) then + call show_box_pgstar(s, 'BCST', 'BCMNSTV') + else + call show_box_pgstar(s, 'BCST', 'BNSTV') + end if + else + if (other_yaxis_id <= 0 .and. other_yfile_data_len <= 0) then + call show_box_pgstar(s, 'BCNST', 'BCMNSTV') + else + call show_box_pgstar(s, 'BCNST', 'BNSTV') + end if + end if - if (show_mix_regions) then ! show mix regions at bottom of plot - call pgslw(10) - call show_mix_regions_on_xaxis( & - s,ybot,ytop,grid_min,grid_max,unshifted_xvec) + call pgqci(clr_sav) + call pgsci(y_color) + if (panels_yaxis_log(j)) then + call show_left_yaxis_label_pgstar(s, 'log ' // yname) + else + call show_left_yaxis_label_pgstar(s, yname) end if + call pgslw(s% pg% pgstar_lw) + if (yfile_data_len > 0) then + call pgsls(s% pg% pgstar_profile_line_style) + call pgline(yfile_data_len, yfile_xdata, yfile_ydata) + call pgsls(1) + deallocate(yfile_xdata, yfile_ydata) + else + call pgsls(s% pg% pgstar_profile_line_style) + call pgline(npts, xvec, yvec) + call pgsls(1) + if (panels_show_grid) then + ishape = 21 + do k = 1, npts + call pgpt1(xvec(k), yvec(k), ishape) + end do + end if + end if + call pgslw(1) + call pgsci(1) - deallocate(xvec, yvec, other_yvec, unshifted_xvec) + call show_pgstar_decorator(s% id, use_decorator, pgstar_decorator, j, ierr) + end do - call pgunsa + xname = trim(panels_xaxis_name) + call show_xaxis_label_pgstar(s, xname) + + if (show_mix_regions) then ! show mix regions at bottom of plot + call pgslw(10) + call show_mix_regions_on_xaxis(& + s, ybot, ytop, grid_min, grid_max, unshifted_xvec) + end if + + deallocate(xvec, yvec, other_yvec, unshifted_xvec) - end subroutine Pro_panels_plot + call pgunsa + end subroutine Pro_panels_plot - end module pgstar_profile_panels +end module pgstar_profile_panels diff --git a/star/private/pgstar_r_l.f90 b/star/private/pgstar_r_l.f90 index c136d2262..86d4cc1e1 100644 --- a/star/private/pgstar_r_l.f90 +++ b/star/private/pgstar_r_l.f90 @@ -36,8 +36,8 @@ module pgstar_r_l contains - subroutine R_L_Plot(id, device_id, ierr) - integer, intent(in) :: id, device_id + subroutine R_L_Plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (star_info), pointer :: s ierr = 0 diff --git a/star/private/pgstar_r_teff.f90 b/star/private/pgstar_r_teff.f90 index 144a62fd1..f7b7c76f0 100644 --- a/star/private/pgstar_r_teff.f90 +++ b/star/private/pgstar_r_teff.f90 @@ -36,8 +36,8 @@ module pgstar_r_teff contains - subroutine R_Teff_Plot(id, device_id, ierr) - integer, intent(in) :: id, device_id + subroutine R_Teff_Plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (star_info), pointer :: s ierr = 0 diff --git a/star/private/pgstar_rti.f90 b/star/private/pgstar_rti.f90 index b5877134f..4b6772a74 100644 --- a/star/private/pgstar_rti.f90 +++ b/star/private/pgstar_rti.f90 @@ -36,8 +36,8 @@ module pgstar_rti contains - subroutine rti_Plot(id, device_id, ierr) - integer, intent(in) :: id, device_id + subroutine rti_Plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (star_info), pointer :: s diff --git a/star/private/pgstar_summary.f90 b/star/private/pgstar_summary.f90 index 4475bf128..ce0573513 100644 --- a/star/private/pgstar_summary.f90 +++ b/star/private/pgstar_summary.f90 @@ -36,310 +36,40 @@ module pgstar_summary contains - subroutine Text_Summary1_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id + subroutine Text_Summary_plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_Text_Summary1_plot(s, id, device_id, & - s% pg% Text_Summary1_xleft, s% pg% Text_Summary1_xright, & - s% pg% Text_Summary1_ybot, s% pg% Text_Summary1_ytop, .false., & - s% pg% Text_Summary1_title, s% pg% Text_Summary1_txt_scale, s% pg% Text_Summary1_dxval, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Text_Summary1_plot - - - subroutine do_Text_Summary1_plot(s, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, dxval, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: winxmin, winxmax, winymin, winymax, txt_scale, dxval - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call Summary_plot(s, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, dxval, & - s% pg% Text_Summary1_num_rows, s% pg% Text_Summary1_num_cols, & - s% pg% Text_Summary1_name, ierr) - end subroutine do_Text_Summary1_plot - - - subroutine Text_Summary2_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_Text_Summary2_plot(s, id, device_id, & - s% pg% Text_Summary2_xleft, s% pg% Text_Summary2_xright, & - s% pg% Text_Summary2_ybot, s% pg% Text_Summary2_ytop, .false., & - s% pg% Text_Summary2_title, s% pg% Text_Summary2_txt_scale, s% pg% Text_Summary2_dxval, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Text_Summary2_plot - - - subroutine do_Text_Summary2_plot(s, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, dxval, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: winxmin, winxmax, winymin, winymax, txt_scale, dxval - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call Summary_plot(s, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, dxval, & - s% pg% Text_Summary2_num_rows, s% pg% Text_Summary2_num_cols, & - s% pg% Text_Summary2_name, ierr) - end subroutine do_Text_Summary2_plot - - - subroutine Text_Summary3_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_Text_Summary3_plot(s, id, device_id, & - s% pg% Text_Summary3_xleft, s% pg% Text_Summary3_xright, & - s% pg% Text_Summary3_ybot, s% pg% Text_Summary3_ytop, .false., & - s% pg% Text_Summary3_title, s% pg% Text_Summary3_txt_scale, s% pg% Text_Summary3_dxval, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Text_Summary3_plot - - - subroutine do_Text_Summary3_plot(s, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, dxval, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: winxmin, winxmax, winymin, winymax, txt_scale, dxval - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call Summary_plot(s, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, dxval, & - s% pg% Text_Summary3_num_rows, s% pg% Text_Summary3_num_cols, & - s% pg% Text_Summary3_name, ierr) - end subroutine do_Text_Summary3_plot - - - subroutine Text_Summary4_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_Text_Summary4_plot(s, id, device_id, & - s% pg% Text_Summary4_xleft, s% pg% Text_Summary4_xright, & - s% pg% Text_Summary4_ybot, s% pg% Text_Summary4_ytop, .false., & - s% pg% Text_Summary4_title, s% pg% Text_Summary4_txt_scale, s% pg% Text_Summary4_dxval, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Text_Summary4_plot - - - subroutine do_Text_Summary4_plot(s, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, dxval, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: winxmin, winxmax, winymin, winymax, txt_scale, dxval - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call Summary_plot(s, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, dxval, & - s% pg% Text_Summary4_num_rows, s% pg% Text_Summary4_num_cols, & - s% pg% Text_Summary4_name, ierr) - end subroutine do_Text_Summary4_plot - - - subroutine Text_Summary5_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_Text_Summary5_plot(s, id, device_id, & - s% pg% Text_Summary5_xleft, s% pg% Text_Summary5_xright, & - s% pg% Text_Summary5_ybot, s% pg% Text_Summary5_ytop, .false., & - s% pg% Text_Summary5_title, s% pg% Text_Summary5_txt_scale, s% pg% Text_Summary5_dxval, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Text_Summary5_plot - - - subroutine do_Text_Summary5_plot(s, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, dxval, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: winxmin, winxmax, winymin, winymax, txt_scale, dxval - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call Summary_plot(s, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, dxval, & - s% pg% Text_Summary5_num_rows, s% pg% Text_Summary5_num_cols, & - s% pg% Text_Summary5_name, ierr) - end subroutine do_Text_Summary5_plot - - subroutine Text_Summary6_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s ierr = 0 call get_star_ptr(id, s, ierr) if (ierr /= 0) return call pgslct(device_id) call pgbbuf() call pgeras() - call do_Text_Summary6_plot(s, id, device_id, & - s% pg% Text_Summary6_xleft, s% pg% Text_Summary6_xright, & - s% pg% Text_Summary6_ybot, s% pg% Text_Summary6_ytop, .false., & - s% pg% Text_Summary6_title, s% pg% Text_Summary6_txt_scale, s% pg% Text_Summary6_dxval, ierr) + call do_Text_Summary_plot(s, id, device_id, array_ix, & + s% pg% Text_Summary_xleft(array_ix), s% pg% Text_Summary_xright(array_ix), & + s% pg% Text_Summary_ybot(array_ix), s% pg% Text_Summary_ytop(array_ix), .false., & + s% pg% Text_Summary_title(array_ix), s% pg% Text_Summary_txt_scale(array_ix), s% pg% Text_Summary_dxval(array_ix), ierr) if (ierr /= 0) return call pgebuf() - end subroutine Text_Summary6_plot + end subroutine Text_Summary_plot - subroutine do_Text_Summary6_plot(s, id, device_id, & + subroutine do_Text_Summary_plot(s, id, device_id, array_ix, & winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, dxval, ierr) type (star_info), pointer :: s - integer, intent(in) :: id, device_id + integer, intent(in) :: id, device_id, array_ix real, intent(in) :: winxmin, winxmax, winymin, winymax, txt_scale, dxval logical, intent(in) :: subplot character (len=*), intent(in) :: title integer, intent(out) :: ierr - call Summary_plot(s, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, dxval, & - s% pg% Text_Summary6_num_rows, s% pg% Text_Summary6_num_cols, & - s% pg% Text_Summary6_name, ierr) - end subroutine do_Text_Summary6_plot - - - subroutine Text_Summary7_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_Text_Summary7_plot(s, id, device_id, & - s% pg% Text_Summary7_xleft, s% pg% Text_Summary7_xright, & - s% pg% Text_Summary7_ybot, s% pg% Text_Summary7_ytop, .false., & - s% pg% Text_Summary7_title, s% pg% Text_Summary7_txt_scale, s% pg% Text_Summary7_dxval, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Text_Summary7_plot - - subroutine do_Text_Summary7_plot(s, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, dxval, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: winxmin, winxmax, winymin, winymax, txt_scale, dxval - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call Summary_plot(s, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, dxval, & - s% pg% Text_Summary7_num_rows, s% pg% Text_Summary7_num_cols, & - s% pg% Text_Summary7_name, ierr) - end subroutine do_Text_Summary7_plot - - - subroutine Text_Summary8_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_Text_Summary8_plot(s, id, device_id, & - s% pg% Text_Summary8_xleft, s% pg% Text_Summary8_xright, & - s% pg% Text_Summary8_ybot, s% pg% Text_Summary8_ytop, .false., & - s% pg% Text_Summary8_title, s% pg% Text_Summary8_txt_scale, s% pg% Text_Summary8_dxval, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Text_Summary8_plot - - - subroutine do_Text_Summary8_plot(s, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, dxval, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: winxmin, winxmax, winymin, winymax, txt_scale, dxval - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr - call Summary_plot(s, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, dxval, & - s% pg% Text_Summary8_num_rows, s% pg% Text_Summary8_num_cols, & - s% pg% Text_Summary8_name, ierr) - end subroutine do_Text_Summary8_plot - - - subroutine Text_Summary9_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id - integer, intent(out) :: ierr - type (star_info), pointer :: s - ierr = 0 - call get_star_ptr(id, s, ierr) - if (ierr /= 0) return - call pgslct(device_id) - call pgbbuf() - call pgeras() - call do_Text_Summary9_plot(s, id, device_id, & - s% pg% Text_Summary9_xleft, s% pg% Text_Summary9_xright, & - s% pg% Text_Summary9_ybot, s% pg% Text_Summary9_ytop, .false., & - s% pg% Text_Summary9_title, s% pg% Text_Summary9_txt_scale, s% pg% Text_Summary9_dxval, ierr) - if (ierr /= 0) return - call pgebuf() - end subroutine Text_Summary9_plot - - - subroutine do_Text_Summary9_plot(s, id, device_id, & - winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, dxval, ierr) - type (star_info), pointer :: s - integer, intent(in) :: id, device_id - real, intent(in) :: winxmin, winxmax, winymin, winymax, txt_scale, dxval - logical, intent(in) :: subplot - character (len=*), intent(in) :: title - integer, intent(out) :: ierr call Summary_plot(s, device_id, & winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, dxval, & - s% pg% Text_Summary9_num_rows, s% pg% Text_Summary9_num_cols, & - s% pg% Text_Summary9_name, ierr) - end subroutine do_Text_Summary9_plot + s% pg% Text_Summary_num_rows(array_ix), s% pg% Text_Summary_num_cols(array_ix), & + s% pg% Text_Summary_name(array_ix, :, :), ierr) + end subroutine do_Text_Summary_plot subroutine Summary_plot(s, device_id, & @@ -357,7 +87,7 @@ subroutine Summary_plot(s, device_id, & logical, intent(in) :: subplot character (len=*), intent(in) :: title integer, intent(in) :: Text_Summary_num_rows, Text_Summary_num_cols - character (len=*), intent(in) :: Text_Summary_name(:,:) + character (len=*), intent(in) :: Text_Summary_name(:, :) integer, intent(out) :: ierr integer :: col, num_cols, num_rows diff --git a/star/private/pgstar_summary_burn.f90 b/star/private/pgstar_summary_burn.f90 index 8cffae1b1..fd567cc0f 100644 --- a/star/private/pgstar_summary_burn.f90 +++ b/star/private/pgstar_summary_burn.f90 @@ -36,9 +36,8 @@ module pgstar_summary_burn contains - subroutine summary_burn_plot(id, device_id, ierr) - implicit none - integer, intent(in) :: id, device_id + subroutine summary_burn_plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (star_info), pointer :: s diff --git a/star/private/pgstar_summary_history.f90 b/star/private/pgstar_summary_history.f90 index 110cc6125..1b9c7d768 100644 --- a/star/private/pgstar_summary_history.f90 +++ b/star/private/pgstar_summary_history.f90 @@ -36,9 +36,8 @@ module pgstar_summary_history contains - subroutine summary_history_plot(id, device_id, ierr) - implicit none - integer, intent(in) :: id, device_id + subroutine summary_history_plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (star_info), pointer :: s diff --git a/star/private/pgstar_summary_profile.f90 b/star/private/pgstar_summary_profile.f90 index 6a94865d8..0f30aec0d 100644 --- a/star/private/pgstar_summary_profile.f90 +++ b/star/private/pgstar_summary_profile.f90 @@ -36,9 +36,8 @@ module pgstar_summary_profile contains - subroutine summary_profile_plot(id, device_id, ierr) - implicit none - integer, intent(in) :: id, device_id + subroutine summary_profile_plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (star_info), pointer :: s diff --git a/star/private/pgstar_support.f90 b/star/private/pgstar_support.f90 index 3da1c7341..b566c2048 100644 --- a/star/private/pgstar_support.f90 +++ b/star/private/pgstar_support.f90 @@ -229,7 +229,7 @@ subroutine write_plot_to_file(s, p, filename, ierr) write(*, *) 'failed in open_device' return end if - call p% plot(s% id, p% id_file, ierr) + call p% plot(s% id, p% id_file, p% array_ix, ierr) call pgclos p% id_file = 0 p% do_file = .false. @@ -2077,13 +2077,13 @@ subroutine show_pgstar_decorator(id, use_flag, pgstar_decorator, plot_num, ierr) integer, intent(inout) :: ierr procedure(pgstar_decorator_interface), pointer :: pgstar_decorator - if(use_flag)then - if(associated(pgstar_decorator))then + if (use_flag) then + if (associated(pgstar_decorator)) then call pgsave call PGQWIN(xmin, xmax, ymin, ymax) call pgstar_decorator(id, xmin, xmax, ymin, ymax, plot_num, ierr) call pgunsa - if(ierr/=0)then + if (ierr/=0) then write(*, *) "Error in pgstar_decorator" end if end if diff --git a/star/private/pgstar_tmaxrho.f90 b/star/private/pgstar_tmaxrho.f90 index d5248a5ef..57543c810 100644 --- a/star/private/pgstar_tmaxrho.f90 +++ b/star/private/pgstar_tmaxrho.f90 @@ -36,8 +36,8 @@ module pgstar_tmaxrho contains - subroutine TmaxRho_Plot(id, device_id, ierr) - integer, intent(in) :: id, device_id + subroutine TmaxRho_Plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (star_info), pointer :: s diff --git a/star/private/pgstar_trho.f90 b/star/private/pgstar_trho.f90 index 007159708..ed2e2e39c 100644 --- a/star/private/pgstar_trho.f90 +++ b/star/private/pgstar_trho.f90 @@ -36,8 +36,8 @@ module pgstar_trho contains - subroutine TRho_Plot(id, device_id, ierr) - integer, intent(in) :: id, device_id + subroutine TRho_Plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (star_info), pointer :: s diff --git a/star/private/pgstar_trho_profile.f90 b/star/private/pgstar_trho_profile.f90 index e99eb2bce..3846e2d64 100644 --- a/star/private/pgstar_trho_profile.f90 +++ b/star/private/pgstar_trho_profile.f90 @@ -36,8 +36,8 @@ module pgstar_trho_profile contains - subroutine TRho_Profile_plot(id, device_id, ierr) - integer, intent(in) :: id, device_id + subroutine TRho_Profile_plot(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr type (star_info), pointer :: s diff --git a/star/test_suite/1.3M_ms_high_Z/inlist_pgstar b/star/test_suite/1.3M_ms_high_Z/inlist_pgstar index 8ace39dcc..168ab321f 100644 --- a/star/test_suite/1.3M_ms_high_Z/inlist_pgstar +++ b/star/test_suite/1.3M_ms_high_Z/inlist_pgstar @@ -1,63 +1,53 @@ &pgstar - ! MESA uses PGPLOT for live plotting and gives the user a tremendous - ! amount of control of the presentation of the information. - - ! device - file_white_on_black_flag = .true. - file_device = 'vcps' ! postscript - file_extension = 'ps' - !file_device = 'png' ! png - !file_extension = 'png' - - pgstar_interval = 10 - - Grid1_title = '1.3M_ms_high_Z' - Grid1_win_flag = .false. - - Grid1_win_width = 15 - Grid1_win_aspect_ratio = 0.4 ! aspect_ratio = height/width - - Grid1_xleft = 0.05 ! fraction of full window width for margin on left - Grid1_xright = 0.95 ! fraction of full window width for margin on right - Grid1_ybot = 0.08 ! fraction of full window width for margin on bottom - Grid1_ytop = 0.92 ! fraction of full window width for margin on top - - Grid1_num_cols = 5 ! divide plotting region into this many equal width cols - Grid1_num_rows = 1 ! divide plotting region into this many equal height rows - Grid1_num_plots = 2 ! <= 10 - - - Grid1_plot_name(1) = 'HR' - Grid1_plot_row(1) = 1 ! number from 1 at top - Grid1_plot_rowspan(1) = 1 ! plot spans this number of rows - Grid1_plot_col(1) = 1 ! number from 1 at left - Grid1_plot_colspan(1) = 2 ! plot spans this number of columns - Grid1_plot_pad_left(1) = 0.025 ! fraction of full window width for padding on left - Grid1_plot_pad_right(1) = 0.05 ! fraction of full window width for padding on right - Grid1_plot_pad_top(1) = 0.05 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(1) = 0.05 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(1) = 1.0 ! multiply txt_scale for subplot by this - - - Grid1_plot_name(2) = 'Profile_Panels1' - Grid1_plot_row(2) = 1 ! number from 1 at top - Grid1_plot_rowspan(2) = 1 ! plot spans this number of rows - Grid1_plot_col(2) = 3 ! number from 1 at left - Grid1_plot_colspan(2) = 3 ! plot spans this number of columns - Grid1_plot_pad_left(2) = 0.05 ! fraction of full window width for padding on left - Grid1_plot_pad_right(2) = 0.025 ! fraction of full window width for padding on right - Grid1_plot_pad_top(2) = 0.05 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(2) = 0.05 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(2) = 1.0 ! multiply txt_scale for subplot by this + Grid_title(1) = '1.3M_ms_high_Z' + Grid_win_flag(1) = .false. + + Grid_win_width(1) = 12 + Grid_win_aspect_ratio(1) = 0.4 ! aspect_ratio = height/width + + Grid_xleft(1) = 0.05 ! fraction of full window width for margin on left + Grid_xright(1) = 0.95 ! fraction of full window width for margin on right + Grid_ybot(1) = 0.08 ! fraction of full window width for margin on bottom + Grid_ytop(1) = 0.92 ! fraction of full window width for margin on top + + Grid_num_cols(1) = 5 ! divide plotting region into this many equal width cols + Grid_num_rows(1) = 1 ! divide plotting region into this many equal height rows + Grid_num_plots(1) = 2 ! <= 10 + + + Grid_plot_name(1, 1) = 'HR' + Grid_plot_row(1, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(1, 1) = 1 ! plot spans this number of rows + Grid_plot_col(1, 1) = 1 ! number from 1 at left + Grid_plot_colspan(1, 1) = 2 ! plot spans this number of columns + Grid_plot_pad_left(1, 1) = 0.025 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 1) = 0.05 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 1) = 0.05 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 1) = 0.05 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 1) = 1.0 ! multiply txt_scale for subplot by this + + + Grid_plot_name(1, 2) = 'Profile_Panels(1)' + Grid_plot_row(1, 2) = 1 ! number from 1 at top + Grid_plot_rowspan(1, 2) = 1 ! plot spans this number of rows + Grid_plot_col(1, 2) = 3 ! number from 1 at left + Grid_plot_colspan(1, 2) = 3 ! plot spans this number of columns + Grid_plot_pad_left(1, 2) = 0.05 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 2) = 0.025 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 2) = 0.05 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 2) = 0.05 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 2) = 1.0 ! multiply txt_scale for subplot by this ! file output - Grid1_file_flag = .true. - Grid1_file_dir = 'pgstar_out' - Grid1_file_prefix = 'grid1' - Grid1_file_interval = 1000000 ! output when mod(model_number,Grid1_file_interval)==0 - Grid1_file_width = -1 ! negative means use same value as for window - Grid1_file_aspect_ratio = -1 ! negative means use same value as for window + Grid_file_flag(1) = .true. + Grid_file_dir(1) = 'png' + Grid_file_prefix(1) = 'grid1' + Grid_file_interval(1) = 1000000 ! output when mod(model_number,Grid_file_interval(1))==0 + Grid_file_width(1) = -1 ! negative means use same value as for window + Grid_file_aspect_ratio(1) = -1 ! negative means use same value as for window + ! MESA uses PGPLOT for live plotting and gives the user a tremendous + ! amount of control of the presentation of the information. ! show HR diagram ! this plots the history of L,Teff over many timesteps @@ -77,59 +67,34 @@ HR_win_aspect_ratio = 1.0 - Profile_Panels1_win_flag = .false. - - Profile_Panels1_win_width = 6 - Profile_Panels1_win_aspect_ratio = 0.75 ! aspect_ratio = height/width - - Profile_Panels1_xleft = 0.15 - Profile_Panels1_xright = 0.85 - Profile_Panels1_ybot = 0.15 - Profile_Panels1_ytop = 0.85 - Profile_Panels1_txt_scale = 1.0 - Profile_Panels1_title = 'Profile Panels1' - - Profile_Panels1_xaxis_name = 'mass' - Profile_Panels1_xaxis_reversed = .false. - Profile_Panels1_xmin = -101d0 ! only used if /= -101d0 - Profile_Panels1_xmax = -101d0 ! only used if /= -101d0 - Profile_Panels1_xmargin = 0d0 - Profile_Panels1_show_mix_regions_on_xaxis = .false. - - Profile_Panels1_yaxis_name(:) = '' - Profile_Panels1_yaxis_reversed(:) = .false. - Profile_Panels1_yaxis_log(:) = .false. ! show log10 of abs value - Profile_Panels1_ymin(:) = -101d0 ! only used if /= -101d0 - Profile_Panels1_ymax(:) = -101d0 ! only used if /= -101d0 - Profile_Panels1_ymargin(:) = 0.1 - Profile_Panels1_dymin(:) = -1 + Profile_Panels_win_flag(1) = .false. - Profile_Panels1_other_yaxis_name(:) = '' - Profile_Panels1_other_yaxis_reversed(:) = .false. - Profile_Panels1_other_yaxis_log(:) = .false. ! show log10 of abs value - Profile_Panels1_other_ymin(:) = -101d0 ! only used if /= -101d0 - Profile_Panels1_other_ymax(:) = -101d0 ! only used if /= -101d0 - Profile_Panels1_other_ymargin(:) = 0.1 - Profile_Panels1_other_dymin(:) = -1 + Profile_Panels_win_width(1) = 6 + Profile_Panels_win_aspect_ratio(1) = 0.75 ! aspect_ratio = height/width - Profile_Panels1_show_grid = .false. + Profile_Panels_xleft(1) = 0.15 + Profile_Panels_xright(1) = 0.85 + Profile_Panels_ybot(1) = 0.15 + Profile_Panels_ytop(1) = 0.85 + Profile_Panels_txt_scale(1) = 1.0 + Profile_Panels_title(1) = 'Profile Panels 1' ! setup default plot - Profile_Panels1_num_panels = 1 - Profile_Panels1_yaxis_name(1) = 'z_mass_fraction_metals' - Profile_Panels1_ymin(1) = 0.038 ! only used if /= -101d0 - Profile_Panels1_ymax(1) = 0.042 ! only used if /= -101d0 + Profile_Panels_num_panels(1) = 1 + Profile_Panels_yaxis_name(1, 1) = 'z_mass_fraction_metals' + Profile_Panels_ymin(1, 1) = 0.038 ! only used if /= -101d0 + Profile_Panels_ymax(1, 1) = 0.042 ! only used if /= -101d0 - ! Profile_Panels1_other_yaxis_name(1) = 'entropy' - ! Profile_Panels1_yaxis_name(2) = 'logRho' - ! Profile_Panels1_other_yaxis_name(2) = 'logP' + ! Profile_Panels_other_yaxis_name(1, 1) = 'entropy' + ! Profile_Panels_yaxis_name(1, 2) = 'logRho' + ! Profile_Panels_other_yaxis_name(1, 2) = 'logP' ! file output - Profile_Panels1_file_flag = .false. - Profile_Panels1_file_dir = 'pgstar_out' - Profile_Panels1_file_prefix = 'profile_panels1_' - Profile_Panels1_file_interval = 5 ! output when mod(model_number,Profile_Panels1_file_interval)==0 - Profile_Panels1_file_width = -1 ! (inches) negative means use same value as for window - Profile_Panels1_file_aspect_ratio = -1 ! negative means use same value as for window + Profile_Panels_file_flag(1) = .false. + Profile_Panels_file_dir(1) = 'png' + Profile_Panels_file_prefix(1) = 'profile_panels1_' + Profile_Panels_file_interval(1) = 5 ! output when mod(model_number,Profile_Panels_file_interval(1))==0 + Profile_Panels_file_width(1) = -1 ! (inches) negative means use same value as for window + Profile_Panels_file_aspect_ratio(1) = -1 ! negative means use same value as for window / ! end of pgstar namelist diff --git a/star/test_suite/1.4M_ms_op_mono/README.rst b/star/test_suite/1.4M_ms_op_mono/README.rst index a3afe3ba5..806dc9d4b 100644 --- a/star/test_suite/1.4M_ms_op_mono/README.rst +++ b/star/test_suite/1.4M_ms_op_mono/README.rst @@ -48,37 +48,37 @@ pgstar commands used for the plots above: file_extension = 'ps' ! two profile panels - Profile_Panels1_win_flag = .true. + Profile_Panels_win_flag(1) = .true. - Profile_Panels1_win_width = 15 - Profile_Panels1_win_aspect_ratio = 0.75 + Profile_Panels_win_width(1) = 15 + Profile_Panels_win_aspect_ratio(1) = 0.75 - Profile_Panels1_xleft = 0.15 - Profile_Panels1_xright = 0.85 - Profile_Panels1_ybot = 0.15 - Profile_Panels1_ytop = 0.85 - Profile_Panels1_txt_scale = 1.0 - Profile_Panels1_title = '1.4_ms_op_mono' + Profile_Panels_xleft(1) = 0.15 + Profile_Panels_xright(1) = 0.85 + Profile_Panels_ybot(1) = 0.15 + Profile_Panels_ytop(1) = 0.85 + Profile_Panels_txt_scale(1) = 1.0 + Profile_Panels_title(1) = '1.4_ms_op_mono' - Profile_Panels1_num_panels = 2 + Profile_Panels_num_panels(1) = 2 - Profile_Panels1_xaxis_name = 'logT' - Profile_Panels1_xaxis_reversed = .false. - Profile_Panels1_xmin = -101d0 - Profile_Panels1_xmax = -101d0 + Profile_Panels_xaxis_name(1) = 'logT' + Profile_Panels_xaxis_reversed(1) = .false. + Profile_Panels_xmin(1) = -101d0 + Profile_Panels_xmax(1) = -101d0 - Profile_Panels1_yaxis_name(1) = 'kap_frac_op_mono' - Profile_Panels1_other_yaxis_name(1) = 'log_opacity' + Profile_Panels_yaxis_name(1, 1) = 'kap_frac_op_mono' + Profile_Panels_other_yaxis_name(1, 1) = 'log_opacity' - Profile_Panels1_yaxis_name(2) = 'dlnkap_dlnd' - Profile_Panels1_other_yaxis_name(2) = 'dlnkap_dlnT' + Profile_Panels_yaxis_name(1, 2) = 'dlnkap_dlnd' + Profile_Panels_other_yaxis_name(1, 2) = 'dlnkap_dlnT' - Profile_Panels1_file_flag = .true. - Profile_Panels1_file_dir = 'pgstar_out' - Profile_Panels1_file_prefix = 'profile_panels1_' - Profile_Panels1_file_interval = 10 - Profile_Panels1_file_width = 15 - Profile_Panels1_file_aspect_ratio = -1 + Profile_Panels_file_flag(1) = .true. + Profile_Panels_file_dir(1) = 'png' + Profile_Panels_file_prefix(1) = 'profile_panels1_' + Profile_Panels_file_interval(1) = 10 + Profile_Panels_file_width(1) = 15 + Profile_Panels_file_aspect_ratio(1) = -1 / ! end of pgstar namelist diff --git a/star/test_suite/1.4M_ms_op_mono/inlist_1.4M_ms_op_mono b/star/test_suite/1.4M_ms_op_mono/inlist_1.4M_ms_op_mono index 2c59bbafe..3e9423f11 100644 --- a/star/test_suite/1.4M_ms_op_mono/inlist_1.4M_ms_op_mono +++ b/star/test_suite/1.4M_ms_op_mono/inlist_1.4M_ms_op_mono @@ -109,59 +109,32 @@ pgstar_interval = 1 - Profile_Panels1_win_flag = .true. - - Profile_Panels1_win_width = 6 - Profile_Panels1_win_aspect_ratio = 0.75 - - Profile_Panels1_xleft = 0.15 - Profile_Panels1_xright = 0.85 - Profile_Panels1_ybot = 0.15 - Profile_Panels1_ytop = 0.85 - Profile_Panels1_txt_scale = 1.0 - Profile_Panels1_title = 'Profile Panels1' - - Profile_Panels1_xaxis_name = 'logT' - Profile_Panels1_xaxis_reversed = .false. - Profile_Panels1_xmin = -101d0 - Profile_Panels1_xmax = -101d0 - Profile_Panels1_xmargin = 0d0 - Profile_Panels1_show_mix_regions_on_xaxis = .false. - - ! Profile_Panels1_yaxis_name(:) = '' - ! Profile_Panels1_yaxis_reversed(:) = .false. - ! Profile_Panels1_yaxis_log(:) = .false. - ! Profile_Panels1_ymin(:) = -101d0 - ! Profile_Panels1_ymax(:) = -101d0 - ! Profile_Panels1_ycenter(:) = -101d0 - ! Profile_Panels1_ymargin(:) = 0.1 - ! Profile_Panels1_dymin(:) = -1 - - ! Profile_Panels1_other_yaxis_name(:) = '' - ! Profile_Panels1_other_yaxis_reversed(:) = .false. - ! Profile_Panels1_other_yaxis_log(:) = .false. - ! Profile_Panels1_other_ymin(:) = -101d0 - ! Profile_Panels1_other_ymax(:) = -101d0 - ! Profile_Panels1_other_ycenter(:) = -101d0 - ! Profile_Panels1_other_ymargin(:) = 0.1 - ! Profile_Panels1_other_dymin(:) = -1 - - Profile_Panels1_show_grid = .false. - - Profile_Panels1_num_panels = 2 - Profile_Panels1_yaxis_name(1) = 'kap_frac_op_mono' - Profile_Panels1_other_yaxis_name(1) = 'log_opacity' - Profile_Panels1_yaxis_name(2) = 'dlnkap_dlnd' - Profile_Panels1_other_yaxis_name(2) = 'dlnkap_dlnT' - - Profile_Panels1_use_decorator = .false. - - Profile_Panels1_file_flag = .false. - Profile_Panels1_file_dir = 'png' - Profile_Panels1_file_prefix = 'profile_panels1_' - Profile_Panels1_file_interval = 5 - Profile_Panels1_file_width = -1 - Profile_Panels1_file_aspect_ratio = -1 + Profile_Panels_win_flag(1) = .true. + + Profile_Panels_win_width(1) = 6 + Profile_Panels_win_aspect_ratio(1) = 0.75 + + Profile_Panels_xleft(1) = 0.15 + Profile_Panels_xright(1) = 0.85 + Profile_Panels_ybot(1) = 0.15 + Profile_Panels_ytop(1) = 0.85 + Profile_Panels_txt_scale(1) = 1.0 + Profile_Panels_title(1) = 'Profile Panels 1' + + Profile_Panels_xaxis_name(1) = 'logT' + + Profile_Panels_num_panels(1) = 2 + Profile_Panels_yaxis_name(1, 1) = 'kap_frac_op_mono' + Profile_Panels_other_yaxis_name(1, 1) = 'log_opacity' + Profile_Panels_yaxis_name(1, 2) = 'dlnkap_dlnd' + Profile_Panels_other_yaxis_name(1, 2) = 'dlnkap_dlnT' + + Profile_Panels_file_flag(1) = .false. + Profile_Panels_file_dir(1) = 'png' + Profile_Panels_file_prefix(1) = 'profile_panels1_' + Profile_Panels_file_interval(1) = 5 + Profile_Panels_file_width(1) = -1 + Profile_Panels_file_aspect_ratio(1) = -1 / ! end of pgstar namelist diff --git a/star/test_suite/1.5M_with_diffusion/inlist_1.5M_with_diffusion b/star/test_suite/1.5M_with_diffusion/inlist_1.5M_with_diffusion index fde5c4160..43efb7c8f 100644 --- a/star/test_suite/1.5M_with_diffusion/inlist_1.5M_with_diffusion +++ b/star/test_suite/1.5M_with_diffusion/inlist_1.5M_with_diffusion @@ -163,14 +163,14 @@ Abundance_win_width = 9 Abundance_win_aspect_ratio = 1.0d0 - Grid2_win_flag = .false. ! switch to .true. to visualize in real-time - Grid2_file_flag = .false. + Grid_win_flag(2) = .false. ! switch to .true. to visualize in real-time + Grid_file_flag(2) = .false. - Grid2_win_width = 15 + Grid_win_width(2) = 15 file_digits = 7 - Grid2_file_dir = 'pgstar_out2' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 5 - Grid2_file_width = 15 + Grid_file_dir(2) = 'pgstar_out2' + Grid_file_prefix(2) = 'grid' + Grid_file_interval(2) = 5 + Grid_file_width(2) = 15 / ! end of pgstar namelist diff --git a/star/test_suite/1.5M_with_diffusion/inlist_to_ZAMS b/star/test_suite/1.5M_with_diffusion/inlist_to_ZAMS index 01cf10e5b..86400a123 100644 --- a/star/test_suite/1.5M_with_diffusion/inlist_to_ZAMS +++ b/star/test_suite/1.5M_with_diffusion/inlist_to_ZAMS @@ -79,10 +79,10 @@ file_device = 'vcps' ! postscript file_extension = 'ps' - Grid2_win_flag = .false. ! switch to .true. to visualize in real-time + Grid_win_flag(2) = .false. ! switch to .true. to visualize in real-time file_digits = 7 - Grid2_file_dir = 'pgstar_out1' - Grid2_file_prefix = 'grid' + Grid_file_dir(2) = 'pgstar_out1' + Grid_file_prefix(2) = 'grid' Abundance_win_flag = .false. ! switch to .true. to visualize in real-time Abundance_file_flag = .true. diff --git a/star/test_suite/12M_pre_ms_to_core_collapse/inlist_common b/star/test_suite/12M_pre_ms_to_core_collapse/inlist_common index a6439c41a..bc43bb59b 100644 --- a/star/test_suite/12M_pre_ms_to_core_collapse/inlist_common +++ b/star/test_suite/12M_pre_ms_to_core_collapse/inlist_common @@ -390,14 +390,14 @@ / &pgstar -!pause = .true. + !pause = .true. -!pgstar_interval = 1 + !pgstar_interval = 1 -! x-axis limits and properties -Profile_Panels3_xaxis_name = 'mass' -Profile_Panels3_xmin = 0.0 -Profile_Panels3_xmax = 1.6 -Profile_Panels3_xaxis_reversed = .false. + ! x-axis limits and properties + Profile_Panels_xaxis_name(3) = 'mass' + Profile_Panels_xmin(3) = 0.0 + Profile_Panels_xmax(3) = 1.6 + Profile_Panels_xaxis_reversed(3) = .false. / ! end of pgstar namelist diff --git a/star/test_suite/12M_pre_ms_to_core_collapse/inlist_pgstar b/star/test_suite/12M_pre_ms_to_core_collapse/inlist_pgstar index 12f6ea860..d9820652d 100644 --- a/star/test_suite/12M_pre_ms_to_core_collapse/inlist_pgstar +++ b/star/test_suite/12M_pre_ms_to_core_collapse/inlist_pgstar @@ -1,4 +1,3 @@ - &pgstar !pause = .true. @@ -15,203 +14,185 @@ pgstar_show_age = .false. !------------------------------------------------------------------------------------ -Grid1_win_flag = .true. -Grid1_win_width = 12 -Grid1_win_aspect_ratio = 0.666 +Grid_win_flag(1) = .true. +Grid_win_width(1) = 12 +Grid_win_aspect_ratio(1) = 0.666 ! file output -Grid1_file_flag = .true. -Grid1_file_dir = 'png' -Grid1_file_prefix = 'Grid1_' -Grid1_file_interval = 25 ! output when mod(model_number,Grid1_file_interval)==0 -Grid1_file_width = 27 ! (inches) negative means use same value as for window -Grid1_file_aspect_ratio = -1 ! negative means use same value as for window - -! reset the defaults - -Grid1_plot_name(:) = '' -Grid1_plot_row(:) = 1 ! number from 1 at top -Grid1_plot_rowspan(:) = 1 ! plot spans this number of rows -Grid1_plot_col(:) = 1 ! number from 1 at left -Grid1_plot_colspan(:) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(:) = 0.0 ! fraction of full window width for padding on left -Grid1_plot_pad_right(:) = 0.0 ! fraction of full window width for padding on right -Grid1_plot_pad_top(:) = 0.0 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(:) = 0.0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(:) = 0.7 ! multiply txt_scale for subplot by this - - -Grid1_title = '' - -Grid1_num_cols = 3 ! divide plotting region into this many equal width cols -Grid1_num_rows = 5 ! divide plotting region into this many equal height rows -Grid1_num_plots = 6 ! <= 10 - - -Grid1_plot_name(1) = 'Text_Summary1' -Grid1_plot_row(1) = 1 ! number from 1 at top -Grid1_plot_rowspan(1) = 1 ! plot spans this number of rows -Grid1_plot_col(1) = 1 ! number from 1 at left -Grid1_plot_colspan(1) = 3 ! plot spans this number of columns - -Grid1_plot_pad_left(1) = -0.03 ! fraction of full window width for padding on left -Grid1_plot_pad_right(1) = 0.0 ! fraction of full window width for padding on right -Grid1_plot_pad_top(1) = -0.06 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(1) = 0.07 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(1) = 1 ! 0.8 ! multiply txt_scale for subplot by this - - -Grid1_plot_name(3) = 'TRho' -Grid1_plot_row(3) = 2 ! number from 1 at top -Grid1_plot_rowspan(3) = 1 ! plot spans this number of rows -Grid1_plot_col(3) = 1 ! number from 1 at left -Grid1_plot_colspan(3) = 1 ! plot spans this number of columns - -Grid1_plot_pad_left(3) = 0.00 ! fraction of full window width for padding on left -Grid1_plot_pad_right(3) = 0.08 ! fraction of full window width for padding on right -Grid1_plot_pad_top(3) = -0.04 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(3) = 0.01 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(3) = 0.7 ! multiply txt_scale for subplot by this - - -Grid1_plot_name(5) = 'Profile_Panels1' -Grid1_plot_row(5) = 3 ! number from 1 at top -Grid1_plot_rowspan(5) = 3 ! plot spans this number of rows -Grid1_plot_col(5) = 1 ! number from 1 at left -Grid1_plot_colspan(5) = 1 ! plot spans this number of columns - -Grid1_plot_pad_left(5) = 0.00 ! fraction of full window width for padding on left -Grid1_plot_pad_right(5) = 0.10 ! fraction of full window width for padding on right -Grid1_plot_pad_top(5) = 0.05 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(5) = 0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(5) = 0.6 ! multiply txt_scale for subplot by this - - -Grid1_plot_name(2) = 'TRho_Profile' -Grid1_plot_row(2) = 2 ! number from 1 at top -Grid1_plot_rowspan(2) = 1 ! plot spans this number of rows -Grid1_plot_col(2) = 2 ! number from 1 at left -Grid1_plot_colspan(2) = 1 ! plot spans this number of columns - -Grid1_plot_pad_left(2) = -0.01 ! fraction of full window width for padding on left -Grid1_plot_pad_right(2) = 0.06 ! fraction of full window width for padding on right -Grid1_plot_pad_top(2) = -0.04 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(2) = 0.01 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this - - -Grid1_plot_name(4) = 'History_Panels1' -Grid1_plot_row(4) = 3 ! number from 1 at top -Grid1_plot_rowspan(4) = 3 ! plot spans this number of rows -Grid1_plot_col(4) = 2 ! number from 1 at left -Grid1_plot_colspan(4) = 1 ! plot spans this number of columns - -Grid1_plot_pad_left(4) = 0.00 ! fraction of full window width for padding on left -Grid1_plot_pad_right(4) = 0.06 ! fraction of full window width for padding on right -Grid1_plot_pad_top(4) = 0.05 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(4) = 0.0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(4) = 0.6 ! multiply txt_scale for subplot by this - - -Grid1_plot_name(6) = 'Profile_Panels3' -Grid1_plot_row(6) = 2 ! number from 1 at top -Grid1_plot_rowspan(6) = 4 ! plot spans this number of rows -Grid1_plot_col(6) = 3 ! Number from 1 at left -Grid1_plot_colspan(6) = 1 ! plot spans this number of columns - -Grid1_plot_pad_left(6) = 0.04 ! fraction of full window width for padding on left -Grid1_plot_pad_right(6) = 0.06 ! fraction of full window width for padding on right -Grid1_plot_pad_top(6) = -0.04 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(6) = 0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(6) = 0.6 ! multiply txt_scale for subplot by this +Grid_file_flag(1) = .true. +Grid_file_dir(1) = 'png' +Grid_file_prefix(1) = 'Grid1_' +Grid_file_interval(1) = 25 ! output when mod(model_number,Grid_file_interval(1))==0 +Grid_file_width(1) = 27 ! (inches) negative means use same value as for window +Grid_file_aspect_ratio(1) = -1 ! negative means use same value as for window + + +Grid_title(1) = '' + +Grid_num_cols(1) = 3 ! divide plotting region into this many equal width cols +Grid_num_rows(1) = 5 ! divide plotting region into this many equal height rows +Grid_num_plots(1) = 6 ! <= 10 + + +Grid_plot_name(1, 1) = 'Text_Summary(1)' +Grid_plot_row(1, 1) = 1 ! number from 1 at top +Grid_plot_rowspan(1, 1) = 1 ! plot spans this number of rows +Grid_plot_col(1, 1) = 1 ! number from 1 at left +Grid_plot_colspan(1, 1) = 3 ! plot spans this number of columns + +Grid_plot_pad_left(1, 1) = -0.03 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 1) = 0.0 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 1) = -0.06 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 1) = 0.07 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 1) = 1 ! 0.8 ! multiply txt_scale for subplot by this + + +Grid_plot_name(1, 3) = 'TRho' +Grid_plot_row(1, 3) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 3) = 1 ! plot spans this number of rows +Grid_plot_col(1, 3) = 1 ! number from 1 at left +Grid_plot_colspan(1, 3) = 1 ! plot spans this number of columns + +Grid_plot_pad_left(1, 3) = 0.00 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 3) = 0.08 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 3) = -0.04 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 3) = 0.01 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 3) = 0.7 ! multiply txt_scale for subplot by this + + +Grid_plot_name(1, 5) = 'Profile_Panels(1)' +Grid_plot_row(1, 5) = 3 ! number from 1 at top +Grid_plot_rowspan(1, 5) = 3 ! plot spans this number of rows +Grid_plot_col(1, 5) = 1 ! number from 1 at left +Grid_plot_colspan(1, 5) = 1 ! plot spans this number of columns + +Grid_plot_pad_left(1, 5) = 0.00 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 5) = 0.10 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 5) = 0.05 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 5) = 0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 5) = 0.6 ! multiply txt_scale for subplot by this + + +Grid_plot_name(1, 2) = 'TRho_Profile' +Grid_plot_row(1, 2) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 2) = 1 ! plot spans this number of rows +Grid_plot_col(1, 2) = 2 ! number from 1 at left +Grid_plot_colspan(1, 2) = 1 ! plot spans this number of columns + +Grid_plot_pad_left(1, 2) = -0.01 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 2) = 0.06 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 2) = -0.04 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 2) = 0.01 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 2) = 0.7 ! multiply txt_scale for subplot by this + + +Grid_plot_name(1, 4) = 'History_Panels(1)' +Grid_plot_row(1, 4) = 3 ! number from 1 at top +Grid_plot_rowspan(1, 4) = 3 ! plot spans this number of rows +Grid_plot_col(1, 4) = 2 ! number from 1 at left +Grid_plot_colspan(1, 4) = 1 ! plot spans this number of columns + +Grid_plot_pad_left(1 ,4) = 0.00 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 4) = 0.06 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 4) = 0.05 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 4) = 0.0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 4) = 0.6 ! multiply txt_scale for subplot by this + + +Grid_plot_name(1, 6) = 'Profile_Panels(3)' +Grid_plot_row(1, 6) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 6) = 4 ! plot spans this number of rows +Grid_plot_col(1, 6) = 3 ! Number from 1 at left +Grid_plot_colspan(1, 6) = 1 ! plot spans this number of columns + +Grid_plot_pad_left(1, 6) = 0.04 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 6) = 0.06 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 6) = -0.04 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 6) = 0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 6) = 0.6 ! multiply txt_scale for subplot by this !------------------------------------------------------------------------------------ -Profile_Panels3_win_flag = .false. +Profile_Panels_win_flag(3) = .false. -Profile_Panels3_title = '' +Profile_Panels_title(3) = '' -Profile_Panels3_num_panels = 5 +Profile_Panels_num_panels(3) = 5 -Profile_Panels3_yaxis_name(1) = 'Abundance' +Profile_Panels_yaxis_name(3, 1) = 'Abundance' -Profile_Panels3_yaxis_name(2) = 'Power' +Profile_Panels_yaxis_name(3, 2) = 'Power' -Profile_Panels3_yaxis_name(3) = 'Mixing' +Profile_Panels_yaxis_name(3, 3) = 'Mixing' Mixing_legend_txt_scale_factor = 0.9 -Profile_Panels3_yaxis_name(4) = 'logRho' -Profile_Panels3_other_yaxis_name(4) = 'v_div_cs' ! 'vel_km_per_s' ! 'entropy' -Profile_Panels3_other_dymin(4) = 0.14 +Profile_Panels_yaxis_name(3, 4) = 'logRho' +Profile_Panels_other_yaxis_name(3, 4) = 'v_div_cs' ! 'vel_km_per_s' ! 'entropy' +Profile_Panels_other_dymin(3, 4) = 0.14 -Profile_Panels3_yaxis_name(5) = 'logT' -Profile_Panels3_other_yaxis_name(5) = 'burn_num_iters' +Profile_Panels_yaxis_name(3, 5) = 'logT' +Profile_Panels_other_yaxis_name(3, 5) = 'burn_num_iters' ! x-axis limits and properties -Profile_Panels3_xaxis_name = 'mass' -Profile_Panels3_xmin = 0.0 -Profile_Panels3_xmax = -101d0 ! 2.2 -Profile_Panels3_xaxis_reversed = .false. +Profile_Panels_xaxis_name(3) = 'mass' +Profile_Panels_xmin(3) = 0.0 +Profile_Panels_xmax(3) = -101d0 ! 2.2 +Profile_Panels_xaxis_reversed(3) = .false. -Profile_Panels3_txt_scale = 0.7 +Profile_Panels_txt_scale(3) = 0.7 -!Profile_Panels3_xaxis_name = 'zone' -!Profile_Panels3_xmin = 800 -!Profile_Panels3_xmax = 1100 -!Profile_Panels3_xaxis_reversed = .true. +!Profile_Panels_xaxis_name(3) = 'zone' +!Profile_Panels_xmin(3) = 800 +!Profile_Panels_xmax(3) = 1100 +!Profile_Panels_xaxis_reversed(3) = .true. -!Profile_Panels3_show_grid = .true. -Profile_Panels3_show_mix_regions_on_xaxis = .true. +!Profile_Panels_show_grid(3) = .true. +Profile_Panels_show_mix_regions_on_xaxis(3) = .true. !------------------------------------------------------------------------------------ -!Profile_Panels1_win_flag = .true. -!Profile_Panels1_file_flag = .true. - Profile_Panels1_file_dir = 'png' - Profile_Panels1_file_prefix = 'profile_panels1_' - Profile_Panels1_file_interval = 1 - Profile_Panels1_file_width = -1 - Profile_Panels1_file_aspect_ratio = -1 +!Profile_Panels_win_flag(1) = .true. +!Profile_Panels_file_flag(1) = .true. -Profile_Panels1_title = '' +Profile_Panels_title(1) = '' -Profile_Panels1_txt_scale = 0.7 -Profile_Panels1_num_panels = 4 +Profile_Panels_txt_scale(1) = 0.7 +Profile_Panels_num_panels(1) = 4 -Profile_Panels1_yaxis_name(1) = 'logRho' -Profile_Panels1_dymin(1) = 0.14 -Profile_Panels1_other_yaxis_name(1) = 'logT' -Profile_Panels1_other_dymin(1) = 0.14 +Profile_Panels_yaxis_name(1, 1) = 'logRho' +Profile_Panels_dymin(1, 1) = 0.14 +Profile_Panels_other_yaxis_name(1, 1) = 'logT' +Profile_Panels_other_dymin(1, 1) = 0.14 -Profile_Panels1_yaxis_name(2) = 'entropy' -Profile_Panels1_other_yaxis_name(2) = 'pgas_div_p' +Profile_Panels_yaxis_name(1, 2) = 'entropy' +Profile_Panels_other_yaxis_name(1, 2) = 'pgas_div_p' -Profile_Panels1_yaxis_name(3) = 'gradT' -Profile_Panels1_other_yaxis_name(3) = 'grada' -Profile_Panels1_same_yaxis_range(3) = .true. -Profile_Panels1_other_dymin(3) = 0.08 +Profile_Panels_yaxis_name(1, 3) = 'gradT' +Profile_Panels_other_yaxis_name(1, 3) = 'grada' +Profile_Panels_same_yaxis_range(1, 3) = .true. +Profile_Panels_other_dymin(1, 3) = 0.08 -Profile_Panels1_yaxis_name(4) = 'log_opacity' -Profile_Panels1_dymin(1) = 0.14 -Profile_Panels1_other_yaxis_name(4) = 'gradr' -Profile_Panels1_other_dymin(1) = 0.14 +Profile_Panels_yaxis_name(1, 4) = 'log_opacity' +Profile_Panels_dymin(1, 1) = 0.14 +Profile_Panels_other_yaxis_name(1, 4) = 'gradr' +Profile_Panels_other_dymin(1, 1) = 0.14 ! x-axis limits and properties -Profile_Panels1_xaxis_name = 'logtau' -Profile_Panels1_xmin = -101d0 -Profile_Panels1_xmax = 8.1 -Profile_Panels1_xaxis_reversed = .true. +Profile_Panels_xaxis_name(1) = 'logtau' +Profile_Panels_xmin(1) = -101d0 +Profile_Panels_xmax(1) = 8.1 +Profile_Panels_xaxis_reversed(1) = .true. -!Profile_Panels1_xaxis_name = 'zone' -!Profile_Panels1_xmin = 15 -!Profile_Panels1_xmax = 270 -!Profile_Panels1_xaxis_reversed = .true. +!Profile_Panels_xaxis_name(1) = 'zone' +!Profile_Panels_xmin(1) = 15 +!Profile_Panels_xmax(1) = 270 +!Profile_Panels_xaxis_reversed(1) = .true. -!Profile_Panels1_show_grid = .true. -Profile_Panels1_show_mix_regions_on_xaxis = .true. +!Profile_Panels_show_grid(1) = .true. +Profile_Panels_show_mix_regions_on_xaxis(1) = .true. !------------------------------------------------------------------------------------ @@ -219,7 +200,7 @@ Profile_Panels1_show_mix_regions_on_xaxis = .true. !TRho_Profile_win_flag = .true. TRho_Profile_win_width = 8 TRho_Profile_win_aspect_ratio = 0.75 ! aspect_ratio = height/width - + ! file output !TRho_Profile_file_flag = .true. TRho_Profile_file_dir = 'TRho' @@ -227,17 +208,17 @@ TRho_Profile_file_prefix = 'trho_' TRho_Profile_file_interval = 10 ! output when `mod(model_number,TRho_Profile_file_interval)==0` TRho_Profile_file_width = -1 ! (inches) negative means use same value as for window TRho_Profile_file_aspect_ratio = -1 ! negative means use same value as for window - + TRho_Profile_xleft = 0.15 TRho_Profile_xright = 0.85 TRho_Profile_ybot = 0.15 TRho_Profile_ytop = 0.85 TRho_Profile_txt_scale = 0.7 -TRho_Profile_title = ' ' - -TRho_switch_to_Column_Depth = .false. +TRho_Profile_title = ' ' + +TRho_switch_to_Column_Depth = .false. TRho_switch_to_mass = .false. - + show_TRho_Profile_legend = .false. TRho_Profile_legend_coord = 0.07 TRho_Profile_legend_fjust = 0.0 @@ -251,7 +232,7 @@ show_TRho_Profile_text_info = .false. TRho_Profile_text_info_dxfac = 0.02 ! controls x spacing to value from text TRho_Profile_text_info_yfac = 0.6 ! controls y location of 1st line TRho_Profile_text_info_dyfac = -0.04 ! controls line spacing - + show_TRho_Profile_mass_locs = .false. show_TRho_accretion_mesh_borders = .false. show_TRho_Profile_kap_regions = .false. @@ -261,14 +242,14 @@ show_TRho_Profile_degeneracy_line = .true. show_TRho_Profile_Pgas_Prad_line = .true. show_TRho_Profile_burn_lines = .true. show_TRho_Profile_burn_labels = .true. - + ! axis limits TRho_Profile_xmin = -12.0 TRho_Profile_xmax = 10.0 TRho_Profile_ymin = 3.0 -TRho_Profile_ymax = 10.0 +TRho_Profile_ymax = 10.0 -! these are shown if show_TRho_Profile_mass_locs = .true. +! these are shown if show_TRho_Profile_mass_locs = .true. ! set all the entries profile_mass_point_q = -1 profile_mass_point_color_index = 1 @@ -277,8 +258,8 @@ profile_mass_point_symbol_scale = 1.7 profile_mass_point_str = '' profile_mass_point_str_clr = 1 profile_mass_point_str_scale = 1.0 - -! set defaults + +! set defaults num_profile_mass_points = 3 ! max is defined in star_def (max_num_profile_mass_points) profile_mass_point_q(1) = 0.5 @@ -286,13 +267,13 @@ profile_mass_point_color_index(1) = 1 profile_mass_point_symbol(1) = -6 profile_mass_point_str(1) = ' 0.5 M\d\(0844)\u' profile_mass_point_str_clr(1) = 1 - + profile_mass_point_q(2) = 0.95 profile_mass_point_color_index(2) = 1 profile_mass_point_symbol(2) = -6 profile_mass_point_str(2) = ' 0.95 M\d\(0844)\u' profile_mass_point_str_clr(3) = 1 - + profile_mass_point_q(3) = 0.999 profile_mass_point_color_index(3) = 1 profile_mass_point_symbol(3) = -6 @@ -304,57 +285,57 @@ profile_mass_point_str_clr(3) = 1 ! Text_Summary windows -Text_Summary1_win_flag = .false. -Text_Summary1_win_width = 10 -Text_Summary1_win_aspect_ratio = 0.15 - -Text_Summary1_xleft = 0.01 -Text_Summary1_xright = 0.99 -Text_Summary1_ybot = 0.0 -Text_Summary1_ytop = 1.0 -Text_Summary1_txt_scale = 0.95 -Text_Summary1_title = '' - -Text_Summary1_num_rows = 6 ! <= 20 -Text_Summary1_num_cols = 5 ! <= 20 -Text_Summary1_name(:,:) = '' - - -Text_Summary1_name(1,1) = 'model_number' -Text_Summary1_name(1,2) = 'log_dt' -Text_Summary1_name(1,3) = 'Mass' -Text_Summary1_name(1,4) = 'H_cntr' -Text_Summary1_name(1,5) = 'H_rich' - -Text_Summary1_name(2,1) = 'non_fe_core_infall' -Text_Summary1_name(2,2) = 'star_age' -Text_Summary1_name(2,3) = 'lg_Mdot' -Text_Summary1_name(2,4) = 'He_cntr' -Text_Summary1_name(2,5) = 'He_core' - -Text_Summary1_name(3,1) = 'fe_core_infall' -Text_Summary1_name(3,2) = 'gamma1_min' -Text_Summary1_name(3,3) = 'eta_cntr' -Text_Summary1_name(3,4) = 'C_cntr' -Text_Summary1_name(3,5) = 'CO_core' - -Text_Summary1_name(4,1) = 'log_max_T' -Text_Summary1_name(4,2) = 'log_LH' -Text_Summary1_name(4,3) = 'lg_Lnuc' -Text_Summary1_name(4,4) = 'O_cntr' -Text_Summary1_name(4,5) = 'Fe_core' - -Text_Summary1_name(5,1) = 'log_cntr_T' -Text_Summary1_name(5,2) = 'log_LHe' -Text_Summary1_name(5,3) = 'lg_Lneu' -Text_Summary1_name(5,4) = 'Ne_cntr' -Text_Summary1_name(5,5) = 'zones' - -Text_Summary1_name(6,1) = 'log_cntr_Rho' -Text_Summary1_name(6,2) = 'log_LZ' -Text_Summary1_name(6,3) = 'lg_Lphoto' -Text_Summary1_name(6,4) = 'Si_cntr' -Text_Summary1_name(6,5) = 'retries' +Text_Summary_win_flag(1) = .false. +Text_Summary_win_width(1) = 10 +Text_Summary_win_aspect_ratio(1) = 0.15 + +Text_Summary_xleft(1) = 0.01 +Text_Summary_xright(1) = 0.99 +Text_Summary_ybot(1) = 0.0 +Text_Summary_ytop(1) = 1.0 +Text_Summary_txt_scale(1) = 0.95 +Text_Summary_title(1) = '' + +Text_Summary_num_rows(1) = 6 ! <= 20 +Text_Summary_num_cols(1) = 5 ! <= 20 +Text_Summary_name(1, :, :) = '' + + +Text_Summary_name(1,1,1) = 'model_number' +Text_Summary_name(1,1,2) = 'log_dt' +Text_Summary_name(1,1,3) = 'Mass' +Text_Summary_name(1,1,4) = 'H_cntr' +Text_Summary_name(1,1,5) = 'H_rich' + +Text_Summary_name(1,2,1) = 'non_fe_core_infall' +Text_Summary_name(1,2,2) = 'star_age' +Text_Summary_name(1,2,3) = 'lg_Mdot' +Text_Summary_name(1,2,4) = 'He_cntr' +Text_Summary_name(1,2,5) = 'He_core' + +Text_Summary_name(1,3,1) = 'fe_core_infall' +Text_Summary_name(1,3,2) = 'gamma1_min' +Text_Summary_name(1,3,3) = 'eta_cntr' +Text_Summary_name(1,3,4) = 'C_cntr' +Text_Summary_name(1,3,5) = 'CO_core' + +Text_Summary_name(1,4,1) = 'log_max_T' +Text_Summary_name(1,4,2) = 'log_LH' +Text_Summary_name(1,4,3) = 'lg_Lnuc' +Text_Summary_name(1,4,4) = 'O_cntr' +Text_Summary_name(1,4,5) = 'Fe_core' + +Text_Summary_name(1,5,1) = 'log_cntr_T' +Text_Summary_name(1,5,2) = 'log_LHe' +Text_Summary_name(1,5,3) = 'lg_Lneu' +Text_Summary_name(1,5,4) = 'Ne_cntr' +Text_Summary_name(1,5,5) = 'zones' + +Text_Summary_name(1,6,1) = 'log_cntr_Rho' +Text_Summary_name(1,6,2) = 'log_LZ' +Text_Summary_name(1,6,3) = 'lg_Lphoto' +Text_Summary_name(1,6,4) = 'Si_cntr' +Text_Summary_name(1,6,5) = 'retries' !------------------------------------------------------------------------------------ @@ -366,7 +347,7 @@ Abundance_win_flag = .false. ! window properties Abundance_win_width = 10 Abundance_win_aspect_ratio = 0.75 - + Abundance_xleft = 0.15 Abundance_xright = 0.85 Abundance_ybot = 0.15 @@ -401,20 +382,20 @@ Abundance_which_isos_to_show(20) = 'neut' !Abundance_which_isos_to_show(22) = 'ne22' - + ! number and size of isotope labels along curves num_abundance_line_labels = 4 Abundance_line_txt_scale_factor = 1.1 -! number and size of isotopes on legend +! number and size of isotopes on legend Abundance_legend_max_cnt = 10 Abundance_legend_txt_scale_factor = 1.3 - -! yaxis limits -Abundance_log_mass_frac_min = -4!-6.4 ! -3.5 + +! yaxis limits +Abundance_log_mass_frac_min = -4!-6.4 ! -3.5 Abundance_log_mass_frac_max = 0.3 - + ! file output Abundance_file_flag = .false. Abundance_file_dir = 'Abundance' @@ -430,7 +411,7 @@ Abundance_file_aspect_ratio = -1 ! negative means use same value as for window Power_win_flag = .false. Power_win_width = 10 Power_win_aspect_ratio = 0.75 -Power_title = '' +Power_title = '' Power_xleft = 0.15 Power_xright = 0.85 @@ -459,8 +440,8 @@ Power_file_aspect_ratio = -1 ! negative means use same value as for window ! mixing plot -Mixing_xmin = 0.0 -Mixing_xmax = 1.6 ! -101d0 +Mixing_xmin = 0.0 +Mixing_xmax = 1.6 ! -101d0 Mixing_legend_txt_scale_factor = 1.4 ! relative to other text Mixing_show_rotation_details = .false. @@ -553,88 +534,81 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window !----------------------------------------------------------------------- - History_Panels1_title = '' + History_Panels_title(1) = '' - History_Panels1_xaxis_name = 'model_number' - History_Panels1_max_width = -1 + History_Panels_xaxis_name(1) = 'model_number' + History_Panels_max_width(1) = -1 - !History_Panels1_xaxis_name = 'star_age' - !History_Panels1_max_width = 10 + !History_Panels_xaxis_name(1) = 'star_age' + !History_Panels_max_width(1) = 10 - History_Panels1_txt_scale = 0.75 - History_Panels1_xmin = -101d0 - History_Panels1_xmax = -101d0 - History_Panels1_dxmin = -1 - History_Panels1_xaxis_reversed = .false. - History_Panels1_xaxis_log = .false. - History_Panels1_xmargin = 0.0 + History_Panels_txt_scale(1) = 0.75 + History_Panels_xmin(1) = -101d0 + History_Panels_xmax(1) = -101d0 + History_Panels_dxmin(1) = -1 + History_Panels_xaxis_reversed(1) = .false. + History_Panels_xaxis_log(1) = .false. + History_Panels_xmargin(1) = 0.0 ! :: - History_Panels1_num_panels = 4 + History_Panels_num_panels(1) = 4 ! :: - History_Panels1_yaxis_name(1) = 'log_L' - History_Panels1_yaxis_reversed(1) = .false. - History_Panels1_ymin(1) = -101d0 - History_Panels1_ymax(1) = -101d0 - History_Panels1_dymin(1) = 0.14 + History_Panels_yaxis_name(1, 1) = 'log_L' + History_Panels_yaxis_reversed(1, 1) = .false. + History_Panels_ymin(1, 1) = -101d0 + History_Panels_ymax(1, 1) = -101d0 + History_Panels_dymin(1, 1) = 0.14 ! :: - History_Panels1_other_yaxis_name(1) = 'log_Teff' - History_Panels1_other_yaxis_reversed(1) = .false. - History_Panels1_other_ymin(1) = -101d0 - History_Panels1_other_ymax(1) = -101d0 - History_Panels1_other_dymin(1) = 0.14 + History_Panels_other_yaxis_name(1, 1) = 'log_Teff' + History_Panels_other_yaxis_reversed(1, 1) = .false. + History_Panels_other_ymin(1, 1) = -101d0 + History_Panels_other_ymax(1, 1) = -101d0 + History_Panels_other_dymin(1, 1) = 0.14 ! :: - History_Panels1_yaxis_name(2) = '' - History_Panels1_yaxis_reversed(2) = .false. - History_Panels1_ymin(2) = -101d0 - History_Panels1_ymax(2) = -101d0 - History_Panels1_dymin(2) = 0.14 + History_Panels_yaxis_name(1, 2) = '' + History_Panels_yaxis_reversed(1, 2) = .false. + History_Panels_ymin(1, 2) = -101d0 + History_Panels_ymax(1, 2) = -101d0 + History_Panels_dymin(1, 2) = 0.14 ! :: - History_Panels1_other_yaxis_name(2) = 'log_max_T' ! 'v_surf_km_s' - History_Panels1_other_yaxis_reversed(2) = .false. - History_Panels1_other_ymin(2) = -101d0 - History_Panels1_other_ymax(2) = -101d0 - History_Panels1_other_dymin(2) = 0.14 + History_Panels_other_yaxis_name(1, 2) = 'log_max_T' ! 'v_surf_km_s' + History_Panels_other_yaxis_reversed(1, 2) = .false. + History_Panels_other_ymin(1, 2) = -101d0 + History_Panels_other_ymax(1, 2) = -101d0 + History_Panels_other_dymin(1, 2) = 0.14 ! :: - History_Panels1_yaxis_name(3) = 'log_R' - History_Panels1_yaxis_reversed(3) = .false. - History_Panels1_ymin(3) = -101d0 - History_Panels1_ymax(3) = -101d0 - History_Panels1_dymin(3) = 0.14 - - ! :: + History_Panels_yaxis_name(1, 3) = 'log_R' + History_Panels_yaxis_reversed(1, 3) = .false. + History_Panels_ymin(1, 3) = -101d0 + History_Panels_ymax(1, 3) = -101d0 + History_Panels_dymin(1, 3) = 0.14 - History_Panels1_other_yaxis_name(3) = 'log_cntr_Rho' - History_Panels1_other_yaxis_reversed(3) = .false. - History_Panels1_other_ymin(3) = -101d0 - History_Panels1_other_ymax(3) = -101d0 - History_Panels1_other_dymin(3) = 0.14 ! :: - History_Panels1_yaxis_name(4) = '' - History_Panels1_yaxis_reversed(4) = .false. - History_Panels1_ymin(4) = -101d0 - History_Panels1_ymax(4) = -101d0 - History_Panels1_dymin(4) = 0.14 + History_Panels_other_yaxis_name(1, 3) = 'log_cntr_Rho' + History_Panels_other_yaxis_reversed(1, 3) = .false. + History_Panels_other_ymin(1, 3) = -101d0 + History_Panels_other_ymax(1, 3) = -101d0 + History_Panels_other_dymin(1, 3) = 0.14 ! :: - History_Panels1_other_yaxis_name(4) = 'log_dt' - History_Panels1_other_yaxis_reversed(4) = .false. - History_Panels1_other_ymin(4) = -101d0 - History_Panels1_other_ymax(4) = -101d0 - History_Panels1_other_dymin(4) = 0.14 + History_Panels_other_yaxis_name(1, 4) = 'log_dt' + History_Panels_other_yaxis_reversed(1, 4) = .false. + History_Panels_other_ymin(1, 4) = -101d0 + History_Panels_other_ymax(1, 4) = -101d0 + History_Panels_other_dymin(1, 4) = 0.14 !----------------------------------------------------------------------- diff --git a/star/test_suite/12M_pre_ms_to_core_collapse/inlist_to_cc b/star/test_suite/12M_pre_ms_to_core_collapse/inlist_to_cc index 2d9c9b783..fef7484b7 100644 --- a/star/test_suite/12M_pre_ms_to_core_collapse/inlist_to_cc +++ b/star/test_suite/12M_pre_ms_to_core_collapse/inlist_to_cc @@ -108,20 +108,20 @@ ignore_too_large_correction = .true. ! for conv_vel's &pgstar -!Grid1_file_flag = .true. +!Grid_file_flag(1) = .true. !pause = .true. -Profile_Panels3_xaxis_name = 'mass' -Profile_Panels3_xmin = 0 ! -101d0 -Profile_Panels3_xmax = 5 ! -Profile_Panels3_xaxis_reversed = .false. +Profile_Panels_xaxis_name(3) = 'mass' +Profile_Panels_xmin(3) = 0 ! -101d0 +Profile_Panels_xmax(3) = 5 ! +Profile_Panels_xaxis_reversed(3) = .false. -Profile_Panels3_yaxis_name(4) = 'gamma1' -Profile_Panels3_dymin(4) = 0.14 -Profile_Panels3_other_yaxis_name(4) = 'vel_km_per_s' -Profile_Panels3_dymin(4) = 0.14 +Profile_Panels_yaxis_name(3, 4) = 'gamma1' +Profile_Panels_dymin(3, 4) = 0.14 +Profile_Panels_other_yaxis_name(3, 4) = 'vel_km_per_s' +Profile_Panels_dymin(3, 4) = 0.14 TRho_Profile_xmin = -15 !3.0 TRho_Profile_xmax = 10 @@ -133,7 +133,7 @@ TRho_logRho_min = 6d0 TRho_logRho_max = 10d0 TRho_logT_max = 10d0 -Text_Summary1_name(1,2) = 'time_step_sec' -Text_Summary1_name(2,2) = 'star_age_sec' +Text_Summary_name(1,1,2) = 'time_step_sec' +Text_Summary_name(1,2,2) = 'star_age_sec' / ! end of pgstar namelist diff --git a/star/test_suite/12M_pre_ms_to_core_collapse/inlist_to_end_core_c_burn b/star/test_suite/12M_pre_ms_to_core_collapse/inlist_to_end_core_c_burn index 74fdd2639..63c521087 100644 --- a/star/test_suite/12M_pre_ms_to_core_collapse/inlist_to_end_core_c_burn +++ b/star/test_suite/12M_pre_ms_to_core_collapse/inlist_to_end_core_c_burn @@ -72,8 +72,8 @@ &pgstar -Profile_Panels3_xmin = 0 ! 2.5 ! -101d0 -Profile_Panels3_xmax = -101d0 ! +Profile_Panels_xmin(3) = 0 ! 2.5 ! -101d0 +Profile_Panels_xmax(3) = -101d0 ! TRho_Profile_xmin = 2.5 TRho_Profile_xmax = 7.5 diff --git a/star/test_suite/12M_pre_ms_to_core_collapse/inlist_to_end_core_he_burn b/star/test_suite/12M_pre_ms_to_core_collapse/inlist_to_end_core_he_burn index 301c4ae0c..c6b0611d6 100644 --- a/star/test_suite/12M_pre_ms_to_core_collapse/inlist_to_end_core_he_burn +++ b/star/test_suite/12M_pre_ms_to_core_collapse/inlist_to_end_core_he_burn @@ -68,10 +68,10 @@ &pgstar !pause = .true. -Grid1_plot_name(3) = 'HR' -Profile_Panels3_xmin = -101d0 -Profile_Panels3_xmax = -101d0 -Profile_Panels3_other_yaxis_name(4) = 'entropy' +Grid_plot_name(1, 3) = 'HR' +Profile_Panels_xmin(3) = -101d0 +Profile_Panels_xmax(3) = -101d0 +Profile_Panels_other_yaxis_name(3, 4) = 'entropy' TRho_Profile_xmin = -5 TRho_Profile_xmax = 7.5 diff --git a/star/test_suite/12M_pre_ms_to_core_collapse/inlist_to_lgTmax b/star/test_suite/12M_pre_ms_to_core_collapse/inlist_to_lgTmax index d144dbb66..3f36e9dfb 100644 --- a/star/test_suite/12M_pre_ms_to_core_collapse/inlist_to_lgTmax +++ b/star/test_suite/12M_pre_ms_to_core_collapse/inlist_to_lgTmax @@ -76,9 +76,9 @@ TRho_logT_max = 10d0 !pause = .true. -Profile_Panels3_xmin = 0 ! -101d0 -Profile_Panels3_xmax = 5 ! -Profile_Panels3_other_yaxis_name(4) = 'vel_km_per_s' +Profile_Panels_xmin(3) = 0 ! -101d0 +Profile_Panels_xmax(3) = 5 ! +Profile_Panels_other_yaxis_name(3, 4) = 'vel_km_per_s' TRho_Profile_xmin = -12d0 TRho_Profile_ymin = 3.0d0 diff --git a/star/test_suite/12M_pre_ms_to_core_collapse/inlist_to_zams b/star/test_suite/12M_pre_ms_to_core_collapse/inlist_to_zams index b3bd5e068..4545a59c6 100644 --- a/star/test_suite/12M_pre_ms_to_core_collapse/inlist_to_zams +++ b/star/test_suite/12M_pre_ms_to_core_collapse/inlist_to_zams @@ -75,14 +75,14 @@ !pause = .true. -Grid1_plot_name(3) = 'HR' -Profile_Panels3_xmin = -101d0 -Profile_Panels3_xmax = -101d0 -Profile_Panels3_other_yaxis_name(4) = 'entropy' - -!Profile_Panels3_xaxis_name = 'zone' -!Profile_Panels3_xmin = 48 -!Profile_Panels3_xmax = 58 -!Profile_Panels3_xaxis_reversed = .true. +Grid_plot_name(1, 3) = 'HR' +Profile_Panels_xmin(3) = -101d0 +Profile_Panels_xmax(3) = -101d0 +Profile_Panels_other_yaxis_name(3, 4) = 'entropy' + +!Profile_Panels_xaxis_name(3) = 'zone' +!Profile_Panels_xmin(3) = 48 +!Profile_Panels_xmax(3) = 58 +!Profile_Panels_xaxis_reversed(3) = .true. / ! end of pgstar namelist diff --git a/star/test_suite/15M_dynamo/README.rst b/star/test_suite/15M_dynamo/README.rst index a8c442da7..b5a6f1a79 100644 --- a/star/test_suite/15M_dynamo/README.rst +++ b/star/test_suite/15M_dynamo/README.rst @@ -72,16 +72,16 @@ pgstar commands used for the plots above: Dynamo_legend_txt_scale_factor = 0.7 Mixing_legend_txt_scale_factor = 0.55 - Profile_Panels4_txt_scale = 0.8 + Profile_Panels_txt_scale(4) = 0.8 - Profile_Panels4_win_flag = .true. - Profile_Panels4_win_width = 10 + Profile_Panels_win_flag(4) = .true. + Profile_Panels_win_width(4) = 10 - Profile_Panels4_file_flag = .true. - Profile_Panels4_file_dir = 'png' - Profile_Panels4_file_prefix = 'profile_Panels4_' - Profile_Panels4_file_interval = 10 - Profile_Panels4_file_width = 10 + Profile_Panels_file_flag(4) = .true. + Profile_Panels_file_dir(4) = 'png' + Profile_Panels_file_prefix(4) = 'profile_Panels4_' + Profile_Panels_file_interval(4) = 10 + Profile_Panels_file_width(4) = 10 / ! end of pgstar namelist diff --git a/star/test_suite/15M_dynamo/inlist_common b/star/test_suite/15M_dynamo/inlist_common index 582e45e82..2bdb9587a 100644 --- a/star/test_suite/15M_dynamo/inlist_common +++ b/star/test_suite/15M_dynamo/inlist_common @@ -102,16 +102,16 @@ Dynamo_legend_txt_scale_factor = 0.7 Mixing_legend_txt_scale_factor = 0.55 - Profile_Panels4_txt_scale = 0.8 + Profile_Panels_txt_scale(4) = 0.8 - Profile_Panels4_win_flag = .true. - Profile_Panels4_win_width = 7 - Profile_Panels4_title = '15M Dynamo' + Profile_Panels_win_flag(4) = .true. + Profile_Panels_win_width(4) = 7 + Profile_Panels_title(4) = '15M Dynamo' - Profile_Panels4_file_flag = .true. - Profile_Panels4_file_dir = 'png' - Profile_Panels4_file_prefix = 'profile_Panels4_' - Profile_Panels4_file_interval = 50 - Profile_Panels4_file_width = 10 + Profile_Panels_file_flag(4) = .true. + Profile_Panels_file_dir(4) = 'png' + Profile_Panels_file_prefix(4) = 'profile_Panels4_' + Profile_Panels_file_interval(4) = 50 + Profile_Panels_file_width(4) = 10 / ! end of pgstar namelist diff --git a/star/test_suite/1M_pre_ms_to_wd/README.rst b/star/test_suite/1M_pre_ms_to_wd/README.rst index ab0b22ef8..25a8a8f86 100644 --- a/star/test_suite/1M_pre_ms_to_wd/README.rst +++ b/star/test_suite/1M_pre_ms_to_wd/README.rst @@ -52,14 +52,14 @@ pgstar commands used for the plots above: pgstar_interval = 10 file_digits = 8 - Grid6_win_flag = .true. - Grid6_win_width = 15 + Grid_win_flag(6) = .true. + Grid_win_width(6) = 15 - Grid6_file_flag = .true. - Grid6_file_dir = 'png' - Grid6_file_prefix = 'grid6_' - Grid6_file_interval = 1000 ! output when mod(model_number,Grid6_file_interval)==0 - Grid6_file_width = 15 ! (inches) negative means use same value as for window + Grid_file_flag(6) = .true. + Grid_file_dir(6) = 'png' + Grid_file_prefix(6) = 'grid6_' + Grid_file_interval(6) = 1000 ! output when mod(model_number,Grid_file_interval(6))==0 + Grid_file_width(6) = 15 ! (inches) negative means use same value as for window Abundance_log_mass_frac_min = -4.0 Abundance_legend_max_cnt = 0 diff --git a/star/test_suite/1M_pre_ms_to_wd/inlist_start b/star/test_suite/1M_pre_ms_to_wd/inlist_start index 21baa8665..6f82523a1 100644 --- a/star/test_suite/1M_pre_ms_to_wd/inlist_start +++ b/star/test_suite/1M_pre_ms_to_wd/inlist_start @@ -120,40 +120,36 @@ &pgstar + Grid_win_flag(6) = .true. + Grid_win_width(6) = 11 + + !Grid_file_flag(6) = .true. + Grid_file_dir(6) = 'png' + Grid_file_prefix(6) = 'grid6_' + Grid_file_interval(6) = 5 ! output when mod(model_number,Grid_file_interval(6))==0 + Grid_file_width(6) = -1 ! (inches) negative means use same value as for window + Grid_file_aspect_ratio(6) = -1 ! negative means use same value as for window + + Summary_Burn_xaxis_name = 'mass' + Summary_Burn_xaxis_reversed = .false. + Summary_Burn_xmin = 0.00 ! -101d0 ! only used if /= -101d0 + Summary_Burn_xmax = 2.1 ! only used if /= -101d0 + + Abundance_xaxis_name = 'mass' + Abundance_xaxis_reversed = .false. + ! power xaxis limits -- to override system default selections + Abundance_xmin = 0.00 ! -101d0 ! only used if /= -101d0 + Abundance_xmax = -101d0 ! only used if /= -101d0 + Abundance_log_mass_frac_min = -6 ! only used if < 0 + + !Profile_Panels_win_flag(4) = .true. + !Profile_Panels_win_width(4) = 6 + + ! Abundance window -- current model abundance profiles + + !Abundance_win_flag = .true. + + Abundance_win_width = 9 + Abundance_win_aspect_ratio = 0.75 ! aspect_ratio = height/width - - - - Grid6_win_flag = .true. - Grid6_win_width = 11 - - !Grid6_file_flag = .true. - Grid6_file_dir = 'png' - Grid6_file_prefix = 'grid6_' - Grid6_file_interval = 5 ! output when mod(model_number,Grid6_file_interval)==0 - Grid6_file_width = -1 ! (inches) negative means use same value as for window - Grid6_file_aspect_ratio = -1 ! negative means use same value as for window - - Summary_Burn_xaxis_name = 'mass' - Summary_Burn_xaxis_reversed = .false. - Summary_Burn_xmin = 0.00 ! -101d0 ! only used if /= -101d0 - Summary_Burn_xmax = 2.1 ! only used if /= -101d0 - - Abundance_xaxis_name = 'mass' - Abundance_xaxis_reversed = .false. - ! power xaxis limits -- to override system default selections - Abundance_xmin = 0.00 ! -101d0 ! only used if /= -101d0 - Abundance_xmax = -101d0 ! only used if /= -101d0 - Abundance_log_mass_frac_min = -6 ! only used if < 0 - - !Profile_Panels4_win_flag = .true. - !Profile_Panels4_win_width = 6 - - ! Abundance window -- current model abundance profiles - - !Abundance_win_flag = .true. - - Abundance_win_width = 9 - Abundance_win_aspect_ratio = 0.75 ! aspect_ratio = height/width - / ! end of pgstar namelist diff --git a/star/test_suite/1M_pre_ms_to_wd/inlist_to_end_agb b/star/test_suite/1M_pre_ms_to_wd/inlist_to_end_agb index d43dd2c91..dc9daf250 100644 --- a/star/test_suite/1M_pre_ms_to_wd/inlist_to_end_agb +++ b/star/test_suite/1M_pre_ms_to_wd/inlist_to_end_agb @@ -117,40 +117,36 @@ &pgstar + Grid_win_flag(6) = .true. + Grid_win_width(6) = 11 - + !Grid_file_flag(6) = .true. + Grid_file_dir(6) = 'png' + Grid_file_prefix(6) = 'grid6_' + Grid_file_interval(6) = 5 ! output when mod(model_number,Grid_file_interval(6))==0 + Grid_file_width(6) = -1 ! (inches) negative means use same value as for window + Grid_file_aspect_ratio(6) = -1 ! negative means use same value as for window - - Grid6_win_flag = .true. - Grid6_win_width = 11 - - !Grid6_file_flag = .true. - Grid6_file_dir = 'png' - Grid6_file_prefix = 'grid6_' - Grid6_file_interval = 5 ! output when mod(model_number,Grid6_file_interval)==0 - Grid6_file_width = -1 ! (inches) negative means use same value as for window - Grid6_file_aspect_ratio = -1 ! negative means use same value as for window - - Summary_Burn_xaxis_name = 'mass' - Summary_Burn_xaxis_reversed = .false. - Summary_Burn_xmin = 0.00 ! -101d0 ! only used if /= -101d0 - Summary_Burn_xmax = 2.1 ! only used if /= -101d0 - - Abundance_xaxis_name = 'mass' - Abundance_xaxis_reversed = .false. - ! power xaxis limits -- to override system default selections - Abundance_xmin = 0.00 ! -101d0 ! only used if /= -101d0 - Abundance_xmax = -101d0 ! only used if /= -101d0 - Abundance_log_mass_frac_min = -6 ! only used if < 0 - - !Profile_Panels4_win_flag = .true. - !Profile_Panels4_win_width = 6 - - ! Abundance window -- current model abundance profiles - - !Abundance_win_flag = .true. - - Abundance_win_width = 9 - Abundance_win_aspect_ratio = 0.75 ! aspect_ratio = height/width + Summary_Burn_xaxis_name = 'mass' + Summary_Burn_xaxis_reversed = .false. + Summary_Burn_xmin = 0.00 ! -101d0 ! only used if /= -101d0 + Summary_Burn_xmax = 2.1 ! only used if /= -101d0 + + Abundance_xaxis_name = 'mass' + Abundance_xaxis_reversed = .false. + ! power xaxis limits -- to override system default selections + Abundance_xmin = 0.00 ! -101d0 ! only used if /= -101d0 + Abundance_xmax = -101d0 ! only used if /= -101d0 + Abundance_log_mass_frac_min = -6 ! only used if < 0 + + !Profile_Panels_win_flag(4) = .true. + !Profile_Panels_win_width(4) = 6 + + ! Abundance window -- current model abundance profiles + + !Abundance_win_flag = .true. + + Abundance_win_width = 9 + Abundance_win_aspect_ratio = 0.75 ! aspect_ratio = height/width / ! end of pgstar namelist diff --git a/star/test_suite/1M_pre_ms_to_wd/inlist_to_end_core_h_burn b/star/test_suite/1M_pre_ms_to_wd/inlist_to_end_core_h_burn index bd30087d3..afa6c4d25 100644 --- a/star/test_suite/1M_pre_ms_to_wd/inlist_to_end_core_h_burn +++ b/star/test_suite/1M_pre_ms_to_wd/inlist_to_end_core_h_burn @@ -83,40 +83,36 @@ &pgstar + Grid_win_flag(6) = .true. + Grid_win_width(6) = 11 - + !Grid_file_flag(6) = .true. + Grid_file_dir(6) = 'png' + Grid_file_prefix(6) = 'grid6_' + Grid_file_interval(6) = 5 ! output when mod(model_number,Grid_file_interval(6))==0 + Grid_file_width(6) = -1 ! (inches) negative means use same value as for window + Grid_file_aspect_ratio(6) = -1 ! negative means use same value as for window + + Summary_Burn_xaxis_name = 'mass' + Summary_Burn_xaxis_reversed = .false. + Summary_Burn_xmin = 0.00 ! -101d0 ! only used if /= -101d0 + Summary_Burn_xmax = 2.1 ! only used if /= -101d0 + + Abundance_xaxis_name = 'mass' + Abundance_xaxis_reversed = .false. + ! power xaxis limits -- to override system default selections + Abundance_xmin = 0.00 ! -101d0 ! only used if /= -101d0 + Abundance_xmax = -101d0 ! only used if /= -101d0 + Abundance_log_mass_frac_min = -6 ! only used if < 0 + + !Profile_Panels_win_flag(4) = .true. + !Profile_Panels_win_width(4) = 6 + + ! Abundance window -- current model abundance profiles + + !Abundance_win_flag = .true. + + Abundance_win_width = 9 + Abundance_win_aspect_ratio = 0.75 ! aspect_ratio = height/width - - Grid6_win_flag = .true. - Grid6_win_width = 11 - - !Grid6_file_flag = .true. - Grid6_file_dir = 'png' - Grid6_file_prefix = 'grid6_' - Grid6_file_interval = 5 ! output when mod(model_number,Grid6_file_interval)==0 - Grid6_file_width = -1 ! (inches) negative means use same value as for window - Grid6_file_aspect_ratio = -1 ! negative means use same value as for window - - Summary_Burn_xaxis_name = 'mass' - Summary_Burn_xaxis_reversed = .false. - Summary_Burn_xmin = 0.00 ! -101d0 ! only used if /= -101d0 - Summary_Burn_xmax = 2.1 ! only used if /= -101d0 - - Abundance_xaxis_name = 'mass' - Abundance_xaxis_reversed = .false. - ! power xaxis limits -- to override system default selections - Abundance_xmin = 0.00 ! -101d0 ! only used if /= -101d0 - Abundance_xmax = -101d0 ! only used if /= -101d0 - Abundance_log_mass_frac_min = -6 ! only used if < 0 - - !Profile_Panels4_win_flag = .true. - !Profile_Panels4_win_width = 6 - - ! Abundance window -- current model abundance profiles - - !Abundance_win_flag = .true. - - Abundance_win_width = 9 - Abundance_win_aspect_ratio = 0.75 ! aspect_ratio = height/width - / ! end of pgstar namelist diff --git a/star/test_suite/1M_pre_ms_to_wd/inlist_to_end_core_he_burn b/star/test_suite/1M_pre_ms_to_wd/inlist_to_end_core_he_burn index 1876af39e..926c06214 100644 --- a/star/test_suite/1M_pre_ms_to_wd/inlist_to_end_core_he_burn +++ b/star/test_suite/1M_pre_ms_to_wd/inlist_to_end_core_he_burn @@ -86,40 +86,36 @@ &pgstar + Grid_win_flag(6) = .true. + Grid_win_width(6) = 11 - + !Grid_file_flag(6) = .true. + Grid_file_dir(6) = 'png' + Grid_file_prefix(6) = 'grid6_' + Grid_file_interval(6) = 5 ! output when mod(model_number,Grid_file_interval(6))==0 + Grid_file_width(6) = -1 ! (inches) negative means use same value as for window + Grid_file_aspect_ratio(6) = -1 ! negative means use same value as for window + + Summary_Burn_xaxis_name = 'mass' + Summary_Burn_xaxis_reversed = .false. + Summary_Burn_xmin = 0.00 ! -101d0 ! only used if /= -101d0 + Summary_Burn_xmax = 2.1 ! only used if /= -101d0 + + Abundance_xaxis_name = 'mass' + Abundance_xaxis_reversed = .false. + ! power xaxis limits -- to override system default selections + Abundance_xmin = 0.00 ! -101d0 ! only used if /= -101d0 + Abundance_xmax = -101d0 ! only used if /= -101d0 + Abundance_log_mass_frac_min = -6 ! only used if < 0 + + !Profile_Panels_win_flag(4) = .true. + !Profile_Panels_win_width(4) = 6 + + ! Abundance window -- current model abundance profiles + + !Abundance_win_flag = .true. + + Abundance_win_width = 9 + Abundance_win_aspect_ratio = 0.75 ! aspect_ratio = height/width - - Grid6_win_flag = .true. - Grid6_win_width = 11 - - !Grid6_file_flag = .true. - Grid6_file_dir = 'png' - Grid6_file_prefix = 'grid6_' - Grid6_file_interval = 5 ! output when mod(model_number,Grid6_file_interval)==0 - Grid6_file_width = -1 ! (inches) negative means use same value as for window - Grid6_file_aspect_ratio = -1 ! negative means use same value as for window - - Summary_Burn_xaxis_name = 'mass' - Summary_Burn_xaxis_reversed = .false. - Summary_Burn_xmin = 0.00 ! -101d0 ! only used if /= -101d0 - Summary_Burn_xmax = 2.1 ! only used if /= -101d0 - - Abundance_xaxis_name = 'mass' - Abundance_xaxis_reversed = .false. - ! power xaxis limits -- to override system default selections - Abundance_xmin = 0.00 ! -101d0 ! only used if /= -101d0 - Abundance_xmax = -101d0 ! only used if /= -101d0 - Abundance_log_mass_frac_min = -6 ! only used if < 0 - - !Profile_Panels4_win_flag = .true. - !Profile_Panels4_win_width = 6 - - ! Abundance window -- current model abundance profiles - - !Abundance_win_flag = .true. - - Abundance_win_width = 9 - Abundance_win_aspect_ratio = 0.75 ! aspect_ratio = height/width - / ! end of pgstar namelist diff --git a/star/test_suite/1M_pre_ms_to_wd/inlist_to_start_he_core_flash b/star/test_suite/1M_pre_ms_to_wd/inlist_to_start_he_core_flash index dbe48002e..3731dfcc8 100644 --- a/star/test_suite/1M_pre_ms_to_wd/inlist_to_start_he_core_flash +++ b/star/test_suite/1M_pre_ms_to_wd/inlist_to_start_he_core_flash @@ -96,40 +96,36 @@ &pgstar + Grid_win_flag(6) = .true. + Grid_win_width(6) = 11 - + !Grid_file_flag(6) = .true. + Grid_file_dir(6) = 'png' + Grid_file_prefix(6) = 'grid6_' + Grid_file_interval(6) = 5 ! output when mod(model_number,Grid_file_interval(6))==0 + Grid_file_width(6) = -1 ! (inches) negative means use same value as for window + Grid_file_aspect_ratio(6) = -1 ! negative means use same value as for window + + Summary_Burn_xaxis_name = 'mass' + Summary_Burn_xaxis_reversed = .false. + Summary_Burn_xmin = 0.00 ! -101d0 ! only used if /= -101d0 + Summary_Burn_xmax = 2.1 ! only used if /= -101d0 + + Abundance_xaxis_name = 'mass' + Abundance_xaxis_reversed = .false. + ! power xaxis limits -- to override system default selections + Abundance_xmin = 0.00 ! -101d0 ! only used if /= -101d0 + Abundance_xmax = -101d0 ! only used if /= -101d0 + Abundance_log_mass_frac_min = -6 ! only used if < 0 + + !Profile_Panels_win_flag(4) = .true. + !Profile_Panels_win_width(4) = 6 + + ! Abundance window -- current model abundance profiles + + !Abundance_win_flag = .true. + + Abundance_win_width = 9 + Abundance_win_aspect_ratio = 0.75 ! aspect_ratio = height/width - - Grid6_win_flag = .true. - Grid6_win_width = 11 - - !Grid6_file_flag = .true. - Grid6_file_dir = 'png' - Grid6_file_prefix = 'grid6_' - Grid6_file_interval = 5 ! output when mod(model_number,Grid6_file_interval)==0 - Grid6_file_width = -1 ! (inches) negative means use same value as for window - Grid6_file_aspect_ratio = -1 ! negative means use same value as for window - - Summary_Burn_xaxis_name = 'mass' - Summary_Burn_xaxis_reversed = .false. - Summary_Burn_xmin = 0.00 ! -101d0 ! only used if /= -101d0 - Summary_Burn_xmax = 2.1 ! only used if /= -101d0 - - Abundance_xaxis_name = 'mass' - Abundance_xaxis_reversed = .false. - ! power xaxis limits -- to override system default selections - Abundance_xmin = 0.00 ! -101d0 ! only used if /= -101d0 - Abundance_xmax = -101d0 ! only used if /= -101d0 - Abundance_log_mass_frac_min = -6 ! only used if < 0 - - !Profile_Panels4_win_flag = .true. - !Profile_Panels4_win_width = 6 - - ! Abundance window -- current model abundance profiles - - !Abundance_win_flag = .true. - - Abundance_win_width = 9 - Abundance_win_aspect_ratio = 0.75 ! aspect_ratio = height/width - / ! end of pgstar namelist diff --git a/star/test_suite/1M_pre_ms_to_wd/inlist_to_wd b/star/test_suite/1M_pre_ms_to_wd/inlist_to_wd index ccf2782c0..80d8dc93d 100644 --- a/star/test_suite/1M_pre_ms_to_wd/inlist_to_wd +++ b/star/test_suite/1M_pre_ms_to_wd/inlist_to_wd @@ -161,40 +161,36 @@ &pgstar + Grid_win_flag(6) = .true. + Grid_win_width(6) = 11 + + !Grid_file_flag(6) = .true. + Grid_file_dir(6) = 'png' + Grid_file_prefix(6) = 'grid6_' + Grid_file_interval(6) = 5 ! output when mod(model_number,Grid_file_interval(6))==0 + Grid_file_width(6) = -1 ! (inches) negative means use same value as for window + Grid_file_aspect_ratio(6) = -1 ! negative means use same value as for window + + Summary_Burn_xaxis_name = 'mass' + Summary_Burn_xaxis_reversed = .false. + Summary_Burn_xmin = 0.00 ! -101d0 ! only used if /= -101d0 + Summary_Burn_xmax = 2.1 ! only used if /= -101d0 + + Abundance_xaxis_name = 'mass' + Abundance_xaxis_reversed = .false. + ! power xaxis limits -- to override system default selections + Abundance_xmin = 0.00 ! -101d0 ! only used if /= -101d0 + Abundance_xmax = -101d0 ! only used if /= -101d0 + Abundance_log_mass_frac_min = -6 ! only used if < 0 + + !Profile_Panels_win_flag(4) = .true. + !Profile_Panels_win_width(4) = 6 + + ! Abundance window -- current model abundance profiles + + !Abundance_win_flag = .true. + + Abundance_win_width = 9 + Abundance_win_aspect_ratio = 0.75 ! aspect_ratio = height/width - - - - Grid6_win_flag = .true. - Grid6_win_width = 11 - - !Grid6_file_flag = .true. - Grid6_file_dir = 'png' - Grid6_file_prefix = 'grid6_' - Grid6_file_interval = 5 ! output when mod(model_number,Grid6_file_interval)==0 - Grid6_file_width = -1 ! (inches) negative means use same value as for window - Grid6_file_aspect_ratio = -1 ! negative means use same value as for window - - Summary_Burn_xaxis_name = 'mass' - Summary_Burn_xaxis_reversed = .false. - Summary_Burn_xmin = 0.00 ! -101d0 ! only used if /= -101d0 - Summary_Burn_xmax = 2.1 ! only used if /= -101d0 - - Abundance_xaxis_name = 'mass' - Abundance_xaxis_reversed = .false. - ! power xaxis limits -- to override system default selections - Abundance_xmin = 0.00 ! -101d0 ! only used if /= -101d0 - Abundance_xmax = -101d0 ! only used if /= -101d0 - Abundance_log_mass_frac_min = -6 ! only used if < 0 - - !Profile_Panels4_win_flag = .true. - !Profile_Panels4_win_width = 6 - - ! Abundance window -- current model abundance profiles - - !Abundance_win_flag = .true. - - Abundance_win_width = 9 - Abundance_win_aspect_ratio = 0.75 ! aspect_ratio = height/width - / ! end of pgstar namelist diff --git a/star/test_suite/1M_thermohaline/README.rst b/star/test_suite/1M_thermohaline/README.rst index 77cd7fea2..292eab586 100644 --- a/star/test_suite/1M_thermohaline/README.rst +++ b/star/test_suite/1M_thermohaline/README.rst @@ -70,22 +70,22 @@ pgstar commands used for the plots above: pgstar_interval = 10 file_digits = 8 - Grid3_win_flag = .true. + Grid_win_flag(3) = .true. - Grid3_win_width = 12 - Grid3_win_aspect_ratio = 0.7 ! aspect_ratio = height/width + Grid_win_width(3) = 12 + Grid_win_aspect_ratio(3) = 0.7 ! aspect_ratio = height/width - Grid3_xleft = 0.10 ! fraction of full window width for margin on left - Grid3_xright = 0.89 ! fraction of full window width for margin on right - Grid3_ybot = 0.08 ! fraction of full window width for margin on bottom - Grid3_ytop = 0.92 ! fraction of full window width for margin on top - Grid3_title = 'Mixing' - - Grid3_num_cols = 2 ! divide plotting region into this many equal width cols - Grid3_num_rows = 4 ! divide plotting region into this many equal height rows - Grid3_num_plots = 4 ! <= 10 + Grid_xleft(3) = 0.10 ! fraction of full window width for margin on left + Grid_xright(3) = 0.89 ! fraction of full window width for margin on right + Grid_ybot(3) = 0.08 ! fraction of full window width for margin on bottom + Grid_ytop(3) = 0.92 ! fraction of full window width for margin on top + Grid_title(3) = 'Mixing' + + Grid_num_cols(3) = 2 ! divide plotting region into this many equal width cols + Grid_num_rows(3) = 4 ! divide plotting region into this many equal height rows + Grid_num_plots(3) = 4 ! <= 10 - Grid3_plot_name(1) = 'Mixing' + Grid_plot_name(3, 1) = 'Mixing' Mixing_xmin = 0.22 ! only used if /= -101d0 Mixing_xmax = 0.28 ! only used if /= -101d0 @@ -95,51 +95,51 @@ pgstar commands used for the plots above: Mixing_dymin = -101d0 ! only used if /= -101d0 - Grid3_plot_row(1) = 3 ! number from 1 at top - Grid3_plot_rowspan(1) = 2 ! plot spans this number of rows - Grid3_plot_col(1) = 2 ! number from 1 at left - Grid3_plot_colspan(1) = 1 ! plot spans this number of columns - Grid3_plot_pad_left(1) = 0.08 ! fraction of full window width for padding on left - Grid3_plot_pad_right(1) = 0.00 ! fraction of full window width for padding on right - Grid3_plot_pad_top(1) = 0.08 ! fraction of full window height for padding at top - Grid3_plot_pad_bot(1) = 0.00 ! fraction of full window height for padding at bottom - Grid3_txt_scale_factor(1) = 0.7 ! multiply txt_scale for subplot by this + Grid_plot_row(3, 1) = 3 ! number from 1 at top + Grid_plot_rowspan(3, 1) = 2 ! plot spans this number of rows + Grid_plot_col(3, 1) = 2 ! number from 1 at left + Grid_plot_colspan(3, 1) = 1 ! plot spans this number of columns + Grid_plot_pad_left(3, 1) = 0.08 ! fraction of full window width for padding on left + Grid_plot_pad_right(3, 1) = 0.00 ! fraction of full window width for padding on right + Grid_plot_pad_top(3, 1) = 0.08 ! fraction of full window height for padding at top + Grid_plot_pad_bot(3, 1) = 0.00 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(3, 1) = 0.7 ! multiply txt_scale for subplot by this - Grid3_plot_name(2) = 'History_Panels1' + Grid_plot_name(3, 2) = 'History_Panels1' - History_Panels1_title = 'History' + History_Panels_title(1) = 'History' - History_Panels1_num_panels = 2 - History_Panels1_yaxis_name(1) = 'log_center_T' - History_Panels1_other_yaxis_name(1) = 'log_L' - History_Panels1_yaxis_name(2) = 'log_center_Rho' - History_Panels1_other_yaxis_name(2) = 'log_Teff' + History_Panels_num_panels(1) = 2 + History_Panels_yaxis_name(1, 1) = 'log_center_T' + History_Panels_other_yaxis_name(1, 1) = 'log_L' + History_Panels_yaxis_name(1, 2) = 'log_center_Rho' + History_Panels_other_yaxis_name(1, 2) = 'log_Teff' - Grid3_plot_row(2) = 3 ! number from 1 at top - Grid3_plot_rowspan(2) = 2 ! plot spans this number of rows - Grid3_plot_col(2) = 1 ! number from 1 at left - Grid3_plot_colspan(2) = 1 ! plot spans this number of columns - Grid3_plot_pad_left(2) = 0.00 ! fraction of full window width for padding on left - Grid3_plot_pad_right(2) = 0.08 ! fraction of full window width for padding on right - Grid3_plot_pad_top(2) = 0.08 ! fraction of full window height for padding at top - Grid3_plot_pad_bot(2) = 0.00 ! fraction of full window height for padding at bottom - Grid3_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this + Grid_plot_row(3, 2) = 3 ! number from 1 at top + Grid_plot_rowspan(3, 2) = 2 ! plot spans this number of rows + Grid_plot_col(3, 2) = 1 ! number from 1 at left + Grid_plot_colspan(3, 2) = 1 ! plot spans this number of columns + Grid_plot_pad_left(3, 2) = 0.00 ! fraction of full window width for padding on left + Grid_plot_pad_right(3, 2) = 0.08 ! fraction of full window width for padding on right + Grid_plot_pad_top(3, 2) = 0.08 ! fraction of full window height for padding at top + Grid_plot_pad_bot(3, 2) = 0.00 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(3, 2) = 0.7 ! multiply txt_scale for subplot by this - Grid3_plot_name(3) = 'TRho_Profile' - Grid3_plot_row(3) = 1 ! number from 1 at top - Grid3_plot_rowspan(3) = 2 ! plot spans this number of rows - Grid3_plot_col(3) = 2 ! number from 1 at left - Grid3_plot_colspan(3) = 1 ! plot spans this number of columns - Grid3_plot_pad_left(3) = 0.08 ! fraction of full window width for padding on left - Grid3_plot_pad_right(3) = 0.00 ! fraction of full window width for padding on right - Grid3_plot_pad_top(3) = 0.00 ! fraction of full window height for padding at top - Grid3_plot_pad_bot(3) = 0.08 ! fraction of full window height for padding at bottom - Grid3_txt_scale_factor(3) = 0.7 ! multiply txt_scale for subplot by this + Grid_plot_name(3, 3) = 'TRho_Profile' + Grid_plot_row(3, 3) = 1 ! number from 1 at top + Grid_plot_rowspan(3, 3) = 2 ! plot spans this number of rows + Grid_plot_col(3, 3) = 2 ! number from 1 at left + Grid_plot_colspan(3, 3) = 1 ! plot spans this number of columns + Grid_plot_pad_left(3, 3) = 0.08 ! fraction of full window width for padding on left + Grid_plot_pad_right(3, 3) = 0.00 ! fraction of full window width for padding on right + Grid_plot_pad_top(3, 3) = 0.00 ! fraction of full window height for padding at top + Grid_plot_pad_bot(3, 3) = 0.08 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(3, 3) = 0.7 ! multiply txt_scale for subplot by this - Grid3_plot_name(4) = 'Kipp' + Grid_plot_name(3, 4) = 'Kipp' Kipp_show_mass_boundaries = .false. Kipp_mass_max = 0.28 ! (Msun units) negative means use default @@ -150,47 +150,47 @@ pgstar commands used for the plots above: Kipp_lgL_min = 1d0 ! only used if /= -101d0; (L in Lsun units) - Grid3_plot_row(4) = 1 ! number from 1 at top - Grid3_plot_rowspan(4) = 2 ! plot spans this number of rows - Grid3_plot_col(4) = 1 ! number from 1 at left - Grid3_plot_colspan(4) = 1 ! plot spans this number of columns - Grid3_plot_pad_left(4) = 0.00 ! fraction of full window width for padding on left - Grid3_plot_pad_right(4) = 0.08 ! fraction of full window width for padding on right - Grid3_plot_pad_top(4) = 0.00 ! fraction of full window height for padding at top - Grid3_plot_pad_bot(4) = 0.08 ! fraction of full window height for padding at bottom - Grid3_txt_scale_factor(4) = 0.7 ! multiply txt_scale for subplot by this + Grid_plot_row(3, 4) = 1 ! number from 1 at top + Grid_plot_rowspan(3, 4) = 2 ! plot spans this number of rows + Grid_plot_col(3, 4) = 1 ! number from 1 at left + Grid_plot_colspan(3, 4) = 1 ! plot spans this number of columns + Grid_plot_pad_left(3, 4) = 0.00 ! fraction of full window width for padding on left + Grid_plot_pad_right(3, 4) = 0.08 ! fraction of full window width for padding on right + Grid_plot_pad_top(3, 4) = 0.00 ! fraction of full window height for padding at top + Grid_plot_pad_bot(3, 4) = 0.08 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(3, 4) = 0.7 ! multiply txt_scale for subplot by this ! file output - Grid3_file_flag = .true. - Grid3_file_dir = 'grid3_png' - Grid3_file_prefix = 'Mixing_' - Grid3_file_interval = 100 ! output when mod(model_number,Grid3_file_interval)==0 - Grid3_file_width = 14 ! (inches) negative means use same value as for window + Grid_file_flag(3) = .true. + Grid_file_dir(3) = 'grid3_png' + Grid_file_prefix(3) = 'Mixing_' + Grid_file_interval(3) = 100 ! output when mod(model_number,Grid_file_interval(3))==0 + Grid_file_width(3) = 14 ! (inches) negative means use same value as for window ! Brunt B profile - Profile_Panels1_win_flag = .true. - Profile_Panels1_win_width = 14 - Profile_Panels1_title = '' - Profile_Panels1_show_grid = .true. - - Profile_Panels1_xaxis_name = 'mass' - Profile_Panels1_xmin = 0.235 - Profile_Panels1_xmax = 0.26 - Profile_Panels1_show_mix_regions_on_xaxis = .true. - - Profile_Panels1_num_panels = 1 - Profile_Panels1_yaxis_name(1) = 'brunt_B' - Profile_Panels1_ymin(:) = -0.00006 ! 0.633 - Profile_Panels1_ymax(:) = 0.000001 ! 0.634 - Profile_Panels1_other_yaxis_name(1) = '' - - Profile_Panels1_file_flag = .true. - Profile_Panels1_file_dir = 'profile_png' - Profile_Panels1_file_prefix = 'profile_panels1_' - Profile_Panels1_file_interval = 100 - Profile_Panels1_file_width = 14 + Profile_Panels_win_flag(1) = .true. + Profile_Panels_win_width(1) = 14 + Profile_Panels_title(1) = '' + Profile_Panels_show_grid(1) = .true. + + Profile_Panels_xaxis_name(1) = 'mass' + Profile_Panels_xmin(1) = 0.235 + Profile_Panels_xmax(1) = 0.26 + Profile_Panels_show_mix_regions_on_xaxis(1) = .true. + + Profile_Panels_num_panels(1) = 1 + Profile_Panels_yaxis_name(1, 1) = 'brunt_B' + Profile_Panels_ymin(1, :) = -0.00006 ! 0.633 + Profile_Panels_ymax(1, :) = 0.000001 ! 0.634 + Profile_Panels_other_yaxis_name(1, 1) = '' + + Profile_Panels_file_flag(1) = .true. + Profile_Panels_file_dir(1) = 'profile_png' + Profile_Panels_file_prefix(1) = 'profile_panels1_' + Profile_Panels_file_interval(1) = 100 + Profile_Panels_file_width(1) = 14 ! Abundance profile plot diff --git a/star/test_suite/1M_thermohaline/inlist_1M_thermohaline b/star/test_suite/1M_thermohaline/inlist_1M_thermohaline index ef5827ea0..0417cb264 100644 --- a/star/test_suite/1M_thermohaline/inlist_1M_thermohaline +++ b/star/test_suite/1M_thermohaline/inlist_1M_thermohaline @@ -192,169 +192,147 @@ &pgstar - - -!pause = .true. - pgstar_grid_title_scale = 1.2 - pgstar_grid_title_disp = 2 + !pause = .true. + pgstar_grid_title_scale = 1.2 + pgstar_grid_title_disp = 2 - Grid3_win_flag = .true. - + Grid_win_flag(3) = .true. - Grid3_win_width = 12 - Grid3_win_aspect_ratio = 0.7 ! aspect_ratio = height/width - - Grid3_xleft = 0.10 ! fraction of full window width for margin on left - Grid3_xright = 0.89 ! fraction of full window width for margin on right - Grid3_ybot = 0.08 ! fraction of full window width for margin on bottom - Grid3_ytop = 0.92 ! fraction of full window width for margin on top - Grid3_title = 'Mixing' - - Grid3_num_cols = 2 ! divide plotting region into this many equal width cols - Grid3_num_rows = 4 ! divide plotting region into this many equal height rows - Grid3_num_plots = 4 ! <= 10 - - Grid3_plot_name(1) = 'Mixing' - - Mixing_xmin = 0.22 ! only used if /= -101d0 - Mixing_xmax = 0.28 ! only used if /= -101d0 - Mixing_ymin = -101d0 ! only used if /= -101d0 - Mixing_ymax = -101d0 ! only used if /= -101d0 - Mixing_dymin = -101d0 ! only used if /= -101d0 + Grid_win_width(3) = 12 + Grid_win_aspect_ratio(3) = 0.7 ! aspect_ratio = height/width + Grid_xleft(3) = 0.10 ! fraction of full window width for margin on left + Grid_xright(3) = 0.89 ! fraction of full window width for margin on right + Grid_ybot(3) = 0.08 ! fraction of full window width for margin on bottom + Grid_ytop(3) = 0.92 ! fraction of full window width for margin on top + Grid_title(3) = 'Mixing' + + Grid_num_cols(3) = 2 ! divide plotting region into this many equal width cols + Grid_num_rows(3) = 4 ! divide plotting region into this many equal height rows + Grid_num_plots(3) = 4 ! <= 10 - Grid3_plot_row(1) = 3 ! number from 1 at top - Grid3_plot_rowspan(1) = 2 ! plot spans this number of rows - Grid3_plot_col(1) = 2 ! number from 1 at left - Grid3_plot_colspan(1) = 1 ! plot spans this number of columns - Grid3_plot_pad_left(1) = 0.08 ! fraction of full window width for padding on left - Grid3_plot_pad_right(1) = 0.00 ! fraction of full window width for padding on right - Grid3_plot_pad_top(1) = 0.08 ! fraction of full window height for padding at top - Grid3_plot_pad_bot(1) = 0.00 ! fraction of full window height for padding at bottom - Grid3_txt_scale_factor(1) = 0.7 ! multiply txt_scale for subplot by this - - - - Grid3_plot_name(3) = 'TRho_Profile' - Grid3_plot_row(3) = 1 ! number from 1 at top - Grid3_plot_rowspan(3) = 2 ! plot spans this number of rows - Grid3_plot_col(3) = 2 ! number from 1 at left - Grid3_plot_colspan(3) = 1 ! plot spans this number of columns - Grid3_plot_pad_left(3) = 0.08 ! fraction of full window width for padding on left - Grid3_plot_pad_right(3) = 0.00 ! fraction of full window width for padding on right - Grid3_plot_pad_top(3) = 0.00 ! fraction of full window height for padding at top - Grid3_plot_pad_bot(3) = 0.08 ! fraction of full window height for padding at bottom - Grid3_txt_scale_factor(3) = 0.7 ! multiply txt_scale for subplot by this - - - - - Grid3_plot_name(2) = 'History_Panels1' - - History_Panels1_title = 'History' - - History_Panels1_num_panels = 2 - History_Panels1_yaxis_name(1) = 'log_dt'!'log_center_T' - History_Panels1_other_yaxis_name(1) = 'num_retries'!'log_L' - History_Panels1_yaxis_name(2) = 'log_center_Rho' - History_Panels1_other_yaxis_name(2) = 'log_Teff' - - Grid3_plot_row(2) = 3 ! number from 1 at top - Grid3_plot_rowspan(2) = 2 ! plot spans this number of rows - Grid3_plot_col(2) = 1 ! number from 1 at left - Grid3_plot_colspan(2) = 1 ! plot spans this number of columns - Grid3_plot_pad_left(2) = 0.00 ! fraction of full window width for padding on left - Grid3_plot_pad_right(2) = 0.08 ! fraction of full window width for padding on right - Grid3_plot_pad_top(2) = 0.08 ! fraction of full window height for padding at top - Grid3_plot_pad_bot(2) = 0.00 ! fraction of full window height for padding at bottom - Grid3_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this - - - Grid3_plot_name(4) = 'Kipp' - - Kipp_show_mass_boundaries = .false. - Kipp_mass_max = 0.28 ! (Msun units) negative means use default - Kipp_mass_min = 0.22 ! (Msun units) negative means use default - - Kipp_show_luminosities = .false. - Kipp_lgL_max = 2d0 ! only used if /= -101d0; (L in Lsun units) - Kipp_lgL_min = 1d0 ! only used if /= -101d0; (L in Lsun units) - + Grid_plot_name(3, 1) = 'Mixing' + + Mixing_xmin = 0.22 ! only used if /= -101d0 + Mixing_xmax = 0.28 ! only used if /= -101d0 + + Grid_plot_row(3, 1) = 3 ! number from 1 at top + Grid_plot_rowspan(3, 1) = 2 ! plot spans this number of rows + Grid_plot_col(3, 1) = 2 ! number from 1 at left + Grid_plot_colspan(3, 1) = 1 ! plot spans this number of columns + Grid_plot_pad_left(3, 1) = 0.08 ! fraction of full window width for padding on left + Grid_plot_pad_right(3, 1) = 0.00 ! fraction of full window width for padding on right + Grid_plot_pad_top(3, 1) = 0.08 ! fraction of full window height for padding at top + Grid_plot_pad_bot(3, 1) = 0.00 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(3, 1) = 0.7 ! multiply txt_scale for subplot by this + + Grid_plot_name(3, 3) = 'TRho_Profile' + Grid_plot_row(3, 3) = 1 ! number from 1 at top + Grid_plot_rowspan(3, 3) = 2 ! plot spans this number of rows + Grid_plot_col(3, 3) = 2 ! number from 1 at left + Grid_plot_colspan(3, 3) = 1 ! plot spans this number of columns + Grid_plot_pad_left(3, 3) = 0.08 ! fraction of full window width for padding on left + Grid_plot_pad_right(3, 3) = 0.00 ! fraction of full window width for padding on right + Grid_plot_pad_top(3, 3) = 0.00 ! fraction of full window height for padding at top + Grid_plot_pad_bot(3, 3) = 0.08 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(3, 3) = 0.7 ! multiply txt_scale for subplot by this + + Grid_plot_name(3, 2) = 'History_Panels(1)' - Grid3_plot_row(4) = 1 ! number from 1 at top - Grid3_plot_rowspan(4) = 2 ! plot spans this number of rows - Grid3_plot_col(4) = 1 ! number from 1 at left - Grid3_plot_colspan(4) = 1 ! plot spans this number of columns - Grid3_plot_pad_left(4) = 0.00 ! fraction of full window width for padding on left - Grid3_plot_pad_right(4) = 0.08 ! fraction of full window width for padding on right - Grid3_plot_pad_top(4) = 0.00 ! fraction of full window height for padding at top - Grid3_plot_pad_bot(4) = 0.08 ! fraction of full window height for padding at bottom - Grid3_txt_scale_factor(4) = 0.7 ! multiply txt_scale for subplot by this - - ! file output - Grid3_file_flag = .false. - Grid3_file_dir = 'png' - Grid3_file_prefix = 'grid3_' - Grid3_file_interval = 5 ! output when mod(model_number,Grid3_file_interval)==0 - Grid3_file_width = -1 ! (inches) negative means use same value as for window - Grid3_file_aspect_ratio = -1 ! negative means use same value as for window - - - ! file output - !Grid3_file_flag = .true. - Grid3_file_dir = 'png' - Grid3_file_prefix = 'Mixing_' - Grid3_file_interval = 2 ! output when mod(model_number,Grid3_file_interval)==0 - - - - ! Abundance profile plot - - Abundance_win_flag = .true. - - ! window properties - Abundance_win_width = 14 - Abundance_win_aspect_ratio = 0.75 - Abundance_title = '' - - Abundance_num_isos_to_show = 8 - - Abundance_which_isos_to_show(1) = 'h1' - Abundance_which_isos_to_show(2) = 'he3' - Abundance_which_isos_to_show(3) = 'he4' - Abundance_which_isos_to_show(4) = 'c12' - Abundance_which_isos_to_show(5) = 'n14' - Abundance_which_isos_to_show(6) = 'o16' - Abundance_which_isos_to_show(7) = 'ne20' - Abundance_which_isos_to_show(8) = 'mg24' - - ! number and size of isotope labels along curves - num_abundance_line_labels = 4 - Abundance_line_txt_scale_factor = 0.8 - - ! number and size of isotopes on legend - Abundance_legend_max_cnt = 0 - - ! xaxis name and orientation - Abundance_xaxis_name = 'mass' - Abundance_xaxis_reversed = .false. - - ! xaxis limits - Abundance_xmin = 0.0 - Abundance_xmax = 0.3 - - ! yaxis limits - Abundance_log_mass_frac_min = -4.0 - Abundance_log_mass_frac_max = 0.3 - - ! file output - Abundance_file_flag = .true. - Abundance_file_dir = 'abund_png' - Abundance_file_prefix = 'abund_' - Abundance_file_interval = 100 ! output when mod(model_number,file_interval)==0 - Abundance_file_width = 14 ! (inches) negative means use same value as for window - Abundance_file_aspect_ratio = -1 ! negative means use same value as for window + History_Panels_title(1) = 'History' + + History_Panels_num_panels(1) = 2 + History_Panels_yaxis_name(1, 1) = 'log_dt'!'log_center_T' + History_Panels_other_yaxis_name(1, 1) = 'num_retries'!'log_L' + History_Panels_yaxis_name(1, 2) = 'log_center_Rho' + History_Panels_other_yaxis_name(1, 2) = 'log_Teff' + + Grid_plot_row(3, 2) = 3 ! number from 1 at top + Grid_plot_rowspan(3, 2) = 2 ! plot spans this number of rows + Grid_plot_col(3, 2) = 1 ! number from 1 at left + Grid_plot_colspan(3, 2) = 1 ! plot spans this number of columns + Grid_plot_pad_left(3, 2) = 0.00 ! fraction of full window width for padding on left + Grid_plot_pad_right(3, 2) = 0.08 ! fraction of full window width for padding on right + Grid_plot_pad_top(3, 2) = 0.08 ! fraction of full window height for padding at top + Grid_plot_pad_bot(3, 2) = 0.00 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(3, 2) = 0.7 ! multiply txt_scale for subplot by this + + Grid_plot_name(3, 4) = 'Kipp' + + Kipp_show_mass_boundaries = .false. + Kipp_mass_max = 0.28 ! (Msun units) negative means use default + Kipp_mass_min = 0.22 ! (Msun units) negative means use default + + Kipp_show_luminosities = .false. + Kipp_lgL_max = 2d0 ! only used if /= -101d0; (L in Lsun units) + Kipp_lgL_min = 1d0 ! only used if /= -101d0; (L in Lsun units) + + + Grid_plot_row(3, 4) = 1 ! number from 1 at top + Grid_plot_rowspan(3, 4) = 2 ! plot spans this number of rows + Grid_plot_col(3, 4) = 1 ! number from 1 at left + Grid_plot_colspan(3, 4) = 1 ! plot spans this number of columns + Grid_plot_pad_left(3, 4) = 0.00 ! fraction of full window width for padding on left + Grid_plot_pad_right(3, 4) = 0.08 ! fraction of full window width for padding on right + Grid_plot_pad_top(3, 4) = 0.00 ! fraction of full window height for padding at top + Grid_plot_pad_bot(3, 4) = 0.08 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(3, 4) = 0.7 ! multiply txt_scale for subplot by this + + ! file output + Grid_file_flag(3) = .false. + Grid_file_dir(3) = 'png' + Grid_file_prefix(3) = 'Mixing_' + Grid_file_interval(3) = 2 ! output when mod(model_number,Grid_file_interval(3))==0 + Grid_file_width(3) = -1 ! (inches) negative means use same value as for window + Grid_file_aspect_ratio(3) = -1 ! negative means use same value as for window + + ! Abundance profile plot + + Abundance_win_flag = .true. + + ! window properties + Abundance_win_width = 14 + Abundance_win_aspect_ratio = 0.75 + Abundance_title = '' + + Abundance_num_isos_to_show = 8 + + Abundance_which_isos_to_show(1) = 'h1' + Abundance_which_isos_to_show(2) = 'he3' + Abundance_which_isos_to_show(3) = 'he4' + Abundance_which_isos_to_show(4) = 'c12' + Abundance_which_isos_to_show(5) = 'n14' + Abundance_which_isos_to_show(6) = 'o16' + Abundance_which_isos_to_show(7) = 'ne20' + Abundance_which_isos_to_show(8) = 'mg24' + + ! number and size of isotope labels along curves + num_abundance_line_labels = 4 + Abundance_line_txt_scale_factor = 0.8 + + ! number and size of isotopes on legend + Abundance_legend_max_cnt = 0 + + ! xaxis name and orientation + Abundance_xaxis_name = 'mass' + Abundance_xaxis_reversed = .false. + + ! xaxis limits + Abundance_xmin = 0.0 + Abundance_xmax = 0.3 + + ! yaxis limits + Abundance_log_mass_frac_min = -4.0 + Abundance_log_mass_frac_max = 0.3 + + ! file output + Abundance_file_flag = .true. + Abundance_file_dir = 'abund_png' + Abundance_file_prefix = 'abund_' + Abundance_file_interval = 100 ! output when mod(model_number,file_interval)==0 + Abundance_file_width = 14 ! (inches) negative means use same value as for window + Abundance_file_aspect_ratio = -1 ! negative means use same value as for window / ! end of pgstar namelist diff --git a/star/test_suite/20M_pre_ms_to_core_collapse/inlist_common b/star/test_suite/20M_pre_ms_to_core_collapse/inlist_common index a6439c41a..bc43bb59b 100644 --- a/star/test_suite/20M_pre_ms_to_core_collapse/inlist_common +++ b/star/test_suite/20M_pre_ms_to_core_collapse/inlist_common @@ -390,14 +390,14 @@ / &pgstar -!pause = .true. + !pause = .true. -!pgstar_interval = 1 + !pgstar_interval = 1 -! x-axis limits and properties -Profile_Panels3_xaxis_name = 'mass' -Profile_Panels3_xmin = 0.0 -Profile_Panels3_xmax = 1.6 -Profile_Panels3_xaxis_reversed = .false. + ! x-axis limits and properties + Profile_Panels_xaxis_name(3) = 'mass' + Profile_Panels_xmin(3) = 0.0 + Profile_Panels_xmax(3) = 1.6 + Profile_Panels_xaxis_reversed(3) = .false. / ! end of pgstar namelist diff --git a/star/test_suite/20M_pre_ms_to_core_collapse/inlist_pgstar b/star/test_suite/20M_pre_ms_to_core_collapse/inlist_pgstar index cd1b476b7..d9820652d 100644 --- a/star/test_suite/20M_pre_ms_to_core_collapse/inlist_pgstar +++ b/star/test_suite/20M_pre_ms_to_core_collapse/inlist_pgstar @@ -1,4 +1,3 @@ - &pgstar !pause = .true. @@ -15,203 +14,185 @@ pgstar_show_age = .false. !------------------------------------------------------------------------------------ -Grid1_win_flag = .true. -Grid1_win_width = 12 -Grid1_win_aspect_ratio = 0.666 +Grid_win_flag(1) = .true. +Grid_win_width(1) = 12 +Grid_win_aspect_ratio(1) = 0.666 ! file output -Grid1_file_flag = .true. -Grid1_file_dir = 'png' -Grid1_file_prefix = 'Grid1_' -Grid1_file_interval = 25 ! output when mod(model_number,Grid1_file_interval)==0 -Grid1_file_width = 27 ! (inches) negative means use same value as for window -Grid1_file_aspect_ratio = -1 ! negative means use same value as for window - -! reset the defaults - -Grid1_plot_name(:) = '' -Grid1_plot_row(:) = 1 ! number from 1 at top -Grid1_plot_rowspan(:) = 1 ! plot spans this number of rows -Grid1_plot_col(:) = 1 ! number from 1 at left -Grid1_plot_colspan(:) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(:) = 0.0 ! fraction of full window width for padding on left -Grid1_plot_pad_right(:) = 0.0 ! fraction of full window width for padding on right -Grid1_plot_pad_top(:) = 0.0 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(:) = 0.0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(:) = 0.7 ! multiply txt_scale for subplot by this - - -Grid1_title = '' - -Grid1_num_cols = 3 ! divide plotting region into this many equal width cols -Grid1_num_rows = 5 ! divide plotting region into this many equal height rows -Grid1_num_plots = 6 ! <= 10 - - -Grid1_plot_name(1) = 'Text_Summary1' -Grid1_plot_row(1) = 1 ! number from 1 at top -Grid1_plot_rowspan(1) = 1 ! plot spans this number of rows -Grid1_plot_col(1) = 1 ! number from 1 at left -Grid1_plot_colspan(1) = 3 ! plot spans this number of columns - -Grid1_plot_pad_left(1) = -0.03 ! fraction of full window width for padding on left -Grid1_plot_pad_right(1) = 0.0 ! fraction of full window width for padding on right -Grid1_plot_pad_top(1) = -0.06 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(1) = 0.07 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(1) = 1 ! 0.8 ! multiply txt_scale for subplot by this - - -Grid1_plot_name(3) = 'TRho' -Grid1_plot_row(3) = 2 ! number from 1 at top -Grid1_plot_rowspan(3) = 1 ! plot spans this number of rows -Grid1_plot_col(3) = 1 ! number from 1 at left -Grid1_plot_colspan(3) = 1 ! plot spans this number of columns - -Grid1_plot_pad_left(3) = 0.00 ! fraction of full window width for padding on left -Grid1_plot_pad_right(3) = 0.08 ! fraction of full window width for padding on right -Grid1_plot_pad_top(3) = -0.04 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(3) = 0.01 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(3) = 0.7 ! multiply txt_scale for subplot by this - - -Grid1_plot_name(5) = 'Profile_Panels1' -Grid1_plot_row(5) = 3 ! number from 1 at top -Grid1_plot_rowspan(5) = 3 ! plot spans this number of rows -Grid1_plot_col(5) = 1 ! number from 1 at left -Grid1_plot_colspan(5) = 1 ! plot spans this number of columns - -Grid1_plot_pad_left(5) = 0.00 ! fraction of full window width for padding on left -Grid1_plot_pad_right(5) = 0.10 ! fraction of full window width for padding on right -Grid1_plot_pad_top(5) = 0.05 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(5) = 0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(5) = 0.6 ! multiply txt_scale for subplot by this - - -Grid1_plot_name(2) = 'TRho_Profile' -Grid1_plot_row(2) = 2 ! number from 1 at top -Grid1_plot_rowspan(2) = 1 ! plot spans this number of rows -Grid1_plot_col(2) = 2 ! number from 1 at left -Grid1_plot_colspan(2) = 1 ! plot spans this number of columns - -Grid1_plot_pad_left(2) = -0.01 ! fraction of full window width for padding on left -Grid1_plot_pad_right(2) = 0.06 ! fraction of full window width for padding on right -Grid1_plot_pad_top(2) = -0.04 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(2) = 0.01 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this - - -Grid1_plot_name(4) = 'History_Panels1' -Grid1_plot_row(4) = 3 ! number from 1 at top -Grid1_plot_rowspan(4) = 3 ! plot spans this number of rows -Grid1_plot_col(4) = 2 ! number from 1 at left -Grid1_plot_colspan(4) = 1 ! plot spans this number of columns - -Grid1_plot_pad_left(4) = 0.00 ! fraction of full window width for padding on left -Grid1_plot_pad_right(4) = 0.06 ! fraction of full window width for padding on right -Grid1_plot_pad_top(4) = 0.05 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(4) = 0.0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(4) = 0.6 ! multiply txt_scale for subplot by this - - -Grid1_plot_name(6) = 'Profile_Panels3' -Grid1_plot_row(6) = 2 ! number from 1 at top -Grid1_plot_rowspan(6) = 4 ! plot spans this number of rows -Grid1_plot_col(6) = 3 ! Number from 1 at left -Grid1_plot_colspan(6) = 1 ! plot spans this number of columns - -Grid1_plot_pad_left(6) = 0.04 ! fraction of full window width for padding on left -Grid1_plot_pad_right(6) = 0.06 ! fraction of full window width for padding on right -Grid1_plot_pad_top(6) = -0.04 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(6) = 0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(6) = 0.6 ! multiply txt_scale for subplot by this +Grid_file_flag(1) = .true. +Grid_file_dir(1) = 'png' +Grid_file_prefix(1) = 'Grid1_' +Grid_file_interval(1) = 25 ! output when mod(model_number,Grid_file_interval(1))==0 +Grid_file_width(1) = 27 ! (inches) negative means use same value as for window +Grid_file_aspect_ratio(1) = -1 ! negative means use same value as for window + + +Grid_title(1) = '' + +Grid_num_cols(1) = 3 ! divide plotting region into this many equal width cols +Grid_num_rows(1) = 5 ! divide plotting region into this many equal height rows +Grid_num_plots(1) = 6 ! <= 10 + + +Grid_plot_name(1, 1) = 'Text_Summary(1)' +Grid_plot_row(1, 1) = 1 ! number from 1 at top +Grid_plot_rowspan(1, 1) = 1 ! plot spans this number of rows +Grid_plot_col(1, 1) = 1 ! number from 1 at left +Grid_plot_colspan(1, 1) = 3 ! plot spans this number of columns + +Grid_plot_pad_left(1, 1) = -0.03 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 1) = 0.0 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 1) = -0.06 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 1) = 0.07 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 1) = 1 ! 0.8 ! multiply txt_scale for subplot by this + + +Grid_plot_name(1, 3) = 'TRho' +Grid_plot_row(1, 3) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 3) = 1 ! plot spans this number of rows +Grid_plot_col(1, 3) = 1 ! number from 1 at left +Grid_plot_colspan(1, 3) = 1 ! plot spans this number of columns + +Grid_plot_pad_left(1, 3) = 0.00 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 3) = 0.08 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 3) = -0.04 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 3) = 0.01 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 3) = 0.7 ! multiply txt_scale for subplot by this + + +Grid_plot_name(1, 5) = 'Profile_Panels(1)' +Grid_plot_row(1, 5) = 3 ! number from 1 at top +Grid_plot_rowspan(1, 5) = 3 ! plot spans this number of rows +Grid_plot_col(1, 5) = 1 ! number from 1 at left +Grid_plot_colspan(1, 5) = 1 ! plot spans this number of columns + +Grid_plot_pad_left(1, 5) = 0.00 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 5) = 0.10 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 5) = 0.05 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 5) = 0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 5) = 0.6 ! multiply txt_scale for subplot by this + + +Grid_plot_name(1, 2) = 'TRho_Profile' +Grid_plot_row(1, 2) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 2) = 1 ! plot spans this number of rows +Grid_plot_col(1, 2) = 2 ! number from 1 at left +Grid_plot_colspan(1, 2) = 1 ! plot spans this number of columns + +Grid_plot_pad_left(1, 2) = -0.01 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 2) = 0.06 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 2) = -0.04 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 2) = 0.01 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 2) = 0.7 ! multiply txt_scale for subplot by this + + +Grid_plot_name(1, 4) = 'History_Panels(1)' +Grid_plot_row(1, 4) = 3 ! number from 1 at top +Grid_plot_rowspan(1, 4) = 3 ! plot spans this number of rows +Grid_plot_col(1, 4) = 2 ! number from 1 at left +Grid_plot_colspan(1, 4) = 1 ! plot spans this number of columns + +Grid_plot_pad_left(1 ,4) = 0.00 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 4) = 0.06 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 4) = 0.05 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 4) = 0.0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 4) = 0.6 ! multiply txt_scale for subplot by this + + +Grid_plot_name(1, 6) = 'Profile_Panels(3)' +Grid_plot_row(1, 6) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 6) = 4 ! plot spans this number of rows +Grid_plot_col(1, 6) = 3 ! Number from 1 at left +Grid_plot_colspan(1, 6) = 1 ! plot spans this number of columns + +Grid_plot_pad_left(1, 6) = 0.04 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 6) = 0.06 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 6) = -0.04 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 6) = 0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 6) = 0.6 ! multiply txt_scale for subplot by this !------------------------------------------------------------------------------------ -Profile_Panels3_win_flag = .false. +Profile_Panels_win_flag(3) = .false. -Profile_Panels3_title = '' +Profile_Panels_title(3) = '' -Profile_Panels3_num_panels = 5 +Profile_Panels_num_panels(3) = 5 -Profile_Panels3_yaxis_name(1) = 'Abundance' +Profile_Panels_yaxis_name(3, 1) = 'Abundance' -Profile_Panels3_yaxis_name(2) = 'Power' +Profile_Panels_yaxis_name(3, 2) = 'Power' -Profile_Panels3_yaxis_name(3) = 'Mixing' +Profile_Panels_yaxis_name(3, 3) = 'Mixing' Mixing_legend_txt_scale_factor = 0.9 -Profile_Panels3_yaxis_name(4) = 'logRho' -Profile_Panels3_other_yaxis_name(4) = 'v_div_cs' ! 'vel_km_per_s' ! 'entropy' -Profile_Panels3_other_dymin(4) = 0.14 +Profile_Panels_yaxis_name(3, 4) = 'logRho' +Profile_Panels_other_yaxis_name(3, 4) = 'v_div_cs' ! 'vel_km_per_s' ! 'entropy' +Profile_Panels_other_dymin(3, 4) = 0.14 -Profile_Panels3_yaxis_name(5) = 'logT' -Profile_Panels3_other_yaxis_name(5) = 'burn_num_iters' +Profile_Panels_yaxis_name(3, 5) = 'logT' +Profile_Panels_other_yaxis_name(3, 5) = 'burn_num_iters' ! x-axis limits and properties -Profile_Panels3_xaxis_name = 'mass' -Profile_Panels3_xmin = 0.0 -Profile_Panels3_xmax = -101d0 ! 2.2 -Profile_Panels3_xaxis_reversed = .false. +Profile_Panels_xaxis_name(3) = 'mass' +Profile_Panels_xmin(3) = 0.0 +Profile_Panels_xmax(3) = -101d0 ! 2.2 +Profile_Panels_xaxis_reversed(3) = .false. -Profile_Panels3_txt_scale = 0.7 +Profile_Panels_txt_scale(3) = 0.7 -!Profile_Panels3_xaxis_name = 'zone' -!Profile_Panels3_xmin = 800 -!Profile_Panels3_xmax = 1100 -!Profile_Panels3_xaxis_reversed = .true. +!Profile_Panels_xaxis_name(3) = 'zone' +!Profile_Panels_xmin(3) = 800 +!Profile_Panels_xmax(3) = 1100 +!Profile_Panels_xaxis_reversed(3) = .true. -!Profile_Panels3_show_grid = .true. -Profile_Panels3_show_mix_regions_on_xaxis = .true. +!Profile_Panels_show_grid(3) = .true. +Profile_Panels_show_mix_regions_on_xaxis(3) = .true. !------------------------------------------------------------------------------------ -!Profile_Panels1_win_flag = .true. -!Profile_Panels1_file_flag = .true. - Profile_Panels1_file_dir = 'png' - Profile_Panels1_file_prefix = 'profile_panels1_' - Profile_Panels1_file_interval = 1 - Profile_Panels1_file_width = -1 - Profile_Panels1_file_aspect_ratio = -1 +!Profile_Panels_win_flag(1) = .true. +!Profile_Panels_file_flag(1) = .true. -Profile_Panels1_title = '' +Profile_Panels_title(1) = '' -Profile_Panels1_txt_scale = 0.7 -Profile_Panels1_num_panels = 4 +Profile_Panels_txt_scale(1) = 0.7 +Profile_Panels_num_panels(1) = 4 -Profile_Panels1_yaxis_name(1) = 'logRho' -Profile_Panels1_dymin(1) = 0.14 -Profile_Panels1_other_yaxis_name(1) = 'logT' -Profile_Panels1_other_dymin(1) = 0.14 +Profile_Panels_yaxis_name(1, 1) = 'logRho' +Profile_Panels_dymin(1, 1) = 0.14 +Profile_Panels_other_yaxis_name(1, 1) = 'logT' +Profile_Panels_other_dymin(1, 1) = 0.14 -Profile_Panels1_yaxis_name(2) = 'entropy' -Profile_Panels1_other_yaxis_name(2) = 'pgas_div_p' +Profile_Panels_yaxis_name(1, 2) = 'entropy' +Profile_Panels_other_yaxis_name(1, 2) = 'pgas_div_p' -Profile_Panels1_yaxis_name(3) = 'gradT' -Profile_Panels1_other_yaxis_name(3) = 'grada' -Profile_Panels1_same_yaxis_range(3) = .true. -Profile_Panels1_other_dymin(3) = 0.08 +Profile_Panels_yaxis_name(1, 3) = 'gradT' +Profile_Panels_other_yaxis_name(1, 3) = 'grada' +Profile_Panels_same_yaxis_range(1, 3) = .true. +Profile_Panels_other_dymin(1, 3) = 0.08 -Profile_Panels1_yaxis_name(4) = 'log_opacity' -Profile_Panels1_dymin(1) = 0.14 -Profile_Panels1_other_yaxis_name(4) = 'gradr' -Profile_Panels1_other_dymin(1) = 0.14 +Profile_Panels_yaxis_name(1, 4) = 'log_opacity' +Profile_Panels_dymin(1, 1) = 0.14 +Profile_Panels_other_yaxis_name(1, 4) = 'gradr' +Profile_Panels_other_dymin(1, 1) = 0.14 ! x-axis limits and properties -Profile_Panels1_xaxis_name = 'logtau' -Profile_Panels1_xmin = -101d0 -Profile_Panels1_xmax = 8.1 -Profile_Panels1_xaxis_reversed = .true. +Profile_Panels_xaxis_name(1) = 'logtau' +Profile_Panels_xmin(1) = -101d0 +Profile_Panels_xmax(1) = 8.1 +Profile_Panels_xaxis_reversed(1) = .true. -!Profile_Panels1_xaxis_name = 'zone' -!Profile_Panels1_xmin = 15 -!Profile_Panels1_xmax = 270 -!Profile_Panels1_xaxis_reversed = .true. +!Profile_Panels_xaxis_name(1) = 'zone' +!Profile_Panels_xmin(1) = 15 +!Profile_Panels_xmax(1) = 270 +!Profile_Panels_xaxis_reversed(1) = .true. -!Profile_Panels1_show_grid = .true. -Profile_Panels1_show_mix_regions_on_xaxis = .true. +!Profile_Panels_show_grid(1) = .true. +Profile_Panels_show_mix_regions_on_xaxis(1) = .true. !------------------------------------------------------------------------------------ @@ -219,7 +200,7 @@ Profile_Panels1_show_mix_regions_on_xaxis = .true. !TRho_Profile_win_flag = .true. TRho_Profile_win_width = 8 TRho_Profile_win_aspect_ratio = 0.75 ! aspect_ratio = height/width - + ! file output !TRho_Profile_file_flag = .true. TRho_Profile_file_dir = 'TRho' @@ -227,17 +208,17 @@ TRho_Profile_file_prefix = 'trho_' TRho_Profile_file_interval = 10 ! output when `mod(model_number,TRho_Profile_file_interval)==0` TRho_Profile_file_width = -1 ! (inches) negative means use same value as for window TRho_Profile_file_aspect_ratio = -1 ! negative means use same value as for window - + TRho_Profile_xleft = 0.15 TRho_Profile_xright = 0.85 TRho_Profile_ybot = 0.15 TRho_Profile_ytop = 0.85 TRho_Profile_txt_scale = 0.7 -TRho_Profile_title = ' ' - -TRho_switch_to_Column_Depth = .false. +TRho_Profile_title = ' ' + +TRho_switch_to_Column_Depth = .false. TRho_switch_to_mass = .false. - + show_TRho_Profile_legend = .false. TRho_Profile_legend_coord = 0.07 TRho_Profile_legend_fjust = 0.0 @@ -251,7 +232,7 @@ show_TRho_Profile_text_info = .false. TRho_Profile_text_info_dxfac = 0.02 ! controls x spacing to value from text TRho_Profile_text_info_yfac = 0.6 ! controls y location of 1st line TRho_Profile_text_info_dyfac = -0.04 ! controls line spacing - + show_TRho_Profile_mass_locs = .false. show_TRho_accretion_mesh_borders = .false. show_TRho_Profile_kap_regions = .false. @@ -261,14 +242,14 @@ show_TRho_Profile_degeneracy_line = .true. show_TRho_Profile_Pgas_Prad_line = .true. show_TRho_Profile_burn_lines = .true. show_TRho_Profile_burn_labels = .true. - + ! axis limits TRho_Profile_xmin = -12.0 TRho_Profile_xmax = 10.0 TRho_Profile_ymin = 3.0 -TRho_Profile_ymax = 10.0 +TRho_Profile_ymax = 10.0 -! these are shown if show_TRho_Profile_mass_locs = .true. +! these are shown if show_TRho_Profile_mass_locs = .true. ! set all the entries profile_mass_point_q = -1 profile_mass_point_color_index = 1 @@ -277,8 +258,8 @@ profile_mass_point_symbol_scale = 1.7 profile_mass_point_str = '' profile_mass_point_str_clr = 1 profile_mass_point_str_scale = 1.0 - -! set defaults + +! set defaults num_profile_mass_points = 3 ! max is defined in star_def (max_num_profile_mass_points) profile_mass_point_q(1) = 0.5 @@ -286,13 +267,13 @@ profile_mass_point_color_index(1) = 1 profile_mass_point_symbol(1) = -6 profile_mass_point_str(1) = ' 0.5 M\d\(0844)\u' profile_mass_point_str_clr(1) = 1 - + profile_mass_point_q(2) = 0.95 profile_mass_point_color_index(2) = 1 profile_mass_point_symbol(2) = -6 profile_mass_point_str(2) = ' 0.95 M\d\(0844)\u' profile_mass_point_str_clr(3) = 1 - + profile_mass_point_q(3) = 0.999 profile_mass_point_color_index(3) = 1 profile_mass_point_symbol(3) = -6 @@ -304,57 +285,57 @@ profile_mass_point_str_clr(3) = 1 ! Text_Summary windows -Text_Summary1_win_flag = .false. -Text_Summary1_win_width = 10 -Text_Summary1_win_aspect_ratio = 0.15 - -Text_Summary1_xleft = 0.01 -Text_Summary1_xright = 0.99 -Text_Summary1_ybot = 0.0 -Text_Summary1_ytop = 1.0 -Text_Summary1_txt_scale = 0.95 -Text_Summary1_title = '' - -Text_Summary1_num_rows = 6 ! <= 20 -Text_Summary1_num_cols = 5 ! <= 20 -Text_Summary1_name(:,:) = '' - - -Text_Summary1_name(1,1) = 'model_number' -Text_Summary1_name(1,2) = 'log_dt' -Text_Summary1_name(1,3) = 'Mass' -Text_Summary1_name(1,4) = 'H_cntr' -Text_Summary1_name(1,5) = 'H_rich' - -Text_Summary1_name(2,1) = 'non_fe_core_infall' -Text_Summary1_name(2,2) = 'star_age' -Text_Summary1_name(2,3) = 'lg_Mdot' -Text_Summary1_name(2,4) = 'He_cntr' -Text_Summary1_name(2,5) = 'He_core' - -Text_Summary1_name(3,1) = 'fe_core_infall' -Text_Summary1_name(3,2) = 'gamma1_min' -Text_Summary1_name(3,3) = 'eta_cntr' -Text_Summary1_name(3,4) = 'C_cntr' -Text_Summary1_name(3,5) = 'CO_core' - -Text_Summary1_name(4,1) = 'log_max_T' -Text_Summary1_name(4,2) = 'log_LH' -Text_Summary1_name(4,3) = 'lg_Lnuc' -Text_Summary1_name(4,4) = 'O_cntr' -Text_Summary1_name(4,5) = 'Fe_core' - -Text_Summary1_name(5,1) = 'log_cntr_T' -Text_Summary1_name(5,2) = 'log_LHe' -Text_Summary1_name(5,3) = 'lg_Lneu' -Text_Summary1_name(5,4) = 'Ne_cntr' -Text_Summary1_name(5,5) = 'zones' - -Text_Summary1_name(6,1) = 'log_cntr_Rho' -Text_Summary1_name(6,2) = 'log_LZ' -Text_Summary1_name(6,3) = 'lg_Lphoto' -Text_Summary1_name(6,4) = 'Si_cntr' -Text_Summary1_name(6,5) = 'retries' +Text_Summary_win_flag(1) = .false. +Text_Summary_win_width(1) = 10 +Text_Summary_win_aspect_ratio(1) = 0.15 + +Text_Summary_xleft(1) = 0.01 +Text_Summary_xright(1) = 0.99 +Text_Summary_ybot(1) = 0.0 +Text_Summary_ytop(1) = 1.0 +Text_Summary_txt_scale(1) = 0.95 +Text_Summary_title(1) = '' + +Text_Summary_num_rows(1) = 6 ! <= 20 +Text_Summary_num_cols(1) = 5 ! <= 20 +Text_Summary_name(1, :, :) = '' + + +Text_Summary_name(1,1,1) = 'model_number' +Text_Summary_name(1,1,2) = 'log_dt' +Text_Summary_name(1,1,3) = 'Mass' +Text_Summary_name(1,1,4) = 'H_cntr' +Text_Summary_name(1,1,5) = 'H_rich' + +Text_Summary_name(1,2,1) = 'non_fe_core_infall' +Text_Summary_name(1,2,2) = 'star_age' +Text_Summary_name(1,2,3) = 'lg_Mdot' +Text_Summary_name(1,2,4) = 'He_cntr' +Text_Summary_name(1,2,5) = 'He_core' + +Text_Summary_name(1,3,1) = 'fe_core_infall' +Text_Summary_name(1,3,2) = 'gamma1_min' +Text_Summary_name(1,3,3) = 'eta_cntr' +Text_Summary_name(1,3,4) = 'C_cntr' +Text_Summary_name(1,3,5) = 'CO_core' + +Text_Summary_name(1,4,1) = 'log_max_T' +Text_Summary_name(1,4,2) = 'log_LH' +Text_Summary_name(1,4,3) = 'lg_Lnuc' +Text_Summary_name(1,4,4) = 'O_cntr' +Text_Summary_name(1,4,5) = 'Fe_core' + +Text_Summary_name(1,5,1) = 'log_cntr_T' +Text_Summary_name(1,5,2) = 'log_LHe' +Text_Summary_name(1,5,3) = 'lg_Lneu' +Text_Summary_name(1,5,4) = 'Ne_cntr' +Text_Summary_name(1,5,5) = 'zones' + +Text_Summary_name(1,6,1) = 'log_cntr_Rho' +Text_Summary_name(1,6,2) = 'log_LZ' +Text_Summary_name(1,6,3) = 'lg_Lphoto' +Text_Summary_name(1,6,4) = 'Si_cntr' +Text_Summary_name(1,6,5) = 'retries' !------------------------------------------------------------------------------------ @@ -366,7 +347,7 @@ Abundance_win_flag = .false. ! window properties Abundance_win_width = 10 Abundance_win_aspect_ratio = 0.75 - + Abundance_xleft = 0.15 Abundance_xright = 0.85 Abundance_ybot = 0.15 @@ -401,20 +382,20 @@ Abundance_which_isos_to_show(20) = 'neut' !Abundance_which_isos_to_show(22) = 'ne22' - + ! number and size of isotope labels along curves num_abundance_line_labels = 4 Abundance_line_txt_scale_factor = 1.1 -! number and size of isotopes on legend +! number and size of isotopes on legend Abundance_legend_max_cnt = 10 Abundance_legend_txt_scale_factor = 1.3 - -! yaxis limits -Abundance_log_mass_frac_min = -4!-6.4 ! -3.5 + +! yaxis limits +Abundance_log_mass_frac_min = -4!-6.4 ! -3.5 Abundance_log_mass_frac_max = 0.3 - + ! file output Abundance_file_flag = .false. Abundance_file_dir = 'Abundance' @@ -430,7 +411,7 @@ Abundance_file_aspect_ratio = -1 ! negative means use same value as for window Power_win_flag = .false. Power_win_width = 10 Power_win_aspect_ratio = 0.75 -Power_title = '' +Power_title = '' Power_xleft = 0.15 Power_xright = 0.85 @@ -459,8 +440,8 @@ Power_file_aspect_ratio = -1 ! negative means use same value as for window ! mixing plot -Mixing_xmin = 0.0 -Mixing_xmax = 1.6 ! -101d0 +Mixing_xmin = 0.0 +Mixing_xmax = 1.6 ! -101d0 Mixing_legend_txt_scale_factor = 1.4 ! relative to other text Mixing_show_rotation_details = .false. @@ -553,88 +534,81 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window !----------------------------------------------------------------------- - History_Panels1_title = '' + History_Panels_title(1) = '' - History_Panels1_xaxis_name = 'model_number' - History_Panels1_max_width = -1 + History_Panels_xaxis_name(1) = 'model_number' + History_Panels_max_width(1) = -1 - !History_Panels1_xaxis_name = 'star_age' - !History_Panels1_max_width = 10 + !History_Panels_xaxis_name(1) = 'star_age' + !History_Panels_max_width(1) = 10 - History_Panels1_txt_scale = 0.75 - History_Panels1_xmin = -101d0 - History_Panels1_xmax = -101d0 - History_Panels1_dxmin = -1 - History_Panels1_xaxis_reversed = .false. - History_Panels1_xaxis_log = .false. - History_Panels1_xmargin = 0.0 + History_Panels_txt_scale(1) = 0.75 + History_Panels_xmin(1) = -101d0 + History_Panels_xmax(1) = -101d0 + History_Panels_dxmin(1) = -1 + History_Panels_xaxis_reversed(1) = .false. + History_Panels_xaxis_log(1) = .false. + History_Panels_xmargin(1) = 0.0 ! :: - History_Panels1_num_panels = 4 + History_Panels_num_panels(1) = 4 ! :: - History_Panels1_yaxis_name(1) = 'log_L' - History_Panels1_yaxis_reversed(1) = .false. - History_Panels1_ymin(1) = -101d0 - History_Panels1_ymax(1) = -101d0 - History_Panels1_dymin(1) = 0.14 + History_Panels_yaxis_name(1, 1) = 'log_L' + History_Panels_yaxis_reversed(1, 1) = .false. + History_Panels_ymin(1, 1) = -101d0 + History_Panels_ymax(1, 1) = -101d0 + History_Panels_dymin(1, 1) = 0.14 ! :: - History_Panels1_other_yaxis_name(1) = 'log_Teff' - History_Panels1_other_yaxis_reversed(1) = .false. - History_Panels1_other_ymin(1) = -101d0 - History_Panels1_other_ymax(1) = -101d0 - History_Panels1_other_dymin(1) = 0.14 + History_Panels_other_yaxis_name(1, 1) = 'log_Teff' + History_Panels_other_yaxis_reversed(1, 1) = .false. + History_Panels_other_ymin(1, 1) = -101d0 + History_Panels_other_ymax(1, 1) = -101d0 + History_Panels_other_dymin(1, 1) = 0.14 ! :: - History_Panels1_yaxis_name(2) = 'lum_div_Ledd' - History_Panels1_yaxis_reversed(2) = .false. - History_Panels1_ymin(2) = -101d0 - History_Panels1_ymax(2) = -101d0 - History_Panels1_dymin(2) = 0.14 + History_Panels_yaxis_name(1, 2) = '' + History_Panels_yaxis_reversed(1, 2) = .false. + History_Panels_ymin(1, 2) = -101d0 + History_Panels_ymax(1, 2) = -101d0 + History_Panels_dymin(1, 2) = 0.14 ! :: - History_Panels1_other_yaxis_name(2) = 'log_max_T' ! 'v_surf_km_s' - History_Panels1_other_yaxis_reversed(2) = .false. - History_Panels1_other_ymin(2) = -101d0 - History_Panels1_other_ymax(2) = -101d0 - History_Panels1_other_dymin(2) = 0.14 + History_Panels_other_yaxis_name(1, 2) = 'log_max_T' ! 'v_surf_km_s' + History_Panels_other_yaxis_reversed(1, 2) = .false. + History_Panels_other_ymin(1, 2) = -101d0 + History_Panels_other_ymax(1, 2) = -101d0 + History_Panels_other_dymin(1, 2) = 0.14 ! :: - History_Panels1_yaxis_name(3) = 'radius' - History_Panels1_yaxis_reversed(3) = .false. - History_Panels1_ymin(3) = -101d0 - History_Panels1_ymax(3) = -101d0 - History_Panels1_dymin(3) = 0.14 - - ! :: + History_Panels_yaxis_name(1, 3) = 'log_R' + History_Panels_yaxis_reversed(1, 3) = .false. + History_Panels_ymin(1, 3) = -101d0 + History_Panels_ymax(1, 3) = -101d0 + History_Panels_dymin(1, 3) = 0.14 - History_Panels1_other_yaxis_name(3) = 'log_cntr_Rho' - History_Panels1_other_yaxis_reversed(3) = .false. - History_Panels1_other_ymin(3) = -101d0 - History_Panels1_other_ymax(3) = -101d0 - History_Panels1_other_dymin(3) = 0.14 ! :: - History_Panels1_yaxis_name(4) = '' - History_Panels1_yaxis_reversed(4) = .false. - History_Panels1_ymin(4) = -101d0 - History_Panels1_ymax(4) = -101d0 - History_Panels1_dymin(4) = 0.14 + History_Panels_other_yaxis_name(1, 3) = 'log_cntr_Rho' + History_Panels_other_yaxis_reversed(1, 3) = .false. + History_Panels_other_ymin(1, 3) = -101d0 + History_Panels_other_ymax(1, 3) = -101d0 + History_Panels_other_dymin(1, 3) = 0.14 ! :: - History_Panels1_other_yaxis_name(4) = 'log_dt' - History_Panels1_other_yaxis_reversed(4) = .false. - History_Panels1_other_ymin(4) = -101d0 - History_Panels1_other_ymax(4) = -101d0 - History_Panels1_other_dymin(4) = 0.14 + History_Panels_other_yaxis_name(1, 4) = 'log_dt' + History_Panels_other_yaxis_reversed(1, 4) = .false. + History_Panels_other_ymin(1, 4) = -101d0 + History_Panels_other_ymax(1, 4) = -101d0 + History_Panels_other_dymin(1, 4) = 0.14 !----------------------------------------------------------------------- diff --git a/star/test_suite/20M_pre_ms_to_core_collapse/inlist_remove_envelope b/star/test_suite/20M_pre_ms_to_core_collapse/inlist_remove_envelope index 6d787b9fe..29eba8174 100644 --- a/star/test_suite/20M_pre_ms_to_core_collapse/inlist_remove_envelope +++ b/star/test_suite/20M_pre_ms_to_core_collapse/inlist_remove_envelope @@ -67,9 +67,9 @@ &pgstar -Profile_Panels3_xmin = 0 ! 2.5 ! -101d0 -Profile_Panels3_xmax = -101d0 ! -Profile_Panels3_yaxis_name(4) = 'gamma1' +Profile_Panels_xmin(3) = 0 ! 2.5 ! -101d0 +Profile_Panels_xmax(3) = -101d0 ! +Profile_Panels_yaxis_name(3, 4) = 'gamma1' TRho_Profile_xmin = 2.0 TRho_Profile_xmax = 7.5 diff --git a/star/test_suite/20M_pre_ms_to_core_collapse/inlist_to_cc b/star/test_suite/20M_pre_ms_to_core_collapse/inlist_to_cc index a968a6c40..a24e882fa 100644 --- a/star/test_suite/20M_pre_ms_to_core_collapse/inlist_to_cc +++ b/star/test_suite/20M_pre_ms_to_core_collapse/inlist_to_cc @@ -107,20 +107,20 @@ ignore_too_large_correction = .true. ! for conv_vel's &pgstar -!Grid1_file_flag = .true. +!Grid_file_flag(1) = .true. !pause = .true. -Profile_Panels3_xaxis_name = 'mass' -Profile_Panels3_xmin = 0 ! -101d0 -Profile_Panels3_xmax = 5 ! -Profile_Panels3_xaxis_reversed = .false. +Profile_Panels_xaxis_name(3) = 'mass' +Profile_Panels_xmin(3) = 0 ! -101d0 +Profile_Panels_xmax(3) = 5 ! +Profile_Panels_xaxis_reversed(3) = .false. -Profile_Panels3_yaxis_name(4) = 'gamma1' -Profile_Panels3_dymin(4) = 0.14 -Profile_Panels3_other_yaxis_name(4) = 'vel_km_per_s' -Profile_Panels3_dymin(4) = 0.14 +Profile_Panels_yaxis_name(3, 4) = 'gamma1' +Profile_Panels_dymin(3, 4) = 0.14 +Profile_Panels_other_yaxis_name(3, 4) = 'vel_km_per_s' +Profile_Panels_dymin(3, 4) = 0.14 TRho_Profile_xmin = -15 !3.0 TRho_Profile_xmax = 10 @@ -132,7 +132,7 @@ TRho_logRho_min = 6d0 TRho_logRho_max = 10d0 TRho_logT_max = 10d0 -Text_Summary1_name(1,2) = 'time_step_sec' -Text_Summary1_name(2,2) = 'star_age_sec' +Text_Summary_name(1,1,2) = 'time_step_sec' +Text_Summary_name(1,2,2) = 'star_age_sec' / ! end of pgstar namelist diff --git a/star/test_suite/20M_pre_ms_to_core_collapse/inlist_to_end_core_c_burn b/star/test_suite/20M_pre_ms_to_core_collapse/inlist_to_end_core_c_burn index 49bf2a878..adbbf6c7a 100644 --- a/star/test_suite/20M_pre_ms_to_core_collapse/inlist_to_end_core_c_burn +++ b/star/test_suite/20M_pre_ms_to_core_collapse/inlist_to_end_core_c_burn @@ -67,8 +67,8 @@ &pgstar -Profile_Panels3_xmin = 0 ! 2.5 ! -101d0 -Profile_Panels3_xmax = -101d0 ! +Profile_Panels_xmin(3) = 0 ! 2.5 ! -101d0 +Profile_Panels_xmax(3) = -101d0 ! TRho_Profile_xmin = 2.5 TRho_Profile_xmax = 7.5 diff --git a/star/test_suite/20M_pre_ms_to_core_collapse/inlist_to_end_core_he_burn b/star/test_suite/20M_pre_ms_to_core_collapse/inlist_to_end_core_he_burn index aebe741cc..47b048c60 100644 --- a/star/test_suite/20M_pre_ms_to_core_collapse/inlist_to_end_core_he_burn +++ b/star/test_suite/20M_pre_ms_to_core_collapse/inlist_to_end_core_he_burn @@ -67,10 +67,10 @@ &pgstar !pause = .true. -Grid1_plot_name(3) = 'HR' -Profile_Panels3_xmin = -101d0 -Profile_Panels3_xmax = -101d0 -Profile_Panels3_other_yaxis_name(4) = 'entropy' +Grid_plot_name(1, 3) = 'HR' +Profile_Panels_xmin(3) = -101d0 +Profile_Panels_xmax(3) = -101d0 +Profile_Panels_other_yaxis_name(3, 4) = 'entropy' TRho_Profile_xmin = -15 TRho_Profile_xmax = 7.5 diff --git a/star/test_suite/20M_pre_ms_to_core_collapse/inlist_to_lgTmax b/star/test_suite/20M_pre_ms_to_core_collapse/inlist_to_lgTmax index 5d384c4a5..7fd45071e 100644 --- a/star/test_suite/20M_pre_ms_to_core_collapse/inlist_to_lgTmax +++ b/star/test_suite/20M_pre_ms_to_core_collapse/inlist_to_lgTmax @@ -76,9 +76,9 @@ TRho_logT_max = 10d0 !pause = .true. -Profile_Panels3_xmin = 0 ! -101d0 -Profile_Panels3_xmax = 5 ! -Profile_Panels3_other_yaxis_name(4) = 'vel_km_per_s' +Profile_Panels_xmin(3) = 0 ! -101d0 +Profile_Panels_xmax(3) = 5 ! +Profile_Panels_other_yaxis_name(3, 4) = 'vel_km_per_s' TRho_Profile_xmin = -12d0 TRho_Profile_ymin = 3.0d0 diff --git a/star/test_suite/20M_pre_ms_to_core_collapse/inlist_to_zams b/star/test_suite/20M_pre_ms_to_core_collapse/inlist_to_zams index b3bd5e068..4545a59c6 100644 --- a/star/test_suite/20M_pre_ms_to_core_collapse/inlist_to_zams +++ b/star/test_suite/20M_pre_ms_to_core_collapse/inlist_to_zams @@ -75,14 +75,14 @@ !pause = .true. -Grid1_plot_name(3) = 'HR' -Profile_Panels3_xmin = -101d0 -Profile_Panels3_xmax = -101d0 -Profile_Panels3_other_yaxis_name(4) = 'entropy' - -!Profile_Panels3_xaxis_name = 'zone' -!Profile_Panels3_xmin = 48 -!Profile_Panels3_xmax = 58 -!Profile_Panels3_xaxis_reversed = .true. +Grid_plot_name(1, 3) = 'HR' +Profile_Panels_xmin(3) = -101d0 +Profile_Panels_xmax(3) = -101d0 +Profile_Panels_other_yaxis_name(3, 4) = 'entropy' + +!Profile_Panels_xaxis_name(3) = 'zone' +!Profile_Panels_xmin(3) = 48 +!Profile_Panels_xmax(3) = 58 +!Profile_Panels_xaxis_reversed(3) = .true. / ! end of pgstar namelist diff --git a/star/test_suite/20M_z2m2_high_rotation/README.rst b/star/test_suite/20M_z2m2_high_rotation/README.rst index 93b9aefde..73afedc77 100644 --- a/star/test_suite/20M_z2m2_high_rotation/README.rst +++ b/star/test_suite/20M_z2m2_high_rotation/README.rst @@ -36,150 +36,150 @@ pgstar commands used for the plots above: !------------------------------------------------------------------------------------ - Grid1_win_flag = .true. - Grid1_win_width = 15 - Grid1_win_aspect_ratio = 0.666 + Grid_win_flag(1) = .true. + Grid_win_width(1) = 15 + Grid_win_aspect_ratio(1) = 0.666 ! file output - Grid1_file_flag = .true. - Grid1_file_dir = 'png' - Grid1_file_prefix = 'grid1_' - Grid1_file_interval = 10 ! output when mod(model_number,Grid1_file_interval)==0 - Grid1_file_width = 15 ! (inches) negative means use same value as for window - Grid1_file_aspect_ratio = -1 ! negative means use same value as for window + Grid_file_flag(1) = .true. + Grid_file_dir(1) = 'png' + Grid_file_prefix(1) = 'grid1_' + Grid_file_interval(1) = 10 ! output when mod(model_number,Grid_file_interval(1))==0 + Grid_file_width(1) = 15 ! (inches) negative means use same value as for window + Grid_file_aspect_ratio(1) = -1 ! negative means use same value as for window ! reset the defaults - Grid1_plot_name(:) = '' - Grid1_plot_row(:) = 1 ! number from 1 at top - Grid1_plot_rowspan(:) = 1 ! plot spans this number of rows - Grid1_plot_col(:) = 1 ! number from 1 at left - Grid1_plot_colspan(:) = 1 ! plot spans this number of columns - Grid1_plot_pad_left(:) = 0.0 ! fraction of full window width for padding on left - Grid1_plot_pad_right(:) = 0.0 ! fraction of full window width for padding on right - Grid1_plot_pad_top(:) = 0.0 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(:) = 0.0 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(:) = 0.7 ! multiply txt_scale for subplot by this + Grid_plot_name(1, :) = '' + Grid_plot_row(1, :) = 1 ! number from 1 at top + Grid_plot_rowspan(1, :) = 1 ! plot spans this number of rows + Grid_plot_col(1, :) = 1 ! number from 1 at left + Grid_plot_colspan(1, :) = 1 ! plot spans this number of columns + Grid_plot_pad_left(1, :) = 0.0 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, :) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, :) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, :) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, :) = 0.7 ! multiply txt_scale for subplot by this - Grid1_title = '' + Grid_title(1) = '' - Grid1_num_cols = 3 ! divide plotting region into this many equal width cols - Grid1_num_rows = 5 ! divide plotting region into this many equal height rows - Grid1_num_plots = 6 ! <= 10 + Grid_num_cols(1) = 3 ! divide plotting region into this many equal width cols + Grid_num_rows(1) = 5 ! divide plotting region into this many equal height rows + Grid_num_plots(1) = 6 ! <= 10 - Grid1_plot_name(1) = 'Text_Summary1' - Grid1_plot_row(1) = 1 ! number from 1 at top - Grid1_plot_rowspan(1) = 1 ! plot spans this number of rows - Grid1_plot_col(1) = 1 ! number from 1 at left - Grid1_plot_colspan(1) = 3 ! plot spans this number of columns + Grid_plot_name(1, 1) = 'Text_Summary1' + Grid_plot_row(1, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(1, 1) = 1 ! plot spans this number of rows + Grid_plot_col(1, 1) = 1 ! number from 1 at left + Grid_plot_colspan(1, 1) = 3 ! plot spans this number of columns - Grid1_plot_pad_left(1) = -0.03 ! fraction of full window width for padding on left - Grid1_plot_pad_right(1) = 0.0 ! fraction of full window width for padding on right - Grid1_plot_pad_top(1) = -0.06 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(1) = 0.07 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(1) = 1 ! 0.8 ! multiply txt_scale for subplot by this + Grid_plot_pad_left(1, 1) = -0.03 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 1) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 1) = -0.06 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 1) = 0.07 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 1) = 1 ! 0.8 ! multiply txt_scale for subplot by this - Grid1_plot_name(2) = 'TRho_Profile' - Grid1_plot_row(2) = 2 ! number from 1 at top - Grid1_plot_rowspan(2) = 2 ! plot spans this number of rows - Grid1_plot_col(2) = 2 ! number from 1 at left - Grid1_plot_colspan(2) = 1 ! plot spans this number of columns + Grid_plot_name(1, 2) = 'TRho_Profile' + Grid_plot_row(1, 2) = 2 ! number from 1 at top + Grid_plot_rowspan(1, 2) = 2 ! plot spans this number of rows + Grid_plot_col(1, 2) = 2 ! number from 1 at left + Grid_plot_colspan(1, 2) = 1 ! plot spans this number of columns - Grid1_plot_pad_left(2) = -0.01 ! fraction of full window width for padding on left - Grid1_plot_pad_right(2) = 0.06 ! fraction of full window width for padding on right - Grid1_plot_pad_top(2) = -0.04 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(2) = 0.01 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(2) = 0.8 ! multiply txt_scale for subplot by this + Grid_plot_pad_left(1, 2) = -0.01 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 2) = 0.06 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 2) = -0.04 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 2) = 0.01 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 2) = 0.8 ! multiply txt_scale for subplot by this - Grid1_plot_name(4) = 'Kipp' - Grid1_plot_row(4) = 4 ! number from 1 at top - Grid1_plot_rowspan(4) = 2 ! plot spans this number of rows - Grid1_plot_col(4) = 2 ! number from 1 at left - Grid1_plot_colspan(4) = 1 ! plot spans this number of columns + Grid_plot_name(1, 4) = 'Kipp' + Grid_plot_row(1, 4) = 4 ! number from 1 at top + Grid_plot_rowspan(1, 4) = 2 ! plot spans this number of rows + Grid_plot_col(1, 4) = 2 ! number from 1 at left + Grid_plot_colspan(1, 4) = 1 ! plot spans this number of columns - Grid1_plot_pad_left(4) = -0.01 ! fraction of full window width for padding on left - Grid1_plot_pad_right(4) = 0.06 ! fraction of full window width for padding on right - Grid1_plot_pad_top(4) = 0.05 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(4) = 0.0 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(4) = 0.6 ! multiply txt_scale for subplot by this + Grid_plot_pad_left(1, 4) = -0.01 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 4) = 0.06 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 4) = 0.05 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 4) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 4) = 0.6 ! multiply txt_scale for subplot by this - Grid1_plot_name(3) = 'HR' - Grid1_plot_row(3) = 2 ! number from 1 at top - Grid1_plot_rowspan(3) = 2 ! plot spans this number of rows - Grid1_plot_col(3) = 1 ! number from 1 at left - Grid1_plot_colspan(3) = 1 ! plot spans this number of columns + Grid_plot_name(1, 3) = 'HR' + Grid_plot_row(1, 3) = 2 ! number from 1 at top + Grid_plot_rowspan(1, 3) = 2 ! plot spans this number of rows + Grid_plot_col(1, 3) = 1 ! number from 1 at left + Grid_plot_colspan(1, 3) = 1 ! plot spans this number of columns - Grid1_plot_pad_left(3) = 0.00 ! fraction of full window width for padding on left - Grid1_plot_pad_right(3) = 0.08 ! fraction of full window width for padding on right - Grid1_plot_pad_top(3) = -0.04 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(3) = 0.03 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(3) = 1.0 ! multiply txt_scale for subplot by this + Grid_plot_pad_left(1, 3) = 0.00 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 3) = 0.08 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 3) = -0.04 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 3) = 0.03 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 3) = 1.0 ! multiply txt_scale for subplot by this - Grid1_plot_name(5) = 'TRho' - Grid1_plot_row(5) = 4 ! number from 1 at top - Grid1_plot_rowspan(5) = 2 ! plot spans this number of rows - Grid1_plot_col(5) = 1 ! number from 1 at left - Grid1_plot_colspan(5) = 1 ! plot spans this number of columns + Grid_plot_name(1, 5) = 'TRho' + Grid_plot_row(1, 5) = 4 ! number from 1 at top + Grid_plot_rowspan(1, 5) = 2 ! plot spans this number of rows + Grid_plot_col(1, 5) = 1 ! number from 1 at left + Grid_plot_colspan(1, 5) = 1 ! plot spans this number of columns - Grid1_plot_pad_left(5) = 0.00 ! fraction of full window width for padding on left - Grid1_plot_pad_right(5) = 0.08 ! fraction of full window width for padding on right - Grid1_plot_pad_top(5) = 0.05 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(5) = 0 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(5) = 0.7 ! multiply txt_scale for subplot by this + Grid_plot_pad_left(1, 5) = 0.00 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 5) = 0.08 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 5) = 0.05 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 5) = 0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 5) = 0.7 ! multiply txt_scale for subplot by this - Grid1_plot_name(6) = 'Profile_Panels3' - Grid1_plot_row(6) = 2 ! number from 1 at top - Grid1_plot_rowspan(6) = 4 ! plot spans this number of rows - Grid1_plot_col(6) = 3 ! Number from 1 at left - Grid1_plot_colspan(6) = 1 ! plot spans this number of columns + Grid_plot_name(1, 6) = 'Profile_Panels3' + Grid_plot_row(1, 6) = 2 ! number from 1 at top + Grid_plot_rowspan(1, 6) = 4 ! plot spans this number of rows + Grid_plot_col(1, 6) = 3 ! Number from 1 at left + Grid_plot_colspan(1, 6) = 1 ! plot spans this number of columns - Grid1_plot_pad_left(6) = 0.04 ! fraction of full window width for padding on left - Grid1_plot_pad_right(6) = 0.06 ! fraction of full window width for padding on right - Grid1_plot_pad_top(6) = -0.04 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(6) = 0 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(6) = 0.7 ! multiply txt_scale for subplot by this + Grid_plot_pad_left(1, 6) = 0.04 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 6) = 0.06 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 6) = -0.04 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 6) = 0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 6) = 0.7 ! multiply txt_scale for subplot by this !------------------------------------------------------------------------------------ - Profile_Panels3_win_flag = .false. + Profile_Panels_win_flag(3) = .false. - Profile_Panels3_title = '' + Profile_Panels_title(3) = '' - Profile_Panels3_num_panels = 3 + Profile_Panels_num_panels(3) = 3 - Profile_Panels3_yaxis_name(1) = 'Abundance' + Profile_Panels_yaxis_name(3, 1) = 'Abundance' - Profile_Panels3_yaxis_name(2) = 'Power' + Profile_Panels_yaxis_name(3, 2) = 'Power' - Profile_Panels3_yaxis_name(3) = 'Mixing' + Profile_Panels_yaxis_name(3, 3) = 'Mixing' Mixing_legend_txt_scale_factor = 0.9 - !Profile_Panels3_yaxis_name(4) = '' ! 'logT' - !Profile_Panels3_other_yaxis_name(4) = '' ! 'zone' - !Profile_Panels3_other_ymin(4) = -101d0 - !Profile_Panels3_other_ymax(4) = -101d0 + !Profile_Panels_yaxis_name(3, 4) = '' ! 'logT' + !Profile_Panels_other_yaxis_name(3, 4) = '' ! 'zone' + !Profile_Panels_other_ymin(3, 4) = -101d0 + !Profile_Panels_other_ymax(3, 4) = -101d0 - !Profile_Panels3_yaxis_name(5) = '' - !Profile_Panels3_other_yaxis_name(5) = '' - !Profile_Panels3_other_ymin(5) = -101d0 - !Profile_Panels3_other_ymax(5) = -101d0 + !Profile_Panels_yaxis_name(3, 5) = '' + !Profile_Panels_other_yaxis_name(3, 5) = '' + !Profile_Panels_other_ymin(3, 5) = -101d0 + !Profile_Panels_other_ymax(3, 5) = -101d0 ! x-axis limits and properties - Profile_Panels3_xaxis_name = 'mass' - Profile_Panels3_xmin = 0.0 - Profile_Panels3_xmax = 10.0 - Profile_Panels3_xaxis_reversed = .false. + Profile_Panels_xaxis_name(3) = 'mass' + Profile_Panels_xmin(3) = 0.0 + Profile_Panels_xmax(3) = 10.0 + Profile_Panels_xaxis_reversed(3) = .false. - Profile_Panels3_show_grid = .true. - Profile_Panels3_show_mix_regions_on_xaxis = .true. + Profile_Panels_show_grid(3) = .true. + Profile_Panels_show_mix_regions_on_xaxis(3) = .true. !------------------------------------------------------------------------------------ @@ -271,56 +271,56 @@ pgstar commands used for the plots above: ! Text_Summary windows - Text_Summary1_win_flag = .false. - Text_Summary1_win_width = 10 - Text_Summary1_win_aspect_ratio = 0.15 - - Text_Summary1_xleft = 0.01 - Text_Summary1_xright = 0.99 - Text_Summary1_ybot = 0.0 - Text_Summary1_ytop = 1.0 - Text_Summary1_txt_scale = 0.95 - Text_Summary1_title = '' - - Text_Summary1_num_rows = 6 ! <= 20 - Text_Summary1_num_cols = 5 ! <= 20 - Text_Summary1_name(:,:) = '' - - Text_Summary1_name(1,1) = 'model_number' - Text_Summary1_name(1,2) = 'Teff' - Text_Summary1_name(1,3) = 'Mass' - Text_Summary1_name(1,4) = 'H_cntr' - Text_Summary1_name(1,5) = 'H_rich' - - Text_Summary1_name(2,1) = 'log_dt' - Text_Summary1_name(2,2) = 'log_R' - Text_Summary1_name(2,3) = 'lg_Mdot' - Text_Summary1_name(2,4) = 'He_cntr' - Text_Summary1_name(2,5) = 'He_core' - - Text_Summary1_name(3,1) = 'star_age' - Text_Summary1_name(3,2) = 'log_L' - Text_Summary1_name(3,3) = 'eta_cntr' - Text_Summary1_name(3,4) = 'C_cntr' - Text_Summary1_name(3,5) = 'CO_core' - - Text_Summary1_name(4,1) = 'log_max_T' - Text_Summary1_name(4,2) = 'log_LH' - Text_Summary1_name(4,3) = 'lg_Lnuc' - Text_Summary1_name(4,4) = 'O_cntr' - Text_Summary1_name(4,5) = 'Fe_core' - - Text_Summary1_name(5,1) = 'log_cntr_T' - Text_Summary1_name(5,2) = 'log_LHe' - Text_Summary1_name(5,3) = 'lg_Lneu' - Text_Summary1_name(5,4) = 'Ne_cntr' - Text_Summary1_name(5,5) = 'zones' - - Text_Summary1_name(6,1) = 'log_cntr_Rho' - Text_Summary1_name(6,2) = 'log_LZ' - Text_Summary1_name(6,3) = 'lg_Lphoto' - Text_Summary1_name(6,4) = 'Si_cntr' - Text_Summary1_name(6,5) = 'retries' + Text_Summary_win_flag(1) = .false. + Text_Summary_win_width(1) = 10 + Text_Summary_win_aspect_ratio(1) = 0.15 + + Text_Summary_xleft(1) = 0.01 + Text_Summary_xright(1) = 0.99 + Text_Summary_ybot(1) = 0.0 + Text_Summary_ytop(1) = 1.0 + Text_Summary_txt_scale(1) = 0.95 + Text_Summary_title(1) = '' + + Text_Summary_num_rows(1) = 6 ! <= 20 + Text_Summary_num_cols(1) = 5 ! <= 20 + Text_Summary_name(1, :, :) = '' + + Text_Summary_name(1, 1, 1) = 'model_number' + Text_Summary_name(1, 1, 2) = 'Teff' + Text_Summary_name(1, 1, 3) = 'Mass' + Text_Summary_name(1, 1, 4) = 'H_cntr' + Text_Summary_name(1, 1, 5) = 'H_rich' + + Text_Summary_name(1, 2, 1) = 'log_dt' + Text_Summary_name(1, 2, 2) = 'log_R' + Text_Summary_name(1, 2, 3) = 'lg_Mdot' + Text_Summary_name(1, 2, 4) = 'He_cntr' + Text_Summary_name(1, 2, 5) = 'He_core' + + Text_Summary_name(1, 3, 1) = 'star_age' + Text_Summary_name(1, 3, 2) = 'log_L' + Text_Summary_name(1, 3, 3) = 'eta_cntr' + Text_Summary_name(1, 3, 4) = 'C_cntr' + Text_Summary_name(1, 3, 5) = 'CO_core' + + Text_Summary_name(1, 4, 1) = 'log_max_T' + Text_Summary_name(1, 4, 2) = 'log_LH' + Text_Summary_name(1, 4, 3) = 'lg_Lnuc' + Text_Summary_name(1, 4, 4) = 'O_cntr' + Text_Summary_name(1, 4, 5) = 'Fe_core' + + Text_Summary_name(1, 5, 1) = 'log_cntr_T' + Text_Summary_name(1, 5, 2) = 'log_LHe' + Text_Summary_name(1, 5, 3) = 'lg_Lneu' + Text_Summary_name(1, 5, 4) = 'Ne_cntr' + Text_Summary_name(1, 5, 5) = 'zones' + + Text_Summary_name(1, 6, 1) = 'log_cntr_Rho' + Text_Summary_name(1, 6, 2) = 'log_LZ' + Text_Summary_name(1, 6, 3) = 'lg_Lphoto' + Text_Summary_name(1, 6, 4) = 'Si_cntr' + Text_Summary_name(1, 6, 5) = 'retries' !------------------------------------------------------------------------------------ diff --git a/star/test_suite/20M_z2m2_high_rotation/inlist_pgstar b/star/test_suite/20M_z2m2_high_rotation/inlist_pgstar index 1e79608fd..d78c10edb 100644 --- a/star/test_suite/20M_z2m2_high_rotation/inlist_pgstar +++ b/star/test_suite/20M_z2m2_high_rotation/inlist_pgstar @@ -1,4 +1,3 @@ - &pgstar !pause = .true. @@ -15,150 +14,184 @@ pgstar_show_age = .false. !------------------------------------------------------------------------------------ -Grid1_win_flag = .true. -Grid1_win_width = 10 -Grid1_win_aspect_ratio = 0.666 +Grid_win_flag(1) = .true. +Grid_win_width(1) = 10 +Grid_win_aspect_ratio(1) = 0.666 ! file output -Grid1_file_flag = .false. -Grid1_file_dir = 'png' -Grid1_file_prefix = 'pre_ms_to_cc_' -Grid1_file_interval = 10 ! output when mod(model_number,Grid1_file_interval)==0 -Grid1_file_width = -1 ! (inches) negative means use same value as for window -Grid1_file_aspect_ratio = -1 ! negative means use same value as for window - -! reset the defaults - -Grid1_plot_name(:) = '' -Grid1_plot_row(:) = 1 ! number from 1 at top -Grid1_plot_rowspan(:) = 1 ! plot spans this number of rows -Grid1_plot_col(:) = 1 ! number from 1 at left -Grid1_plot_colspan(:) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(:) = 0.0 ! fraction of full window width for padding on left -Grid1_plot_pad_right(:) = 0.0 ! fraction of full window width for padding on right -Grid1_plot_pad_top(:) = 0.0 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(:) = 0.0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(:) = 0.7 ! multiply txt_scale for subplot by this - - -Grid1_title = '' - -Grid1_num_cols = 3 ! divide plotting region into this many equal width cols -Grid1_num_rows = 5 ! divide plotting region into this many equal height rows -Grid1_num_plots = 6 ! <= 10 - - -Grid1_plot_name(1) = 'Text_Summary1' -Grid1_plot_row(1) = 1 ! number from 1 at top -Grid1_plot_rowspan(1) = 1 ! plot spans this number of rows -Grid1_plot_col(1) = 1 ! number from 1 at left -Grid1_plot_colspan(1) = 3 ! plot spans this number of columns - -Grid1_plot_pad_left(1) = -0.03 ! fraction of full window width for padding on left -Grid1_plot_pad_right(1) = 0.0 ! fraction of full window width for padding on right -Grid1_plot_pad_top(1) = -0.06 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(1) = 0.07 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(1) = 1 ! 0.8 ! multiply txt_scale for subplot by this - - -Grid1_plot_name(2) = 'TRho_Profile' -Grid1_plot_row(2) = 2 ! number from 1 at top -Grid1_plot_rowspan(2) = 2 ! plot spans this number of rows -Grid1_plot_col(2) = 2 ! number from 1 at left -Grid1_plot_colspan(2) = 1 ! plot spans this number of columns - -Grid1_plot_pad_left(2) = -0.01 ! fraction of full window width for padding on left -Grid1_plot_pad_right(2) = 0.06 ! fraction of full window width for padding on right -Grid1_plot_pad_top(2) = -0.04 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(2) = 0.01 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(2) = 0.8 ! multiply txt_scale for subplot by this - - -Grid1_plot_name(4) = 'Kipp' -Grid1_plot_row(4) = 4 ! number from 1 at top -Grid1_plot_rowspan(4) = 2 ! plot spans this number of rows -Grid1_plot_col(4) = 2 ! number from 1 at left -Grid1_plot_colspan(4) = 1 ! plot spans this number of columns - -Grid1_plot_pad_left(4) = -0.01 ! fraction of full window width for padding on left -Grid1_plot_pad_right(4) = 0.06 ! fraction of full window width for padding on right -Grid1_plot_pad_top(4) = 0.05 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(4) = 0.0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(4) = 0.6 ! multiply txt_scale for subplot by this - - -Grid1_plot_name(3) = 'HR' -Grid1_plot_row(3) = 2 ! number from 1 at top -Grid1_plot_rowspan(3) = 2 ! plot spans this number of rows -Grid1_plot_col(3) = 1 ! number from 1 at left -Grid1_plot_colspan(3) = 1 ! plot spans this number of columns - -Grid1_plot_pad_left(3) = 0.00 ! fraction of full window width for padding on left -Grid1_plot_pad_right(3) = 0.08 ! fraction of full window width for padding on right -Grid1_plot_pad_top(3) = -0.04 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(3) = 0.03 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(3) = 1.0 ! multiply txt_scale for subplot by this - - -Grid1_plot_name(5) = 'TRho' -Grid1_plot_row(5) = 4 ! number from 1 at top -Grid1_plot_rowspan(5) = 2 ! plot spans this number of rows -Grid1_plot_col(5) = 1 ! number from 1 at left -Grid1_plot_colspan(5) = 1 ! plot spans this number of columns - -Grid1_plot_pad_left(5) = 0.00 ! fraction of full window width for padding on left -Grid1_plot_pad_right(5) = 0.08 ! fraction of full window width for padding on right -Grid1_plot_pad_top(5) = 0.05 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(5) = 0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(5) = 0.7 ! multiply txt_scale for subplot by this - - -Grid1_plot_name(6) = 'Profile_Panels3' -Grid1_plot_row(6) = 2 ! number from 1 at top -Grid1_plot_rowspan(6) = 4 ! plot spans this number of rows -Grid1_plot_col(6) = 3 ! Number from 1 at left -Grid1_plot_colspan(6) = 1 ! plot spans this number of columns - -Grid1_plot_pad_left(6) = 0.04 ! fraction of full window width for padding on left -Grid1_plot_pad_right(6) = 0.06 ! fraction of full window width for padding on right -Grid1_plot_pad_top(6) = -0.04 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(6) = 0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(6) = 0.7 ! multiply txt_scale for subplot by this +Grid_file_flag(1) = .false. +Grid_file_dir(1) = 'png' +Grid_file_prefix(1) = 'pre_ms_to_cc_' +Grid_file_interval(1) = 10 ! output when mod(model_number,Grid_file_interval(1))==0 +Grid_file_width(1) = -1 ! (inches) negative means use same value as for window +Grid_file_aspect_ratio(1) = -1 ! negative means use same value as for window + +Grid_title(1) = '' + +Grid_num_cols(1) = 3 ! divide plotting region into this many equal width cols +Grid_num_rows(1) = 5 ! divide plotting region into this many equal height rows +Grid_num_plots(1) = 6 ! <= 10 + + +Grid_plot_name(1, 1) = 'Text_Summary(1)' +Grid_plot_row(1, 1) = 1 ! number from 1 at top +Grid_plot_rowspan(1, 1) = 1 ! plot spans this number of rows +Grid_plot_col(1, 1) = 1 ! number from 1 at left +Grid_plot_colspan(1, 1) = 3 ! plot spans this number of columns + +Grid_plot_pad_left(1, 1) = -0.03 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 1) = 0.0 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 1) = -0.06 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 1) = 0.07 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 1) = 1 ! 0.8 ! multiply txt_scale for subplot by this + + +Grid_plot_name(1, 3) = 'TRho' +Grid_plot_row(1, 3) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 3) = 1 ! plot spans this number of rows +Grid_plot_col(1, 3) = 1 ! number from 1 at left +Grid_plot_colspan(1, 3) = 1 ! plot spans this number of columns + +Grid_plot_pad_left(1, 3) = 0.00 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 3) = 0.08 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 3) = -0.04 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 3) = 0.01 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 3) = 0.7 ! multiply txt_scale for subplot by this + + +Grid_plot_name(1, 5) = 'Profile_Panels(1)' +Grid_plot_row(1, 5) = 3 ! number from 1 at top +Grid_plot_rowspan(1, 5) = 3 ! plot spans this number of rows +Grid_plot_col(1, 5) = 1 ! number from 1 at left +Grid_plot_colspan(1, 5) = 1 ! plot spans this number of columns + +Grid_plot_pad_left(1, 5) = 0.00 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 5) = 0.10 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 5) = 0.05 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 5) = 0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 5) = 0.6 ! multiply txt_scale for subplot by this + + +Grid_plot_name(1, 2) = 'TRho_Profile' +Grid_plot_row(1, 2) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 2) = 1 ! plot spans this number of rows +Grid_plot_col(1, 2) = 2 ! number from 1 at left +Grid_plot_colspan(1, 2) = 1 ! plot spans this number of columns + +Grid_plot_pad_left(1, 2) = -0.01 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 2) = 0.06 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 2) = -0.04 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 2) = 0.01 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 2) = 0.7 ! multiply txt_scale for subplot by this + + +Grid_plot_name(1, 4) = 'History_Panels(1)' +Grid_plot_row(1, 4) = 3 ! number from 1 at top +Grid_plot_rowspan(1, 4) = 3 ! plot spans this number of rows +Grid_plot_col(1, 4) = 2 ! number from 1 at left +Grid_plot_colspan(1, 4) = 1 ! plot spans this number of columns + +Grid_plot_pad_left(1 ,4) = 0.00 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 4) = 0.06 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 4) = 0.05 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 4) = 0.0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 4) = 0.6 ! multiply txt_scale for subplot by this + + +Grid_plot_name(1, 6) = 'Profile_Panels(3)' +Grid_plot_row(1, 6) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 6) = 4 ! plot spans this number of rows +Grid_plot_col(1, 6) = 3 ! Number from 1 at left +Grid_plot_colspan(1, 6) = 1 ! plot spans this number of columns + +Grid_plot_pad_left(1, 6) = 0.04 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 6) = 0.06 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 6) = -0.04 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 6) = 0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 6) = 0.6 ! multiply txt_scale for subplot by this !------------------------------------------------------------------------------------ -Profile_Panels3_win_flag = .false. +Profile_Panels_win_flag(3) = .false. -Profile_Panels3_title = '' +Profile_Panels_title(3) = '' -Profile_Panels3_num_panels = 4 +Profile_Panels_num_panels(3) = 5 -Profile_Panels3_yaxis_name(1) = 'Abundance' +Profile_Panels_yaxis_name(3, 1) = 'Abundance' -Profile_Panels3_yaxis_name(2) = 'Power' +Profile_Panels_yaxis_name(3, 2) = 'Power' -Profile_Panels3_yaxis_name(3) = 'Mixing' +Profile_Panels_yaxis_name(3, 3) = 'Mixing' Mixing_legend_txt_scale_factor = 0.9 -Profile_Panels3_yaxis_name(4) = 'logT' -Profile_Panels3_other_yaxis_name(4) = 'zone' -Profile_Panels3_other_ymin(4) = -101d0 -Profile_Panels3_other_ymax(4) = -101d0 +Profile_Panels_yaxis_name(3, 4) = 'logRho' +Profile_Panels_other_yaxis_name(3, 4) = 'v_div_cs' ! 'vel_km_per_s' ! 'entropy' +Profile_Panels_other_dymin(3, 4) = 0.14 -Profile_Panels3_yaxis_name(5) = '' -Profile_Panels3_other_yaxis_name(5) = '' -Profile_Panels3_other_ymin(5) = -101d0 -Profile_Panels3_other_ymax(5) = -101d0 +Profile_Panels_yaxis_name(3, 5) = 'logT' +Profile_Panels_other_yaxis_name(3, 5) = 'burn_num_iters' ! x-axis limits and properties -Profile_Panels3_xaxis_name = 'mass' -Profile_Panels3_xmin = 0.0 -Profile_Panels3_xmax = 2.0 -Profile_Panels3_xaxis_reversed = .false. +Profile_Panels_xaxis_name(3) = 'mass' +Profile_Panels_xmin(3) = 0.0 +Profile_Panels_xmax(3) = -101d0 ! 2.2 +Profile_Panels_xaxis_reversed(3) = .false. + + +Profile_Panels_txt_scale(3) = 0.7 + +!Profile_Panels_xaxis_name(3) = 'zone' +!Profile_Panels_xmin(3) = 800 +!Profile_Panels_xmax(3) = 1100 +!Profile_Panels_xaxis_reversed(3) = .true. -Profile_Panels3_show_grid = .true. -Profile_Panels3_show_mix_regions_on_xaxis = .true. +!Profile_Panels_show_grid(3) = .true. +Profile_Panels_show_mix_regions_on_xaxis(3) = .true. + +!------------------------------------------------------------------------------------ + +!Profile_Panels_win_flag(1) = .true. +!Profile_Panels_file_flag(1) = .true. + +Profile_Panels_title(1) = '' + +Profile_Panels_txt_scale(1) = 0.7 +Profile_Panels_num_panels(1) = 4 + +Profile_Panels_yaxis_name(1, 1) = 'logRho' +Profile_Panels_dymin(1, 1) = 0.14 +Profile_Panels_other_yaxis_name(1, 1) = 'logT' +Profile_Panels_other_dymin(1, 1) = 0.14 + +Profile_Panels_yaxis_name(1, 2) = 'entropy' +Profile_Panels_other_yaxis_name(1, 2) = 'pgas_div_p' + +Profile_Panels_yaxis_name(1, 3) = 'gradT' +Profile_Panels_other_yaxis_name(1, 3) = 'grada' +Profile_Panels_same_yaxis_range(1, 3) = .true. +Profile_Panels_other_dymin(1, 3) = 0.08 + + +Profile_Panels_yaxis_name(1, 4) = 'log_opacity' +Profile_Panels_dymin(1, 1) = 0.14 +Profile_Panels_other_yaxis_name(1, 4) = 'gradr' +Profile_Panels_other_dymin(1, 1) = 0.14 + +! x-axis limits and properties +Profile_Panels_xaxis_name(1) = 'logtau' +Profile_Panels_xmin(1) = -101d0 +Profile_Panels_xmax(1) = 8.1 +Profile_Panels_xaxis_reversed(1) = .true. + +!Profile_Panels_xaxis_name(1) = 'zone' +!Profile_Panels_xmin(1) = 15 +!Profile_Panels_xmax(1) = 270 +!Profile_Panels_xaxis_reversed(1) = .true. + +!Profile_Panels_show_grid(1) = .true. +Profile_Panels_show_mix_regions_on_xaxis(1) = .true. !------------------------------------------------------------------------------------ @@ -166,7 +199,7 @@ Profile_Panels3_show_mix_regions_on_xaxis = .true. !TRho_Profile_win_flag = .true. TRho_Profile_win_width = 8 TRho_Profile_win_aspect_ratio = 0.75 ! aspect_ratio = height/width - + ! file output !TRho_Profile_file_flag = .true. TRho_Profile_file_dir = 'TRho' @@ -174,15 +207,15 @@ TRho_Profile_file_prefix = 'trho_' TRho_Profile_file_interval = 10 ! output when `mod(model_number,TRho_Profile_file_interval)==0` TRho_Profile_file_width = -1 ! (inches) negative means use same value as for window TRho_Profile_file_aspect_ratio = -1 ! negative means use same value as for window - + TRho_Profile_xleft = 0.15 TRho_Profile_xright = 0.85 TRho_Profile_ybot = 0.15 TRho_Profile_ytop = 0.85 TRho_Profile_txt_scale = 0.7 -TRho_Profile_title = ' ' - -TRho_switch_to_Column_Depth = .false. +TRho_Profile_title = ' ' + +TRho_switch_to_Column_Depth = .false. TRho_switch_to_mass = .false. show_TRho_Profile_legend = .true. @@ -198,7 +231,7 @@ show_TRho_Profile_text_info = .false. TRho_Profile_text_info_dxfac = 0.02 ! controls x spacing to value from text TRho_Profile_text_info_yfac = 0.6 ! controls y location of 1st line TRho_Profile_text_info_dyfac = -0.04 ! controls line spacing - + show_TRho_Profile_mass_locs = .false. show_TRho_accretion_mesh_borders = .false. show_TRho_Profile_kap_regions = .false. @@ -207,14 +240,14 @@ show_TRho_Profile_degeneracy_line = .true. show_TRho_Profile_Pgas_Prad_line = .true. show_TRho_Profile_burn_lines = .true. show_TRho_Profile_burn_labels = .true. - + ! axis limits TRho_Profile_xmin = -14.0 TRho_Profile_xmax = 10.0 TRho_Profile_ymin = 2.5 TRho_Profile_ymax = 10.0 -! these are shown if show_TRho_Profile_mass_locs = .true. +! these are shown if show_TRho_Profile_mass_locs = .true. ! set all the entries profile_mass_point_q = -1 profile_mass_point_color_index = 1 @@ -223,8 +256,8 @@ profile_mass_point_symbol_scale = 1.7 profile_mass_point_str = '' profile_mass_point_str_clr = 1 profile_mass_point_str_scale = 1.0 - -! set defaults + +! set defaults num_profile_mass_points = 3 ! max is defined in star_def (max_num_profile_mass_points) profile_mass_point_q(1) = 0.5 @@ -232,13 +265,13 @@ profile_mass_point_color_index(1) = 1 profile_mass_point_symbol(1) = -6 profile_mass_point_str(1) = ' 0.5 M\d\(0844)\u' profile_mass_point_str_clr(1) = 1 - + profile_mass_point_q(2) = 0.95 profile_mass_point_color_index(2) = 1 profile_mass_point_symbol(2) = -6 profile_mass_point_str(2) = ' 0.95 M\d\(0844)\u' profile_mass_point_str_clr(3) = 1 - + profile_mass_point_q(3) = 0.999 profile_mass_point_color_index(3) = 1 profile_mass_point_symbol(3) = -6 @@ -250,56 +283,57 @@ profile_mass_point_str_clr(3) = 1 ! Text_Summary windows -Text_Summary1_win_flag = .false. -Text_Summary1_win_width = 10 -Text_Summary1_win_aspect_ratio = 0.15 - -Text_Summary1_xleft = 0.01 -Text_Summary1_xright = 0.99 -Text_Summary1_ybot = 0.0 -Text_Summary1_ytop = 1.0 -Text_Summary1_txt_scale = 0.95 -Text_Summary1_title = '' - -Text_Summary1_num_rows = 6 ! <= 20 -Text_Summary1_num_cols = 5 ! <= 20 -Text_Summary1_name(:,:) = '' - -Text_Summary1_name(1,1) = 'model_number' -Text_Summary1_name(1,2) = 'Teff' -Text_Summary1_name(1,3) = 'Mass' -Text_Summary1_name(1,4) = 'H_cntr' -Text_Summary1_name(1,5) = 'H_rich' - -Text_Summary1_name(2,1) = 'log_dt' -Text_Summary1_name(2,2) = 'log_R' -Text_Summary1_name(2,3) = 'lg_Mdot' -Text_Summary1_name(2,4) = 'He_cntr' -Text_Summary1_name(2,5) = 'He_core' - -Text_Summary1_name(3,1) = 'star_age' -Text_Summary1_name(3,2) = 'log_L' -Text_Summary1_name(3,3) = 'eta_cntr' -Text_Summary1_name(3,4) = 'C_cntr' -Text_Summary1_name(3,5) = 'CO_core' - -Text_Summary1_name(4,1) = 'log_max_T' -Text_Summary1_name(4,2) = 'log_LH' -Text_Summary1_name(4,3) = 'lg_Lnuc' -Text_Summary1_name(4,4) = 'O_cntr' -Text_Summary1_name(4,5) = 'Fe_core' - -Text_Summary1_name(5,1) = 'log_cntr_T' -Text_Summary1_name(5,2) = 'log_LHe' -Text_Summary1_name(5,3) = 'lg_Lneu' -Text_Summary1_name(5,4) = 'Ne_cntr' -Text_Summary1_name(5,5) = 'zones' - -Text_Summary1_name(6,1) = 'log_cntr_Rho' -Text_Summary1_name(6,2) = 'log_LZ' -Text_Summary1_name(6,3) = 'lg_Lphoto' -Text_Summary1_name(6,4) = 'Si_cntr' -Text_Summary1_name(6,5) = 'retries' +Text_Summary_win_flag(1) = .false. +Text_Summary_win_width(1) = 10 +Text_Summary_win_aspect_ratio(1) = 0.15 + +Text_Summary_xleft(1) = 0.01 +Text_Summary_xright(1) = 0.99 +Text_Summary_ybot(1) = 0.0 +Text_Summary_ytop(1) = 1.0 +Text_Summary_txt_scale(1) = 0.95 +Text_Summary_title(1) = '' + +Text_Summary_num_rows(1) = 6 ! <= 20 +Text_Summary_num_cols(1) = 5 ! <= 20 +Text_Summary_name(1, :, :) = '' + + +Text_Summary_name(1,1,1) = 'model_number' +Text_Summary_name(1,1,2) = 'log_dt' +Text_Summary_name(1,1,3) = 'Mass' +Text_Summary_name(1,1,4) = 'H_cntr' +Text_Summary_name(1,1,5) = 'H_rich' + +Text_Summary_name(1,2,1) = 'non_fe_core_infall' +Text_Summary_name(1,2,2) = 'star_age' +Text_Summary_name(1,2,3) = 'lg_Mdot' +Text_Summary_name(1,2,4) = 'He_cntr' +Text_Summary_name(1,2,5) = 'He_core' + +Text_Summary_name(1,3,1) = 'fe_core_infall' +Text_Summary_name(1,3,2) = 'gamma1_min' +Text_Summary_name(1,3,3) = 'eta_cntr' +Text_Summary_name(1,3,4) = 'C_cntr' +Text_Summary_name(1,3,5) = 'CO_core' + +Text_Summary_name(1,4,1) = 'log_max_T' +Text_Summary_name(1,4,2) = 'log_LH' +Text_Summary_name(1,4,3) = 'lg_Lnuc' +Text_Summary_name(1,4,4) = 'O_cntr' +Text_Summary_name(1,4,5) = 'Fe_core' + +Text_Summary_name(1,5,1) = 'log_cntr_T' +Text_Summary_name(1,5,2) = 'log_LHe' +Text_Summary_name(1,5,3) = 'lg_Lneu' +Text_Summary_name(1,5,4) = 'Ne_cntr' +Text_Summary_name(1,5,5) = 'zones' + +Text_Summary_name(1,6,1) = 'log_cntr_Rho' +Text_Summary_name(1,6,2) = 'log_LZ' +Text_Summary_name(1,6,3) = 'lg_Lphoto' +Text_Summary_name(1,6,4) = 'Si_cntr' +Text_Summary_name(1,6,5) = 'retries' !------------------------------------------------------------------------------------ @@ -311,12 +345,12 @@ Abundance_win_flag = .false. ! window properties Abundance_win_width = 10 Abundance_win_aspect_ratio = 0.75 - + Abundance_xleft = 0.15 Abundance_xright = 0.85 Abundance_ybot = 0.15 Abundance_ytop = 0.85 -Abundance_txt_scale = 1 +Abundance_txt_scale = 1.1 Abundance_title = '' ! isotopes to plot @@ -346,28 +380,20 @@ Abundance_which_isos_to_show(20) = 'neut' !Abundance_which_isos_to_show(22) = 'ne22' - + ! number and size of isotope labels along curves num_abundance_line_labels = 4 Abundance_line_txt_scale_factor = 1.1 -! number and size of isotopes on legend +! number and size of isotopes on legend Abundance_legend_max_cnt = 10 -Abundance_legend_txt_scale_factor = 1.0 - -! xaxis name and orientation -Abundance_xaxis_name = 'mass' -Abundance_xaxis_reversed = .false. - -! xaxis limits -Abundance_xmin = 0.0 -Abundance_xmax = 1.6 ! -101d0 - -! yaxis limits -Abundance_log_mass_frac_min = -3.5 +Abundance_legend_txt_scale_factor = 1.3 + +! yaxis limits +Abundance_log_mass_frac_min = -4!-6.4 ! -3.5 Abundance_log_mass_frac_max = 0.3 - + ! file output Abundance_file_flag = .false. Abundance_file_dir = 'Abundance' @@ -383,24 +409,17 @@ Abundance_file_aspect_ratio = -1 ! negative means use same value as for window Power_win_flag = .false. Power_win_width = 10 Power_win_aspect_ratio = 0.75 -Power_title = '' +Power_title = '' Power_xleft = 0.15 Power_xright = 0.85 Power_ybot = 0.15 Power_ytop = 0.85 -Power_txt_scale = 1.0 +Power_txt_scale = 1.1 Power_title = ' ' -Power_xaxis_name = 'mass' -Power_xaxis_reversed = .false. - Power_legend_max_cnt = 10 -Power_legend_txt_scale_factor = 1.0 ! relative to other text - -! power xaxis limits -- to override system default selections -Power_xmin = 0.0 -Power_xmax = 1.6 ! -101d0 +Power_legend_txt_scale_factor = 1.3 ! relative to other text ! power yaxis limits -- to override system default selections Power_ymin = -5.0 ! -101d0 ! only used if /= -101d0 @@ -419,9 +438,9 @@ Power_file_aspect_ratio = -1 ! negative means use same value as for window ! mixing plot -Mixing_xmin = 0.0 -Mixing_xmax = 1.6 ! -101d0 -Mixing_legend_txt_scale_factor = 1.0 ! relative to other text +Mixing_xmin = 0.0 +Mixing_xmax = 1.6 ! -101d0 +Mixing_legend_txt_scale_factor = 1.4 ! relative to other text Mixing_show_rotation_details = .false. @@ -434,12 +453,28 @@ Mixing_file_width = -1 ! (inches) negative means use same value as for window Mixing_file_aspect_ratio = -1 ! negative means use same value as for window +!----------------------------------------------------------------------- + +! TRho window + ! history of central temperature vs. density + + TRho_txt_scale = 0.7 + TRho_title = '' + + TRho_logT_min = -101d0 + TRho_logT_max = -101d0 + TRho_logRho_min = -101d0 + TRho_logRho_max = -101d0 + show_TRho_degeneracy_line = .true. + + + !----------------------------------------------------------------------- !# HR window ! history of `lg_L` vs. `lg_Teff` - HR_win_flag = .false. + HR_win_flag = .true. HR_win_width = 6 HR_win_aspect_ratio = 0.75 ! aspect_ratio = height/width @@ -465,7 +500,7 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window HR_step_min = -1 ! only plot models with model number >= this HR_step_max = -1 ! only plot models with model number <= this - show_HR_classical_instability_strip = .false. + show_HR_classical_instability_strip = .true. show_HR_Mira_instability_region = .false. show_HR_WD_instabilities = .false. @@ -497,166 +532,93 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window !----------------------------------------------------------------------- - !# TRho window - ! history of central temperature vs. density + History_Panels_title(1) = '' - TRho_win_flag = .false. + History_Panels_xaxis_name(1) = 'model_number' + History_Panels_max_width(1) = -1 - TRho_win_width = 6 - TRho_win_aspect_ratio = 0.75 ! aspect_ratio = height/width + !History_Panels_xaxis_name(1) = 'star_age' + !History_Panels_max_width(1) = 10 - TRho_xleft = 0.15 - TRho_xright = 0.85 - TRho_ybot = 0.15 - TRho_ytop = 0.85 - TRho_txt_scale = 1.0 - TRho_title = '' + History_Panels_txt_scale(1) = 0.75 + History_Panels_xmin(1) = -101d0 + History_Panels_xmax(1) = -101d0 + History_Panels_dxmin(1) = -1 + History_Panels_xaxis_reversed(1) = .false. + History_Panels_xaxis_log(1) = .false. + History_Panels_xmargin(1) = 0.0 - ! axis limits -- to override system default selections - TRho_logT_min = -101d0 ! only used if /= -101d0 - TRho_logT_max = -101d0 ! only used if /= -101d0 - TRho_logRho_min = -101d0 ! only used if /= -101d0 - TRho_logRho_max = -101d0 ! only used if /= -101d0 + ! :: - TRho_logT_margin = 0.1 - TRho_logRho_margin = 0.1 - TRho_logRho_dlogRho_min = -1 - TRho_logT_dlogT_min = -1 + History_Panels_num_panels(1) = 4 - TRho_step_min = -1 ! only plot models with model number >= this - TRho_step_max = -1 ! only plot models with model number <= this + ! :: - show_TRho_degeneracy_line = .true. + History_Panels_yaxis_name(1, 1) = 'log_L' + History_Panels_yaxis_reversed(1, 1) = .false. + History_Panels_ymin(1, 1) = -101d0 + History_Panels_ymax(1, 1) = -101d0 + History_Panels_dymin(1, 1) = 0.14 - show_TRho_annotation1 = .false. - show_TRho_annotation2 = .false. - show_TRho_annotation3 = .false. + ! :: - TRho_fname = '' ! file name for extra TRho data + History_Panels_other_yaxis_name(1, 1) = 'log_Teff' + History_Panels_other_yaxis_reversed(1, 1) = .false. + History_Panels_other_ymin(1, 1) = -101d0 + History_Panels_other_ymax(1, 1) = -101d0 + History_Panels_other_dymin(1, 1) = 0.14 - ! Enables calling a subroutine to add extra information to a plot - ! see `$MESA_DIR/star/other/pgstar_decorator.f90` - TRho_use_decorator = .false. + ! :: + History_Panels_yaxis_name(1, 2) = '' + History_Panels_yaxis_reversed(1, 2) = .false. + History_Panels_ymin(1, 2) = -101d0 + History_Panels_ymax(1, 2) = -101d0 + History_Panels_dymin(1, 2) = 0.14 - ! file output - TRho_file_flag = .false. - TRho_file_dir = 'png' - TRho_file_prefix = 'trho_' - TRho_file_interval = 5 ! output when `mod(model_number,TRho_file_interval)==0` - TRho_file_width = -1 ! (inches) negative means use same value as for window - TRho_file_aspect_ratio = -1 ! negative means use same value as for window + ! :: -!----------------------------------------------------------------------- + History_Panels_other_yaxis_name(1, 2) = 'log_max_T' ! 'v_surf_km_s' + History_Panels_other_yaxis_reversed(1, 2) = .false. + History_Panels_other_ymin(1, 2) = -101d0 + History_Panels_other_ymax(1, 2) = -101d0 + History_Panels_other_dymin(1, 2) = 0.14 - !# "Kippenhahn" window - ! history of convection and more. - - ! your history_columns.list needs to include - ! star_mass - ! mixing_regions 40 -- 40 can be changed if you wish - ! burning_regions 80 -- 80 can be changed if you wish - ! and if you have set M_center > 0, then also include - ! log_xmstar - ! if you want to show luminosities, include some or all of - ! log_L, log_Lneu, log_LH, log_LHe - ! if you want to show mass boundaries, then include some or all of - ! he_core_mass, c_core_mass, o_core_mass, si_core_mass, fe_core_mass - - Kipp_win_flag = .false. - - Kipp_win_width = 7 - Kipp_win_aspect_ratio = 0.75 ! aspect_ratio = height/width - - Kipp_xleft = 0.15 - Kipp_xright = 0.85 - Kipp_ybot = 0.15 - Kipp_ytop = 0.85 - Kipp_txt_scale = 1.0 - Kipp_title = '' - - ! Set xaxis - Kipp_step_xmin = -1 ! Min model number to plot. Negative means start from the first model - Kipp_step_xmax = -1 ! Max model number to plot. Negative means use max model_number - ! These can be combined with Kipp_{xmin,xmax} options - Kipp_max_width = -1 ! Maximum number of steps to show at once. - ! Negative implies show all steps. This overrides `Kipp_step_xmin` - - Kipp_xaxis_name = 'model_number' ! xaxis coordinates. Sensible choices - ! are `model_number` or `star_age` - Kipp_xaxis_log=.false. ! Whether xaxis should be reported as a log10 value - Kipp_xmin=-101d0 ! Min of x value to plot. -101d0 means use min(x) - Kipp_xmax=-101d0 ! Max of x value to plot. -101d0 means use max(x) - Kipp_xmargin=0.0 - Kipp_xaxis_reversed=.false. ! Whether to reverse the direction of the xaxis - Kipp_xaxis_in_seconds=.false. ! Whether to plot time in seconds - ! Requires `Kipp_xaxis_name='star_age'` - Kipp_xaxis_in_Myr=.false. ! Whether to plot time in units of 10^6 years - ! Requires `Kipp_xaxis_name='star_age'` - Kipp_xaxis_time_from_present=.false. ! Whether to plot time since present. - ! plots `star_age-max(star_age)` - ! Requires `Kipp_xaxis_name='star_age'` - - - ! bounds for mass yaxis - Kipp_mass_max = -1 ! (Msun units) negative means use default - Kipp_mass_min = -1 ! (Msun units) negative means use default - Kipp_mass_margin = 0.01 - - ! bounds for luminosity yaxis - Kipp_lgL_max = -101d0 ! only used if /= -101d0; (L in Lsun units) - Kipp_lgL_min = -101d0 ! only used if /= -101d0; (L in Lsun units) - Kipp_lgL_margin = 0.1 - - Kipp_show_mixing = .true. - ! this uses the `mixing_regions` specified in your `history_columns.list` - Kipp_show_burn = .true. - ! this uses the `burning_regions` specified in your `history_columns.list` - - Kipp_show_luminosities = .false. - ! to use this option, include the following in your `history_columns.list` - ! `log_L`, `log_Lneu`, `log_LH`, `log_LHe` - Kipp_show_mass_boundaries = .true. - ! to use this option, include the following in your `history_columns.list` - ! `he_core_mass`, `c_core_mass`, `o_core_mass`, `si_core_mass`, `fe_core_mass` - - Kipp_mix_line_weight = 10 - Kipp_mix_interval = 4 - ! show mixing for steps with `mod(model_number, Kipp_mix_interval) = 0.` - - Kipp_burn_line_weight = 14 - - Kipp_burn_type_cutoff = 0d0 - ! show burn lines only for abs(log(eps)) > Kipp_burn_type_cutoff - - Kipp_luminosities_line_weight = 8 - Kipp_masses_line_weight = 8 - - show_Kipp_annotation1 = .false. - show_Kipp_annotation2 = .false. - show_Kipp_annotation3 = .false. + ! :: - ! Enables calling a subroutine to add extra information to a plot - ! see `$MESA_DIR/star/other/pgstar_decorator.f90` - Kipp_use_decorator = .false. + History_Panels_yaxis_name(1, 3) = 'log_R' + History_Panels_yaxis_reversed(1, 3) = .false. + History_Panels_ymin(1, 3) = -101d0 + History_Panels_ymax(1, 3) = -101d0 + History_Panels_dymin(1, 3) = 0.14 - ! file output - Kipp_file_flag = .false. - Kipp_file_dir = 'png' - Kipp_file_prefix = 'conv_' - Kipp_file_interval = 5 ! output when `mod(model_number,Kipp_file_interval)==0` - Kipp_file_width = -1 ! (inches) negative means use same value as for window - Kipp_file_aspect_ratio = -1 ! negative means use same value as for window + ! :: + + History_Panels_other_yaxis_name(1, 3) = 'log_cntr_Rho' + History_Panels_other_yaxis_reversed(1, 3) = .false. + History_Panels_other_ymin(1, 3) = -101d0 + History_Panels_other_ymax(1, 3) = -101d0 + History_Panels_other_dymin(1, 3) = 0.14 + + ! :: + + History_Panels_other_yaxis_name(1, 4) = 'log_dt' + History_Panels_other_yaxis_reversed(1, 4) = .false. + History_Panels_other_ymin(1, 4) = -101d0 + History_Panels_other_ymax(1, 4) = -101d0 + History_Panels_other_dymin(1, 4) = 0.14 !----------------------------------------------------------------------- ! some global grid plot settings -pgstar_title_scale = 1.3 -pgstar_title_disp = 1.1 -pgstar_title_coord = 0.5 -pgstar_title_fjust = 0.5 +pgstar_grid_show_title = .true. +pgstar_grid_title_scale = 1.0 +pgstar_grid_title_lw = 3 +pgstar_grid_title_disp = 2.5 ! 1.8 +pgstar_grid_title_coord = 0.5 +pgstar_grid_title_fjust = 0.5 pgstar_age_scale = 0.8 pgstar_age_disp = 3.0 @@ -685,6 +647,12 @@ file_extension = 'png' ! common names are 'png' and 'ps' !file_extension = 'ps' ! common names are 'png' and 'ps' +kipp_win_flag=.true. +kipp_file_flag=.true. +Kipp_mix_interval = 1 +Kipp_show_luminosities = .true. + +/ ! end of pgstar namelist / ! end of pgstar namelist diff --git a/star/test_suite/20M_z2m2_high_rotation/inlist_to_end_core_he_burn b/star/test_suite/20M_z2m2_high_rotation/inlist_to_end_core_he_burn index 7947afbff..cd7204f25 100644 --- a/star/test_suite/20M_z2m2_high_rotation/inlist_to_end_core_he_burn +++ b/star/test_suite/20M_z2m2_high_rotation/inlist_to_end_core_he_burn @@ -327,10 +327,10 @@ use_Skye = .false. !pgstar_interval = 1 ! x-axis limits and properties -Profile_Panels3_xaxis_name = 'mass' -Profile_Panels3_xmin = 0.0 -Profile_Panels3_xmax = 2.0 -Profile_Panels3_xaxis_reversed = .false. +Profile_Panels_xaxis_name(3) = 'mass' +Profile_Panels_xmin(3) = 0.0 +Profile_Panels_xmax(3) = 2.0 +Profile_Panels_xaxis_reversed(3) = .false. / ! end of pgstar namelist diff --git a/star/test_suite/5M_cepheid_blue_loop/inlist_cepheid_blue_loop b/star/test_suite/5M_cepheid_blue_loop/inlist_cepheid_blue_loop index e799a484a..87381e185 100644 --- a/star/test_suite/5M_cepheid_blue_loop/inlist_cepheid_blue_loop +++ b/star/test_suite/5M_cepheid_blue_loop/inlist_cepheid_blue_loop @@ -196,7 +196,7 @@ make_gradr_sticky_in_solver_iters = .true. &pgstar - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. ! HR window -- lg_L vs. lg_Teff diff --git a/star/test_suite/R_CrB_star/inlist_pgstar b/star/test_suite/R_CrB_star/inlist_pgstar index 471e41f1e..33c09455e 100644 --- a/star/test_suite/R_CrB_star/inlist_pgstar +++ b/star/test_suite/R_CrB_star/inlist_pgstar @@ -76,207 +76,207 @@ Abundance_xmin = -11 Abundance_xmax = 8 - Profile_Panels1_win_flag = .false. - Profile_Panels1_win_width = 6 - Profile_Panels1_win_aspect_ratio = 1.5 ! aspect_ratio = height/width - - Profile_Panels1_xleft = 0.15 - Profile_Panels1_xright = 0.85 - Profile_Panels1_ybot = 0.15 - Profile_Panels1_ytop = 0.85 - Profile_Panels1_txt_scale = 1.0 - Profile_Panels1_title = '' - - Profile_Panels1_xaxis_name = 'logT' - Profile_Panels1_xaxis_reversed = .false. - Profile_Panels1_xmin = 3.5 - Profile_Panels1_xmax = 6.5 - Profile_Panels1_xmargin = 0d0 - Profile_Panels1_show_grid = .true. - - Profile_Panels1_ymin(1) = -4 - Profile_Panels1_ymax(1) = 3 - - ! Profile_Panels1_other_ymin(1) = -10 - ! Profile_Panels1_other_ymax(1) = -4 + Profile_Panels_win_flag(1) = .false. + Profile_Panels_win_width(1) = 6 + Profile_Panels_win_aspect_ratio = 1.5 ! aspect_ratio(1) = height/width + + Profile_Panels_xleft(1) = 0.15 + Profile_Panels_xright(1) = 0.85 + Profile_Panels_ybot(1) = 0.15 + Profile_Panels_ytop(1) = 0.85 + Profile_Panels_txt_scale(1) = 1.0 + Profile_Panels_title(1) = '' + + Profile_Panels_xaxis_name(1) = 'logT' + Profile_Panels_xaxis_reversed(1) = .false. + Profile_Panels_xmin(1) = 3.5 + Profile_Panels_xmax(1) = 6.5 + Profile_Panels_xmargin(1) = 0d0 + Profile_Panels_show_grid(1) = .true. + + Profile_Panels_ymin(1, 1) = -4 + Profile_Panels_ymax(1, 1) = 3 + + ! Profile_Panels_other_ymin(1, 1) = -10 + ! Profile_Panels_other_ymax(1, 1) = -4 ! setup default plot - Profile_Panels1_num_panels = 1 - Profile_Panels1_yaxis_name(1) = 'log_opacity' - Profile_Panels1_other_yaxis_name(1) = 'entropy' + Profile_Panels_num_panels(1) = 1 + Profile_Panels_yaxis_name(1, 1) = 'log_opacity' + Profile_Panels_other_yaxis_name(1, 1) = 'entropy' - History_Panels1_win_flag = .false. + History_Panels_win_flag(1) = .false. - History_Panels1_win_width = 6 - History_Panels1_win_aspect_ratio = 0.75 ! aspect_ratio = height/width + History_Panels_win_width(1) = 6 + History_Panels_win_aspect_ratio = 0.75 ! aspect_ratio(1) = height/width - History_Panels1_xleft = 0.15 - History_Panels1_xright = 0.85 - History_Panels1_ybot = 0.15 - History_Panels1_ytop = 0.85 - History_Panels1_txt_scale = 1.0 - History_Panels1_title = '' + History_Panels_xleft(1) = 0.15 + History_Panels_xright(1) = 0.85 + History_Panels_ybot(1) = 0.15 + History_Panels_ytop(1) = 0.85 + History_Panels_txt_scale(1) = 1.0 + History_Panels_title(1) = '' - History_Panels1_xmax = -101 ! model number. - History_Panels1_xmin = -101 ! model number. - History_Panels1_max_width = 100 ! only used if > 0. causes xmin to move with xmax. + History_Panels_xmax(1) = -101 ! model number. + History_Panels_xmin(1) = -101 ! model number. + History_Panels_max_width(1) = 100 ! only used if > 0. causes xmin to move with xmax. - History_Panels1_yaxis_name(:) = '' - History_Panels1_yaxis_reversed(:) = .false. - History_Panels1_ymin(:) = -101d0 ! only used if /= -101d0 - History_Panels1_ymax(:) = -101d0 ! only used if /= -101d0 - History_Panels1_ymargin(:) = 0.1 - History_Panels1_dymin(:) = -1 + History_Panels_yaxis_name(1, :) = '' + History_Panels_yaxis_reversed(1, :) = .false. + History_Panels_ymin(1, :) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(1, :) = -101d0 ! only used if /= -101d0 + History_Panels_ymargin(1, :) = 0.1 + History_Panels_dymin(1, :) = -1 - History_Panels1_other_yaxis_name(:) = '' - History_Panels1_other_yaxis_reversed(:) = .false. - History_Panels1_other_ymin(:) = -101d0 ! only used if /= -101d0 - History_Panels1_other_ymax(:) = -101d0 ! only used if /= -101d0 - History_Panels1_other_ymargin(:) = 0.1 - History_Panels1_other_dymin(:) = -1 + History_Panels_other_yaxis_name(1, :) = '' + History_Panels_other_yaxis_reversed(1, :) = .false. + History_Panels_other_ymin(1, :) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(1, :) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymargin(1, :) = 0.1 + History_Panels_other_dymin(1, :) = -1 ! setup default - History_Panels1_num_panels = 3 - - History_Panels1_yaxis_name(1) = 'num_iters' - History_Panels1_yaxis_reversed(1) = .false. - History_Panels1_ymin(1) = 0 ! only used if /= -101d0 - History_Panels1_ymax(1) = 10 ! only used if /= -101d0 - History_Panels1_dymin(1) = -1 - - History_Panels1_other_yaxis_name(1) = 'num_zones' - History_Panels1_other_yaxis_reversed(1) = .false. - History_Panels1_other_ymin(1) = 0 ! only used if /= -101d0 - History_Panels1_other_ymax(1) = -101d0 ! only used if /= -101d0 - History_Panels1_other_dymin(1) = -1 - - History_Panels1_yaxis_name(2) = 'log_dt' - History_Panels1_yaxis_reversed(2) = .false. - History_Panels1_ymin(2) = -101d0 ! only used if /= -101d0 - History_Panels1_ymax(2) = -101d0 ! only used if /= -101d0 - History_Panels1_dymin(2) = -1 - - - History_Panels1_other_yaxis_name(2) = '' - History_Panels1_other_yaxis_reversed(2) = .false. - History_Panels1_other_ymin(2) = 0 ! only used if /= -101d0 - History_Panels1_other_ymax(2) = -101d0 ! only used if /= -101d0 - History_Panels1_other_dymin(2) = -1 - - History_Panels1_yaxis_name(3) = 'num_retries' - History_Panels1_yaxis_reversed(3) = .false. - History_Panels1_ymin(3) = 0 ! only used if /= -101d0 - History_Panels1_ymax(3) = -101d0 ! only used if /= -101d0 - History_Panels1_dymin(3) = -1 - - History_Panels1_other_yaxis_name(3) = '' - History_Panels1_other_yaxis_reversed(3) = .false. - History_Panels1_other_ymin(3) = 0 ! only used if /= -101d0 - History_Panels1_other_ymax(3) = -101d0 ! only used if /= -101d0 - History_Panels1_other_dymin(3) = -1 - - History_Panels1_use_decorator = .true. + History_Panels_num_panels(1) = 3 + + History_Panels_yaxis_name(1, 1) = 'num_iters' + History_Panels_yaxis_reversed(1, 1) = .false. + History_Panels_ymin(1, 1) = 0 ! only used if /= -101d0 + History_Panels_ymax(1, 1) = 10 ! only used if /= -101d0 + History_Panels_dymin(1, 1) = -1 + + History_Panels_other_yaxis_name(1, 1) = 'num_zones' + History_Panels_other_yaxis_reversed(1, 1) = .false. + History_Panels_other_ymin(1, 1) = 0 ! only used if /= -101d0 + History_Panels_other_ymax(1, 1) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(1, 1) = -1 + + History_Panels_yaxis_name(1, 2) = 'log_dt' + History_Panels_yaxis_reversed(1, 2) = .false. + History_Panels_ymin(1, 2) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(1, 2) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(1, 2) = -1 + + + History_Panels_other_yaxis_name(1, 2) = '' + History_Panels_other_yaxis_reversed(1, 2) = .false. + History_Panels_other_ymin(1, 2) = 0 ! only used if /= -101d0 + History_Panels_other_ymax(1, 2) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(1, 2) = -1 + + History_Panels_yaxis_name(1, 3) = 'num_retries' + History_Panels_yaxis_reversed(1, 3) = .false. + History_Panels_ymin(1, 3) = 0 ! only used if /= -101d0 + History_Panels_ymax(1, 3) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(1, 3) = -1 + + History_Panels_other_yaxis_name(1, 3) = '' + History_Panels_other_yaxis_reversed(1, 3) = .false. + History_Panels_other_ymin(1, 3) = 0 ! only used if /= -101d0 + History_Panels_other_ymax(1, 3) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(1, 3) = -1 + + History_Panels_use_decorator(1) = .true. ! file output - History_Panels1_file_flag = .false. - History_Panels1_file_dir = 'png' - History_Panels1_file_prefix = 'History_Panels1_' - History_Panels1_file_interval = 5 ! output when mod(model_number,History_Panels1_file_interval)==0 - History_Panels1_file_width = -1 ! (inches) negative means use same value as for window - History_Panels1_file_aspect_ratio = -1 ! negative means use same value as for window + History_Panels_file_flag(1) = .false. + History_Panels_file_dir(1) = 'png' + History_Panels_file_prefix(1) = 'History_Panels1_' + History_Panels_file_interval(1) = 5 ! output when mod(model_number,History_Panels1_file_interval)==0 + History_Panels_file_width(1) = -1 ! (inches) negative means use same value as for window + History_Panels_file_aspect_ratio(1) = -1 ! negative means use same value as for window !### Grid1 - Grid1_win_flag = .false. + Grid_win_flag(1) = .false. - Grid1_win_width = 8 - Grid1_win_aspect_ratio = 0.75 ! aspect_ratio = height/width + Grid_win_width(1) = 8 + Grid_win_aspect_ratio(1) = 0.75 ! aspect_ratio = height/width - Grid1_xleft = 0.12 ! fraction of full window width for margin on left - Grid1_xright = 0.95 ! fraction of full window width for margin on right - Grid1_ybot = 0.08 ! fraction of full window width for margin on bottom - Grid1_ytop = 0.92 ! fraction of full window width for margin on top - Grid1_title = 'R_CrB_star' + Grid_xleft(1) = 0.12 ! fraction of full window width for margin on left + Grid_xright(1) = 0.95 ! fraction of full window width for margin on right + Grid_ybot(1) = 0.08 ! fraction of full window width for margin on bottom + Grid_ytop(1) = 0.92 ! fraction of full window width for margin on top + Grid_title(1) = 'R_CrB_star' ! set default - Grid1_num_cols = 4 ! divide plotting region into this many equal width cols - Grid1_num_rows = 3 ! divide plotting region into this many equal height rows - Grid1_num_plots = 6 ! <= 10 - - Grid1_plot_name(1) = 'TRho_Profile' - Grid1_plot_row(1) = 1 ! number from 1 at top - Grid1_plot_rowspan(1) = 1 ! plot spans this number of rows - Grid1_plot_col(1) = 1 ! number from 1 at left - Grid1_plot_colspan(1) = 2 ! plot spans this number of columns - Grid1_plot_pad_left(1) = -0.05 ! fraction of full window width for padding on left - Grid1_plot_pad_right(1) = 0.05 ! fraction of full window width for padding on right - Grid1_plot_pad_top(1) = 0.0 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(1) = 0.05 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(1) = 0.6 ! multiply txt_scale for subplot by this - - Grid1_plot_name(2) = 'HR' - Grid1_plot_row(2) = 1 ! number from 1 at top - Grid1_plot_rowspan(2) = 1 ! plot spans this number of rows - Grid1_plot_col(2) = 3 ! number from 1 at left - Grid1_plot_colspan(2) = 1 ! plot spans this number of columns - Grid1_plot_pad_left(2) = 0.05 ! fraction of full window width for padding on left - Grid1_plot_pad_right(2) = 0.00 ! fraction of full window width for padding on right - Grid1_plot_pad_top(2) = 0.0 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(2) = 0.05 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(2) = 0.65 ! multiply txt_scale for subplot by this - - Grid1_plot_name(3) = 'logg_logT' - Grid1_plot_row(3) = 1 ! number from 1 at top - Grid1_plot_rowspan(3) = 1 ! plot spans this number of rows - Grid1_plot_col(3) = 4 ! number from 1 at left - Grid1_plot_colspan(3) = 1 ! plot spans this number of columns - Grid1_plot_pad_left(3) = 0.075 ! fraction of full window width for padding on left - Grid1_plot_pad_right(3) = -0.025 ! fraction of full window width for padding on right - Grid1_plot_pad_top(3) = 0.00 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(3) = 0.05 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(3) = 0.65 ! multiply txt_scale for subplot by this - - Grid1_plot_name(4) = 'Abundance' - Grid1_plot_row(4) = 2 ! number from 1 at top - Grid1_plot_rowspan(4) = 1 ! plot spans this number of rows - Grid1_plot_col(4) = 1 ! number from 1 at left - Grid1_plot_colspan(4) = 2 ! plot spans this number of columns - Grid1_plot_pad_left(4) = -0.05 ! fraction of full window width for padding on left - Grid1_plot_pad_right(4) = 0.05 ! fraction of full window width for padding on right - Grid1_plot_pad_top(4) = 0.025 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(4) = 0.025 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(4) = 0.65 ! multiply txt_scale for subplot by this - - Grid1_plot_name(5) = 'Profile_Panels1' - Grid1_plot_row(5) = 3 ! number from 1 at top - Grid1_plot_rowspan(5) = 1 ! plot spans this number of rows - Grid1_plot_col(5) = 1 ! number from 1 at left - Grid1_plot_colspan(5) = 2 ! plot spans this number of columns - Grid1_plot_pad_left(5) = -0.05 ! fraction of full window width for padding on left - Grid1_plot_pad_right(5) = 0.05 ! fraction of full window width for padding on right - Grid1_plot_pad_top(5) = 0.05 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(5) = 0.00 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(5) = 0.65 ! multiply txt_scale for subplot by this - - Grid1_plot_name(6) = 'History_Panels1' - Grid1_plot_row(6) = 2 ! number from 1 at top - Grid1_plot_rowspan(6) = 2 ! plot spans this number of rows - Grid1_plot_col(6) = 3 ! number from 1 at left - Grid1_plot_colspan(6) = 2 ! plot spans this number of columns - Grid1_plot_pad_left(6) = 0.10 ! fraction of full window width for padding on left - Grid1_plot_pad_right(6) = 0.05 ! fraction of full window width for padding on right - Grid1_plot_pad_top(6) = 0.05 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(6) = 0.0 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(6) = 0.65 ! multiply txt_scale for subplot by this + Grid_num_cols(1) = 4 ! divide plotting region into this many equal width cols + Grid_num_rows(1) = 3 ! divide plotting region into this many equal height rows + Grid_num_plots(1) = 6 ! <= 10 + + Grid_plot_name(1, 1) = 'TRho_Profile' + Grid_plot_row(1, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(1, 1) = 1 ! plot spans this number of rows + Grid_plot_col(1, 1) = 1 ! number from 1 at left + Grid_plot_colspan(1, 1) = 2 ! plot spans this number of columns + Grid_plot_pad_left(1, 1) = -0.05 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 1) = 0.05 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 1) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 1) = 0.05 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 1) = 0.6 ! multiply txt_scale for subplot by this + + Grid_plot_name(1, 2) = 'HR' + Grid_plot_row(1, 2) = 1 ! number from 1 at top + Grid_plot_rowspan(1, 2) = 1 ! plot spans this number of rows + Grid_plot_col(1, 2) = 3 ! number from 1 at left + Grid_plot_colspan(1, 2) = 1 ! plot spans this number of columns + Grid_plot_pad_left(1, 2) = 0.05 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 2) = 0.00 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 2) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 2) = 0.05 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 2) = 0.65 ! multiply txt_scale for subplot by this + + Grid_plot_name(1, 3) = 'logg_logT' + Grid_plot_row(1, 3) = 1 ! number from 1 at top + Grid_plot_rowspan(1, 3) = 1 ! plot spans this number of rows + Grid_plot_col(1, 3) = 4 ! number from 1 at left + Grid_plot_colspan(1, 3) = 1 ! plot spans this number of columns + Grid_plot_pad_left(1, 3) = 0.075 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 3) = -0.025 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 3) = 0.00 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 3) = 0.05 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 3) = 0.65 ! multiply txt_scale for subplot by this + + Grid_plot_name(1, 4) = 'Abundance' + Grid_plot_row(1, 4) = 2 ! number from 1 at top + Grid_plot_rowspan(1, 4) = 1 ! plot spans this number of rows + Grid_plot_col(1, 4) = 1 ! number from 1 at left + Grid_plot_colspan(1, 4) = 2 ! plot spans this number of columns + Grid_plot_pad_left(1, 4) = -0.05 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 4) = 0.05 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 4) = 0.025 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 4) = 0.025 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 4) = 0.65 ! multiply txt_scale for subplot by this + + Grid_plot_name(1, 5) = 'Profile_Panels1' + Grid_plot_row(1, 5) = 3 ! number from 1 at top + Grid_plot_rowspan(1, 5) = 1 ! plot spans this number of rows + Grid_plot_col(1, 5) = 1 ! number from 1 at left + Grid_plot_colspan(1, 5) = 2 ! plot spans this number of columns + Grid_plot_pad_left(1, 5) = -0.05 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 5) = 0.05 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 5) = 0.05 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 5) = 0.00 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 5) = 0.65 ! multiply txt_scale for subplot by this + + Grid_plot_name(1, 6) = 'History_Panels1' + Grid_plot_row(1, 6) = 2 ! number from 1 at top + Grid_plot_rowspan(1, 6) = 2 ! plot spans this number of rows + Grid_plot_col(1, 6) = 3 ! number from 1 at left + Grid_plot_colspan(1, 6) = 2 ! plot spans this number of columns + Grid_plot_pad_left(1, 6) = 0.10 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 6) = 0.05 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 6) = 0.05 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 6) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 6) = 0.65 ! multiply txt_scale for subplot by this ! file output - Grid1_file_flag = .false. - Grid1_file_dir = 'png' - Grid1_file_prefix = 'grid1-' - Grid1_file_interval = 5 ! output when mod(model_number,Grid1_file_interval)==0 - Grid1_file_width = 18 ! negative means use same value as for window - Grid1_file_aspect_ratio = -1 ! negative means use same value as for window + Grid_file_flag(1) = .false. + Grid_file_dir(1) = 'png' + Grid_file_prefix(1) = 'grid1-' + Grid_file_interval(1) = 5 ! output when mod(model_number,Grid_file_interval(1))==0 + Grid_file_width(1) = 18 ! negative means use same value as for window + Grid_file_aspect_ratio(1) = -1 ! negative means use same value as for window / ! end of pgstar namelist diff --git a/star/test_suite/adjust_net/README.rst b/star/test_suite/adjust_net/README.rst index 8a6ea9490..0717c6a04 100644 --- a/star/test_suite/adjust_net/README.rst +++ b/star/test_suite/adjust_net/README.rst @@ -71,29 +71,29 @@ pgstar commands used for the plots above: Network_file_aspect_ratio = -1 - History_Track1_win_flag = .true. - History_Track1_win_width = 12 - History_Track1_title = 'adjust_net' - History_Track1_xname = 'model_number' - History_Track1_xaxis_label = 'model number' - - History_Track1_yname = 'species' - History_Track1_yaxis_label = 'species in network' - - History_Track1_reverse_xaxis = .false. - History_Track1_reverse_yaxis = .false. - - History_Track1_xmin = 180.0 - History_Track1_xmax = 240.0 - History_Track1_ymin = 0.0 - History_Track1_ymax = 70.0 - - History_Track1_file_flag = .true. - History_Track1_file_dir = 'png' - History_Track1_file_prefix = 'track1_' - History_Track1_file_interval = 10 - History_Track1_file_width =12 - History_Track1_file_aspect_ratio = -1 + History_Track_win_flag(1) = .true. + History_Track_win_width(1) = 12 + History_Track_title(1) = 'adjust_net' + History_Track_xname(1) = 'model_number' + History_Track_xaxis_label(1) = 'model number' + + History_Track_yname(1) = 'species' + History_Track_yaxis_label(1) = 'species in network' + + History_Track_reverse_xaxis(1) = .false. + History_Track_reverse_yaxis(1) = .false. + + History_Track_xmin(1) = 180.0 + History_Track_xmax(1) = 240.0 + History_Track_ymin(1) = 0.0 + History_Track_ymax(1) = 70.0 + + History_Track_file_flag(1) = .true. + History_Track_file_dir(1) = 'png' + History_Track_file_prefix(1) = 'track1_' + History_Track_file_interval(1) = 10 + History_Track_file_width(1) =12 + History_Track_file_aspect_ratio(1) = -1 / ! end of pgstar namelist diff --git a/star/test_suite/adjust_net/inlist_adjust_net b/star/test_suite/adjust_net/inlist_adjust_net index 84955fba6..9c7624688 100644 --- a/star/test_suite/adjust_net/inlist_adjust_net +++ b/star/test_suite/adjust_net/inlist_adjust_net @@ -93,7 +93,7 @@ !pause = .true. -Profile_Panels1_xmax = 2.1 ! -101d0 ! only used if /= -101d0 +Profile_Panels_xmax(1) = 2.1 ! -101d0 ! only used if /= -101d0 Abundance_xmax = 2.1 ! -101 ! only used if /= -101d0 / ! end of pgstar namelist diff --git a/star/test_suite/adjust_net/inlist_massive_defaults b/star/test_suite/adjust_net/inlist_massive_defaults index d1ba52814..b9a9f9760 100644 --- a/star/test_suite/adjust_net/inlist_massive_defaults +++ b/star/test_suite/adjust_net/inlist_massive_defaults @@ -154,95 +154,95 @@ pgstar_age_disp = 2.5 pgstar_model_disp = 2.5 pgstar_lw = 8 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_win_width = 12 - Grid2_win_aspect_ratio = 0.5 ! aspect_ratio = height/width + Grid_win_width(2) = 12 + Grid_win_aspect_ratio(2) = 0.5 ! aspect_ratio = height/width - Grid2_num_cols = 7 ! divide plotting region into this many equal width cols - Grid2_num_rows = 8 ! divide plotting region into this many equal height rows - Grid2_num_plots = 5 ! <= 10 + Grid_num_cols(2) = 7 ! divide plotting region into this many equal width cols + Grid_num_rows(2) = 8 ! divide plotting region into this many equal height rows + Grid_num_plots(2) = 5 ! <= 10 - Grid2_plot_name(1) = 'TRho' - Grid2_plot_row(1) = 1 ! number from 1 at top - Grid2_plot_rowspan(1) = 6 ! plot spans this number of rows - Grid2_plot_col(1) = 1 ! number from 1 at left - Grid2_plot_colspan(1) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(1) = 0.00 ! fraction of full window width for padding on left - Grid2_plot_pad_right(1) = 0.00 ! fraction of full window width for padding on right - Grid2_plot_pad_top(1) = 0.00 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(1) = 0.0 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(1) = 0.65 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 1) = 'TRho' + Grid_plot_row(2, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 1) = 6 ! plot spans this number of rows + Grid_plot_col(2, 1) = 1 ! number from 1 at left + Grid_plot_colspan(2, 1) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 1) = 0.00 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 1) = 0.00 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 1) = 0.00 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 1) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 1) = 0.65 ! multiply txt_scale for subplot by this - Grid2_plot_name(2) = 'Text_Summary1' - Grid2_plot_row(2) = 7 ! number from 1 at top - Grid2_plot_rowspan(2) = 2 ! plot spans this number of rows - Grid2_plot_col(2) = 1 ! number from 1 at left - Grid2_plot_colspan(2) = 4 ! plot spans this number of columns - Grid2_plot_pad_left(2) = -0.08 ! fraction of full window width for padding on left - Grid2_plot_pad_right(2) = -0.12 ! fraction of full window width for padding on right - Grid2_plot_pad_top(2) = 0.08 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(2) = -0.04 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(2) = 0.19 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 2) = 'Text_Summary(1)' + Grid_plot_row(2, 2) = 7 ! number from 1 at top + Grid_plot_rowspan(2, 2) = 2 ! plot spans this number of rows + Grid_plot_col(2, 2) = 1 ! number from 1 at left + Grid_plot_colspan(2, 2) = 4 ! plot spans this number of columns + Grid_plot_pad_left(2, 2) = -0.08 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 2) = -0.12 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 2) = 0.08 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 2) = -0.04 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 2) = 0.19 ! multiply txt_scale for subplot by this - Grid2_plot_name(3) = 'Abundance' + Grid_plot_name(2, 3) = 'Abundance' - Grid2_plot_row(3) = 1 ! number from 1 at top - Grid2_plot_rowspan(3) = 3 ! plot spans this number of rows - Grid2_plot_col(3) = 3 ! plot spans this number of columns - Grid2_plot_colspan(3) = 3 ! plot spans this number of columns + Grid_plot_row(2, 3) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 3) = 3 ! plot spans this number of rows + Grid_plot_col(2, 3) = 3 ! plot spans this number of columns + Grid_plot_colspan(2, 3) = 3 ! plot spans this number of columns - Grid2_plot_pad_left(3) = 0.07 ! fraction of full window width for padding on left - Grid2_plot_pad_right(3) = 0.07 ! fraction of full window width for padding on right - Grid2_plot_pad_top(3) = 0.0 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(3) = 0.06 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(3) = 0.65 ! multiply txt_scale for subplot by this + Grid_plot_pad_left(2, 3) = 0.07 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 3) = 0.07 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 3) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 3) = 0.06 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 3) = 0.65 ! multiply txt_scale for subplot by this Abundance_xmax = 2.4 ! -101 ! only used if /= -101d0 Power_xmax = 2.4 ! -101 ! only used if /= -101d0 - Grid2_plot_name(4) = 'Power' + Grid_plot_name(2, 4) = 'Power' - Grid2_plot_row(4) = 4 ! number from 1 at top - Grid2_plot_rowspan(4) = 3 ! plot spans this number of rows - Grid2_plot_col(4) = 3 ! number from 1 at left - Grid2_plot_colspan(4) = 3 ! plot spans this number of columns + Grid_plot_row(2, 4) = 4 ! number from 1 at top + Grid_plot_rowspan(2, 4) = 3 ! plot spans this number of rows + Grid_plot_col(2, 4) = 3 ! number from 1 at left + Grid_plot_colspan(2, 4) = 3 ! plot spans this number of columns - Grid2_plot_pad_left(4) = 0.07 ! fraction of full window width for padding on left - Grid2_plot_pad_right(4) = 0.07 ! fraction of full window width for padding on right - Grid2_plot_pad_top(4) = 0.06 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(4) = 0.0 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(4) = 0.65 ! multiply txt_scale for subplot by this + Grid_plot_pad_left(2, 4) = 0.07 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 4) = 0.07 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 4) = 0.06 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 4) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 4) = 0.65 ! multiply txt_scale for subplot by this - Grid2_plot_name(5) = 'Profile_Panels1' - Grid2_plot_row(5) = 1 ! number from 1 at top - Grid2_plot_rowspan(5) = 8 ! plot spans this number of rows - Grid2_plot_col(5) = 6 ! number from 1 at left - Grid2_plot_colspan(5) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(5) = 0.05 ! fraction of full window width for padding on left - Grid2_plot_pad_right(5) = 0.03 ! fraction of full window width for padding on right - Grid2_plot_pad_top(5) = 0.0 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(5) = 0.0 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(5) = 0.65 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 5) = 'Profile_Panels(1)' + Grid_plot_row(2, 5) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 5) = 8 ! plot spans this number of rows + Grid_plot_col(2, 5) = 6 ! number from 1 at left + Grid_plot_colspan(2, 5) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 5) = 0.05 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 5) = 0.03 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 5) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 5) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 5) = 0.65 ! multiply txt_scale for subplot by this TRho_logRho_dlogRho_min = 0.01 TRho_logT_dlogT_min = 0.02 HR_dlogT_min = 0.02 HR_dlogL_min = 0.01 - Text_Summary1_name(2,1) = 'star_age' + Text_Summary_name(1,2,1) = 'star_age' ! file output -!Grid2_file_flag = .true. - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid_' - Grid2_file_interval = 10 ! 1 ! output when mod(model_number,Grid2_file_interval)==0 - Grid2_file_width = -1 ! negative means use same value as for window - Grid2_file_aspect_ratio = -1 ! negative means use same value as for window +!Grid_file_flag(2) = .true. + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid_' + Grid_file_interval(2) = 10 ! 1 ! output when mod(model_number,Grid_file_interval(2))==0 + Grid_file_width(2) = -1 ! negative means use same value as for window + Grid_file_aspect_ratio(2) = -1 ! negative means use same value as for window show_TRho_Profile_eos_regions = .false. @@ -251,19 +251,19 @@ Power_xmax = 2.4 ! -101 ! only used if /= -101d0 TRho_Profile_ymin = 5.1 TRho_Profile_ymax = 10.2 - Text_Summary1_name(1,3) = 'log_cntr_Rho' - Text_Summary1_name(2,3) = 'log_cntr_T' - Text_Summary1_name(3,3) = '' - Text_Summary1_name(4,3) = '' - Text_Summary1_name(5,3) = '' + Text_Summary_name(1,1,3) = 'log_cntr_Rho' + Text_Summary_name(1,2,3) = 'log_cntr_T' + Text_Summary_name(1,3,3) = '' + Text_Summary_name(1,4,3) = '' + Text_Summary_name(1,5,3) = '' - !Text_Summary1_name(6,3) = 'center_ye' + !Text_Summary_name(1,6,3) = 'center_ye' - !Text_Summary1_name(7,3) = 'iron_core_infall' - !Text_Summary1_name(8,3) = 'non_iron_core_infall' + !Text_Summary_name(1,7,3) = 'iron_core_infall' + !Text_Summary_name(1,8,3) = 'non_iron_core_infall' - !Text_Summary1_name(8,1) = 'center o16' - Text_Summary1_name(8,1) = 'species' + !Text_Summary_name(1,8,1) = 'center o16' + Text_Summary_name(1,8,1) = 'species' !Abundance_win_flag = .true. Abundance_win_width = 6 @@ -299,42 +299,37 @@ Abundance_xmax = 2.4 ! -101 ! only used if /= -101d0 Abundance_file_aspect_ratio = -1 ! negative means use same value as for window - !Profile_Panels1_win_flag = .true. - Profile_Panels1_win_width = 6 - Profile_Panels1_win_aspect_ratio = 1 ! aspect_ratio = height/width - - Profile_Panels1_title = 'Profile Panels' - Profile_Panels1_num_panels = 3 - Profile_Panels1_yaxis_name(1) = 'logT' - Profile_Panels1_other_yaxis_name(1) = 'entropy' - Profile_Panels1_other_ymin(1) = -101d0 ! 0 ! only used if /= -101d0 - Profile_Panels1_other_ymax(1) = -101d0 ! only used if /= -101d0 - Profile_Panels1_other_ymargin(1) = 0.1 + !Profile_Panels_win_flag(1) = .true. + Profile_Panels_win_width(1) = 6 + Profile_Panels_win_aspect_ratio(1) = 1 ! aspect_ratio = height/width + + Profile_Panels_title(1) = 'Profile Panels' + Profile_Panels_num_panels(1) = 3 + Profile_Panels_yaxis_name(1, 1) = 'logT' + Profile_Panels_other_yaxis_name(1, 1) = 'entropy' + Profile_Panels_other_ymin(1, 1) = -101d0 ! 0 ! only used if /= -101d0 + Profile_Panels_other_ymax(1, 1) = -101d0 ! only used if /= -101d0 + Profile_Panels_other_ymargin(1, 1) = 0.1 - Profile_Panels1_yaxis_name(2) = 'logRho' - Profile_Panels1_other_yaxis_name(2) = 'logR_cm' - Profile_Panels1_other_ymin(2) = -101d0 ! only used if /= -101d0 - Profile_Panels1_other_ymax(2) = -101d0 ! only used if /= -101d0 - Profile_Panels1_other_ymargin(2) = 0.1 + Profile_Panels_yaxis_name(1, 2) = 'logRho' + Profile_Panels_other_yaxis_name(1, 2) = 'logR_cm' + Profile_Panels_other_ymin(1, 2) = -101d0 ! only used if /= -101d0 + Profile_Panels_other_ymax(1, 2) = -101d0 ! only used if /= -101d0 + Profile_Panels_other_ymargin(1, 2) = 0.1 - Profile_Panels1_yaxis_name(3) = 'ye' - Profile_Panels1_ymin(3) = -101d0 ! 0.43 ! only used if /= -101d0 - Profile_Panels1_ymax(3) = -101d0 ! 0.51 ! only used if /= -101d0 - Profile_Panels1_ymargin(3) = 0.1 - Profile_Panels1_other_yaxis_name(3) = 'vel_km_per_s' - Profile_Panels1_other_ymin(3) = -101d0 ! -1200 ! only used if /= -101d0 - Profile_Panels1_other_ymax(3) = -101d0 ! 300d0 ! only used if /= -101d0 - Profile_Panels1_other_ymargin(3) = 0.1 ! 10 - Profile_Panels1_other_dymin(3) = 50 + Profile_Panels_yaxis_name(1, 3) = 'ye' + Profile_Panels_ymin(1, 3) = -101d0 ! 0.43 ! only used if /= -101d0 + Profile_Panels_ymax(1, 3) = -101d0 ! 0.51 ! only used if /= -101d0 + Profile_Panels_ymargin(1, 3) = 0.1 + Profile_Panels_other_yaxis_name(1, 3) = 'vel_km_per_s' + Profile_Panels_other_ymin(1, 3) = -101d0 ! -1200 ! only used if /= -101d0 + Profile_Panels_other_ymax(1, 3) = -101d0 ! 300d0 ! only used if /= -101d0 + Profile_Panels_other_ymargin(1, 3) = 0.1 ! 10 + Profile_Panels_other_dymin(1, 3) = 50 - Profile_Panels1_xaxis_name = 'mass' - Profile_Panels1_xaxis_reversed = .false. - Profile_Panels1_xmin = 0.0 ! only used if /= -101d0 - - Profile_Panels1_xmax = 2.4 ! -101d0 ! only used if /= -101d0 - - Profile_Panels1_xmargin = 0d0 - - - + Profile_Panels_xaxis_name(1) = 'mass' + Profile_Panels_xaxis_reversed(1) = .false. + Profile_Panels_xmin(1) = 0.0 ! only used if /= -101d0 + Profile_Panels_xmax(1) = 2.4 ! -101d0 ! only used if /= -101d0 + Profile_Panels_xmargin(1) = 0d0 / ! end of pgstar namelist diff --git a/star/test_suite/c13_pocket/inlist_pgstar b/star/test_suite/c13_pocket/inlist_pgstar index 02534dc30..894cf4789 100644 --- a/star/test_suite/c13_pocket/inlist_pgstar +++ b/star/test_suite/c13_pocket/inlist_pgstar @@ -4,98 +4,75 @@ pgstar_interval = 1 - Grid1_title = 'c13_pocket (TP-AGB)' + Grid_title(1) = 'c13_pocket (TP-AGB)' - Grid1_win_flag = .false. + Grid_win_flag(1) = .false. - Grid1_win_width = 8 - Grid1_win_aspect_ratio = 0.75 ! aspect_ratio = height/width + Grid_win_width(1) = 8 + Grid_win_aspect_ratio(1) = 0.75 ! aspect_ratio = height/width - Grid1_xleft = 0.12 ! fraction of full window width for margin on left - Grid1_xright = 0.95 ! fraction of full window width for margin on right - Grid1_ybot = 0.08 ! fraction of full window width for margin on bottom - Grid1_ytop = 0.92 ! fraction of full window width for margin on top - - Grid1_plot_name(:) = '' - Grid1_plot_row(:) = 1 ! number from 1 at top - Grid1_plot_rowspan(:) = 1 ! plot spans this number of rows - Grid1_plot_col(:) = 1 ! number from 1 at left - Grid1_plot_colspan(:) = 1 ! plot spans this number of columns - Grid1_plot_pad_left(:) = 0.0 ! fraction of full window width for padding on left - Grid1_plot_pad_right(:) = 0.0 ! fraction of full window width for padding on right - Grid1_plot_pad_top(:) = 0.0 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(:) = 0.0 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(:) = 0.7 ! multiply txt_scale for subplot by this + Grid_xleft(1) = 0.12 ! fraction of full window width for margin on left + Grid_xright(1) = 0.95 ! fraction of full window width for margin on right + Grid_ybot(1) = 0.08 ! fraction of full window width for margin on bottom + Grid_ytop(1) = 0.92 ! fraction of full window width for margin on top ! set default - Grid1_num_cols = 4 ! divide plotting region into this many equal width cols - Grid1_num_rows = 3 ! divide plotting region into this many equal height rows - Grid1_num_plots = 4 ! <= 10 - - Grid1_plot_name(:) = '' - Grid1_plot_row(:) = 1 ! number from 1 at top - Grid1_plot_rowspan(:) = 1 ! plot spans this number of rows - Grid1_plot_col(:) = 1 ! number from 1 at left - Grid1_plot_colspan(:) = 1 ! plot spans this number of columns - Grid1_plot_pad_left(:) = 0.03 ! fraction of full window width for padding on left - Grid1_plot_pad_right(:) = 0.03 ! fraction of full window width for padding on right - Grid1_plot_pad_top(:) = 0.03 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(:) = 0.03 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(:) = 0.7 ! multiply txt_scale for subplot by this - - - Grid1_plot_name(1) = 'TRho_Profile' - Grid1_plot_row(1) = 1 ! number from 1 at top - Grid1_plot_rowspan(1) = 1 ! plot spans this number of rows - Grid1_plot_col(1) = 1 ! number from 1 at left - Grid1_plot_colspan(1) = 2 ! plot spans this number of columns - Grid1_plot_pad_left(1) = -0.05 ! fraction of full window width for padding on left - Grid1_plot_pad_right(1) = 0.075 ! fraction of full window width for padding on right - Grid1_plot_pad_top(1) = 0.0 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(1) = 0.05 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(1) = 0.6 ! multiply txt_scale for subplot by this - - Grid1_plot_name(2) = 'Abundance' - Grid1_plot_row(2) = 1 ! number from 1 at top - Grid1_plot_rowspan(2) = 1 ! plot spans this number of rows - Grid1_plot_col(2) = 3 ! number from 1 at left - Grid1_plot_colspan(2) = 2 ! plot spans this number of columns - Grid1_plot_pad_left(2) = 0.075 ! fraction of full window width for padding on left - Grid1_plot_pad_right(2) = -0.05 ! fraction of full window width for padding on right - Grid1_plot_pad_top(2) = 0.00 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(2) = 0.05 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(2) = 0.6 ! multiply txt_scale for subplot by this - - Grid1_plot_name(3) = 'History_Panels2' - Grid1_plot_row(3) = 2 ! number from 1 at top - Grid1_plot_rowspan(3) = 2 ! plot spans this number of rows - Grid1_plot_col(3) = 1 ! number from 1 at left - Grid1_plot_colspan(3) = 2 ! plot spans this number of columns - Grid1_plot_pad_left(3) = -0.05 ! fraction of full window width for padding on left - Grid1_plot_pad_right(3) = 0.075 ! fraction of full window width for padding on right - Grid1_plot_pad_top(3) = 0.05 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(3) = 0.0 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(3) = 0.6 ! multiply txt_scale for subplot by this - - Grid1_plot_name(4) = 'Kipp' - Grid1_plot_row(4) = 2 ! number from 1 at top - Grid1_plot_rowspan(4) = 2 ! plot spans this number of rows - Grid1_plot_col(4) = 3 ! number from 1 at left - Grid1_plot_colspan(4) = 2 ! plot spans this number of columns - Grid1_plot_pad_left(4) = 0.075 ! fraction of full window width for padding on left - Grid1_plot_pad_right(4) = -0.05 ! fraction of full window width for padding on right - Grid1_plot_pad_top(4) = 0.05 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(4) = 0.00 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(4) = 0.6 ! multiply txt_scale for subplot by this + Grid_num_cols(1) = 4 ! divide plotting region into this many equal width cols + Grid_num_rows(1) = 3 ! divide plotting region into this many equal height rows + Grid_num_plots(1) = 4 ! <= 10 + + Grid_plot_name(1, 1) = 'TRho_Profile' + Grid_plot_row(1, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(1, 1) = 1 ! plot spans this number of rows + Grid_plot_col(1, 1) = 1 ! number from 1 at left + Grid_plot_colspan(1, 1) = 2 ! plot spans this number of columns + Grid_plot_pad_left(1, 1) = -0.05 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 1) = 0.075 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 1) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 1) = 0.05 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 1) = 0.6 ! multiply txt_scale for subplot by this + + Grid_plot_name(1, 2) = 'Abundance' + Grid_plot_row(1, 2) = 1 ! number from 1 at top + Grid_plot_rowspan(1, 2) = 1 ! plot spans this number of rows + Grid_plot_col(1, 2) = 3 ! number from 1 at left + Grid_plot_colspan(1, 2) = 2 ! plot spans this number of columns + Grid_plot_pad_left(1, 2) = 0.075 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 2) = -0.05 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 2) = 0.00 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 2) = 0.05 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 2) = 0.6 ! multiply txt_scale for subplot by this + + Grid_plot_name(1, 3) = 'History_Panels(2)' + Grid_plot_row(1, 3) = 2 ! number from 1 at top + Grid_plot_rowspan(1, 3) = 2 ! plot spans this number of rows + Grid_plot_col(1, 3) = 1 ! number from 1 at left + Grid_plot_colspan(1, 3) = 2 ! plot spans this number of columns + Grid_plot_pad_left(1, 3) = -0.05 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 3) = 0.075 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 3) = 0.05 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 3) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 3) = 0.6 ! multiply txt_scale for subplot by this + + Grid_plot_name(1, 4) = 'Kipp' + Grid_plot_row(1, 4) = 2 ! number from 1 at top + Grid_plot_rowspan(1, 4) = 2 ! plot spans this number of rows + Grid_plot_col(1, 4) = 3 ! number from 1 at left + Grid_plot_colspan(1, 4) = 2 ! plot spans this number of columns + Grid_plot_pad_left(1, 4) = 0.075 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 4) = -0.05 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 4) = 0.05 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 4) = 0.00 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 4) = 0.6 ! multiply txt_scale for subplot by this ! file output - Grid1_file_flag = .true. - Grid1_file_dir = 'png' - Grid1_file_prefix = 'grid1' - Grid1_file_interval = 5 ! output when mod(model_number,Grid1_file_interval)==0 - Grid1_file_width = 16 ! negative means use same value as for window - Grid1_file_aspect_ratio = -1 ! negative means use same value as for window + Grid_file_flag(1) = .true. + Grid_file_dir(1) = 'png' + Grid_file_prefix(1) = 'grid1' + Grid_file_interval(1) = 5 ! output when mod(model_number,Grid_file_interval)==0 + Grid_file_width(1) = 16 ! negative means use same value as for window + Grid_file_aspect_ratio(1) = -1 ! negative means use same value as for window Abundance_win_flag = .false. @@ -168,66 +145,48 @@ Kipp_mass_max = 0.60 - History_Panels2_win_flag = .false. - - History_Panels2_win_width = 6 - History_Panels2_win_aspect_ratio = 0.75 ! aspect_ratio = height/width - - History_Panels2_xleft = 0.15 - History_Panels2_xright = 0.85 - History_Panels2_ybot = 0.15 - History_Panels2_ytop = 0.85 - History_Panels2_txt_scale = 1.0 - History_Panels2_title = '' - - History_Panels2_xaxis_name = 'model_number' - History_Panels2_xmin = -101d0 - History_Panels2_xmax = -101d0 - History_Panels2_max_width = 6000 ! only used if > 0. causes xmin to move with xmax. - History_Panels2_dxmin = -1 - History_Panels2_xaxis_reversed = .false. - History_Panels2_xaxis_log = .false. ! show log10 of abs value - History_Panels2_xmargin = 0.0 + History_Panels_win_flag(2) = .false. - History_Panels2_num_panels = 2 + History_Panels_win_width(2) = 6 + History_Panels_win_aspect_ratio(2) = 0.75 ! aspect_ratio = height/width - ! History_Panels2_yaxis_name(:) = '' - ! History_Panels2_yaxis_reversed(:) = .false. - ! History_Panels2_yaxis_log(:) = .false. ! show log10 of abs value - ! History_Panels2_ymin(:) = -101d0 ! only used if /= -101d0 - ! History_Panels2_ymax(:) = -101d0 ! only used if /= -101d0 - ! History_Panels2_ymargin(:) = 0.1 - ! History_Panels2_dymin(:) = -1 + History_Panels_xleft(2) = 0.15 + History_Panels_xright(2) = 0.85 + History_Panels_ybot(2) = 0.15 + History_Panels_ytop(2) = 0.85 + History_Panels_txt_scale(2) = 1.0 + History_Panels_title(2) = '' - ! History_Panels2_other_yaxis_name(:) = '' - ! History_Panels2_other_yaxis_reversed(:) = .false. - ! History_Panels2_other_yaxis_log(:) = .false. ! show log10 of abs value - ! History_Panels2_other_ymin(:) = -101d0 ! only used if /= -101d0 - ! History_Panels2_other_ymax(:) = -101d0 ! only used if /= -101d0 - ! History_Panels2_other_ymargin(:) = 0.1 - ! History_Panels2_other_dymin(:) = -1 + History_Panels_xaxis_name(2) = 'model_number' + History_Panels_xmin(2) = -101d0 + History_Panels_xmax(2) = -101d0 + History_Panels_max_width(2) = 6000 ! only used if > 0. causes xmin to move with xmax. + History_Panels_dxmin(2) = -1 + History_Panels_xaxis_reversed(2) = .false. + History_Panels_xaxis_log(2) = .false. ! show log10 of abs value + History_Panels_xmargin(2) = 0.0 - ! History_Panels2_points_name(:) = '' + History_Panels_num_panels(2) = 2 ! Enables calling a subroutine to add extra information to a plot ! see `$MESA_DIR/star/other/pgstar_decorator.f90` - History_Panels2_use_decorator = .false. + History_Panels_use_decorator(2) = .false. - History_Panels2_yaxis_name(1) = 'log_LH' - History_Panels2_other_yaxis_name(1) = 'log_LHe' + History_Panels_yaxis_name(2, 1) = 'log_LH' + History_Panels_other_yaxis_name(2, 1) = 'log_LHe' - History_Panels2_yaxis_name(2) = 'surface_c12' - History_Panels2_other_yaxis_name(2) = 'surface_o16' - History_Panels2_yaxis_log(2) = .true. - History_Panels2_other_yaxis_log(2) = .true. + History_Panels_yaxis_name(2, 2) = 'surface_c12' + History_Panels_other_yaxis_name(2, 2) = 'surface_o16' + History_Panels_yaxis_log(2, 2) = .true. + History_Panels_other_yaxis_log(2, 2) = .true. ! file output - History_Panels2_file_flag = .false. - History_Panels2_file_dir = 'png' - History_Panels2_file_prefix = 'History_Panels2_' - History_Panels2_file_interval = 5 ! output when `mod(model_number,History_Panels2_file_interval)==0` - History_Panels2_file_width = -1 ! (inches) negative means use same value as for window - History_Panels2_file_aspect_ratio = -1 ! negative means use same value as for window + History_Panels_file_flag(2) = .false. + History_Panels_file_dir(2) = 'png' + History_Panels_file_prefix(2) = 'History_Panels_' + History_Panels_file_interval(2) = 5 ! output when `mod(model_number,History_Panels_file_interval)==0` + History_Panels_file_width(2) = -1 ! (inches) negative means use same value as for window + History_Panels_file_aspect_ratio(2) = -1 ! negative means use same value as for window / ! end of pgstar namelist diff --git a/star/test_suite/carbon_kh/inlist_carbon_kh b/star/test_suite/carbon_kh/inlist_carbon_kh index 055072a37..261b9514a 100644 --- a/star/test_suite/carbon_kh/inlist_carbon_kh +++ b/star/test_suite/carbon_kh/inlist_carbon_kh @@ -101,157 +101,138 @@ trho_profile_win_flag = .true. show_TRho_Profile_eos_regions = .true. - !### History_Panels1 - - History_Panels1_win_flag = .true. - - History_Panels1_win_width = 6 - History_Panels1_win_aspect_ratio = 0.75 ! aspect_ratio = height/width - - History_Panels1_xleft = 0.15 - History_Panels1_xright = 0.85 - History_Panels1_ybot = 0.15 - History_Panels1_ytop = 0.85 - History_Panels1_txt_scale = 1.0 - History_Panels1_title = 'History_Panels1' - - History_Panels1_xaxis_name = 'model_number' - History_Panels1_xmin = -101d0 - History_Panels1_xmax = -101d0 - History_Panels1_max_width = 100 ! only used if > 0. causes xmin to move with xmax. - History_Panels1_dxmin = -1 - History_Panels1_xaxis_reversed = .false. - History_Panels1_xaxis_log = .false. ! show log10 of abs value - History_Panels1_xmargin = 0.0 - - History_Panels1_yaxis_name(:) = '' - History_Panels1_yaxis_reversed(:) = .false. - History_Panels1_yaxis_log(:) = .false. ! show log10 of abs value - History_Panels1_ymin(:) = -101d0 ! only used if /= -101d0 - History_Panels1_ymax(:) = -101d0 ! only used if /= -101d0 - History_Panels1_ymargin(:) = 0.1 - History_Panels1_dymin(:) = -1 - - History_Panels1_other_yaxis_name(:) = '' - History_Panels1_other_yaxis_reversed(:) = .false. - History_Panels1_other_yaxis_log(:) = .false. ! show log10 of abs value - History_Panels1_other_ymin(:) = -101d0 ! only used if /= -101d0 - History_Panels1_other_ymax(:) = -101d0 ! only used if /= -101d0 - History_Panels1_other_ymargin(:) = 0.1 - History_Panels1_other_dymin(:) = -1 - - History_Panels1_points_name(:) = '' - - ! setup default - History_Panels1_num_panels = 1 - - History_Panels1_yaxis_name(1) = 'rel_e_eos_err_run' - History_Panels1_yaxis_reversed(1) = .false. - History_Panels1_yaxis_log(1) = .true. ! show log10 of abs value - History_Panels1_ymin(1) = -12 ! only used if /= -101d0 - History_Panels1_ymax(1) = -2 ! only used if /= -101d0 - History_Panels1_dymin(1) = -1 - - History_Panels1_other_yaxis_name(1) = 'rel_e_eos_err_run_blend' - History_Panels1_other_yaxis_reversed(1) = .false. - History_Panels1_other_yaxis_log(1) = .true. ! show log10 of abs value - History_Panels1_other_ymin(1) = -12 ! only used if /= -101d0 - History_Panels1_other_ymax(1) = -2 ! only used if /= -101d0 - History_Panels1_other_dymin(1) = -1 - - History_Panels1_yaxis_name(2) = 'rel_e_eos_err_run_blend' - History_Panels1_yaxis_reversed(2) = .false. - History_Panels1_yaxis_log(2) = .true. ! show log10 of abs value - History_Panels1_ymin(2) = -101d0 ! only used if /= -101d0 - History_Panels1_ymax(2) = -101d0 ! only used if /= -101d0 - History_Panels1_dymin(2) = -1 - - History_Panels1_other_yaxis_name(2) = '' - History_Panels1_other_yaxis_reversed(2) = .false. - History_Panels1_other_ymin(2) = -101d0 ! only used if /= -101d0 - History_Panels1_other_ymax(2) = -101d0 ! only used if /= -101d0 - History_Panels1_other_dymin(2) = -1 - - History_Panels1_yaxis_name(3) = 'e_res_err_run' - History_Panels1_yaxis_reversed(3) = .false. - History_Panels1_ymin(3) = -101d0 ! only used if /= -101d0 - History_Panels1_ymax(3) = -101d0 ! only used if /= -101d0 - History_Panels1_dymin(3) = -1 - - History_Panels1_other_yaxis_name(3) = '' - History_Panels1_other_yaxis_reversed(3) = .false. - History_Panels1_other_ymin(3) = -101d0 ! only used if /= -101d0 - History_Panels1_other_ymax(3) = -101d0 ! only used if /= -101d0 - History_Panels1_other_dymin(3) = -1 + !### History_Panels + + History_Panels_win_flag(1) = .true. + + History_Panels_win_width(1) = 6 + History_Panels_win_aspect_ratio(1) = 0.75 ! aspect_ratio = height/width + + History_Panels_xleft(1) = 0.15 + History_Panels_xright(1) = 0.85 + History_Panels_ybot(1) = 0.15 + History_Panels_ytop(1) = 0.85 + History_Panels_txt_scale(1) = 1.0 + History_Panels_title(1) = 'History_Panels 1' + + History_Panels_xaxis_name(1) = 'model_number' + History_Panels_xmin(1) = -101d0 + History_Panels_xmax(1) = -101d0 + History_Panels_max_width(1) = 100 ! only used if > 0. causes xmin to move with xmax. + History_Panels_dxmin(1) = -1 + History_Panels_xaxis_reversed(1) = .false. + History_Panels_xaxis_log(1) = .false. ! show log10 of abs value + History_Panels_xmargin(1) = 0.0 + + History_Panels_num_panels(1) = 1 + + History_Panels_yaxis_name(1, 1) = 'rel_e_eos_err_run' + History_Panels_yaxis_reversed(1, 1) = .false. + History_Panels_yaxis_log(1, 1) = .true. ! show log10 of abs value + History_Panels_ymin(1, 1) = -12 ! only used if /= -101d0 + History_Panels_ymax(1, 1) = -2 ! only used if /= -101d0 + History_Panels_dymin(1, 1) = -1 + + History_Panels_other_yaxis_name(1, 1) = 'rel_e_eos_err_run_blend' + History_Panels_other_yaxis_reversed(1, 1) = .false. + History_Panels_other_yaxis_log(1, 1) = .true. ! show log10 of abs value + History_Panels_other_ymin(1, 1) = -12 ! only used if /= -101d0 + History_Panels_other_ymax(1, 1) = -2 ! only used if /= -101d0 + History_Panels_other_dymin(1, 1) = -1 + + History_Panels_yaxis_name(1, 2) = 'rel_e_eos_err_run_blend' + History_Panels_yaxis_reversed(1, 2) = .false. + History_Panels_yaxis_log(1, 2) = .true. ! show log10 of abs value + History_Panels_ymin(1, 2) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(1, 2) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(1, 2) = -1 + + History_Panels_other_yaxis_name(1, 2) = '' + History_Panels_other_yaxis_reversed(1, 2) = .false. + History_Panels_other_ymin(1, 2) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(1, 2) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(1, 2) = -1 + + History_Panels_yaxis_name(1, 3) = 'e_res_err_run' + History_Panels_yaxis_reversed(1, 3) = .false. + History_Panels_ymin(1, 3) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(1, 3) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(1, 3) = -1 + + History_Panels_other_yaxis_name(1, 3) = '' + History_Panels_other_yaxis_reversed(1, 3) = .false. + History_Panels_other_ymin(1, 3) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(1, 3) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(1, 3) = -1 ! Enables calling a subroutine to add extra information to a plot ! see `$MESA_DIR/star/other/pgstar_decorator.f90` - History_Panels1_use_decorator = .false. + History_Panels_use_decorator(1) = .false. ! file output - History_Panels1_file_flag = .false. - History_Panels1_file_dir = 'png' - History_Panels1_file_prefix = 'History_Panels1_' - History_Panels1_file_interval = 5 ! output when `mod(model_number,History_Panels1_file_interval)==0` - History_Panels1_file_width = -1 ! (inches) negative means use same value as for window - History_Panels1_file_aspect_ratio = -1 ! negative means use same value as for window + History_Panels_file_flag(1) = .false. + History_Panels_file_dir(1) = 'png' + History_Panels_file_prefix(1) = 'History_Panels1_' + History_Panels_file_interval(1) = 5 ! output when `mod(model_number,History_Panels_file_interval)==0` + History_Panels_file_width(1) = -1 ! (inches) negative means use same value as for window + History_Panels_file_aspect_ratio(1) = -1 ! negative means use same value as for window - !### Profile_Panels1 + !### Profile_Panels - Profile_Panels1_win_flag = .true. + Profile_Panels_win_flag(1) = .true. - Profile_Panels1_win_width = 12 - Profile_Panels1_win_aspect_ratio = 0.75 ! aspect_ratio = height/width + Profile_Panels_win_width(1) = 12 + Profile_Panels_win_aspect_ratio(1) = 0.75 ! aspect_ratio = height/width - Profile_Panels1_xleft = 0.15 - Profile_Panels1_xright = 0.85 - Profile_Panels1_ybot = 0.15 - Profile_Panels1_ytop = 0.85 - Profile_Panels1_txt_scale = 1.0 - Profile_Panels1_title = 'carbon_kh' + Profile_Panels_xleft(1) = 0.15 + Profile_Panels_xright(1) = 0.85 + Profile_Panels_ybot(1) = 0.15 + Profile_Panels_ytop(1) = 0.85 + Profile_Panels_txt_scale(1) = 1.0 + Profile_Panels_title(1) = 'carbon_kh' - Profile_Panels1_xaxis_name = 'zone' - Profile_Panels1_xaxis_reversed = .false. - Profile_Panels1_xmin = -101d0 ! only used if /= -101d0 - Profile_Panels1_xmax = -101d0 ! only used if /= -101d0 - Profile_Panels1_xmargin = 0d0 - Profile_Panels1_show_mix_regions_on_xaxis = .false. + Profile_Panels_xaxis_name(1) = 'zone' + Profile_Panels_xaxis_reversed(1) = .false. + Profile_Panels_xmin(1) = -101d0 ! only used if /= -101d0 + Profile_Panels_xmax(1) = -101d0 ! only used if /= -101d0 + Profile_Panels_xmargin(1) = 0d0 + Profile_Panels_show_mix_regions_on_xaxis(1) = .false. - Profile_Panels1_show_grid = .false. + Profile_Panels_show_grid(1) = .false. ! setup default plot - Profile_Panels1_num_panels = 2 - Profile_Panels1_yaxis_name(1) = 'rse_eps_grav' - Profile_Panels1_yaxis_log(1) = .true. - Profile_Panels1_other_yaxis_name(1) = 'eps_eos' - Profile_Panels1_other_yaxis_log(1) = .true. + Profile_Panels_num_panels(1) = 2 + Profile_Panels_yaxis_name(1, 1) = 'rse_eps_grav' + Profile_Panels_yaxis_log(1, 1) = .true. + Profile_Panels_other_yaxis_name(1, 1) = 'eps_eos' + Profile_Panels_other_yaxis_log(1, 1) = .true. - Profile_Panels1_ymin(1) = 0 - Profile_Panels1_ymax(1) = 30 + Profile_Panels_ymin(1, 1) = 0 + Profile_Panels_ymax(1, 1) = 30 - Profile_Panels1_other_ymin(1) = 0 - Profile_Panels1_other_ymax(1) = 30 + Profile_Panels_other_ymin(1, 1) = 0 + Profile_Panels_other_ymax(1, 1) = 30 - Profile_Panels1_yaxis_name(2) = 'eos_frac_HELM' - Profile_Panels1_other_yaxis_name(2) = 'eos_frac_FreeEOS' + Profile_Panels_yaxis_name(1, 2) = 'eos_frac_HELM' + Profile_Panels_other_yaxis_name(1, 2) = 'eos_frac_FreeEOS' - Profile_Panels1_ymin(2) = -0.1 - Profile_Panels1_ymax(2) = 1.1 - Profile_Panels1_other_ymin(2) = 0.1 - Profile_Panels1_other_ymax(2) = 1.1 + Profile_Panels_ymin(1, 2) = -0.1 + Profile_Panels_ymax(1, 2) = 1.1 + Profile_Panels_other_ymin(1, 2) = 0.1 + Profile_Panels_other_ymax(1, 2) = 1.1 ! Enables calling a subroutine to add extra information to a plot ! see `$MESA_DIR/star/other/pgstar_decorator.f90` - Profile_Panels1_use_decorator = .false. + Profile_Panels_use_decorator(1) = .false. ! file output - Profile_Panels1_file_flag = .false. - Profile_Panels1_file_dir = 'png' - Profile_Panels1_file_prefix = 'profile_panels1_' - Profile_Panels1_file_interval = 1 ! output when `mod(model_number,Profile_Panels1_file_interval)==0` - Profile_Panels1_file_width = -1 ! (inches) negative means use same value as for window - Profile_Panels1_file_aspect_ratio = -1 ! negative means use same value as for window + Profile_Panels_file_flag(1) = .false. + Profile_Panels_file_dir(1) = 'png' + Profile_Panels_file_prefix(1) = 'profile_panels1_' + Profile_Panels_file_interval(1) = 1 ! output when `mod(model_number,Profile_Panels_file_interval)==0` + Profile_Panels_file_width(1) = -1 ! (inches) negative means use same value as for window + Profile_Panels_file_aspect_ratio(1) = -1 ! negative means use same value as for window / diff --git a/star/test_suite/cburn_inward/README.rst b/star/test_suite/cburn_inward/README.rst index 6c81944ed..b1ec1d8f5 100644 --- a/star/test_suite/cburn_inward/README.rst +++ b/star/test_suite/cburn_inward/README.rst @@ -54,43 +54,43 @@ pgstar commands used for the plots above: pgstar_interval = 1 - Grid2_win_flag = .true. - Grid2_win_width = 15 - Grid2_win_aspect_ratio = 0.5 ! aspect_ratio = height/width - - Grid2_num_cols = 7 ! divide plotting region into this many equal width cols - Grid2_num_rows = 8 ! divide plotting region into this many equal height rows - Grid2_num_plots = 6 ! <= 10 - - Grid2_plot_pad_right(5) = 0.00 ! fraction of full window width for padding on right - Grid2_plot_colspan(5) = 3 ! plot spans this number of columns - Grid2_plot_colspan(4) = 5 ! plot spans this number of columns - - Grid2_plot_name(6) = 'Profile_Panels1' - Grid2_plot_row(6) = 1 ! number from 1 at top - Grid2_plot_rowspan(6) = 8 ! plot spans this number of rows - Grid2_plot_col(6) = 6 ! number from 1 at left - Grid2_plot_colspan(6) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(6) = 0.06 ! fraction of full window width for padding on left - Grid2_plot_pad_right(6) = 0.03 ! fraction of full window width for padding on right - Grid2_plot_pad_top(6) = 0.0 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(6) = 0.0 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(6) = 0.65 ! multiply txt_scale for subplot by this + Grid_win_flag(2) = .true. + Grid_win_width(2) = 15 + Grid_win_aspect_ratio(2) = 0.5 ! aspect_ratio = height/width + + Grid_num_cols(2) = 7 ! divide plotting region into this many equal width cols + Grid_num_rows(2) = 8 ! divide plotting region into this many equal height rows + Grid_num_plots(2) = 6 ! <= 10 + + Grid_plot_pad_right(2, 5) = 0.00 ! fraction of full window width for padding on right + Grid_plot_colspan(2, 5) = 3 ! plot spans this number of columns + Grid_plot_colspan(2, 4) = 5 ! plot spans this number of columns + + Grid_plot_name(2, 6) = 'Profile_Panels1' + Grid_plot_row(2, 6) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 6) = 8 ! plot spans this number of rows + Grid_plot_col(2, 6) = 6 ! number from 1 at left + Grid_plot_colspan(2, 6) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 6) = 0.06 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 6) = 0.03 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 6) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 6) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 6) = 0.65 ! multiply txt_scale for subplot by this TRho_logRho_dlogRho_min = 0.01 TRho_logT_dlogT_min = 0.02 HR_dlogT_min = 0.02 HR_dlogL_min = 0.01 - Text_Summary1_name(2,1) = 'star_age' + Text_Summary_name(1, 2, 1) = 'star_age' ! file output - Grid2_file_flag = .true. - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid_' - Grid2_file_interval = 10 ! 1 ! output when mod(model_number,Grid2_file_interval)==0 - Grid2_file_width = -1 ! negative means use same value as for window - Grid2_file_aspect_ratio = -1 ! negative means use same value as for window + Grid_file_flag(2) = .true. + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid_' + Grid_file_interval(2) = 10 ! 1 ! output when mod(model_number,Grid_file_interval(2))==0 + Grid_file_width(2) = -1 ! negative means use same value as for window + Grid_file_aspect_ratio(2) = -1 ! negative means use same value as for window show_TRho_Profile_eos_regions = .false. @@ -99,10 +99,10 @@ pgstar commands used for the plots above: TRho_Profile_ymin = 5.1 TRho_Profile_ymax = 10.2 - Text_Summary1_name(1,3) = 'log_cntr_Rho' - Text_Summary1_name(2,3) = 'log_cntr_T' - Text_Summary1_name(3,3) = 'max_T' - Text_Summary1_name(8,1) = 'species' + Text_Summary_name(1, 1, 3) = 'log_cntr_Rho' + Text_Summary_name(1, 2, 3) = 'log_cntr_T' + Text_Summary_name(1, 3, 3) = 'max_T' + Text_Summary_name(1, 8, 1) = 'species' Abundance_win_flag = .false. Abundance_win_width = 6 @@ -126,41 +126,41 @@ pgstar commands used for the plots above: Abundance_file_aspect_ratio = -1 ! negative means use same value as for window - Profile_Panels1_win_width = 6 - Profile_Panels1_win_aspect_ratio = 1 ! aspect_ratio = height/width + Profile_Panels_win_width(1) = 6 + Profile_Panels_win_aspect_ratio = 1 ! aspect_ratio(1) = height/width - Profile_Panels1_title = 'Profile Panels' - Profile_Panels1_num_panels = 3 + Profile_Panels_title(1) = 'Profile Panels' + Profile_Panels_num_panels(1) = 3 - Profile_Panels1_yaxis_name(1) = 'logT' - Profile_Panels1_other_yaxis_name(1) = 'entropy' - Profile_Panels1_other_ymin(1) = 0 ! only used if /= -101d0 - Profile_Panels1_other_ymax(1) = -101d0 ! only used if /= -101d0 - Profile_Panels1_other_ymargin(1) = 1 + Profile_Panels_yaxis_name(1, 1) = 'logT' + Profile_Panels_other_yaxis_name(1, 1) = 'entropy' + Profile_Panels_other_ymin(1, 1) = 0 ! only used if /= -101d0 + Profile_Panels_other_ymax(1, 1) = -101d0 ! only used if /= -101d0 + Profile_Panels_other_ymargin(1, 1) = 1 - Profile_Panels1_yaxis_name(2) = 'logRho' - Profile_Panels1_other_yaxis_name(2) = 'logR_cm' - Profile_Panels1_other_ymin(2) = -101d0 ! only used if /= -101d0 - Profile_Panels1_other_ymax(2) = -101d0 ! only used if /= -101d0 - Profile_Panels1_other_ymargin(2) = 0 + Profile_Panels_yaxis_name(1, 2) = 'logRho' + Profile_Panels_other_yaxis_name(1, 2) = 'logR_cm' + Profile_Panels_other_ymin(1, 2) = -101d0 ! only used if /= -101d0 + Profile_Panels_other_ymax(1, 2) = -101d0 ! only used if /= -101d0 + Profile_Panels_other_ymargin(1, 2) = 0 - Profile_Panels1_yaxis_name(3) = 'log_abs_eps_nuc' - Profile_Panels1_ymin(3) = 5 ! only used if /= -101d0 - !Profile_Panels1_ymax(3) = 0.51 ! only used if /= -101d0 - !Profile_Panels1_ymargin(3) = 0.1 - Profile_Panels1_other_yaxis_name(3) = 'log_D_mix' - Profile_Panels1_other_ymin(3) = 5 ! only used if /= -101d0 - !Profile_Panels1_other_ymax(3) = 300d0 ! only used if /= -101d0 - !Profile_Panels1_other_ymargin(3) = 10 + Profile_Panels_yaxis_name(1, 3) = 'log_abs_eps_nuc' + Profile_Panels_ymin(1, 3) = 5 ! only used if /= -101d0 + !Profile_Panels_ymax(1, 3) = 0.51 ! only used if /= -101d0 + !Profile_Panels_ymargin(1, 3) = 0.1 + Profile_Panels_other_yaxis_name(1, 3) = 'log_D_mix' + Profile_Panels_other_ymin(1, 3) = 5 ! only used if /= -101d0 + !Profile_Panels_other_ymax(1, 3) = 300d0 ! only used if /= -101d0 + !Profile_Panels_other_ymargin(1, 3) = 10 - Profile_Panels1_xaxis_name = 'mass' - Profile_Panels1_xaxis_reversed = .false. - Profile_Panels1_xmin = 0.0 ! only used if /= -101d0 + Profile_Panels_xaxis_name(1) = 'mass' + Profile_Panels_xaxis_reversed(1) = .false. + Profile_Panels_xmin(1) = 0.0 ! only used if /= -101d0 - Profile_Panels1_xmargin = 0d0 + Profile_Panels_xmargin(1) = 0d0 - Profile_Panels1_xmax = 0.5 ! -101d0 ! only used if /= -101d0 + Profile_Panels_xmax(1) = 0.5 ! -101d0 ! only used if /= -101d0 Abundance_xmax = 0.5 ! -101 ! only used if /= -101d0 kipp_win_flag = .true. diff --git a/star/test_suite/cburn_inward/inlist_cburn_inward b/star/test_suite/cburn_inward/inlist_cburn_inward index 78b29253c..bf63129a1 100644 --- a/star/test_suite/cburn_inward/inlist_cburn_inward +++ b/star/test_suite/cburn_inward/inlist_cburn_inward @@ -122,45 +122,45 @@ &pgstar !pause = .true. - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_win_width = 14 - Grid2_win_aspect_ratio = 0.5 ! aspect_ratio = height/width + Grid_win_width(2) = 14 + Grid_win_aspect_ratio(2) = 0.5 ! aspect_ratio = height/width - Grid2_num_cols = 7 ! divide plotting region into this many equal width cols - Grid2_num_rows = 8 ! divide plotting region into this many equal height rows - Grid2_num_plots = 6 ! <= 10 + Grid_num_cols(2) = 7 ! divide plotting region into this many equal width cols + Grid_num_rows(2) = 8 ! divide plotting region into this many equal height rows + Grid_num_plots(2) = 6 ! <= 10 - Grid2_plot_pad_right(5) = 0.00 ! fraction of full window width for padding on right - Grid2_plot_colspan(5) = 3 ! plot spans this number of columns - Grid2_plot_colspan(4) = 5 ! plot spans this number of columns + Grid_plot_pad_right(2, 5) = 0.00 ! fraction of full window width for padding on right + Grid_plot_colspan(2, 5) = 3 ! plot spans this number of columns + Grid_plot_colspan(2, 4) = 5 ! plot spans this number of columns - Grid2_plot_name(6) = 'Profile_Panels1' - Grid2_plot_row(6) = 1 ! number from 1 at top - Grid2_plot_rowspan(6) = 8 ! plot spans this number of rows - Grid2_plot_col(6) = 6 ! number from 1 at left - Grid2_plot_colspan(6) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(6) = 0.06 ! fraction of full window width for padding on left - Grid2_plot_pad_right(6) = 0.03 ! fraction of full window width for padding on right - Grid2_plot_pad_top(6) = 0.0 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(6) = 0.0 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(6) = 0.65 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 6) = 'Profile_Panels1' + Grid_plot_row(2, 6) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 6) = 8 ! plot spans this number of rows + Grid_plot_col(2, 6) = 6 ! number from 1 at left + Grid_plot_colspan(2, 6) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 6) = 0.06 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 6) = 0.03 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 6) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 6) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 6) = 0.65 ! multiply txt_scale for subplot by this TRho_logRho_dlogRho_min = 0.01 TRho_logT_dlogT_min = 0.02 HR_dlogT_min = 0.02 HR_dlogL_min = 0.01 - Text_Summary1_name(2,1) = 'star_age' + Text_Summary_name(1,2,1) = 'star_age' ! file output - Grid2_file_flag = .true. - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid_' - Grid2_file_interval = 50 ! 1 ! output when mod(model_number,Grid2_file_interval)==0 - Grid2_file_width = -1 ! negative means use same value as for window - Grid2_file_aspect_ratio = -1 ! negative means use same value as for window + Grid_file_flag(2) = .true. + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid_' + Grid_file_interval(2) = 50 ! 1 ! output when mod(model_number,Grid_file_interval(2))==0 + Grid_file_width(2) = -1 ! negative means use same value as for window + Grid_file_aspect_ratio(2) = -1 ! negative means use same value as for window show_TRho_Profile_eos_regions = .false. @@ -169,12 +169,12 @@ TRho_Profile_ymin = 5.1 TRho_Profile_ymax = 10.2 - Text_Summary1_name(1,3) = 'log_cntr_Rho' - Text_Summary1_name(2,3) = 'log_cntr_T' - Text_Summary1_name(3,3) = 'c12_c12' - Text_Summary1_name(4,3) = 'c_alpha' - Text_Summary1_name(5,3) = 'co_core_mass' - Text_Summary1_name(8,1) = 'species' + Text_Summary_name(1, 1, 3) = 'log_cntr_Rho' + Text_Summary_name(1, 2, 3) = 'log_cntr_T' + Text_Summary_name(1, 3, 3) = 'c12_c12' + Text_Summary_name(1, 4, 3) = 'c_alpha' + Text_Summary_name(1, 5, 3) = 'co_core_mass' + Text_Summary_name(1, 8, 1) = 'species' !Abundance_win_flag = .true. Abundance_win_width = 6 @@ -202,50 +202,50 @@ Abundance_file_aspect_ratio = -1 ! negative means use same value as for window - !Profile_Panels1_win_flag = .true. - Profile_Panels1_win_width = 6 - Profile_Panels1_win_aspect_ratio = 1 ! aspect_ratio = height/width + !Profile_Panels_win_flag(1) = .true. + Profile_Panels_win_width(1) = 6 + Profile_Panels_win_aspect_ratio = 1 ! aspect_ratio(1) = height/width - Profile_Panels1_title = 'Profile Panels' - Profile_Panels1_num_panels = 3 + Profile_Panels_title(1) = 'Profile Panels' + Profile_Panels_num_panels(1) = 3 - Profile_Panels1_yaxis_name(1) = 'logT' - Profile_Panels1_other_yaxis_name(1) = 'entropy' - Profile_Panels1_other_ymin(1) = 0 ! only used if /= -101d0 - Profile_Panels1_other_ymax(1) = -101d0 ! only used if /= -101d0 - Profile_Panels1_other_ymargin(1) = 1 + Profile_Panels_yaxis_name(1, 1) = 'logT' + Profile_Panels_other_yaxis_name(1, 1) = 'entropy' + Profile_Panels_other_ymin(1, 1) = 0 ! only used if /= -101d0 + Profile_Panels_other_ymax(1, 1) = -101d0 ! only used if /= -101d0 + Profile_Panels_other_ymargin(1, 1) = 1 - Profile_Panels1_yaxis_name(2) = 'brunt_N2' - Profile_Panels1_other_yaxis_name(2) = 'brunt_N2_composition_term' - Profile_Panels1_other_ymin(2) = -101d0 ! only used if /= -101d0 - Profile_Panels1_other_ymax(2) = -101d0 ! only used if /= -101d0 - Profile_Panels1_other_ymargin(2) = 0 + Profile_Panels_yaxis_name(1, 2) = 'brunt_N2' + Profile_Panels_other_yaxis_name(1, 2) = 'brunt_N2_composition_term' + Profile_Panels_other_ymin(1, 2) = -101d0 ! only used if /= -101d0 + Profile_Panels_other_ymax(1, 2) = -101d0 ! only used if /= -101d0 + Profile_Panels_other_ymargin(1, 2) = 0 - Profile_Panels1_yaxis_name(3) = 'log_abs_eps_nuc' - Profile_Panels1_ymin(3) = 5 ! only used if /= -101d0 - !Profile_Panels1_ymax(3) = 0.51 ! only used if /= -101d0 - !Profile_Panels1_ymargin(3) = 0.1 - Profile_Panels1_other_yaxis_name(3) = 'log_D_mix' - Profile_Panels1_other_ymin(3) = 5 ! only used if /= -101d0 - !Profile_Panels1_other_ymax(3) = 300d0 ! only used if /= -101d0 - !Profile_Panels1_other_ymargin(3) = 10 + Profile_Panels_yaxis_name(1, 3) = 'log_abs_eps_nuc' + Profile_Panels_ymin(1, 3) = 5 ! only used if /= -101d0 + !Profile_Panels_ymax(1, 3) = 0.51 ! only used if /= -101d0 + !Profile_Panels_ymargin(1, 3) = 0.1 + Profile_Panels_other_yaxis_name(1, 3) = 'log_D_mix' + Profile_Panels_other_ymin(1, 3) = 5 ! only used if /= -101d0 + !Profile_Panels_other_ymax(1, 3) = 300d0 ! only used if /= -101d0 + !Profile_Panels_other_ymargin(1, 3) = 10 - ! Profile_Panels1_xaxis_name = 'logR' - ! Profile_Panels1_xaxis_reversed = .false. - ! Profile_Panels1_xmin = -4 ! only used if /= -101d0 - ! Profile_Panels1_xmax = -2 ! -101d0 ! only used if /= -101d0 + ! Profile_Panels_xaxis_name(1) = 'logR' + ! Profile_Panels_xaxis_reversed(1) = .false. + ! Profile_Panels_xmin(1) = -4 ! only used if /= -101d0 + ! Profile_Panels_xmax(1) = -2 ! -101d0 ! only used if /= -101d0 - Profile_Panels1_xaxis_name = 'mass' - Profile_Panels1_xaxis_reversed = .false. - Profile_Panels1_xmin = 0.0 ! only used if /= -101d0 + Profile_Panels_xaxis_name(1) = 'mass' + Profile_Panels_xaxis_reversed(1) = .false. + Profile_Panels_xmin(1) = 0.0 ! only used if /= -101d0 - Profile_Panels1_xmargin = 0d0 + Profile_Panels_xmargin(1) = 0d0 - Profile_Panels1_xmax = 1.0 ! -101d0 ! only used if /= -101d0 + Profile_Panels_xmax(1) = 1.0 ! -101d0 ! only used if /= -101d0 Abundance_xmax = 1.0 ! -101 ! only used if /= -101d0 kipp_win_flag = .true. diff --git a/star/test_suite/cburn_inward/inlist_initial b/star/test_suite/cburn_inward/inlist_initial index 0d93597ca..9e947adda 100644 --- a/star/test_suite/cburn_inward/inlist_initial +++ b/star/test_suite/cburn_inward/inlist_initial @@ -116,45 +116,45 @@ !pause = .true. - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_win_width = 14 - Grid2_win_aspect_ratio = 0.5 ! aspect_ratio = height/width + Grid_win_width(2) = 14 + Grid_win_aspect_ratio(2) = 0.5 ! aspect_ratio = height/width - Grid2_num_cols = 7 ! divide plotting region into this many equal width cols - Grid2_num_rows = 8 ! divide plotting region into this many equal height rows - Grid2_num_plots = 6 ! <= 10 + Grid_num_cols(2) = 7 ! divide plotting region into this many equal width cols + Grid_num_rows(2) = 8 ! divide plotting region into this many equal height rows + Grid_num_plots(2) = 6 ! <= 10 - Grid2_plot_pad_right(5) = 0.00 ! fraction of full window width for padding on right - Grid2_plot_colspan(5) = 3 ! plot spans this number of columns - Grid2_plot_colspan(4) = 5 ! plot spans this number of columns + Grid_plot_pad_right(2, 5) = 0.00 ! fraction of full window width for padding on right + Grid_plot_colspan(2, 5) = 3 ! plot spans this number of columns + Grid_plot_colspan(2, 4) = 5 ! plot spans this number of columns - Grid2_plot_name(6) = 'Profile_Panels1' - Grid2_plot_row(6) = 1 ! number from 1 at top - Grid2_plot_rowspan(6) = 8 ! plot spans this number of rows - Grid2_plot_col(6) = 6 ! number from 1 at left - Grid2_plot_colspan(6) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(6) = 0.06 ! fraction of full window width for padding on left - Grid2_plot_pad_right(6) = 0.03 ! fraction of full window width for padding on right - Grid2_plot_pad_top(6) = 0.0 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(6) = 0.0 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(6) = 0.65 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 6) = 'Profile_Panels1' + Grid_plot_row(2, 6) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 6) = 8 ! plot spans this number of rows + Grid_plot_col(2, 6) = 6 ! number from 1 at left + Grid_plot_colspan(2, 6) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 6) = 0.06 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 6) = 0.03 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 6) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 6) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 6) = 0.65 ! multiply txt_scale for subplot by this TRho_logRho_dlogRho_min = 0.01 TRho_logT_dlogT_min = 0.02 HR_dlogT_min = 0.02 HR_dlogL_min = 0.01 - Text_Summary1_name(2,1) = 'star_age' + Text_Summary_name(1, 2, 1) = 'star_age' ! file output - !Grid2_file_flag = .true. - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid_' - Grid2_file_interval = 1 ! 1 ! output when mod(model_number,Grid2_file_interval)==0 - Grid2_file_width = -1 ! negative means use same value as for window - Grid2_file_aspect_ratio = -1 ! negative means use same value as for window + !Grid_file_flag(2) = .true. + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid_' + Grid_file_interval(2) = 1 ! 1 ! output when mod(model_number,Grid_file_interval(2))==0 + Grid_file_width(2) = -1 ! negative means use same value as for window + Grid_file_aspect_ratio(2) = -1 ! negative means use same value as for window show_TRho_Profile_eos_regions = .false. @@ -163,19 +163,19 @@ TRho_Profile_ymin = 5.1 TRho_Profile_ymax = 10.2 - Text_Summary1_name(1,3) = 'log_cntr_Rho' - Text_Summary1_name(2,3) = 'log_cntr_T' - Text_Summary1_name(3,3) = 'center h1' - Text_Summary1_name(4,3) = 'center he4' - Text_Summary1_name(5,3) = '' + Text_Summary_name(1, 1, 3) = 'log_cntr_Rho' + Text_Summary_name(1, 2, 3) = 'log_cntr_T' + Text_Summary_name(1, 3, 3) = 'center h1' + Text_Summary_name(1, 4, 3) = 'center he4' + Text_Summary_name(1, 5, 3) = '' - !Text_Summary1_name(6,3) = 'center_ye' + !Text_Summary_name(1, 6, 3) = 'center_ye' - !Text_Summary1_name(7,3) = 'iron_core_infall' - !Text_Summary1_name(8,3) = 'non_iron_core_infall' + !Text_Summary_name(1, 7, 3) = 'iron_core_infall' + !Text_Summary_name(1, 8, 3) = 'non_iron_core_infall' - !Text_Summary1_name(8,1) = 'center o16' - Text_Summary1_name(8,1) = 'species' + !Text_Summary_name(1, 8, 1) = 'center o16' + Text_Summary_name(1, 8, 1) = 'species' !Abundance_win_flag = .true. Abundance_win_width = 6 @@ -210,50 +210,50 @@ Abundance_file_aspect_ratio = -1 ! negative means use same value as for window - !Profile_Panels1_win_flag = .true. - Profile_Panels1_win_width = 6 - Profile_Panels1_win_aspect_ratio = 1 ! aspect_ratio = height/width + !Profile_Panels_win_flag(1) = .true. + Profile_Panels_win_width(1) = 6 + Profile_Panels_win_aspect_ratio = 1 ! aspect_ratio(1) = height/width - Profile_Panels1_title = 'Profile Panels' - Profile_Panels1_num_panels = 3 + Profile_Panels_title(1) = 'Profile Panels' + Profile_Panels_num_panels(1) = 3 - Profile_Panels1_yaxis_name(1) = 'logT' - Profile_Panels1_other_yaxis_name(1) = 'entropy' - Profile_Panels1_other_ymin(1) = 0 ! only used if /= -101d0 - Profile_Panels1_other_ymax(1) = -101d0 ! only used if /= -101d0 - Profile_Panels1_other_ymargin(1) = 1 + Profile_Panels_yaxis_name(1, 1) = 'logT' + Profile_Panels_other_yaxis_name(1, 1) = 'entropy' + Profile_Panels_other_ymin(1, 1) = 0 ! only used if /= -101d0 + Profile_Panels_other_ymax(1, 1) = -101d0 ! only used if /= -101d0 + Profile_Panels_other_ymargin(1, 1) = 1 - Profile_Panels1_yaxis_name(2) = 'logRho' - Profile_Panels1_other_yaxis_name(2) = 'logR_cm' - Profile_Panels1_other_ymin(2) = -101d0 ! only used if /= -101d0 - Profile_Panels1_other_ymax(2) = -101d0 ! only used if /= -101d0 - Profile_Panels1_other_ymargin(2) = 0 + Profile_Panels_yaxis_name(1, 2) = 'logRho' + Profile_Panels_other_yaxis_name(1, 2) = 'logR_cm' + Profile_Panels_other_ymin(1, 2) = -101d0 ! only used if /= -101d0 + Profile_Panels_other_ymax(1, 2) = -101d0 ! only used if /= -101d0 + Profile_Panels_other_ymargin(1, 2) = 0 - Profile_Panels1_yaxis_name(3) = 'log_abs_eps_nuc' - Profile_Panels1_ymin(3) = 5 ! only used if /= -101d0 - !Profile_Panels1_ymax(3) = 0.51 ! only used if /= -101d0 - !Profile_Panels1_ymargin(3) = 0.1 - Profile_Panels1_other_yaxis_name(3) = 'log_D_mix' - Profile_Panels1_other_ymin(3) = 5 ! only used if /= -101d0 - !Profile_Panels1_other_ymax(3) = 300d0 ! only used if /= -101d0 - !Profile_Panels1_other_ymargin(3) = 10 + Profile_Panels_yaxis_name(1, 3) = 'log_abs_eps_nuc' + Profile_Panels_ymin(1, 3) = 5 ! only used if /= -101d0 + !Profile_Panels_ymax(1, 3) = 0.51 ! only used if /= -101d0 + !Profile_Panels_ymargin(1, 3) = 0.1 + Profile_Panels_other_yaxis_name(1, 3) = 'log_D_mix' + Profile_Panels_other_ymin(1, 3) = 5 ! only used if /= -101d0 + !Profile_Panels_other_ymax(1, 3) = 300d0 ! only used if /= -101d0 + !Profile_Panels_other_ymargin(1, 3) = 10 - ! Profile_Panels1_xaxis_name = 'logR' - ! Profile_Panels1_xaxis_reversed = .false. - ! Profile_Panels1_xmin = -4 ! only used if /= -101d0 - ! Profile_Panels1_xmax = -2 ! -101d0 ! only used if /= -101d0 + ! Profile_Panels_xaxis_name(1) = 'logR' + ! Profile_Panels_xaxis_reversed(1) = .false. + ! Profile_Panels_xmin(1) = -4 ! only used if /= -101d0 + ! Profile_Panels_xmax(1) = -2 ! -101d0 ! only used if /= -101d0 - Profile_Panels1_xaxis_name = 'mass' - Profile_Panels1_xaxis_reversed = .false. - Profile_Panels1_xmin = 0.0 ! only used if /= -101d0 + Profile_Panels_xaxis_name(1) = 'mass' + Profile_Panels_xaxis_reversed(1) = .false. + Profile_Panels_xmin(1) = 0.0 ! only used if /= -101d0 - Profile_Panels1_xmargin = 0d0 + Profile_Panels_xmargin(1) = 0d0 - Profile_Panels1_xmax = 0.5 ! -101d0 ! only used if /= -101d0 + Profile_Panels_xmax(1) = 0.5 ! -101d0 ! only used if /= -101d0 Abundance_xmax = 0.5 ! -101 ! only used if /= -101d0 diff --git a/star/test_suite/ccsn_IIp/README.rst b/star/test_suite/ccsn_IIp/README.rst index 165b8a9c8..2c9808d80 100644 --- a/star/test_suite/ccsn_IIp/README.rst +++ b/star/test_suite/ccsn_IIp/README.rst @@ -71,157 +71,157 @@ pgstar commands used for the first 7 plots: Mixing_ymin = 8 Mixing_ymax = 22 - Profile_Panels1_title = '' - Profile_Panels1_xaxis_name = 'mass' - Profile_Panels1_xaxis_reversed = .false. - - Profile_Panels1_yaxis_name(1) = 'logRho' - Profile_Panels1_yaxis_name(2) = 'logT' - - Profile_Panels1_ymin(1) = -101 - ! Profile_Panels1_ymin(2) = -10 - ! Profile_Panels1_ymax(2) = 0.3 - - Profile_Panels1_other_yaxis_name(1) = 'logP' - Profile_Panels1_other_yaxis_name(2) = 'energy' - - Profile_Panels1_other_ymin(1) = -101 - ! Profile_Panels1_other_ymin(2) = -12 - ! Profile_Panels1_other_ymax(2) = 0 - - Profile_Panels1_num_panels = 2 - - Profile_Panels2_title = '' - Profile_Panels2_xaxis_name = 'mass' - Profile_Panels2_xaxis_reversed = .false. - - Profile_Panels2_num_panels = 2 - Profile_Panels2_yaxis_name(1) = 'v_div_csound' - Profile_Panels2_yaxis_name(2) = 'entropy' - - Profile_Panels2_ymin(1) = -101 - Profile_Panels2_ymin(2) = -101 - - Profile_Panels2_other_yaxis_name(1) = 'vel_km_per_s' - Profile_Panels2_other_yaxis_name(2) = 'total_energy' - - Profile_Panels2_other_ymin(1) = -101 - Profile_Panels2_other_ymin(2) = -101 - - Text_Summary1_txt_scale = 5.5 - - Text_Summary1_num_rows = 5 - Text_Summary1_num_cols = 3 - Text_Summary1_name(1, 1) = 'model_number' - Text_Summary1_name(2, 1) = 'star_age_sec' - Text_Summary1_name(3, 1) = 'time_step_sec' - Text_Summary1_name(4, 1) = 'log_rel_run_E_err' - Text_Summary1_name(5, 1) = 'total_energy' - Text_Summary1_name(6, 1) = 'log_R' - Text_Summary1_name(7, 1) = 'log_g' - Text_Summary1_name(8, 1) = 'log_surf_cell_P' - Text_Summary1_name(1, 2) = 'envelope_mass' - Text_Summary1_name(2, 2) = 'he_core_mass' - Text_Summary1_name(3, 2) = 'm_center' - Text_Summary1_name(4, 2) = 'r_center_km' - Text_Summary1_name(5, 2) = 'v_center' - Text_Summary1_name(6, 2) = 'cz_top_mass' - Text_Summary1_name(7, 2) = 'cz_bot_radius' - Text_Summary1_name(8, 2) = 'cz_top_radius' - Text_Summary1_name(1, 3) = 'num_zones' - Text_Summary1_name(2, 3) = 'num_iters' - Text_Summary1_name(3, 3) = 'num_retries' - Text_Summary1_name(4, 3) = 'shock_radius' - Text_Summary1_name(5, 3) = 'shock_mass' - Text_Summary1_name(6, 3) = 'center c12' - Text_Summary1_name(7, 3) = 'center n14' - Text_Summary1_name(8, 3) = 'center o16' - Text_Summary1_name(1, 4) = 'log_Lnuc' - Text_Summary1_name(2, 4) = 'log_Lneu' - Text_Summary1_name(3, 4) = 'log_LH' - Text_Summary1_name(4, 4) = 'log_LHe' - Text_Summary1_name(5, 4) = 'log_LZ' - Text_Summary1_name(6, 4) = 'num_zones' - Text_Summary1_name(7, 4) = 'num_retries' - Text_Summary1_name(8, 4) = '' - - - Grid2_title = 'CCSN with Rayleigh-Taylor Instability' - Grid2_plot_name(1) = 'Profile_Panels1' - Grid2_plot_name(2) = 'Text_Summary1' - Grid2_plot_name(3) = 'Abundance' - Grid2_plot_name(4) = 'Mixing' - Grid2_plot_name(5) = 'Profile_Panels2' - Grid2_plot_row(1) = 1 - Grid2_plot_row(2) = 7 - Grid2_plot_row(3) = 1 - Grid2_plot_row(4) = 5 - Grid2_plot_row(5) = 1 - Grid2_plot_rowspan(1) = 6 - Grid2_plot_rowspan(2) = 2 - Grid2_plot_rowspan(3) = 4 - Grid2_plot_rowspan(4) = 4 - Grid2_plot_rowspan(5) = 6 - Grid2_plot_col(1) = 1 - Grid2_plot_col(2) = 1 - Grid2_plot_col(3) = 5 - Grid2_plot_col(4) = 5 - Grid2_plot_col(5) = 3 - Grid2_plot_colspan(1) = 2 - Grid2_plot_colspan(2) = 4 - Grid2_plot_colspan(3) = 3 - Grid2_plot_colspan(4) = 3 - Grid2_plot_colspan(5) = 2 - Grid2_plot_pad_left(1) = -0.02 - Grid2_plot_pad_left(2) = -0.08 - Grid2_plot_pad_left(3) = 0.14 - Grid2_plot_pad_left(4) = 0.14 - Grid2_plot_pad_left(5) = 0.06 - Grid2_plot_pad_right(1) = 0.07 - Grid2_plot_pad_right(2) = -0.12 - Grid2_plot_pad_right(3) = 0 - Grid2_plot_pad_right(4) = 0 - Grid2_plot_pad_right(5) = -0.01 - Grid2_plot_pad_top(1) = 0 - Grid2_plot_pad_top(2) = 0.08 - Grid2_plot_pad_top(3) = 0 - Grid2_plot_pad_top(4) = 0.06 - Grid2_plot_pad_top(5) = 0 - Grid2_plot_pad_bot(1) = 0 - Grid2_plot_pad_bot(2) = -0.04 - Grid2_plot_pad_bot(3) = 0.09 - Grid2_plot_pad_bot(4) = 0.03 - Grid2_plot_pad_bot(5) = 0 - Grid2_txt_scale_factor(1) = 0.65 - Grid2_txt_scale_factor(2) = 0.19 - Grid2_txt_scale_factor(3) = 0.65 - Grid2_txt_scale_factor(4) = 0.65 - Grid2_txt_scale_factor(5) = 0.65 - - Grid2_num_cols = 7 - Grid2_num_rows = 8 - Grid2_num_plots = 5 + Profile_Panels_title(1) = '' + Profile_Panels_xaxis_name(1) = 'mass' + Profile_Panels_xaxis_reversed(1) = .false. + + Profile_Panels_yaxis_name(1, 1) = 'logRho' + Profile_Panels_yaxis_name(1, 2) = 'logT' + + Profile_Panels_ymin(1, 1) = -101 + ! Profile_Panels_ymin(1, 2) = -10 + ! Profile_Panels_ymax(1, 2) = 0.3 + + Profile_Panels_other_yaxis_name(1, 1) = 'logP' + Profile_Panels_other_yaxis_name(1, 2) = 'energy' + + Profile_Panels_other_ymin(1, 1) = -101 + ! Profile_Panels_other_ymin(1, 2) = -12 + ! Profile_Panels_other_ymax(1, 2) = 0 + + Profile_Panels_num_panels(1) = 2 + + Profile_Panels_title(2) = '' + Profile_Panels_xaxis_name(2) = 'mass' + Profile_Panels_xaxis_reversed(2) = .false. + + Profile_Panels_num_panels(2) = 2 + Profile_Panels_yaxis_name(2, 1) = 'v_div_csound' + Profile_Panels_yaxis_name(2, 2) = 'entropy' + + Profile_Panels_ymin(2, 1) = -101 + Profile_Panels_ymin(2, 2) = -101 + + Profile_Panels_other_yaxis_name(2, 1) = 'vel_km_per_s' + Profile_Panels_other_yaxis_name(2, 2) = 'total_energy' + + Profile_Panels_other_ymin(2, 1) = -101 + Profile_Panels_other_ymin(2, 2) = -101 + + Text_Summary_txt_scale(1) = 5.5 + + Text_Summary_num_rows(1) = 5 + Text_Summary_num_cols(1) = 3 + Text_Summary_name(1, 1, 1) = 'model_number' + Text_Summary_name(1, 2, 1) = 'star_age_sec' + Text_Summary_name(1, 3, 1) = 'time_step_sec' + Text_Summary_name(1, 4, 1) = 'log_rel_run_E_err' + Text_Summary_name(1, 5, 1) = 'total_energy' + Text_Summary_name(1, 6, 1) = 'log_R' + Text_Summary_name(1, 7, 1) = 'log_g' + Text_Summary_name(1, 8, 1) = 'log_surf_cell_P' + Text_Summary_name(1, 1, 2) = 'envelope_mass' + Text_Summary_name(1, 2, 2) = 'he_core_mass' + Text_Summary_name(1, 3, 2) = 'm_center' + Text_Summary_name(1, 4, 2) = 'r_center_km' + Text_Summary_name(1, 5, 2) = 'v_center' + Text_Summary_name(1, 6, 2) = 'cz_top_mass' + Text_Summary_name(1, 7, 2) = 'cz_bot_radius' + Text_Summary_name(1, 8, 2) = 'cz_top_radius' + Text_Summary_name(1, 1, 3) = 'num_zones' + Text_Summary_name(1, 2, 3) = 'num_iters' + Text_Summary_name(1, 3, 3) = 'num_retries' + Text_Summary_name(1, 4, 3) = 'shock_radius' + Text_Summary_name(1, 5, 3) = 'shock_mass' + Text_Summary_name(1, 6, 3) = 'center c12' + Text_Summary_name(1, 7, 3) = 'center n14' + Text_Summary_name(1, 8, 3) = 'center o16' + Text_Summary_name(1, 1, 4) = 'log_Lnuc' + Text_Summary_name(1, 2, 4) = 'log_Lneu' + Text_Summary_name(1, 3, 4) = 'log_LH' + Text_Summary_name(1, 4, 4) = 'log_LHe' + Text_Summary_name(1, 5, 4) = 'log_LZ' + Text_Summary_name(1, 6, 4) = 'num_zones' + Text_Summary_name(1, 7, 4) = 'num_retries' + Text_Summary_name(1, 8, 4) = '' + + + Grid_title(2) = 'CCSN with Rayleigh-Taylor Instability' + Grid_plot_name(2, 1) = 'Profile_Panels1' + Grid_plot_name(2, 2) = 'Text_Summary1' + Grid_plot_name(2, 3) = 'Abundance' + Grid_plot_name(2, 4) = 'Mixing' + Grid_plot_name(2, 5) = 'Profile_Panels2' + Grid_plot_row(2, 1) = 1 + Grid_plot_row(2, 2) = 7 + Grid_plot_row(2, 3) = 1 + Grid_plot_row(2, 4) = 5 + Grid_plot_row(2, 5) = 1 + Grid_plot_rowspan(2, 1) = 6 + Grid_plot_rowspan(2, 2) = 2 + Grid_plot_rowspan(2, 3) = 4 + Grid_plot_rowspan(2, 4) = 4 + Grid_plot_rowspan(2, 5) = 6 + Grid_plot_col(2, 1) = 1 + Grid_plot_col(2, 2) = 1 + Grid_plot_col(2, 3) = 5 + Grid_plot_col(2, 4) = 5 + Grid_plot_col(2, 5) = 3 + Grid_plot_colspan(2, 1) = 2 + Grid_plot_colspan(2, 2) = 4 + Grid_plot_colspan(2, 3) = 3 + Grid_plot_colspan(2, 4) = 3 + Grid_plot_colspan(2, 5) = 2 + Grid_plot_pad_left(2, 1) = -0.02 + Grid_plot_pad_left(2, 2) = -0.08 + Grid_plot_pad_left(2, 3) = 0.14 + Grid_plot_pad_left(2, 4) = 0.14 + Grid_plot_pad_left(2, 5) = 0.06 + Grid_plot_pad_right(2, 1) = 0.07 + Grid_plot_pad_right(2, 2) = -0.12 + Grid_plot_pad_right(2, 3) = 0 + Grid_plot_pad_right(2, 4) = 0 + Grid_plot_pad_right(2, 5) = -0.01 + Grid_plot_pad_top(2, 1) = 0 + Grid_plot_pad_top(2, 2) = 0.08 + Grid_plot_pad_top(2, 3) = 0 + Grid_plot_pad_top(2, 4) = 0.06 + Grid_plot_pad_top(2, 5) = 0 + Grid_plot_pad_bot(2, 1) = 0 + Grid_plot_pad_bot(2, 2) = -0.04 + Grid_plot_pad_bot(2, 3) = 0.09 + Grid_plot_pad_bot(2, 4) = 0.03 + Grid_plot_pad_bot(2, 5) = 0 + Grid_txt_scale_factor(2, 1) = 0.65 + Grid_txt_scale_factor(2, 2) = 0.19 + Grid_txt_scale_factor(2, 3) = 0.65 + Grid_txt_scale_factor(2, 4) = 0.65 + Grid_txt_scale_factor(2, 5) = 0.65 + + Grid_num_cols(2) = 7 + Grid_num_rows(2) = 8 + Grid_num_plots(2) = 5 - Grid2_win_flag = .true. - Grid2_win_width = 15 - Grid2_win_aspect_ratio = 0.6 + Grid_win_flag(2) = .true. + Grid_win_width(2) = 15 + Grid_win_aspect_ratio(2) = 0.6 - Grid2_file_flag = .true. - Grid2_file_dir = 'png' - Grid2_file_prefix = 'test_' - Grid2_file_interval = 100 - Grid2_file_width = 15 - Grid2_file_aspect_ratio = -1 - - Profile_Panels1_xaxis_name = 'zone' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = 500 - Profile_Panels1_xmax = -101d0 - - Profile_Panels2_xaxis_name = 'zone' - Profile_Panels2_xaxis_reversed = .true. - Profile_Panels2_xmin = 500 - Profile_Panels2_xmax = -101d0 + Grid_file_flag(2) = .true. + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'test_' + Grid_file_interval(2) = 100 + Grid_file_width(2) = 15 + Grid_file_aspect_ratio(2) = -1 + + Profile_Panels_xaxis_name(1) = 'zone' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = 500 + Profile_Panels_xmax(1) = -101d0 + + Profile_Panels_xaxis_name(2) = 'zone' + Profile_Panels_xaxis_reversed(2) = .true. + Profile_Panels_xmin(2) = 500 + Profile_Panels_xmax(2) = -101d0 Mixing_xaxis_name = 'zone' Mixing_xaxis_reversed = .true. @@ -256,88 +256,88 @@ pgstar commands used for the 8th plot: Mixing_xmin = -101 - Profile_Panels1_xmin = -101 - - Profile_Panels1_yaxis_name(1) = 'logT' - Profile_Panels1_yaxis_name(2) = 'v_div_csound' - - Profile_Panels1_ymin(2) = 0 - Profile_Panels1_ymax(2) = -101 - - Profile_Panels1_other_yaxis_name(1) = 'entropy' - Profile_Panels1_other_yaxis_name(2) = 'csound' - - Profile_Panels1_other_ymin(2) = -101 - Profile_Panels1_other_ymax(2) = -101 - - Profile_Panels2_xmin = -101 - - Profile_Panels2_yaxis_name(1) = 'Abundance' - Profile_Panels2_yaxis_name(2) = 'luminosity' - - Profile_Panels2_ymin(2) = -101 - - Profile_Panels2_other_yaxis_name(2) = 'log_dr_div_cs' - - Profile_Panels2_other_ymin(2) = -101 - - History_Track1_title = 'Breakout Light Curve' - History_Track1_xname = 'star_age_hr' - History_Track1_yname = 'log_L' - History_Track1_xaxis_label = 'hours' - History_Track1_yaxis_label = 'log L/L\d\(2281)' - History_Track1_reverse_xaxis = .false. - History_Track1_reverse_yaxis = .false. - History_Track1_log_xaxis = .false. - History_Track1_log_yaxis = .false. - - Text_Summary1_name(1, 1) = 'model_number' - Text_Summary1_name(2, 1) = 'log_star_age' - Text_Summary1_name(3, 1) = 'log_dt' - Text_Summary1_name(4, 1) = 'log_L' - Text_Summary1_name(5, 1) = 'log_Teff' - Text_Summary1_name(6, 1) = 'log_R' - Text_Summary1_name(7, 1) = 'log_g' - Text_Summary1_name(8, 1) = 'log_surf_cell_P' - Text_Summary1_name(1, 2) = 'star_mass' - Text_Summary1_name(2, 2) = 'log_abs_mdot' - Text_Summary1_name(3, 2) = 'he_core_mass' - Text_Summary1_name(4, 2) = 'c_core_mass' - Text_Summary1_name(5, 2) = 'cz_bot_mass' - Text_Summary1_name(6, 2) = 'cz_top_mass' - Text_Summary1_name(7, 2) = 'cz_bot_radius' - Text_Summary1_name(8, 2) = 'cz_top_radius' - Text_Summary1_name(1, 3) = 'log_cntr_T' - Text_Summary1_name(2, 3) = 'log_cntr_Rho' - Text_Summary1_name(3, 3) = 'log_center_P' - Text_Summary1_name(4, 3) = 'center h1' - Text_Summary1_name(5, 3) = 'v_div_csound_surf' - Text_Summary1_name(6, 3) = 'center c12' - Text_Summary1_name(7, 3) = 'center n14' - Text_Summary1_name(8, 3) = 'center o16' - Text_Summary1_name(1, 4) = 'log_Lnuc' - Text_Summary1_name(2, 4) = 'log_Lneu' - Text_Summary1_name(3, 4) = 'log_LH' - Text_Summary1_name(4, 4) = 'log_LHe' - Text_Summary1_name(5, 4) = 'log_LZ' - Text_Summary1_name(6, 4) = 'num_zones' - Text_Summary1_name(7, 4) = 'num_retries' - Text_Summary1_name(8, 4) = '' - - Grid2_plot_name(1) = 'TRho_Profile' - Grid2_plot_name(2) = 'HR' - Grid2_plot_name(3) = 'TRho' - Grid2_plot_name(4) = 'History_Track1' - Grid2_plot_name(5) = 'Abundance' - - Grid2_win_flag = .true. - - Grid2_file_flag = .true. - Grid2_file_dir = 'png' - Grid2_file_prefix = 'test_' - Grid2_file_interval = 100 - Grid2_file_width = 15 - Grid2_file_aspect_ratio = -1 + Profile_Panels_xmin(1) = -101 + + Profile_Panels_yaxis_name(1, 1) = 'logT' + Profile_Panels_yaxis_name(1, 2) = 'v_div_csound' + + Profile_Panels_ymin(1, 2) = 0 + Profile_Panels_ymax(1, 2) = -101 + + Profile_Panels_other_yaxis_name(1, 1) = 'entropy' + Profile_Panels_other_yaxis_name(1, 2) = 'csound' + + Profile_Panels_other_ymin(1, 2) = -101 + Profile_Panels_other_ymax(1, 2) = -101 + + Profile_Panels_xmin(2) = -101 + + Profile_Panels_yaxis_name(2, 1) = 'Abundance' + Profile_Panels_yaxis_name(2, 2) = 'luminosity' + + Profile_Panels_ymin(2, 2) = -101 + + Profile_Panels_other_yaxis_name(2, 2) = 'log_dr_div_cs' + + Profile_Panels_other_ymin(2, 2) = -101 + + History_Track_title(1) = 'Breakout Light Curve' + History_Track_xname(1) = 'star_age_hr' + History_Track_yname(1) = 'log_L' + History_Track_xaxis_label(1) = 'hours' + History_Track_yaxis_label(1) = 'log L/L\d\(2281)' + History_Track_reverse_xaxis(1) = .false. + History_Track_reverse_yaxis(1) = .false. + History_Track_log_xaxis(1) = .false. + History_Track_log_yaxis(1) = .false. + + Text_Summary_name(1, 1, 1) = 'model_number' + Text_Summary_name(1, 2, 1) = 'log_star_age' + Text_Summary_name(1, 3, 1) = 'log_dt' + Text_Summary_name(1, 4, 1) = 'log_L' + Text_Summary_name(1, 5, 1) = 'log_Teff' + Text_Summary_name(1, 6, 1) = 'log_R' + Text_Summary_name(1, 7, 1) = 'log_g' + Text_Summary_name(1, 8, 1) = 'log_surf_cell_P' + Text_Summary_name(1, 1, 2) = 'star_mass' + Text_Summary_name(1, 2, 2) = 'log_abs_mdot' + Text_Summary_name(1, 3, 2) = 'he_core_mass' + Text_Summary_name(1, 4, 2) = 'c_core_mass' + Text_Summary_name(1, 5, 2) = 'cz_bot_mass' + Text_Summary_name(1, 6, 2) = 'cz_top_mass' + Text_Summary_name(1, 7, 2) = 'cz_bot_radius' + Text_Summary_name(1, 8, 2) = 'cz_top_radius' + Text_Summary_name(1, 1, 3) = 'log_cntr_T' + Text_Summary_name(1, 2, 3) = 'log_cntr_Rho' + Text_Summary_name(1, 3, 3) = 'log_center_P' + Text_Summary_name(1, 4, 3) = 'center h1' + Text_Summary_name(1, 5, 3) = 'v_div_csound_surf' + Text_Summary_name(1, 6, 3) = 'center c12' + Text_Summary_name(1, 7, 3) = 'center n14' + Text_Summary_name(1, 8, 3) = 'center o16' + Text_Summary_name(1, 1, 4) = 'log_Lnuc' + Text_Summary_name(1, 2, 4) = 'log_Lneu' + Text_Summary_name(1, 3, 4) = 'log_LH' + Text_Summary_name(1, 4, 4) = 'log_LHe' + Text_Summary_name(1, 5, 4) = 'log_LZ' + Text_Summary_name(1, 6, 4) = 'num_zones' + Text_Summary_name(1, 7, 4) = 'num_retries' + Text_Summary_name(1, 8, 4) = '' + + Grid_plot_name(2, 1) = 'TRho_Profile' + Grid_plot_name(2, 2) = 'HR' + Grid_plot_name(2, 3) = 'TRho' + Grid_plot_name(2, 4) = 'History_Track1' + Grid_plot_name(2, 5) = 'Abundance' + + Grid_win_flag(2) = .true. + + Grid_file_flag(2) = .true. + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'test_' + Grid_file_interval(2) = 100 + Grid_file_width(2) = 15 + Grid_file_aspect_ratio(2) = -1 / ! end of pgstar namelist diff --git a/star/test_suite/ccsn_IIp/inlist_common b/star/test_suite/ccsn_IIp/inlist_common index d7c2b6fb7..53cc20b60 100644 --- a/star/test_suite/ccsn_IIp/inlist_common +++ b/star/test_suite/ccsn_IIp/inlist_common @@ -130,95 +130,95 @@ pgstar_age_disp = 2.5 pgstar_model_disp = 2.5 pgstar_lw = 8 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_win_width = 12 - Grid2_win_aspect_ratio = 0.5 ! aspect_ratio = height/width + Grid_win_width(2) = 12 + Grid_win_aspect_ratio(2) = 0.5 ! aspect_ratio = height/width - Grid2_num_cols = 7 ! divide plotting region into this many equal width cols - Grid2_num_rows = 8 ! divide plotting region into this many equal height rows - Grid2_num_plots = 5 ! <= 10 + Grid_num_cols(2) = 7 ! divide plotting region into this many equal width cols + Grid_num_rows(2) = 8 ! divide plotting region into this many equal height rows + Grid_num_plots(2) = 5 ! <= 10 - Grid2_plot_name(1) = 'TRho' - Grid2_plot_row(1) = 1 ! number from 1 at top - Grid2_plot_rowspan(1) = 6 ! plot spans this number of rows - Grid2_plot_col(1) = 1 ! number from 1 at left - Grid2_plot_colspan(1) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(1) = 0.00 ! fraction of full window width for padding on left - Grid2_plot_pad_right(1) = 0.00 ! fraction of full window width for padding on right - Grid2_plot_pad_top(1) = 0.00 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(1) = 0.0 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(1) = 0.65 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 1) = 'TRho' + Grid_plot_row(2, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 1) = 6 ! plot spans this number of rows + Grid_plot_col(2, 1) = 1 ! number from 1 at left + Grid_plot_colspan(2, 1) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 1) = 0.00 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 1) = 0.00 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 1) = 0.00 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 1) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 1) = 0.65 ! multiply txt_scale for subplot by this - Grid2_plot_name(2) = 'Text_Summary1' - Grid2_plot_row(2) = 7 ! number from 1 at top - Grid2_plot_rowspan(2) = 2 ! plot spans this number of rows - Grid2_plot_col(2) = 1 ! number from 1 at left - Grid2_plot_colspan(2) = 4 ! plot spans this number of columns - Grid2_plot_pad_left(2) = -0.08 ! fraction of full window width for padding on left - Grid2_plot_pad_right(2) = -0.12 ! fraction of full window width for padding on right - Grid2_plot_pad_top(2) = 0.08 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(2) = -0.04 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(2) = 0.19 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 2) = 'Text_Summary1' + Grid_plot_row(2, 2) = 7 ! number from 1 at top + Grid_plot_rowspan(2, 2) = 2 ! plot spans this number of rows + Grid_plot_col(2, 2) = 1 ! number from 1 at left + Grid_plot_colspan(2, 2) = 4 ! plot spans this number of columns + Grid_plot_pad_left(2, 2) = -0.08 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 2) = -0.12 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 2) = 0.08 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 2) = -0.04 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 2) = 0.19 ! multiply txt_scale for subplot by this - Grid2_plot_name(3) = 'Abundance' + Grid_plot_name(2, 3) = 'Abundance' - Grid2_plot_row(3) = 1 ! number from 1 at top - Grid2_plot_rowspan(3) = 3 ! plot spans this number of rows - Grid2_plot_col(3) = 3 ! plot spans this number of columns - Grid2_plot_colspan(3) = 3 ! plot spans this number of columns + Grid_plot_row(2, 3) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 3) = 3 ! plot spans this number of rows + Grid_plot_col(2, 3) = 3 ! plot spans this number of columns + Grid_plot_colspan(2, 3) = 3 ! plot spans this number of columns - Grid2_plot_pad_left(3) = 0.07 ! fraction of full window width for padding on left - Grid2_plot_pad_right(3) = 0.07 ! fraction of full window width for padding on right - Grid2_plot_pad_top(3) = 0.0 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(3) = 0.06 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(3) = 0.65 ! multiply txt_scale for subplot by this + Grid_plot_pad_left(2, 3) = 0.07 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 3) = 0.07 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 3) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 3) = 0.06 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 3) = 0.65 ! multiply txt_scale for subplot by this Abundance_xmax = 2.4 ! -101 ! only used if /= -101d0 Power_xmax = 2.4 ! -101 ! only used if /= -101d0 - Grid2_plot_name(4) = 'Power' + Grid_plot_name(2, 4) = 'Power' - Grid2_plot_row(4) = 4 ! number from 1 at top - Grid2_plot_rowspan(4) = 3 ! plot spans this number of rows - Grid2_plot_col(4) = 3 ! number from 1 at left - Grid2_plot_colspan(4) = 3 ! plot spans this number of columns + Grid_plot_row(2, 4) = 4 ! number from 1 at top + Grid_plot_rowspan(2, 4) = 3 ! plot spans this number of rows + Grid_plot_col(2, 4) = 3 ! number from 1 at left + Grid_plot_colspan(2, 4) = 3 ! plot spans this number of columns - Grid2_plot_pad_left(4) = 0.07 ! fraction of full window width for padding on left - Grid2_plot_pad_right(4) = 0.07 ! fraction of full window width for padding on right - Grid2_plot_pad_top(4) = 0.06 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(4) = 0.0 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(4) = 0.65 ! multiply txt_scale for subplot by this + Grid_plot_pad_left(2, 4) = 0.07 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 4) = 0.07 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 4) = 0.06 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 4) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 4) = 0.65 ! multiply txt_scale for subplot by this - Grid2_plot_name(5) = 'Profile_Panels1' - Grid2_plot_row(5) = 1 ! number from 1 at top - Grid2_plot_rowspan(5) = 8 ! plot spans this number of rows - Grid2_plot_col(5) = 6 ! number from 1 at left - Grid2_plot_colspan(5) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(5) = 0.05 ! fraction of full window width for padding on left - Grid2_plot_pad_right(5) = 0.03 ! fraction of full window width for padding on right - Grid2_plot_pad_top(5) = 0.0 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(5) = 0.0 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(5) = 0.65 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 5) = 'Profile_Panels1' + Grid_plot_row(2, 5) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 5) = 8 ! plot spans this number of rows + Grid_plot_col(2, 5) = 6 ! number from 1 at left + Grid_plot_colspan(2, 5) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 5) = 0.05 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 5) = 0.03 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 5) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 5) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 5) = 0.65 ! multiply txt_scale for subplot by this TRho_logRho_dlogRho_min = 0.01 TRho_logT_dlogT_min = 0.02 HR_dlogT_min = 0.02 HR_dlogL_min = 0.01 - Text_Summary1_name(2,1) = 'star_age' + Text_Summary_name(1, 2, 1) = 'star_age' ! file output -!Grid2_file_flag = .true. - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid_' - Grid2_file_interval = 10 ! 1 ! output when mod(model_number,Grid2_file_interval)==0 - Grid2_file_width = -1 ! negative means use same value as for window - Grid2_file_aspect_ratio = -1 ! negative means use same value as for window +!Grid_file_flag(2) = .true. + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid_' + Grid_file_interval(2) = 10 ! 1 ! output when mod(model_number,Grid_file_interval(2))==0 + Grid_file_width(2) = -1 ! negative means use same value as for window + Grid_file_aspect_ratio(2) = -1 ! negative means use same value as for window show_TRho_Profile_eos_regions = .false. @@ -227,19 +227,19 @@ Power_xmax = 2.4 ! -101 ! only used if /= -101d0 TRho_Profile_ymin = 5.1 TRho_Profile_ymax = 10.2 - Text_Summary1_name(1,3) = 'log_cntr_Rho' - Text_Summary1_name(2,3) = 'log_cntr_T' - Text_Summary1_name(3,3) = '' - Text_Summary1_name(4,3) = '' - Text_Summary1_name(5,3) = '' + Text_Summary_name(1, 1, 3) = 'log_cntr_Rho' + Text_Summary_name(1, 2, 3) = 'log_cntr_T' + Text_Summary_name(1, 3, 3) = '' + Text_Summary_name(1, 4, 3) = '' + Text_Summary_name(1, 5, 3) = '' - !Text_Summary1_name(6,3) = 'center_ye' + !Text_Summary_name(1, 6, 3) = 'center_ye' - !Text_Summary1_name(7,3) = 'iron_core_infall' - !Text_Summary1_name(8,3) = 'non_iron_core_infall' + !Text_Summary_name(1, 7, 3) = 'iron_core_infall' + !Text_Summary_name(1, 8, 3) = 'non_iron_core_infall' - !Text_Summary1_name(8,1) = 'center o16' - Text_Summary1_name(8,1) = 'species' + !Text_Summary_name(1, 8, 1) = 'center o16' + Text_Summary_name(1, 8, 1) = 'species' !Abundance_win_flag = .true. Abundance_win_width = 6 @@ -275,41 +275,41 @@ Abundance_xmax = 2.4 ! -101 ! only used if /= -101d0 Abundance_file_aspect_ratio = -1 ! negative means use same value as for window - !Profile_Panels1_win_flag = .true. - Profile_Panels1_win_width = 6 - Profile_Panels1_win_aspect_ratio = 1 ! aspect_ratio = height/width - - Profile_Panels1_title = 'Profile Panels' - Profile_Panels1_num_panels = 3 - Profile_Panels1_yaxis_name(1) = 'logT' - Profile_Panels1_other_yaxis_name(1) = 'entropy' - Profile_Panels1_other_ymin(1) = -101d0 ! 0 ! only used if /= -101d0 - Profile_Panels1_other_ymax(1) = -101d0 ! only used if /= -101d0 - Profile_Panels1_other_ymargin(1) = 0.1 + !Profile_Panels_win_flag(1) = .true. + Profile_Panels_win_width(1) = 6 + Profile_Panels_win_aspect_ratio = 1 ! aspect_ratio(1) = height/width + + Profile_Panels_title(1) = 'Profile Panels' + Profile_Panels_num_panels(1) = 3 + Profile_Panels_yaxis_name(1, 1) = 'logT' + Profile_Panels_other_yaxis_name(1, 1) = 'entropy' + Profile_Panels_other_ymin(1, 1) = -101d0 ! 0 ! only used if /= -101d0 + Profile_Panels_other_ymax(1, 1) = -101d0 ! only used if /= -101d0 + Profile_Panels_other_ymargin(1, 1) = 0.1 - Profile_Panels1_yaxis_name(2) = 'logRho' - Profile_Panels1_other_yaxis_name(2) = 'logR_cm' - Profile_Panels1_other_ymin(2) = -101d0 ! only used if /= -101d0 - Profile_Panels1_other_ymax(2) = -101d0 ! only used if /= -101d0 - Profile_Panels1_other_ymargin(2) = 0.1 + Profile_Panels_yaxis_name(1, 2) = 'logRho' + Profile_Panels_other_yaxis_name(1, 2) = 'logR_cm' + Profile_Panels_other_ymin(1, 2) = -101d0 ! only used if /= -101d0 + Profile_Panels_other_ymax(1, 2) = -101d0 ! only used if /= -101d0 + Profile_Panels_other_ymargin(1, 2) = 0.1 - Profile_Panels1_yaxis_name(3) = 'ye' - Profile_Panels1_ymin(3) = -101d0 ! 0.43 ! only used if /= -101d0 - Profile_Panels1_ymax(3) = -101d0 ! 0.51 ! only used if /= -101d0 - Profile_Panels1_ymargin(3) = 0.1 - Profile_Panels1_other_yaxis_name(3) = 'vel_km_per_s' - Profile_Panels1_other_ymin(3) = -101d0 ! -1200 ! only used if /= -101d0 - Profile_Panels1_other_ymax(3) = -101d0 ! 300d0 ! only used if /= -101d0 - Profile_Panels1_other_ymargin(3) = 0.1 ! 10 - Profile_Panels1_other_dymin(3) = 50 + Profile_Panels_yaxis_name(1, 3) = 'ye' + Profile_Panels_ymin(1, 3) = -101d0 ! 0.43 ! only used if /= -101d0 + Profile_Panels_ymax(1, 3) = -101d0 ! 0.51 ! only used if /= -101d0 + Profile_Panels_ymargin(1, 3) = 0.1 + Profile_Panels_other_yaxis_name(1, 3) = 'vel_km_per_s' + Profile_Panels_other_ymin(1, 3) = -101d0 ! -1200 ! only used if /= -101d0 + Profile_Panels_other_ymax(1, 3) = -101d0 ! 300d0 ! only used if /= -101d0 + Profile_Panels_other_ymargin(1, 3) = 0.1 ! 10 + Profile_Panels_other_dymin(1, 3) = 50 - Profile_Panels1_xaxis_name = 'mass' - Profile_Panels1_xaxis_reversed = .false. - Profile_Panels1_xmin = 0.0 ! only used if /= -101d0 + Profile_Panels_xaxis_name(1) = 'mass' + Profile_Panels_xaxis_reversed(1) = .false. + Profile_Panels_xmin(1) = 0.0 ! only used if /= -101d0 - Profile_Panels1_xmax = 2.4 ! -101d0 ! only used if /= -101d0 + Profile_Panels_xmax(1) = 2.4 ! -101d0 ! only used if /= -101d0 - Profile_Panels1_xmargin = 0d0 + Profile_Panels_xmargin(1) = 0d0 diff --git a/star/test_suite/ccsn_IIp/inlist_edep b/star/test_suite/ccsn_IIp/inlist_edep index ed400a906..9a812d8bb 100644 --- a/star/test_suite/ccsn_IIp/inlist_edep +++ b/star/test_suite/ccsn_IIp/inlist_edep @@ -125,7 +125,7 @@ !pause = .true. -Grid2_win_flag = .true. +Grid_win_flag(2) = .true. pgstar_interval = 1 / ! end of pgstar namelist diff --git a/star/test_suite/ccsn_IIp/inlist_end_infall b/star/test_suite/ccsn_IIp/inlist_end_infall index 9a1ade194..5bcf46e15 100644 --- a/star/test_suite/ccsn_IIp/inlist_end_infall +++ b/star/test_suite/ccsn_IIp/inlist_end_infall @@ -151,7 +151,7 @@ !pause = .true. -Grid2_win_flag = .true. +Grid_win_flag(2) = .true. pgstar_interval = 1 / ! end of pgstar namelist diff --git a/star/test_suite/ccsn_IIp/inlist_infall b/star/test_suite/ccsn_IIp/inlist_infall index 266eb8176..c75be3198 100644 --- a/star/test_suite/ccsn_IIp/inlist_infall +++ b/star/test_suite/ccsn_IIp/inlist_infall @@ -126,7 +126,7 @@ !pause = .true. -Grid2_win_flag = .true. +Grid_win_flag(2) = .true. pgstar_interval = 1 / ! end of pgstar namelist diff --git a/star/test_suite/ccsn_IIp/inlist_pgstar b/star/test_suite/ccsn_IIp/inlist_pgstar index eb54c306b..478ce8ba2 100644 --- a/star/test_suite/ccsn_IIp/inlist_pgstar +++ b/star/test_suite/ccsn_IIp/inlist_pgstar @@ -7,160 +7,160 @@ Mixing_ymin = 8 Mixing_ymax = 22 - Profile_Panels1_title = '' - Profile_Panels1_xaxis_name = 'mass' - Profile_Panels1_xaxis_reversed = .false. - - Profile_Panels1_yaxis_name(1) = 'logRho' - Profile_Panels1_yaxis_name(2) = 'logT' - - Profile_Panels1_ymin(1) = -101 - ! Profile_Panels1_ymin(2) = -10 - ! Profile_Panels1_ymax(2) = 0.3 - - Profile_Panels1_other_yaxis_name(1) = 'logP' - Profile_Panels1_other_yaxis_name(2) = 'energy' - - Profile_Panels1_other_ymin(1) = -101 - ! Profile_Panels1_other_ymin(2) = -12 - ! Profile_Panels1_other_ymax(2) = 0 - - Profile_Panels1_num_panels = 2 - - Profile_Panels2_title = '' - Profile_Panels2_xaxis_name = 'mass' - Profile_Panels2_xaxis_reversed = .false. - - Profile_Panels2_num_panels = 2 - Profile_Panels2_yaxis_name(1) = 'v_div_csound' - Profile_Panels2_yaxis_name(2) = 'entropy' - - Profile_Panels2_ymin(1) = -101 - Profile_Panels2_ymin(2) = -101 - - Profile_Panels2_other_yaxis_name(1) = 'vel_km_per_s' - Profile_Panels2_other_yaxis_name(2) = 'total_energy' - - Profile_Panels2_other_ymin(1) = -101 - Profile_Panels2_other_ymin(2) = -101 - - Text_Summary1_txt_scale = 5.5 - - Text_Summary1_num_rows = 5 - Text_Summary1_num_cols = 3 - Text_Summary1_name(1, 1) = 'model_number' - Text_Summary1_name(2, 1) = 'star_age_sec' - Text_Summary1_name(3, 1) = 'time_step_sec' - Text_Summary1_name(4, 1) = 'log_rel_run_E_err' - Text_Summary1_name(5, 1) = 'total_energy' - Text_Summary1_name(6, 1) = 'log_R' - Text_Summary1_name(7, 1) = 'log_g' - Text_Summary1_name(8, 1) = 'log_surf_cell_P' - Text_Summary1_name(1, 2) = 'envelope_mass' - Text_Summary1_name(2, 2) = 'he_core_mass' - Text_Summary1_name(3, 2) = 'm_center' - Text_Summary1_name(4, 2) = 'r_center_km' - Text_Summary1_name(5, 2) = 'v_center' - Text_Summary1_name(6, 2) = 'cz_top_mass' - Text_Summary1_name(7, 2) = 'cz_bot_radius' - Text_Summary1_name(8, 2) = 'cz_top_radius' - Text_Summary1_name(1, 3) = 'num_zones' - Text_Summary1_name(2, 3) = 'num_iters' - Text_Summary1_name(3, 3) = 'num_retries' - Text_Summary1_name(4, 3) = 'shock_radius' - Text_Summary1_name(5, 3) = 'shock_mass' - Text_Summary1_name(6, 3) = 'center c12' - Text_Summary1_name(7, 3) = 'center n14' - Text_Summary1_name(8, 3) = 'center o16' - Text_Summary1_name(1, 4) = 'log_Lnuc' - Text_Summary1_name(2, 4) = 'log_Lneu' - Text_Summary1_name(3, 4) = 'log_LH' - Text_Summary1_name(4, 4) = 'log_LHe' - Text_Summary1_name(5, 4) = 'log_LZ' - Text_Summary1_name(6, 4) = 'num_zones' - Text_Summary1_name(7, 4) = 'num_retries' - Text_Summary1_name(8, 4) = '' - - - Grid2_title = 'CCSN with Rayleigh-Taylor Instability' - Grid2_plot_name(1) = 'Profile_Panels1' - Grid2_plot_name(2) = 'Text_Summary1' - Grid2_plot_name(3) = 'Abundance' - Grid2_plot_name(4) = 'Mixing' - Grid2_plot_name(5) = 'Profile_Panels2' - Grid2_plot_row(1) = 1 - Grid2_plot_row(2) = 7 - Grid2_plot_row(3) = 1 - Grid2_plot_row(4) = 5 - Grid2_plot_row(5) = 1 - Grid2_plot_rowspan(1) = 6 - Grid2_plot_rowspan(2) = 2 - Grid2_plot_rowspan(3) = 4 - Grid2_plot_rowspan(4) = 4 - Grid2_plot_rowspan(5) = 6 - Grid2_plot_col(1) = 1 - Grid2_plot_col(2) = 1 - Grid2_plot_col(3) = 5 - Grid2_plot_col(4) = 5 - Grid2_plot_col(5) = 3 - Grid2_plot_colspan(1) = 2 - Grid2_plot_colspan(2) = 4 - Grid2_plot_colspan(3) = 3 - Grid2_plot_colspan(4) = 3 - Grid2_plot_colspan(5) = 2 - Grid2_plot_pad_left(1) = -0.02 - Grid2_plot_pad_left(2) = -0.08 - Grid2_plot_pad_left(3) = 0.14 - Grid2_plot_pad_left(4) = 0.14 - Grid2_plot_pad_left(5) = 0.06 - Grid2_plot_pad_right(1) = 0.07 - Grid2_plot_pad_right(2) = -0.12 - Grid2_plot_pad_right(3) = 0 - Grid2_plot_pad_right(4) = 0 - Grid2_plot_pad_right(5) = -0.01 - Grid2_plot_pad_top(1) = 0 - Grid2_plot_pad_top(2) = 0.08 - Grid2_plot_pad_top(3) = 0 - Grid2_plot_pad_top(4) = 0.06 - Grid2_plot_pad_top(5) = 0 - Grid2_plot_pad_bot(1) = 0 - Grid2_plot_pad_bot(2) = -0.04 - Grid2_plot_pad_bot(3) = 0.09 - Grid2_plot_pad_bot(4) = 0.03 - Grid2_plot_pad_bot(5) = 0 - Grid2_txt_scale_factor(1) = 0.65 - Grid2_txt_scale_factor(2) = 0.19 - Grid2_txt_scale_factor(3) = 0.65 - Grid2_txt_scale_factor(4) = 0.65 - Grid2_txt_scale_factor(5) = 0.65 - - Grid2_num_cols = 7 - Grid2_num_rows = 8 - Grid2_num_plots = 5 + Profile_Panels_title(1) = '' + Profile_Panels_xaxis_name(1) = 'mass' + Profile_Panels_xaxis_reversed(1) = .false. + + Profile_Panels_yaxis_name(1, 1) = 'logRho' + Profile_Panels_yaxis_name(1, 2) = 'logT' + + Profile_Panels_ymin(1, 1) = -101 + ! Profile_Panels_ymin(1, 2) = -10 + ! Profile_Panels_ymax(1, 2) = 0.3 + + Profile_Panels_other_yaxis_name(1, 1) = 'logP' + Profile_Panels_other_yaxis_name(1, 2) = 'energy' + + Profile_Panels_other_ymin(1, 1) = -101 + ! Profile_Panels_other_ymin(1, 2) = -12 + ! Profile_Panels_other_ymax(1, 2) = 0 + + Profile_Panels_num_panels(1) = 2 + + Profile_Panels_title(2) = '' + Profile_Panels_xaxis_name(2) = 'mass' + Profile_Panels_xaxis_reversed(2) = .false. + + Profile_Panels_num_panels(2) = 2 + Profile_Panels_yaxis_name(2, 1) = 'v_div_csound' + Profile_Panels_yaxis_name(2, 2) = 'entropy' + + Profile_Panels_ymin(2, 1) = -101 + Profile_Panels_ymin(2, 2) = -101 + + Profile_Panels_other_yaxis_name(2, 1) = 'vel_km_per_s' + Profile_Panels_other_yaxis_name(2, 2) = 'total_energy' + + Profile_Panels_other_ymin(2, 1) = -101 + Profile_Panels_other_ymin(2, 2) = -101 + + Text_Summary_txt_scale(1) = 5.5 + + Text_Summary_num_rows(1) = 5 + Text_Summary_num_cols(1) = 3 + Text_Summary_name(1, 1, 1) = 'model_number' + Text_Summary_name(1, 2, 1) = 'star_age_sec' + Text_Summary_name(1, 3, 1) = 'time_step_sec' + Text_Summary_name(1, 4, 1) = 'log_rel_run_E_err' + Text_Summary_name(1, 5, 1) = 'total_energy' + Text_Summary_name(1, 6, 1) = 'log_R' + Text_Summary_name(1, 7, 1) = 'log_g' + Text_Summary_name(1, 8, 1) = 'log_surf_cell_P' + Text_Summary_name(1, 1, 2) = 'envelope_mass' + Text_Summary_name(1, 2, 2) = 'he_core_mass' + Text_Summary_name(1, 3, 2) = 'm_center' + Text_Summary_name(1, 4, 2) = 'r_center_km' + Text_Summary_name(1, 5, 2) = 'v_center' + Text_Summary_name(1, 6, 2) = 'cz_top_mass' + Text_Summary_name(1, 7, 2) = 'cz_bot_radius' + Text_Summary_name(1, 8, 2) = 'cz_top_radius' + Text_Summary_name(1, 1, 3) = 'num_zones' + Text_Summary_name(1, 2, 3) = 'num_iters' + Text_Summary_name(1, 3, 3) = 'num_retries' + Text_Summary_name(1, 4, 3) = 'shock_radius' + Text_Summary_name(1, 5, 3) = 'shock_mass' + Text_Summary_name(1, 6, 3) = 'center c12' + Text_Summary_name(1, 7, 3) = 'center n14' + Text_Summary_name(1, 8, 3) = 'center o16' + Text_Summary_name(1, 1, 4) = 'log_Lnuc' + Text_Summary_name(1, 2, 4) = 'log_Lneu' + Text_Summary_name(1, 3, 4) = 'log_LH' + Text_Summary_name(1, 4, 4) = 'log_LHe' + Text_Summary_name(1, 5, 4) = 'log_LZ' + Text_Summary_name(1, 6, 4) = 'num_zones' + Text_Summary_name(1, 7, 4) = 'num_retries' + Text_Summary_name(1, 8, 4) = '' + + + Grid_title(2) = 'CCSN with Rayleigh-Taylor Instability' + Grid_plot_name(2, 1) = 'Profile_Panels1' + Grid_plot_name(2, 2) = 'Text_Summary1' + Grid_plot_name(2, 3) = 'Abundance' + Grid_plot_name(2, 4) = 'Mixing' + Grid_plot_name(2, 5) = 'Profile_Panels2' + Grid_plot_row(2, 1) = 1 + Grid_plot_row(2, 2) = 7 + Grid_plot_row(2, 3) = 1 + Grid_plot_row(2, 4) = 5 + Grid_plot_row(2, 5) = 1 + Grid_plot_rowspan(2, 1) = 6 + Grid_plot_rowspan(2, 2) = 2 + Grid_plot_rowspan(2, 3) = 4 + Grid_plot_rowspan(2, 4) = 4 + Grid_plot_rowspan(2, 5) = 6 + Grid_plot_col(2, 1) = 1 + Grid_plot_col(2, 2) = 1 + Grid_plot_col(2, 3) = 5 + Grid_plot_col(2, 4) = 5 + Grid_plot_col(2, 5) = 3 + Grid_plot_colspan(2, 1) = 2 + Grid_plot_colspan(2, 2) = 4 + Grid_plot_colspan(2, 3) = 3 + Grid_plot_colspan(2, 4) = 3 + Grid_plot_colspan(2, 5) = 2 + Grid_plot_pad_left(2, 1) = -0.02 + Grid_plot_pad_left(2, 2) = -0.08 + Grid_plot_pad_left(2, 3) = 0.14 + Grid_plot_pad_left(2, 4) = 0.14 + Grid_plot_pad_left(2, 5) = 0.06 + Grid_plot_pad_right(2, 1) = 0.07 + Grid_plot_pad_right(2, 2) = -0.12 + Grid_plot_pad_right(2, 3) = 0 + Grid_plot_pad_right(2, 4) = 0 + Grid_plot_pad_right(2, 5) = -0.01 + Grid_plot_pad_top(2, 1) = 0 + Grid_plot_pad_top(2, 2) = 0.08 + Grid_plot_pad_top(2, 3) = 0 + Grid_plot_pad_top(2, 4) = 0.06 + Grid_plot_pad_top(2, 5) = 0 + Grid_plot_pad_bot(2, 1) = 0 + Grid_plot_pad_bot(2, 2) = -0.04 + Grid_plot_pad_bot(2, 3) = 0.09 + Grid_plot_pad_bot(2, 4) = 0.03 + Grid_plot_pad_bot(2, 5) = 0 + Grid_txt_scale_factor(2, 1) = 0.65 + Grid_txt_scale_factor(2, 2) = 0.19 + Grid_txt_scale_factor(2, 3) = 0.65 + Grid_txt_scale_factor(2, 4) = 0.65 + Grid_txt_scale_factor(2, 5) = 0.65 + + Grid_num_cols(2) = 7 + Grid_num_rows(2) = 8 + Grid_num_plots(2) = 5 - !Grid2_win_flag = .true. - Grid2_win_width = 10 - Grid2_win_aspect_ratio = 0.6 + !Grid_win_flag(2) = .true. + Grid_win_width(2) = 10 + Grid_win_aspect_ratio(2) = 0.6 pgstar_interval = 10 - !Grid2_file_flag = .true. - Grid2_file_dir = 'pngs_16M.8foe' - ! Grid2_file_prefix = 'test_' - ! Grid2_file_width = -1 - ! Grid2_file_aspect_ratio = -1 + !Grid_file_flag(2) = .true. + Grid_file_dir(2) = 'pngs_16M.8foe' + ! Grid_file_prefix(2) = 'test_' + ! Grid_file_width(2) = -1 + ! Grid_file_aspect_ratio(2) = -1 ! xaxis -Profile_Panels1_xaxis_name = 'zone' -Profile_Panels1_xaxis_reversed = .true. -Profile_Panels1_xmin = 500 -Profile_Panels1_xmax = -101d0 +Profile_Panels_xaxis_name(1) = 'zone' +Profile_Panels_xaxis_reversed(1) = .true. +Profile_Panels_xmin(1) = 500 +Profile_Panels_xmax(1) = -101d0 -Profile_Panels2_xaxis_name = 'zone' -Profile_Panels2_xaxis_reversed = .true. -Profile_Panels2_xmin = 500 -Profile_Panels2_xmax = -101d0 +Profile_Panels_xaxis_name(2) = 'zone' +Profile_Panels_xaxis_reversed(2) = .true. +Profile_Panels_xmin(2) = 500 +Profile_Panels_xmax(2) = -101d0 Mixing_xaxis_name = 'zone' Mixing_xaxis_reversed = .true. diff --git a/star/test_suite/ccsn_IIp/inlist_shock_part1 b/star/test_suite/ccsn_IIp/inlist_shock_part1 index 1a591db9b..8237ea9cc 100644 --- a/star/test_suite/ccsn_IIp/inlist_shock_part1 +++ b/star/test_suite/ccsn_IIp/inlist_shock_part1 @@ -121,7 +121,7 @@ !pause = .true. -Grid2_win_flag = .true. +Grid_win_flag(2) = .true. pgstar_interval = 1 !Mixing_ymin = 5 diff --git a/star/test_suite/ccsn_IIp/inlist_shock_part2 b/star/test_suite/ccsn_IIp/inlist_shock_part2 index feb0a2d98..dbf2efbe5 100644 --- a/star/test_suite/ccsn_IIp/inlist_shock_part2 +++ b/star/test_suite/ccsn_IIp/inlist_shock_part2 @@ -47,7 +47,7 @@ !pause = .true. -Grid2_win_flag = .true. +Grid_win_flag(2) = .true. pgstar_interval = 5 / ! end of pgstar namelist diff --git a/star/test_suite/ccsn_IIp/inlist_shock_part3 b/star/test_suite/ccsn_IIp/inlist_shock_part3 index 01b4378b0..5b79b15b1 100644 --- a/star/test_suite/ccsn_IIp/inlist_shock_part3 +++ b/star/test_suite/ccsn_IIp/inlist_shock_part3 @@ -49,7 +49,7 @@ !pause = .true. -Grid2_win_flag = .true. +Grid_win_flag(2) = .true. pgstar_interval = 5 / ! end of pgstar namelist diff --git a/star/test_suite/ccsn_IIp/inlist_shock_part4 b/star/test_suite/ccsn_IIp/inlist_shock_part4 index 4d6963ed9..e67a72860 100644 --- a/star/test_suite/ccsn_IIp/inlist_shock_part4 +++ b/star/test_suite/ccsn_IIp/inlist_shock_part4 @@ -117,19 +117,19 @@ &pgstar !pause = .true. -Grid2_win_flag = .true. +Grid_win_flag(2) = .true. -Profile_Panels1_xmin = -101 ! 1.9 -Profile_Panels2_xmin = -101 ! 1.9 +Profile_Panels_xmin(1) = -101 ! 1.9 +Profile_Panels_xmin(2) = -101 ! 1.9 Abundance_xmin = -101 ! 1.9 Mixing_xmin = -101 ! 1.9 -!Profile_Panels1_yaxis_name(2) = 'alpha_RTI' -!Profile_Panels1_ymax(2) = 0.99 -!Profile_Panels1_ymin(2) = 0 -!Profile_Panels1_other_yaxis_name(2) = 'log_source_RTI' -!Profile_Panels1_other_ymax(2) = -0.1 -!Profile_Panels1_other_ymin(2) = -10 +!Profile_Panels_yaxis_name(1, 2) = 'alpha_RTI' +!Profile_Panels_ymax(1, 2) = 0.99 +!Profile_Panels_ymin(1, 2) = 0 +!Profile_Panels_other_yaxis_name(1, 2) = 'log_source_RTI' +!Profile_Panels_other_ymax(1, 2) = -0.1 +!Profile_Panels_other_ymin(1, 2) = -10 / ! end of pgstar namelist diff --git a/star/test_suite/ccsn_IIp/inlist_shock_part5 b/star/test_suite/ccsn_IIp/inlist_shock_part5 index c213d76e4..0c3f0d714 100644 --- a/star/test_suite/ccsn_IIp/inlist_shock_part5 +++ b/star/test_suite/ccsn_IIp/inlist_shock_part5 @@ -69,79 +69,79 @@ Mixing_xmin = -101 - Profile_Panels1_xmin = -101 - - Profile_Panels1_yaxis_name(1) = 'logT' - Profile_Panels1_yaxis_name(2) = 'v_div_csound' - - Profile_Panels1_ymin(2) = 0 - Profile_Panels1_ymax(2) = -101 - - Profile_Panels1_other_yaxis_name(1) = 'entropy' - Profile_Panels1_other_yaxis_name(2) = 'csound' - - Profile_Panels1_other_ymin(2) = -101 - Profile_Panels1_other_ymax(2) = -101 - - Profile_Panels2_xmin = -101 - - Profile_Panels2_yaxis_name(1) = 'Abundance' - Profile_Panels2_yaxis_name(2) = 'luminosity' - - Profile_Panels2_ymin(2) = -101 - - Profile_Panels2_other_yaxis_name(2) = 'log_dr_div_cs' - - Profile_Panels2_other_ymin(2) = -101 - - History_Track1_title = 'Breakout Light Curve' - History_Track1_xname = 'star_age_hr' - History_Track1_yname = 'log_L' - History_Track1_xaxis_label = 'hours' - History_Track1_yaxis_label = 'log L/L\d\(2281)' - History_Track1_reverse_xaxis = .false. - History_Track1_reverse_yaxis = .false. - History_Track1_log_xaxis = .false. - History_Track1_log_yaxis = .false. - - Text_Summary1_name(1, 1) = 'model_number' - Text_Summary1_name(2, 1) = 'log_star_age' - Text_Summary1_name(3, 1) = 'log_dt' - Text_Summary1_name(4, 1) = 'log_L' - Text_Summary1_name(5, 1) = 'log_Teff' - Text_Summary1_name(6, 1) = 'log_R' - Text_Summary1_name(7, 1) = 'log_g' - Text_Summary1_name(8, 1) = 'log_surf_cell_P' - Text_Summary1_name(1, 2) = 'star_mass' - Text_Summary1_name(2, 2) = 'log_abs_mdot' - Text_Summary1_name(3, 2) = 'he_core_mass' - Text_Summary1_name(4, 2) = 'c_core_mass' - Text_Summary1_name(5, 2) = 'cz_bot_mass' - Text_Summary1_name(6, 2) = 'cz_top_mass' - Text_Summary1_name(7, 2) = 'cz_bot_radius' - Text_Summary1_name(8, 2) = 'cz_top_radius' - Text_Summary1_name(1, 3) = 'log_cntr_T' - Text_Summary1_name(2, 3) = 'log_cntr_Rho' - Text_Summary1_name(3, 3) = 'log_center_P' - Text_Summary1_name(4, 3) = 'center h1' - Text_Summary1_name(5, 3) = 'v_div_csound_surf' - Text_Summary1_name(6, 3) = 'center c12' - Text_Summary1_name(7, 3) = 'center n14' - Text_Summary1_name(8, 3) = 'center o16' - Text_Summary1_name(1, 4) = 'log_Lnuc' - Text_Summary1_name(2, 4) = 'log_Lneu' - Text_Summary1_name(3, 4) = 'log_LH' - Text_Summary1_name(4, 4) = 'log_LHe' - Text_Summary1_name(5, 4) = 'log_LZ' - Text_Summary1_name(6, 4) = 'num_zones' - Text_Summary1_name(7, 4) = 'num_retries' - Text_Summary1_name(8, 4) = '' - - Grid2_plot_name(1) = 'TRho_Profile' - Grid2_plot_name(2) = 'HR' - Grid2_plot_name(3) = 'TRho' - Grid2_plot_name(4) = 'History_Track1' - Grid2_plot_name(5) = 'Abundance' + Profile_Panels_xmin(1) = -101 + + Profile_Panels_yaxis_name(1, 1) = 'logT' + Profile_Panels_yaxis_name(1, 2) = 'v_div_csound' + + Profile_Panels_ymin(1, 2) = 0 + Profile_Panels_ymax(1, 2) = -101 + + Profile_Panels_other_yaxis_name(1, 1) = 'entropy' + Profile_Panels_other_yaxis_name(1, 2) = 'csound' + + Profile_Panels_other_ymin(1, 2) = -101 + Profile_Panels_other_ymax(1, 2) = -101 + + Profile_Panels_xmin(2) = -101 + + Profile_Panels_yaxis_name(2, 1) = 'Abundance' + Profile_Panels_yaxis_name(2, 2) = 'luminosity' + + Profile_Panels_ymin(2, 2) = -101 + + Profile_Panels_other_yaxis_name(2, 2) = 'log_dr_div_cs' + + Profile_Panels_other_ymin(2, 2) = -101 + + History_Track_title(1) = 'Breakout Light Curve' + History_Track_xname(1) = 'star_age_hr' + History_Track_yname(1) = 'log_L' + History_Track_xaxis_label(1) = 'hours' + History_Track_yaxis_label(1) = 'log L/L\d\(2281)' + History_Track_reverse_xaxis(1) = .false. + History_Track_reverse_yaxis(1) = .false. + History_Track_log_xaxis(1) = .false. + History_Track_log_yaxis(1) = .false. + + Text_Summary_name(1, 1, 1) = 'model_number' + Text_Summary_name(1, 2, 1) = 'log_star_age' + Text_Summary_name(1, 3, 1) = 'log_dt' + Text_Summary_name(1, 4, 1) = 'log_L' + Text_Summary_name(1, 5, 1) = 'log_Teff' + Text_Summary_name(1, 6, 1) = 'log_R' + Text_Summary_name(1, 7, 1) = 'log_g' + Text_Summary_name(1, 8, 1) = 'log_surf_cell_P' + Text_Summary_name(1, 1, 2) = 'star_mass' + Text_Summary_name(1, 2, 2) = 'log_abs_mdot' + Text_Summary_name(1, 3, 2) = 'he_core_mass' + Text_Summary_name(1, 4, 2) = 'c_core_mass' + Text_Summary_name(1, 5, 2) = 'cz_bot_mass' + Text_Summary_name(1, 6, 2) = 'cz_top_mass' + Text_Summary_name(1, 7, 2) = 'cz_bot_radius' + Text_Summary_name(1, 8, 2) = 'cz_top_radius' + Text_Summary_name(1, 1, 3) = 'log_cntr_T' + Text_Summary_name(1, 2, 3) = 'log_cntr_Rho' + Text_Summary_name(1, 3, 3) = 'log_center_P' + Text_Summary_name(1, 4, 3) = 'center h1' + Text_Summary_name(1, 5, 3) = 'v_div_csound_surf' + Text_Summary_name(1, 6, 3) = 'center c12' + Text_Summary_name(1, 7, 3) = 'center n14' + Text_Summary_name(1, 8, 3) = 'center o16' + Text_Summary_name(1, 1, 4) = 'log_Lnuc' + Text_Summary_name(1, 2, 4) = 'log_Lneu' + Text_Summary_name(1, 3, 4) = 'log_LH' + Text_Summary_name(1, 4, 4) = 'log_LHe' + Text_Summary_name(1, 5, 4) = 'log_LZ' + Text_Summary_name(1, 6, 4) = 'num_zones' + Text_Summary_name(1, 7, 4) = 'num_retries' + Text_Summary_name(1, 8, 4) = '' + + Grid_plot_name(2, 1) = 'TRho_Profile' + Grid_plot_name(2, 2) = 'HR' + Grid_plot_name(2, 3) = 'TRho' + Grid_plot_name(2, 4) = 'History_Track1' + Grid_plot_name(2, 5) = 'Abundance' / ! end of pgstar namelist diff --git a/star/test_suite/conductive_flame/inlist_pgstar b/star/test_suite/conductive_flame/inlist_pgstar index c390b9375..21e7ddf24 100644 --- a/star/test_suite/conductive_flame/inlist_pgstar +++ b/star/test_suite/conductive_flame/inlist_pgstar @@ -2,104 +2,101 @@ ! device file_white_on_black_flag = .true. - !file_device = 'vcps' ! postscript + !file_device = 'vcps' ! postscript !file_extension = 'ps' - file_device = 'png' ! png + file_device = 'png' ! png file_extension = 'png' - pgstar_interval = 1 - pause = .false. - - Grid1_win_flag = .false. - Grid1_title = 'TW92 Flame' - Grid1_win_width = 8 - Grid1_win_aspect_ratio = 0.75 ! aspect_ratio = height/width - - Grid1_xleft = 0.12 ! fraction of full window width for margin on left - Grid1_xright = 0.95 ! fraction of full window width for margin on right - Grid1_ybot = 0.08 ! fraction of full window width for margin on bottom - Grid1_ytop = 0.92 ! fraction of full window width for margin on top - - Grid1_plot_name(:) = '' - Grid1_plot_row(:) = 1 ! number from 1 at top - Grid1_plot_rowspan(:) = 1 ! plot spans this number of rows - Grid1_plot_col(:) = 1 ! number from 1 at left - Grid1_plot_colspan(:) = 1 ! plot spans this number of columns - Grid1_plot_pad_left(:) = 0.0 ! fraction of full window width for padding on left - Grid1_plot_pad_right(:) = 0.0 ! fraction of full window width for padding on right - Grid1_plot_pad_top(:) = 0.0 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(:) = 0.0 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(:) = 0.7 ! multiply txt_scale for subplot by this + Grid_win_flag(1) = .false. + Grid_title(1) = 'TW92 Flame' + Grid_win_width(1) = 8 + Grid_win_aspect_ratio(1) = 0.75 ! aspect_ratio = height/width + + Grid_xleft(1) = 0.12 ! fraction of full window width for margin on left + Grid_xright(1) = 0.95 ! fraction of full window width for margin on right + Grid_ybot(1) = 0.08 ! fraction of full window width for margin on bottom + Grid_ytop(1) = 0.92 ! fraction of full window width for margin on top + + Grid_plot_name(1, :) = '' + Grid_plot_row(1, :) = 1 ! number from 1 at top + Grid_plot_rowspan(1, :) = 1 ! plot spans this number of rows + Grid_plot_col(1, :) = 1 ! number from 1 at left + Grid_plot_colspan(1, :) = 1 ! plot spans this number of columns + Grid_plot_pad_left(1, :) = 0.0 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, :) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, :) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, :) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, :) = 0.7 ! multiply txt_scale for subplot by this ! set default - Grid1_num_cols = 4 ! divide plotting region into this many equal width cols - Grid1_num_rows = 3 ! divide plotting region into this many equal height rows - Grid1_num_plots = 3 ! <= 10 - - Grid1_plot_name(:) = '' - Grid1_plot_row(:) = 1 ! number from 1 at top - Grid1_plot_rowspan(:) = 1 ! plot spans this number of rows - Grid1_plot_col(:) = 1 ! number from 1 at left - Grid1_plot_colspan(:) = 1 ! plot spans this number of columns - Grid1_plot_pad_left(:) = 0.03 ! fraction of full window width for padding on left - Grid1_plot_pad_right(:) = 0.03 ! fraction of full window width for padding on right - Grid1_plot_pad_top(:) = 0.03 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(:) = 0.03 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(:) = 0.7 ! multiply txt_scale for subplot by this - - - Grid1_plot_name(1) = 'Abundance' - Grid1_plot_row(1) = 1 ! number from 1 at top - Grid1_plot_rowspan(1) = 2 ! plot spans this number of rows - Grid1_plot_col(1) = 1 ! number from 1 at left - Grid1_plot_colspan(1) = 2 ! plot spans this number of columns - Grid1_plot_pad_left(1) = -0.05 ! fraction of full window width for padding on left - Grid1_plot_pad_right(1) = 0.05 ! fraction of full window width for padding on right - Grid1_plot_pad_top(1) = 0.0 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(1) = 0.05 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(1) = 0.6 ! multiply txt_scale for subplot by this - - ! Grid1_plot_name(2) = 'Abundance' - ! Grid1_plot_row(2) = 2 ! number from 1 at top - ! Grid1_plot_rowspan(2) = 1 ! plot spans this number of rows - ! Grid1_plot_col(2) = 1 ! number from 1 at left - ! Grid1_plot_colspan(2) = 2 ! plot spans this number of columns - ! Grid1_plot_pad_left(2) = -0.05 ! fraction of full window width for padding on left - ! Grid1_plot_pad_right(2) = 0.05 ! fraction of full window width for padding on right - ! Grid1_plot_pad_top(2) = 0.025 ! fraction of full window height for padding at top - ! Grid1_plot_pad_bot(2) = 0.025 ! fraction of full window height for padding at bottom - ! Grid1_txt_scale_factor(2) = 0.65 ! multiply txt_scale for subplot by this - - Grid1_plot_name(2) = 'Profile_Panels1' - Grid1_plot_row(2) = 3 ! number from 1 at top - Grid1_plot_rowspan(2) = 1 ! plot spans this number of rows - Grid1_plot_col(2) = 1 ! number from 1 at left - Grid1_plot_colspan(2) = 2 ! plot spans this number of columns - Grid1_plot_pad_left(2) = -0.05 ! fraction of full window width for padding on left - Grid1_plot_pad_right(2) = 0.05 ! fraction of full window width for padding on right - Grid1_plot_pad_top(2) = 0.05 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(2) = 0.0 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(2) = 0.65 ! multiply txt_scale for subplot by this - - Grid1_plot_name(3) = 'History_Panels1' - Grid1_plot_row(3) = 1 ! number from 1 at top - Grid1_plot_rowspan(3) = 3 ! plot spans this number of rows - Grid1_plot_col(3) = 3 ! number from 1 at left - Grid1_plot_colspan(3) = 2 ! plot spans this number of columns - Grid1_plot_pad_left(3) = 0.12 ! fraction of full window width for padding on left - Grid1_plot_pad_right(3) = 0.03 ! fraction of full window width for padding on right - Grid1_plot_pad_top(3) = 0.0 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(3) = 0.0 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(3) = 0.65 ! multiply txt_scale for subplot by this + Grid_num_cols(1) = 4 ! divide plotting region into this many equal width cols + Grid_num_rows(1) = 3 ! divide plotting region into this many equal height rows + Grid_num_plots(1) = 3 ! <= 10 + + Grid_plot_name(1, :) = '' + Grid_plot_row(1, :) = 1 ! number from 1 at top + Grid_plot_rowspan(1, :) = 1 ! plot spans this number of rows + Grid_plot_col(1, :) = 1 ! number from 1 at left + Grid_plot_colspan(1, :) = 1 ! plot spans this number of columns + Grid_plot_pad_left(1, :) = 0.03 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, :) = 0.03 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, :) = 0.03 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, :) = 0.03 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, :) = 0.7 ! multiply txt_scale for subplot by this + + + Grid_plot_name(1, 1) = 'Abundance' + Grid_plot_row(1, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(1, 1) = 2 ! plot spans this number of rows + Grid_plot_col(1, 1) = 1 ! number from 1 at left + Grid_plot_colspan(1, 1) = 2 ! plot spans this number of columns + Grid_plot_pad_left(1, 1) = -0.05 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 1) = 0.05 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 1) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 1) = 0.05 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 1) = 0.6 ! multiply txt_scale for subplot by this + + ! Grid_plot_name(1, 2) = 'Abundance' + ! Grid_plot_row(1, 2) = 2 ! number from 1 at top + ! Grid_plot_rowspan(1, 2) = 1 ! plot spans this number of rows + ! Grid_plot_col(1, 2) = 1 ! number from 1 at left + ! Grid_plot_colspan(1, 2) = 2 ! plot spans this number of columns + ! Grid_plot_pad_left(1, 2) = -0.05 ! fraction of full window width for padding on left + ! Grid_plot_pad_right(1, 2) = 0.05 ! fraction of full window width for padding on right + ! Grid_plot_pad_top(1, 2) = 0.025 ! fraction of full window height for padding at top + ! Grid_plot_pad_bot(1, 2) = 0.025 ! fraction of full window height for padding at bottom + ! Grid_txt_scale_factor(1, 2) = 0.65 ! multiply txt_scale for subplot by this + + Grid_plot_name(1, 2) = 'Profile_Panels1' + Grid_plot_row(1, 2) = 3 ! number from 1 at top + Grid_plot_rowspan(1, 2) = 1 ! plot spans this number of rows + Grid_plot_col(1, 2) = 1 ! number from 1 at left + Grid_plot_colspan(1, 2) = 2 ! plot spans this number of columns + Grid_plot_pad_left(1, 2) = -0.05 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 2) = 0.05 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 2) = 0.05 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 2) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 2) = 0.65 ! multiply txt_scale for subplot by this + + Grid_plot_name(1, 3) = 'History_Panels1' + Grid_plot_row(1, 3) = 1 ! number from 1 at top + Grid_plot_rowspan(1, 3) = 3 ! plot spans this number of rows + Grid_plot_col(1, 3) = 3 ! number from 1 at left + Grid_plot_colspan(1, 3) = 2 ! plot spans this number of columns + Grid_plot_pad_left(1, 3) = 0.12 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 3) = 0.03 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 3) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 3) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 3) = 0.65 ! multiply txt_scale for subplot by this ! file output - Grid1_file_flag = .true. - Grid1_file_dir = 'png' - Grid1_file_prefix = 'grid1' - Grid1_file_interval = 10000 ! output when mod(model_number,Grid1_file_interval)==0 - Grid1_file_width = 16 ! negative means use same value as for window - Grid1_file_aspect_ratio = -1 ! negative means use same value as for window + Grid_file_flag(1) = .true. + Grid_file_dir(1) = 'png' + Grid_file_prefix(1) = 'grid1' + Grid_file_interval(1) = 10000 ! output when mod(model_number,Grid_file_interval(1))==0 + Grid_file_width(1) = 16 ! negative means use same value as for window + Grid_file_aspect_ratio(1) = -1 ! negative means use same value as for window Abundance_win_flag = .false. @@ -115,118 +112,118 @@ !### Profile_Panels1 - Profile_Panels1_win_flag = .false. - - Profile_Panels1_win_width = 6 - Profile_Panels1_win_aspect_ratio = 0.75 ! aspect_ratio = height/width - - Profile_Panels1_xleft = 0.15 - Profile_Panels1_xright = 0.85 - Profile_Panels1_ybot = 0.15 - Profile_Panels1_ytop = 0.85 - Profile_Panels1_txt_scale = 1.0 - Profile_Panels1_title = '' - - Profile_Panels1_xaxis_name = 'radius_cm' - Profile_Panels1_xaxis_reversed = .false. - Profile_Panels1_xmin = 0 ! only used if /= -101d0 - Profile_Panels1_xmax = -101d0 ! only used if /= -101d0 - Profile_Panels1_xmargin = 0d0 - Profile_Panels1_show_mix_regions_on_xaxis = .false. - - Profile_Panels1_yaxis_name(:) = '' - Profile_Panels1_yaxis_reversed(:) = .false. - Profile_Panels1_yaxis_log(:) = .false. ! show log10 of abs value - Profile_Panels1_ymin(:) = -101d0 ! only used if /= -101d0 - Profile_Panels1_ymax(:) = -101d0 ! only used if /= -101d0 - Profile_Panels1_ymargin(:) = 0.1 - Profile_Panels1_dymin(:) = -1 - - Profile_Panels1_other_yaxis_name(:) = '' - Profile_Panels1_other_yaxis_reversed(:) = .false. - Profile_Panels1_other_yaxis_log(:) = .false. ! show log10 of abs value - Profile_Panels1_other_ymin(:) = -101d0 ! only used if /= -101d0 - Profile_Panels1_other_ymax(:) = -101d0 ! only used if /= -101d0 - Profile_Panels1_other_ymargin(:) = 0.1 - Profile_Panels1_other_dymin(:) = -1 - - Profile_Panels1_show_grid = .true. + Profile_Panels_win_flag(1) = .false. + + Profile_Panels_win_width(1) = 6 + Profile_Panels_win_aspect_ratio = 0.75 ! aspect_ratio(1) = height/width + + Profile_Panels_xleft(1) = 0.15 + Profile_Panels_xright(1) = 0.85 + Profile_Panels_ybot(1) = 0.15 + Profile_Panels_ytop(1) = 0.85 + Profile_Panels_txt_scale(1) = 1.0 + Profile_Panels_title(1) = '' + + Profile_Panels_xaxis_name(1) = 'radius_cm' + Profile_Panels_xaxis_reversed(1) = .false. + Profile_Panels_xmin(1) = 0 ! only used if /= -101d0 + Profile_Panels_xmax(1) = -101d0 ! only used if /= -101d0 + Profile_Panels_xmargin(1) = 0d0 + Profile_Panels_show_mix_regions_on_xaxis(1) = .false. + + Profile_Panels_yaxis_name(1, :) = '' + Profile_Panels_yaxis_reversed(1, :) = .false. + Profile_Panels_yaxis_log(1, :) = .false. ! show log10 of abs value + Profile_Panels_ymin(1, :) = -101d0 ! only used if /= -101d0 + Profile_Panels_ymax(1, :) = -101d0 ! only used if /= -101d0 + Profile_Panels_ymargin(1, :) = 0.1 + Profile_Panels_dymin(1, :) = -1 + + Profile_Panels_other_yaxis_name(1, :) = '' + Profile_Panels_other_yaxis_reversed(1, :) = .false. + Profile_Panels_other_yaxis_log(1, :) = .false. ! show log10 of abs value + Profile_Panels_other_ymin(1, :) = -101d0 ! only used if /= -101d0 + Profile_Panels_other_ymax(1, :) = -101d0 ! only used if /= -101d0 + Profile_Panels_other_ymargin(1, :) = 0.1 + Profile_Panels_other_dymin(1, :) = -1 + + Profile_Panels_show_grid(1) = .true. ! setup default plot - Profile_Panels1_num_panels = 1 - Profile_Panels1_yaxis_name(1) = 'logT' - Profile_Panels1_other_yaxis_name(1) = 'logRho' + Profile_Panels_num_panels(1) = 1 + Profile_Panels_yaxis_name(1, 1) = 'logT' + Profile_Panels_other_yaxis_name(1, 1) = 'logRho' ! file output - Profile_Panels1_file_flag = .false. - Profile_Panels1_file_dir = 'png' - Profile_Panels1_file_prefix = 'profile_panels1_' - Profile_Panels1_file_interval = 5 ! output when mod(model_number,Profile_Panels1_file_interval)==0 - Profile_Panels1_file_width = -1 ! (inches) negative means use same value as for window - Profile_Panels1_file_aspect_ratio = -1 ! negative means use same value as for window - - - History_Panels1_win_flag = .false. - - History_Panels1_win_width = 6 - History_Panels1_win_aspect_ratio = 0.75 ! aspect_ratio = height/width - - History_Panels1_xleft = 0.15 - History_Panels1_xright = 0.85 - History_Panels1_ybot = 0.15 - History_Panels1_ytop = 0.85 - History_Panels1_txt_scale = 1.0 - History_Panels1_title = '' - - History_Panels1_xaxis_name = 'star_age' - History_Panels1_xmin = -101d0 - History_Panels1_xmax = -101d0 - History_Panels1_max_width = 100 ! only used if > 0. causes xmin to move with xmax. - History_Panels1_dxmin = -1 - History_Panels1_xaxis_reversed = .false. - History_Panels1_xaxis_log = .false. ! show log10 of abs value - - History_Panels1_yaxis_name(:) = '' - History_Panels1_yaxis_reversed(:) = .false. - History_Panels1_yaxis_log(:) = .false. ! show log10 of abs value - History_Panels1_ymin(:) = -101d0 ! only used if /= -101d0 - History_Panels1_ymax(:) = -101d0 ! only used if /= -101d0 - History_Panels1_ymargin(:) = 0.1 - History_Panels1_dymin(:) = -1 - - History_Panels1_other_yaxis_name(:) = '' - History_Panels1_other_yaxis_reversed(:) = .false. - History_Panels1_other_yaxis_log(:) = .false. ! show log10 of abs value - History_Panels1_other_ymin(:) = -101d0 ! only used if /= -101d0 - History_Panels1_other_ymax(:) = -101d0 ! only used if /= -101d0 - History_Panels1_other_ymargin(:) = 0.1 - History_Panels1_other_dymin(:) = -1 + Profile_Panels_file_flag(1) = .false. + Profile_Panels_file_dir(1) = 'png' + Profile_Panels_file_prefix(1) = 'profile_panels1_' + Profile_Panels_file_interval(1) = 5 ! output when mod(model_number,Profile_Panels_file_interval(1))==0 + Profile_Panels_file_width(1) = -1 ! (inches) negative means use same value as for window + Profile_Panels_file_aspect_ratio(1) = -1 ! negative means use same value as for window + + + History_Panels_win_flag(1) = .false. + + History_Panels_win_width(1) = 6 + History_Panels_win_aspect_ratio = 0.75 ! aspect_ratio(1) = height/width + + History_Panels_xleft(1) = 0.15 + History_Panels_xright(1) = 0.85 + History_Panels_ybot(1) = 0.15 + History_Panels_ytop(1) = 0.85 + History_Panels_txt_scale(1) = 1.0 + History_Panels_title(1) = '' + + History_Panels_xaxis_name(1) = 'star_age' + History_Panels_xmin(1) = -101d0 + History_Panels_xmax(1) = -101d0 + History_Panels_max_width(1) = 100 ! only used if > 0. causes xmin to move with xmax. + History_Panels_dxmin(1) = -1 + History_Panels_xaxis_reversed(1) = .false. + History_Panels_xaxis_log(1) = .false. ! show log10 of abs value + + History_Panels_yaxis_name(1, :) = '' + History_Panels_yaxis_reversed(1, :) = .false. + History_Panels_yaxis_log(1, :) = .false. ! show log10 of abs value + History_Panels_ymin(1, :) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(1, :) = -101d0 ! only used if /= -101d0 + History_Panels_ymargin(1, :) = 0.1 + History_Panels_dymin(1, :) = -1 + + History_Panels_other_yaxis_name(1, :) = '' + History_Panels_other_yaxis_reversed(1, :) = .false. + History_Panels_other_yaxis_log(1, :) = .false. ! show log10 of abs value + History_Panels_other_ymin(1, :) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(1, :) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymargin(1, :) = 0.1 + History_Panels_other_dymin(1, :) = -1 ! setup default - History_Panels1_num_panels = 2 - - History_Panels1_yaxis_name(1) = 'r_flame' - History_Panels1_yaxis_reversed(1) = .false. - History_Panels1_ymin(1) = 0 ! only used if /= -101d0 - History_Panels1_ymax(1) = 5e-4 ! only used if /= -101d0 - History_Panels1_dymin(1) = -1 - - History_Panels1_other_yaxis_name(1) = '' - History_Panels1_other_yaxis_reversed(1) = .false. - History_Panels1_other_ymin(1) = -101d0 ! only used if /= -101d0 - History_Panels1_other_ymax(1) = -101d0 ! only used if /= -101d0 - History_Panels1_other_dymin(1) = -1 - - History_Panels1_yaxis_name(2) = 'l_flame' - History_Panels1_yaxis_reversed(2) = .false. - History_Panels1_ymin(2) = -101d0 ! only used if /= -101d0 - History_Panels1_ymax(2) = -101d0 ! only used if /= -101d0 - History_Panels1_dymin(2) = -1 - - History_Panels1_other_yaxis_name(2) = '' - History_Panels1_other_yaxis_reversed(2) = .false. - History_Panels1_other_ymin(2) = -101d0 ! only used if /= -101d0 - History_Panels1_other_ymax(2) = -101d0 ! only used if /= -101d0 - History_Panels1_other_dymin(2) = -1 + History_Panels_num_panels(1) = 2 + + History_Panels_yaxis_name(1, 1) = 'r_flame' + History_Panels_yaxis_reversed(1, 1) = .false. + History_Panels_ymin(1, 1) = 0 ! only used if /= -101d0 + History_Panels_ymax(1, 1) = 5e-4 ! only used if /= -101d0 + History_Panels_dymin(1, 1) = -1 + + History_Panels_other_yaxis_name(1, 1) = '' + History_Panels_other_yaxis_reversed(1, 1) = .false. + History_Panels_other_ymin(1, 1) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(1, 1) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(1, 1) = -1 + + History_Panels_yaxis_name(1, 2) = 'l_flame' + History_Panels_yaxis_reversed(1, 2) = .false. + History_Panels_ymin(1, 2) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(1, 2) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(1, 2) = -1 + + History_Panels_other_yaxis_name(1, 2) = '' + History_Panels_other_yaxis_reversed(1, 2) = .false. + History_Panels_other_ymin(1, 2) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(1, 2) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(1, 2) = -1 / ! end of pgstar namelist diff --git a/star/test_suite/conserve_angular_momentum/README.rst b/star/test_suite/conserve_angular_momentum/README.rst index d1f066a45..4addd9e98 100644 --- a/star/test_suite/conserve_angular_momentum/README.rst +++ b/star/test_suite/conserve_angular_momentum/README.rst @@ -66,85 +66,85 @@ pgstar commands used for the first 7 plots: Abundance_file_width = -1 ! (inches) negative means use same value as for window Abundance_file_aspect_ratio = -1 ! negative means use same value as for window - Profile_Panels2_win_flag = .false. - Profile_Panels2_num_panels = 1 - Profile_Panels2_show_grid = .true. - Profile_Panels2_show_mix_regions_on_xaxis = .true. - - Profile_Panels2_win_width = 15 - Profile_Panels2_win_aspect_ratio = 1.0 - Profile_Panels2_txt_scale = 1.0 - Profile_Panels2_title = '' - - Profile_Panels2_xaxis_name = 'mass' - Profile_Panels2_xmin = 0.0 - Profile_Panels2_xmax = 1.0 - Profile_Panels2_xaxis_reversed = .false. - - Profile_Panels2_yaxis_name(1) = 'omega' - Profile_Panels2_ymin(1) = 0.0 - Profile_Panels2_ymax(1) = 8.0e-4 ! only used if /= -101d0 - - Profile_Panels2_other_yaxis_name(1) = 'log_j_rot' - Profile_Panels2_other_ymin(1) = 10.0 ! only used if /= -101d0 - Profile_Panels2_other_ymax(1) = 17.0 ! only used if /= -101d0 - - Profile_Panels2_file_flag = .false. - Profile_Panels2_file_dir = 'png' - Profile_Panels2_file_prefix = 'j_omega_' - Profile_Panels2_file_interval = 10 ! output when mod(model_number,file_interval)==0 - Profile_Panels2_file_width = -1 ! (inches) negative means use same value as for window - Profile_Panels2_file_aspect_ratio = -1 ! negative means use same value as for window - - - - Text_Summary1_win_flag = .false. - Text_Summary1_win_width = 10 - Text_Summary1_win_aspect_ratio = 0.15 - - Text_Summary1_xleft = 0.01 - Text_Summary1_xright = 0.99 - Text_Summary1_ybot = 0.0 - Text_Summary1_ytop = 1.0 - Text_Summary1_txt_scale = 1.0 - - Text_Summary1_num_rows = 1 ! <= 20 - Text_Summary1_num_cols = 3 ! <= 20 - Text_Summary1_name(:,:) = '' - - Text_Summary1_name(1,1) = 'num_zones' - Text_Summary1_name(1,2) = 'total_angular_momentum' - Text_Summary1_name(1,3) = 'surf_avg_v_rot' - - Text_Summary1_file_flag = .false. - Text_Summary1_file_dir = 'png' - Text_Summary1_file_prefix = 'text_' - Text_Summary1_file_interval = 10 ! output when mod(model_number,file_interval)==0 - Text_Summary1_file_width = -1 ! (inches) negative means use same value as for window - Text_Summary1_file_aspect_ratio = -1 ! negative means use same value as for window - - - Grid1_win_flag = .true. - Grid1_win_width = 15 - Grid1_win_aspect_ratio = 0.6 - - Grid1_plot_name(:) = '' - Grid1_plot_row(:) = 1 ! number from 1 at top - Grid1_plot_rowspan(:) = 1 ! plot spans this number of rows - Grid1_plot_col(:) = 1 ! number from 1 at left - Grid1_plot_colspan(:) = 1 ! plot spans this number of columns - Grid1_plot_pad_left(:) = 0.0 ! fraction of full window width for padding on left - Grid1_plot_pad_right(:) = 0.0 ! fraction of full window width for padding on right - Grid1_plot_pad_top(:) = 0.0 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(:) = 0.0 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(:) = 0.7 ! multiply txt_scale for subplot by this - - - Grid1_num_cols = 6 ! divide plotting region into this many equal width cols - Grid1_num_rows = 2 ! divide plotting region into this many equal height rows - Grid1_num_plots = 10 ! <= 10 - - Grid1_title = 'inlist_conserve_J' + Profile_Panels_win_flag(2) = .false. + Profile_Panels_num_panels(2) = 1 + Profile_Panels_show_grid(2) = .true. + Profile_Panels_show_mix_regions_on_xaxis(2) = .true. + + Profile_Panels_win_width(2) = 15 + Profile_Panels_win_aspect_ratio(2) = 1.0 + Profile_Panels_txt_scale(2) = 1.0 + Profile_Panels_title(2) = '' + + Profile_Panels_xaxis_name(2) = 'mass' + Profile_Panels_xmin(2) = 0.0 + Profile_Panels_xmax(2) = 1.0 + Profile_Panels_xaxis_reversed(2) = .false. + + Profile_Panels_yaxis_name(2, 1) = 'omega' + Profile_Panels_ymin(2, 1) = 0.0 + Profile_Panels_ymax(2, 1) = 8.0e-4 ! only used if /= -101d0 + + Profile_Panels_other_yaxis_name(2, 1) = 'log_j_rot' + Profile_Panels_other_ymin(2, 1) = 10.0 ! only used if /= -101d0 + Profile_Panels_other_ymax(2, 1) = 17.0 ! only used if /= -101d0 + + Profile_Panels_file_flag(2) = .false. + Profile_Panels_file_dir(2) = 'png' + Profile_Panels_file_prefix(2) = 'j_omega_' + Profile_Panels_file_interval(2) = 10 ! output when mod(model_number,file_interval)==0 + Profile_Panels_file_width(2) = -1 ! (inches) negative means use same value as for window + Profile_Panels_file_aspect_ratio(2) = -1 ! negative means use same value as for window + + + + Text_Summary_win_flag(1) = .false. + Text_Summary_win_width(1) = 10 + Text_Summary_win_aspect_ratio(1) = 0.15 + + Text_Summary_xleft(1) = 0.01 + Text_Summary_xright(1) = 0.99 + Text_Summary_ybot(1) = 0.0 + Text_Summary_ytop(1) = 1.0 + Text_Summary_txt_scale(1) = 1.0 + + Text_Summary_num_rows(1) = 1 ! <= 20 + Text_Summary_num_cols(1) = 3 ! <= 20 + Text_Summary_name(1, :, :) = '' + + Text_Summary_name(1, 1, 1) = 'num_zones' + Text_Summary_name(1, 1, 2) = 'total_angular_momentum' + Text_Summary_name(1, 1, 3) = 'surf_avg_v_rot' + + Text_Summary_file_flag(1) = .false. + Text_Summary_file_dir(1) = 'png' + Text_Summary_file_prefix(1) = 'text_' + Text_Summary_file_interval(1) = 10 ! output when mod(model_number,file_interval)==0 + Text_Summary_file_width(1) = -1 ! (inches) negative means use same value as for window + Text_Summary_file_aspect_ratio(1) = -1 ! negative means use same value as for window + + + Grid_win_flag(1) = .true. + Grid_win_width(1) = 15 + Grid_win_aspect_ratio(1) = 0.6 + + Grid_plot_name(1, :) = '' + Grid_plot_row(1, :) = 1 ! number from 1 at top + Grid_plot_rowspan(1, :) = 1 ! plot spans this number of rows + Grid_plot_col(1, :) = 1 ! number from 1 at left + Grid_plot_colspan(1, :) = 1 ! plot spans this number of columns + Grid_plot_pad_left(1, :) = 0.0 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, :) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, :) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, :) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, :) = 0.7 ! multiply txt_scale for subplot by this + + + Grid_num_cols(1) = 6 ! divide plotting region into this many equal width cols + Grid_num_rows(1) = 2 ! divide plotting region into this many equal height rows + Grid_num_plots(1) = 10 ! <= 10 + + Grid_title(1) = 'inlist_conserve_J' pgstar_show_model_number = .true. pgstar_model_scale = 1.0 @@ -162,51 +162,51 @@ pgstar commands used for the first 7 plots: - Grid1_plot_name(1) = 'Text_Summary1' - Grid1_plot_row(1) = 1 ! number from 1 at top - Grid1_plot_rowspan(1) = 1 ! plot spans this number of rows - Grid1_plot_col(1) = 1 ! number from 1 at left - Grid1_plot_colspan(1) = 6 ! plot spans this number of columns + Grid_plot_name(1, 1) = 'Text_Summary1' + Grid_plot_row(1, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(1, 1) = 1 ! plot spans this number of rows + Grid_plot_col(1, 1) = 1 ! number from 1 at left + Grid_plot_colspan(1, 1) = 6 ! plot spans this number of columns - Grid1_plot_pad_left(1) = -0.06 ! fraction of full window width for padding on left - Grid1_plot_pad_right(1) = 0.05 ! fraction of full window width for padding on right - Grid1_plot_pad_top(1) = -0.02 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(1) = 0.39 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(1) = 1.2 ! multiply txt_scale for subplot by this + Grid_plot_pad_left(1, 1) = -0.06 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 1) = 0.05 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 1) = -0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 1) = 0.39 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 1) = 1.2 ! multiply txt_scale for subplot by this - Grid1_plot_name(2) = 'Abundance' - Grid1_plot_row(2) = 1 ! number from 1 at top - Grid1_plot_rowspan(2) = 2 ! plot spans this number of rows - Grid1_plot_col(2) = 1 ! number from 1 at left - Grid1_plot_colspan(2) = 3 ! plot spans this number of columns + Grid_plot_name(1, 2) = 'Abundance' + Grid_plot_row(1, 2) = 1 ! number from 1 at top + Grid_plot_rowspan(1, 2) = 2 ! plot spans this number of rows + Grid_plot_col(1, 2) = 1 ! number from 1 at left + Grid_plot_colspan(1, 2) = 3 ! plot spans this number of columns - Grid1_plot_pad_left(2) = -0.05 ! fraction of full window width for padding on left - Grid1_plot_pad_right(2) = 0.10 ! fraction of full window width for padding on right - Grid1_plot_pad_top(2) = 0.03 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(2) = 0.03 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this + Grid_plot_pad_left(1, 2) = -0.05 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 2) = 0.10 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 2) = 0.03 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 2) = 0.03 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 2) = 0.7 ! multiply txt_scale for subplot by this - Grid1_plot_name(3) = 'Profile_Panels2' - Grid1_plot_row(3) = 1 ! number from 1 at top - Grid1_plot_rowspan(3) = 2 ! plot spans this number of rows - Grid1_plot_col(3) = 5 ! Number from 1 at left - Grid1_plot_colspan(3) = 3 ! plot spans this number of columns + Grid_plot_name(1, 3) = 'Profile_Panels2' + Grid_plot_row(1, 3) = 1 ! number from 1 at top + Grid_plot_rowspan(1, 3) = 2 ! plot spans this number of rows + Grid_plot_col(1, 3) = 5 ! Number from 1 at left + Grid_plot_colspan(1, 3) = 3 ! plot spans this number of columns - Grid1_plot_pad_left(3) = -0.15 ! fraction of full window width for padding on left - Grid1_plot_pad_right(3) = 0.20 ! fraction of full window width for padding on right - Grid1_plot_pad_top(3) = 0.03 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(3) = 0.03 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(3) = 0.7 ! multiply txt_scale for subplot by this + Grid_plot_pad_left(1, 3) = -0.15 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 3) = 0.20 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 3) = 0.03 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 3) = 0.03 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 3) = 0.7 ! multiply txt_scale for subplot by this - Grid1_file_flag = .true. - Grid1_file_dir = 'png' - Grid1_file_prefix = 'grid_' - Grid1_file_interval = 10 ! output when mod(model_number,Grid1_file_interval)==0 - Grid1_file_width = -1 ! (inches) negative means use same value as for window - Grid1_file_aspect_ratio = -1 ! negative means use same value as for window + Grid_file_flag(1) = .true. + Grid_file_dir(1) = 'png' + Grid_file_prefix(1) = 'grid_' + Grid_file_interval(1) = 10 ! output when mod(model_number,Grid_file_interval(1))==0 + Grid_file_width(1) = -1 ! (inches) negative means use same value as for window + Grid_file_aspect_ratio(1) = -1 ! negative means use same value as for window diff --git a/star/test_suite/conv_core_cpm/inlist_conv_core_cpm b/star/test_suite/conv_core_cpm/inlist_conv_core_cpm index daa68d8c7..81d1ec0b4 100644 --- a/star/test_suite/conv_core_cpm/inlist_conv_core_cpm +++ b/star/test_suite/conv_core_cpm/inlist_conv_core_cpm @@ -97,84 +97,81 @@ ! grid1 plot of all 5 panels, see below sections setting up each panel ! file output - file_white_on_black_flag = .true. - file_device = 'vcps' - file_extension = 'ps' - Grid1_file_flag = .true. - Grid1_file_dir = 'pgstar_out' - Grid1_file_prefix = 'grid_' - Grid1_file_interval = 100000 ! we're just saving the last png for the test suite - Grid1_file_width = 16 - Grid1_file_aspect_ratio = -1 + Grid_file_flag(1) = .true. + Grid_file_dir(1) = 'png' + Grid_file_prefix(1) = 'grid_' + Grid_file_interval(1) = 100000 ! we're just saving the last png for the test suite + Grid_file_width(1) = 16 + Grid_file_aspect_ratio(1) = -1 ! window setup - Grid1_win_width = 14 - Grid1_win_aspect_ratio = 0.55 - ! Grid1_win_flag = .true. - Grid1_xleft = 0.03 - Grid1_xright = 0.95 - Grid1_ybot = 0.05 - Grid1_ytop = 0.97 - Grid1_num_plots = 5 - Grid1_num_cols = 3 - Grid1_num_rows = 2 - Grid1_title='' + Grid_win_width(1) = 14 + Grid_win_aspect_ratio(1) = 0.55 + ! Grid_win_flag(1) = .true. + Grid_xleft(1) = 0.03 + Grid_xright(1) = 0.95 + Grid_ybot(1) = 0.05 + Grid_ytop(1) = 0.97 + Grid_num_plots(1) = 5 + Grid_num_cols(1) = 3 + Grid_num_rows(1) = 2 + Grid_title(1) ='' ! panel 1: abundances - Grid1_plot_name(1) = 'Abundance' - Grid1_plot_row(1)=1 - Grid1_plot_col(1)=1 - Grid1_plot_colspan(1) = 1 - Grid1_plot_rowspan(1) = 1 - Grid1_plot_pad_left(1) = 0.04 ! fraction of full window width for padding on left - Grid1_plot_pad_right(1) = 0.02 ! fraction of full window width for padding on right - Grid1_plot_pad_top(1) = 0.06 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(1) = 0.06 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(1) = 0.7 ! multiply txt_scale for subplot by this + Grid_plot_name(1, 1) = 'Abundance' + Grid_plot_row(1, 1)=1 + Grid_plot_col(1, 1)=1 + Grid_plot_colspan(1, 1) = 1 + Grid_plot_rowspan(1, 1) = 1 + Grid_plot_pad_left(1, 1) = 0.04 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 1) = 0.02 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 1) = 0.06 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 1) = 0.06 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 1) = 0.7 ! multiply txt_scale for subplot by this ! panel 2: Evolution of Conv core (History_Track1 pgplot name) - Grid1_plot_name(2) = 'History_Track1' - Grid1_plot_row(2)=1 - Grid1_plot_col(2)=2 - Grid1_plot_colspan(2) = 1 - Grid1_plot_rowspan(2) = 1 - Grid1_plot_pad_left(2) = 0.08 ! fraction of full window width for padding on left - Grid1_plot_pad_right(2) = 0.02 ! fraction of full window width for padding on right - Grid1_plot_pad_top(2) = 0.06 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(2) = 0.03 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this + Grid_plot_name(1, 2) = 'History_Track1' + Grid_plot_row(1, 2)=1 + Grid_plot_col(1, 2)=2 + Grid_plot_colspan(1, 2) = 1 + Grid_plot_rowspan(1, 2) = 1 + Grid_plot_pad_left(1, 2) = 0.08 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 2) = 0.02 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 2) = 0.06 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 2) = 0.03 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 2) = 0.7 ! multiply txt_scale for subplot by this ! panel 3: profile plot of grada, gradL, gradr, X (Summary_Profile pgplot name) - Grid1_plot_name(3) = 'Summary_Profile' - Grid1_plot_row(3)=1 - Grid1_plot_col(3)=3 - Grid1_plot_colspan(3) = 1 - Grid1_plot_rowspan(3) = 1 - Grid1_plot_pad_left(3) = 0.03 ! fraction of full window width for padding on left - Grid1_plot_pad_right(3) = 0.04 ! fraction of full window width for padding on right - Grid1_plot_pad_top(3) = 0.06 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(3) = 0.06 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(3) = 1.0 ! multiply txt_scale for subplot by this + Grid_plot_name(1, 3) = 'Summary_Profile' + Grid_plot_row(1, 3)=1 + Grid_plot_col(1, 3)=3 + Grid_plot_colspan(1, 3) = 1 + Grid_plot_rowspan(1, 3) = 1 + Grid_plot_pad_left(1, 3) = 0.03 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 3) = 0.04 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 3) = 0.06 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 3) = 0.06 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 3) = 1.0 ! multiply txt_scale for subplot by this ! panel 4: kippenhaun diagram - Grid1_plot_name(4) = 'Kipp' - Grid1_plot_row(4)=2 - Grid1_plot_col(4)=1 - Grid1_plot_colspan(4) = 2 - Grid1_plot_rowspan(4) = 1 - Grid1_txt_scale_factor(4) = 0.75 - Grid1_plot_pad_left(4) = 0.04 ! fraction of full window width for padding on left - Grid1_plot_pad_right(4) = 0.06 ! fraction of full window width for padding on right - Grid1_plot_pad_top(4) = 0.05 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(4) = 0.05 ! fraction of full window height for padding at bottom + Grid_plot_name(1, 4) = 'Kipp' + Grid_plot_row(1, 4)=2 + Grid_plot_col(1, 4)=1 + Grid_plot_colspan(1, 4) = 2 + Grid_plot_rowspan(1, 4) = 1 + Grid_txt_scale_factor(1, 4) = 0.75 + Grid_plot_pad_left(1, 4) = 0.04 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 4) = 0.06 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 4) = 0.05 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 4) = 0.05 ! fraction of full window height for padding at bottom !panel 5: HR - Grid1_plot_name(5) = 'HR' - Grid1_plot_row(5)=2 - Grid1_plot_col(5)=3 - Grid1_plot_colspan(5) = 1 - Grid1_plot_rowspan(5) = 1 - Grid1_plot_pad_left(5) = 0.068 ! fraction of full window width for padding on left - Grid1_plot_pad_right(5) = -0.035 ! fraction of full window width for padding on right - Grid1_plot_pad_top(5) = 0.08 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(5) = 0.01 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(5) = 0.65 ! multiply txt_scale for subplot by this + Grid_plot_name(1, 5) = 'HR' + Grid_plot_row(1, 5)=2 + Grid_plot_col(1, 5)=3 + Grid_plot_colspan(1, 5) = 1 + Grid_plot_rowspan(1, 5) = 1 + Grid_plot_pad_left(1, 5) = 0.068 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 5) = -0.035 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 5) = 0.08 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 5) = 0.01 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 5) = 0.65 ! multiply txt_scale for subplot by this !--------------------------------------------------------------------------------------------- @@ -212,6 +209,33 @@ Kipp_mix_interval = 2 !--------------------------------------------------------------------------------------------- +<<<<<<< HEAD + ! mass of convective core vs. X_c (central H abundance) + ! set parameters and labels for the mass of convective core + History_Track_title(1) = 'Evolution of Conv Core Mass' + History_Track_xname(1) = 'center_h1' + History_Track_yname(1) = 'mass_conv_core' + History_Track_xaxis_label(1) = 'X\dc\u' + History_Track_yaxis_label(1) = 'Mass of Convective Core' + ! set up limits of the plot + History_Track_reverse_xaxis(1) = .true. + History_Track_reverse_yaxis(1) = .false. + History_Track_log_xaxis(1) = .false. + History_Track_log_yaxis(1) = .false. + History_Track_xmin(1) = 0.0 !-101d0 + History_Track_xmax(1) = 0.75 !-101d0 + History_Track_ymin(1) = 0 !-101d0 + History_Track_ymax(1) = 0.15 !-101d0 + + show_History_Track_target_box(1) = .true. + History_Track_n_sigma(1) = 1 + History_Track_xtarget(1) = 0.5 + History_Track_xsigma(1) = 0.03 + History_Track_ytarget(1) = 0.13 ! The target value between x_ctrl(1) and x_ctrl(2) + History_Track_ysigma(1) = 0.005 + + History_Track_fname(1) = 'core_evolution.data' +======= ! mass of convective core vs. X_c (central H abundance) ! set parameters and labels for the mass of convective core History_Track1_title = 'Evolution of Conv Core Mass' @@ -237,6 +261,7 @@ History_Track1_ysigma = 0.005 History_Track1_fname = 'core_evolution.data' +>>>>>>> origin/main !--------------------------------------------------------------------------------------------- ! set up for evolution of convective boundaries diff --git a/star/test_suite/conv_core_cpm/inlist_to_ZAMS b/star/test_suite/conv_core_cpm/inlist_to_ZAMS index 11ff49027..b0c7d3724 100644 --- a/star/test_suite/conv_core_cpm/inlist_to_ZAMS +++ b/star/test_suite/conv_core_cpm/inlist_to_ZAMS @@ -66,10 +66,11 @@ / ! end of controls namelist &pgstar - Grid2_win_flag = .true. + + Grid_win_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' Abundance_xmax = 0.5 diff --git a/star/test_suite/custom_colors/README.rst b/star/test_suite/custom_colors/README.rst index b0673dd95..d2177b993 100644 --- a/star/test_suite/custom_colors/README.rst +++ b/star/test_suite/custom_colors/README.rst @@ -41,118 +41,118 @@ pgstar commands used for the first 7 plots: !### Color_magnitude1 - Color_magnitude1_win_flag = .true. + Color_Magnitude_win_flag(1) = .true. - Color_magnitude1_win_width = 15 - Color_magnitude1_win_aspect_ratio = 0.75 ! aspect_ratio = height/width + Color_Magnitude_win_width(1) = 15 + Color_Magnitude_win_aspect_ratio(1) = 0.75 ! aspect_ratio = height/width - Color_magnitude1_xleft = 0.15 - Color_magnitude1_xright = 0.85 - Color_magnitude1_ybot = 0.15 - Color_magnitude1_ytop = 0.85 - Color_magnitude1_txt_scale = 1.0 - Color_magnitude1_title = 'Color_magnitude1' + Color_Magnitude_xleft(1) = 0.15 + Color_Magnitude_xright(1) = 0.85 + Color_Magnitude_ybot(1) = 0.15 + Color_Magnitude_ytop(1) = 0.85 + Color_Magnitude_txt_scale(1) = 1.0 + Color_Magnitude_title(1) = 'Color_magnitude1' ! setup default - Color_magnitude1_num_panels = 2 + Color_Magnitude_num_panels(1) = 2 ! Plots xaxis1-xaxis2 leave xaxis2 blank if you only want to plot xaxis1. - Color_magnitude1_xaxis1_name = 'model_number' - Color_magnitude1_xaxis2_name = '' + Color_Magnitude_xaxis1_name(1) = 'model_number' + Color_Magnitude_xaxis2_name(1) = '' ! Plots yaxis1-yaxis2 leave yaxis2 blank if you only want to plot yaxis1. - Color_magnitude1_yaxis1_name(1) = 'bc_B' - Color_magnitude1_yaxis2_name(1) = 'bc_U' - Color_magnitude1_yaxis_reversed(1) = .false. + Color_Magnitude_yaxis1_name(1)(1) = 'bc_B' + Color_Magnitude_yaxis2_name(1)(1) = 'bc_U' + Color_Magnitude_yaxis_reversed(1)(1) = .false. ! Plots `other_yaxis1-other_yaxis2` leave `other_yaxis2` blank if you only want to plot `other_yaxis1`. - Color_magnitude1_other_yaxis1_name(1) = 'abs_mag_V' - Color_magnitude1_other_yaxis2_name(1) = '' - Color_magnitude1_other_yaxis_reversed(1) = .true. + Color_Magnitude_other_yaxis1_name(1)(1) = 'abs_mag_V' + Color_Magnitude_other_yaxis2_name(1)(1) = '' + Color_Magnitude_other_yaxis_reversed(1)(1) = .true. - Color_magnitude1_yaxis1_name(2) = 'bc_B' - Color_magnitude1_other_yaxis1_name(2) = 'bc_U' + Color_Magnitude_yaxis1_name(2)(1) = 'bc_B' + Color_Magnitude_other_yaxis1_name(2)(1) = 'bc_U' ! Enables calling a subroutine to add extra information to a plot ! see `$MESA_DIR/star/other/pgstar_decorator.f90` - Color_magnitude1_use_decorator = .true. + Color_Magnitude_use_decorator(1) = .true. ! file output - Color_magnitude1_file_flag = .true. - Color_magnitude1_file_dir = 'png' - Color_magnitude1_file_prefix = 'Color_magnitude1_' - Color_magnitude1_file_interval = 5 ! output when `mod(model_number,Color_magnitude1_file_interval)==0` - Color_magnitude1_file_width = -1 ! (inches) negative means use same value as for window - Color_magnitude1_file_aspect_ratio = -1 ! negative means use same value as for window + Color_Magnitude_file_flag(1) = .true. + Color_Magnitude_file_dir(1) = 'png' + Color_Magnitude_file_prefix(1) = 'Color_magnitude1_' + Color_Magnitude_file_interval(1) = 5 ! output when `mod(model_number,Color_magnitude1_file_interval)==0` + Color_Magnitude_file_width(1) = -1 ! (inches) negative means use same value as for window + Color_Magnitude_file_aspect_ratio(1) = -1 ! negative means use same value as for window !### Color_magnitude2 - Color_magnitude2_win_flag = .true. + Color_Magnitude_win_flag(2) = .true. - Color_magnitude2_win_width = 15 - Color_magnitude2_win_aspect_ratio = 0.75 ! aspect_ratio = height/width + Color_Magnitude_win_width(2) = 15 + Color_Magnitude_win_aspect_ratio(2) = 0.75 ! aspect_ratio = height/width - Color_magnitude2_xleft = 0.15 - Color_magnitude2_xright = 0.85 - Color_magnitude2_ybot = 0.15 - Color_magnitude2_ytop = 0.85 - Color_magnitude2_txt_scale = 1.0 - Color_magnitude2_title = 'Color_magnitude2' + Color_Magnitude_xleft(2) = 0.15 + Color_Magnitude_xright(2) = 0.85 + Color_Magnitude_ybot(2) = 0.15 + Color_Magnitude_ytop(2) = 0.85 + Color_Magnitude_txt_scale(2) = 1.0 + Color_Magnitude_title(2) = 'Color_magnitude2' ! Plots xaxis1-xaxis2 leave xaxis2 blank if you only want to plot xaxis1. - Color_magnitude2_xaxis1_name = 'abs_mag_B' - Color_magnitude2_xaxis2_name = 'abs_mag_U' + Color_Magnitude_xaxis1_name(2) = 'abs_mag_B' + Color_Magnitude_xaxis2_name(2) = 'abs_mag_U' ! Plots yaxis1-yaxis2 leave yaxis2 blank if you only want to plot yaxis1. - Color_magnitude2_yaxis1_name(1) = 'abs_mag_R' - Color_magnitude2_yaxis2_name(1) = 'abs_mag_J' + Color_Magnitude_yaxis1_name(1)(2) = 'abs_mag_R' + Color_Magnitude_yaxis2_name(1)(2) = 'abs_mag_J' ! setup default - Color_magnitude2_num_panels = 1 + Color_Magnitude_num_panels(2) = 1 ! file output - Color_magnitude2_file_flag = .true. - Color_magnitude2_file_dir = 'png' - Color_magnitude2_file_prefix = 'Color_magnitude2_' - Color_magnitude2_file_interval = 5 ! output when `mod(model_number,Color_magnitude2_file_interval)==0` - Color_magnitude2_file_width = -1 ! (inches) negative means use same value as for window - Color_magnitude2_file_aspect_ratio = -1 ! negative means use same value as for window + Color_Magnitude_file_flag(2) = .true. + Color_Magnitude_file_dir(2) = 'png' + Color_Magnitude_file_prefix(2) = 'Color_magnitude2_' + Color_Magnitude_file_interval(2) = 5 ! output when `mod(model_number,Color_magnitude2_file_interval)==0` + Color_Magnitude_file_width(2) = -1 ! (inches) negative means use same value as for window + Color_Magnitude_file_aspect_ratio(2) = -1 ! negative means use same value as for window !### Color_magnitude3 - Color_magnitude3_win_flag = .true. + Color_Magnitude_win_flag(3) = .true. - Color_magnitude3_win_width = 15 - Color_magnitude3_win_aspect_ratio = 0.75 ! aspect_ratio = height/width + Color_Magnitude_win_width(3) = 15 + Color_Magnitude_win_aspect_ratio(3) = 0.75 ! aspect_ratio = height/width - Color_magnitude3_xleft = 0.15 - Color_magnitude3_xright = 0.85 - Color_magnitude3_ybot = 0.15 - Color_magnitude3_ytop = 0.85 - Color_magnitude3_txt_scale = 1.0 - Color_magnitude3_title = 'Color_magnitude3' + Color_Magnitude_xleft(3) = 0.15 + Color_Magnitude_xright(3) = 0.85 + Color_Magnitude_ybot(3) = 0.15 + Color_Magnitude_ytop(3) = 0.85 + Color_Magnitude_txt_scale(3) = 1.0 + Color_Magnitude_title(3) = 'Color_magnitude3' ! Plots xaxis1-xaxis2 leave xaxis2 blank if you only want to plot xaxis1. - Color_magnitude3_xaxis1_name = 'model_number' - Color_magnitude3_xaxis2_name = '' + Color_Magnitude_xaxis1_name(3) = 'model_number' + Color_Magnitude_xaxis2_name(3) = '' ! Plots yaxis1-yaxis2 leave yaxis2 blank if you only want to plot yaxis1. - Color_magnitude3_yaxis1_name(1) = 'bc_v_bb' + Color_Magnitude_yaxis1_name(1)(3) = 'bc_v_bb' - Color_magnitude3_other_yaxis1_name(1) = 'av_v' + Color_Magnitude_other_yaxis1_name(1)(3) = 'av_v' ! setup default - Color_magnitude3_num_panels = 1 + Color_Magnitude_num_panels(3) = 1 ! file output - Color_magnitude3_file_flag = .true. - Color_magnitude3_file_dir = 'png' - Color_magnitude3_file_prefix = 'Color_magnitude3_' - Color_magnitude3_file_interval = 5 ! output when `mod(model_number,Color_magnitude3_file_interval)==0` - Color_magnitude3_file_width = -1 ! (inches) negative means use same value as for window - Color_magnitude3_file_aspect_ratio = -1 ! negative means use same value as for window + Color_Magnitude_file_flag(3) = .true. + Color_Magnitude_file_dir(3) = 'png' + Color_Magnitude_file_prefix(3) = 'Color_magnitude3_' + Color_Magnitude_file_interval(3) = 5 ! output when `mod(model_number,Color_magnitude3_file_interval)==0` + Color_Magnitude_file_width(3) = -1 ! (inches) negative means use same value as for window + Color_Magnitude_file_aspect_ratio(3) = -1 ! negative means use same value as for window / ! end of pgstar namelist diff --git a/star/test_suite/custom_colors/inlist_1.0 b/star/test_suite/custom_colors/inlist_1.0 index d218364f8..14853f904 100644 --- a/star/test_suite/custom_colors/inlist_1.0 +++ b/star/test_suite/custom_colors/inlist_1.0 @@ -91,120 +91,120 @@ !### Color_magnitude1 - Color_magnitude1_win_flag = .true. + Color_Magnitude_win_flag(1) = .true. - Color_magnitude1_win_width = 6 - Color_magnitude1_win_aspect_ratio = 0.75 ! aspect_ratio = height/width + Color_Magnitude_win_width(1) = 6 + Color_Magnitude_win_aspect_ratio(1) = 0.75 ! aspect_ratio = height/width - Color_magnitude1_xleft = 0.15 - Color_magnitude1_xright = 0.85 - Color_magnitude1_ybot = 0.15 - Color_magnitude1_ytop = 0.85 - Color_magnitude1_txt_scale = 1.0 - Color_magnitude1_title = 'Color_magnitude1' + Color_Magnitude_xleft(1) = 0.15 + Color_Magnitude_xright(1) = 0.85 + Color_Magnitude_ybot(1) = 0.15 + Color_Magnitude_ytop(1) = 0.85 + Color_Magnitude_txt_scale(1) = 1.0 + Color_Magnitude_title(1) = 'Color_magnitude1' ! setup default - Color_magnitude1_num_panels = 2 + Color_Magnitude_num_panels(1) = 2 ! Plots xaxis1-xaxis2 leave xaxis2 blank if you only want to plot xaxis1. - Color_magnitude1_xaxis1_name = 'model_number' - Color_magnitude1_xaxis2_name = '' + Color_Magnitude_xaxis1_name(1) = 'model_number' + Color_Magnitude_xaxis2_name(1) = '' ! Plots yaxis1-yaxis2 leave yaxis2 blank if you only want to plot yaxis1. - Color_magnitude1_yaxis1_name(1) = 'bc_B' - Color_magnitude1_yaxis2_name(1) = 'bc_U' - Color_magnitude1_yaxis_reversed(1) = .false. + Color_Magnitude_yaxis1_name(1)(1) = 'bc_B' + Color_Magnitude_yaxis2_name(1)(1) = 'bc_U' + Color_Magnitude_yaxis_reversed(1)(1) = .false. ! Plots `other_yaxis1-other_yaxis2` leave `other_yaxis2` blank if you only want to plot `other_yaxis1`. - Color_magnitude1_other_yaxis1_name(1) = 'abs_mag_V' - Color_magnitude1_other_yaxis2_name(1) = '' - Color_magnitude1_other_yaxis_reversed(1) = .true. + Color_Magnitude_other_yaxis1_name(1)(1) = 'abs_mag_V' + Color_Magnitude_other_yaxis2_name(1)(1) = '' + Color_Magnitude_other_yaxis_reversed(1)(1) = .true. - Color_magnitude1_yaxis1_name(2) = 'bc_B' - Color_magnitude1_other_yaxis1_name(2) = 'bc_U' + Color_Magnitude_yaxis1_name(2)(1) = 'bc_B' + Color_Magnitude_other_yaxis1_name(2)(1) = 'bc_U' ! Enables calling a subroutine to add extra information to a plot ! see `$MESA_DIR/star/other/pgstar_decorator.f90` - Color_magnitude1_use_decorator = .true. + Color_Magnitude_use_decorator(1) = .true. ! file output - Color_magnitude1_file_flag = .false. - Color_magnitude1_file_dir = 'png' - Color_magnitude1_file_prefix = 'Color_magnitude1_' - Color_magnitude1_file_interval = 5 ! output when `mod(model_number,Color_magnitude1_file_interval)==0` - Color_magnitude1_file_width = -1 ! (inches) negative means use same value as for window - Color_magnitude1_file_aspect_ratio = -1 ! negative means use same value as for window + Color_Magnitude_file_flag(1) = .false. + Color_Magnitude_file_dir(1) = 'png' + Color_Magnitude_file_prefix(1) = 'Color_magnitude1_' + Color_Magnitude_file_interval(1) = 5 ! output when `mod(model_number,Color_magnitude1_file_interval)==0` + Color_Magnitude_file_width(1) = -1 ! (inches) negative means use same value as for window + Color_Magnitude_file_aspect_ratio(1) = -1 ! negative means use same value as for window !### Color_magnitude2 - Color_magnitude2_win_flag = .true. + Color_Magnitude_win_flag(2) = .true. - Color_magnitude2_win_width = 6 - Color_magnitude2_win_aspect_ratio = 0.75 ! aspect_ratio = height/width + Color_Magnitude_win_width(2) = 6 + Color_Magnitude_win_aspect_ratio(2) = 0.75 ! aspect_ratio = height/width - Color_magnitude2_xleft = 0.15 - Color_magnitude2_xright = 0.85 - Color_magnitude2_ybot = 0.15 - Color_magnitude2_ytop = 0.85 - Color_magnitude2_txt_scale = 1.0 - Color_magnitude2_title = 'Color_magnitude2' + Color_Magnitude_xleft(2) = 0.15 + Color_Magnitude_xright(2) = 0.85 + Color_Magnitude_ybot(2) = 0.15 + Color_Magnitude_ytop(2) = 0.85 + Color_Magnitude_txt_scale(2) = 1.0 + Color_Magnitude_title(2) = 'Color_magnitude2' ! Plots xaxis1-xaxis2 leave xaxis2 blank if you only want to plot xaxis1. - Color_magnitude2_xaxis1_name = 'abs_mag_B' - Color_magnitude2_xaxis2_name = 'abs_mag_U' + Color_Magnitude_xaxis1_name(2) = 'abs_mag_B' + Color_Magnitude_xaxis2_name(2) = 'abs_mag_U' ! Plots yaxis1-yaxis2 leave yaxis2 blank if you only want to plot yaxis1. - Color_magnitude2_yaxis1_name(1) = 'abs_mag_R' - Color_magnitude2_yaxis2_name(1) = 'abs_mag_J' + Color_Magnitude_yaxis1_name(1)(2) = 'abs_mag_R' + Color_Magnitude_yaxis2_name(1)(2) = 'abs_mag_J' ! setup default - Color_magnitude2_num_panels = 1 + Color_Magnitude_num_panels(2) = 1 ! file output - Color_magnitude2_file_flag = .false. - Color_magnitude2_file_dir = 'png' - Color_magnitude2_file_prefix = 'Color_magnitude2_' - Color_magnitude2_file_interval = 5 ! output when `mod(model_number,Color_magnitude2_file_interval)==0` - Color_magnitude2_file_width = -1 ! (inches) negative means use same value as for window - Color_magnitude2_file_aspect_ratio = -1 ! negative means use same value as for window + Color_Magnitude_file_flag(2) = .false. + Color_Magnitude_file_dir(2) = 'png' + Color_Magnitude_file_prefix(2) = 'Color_magnitude2_' + Color_Magnitude_file_interval(2) = 5 ! output when `mod(model_number,Color_magnitude2_file_interval)==0` + Color_Magnitude_file_width(2) = -1 ! (inches) negative means use same value as for window + Color_Magnitude_file_aspect_ratio(2) = -1 ! negative means use same value as for window !### Color_magnitude3 - Color_magnitude3_win_flag = .true. + Color_Magnitude_win_flag(3) = .true. - Color_magnitude3_win_width = 6 - Color_magnitude3_win_aspect_ratio = 0.75 ! aspect_ratio = height/width + Color_Magnitude_win_width(3) = 6 + Color_Magnitude_win_aspect_ratio(3) = 0.75 ! aspect_ratio = height/width - Color_magnitude3_xleft = 0.15 - Color_magnitude3_xright = 0.85 - Color_magnitude3_ybot = 0.15 - Color_magnitude3_ytop = 0.85 - Color_magnitude3_txt_scale = 1.0 - Color_magnitude3_title = 'Color_magnitude3' + Color_Magnitude_xleft(3) = 0.15 + Color_Magnitude_xright(3) = 0.85 + Color_Magnitude_ybot(3) = 0.15 + Color_Magnitude_ytop(3) = 0.85 + Color_Magnitude_txt_scale(3) = 1.0 + Color_Magnitude_title(3) = 'Color_magnitude3' ! Plots xaxis1-xaxis2 leave xaxis2 blank if you only want to plot xaxis1. - Color_magnitude3_xaxis1_name = 'model_number' - Color_magnitude3_xaxis2_name = '' + Color_Magnitude_xaxis1_name(3) = 'model_number' + Color_Magnitude_xaxis2_name(3) = '' ! Plots yaxis1-yaxis2 leave yaxis2 blank if you only want to plot yaxis1. - Color_magnitude3_yaxis1_name(1) = 'bc_v_bb' + Color_Magnitude_yaxis1_name(1)(3) = 'bc_v_bb' - Color_magnitude3_other_yaxis1_name(1) = 'av_v' + Color_Magnitude_other_yaxis1_name(1)(3) = 'av_v' ! setup default - Color_magnitude3_num_panels = 1 + Color_Magnitude_num_panels(3) = 1 ! file output - Color_magnitude3_file_flag = .false. - Color_magnitude3_file_dir = 'png' - Color_magnitude3_file_prefix = 'Color_magnitude3_' - Color_magnitude3_file_interval = 5 ! output when `mod(model_number,Color_magnitude3_file_interval)==0` - Color_magnitude3_file_width = -1 ! (inches) negative means use same value as for window - Color_magnitude3_file_aspect_ratio = -1 ! negative means use same value as for window + Color_Magnitude_file_flag(3) = .false. + Color_Magnitude_file_dir(3) = 'png' + Color_Magnitude_file_prefix(3) = 'Color_magnitude3_' + Color_Magnitude_file_interval(3) = 5 ! output when `mod(model_number,Color_magnitude3_file_interval)==0` + Color_Magnitude_file_width(3) = -1 ! (inches) negative means use same value as for window + Color_Magnitude_file_aspect_ratio(3) = -1 ! negative means use same value as for window diff --git a/star/test_suite/custom_colors/src/run_star_extras.f90 b/star/test_suite/custom_colors/src/run_star_extras.f90 index 9d9747386..07866018a 100644 --- a/star/test_suite/custom_colors/src/run_star_extras.f90 +++ b/star/test_suite/custom_colors/src/run_star_extras.f90 @@ -58,7 +58,7 @@ subroutine extras_controls(id, ierr) #ifdef USE_PGPLOT !Add custom decorator to pgplots - s% color_magnitude1_pgstar_decorator => col_mag1_decorator + s% Color_Magnitude_pgstar_decorator(1) => col_mag1_decorator #endif end subroutine extras_controls diff --git a/star/test_suite/diffusion_smoothness/inlist_diffusion_smoothness b/star/test_suite/diffusion_smoothness/inlist_diffusion_smoothness index b61943f0a..7751e0edb 100644 --- a/star/test_suite/diffusion_smoothness/inlist_diffusion_smoothness +++ b/star/test_suite/diffusion_smoothness/inlist_diffusion_smoothness @@ -128,27 +128,27 @@ pgstar_interval = 1 ! Brunt B profile - Profile_Panels1_win_flag = .true. - Profile_Panels1_win_width = 14 - Profile_Panels1_show_grid = .false - Profile_Panels1_title = 'diffusion_smoothness' - - Profile_Panels1_xaxis_name = 'zone' - Profile_Panels1_xmin = -101d0 - Profile_Panels1_xmax = -101d0 - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_show_mix_regions_on_xaxis = .true. - - Profile_Panels1_num_panels = 1 - Profile_Panels1_yaxis_name(1) = 'brunt_B' - Profile_Panels1_ymin(:) = -101d0 - Profile_Panels1_ymax(:) = -101d0 - Profile_Panels1_other_yaxis_name(1) = '' - - Profile_Panels1_file_flag = .true. - Profile_Panels1_file_dir = 'pgstar_out' - Profile_Panels1_file_prefix = 'brunt_' - Profile_Panels1_file_interval = 10000 - Profile_Panels1_file_width = 14 + Profile_Panels_win_flag(1) = .true. + Profile_Panels_win_width(1) = 14 + Profile_Panels_show_grid(1) = .false + Profile_Panels_title(1) = 'diffusion_smoothness' + + Profile_Panels_xaxis_name(1) = 'zone' + Profile_Panels_xmin(1) = -101d0 + Profile_Panels_xmax(1) = -101d0 + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_show_mix_regions_on_xaxis(1) = .true. + + Profile_Panels_num_panels(1) = 1 + Profile_Panels_yaxis_name(1,1) = 'brunt_B' + Profile_Panels_ymin(1,:) = -101d0 + Profile_Panels_ymax(1,:) = -101d0 + Profile_Panels_other_yaxis_name(1,1) = '' + + Profile_Panels_file_flag(1) = .true. + Profile_Panels_file_dir(1) = 'pgstar_out' + Profile_Panels_file_prefix(1) = 'brunt_' + Profile_Panels_file_interval(1) = 10000 + Profile_Panels_file_width(1) = 14 / ! end of pgstar namelist diff --git a/star/test_suite/extended_convective_penetration/inlist_extended_convective_penetration b/star/test_suite/extended_convective_penetration/inlist_extended_convective_penetration index 51eacb16f..20011a5aa 100644 --- a/star/test_suite/extended_convective_penetration/inlist_extended_convective_penetration +++ b/star/test_suite/extended_convective_penetration/inlist_extended_convective_penetration @@ -85,11 +85,11 @@ &pgstar - Grid4_win_flag = .true. + Grid_win_flag(4) = .true. Kipp_mass_max = 5 ! (Msun units) - Grid4_file_flag = .false. - Grid4_file_interval = 20 + Grid_file_flag(4) = .false. + Grid_file_interval(4) = 20 Mixing_win_flag = .true. Mixing_win_width = 9 diff --git a/star/test_suite/gyre_in_mesa_rsg/inlist_gyre_in_mesa_rsg b/star/test_suite/gyre_in_mesa_rsg/inlist_gyre_in_mesa_rsg index 94f640fff..560d910bd 100644 --- a/star/test_suite/gyre_in_mesa_rsg/inlist_gyre_in_mesa_rsg +++ b/star/test_suite/gyre_in_mesa_rsg/inlist_gyre_in_mesa_rsg @@ -74,76 +74,76 @@ !pause = .true. - Grid1_win_flag = .true. - Grid1_win_width = 9 - Grid1_win_aspect_ratio = 0.9 ! aspect_ratio = height/width + Grid_win_flag(1) = .true. + Grid_win_width(1) = 9 + Grid_win_aspect_ratio(1) = 0.9 ! aspect_ratio = height/width - Grid1_plot_pad_bot(4) = -0.05 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(4) = 0.2 ! multiply txt_scale for subplot by this + Grid_plot_pad_bot(1, 4) = -0.05 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 4) = 0.2 ! multiply txt_scale for subplot by this - Grid1_plot_name(2) = 'logL_Teff' + Grid_plot_name(1, 2) = 'logL_Teff' - !Grid7_title = '25 M\d\(2281)\u Piston Driven Shock' + !Grid_title(7) = '25 M\d\(2281)\u Piston Driven Shock' -!Grid7_win_flag = .true. - Grid7_win_width = 11 - Grid7_win_aspect_ratio = 0.7 ! aspect_ratio = height/width +!Grid_win_flag(7) = .true. + Grid_win_width(7) = 11 + Grid_win_aspect_ratio(7) = 0.7 ! aspect_ratio = height/width - Grid7_num_cols = 2 ! divide plotting region into this many equal width cols - Grid7_num_rows = 5 ! divide plotting region into this many equal height rows - Grid7_num_plots = 3 ! <= 10 + Grid_num_cols(7) = 2 ! divide plotting region into this many equal width cols + Grid_num_rows(7) = 5 ! divide plotting region into this many equal height rows + Grid_num_plots(7) = 3 ! <= 10 - Grid7_plot_name(1) = 'Profile_Panels1' - Grid7_plot_row(1) = 1 ! number from 1 at top - Grid7_plot_rowspan(1) = 4 ! plot spans this number of rows - Grid7_plot_col(1) = 1 ! number from 1 at left - Grid7_plot_colspan(1) = 1 ! plot spans this number of columns - Grid7_plot_pad_left(1) = 0.0 ! fraction of full window width for padding on left - Grid7_plot_pad_right(1) = 0.09 ! fraction of full window width for padding on right - Grid7_plot_pad_top(1) = 0.0 ! fraction of full window height for padding at top - Grid7_plot_pad_bot(1) = 0.06 ! fraction of full window height for padding at bottom - Grid7_txt_scale_factor(1) = 0.6 ! multiply txt_scale for subplot by this + Grid_plot_name(7, 1) = 'Profile_Panels1' + Grid_plot_row(7, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(7, 1) = 4 ! plot spans this number of rows + Grid_plot_col(7, 1) = 1 ! number from 1 at left + Grid_plot_colspan(7, 1) = 1 ! plot spans this number of columns + Grid_plot_pad_left(7, 1) = 0.0 ! fraction of full window width for padding on left + Grid_plot_pad_right(7, 1) = 0.09 ! fraction of full window width for padding on right + Grid_plot_pad_top(7, 1) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(7, 1) = 0.06 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(7, 1) = 0.6 ! multiply txt_scale for subplot by this - Grid7_plot_name(2) = 'Profile_Panels2' - Grid7_plot_row(2) = 1 ! number from 1 at top - Grid7_plot_rowspan(2) = 4 ! plot spans this number of rows - Grid7_plot_col(2) = 2 ! number from 1 at left - Grid7_plot_colspan(2) = 1 ! plot spans this number of columns - Grid7_plot_pad_left(2) = 0.05 ! fraction of full window width for padding on left - Grid7_plot_pad_right(2) = 0.04 ! fraction of full window width for padding on right - Grid7_plot_pad_top(2) = 0.0 ! fraction of full window height for padding at top - Grid7_plot_pad_bot(2) = 0.06 ! fraction of full window height for padding at bottom - Grid7_txt_scale_factor(2) = 0.6 ! multiply txt_scale for subplot by this + Grid_plot_name(7, 2) = 'Profile_Panels2' + Grid_plot_row(7, 2) = 1 ! number from 1 at top + Grid_plot_rowspan(7, 2) = 4 ! plot spans this number of rows + Grid_plot_col(7, 2) = 2 ! number from 1 at left + Grid_plot_colspan(7, 2) = 1 ! plot spans this number of columns + Grid_plot_pad_left(7, 2) = 0.05 ! fraction of full window width for padding on left + Grid_plot_pad_right(7, 2) = 0.04 ! fraction of full window width for padding on right + Grid_plot_pad_top(7, 2) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(7, 2) = 0.06 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(7, 2) = 0.6 ! multiply txt_scale for subplot by this - Grid7_plot_name(3) = 'Text_Summary1' - Grid7_plot_row(3) = 5 ! number from 1 at top - Grid7_plot_rowspan(3) = 1 ! plot spans this number of rows - Grid7_plot_col(3) = 1 ! number from 1 at left - Grid7_plot_colspan(3) = 2 ! plot spans this number of columns - Grid7_plot_pad_left(3) = -0.08 ! fraction of full window width for padding on left - Grid7_plot_pad_right(3) = -0.03 ! fraction of full window width for padding on right - Grid7_plot_pad_top(3) = 0.02 ! fraction of full window height for padding at top - Grid7_plot_pad_bot(3) = -0.05 ! fraction of full window height for padding at bottom - Grid7_txt_scale_factor(3) = 0.21 ! multiply txt_scale for subplot by this + Grid_plot_name(7, 3) = 'Text_Summary1' + Grid_plot_row(7, 3) = 5 ! number from 1 at top + Grid_plot_rowspan(7, 3) = 1 ! plot spans this number of rows + Grid_plot_col(7, 3) = 1 ! number from 1 at left + Grid_plot_colspan(7, 3) = 2 ! plot spans this number of columns + Grid_plot_pad_left(7, 3) = -0.08 ! fraction of full window width for padding on left + Grid_plot_pad_right(7, 3) = -0.03 ! fraction of full window width for padding on right + Grid_plot_pad_top(7, 3) = 0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(7, 3) = -0.05 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(7, 3) = 0.21 ! multiply txt_scale for subplot by this ! file output -!Grid7_file_flag = .true. - Grid7_file_dir = 'png' - Grid7_file_prefix = 'shock_' - Grid7_file_interval = 2 ! output when mod(model_number,Grid7_file_cnt)==0 +!Grid_file_flag(7) = .true. + Grid_file_dir(7) = 'png' + Grid_file_prefix(7) = 'shock_' + Grid_file_interval(7) = 2 ! output when mod(model_number,Grid7_file_cnt)==0 - Profile_Panels1_title = '' ! 'Shock Profiles' - Profile_Panels2_title = '' ! 'Abundances + Power' + Profile_Panels_title(1) = '' ! 'Shock Profiles' + Profile_Panels_title(2) = '' ! 'Abundances + Power' Profile_Panels_show_Mach_1_location = .true. @@ -153,93 +153,93 @@ Profile_Panels_xwidth_left_div_shock_value = 0.04 Profile_Panels_xwidth_right_div_shock_value = 0.04 - Profile_Panels1_xaxis_name = 'mass' ! 'logR_cm' ! -Profile_Panels1_xmin = -101d0 ! only used if /= -101d0 -Profile_Panels1_xmax = -101d0 ! only used if /= -101d0 -!Profile_Panels1_xmin = 3.99853 ! only used if /= -101d0 -!Profile_Panels1_xmax = 11 ! 3.99855 ! only used if /= -101d0 + Profile_Panels_xaxis_name(1) = 'mass' ! 'logR_cm' ! +Profile_Panels_xmin(1) = -101d0 ! only used if /= -101d0 +Profile_Panels_xmax(1) = -101d0 ! only used if /= -101d0 +!Profile_Panels_xmin(1) = 3.99853 ! only used if /= -101d0 +!Profile_Panels_xmax(1) = 11 ! 3.99855 ! only used if /= -101d0 - Profile_Panels1_num_panels = 3 + Profile_Panels_num_panels(1) = 3 - Profile_Panels1_yaxis_name(1) = 'logRho' - Profile_Panels1_ymin(1) = -101d0 ! -1.2 ! only used if /= -101d0 - Profile_Panels1_ymax(1) = -101d0 ! 3 ! only used if /= -101d0 - Profile_Panels1_ymargin(1) = 0.1 + Profile_Panels_yaxis_name(1, 1) = 'logRho' + Profile_Panels_ymin(1, 1) = -101d0 ! -1.2 ! only used if /= -101d0 + Profile_Panels_ymax(1, 1) = -101d0 ! 3 ! only used if /= -101d0 + Profile_Panels_ymargin(1, 1) = 0.1 - Profile_Panels1_other_yaxis_name(1) = 'entropy' ! 'entropy' - Profile_Panels1_other_ymin(1) = -101d0 ! -1e4 ! only used if /= -101d0 - Profile_Panels1_other_ymax(1) = -101d0 ! 2e4 ! only used if /= -101d0 - Profile_Panels1_other_ymargin(1) = 0.1 + Profile_Panels_other_yaxis_name(1, 1) = 'entropy' ! 'entropy' + Profile_Panels_other_ymin(1, 1) = -101d0 ! -1e4 ! only used if /= -101d0 + Profile_Panels_other_ymax(1, 1) = -101d0 ! 2e4 ! only used if /= -101d0 + Profile_Panels_other_ymargin(1, 1) = 0.1 - Profile_Panels1_yaxis_name(2) = 'logT' - Profile_Panels1_ymin(2) = -101d0 ! -1.2 ! only used if /= -101d0 - Profile_Panels1_ymax(2) = -101d0 ! 3 ! only used if /= -101d0 - Profile_Panels1_ymargin(2) = 0.1 + Profile_Panels_yaxis_name(1, 2) = 'logT' + Profile_Panels_ymin(1, 2) = -101d0 ! -1.2 ! only used if /= -101d0 + Profile_Panels_ymax(1, 2) = -101d0 ! 3 ! only used if /= -101d0 + Profile_Panels_ymargin(1, 2) = 0.1 - Profile_Panels1_other_yaxis_name(2) = 'eps_visc' ! 'total_energy' - Profile_Panels1_other_ymin(2) = -101d0 ! -1e4 ! only used if /= -101d0 - Profile_Panels1_other_ymax(2) = -101d0 ! 2e4 ! only used if /= -101d0 - Profile_Panels1_other_ymargin(2) = 0.1 + Profile_Panels_other_yaxis_name(1, 2) = 'eps_visc' ! 'total_energy' + Profile_Panels_other_ymin(1, 2) = -101d0 ! -1e4 ! only used if /= -101d0 + Profile_Panels_other_ymax(1, 2) = -101d0 ! 2e4 ! only used if /= -101d0 + Profile_Panels_other_ymargin(1, 2) = 0.1 - Profile_Panels1_yaxis_name(3) = 'v_div_csound' ! 'velocity' - Profile_Panels1_ymin(3) = -101d0 ! -1.2 ! only used if /= -101d0 - Profile_Panels1_ymax(3) = -101d0 ! 3 ! only used if /= -101d0 - Profile_Panels1_ymargin(3) = 0.1 + Profile_Panels_yaxis_name(1, 3) = 'v_div_csound' ! 'velocity' + Profile_Panels_ymin(1, 3) = -101d0 ! -1.2 ! only used if /= -101d0 + Profile_Panels_ymax(1, 3) = -101d0 ! 3 ! only used if /= -101d0 + Profile_Panels_ymargin(1, 3) = 0.1 - Profile_Panels1_other_yaxis_name(3) = 'dvdt_visc' - Profile_Panels1_other_ymin(3) = -101d0 ! -1e4 ! only used if /= -101d0 - Profile_Panels1_other_ymax(3) = -101d0 ! 2e4 ! only used if /= -101d0 - Profile_Panels1_other_ymargin(3) = 0.1 + Profile_Panels_other_yaxis_name(1, 3) = 'dvdt_visc' + Profile_Panels_other_ymin(1, 3) = -101d0 ! -1e4 ! only used if /= -101d0 + Profile_Panels_other_ymax(1, 3) = -101d0 ! 2e4 ! only used if /= -101d0 + Profile_Panels_other_ymargin(1, 3) = 0.1 - Profile_Panels2_xaxis_name = 'mass' ! 'logR_cm' ! 'mass' ! - Profile_Panels2_xaxis_reversed = .false. -Profile_Panels2_xmin = -101d0 ! only used if /= -101d0 -Profile_Panels2_xmax = -101d0 ! only used if /= -101d0 -!Profile_Panels2_xmin = 7 ! 3.9985 ! only used if /= -101d0 -!Profile_Panels2_xmax = 2.2 ! 3.9986 ! only used if /= -101d0 + Profile_Panels_xaxis_name(2) = 'mass' ! 'logR_cm' ! 'mass' ! + Profile_Panels_xaxis_reversed(2) = .false. +Profile_Panels_xmin(2) = -101d0 ! only used if /= -101d0 +Profile_Panels_xmax(2) = -101d0 ! only used if /= -101d0 +!Profile_Panels_xmin(2) = 7 ! 3.9985 ! only used if /= -101d0 +!Profile_Panels_xmax(2) = 2.2 ! 3.9986 ! only used if /= -101d0 - Profile_Panels2_num_panels = 4 + Profile_Panels_num_panels(2) = 4 - Profile_Panels2_yaxis_name(1) = 'Abundance' + Profile_Panels_yaxis_name(2, 1) = 'Abundance' - Profile_Panels2_yaxis_name(2) = 'Power' + Profile_Panels_yaxis_name(2, 2) = 'Power' - Profile_Panels2_yaxis_name(3) = 'Mixing' + Profile_Panels_yaxis_name(2, 3) = 'Mixing' Mixing_legend_txt_scale_factor = 1 - Profile_Panels2_yaxis_name(4) = 'velocity' ! 'zone' - Profile_Panels2_ymin(4) = -101d0 ! -1.2 ! only used if /= -101d0 - Profile_Panels2_ymax(4) = -101d0 ! 3 ! only used if /= -101d0 - Profile_Panels2_ymargin(4) = 0.1 + Profile_Panels_yaxis_name(2, 4) = 'velocity' ! 'zone' + Profile_Panels_ymin(2, 4) = -101d0 ! -1.2 ! only used if /= -101d0 + Profile_Panels_ymax(2, 4) = -101d0 ! 3 ! only used if /= -101d0 + Profile_Panels_ymargin(2, 4) = 0.1 - Profile_Panels2_other_yaxis_name(4) = 'logR_cm' ! 'mass' - Profile_Panels2_other_ymin(4) = -101d0 ! -1e4 ! only used if /= -101d0 - Profile_Panels2_other_ymax(4) = -101d0 ! 2e4 ! only used if /= -101d0 - Profile_Panels2_other_ymargin(4) = 0.1 + Profile_Panels_other_yaxis_name(2, 4) = 'logR_cm' ! 'mass' + Profile_Panels_other_ymin(2, 4) = -101d0 ! -1e4 ! only used if /= -101d0 + Profile_Panels_other_ymax(2, 4) = -101d0 ! 2e4 ! only used if /= -101d0 + Profile_Panels_other_ymargin(2, 4) = 0.1 Power_legend_max_cnt = 10 Power_legend_txt_scale_factor = 1.3 ! relative to other text Power_ymin = 6 ! only used if /= -101d0 -! Text_Summary1_name(2,1) = 'star_age_sec' -! Text_Summary1_name(3,1) = 'time_step_sec' -! Text_Summary1_name(7,1) = 'total_energy' +! Text_Summary_name(1, 2, 1) = 'star_age_sec' +! Text_Summary_name(1, 3, 1) = 'time_step_sec' +! Text_Summary_name(1, 7, 1) = 'total_energy' ! -! Text_Summary1_name(2,2) = 'max_v_E0' -! Text_Summary1_name(4,2) = 'o_core_mass' -! Text_Summary1_name(5,2) = 'v_center' -! Text_Summary1_name(6,2) = 'r_center' -! Text_Summary1_name(7,2) = 'dt_div_dt_Courant' -! Text_Summary1_name(8,2) = 'dt_div_dt_cell_collapse' +! Text_Summary_name(1, 2, 2) = 'max_v_E0' +! Text_Summary_name(1, 4, 2) = 'o_core_mass' +! Text_Summary_name(1, 5, 2) = 'v_center' +! Text_Summary_name(1, 6, 2) = 'r_center' +! Text_Summary_name(1, 7, 2) = 'dt_div_dt_Courant' +! Text_Summary_name(1, 8, 2) = 'dt_div_dt_cell_collapse' ! -! Text_Summary1_name(3,3) = 'max_abs_v_lgRho' -! Text_Summary1_name(4,3) = 'max_abs_v_lgT' -! Text_Summary1_name(5,3) = 'max_abs_v_velocity' -! Text_Summary1_name(6,3) = 'max_abs_v_v_div_cs' -! Text_Summary1_name(7,3) = 'max_abs_v_mass' -! Text_Summary1_name(8,3) = 'max_abs_v_radius' - - Grid2_win_flag = .false. +! Text_Summary_name(1, 3, 3) = 'max_abs_v_lgRho' +! Text_Summary_name(1, 4, 3) = 'max_abs_v_lgT' +! Text_Summary_name(1, 5, 3) = 'max_abs_v_velocity' +! Text_Summary_name(1, 6, 3) = 'max_abs_v_v_div_cs' +! Text_Summary_name(1, 7, 3) = 'max_abs_v_mass' +! Text_Summary_name(1, 8, 3) = 'max_abs_v_radius' + + Grid_win_flag(2) = .false. / ! end of pgstar namelist diff --git a/star/test_suite/gyre_in_mesa_wd/inlist_common b/star/test_suite/gyre_in_mesa_wd/inlist_common index 107b5302c..2bc3a5470 100644 --- a/star/test_suite/gyre_in_mesa_wd/inlist_common +++ b/star/test_suite/gyre_in_mesa_wd/inlist_common @@ -108,82 +108,82 @@ &pgstar - Grid2_win_flag = .true. - Grid2_win_width = 12 - Grid2_win_aspect_ratio = 0.8 ! aspect_ratio = height/width - !Grid2_plot_name(2) = 'Power' + Grid_win_flag(2) = .true. + Grid_win_width(2) = 12 + Grid_win_aspect_ratio(2) = 0.8 ! aspect_ratio = height/width + !Grid_plot_name(2, 2) = 'Power' !Power_xmin = 0.510 ! only used if /= -101d0 !Power_xmax = 0.590 ! only used if /= -101d0 - !Grid2_file_flag = .true. - Grid2_file_dir = 'png' - Grid2_file_prefix = 'wd_' - Grid2_file_interval = 5 ! output when mod(model_number,Grid2_file_interval)==0 - Grid2_file_width = -1 ! (inches) negative means use same value as for window - Grid2_file_aspect_ratio = -1 ! negative means use same value as for window - - - Grid2_num_plots = 5 ! <= 10 - - Grid2_plot_name(1) = 'TRho_Profile' - Grid2_plot_row(1) = 1 ! number from 1 at top - Grid2_plot_rowspan(1) = 3 ! plot spans this number of rows - Grid2_plot_col(1) = 1 ! number from 1 at left - Grid2_plot_colspan(1) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(1) = 0.0 ! fraction of full window width for padding on left - Grid2_plot_pad_right(1) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(1) = 0.0 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(1) = 0.1 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(1) = 0.7 ! multiply txt_scale for subplot by this - - Grid2_plot_name(2) = 'HR' - Grid2_plot_row(2) = 4 ! number from 1 at top - Grid2_plot_rowspan(2) = 3 ! plot spans this number of rows - Grid2_plot_col(2) = 1 ! number from 1 at left - Grid2_plot_colspan(2) = 1 ! plot spans this number of columns - Grid2_plot_pad_left(2) = 0.00 ! fraction of full window width for padding on left - Grid2_plot_pad_right(2) = 0.04 ! fraction of full window width for padding on right - Grid2_plot_pad_top(2) = 0.03 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(2) = 0.0 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(2) = 0.65 ! multiply txt_scale for subplot by this - - Grid2_plot_name(3) = 'TRho' - Grid2_plot_row(3) = 4 ! number from 1 at top - Grid2_plot_rowspan(3) = 3 ! plot spans this number of rows - Grid2_plot_col(3) = 2 ! number from 1 at left - Grid2_plot_colspan(3) = 1 ! plot spans this number of columns - Grid2_plot_pad_left(3) = 0.04 ! fraction of full window width for padding on left - Grid2_plot_pad_right(3) = 0.00 ! fraction of full window width for padding on right - Grid2_plot_pad_top(3) = 0.03 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(3) = 0.0 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(3) = 0.65 ! multiply txt_scale for subplot by this - - Grid2_plot_name(4) = 'Text_Summary1' - Grid2_plot_row(4) = 7 ! number from 1 at top - Grid2_plot_rowspan(4) = 2 ! plot spans this number of rows - Grid2_plot_col(4) = 1 ! number from 1 at left - Grid2_plot_colspan(4) = 4 ! plot spans this number of columns - Grid2_plot_pad_left(4) = -0.08 ! fraction of full window width for padding on left - Grid2_plot_pad_right(4) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(4) = 0.08 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(4) = -0.04 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(4) = 0.19 ! multiply txt_scale for subplot by this - - Grid2_plot_name(5) = 'Profile_Panels3' - Grid2_plot_row(5) = 1 ! number from 1 at top - Grid2_plot_rowspan(5) = 6 ! plot spans this number of rows - Grid2_plot_col(5) = 3 ! number from 1 at left - Grid2_plot_colspan(5) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(5) = 0.15 ! fraction of full window width for padding on left - Grid2_plot_pad_right(5) = 0.03 ! fraction of full window width for padding on right - Grid2_plot_pad_top(5) = 0.0 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(5) = 0.0 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(5) = 0.65 ! multiply txt_scale for subplot by this - - Profile_Panels3_xaxis_name = 'mass' - Profile_Panels3_xaxis_reversed = .false. + !Grid_file_flag(2) = .true. + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'wd_' + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 + Grid_file_width(2) = -1 ! (inches) negative means use same value as for window + Grid_file_aspect_ratio(2) = -1 ! negative means use same value as for window + + + Grid_num_plots(2) = 5 ! <= 10 + + Grid_plot_name(2, 1) = 'TRho_Profile' + Grid_plot_row(2, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 1) = 3 ! plot spans this number of rows + Grid_plot_col(2, 1) = 1 ! number from 1 at left + Grid_plot_colspan(2, 1) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 1) = 0.0 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 1) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 1) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 1) = 0.1 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 1) = 0.7 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 2) = 'HR' + Grid_plot_row(2, 2) = 4 ! number from 1 at top + Grid_plot_rowspan(2, 2) = 3 ! plot spans this number of rows + Grid_plot_col(2, 2) = 1 ! number from 1 at left + Grid_plot_colspan(2, 2) = 1 ! plot spans this number of columns + Grid_plot_pad_left(2, 2) = 0.00 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 2) = 0.04 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 2) = 0.03 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 2) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 2) = 0.65 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 3) = 'TRho' + Grid_plot_row(2, 3) = 4 ! number from 1 at top + Grid_plot_rowspan(2, 3) = 3 ! plot spans this number of rows + Grid_plot_col(2, 3) = 2 ! number from 1 at left + Grid_plot_colspan(2, 3) = 1 ! plot spans this number of columns + Grid_plot_pad_left(2, 3) = 0.04 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 3) = 0.00 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 3) = 0.03 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 3) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 3) = 0.65 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 4) = 'Text_Summary1' + Grid_plot_row(2, 4) = 7 ! number from 1 at top + Grid_plot_rowspan(2, 4) = 2 ! plot spans this number of rows + Grid_plot_col(2, 4) = 1 ! number from 1 at left + Grid_plot_colspan(2, 4) = 4 ! plot spans this number of columns + Grid_plot_pad_left(2, 4) = -0.08 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 4) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 4) = 0.08 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 4) = -0.04 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 4) = 0.19 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 5) = 'Profile_Panels3' + Grid_plot_row(2, 5) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 5) = 6 ! plot spans this number of rows + Grid_plot_col(2, 5) = 3 ! number from 1 at left + Grid_plot_colspan(2, 5) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 5) = 0.15 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 5) = 0.03 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 5) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 5) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 5) = 0.65 ! multiply txt_scale for subplot by this + + Profile_Panels_xaxis_name(3) = 'mass' + Profile_Panels_xaxis_reversed(3) = .false. - Profile_Panels3_xmin = -101d0 ! only used if /= -101d0 - Profile_Panels3_xmax = 2.2 ! -101d0 ! only used if /= -101d0 + Profile_Panels_xmin(3) = -101d0 ! only used if /= -101d0 + Profile_Panels_xmax(3) = 2.2 ! -101d0 ! only used if /= -101d0 / ! end of pgstar namelist diff --git a/star/test_suite/gyre_in_mesa_wd/inlist_pulse_wd b/star/test_suite/gyre_in_mesa_wd/inlist_pulse_wd index 2d54a4ee5..04a7540ed 100644 --- a/star/test_suite/gyre_in_mesa_wd/inlist_pulse_wd +++ b/star/test_suite/gyre_in_mesa_wd/inlist_pulse_wd @@ -109,9 +109,9 @@ show_HR_WD_instabilities = .true. - Profile_Panels3_xmin = -101d0 ! only used if /= -101d0 - Profile_Panels3_xmax = -101d0 ! only used if /= -101d0 + Profile_Panels_xmin(3) = -101d0 ! only used if /= -101d0 + Profile_Panels_xmax(3) = -101d0 ! only used if /= -101d0 - !Grid2_file_flag = .true. + !Grid_file_flag(2) = .true. / ! end of pgstar namelist diff --git a/star/test_suite/hb_2M/inlist_hb_2M b/star/test_suite/hb_2M/inlist_hb_2M index 47958ec4f..d31363c3f 100644 --- a/star/test_suite/hb_2M/inlist_hb_2M +++ b/star/test_suite/hb_2M/inlist_hb_2M @@ -101,52 +101,52 @@ / ! end of controls namelist &pgstar -History_Panels1_num_panels = 3 -History_Panels1_yaxis_name(1) = 'log_center_T' -History_Panels1_yaxis_reversed(1) = .false. -History_Panels1_dymin(1) = -1 -History_Panels1_other_yaxis_name(1) = 'log_center_Rho' -History_Panels1_other_yaxis_reversed(1) = .false. -History_Panels1_other_ymin(1) = -101d0 -History_Panels1_other_ymax(1) = -101d0 - -History_Panels1_yaxis_name(2) = 'log_L' -History_Panels1_yaxis_reversed(2) = .false. -History_Panels1_ymin(2) = -101d0 -History_Panels1_ymax(2) = -101d0 -History_Panels1_other_yaxis_name(2) = 'log_Teff' -History_Panels1_other_yaxis_reversed(2) = .false. -History_Panels1_other_ymin(2) = -101d0 -History_Panels1_other_ymax(2) = -101d0 - -History_Panels1_yaxis_name(3) = 'mass_conv_core_y050' -History_Panels1_yaxis_reversed(3) = .false. -History_Panels1_ymin(3) = 0 -History_Panels1_ymax(3) = 0.3 -History_Panels1_other_yaxis_name(3) = '' -History_Panels1_other_yaxis_reversed(3) = .false. -History_Panels1_other_ymin(3) = -101d0 -History_Panels1_other_ymax(3) = -101d0 - -History_Panels1_win_flag = .true. -History_Panels1_win_width = 12 -History_Panels1_win_aspect_ratio = 0.75 -History_Panels1_xleft = 0.15 -History_Panels1_xright = 0.85 -History_Panels1_ybot = 0.15 -History_Panels1_ytop = 0.85 -History_Panels1_txt_scale = 1.0 -History_Panels1_title = 'History_Panels1' -History_Panels1_xaxis_name = 'model_number' -History_Panels1_xmin = -101d0 -History_Panels1_xmax = -101d0 -History_Panels1_max_width = 1000 -History_Panels1_dxmin = -1 -History_Panels1_xaxis_reversed = .false. -History_Panels1_xaxis_log = .false. -History_Panels1_xmargin = 0.0 - -Grid6_win_flag = .true. -Grid6_win_width = 12 +History_Panels_num_panels(1) = 3 +History_Panels_yaxis_name(1, 1) = 'log_center_T' +History_Panels_yaxis_reversed(1, 1) = .false. +History_Panels_dymin(1, 1) = -1 +History_Panels_other_yaxis_name(1, 1) = 'log_center_Rho' +History_Panels_other_yaxis_reversed(1, 1) = .false. +History_Panels_other_ymin(1, 1) = -101d0 +History_Panels_other_ymax(1, 1) = -101d0 + +History_Panels_yaxis_name(1, 2) = 'log_L' +History_Panels_yaxis_reversed(1, 2) = .false. +History_Panels_ymin(1, 2) = -101d0 +History_Panels_ymax(1, 2) = -101d0 +History_Panels_other_yaxis_name(1, 2) = 'log_Teff' +History_Panels_other_yaxis_reversed(1, 2) = .false. +History_Panels_other_ymin(1, 2) = -101d0 +History_Panels_other_ymax(1, 2) = -101d0 + +History_Panels_yaxis_name(1, 3) = 'mass_conv_core_y050' +History_Panels_yaxis_reversed(1, 3) = .false. +History_Panels_ymin(1, 3) = 0 +History_Panels_ymax(1, 3) = 0.3 +History_Panels_other_yaxis_name(1, 3) = '' +History_Panels_other_yaxis_reversed(1, 3) = .false. +History_Panels_other_ymin(1, 3) = -101d0 +History_Panels_other_ymax(1, 3) = -101d0 + +History_Panels_win_flag(1) = .true. +History_Panels_win_width(1) = 12 +History_Panels_win_aspect_ratio(1) = 0.75 +History_Panels_xleft(1) = 0.15 +History_Panels_xright(1) = 0.85 +History_Panels_ybot(1) = 0.15 +History_Panels_ytop(1) = 0.85 +History_Panels_txt_scale(1) = 1.0 +History_Panels_title(1) = 'History_Panels1' +History_Panels_xaxis_name(1) = 'model_number' +History_Panels_xmin(1) = -101d0 +History_Panels_xmax(1) = -101d0 +History_Panels_max_width(1) = 1000 +History_Panels_dxmin(1) = -1 +History_Panels_xaxis_reversed(1) = .false. +History_Panels_xaxis_log(1) = .false. +History_Panels_xmargin(1) = 0.0 + +Grid_win_flag(6) = .true. +Grid_win_width(6) = 12 / diff --git a/star/test_suite/hb_2M/inlist_to_TAMS b/star/test_suite/hb_2M/inlist_to_TAMS index 3288935d0..3919731a6 100644 --- a/star/test_suite/hb_2M/inlist_to_TAMS +++ b/star/test_suite/hb_2M/inlist_to_TAMS @@ -87,10 +87,10 @@ &pgstar - !Grid2_win_flag = .true. + !Grid_win_flag(2) = .true. !file_digits = 7 - !Grid2_file_dir = 'png' - !Grid2_file_prefix = 'grid' + !Grid_file_dir(2) = 'png' + !Grid_file_prefix(2) = 'grid' !Abundance_xmax = 0.5 diff --git a/star/test_suite/high_rot_darkening/inlist_high_rot_darkening b/star/test_suite/high_rot_darkening/inlist_high_rot_darkening index c7b46bd0a..083111363 100644 --- a/star/test_suite/high_rot_darkening/inlist_high_rot_darkening +++ b/star/test_suite/high_rot_darkening/inlist_high_rot_darkening @@ -159,146 +159,146 @@ pgstar_left_yaxis_label_scale = 1.3 pgstar_right_yaxis_label_scale = 1.3 - !Grid1_win_flag = .true. - Grid1_win_width = 11 + !Grid_win_flag(1) = .true. + Grid_win_width(1) = 11 - Grid2_win_flag = .true. - !Grid2_win_flag = .false. + Grid_win_flag(2) = .true. + !Grid_win_flag(2) = .false. - Grid2_win_width = 15 - Grid2_win_aspect_ratio = 0.65 ! aspect_ratio = height/width + Grid_win_width(2) = 15 + Grid_win_aspect_ratio(2) = 0.65 ! aspect_ratio = height/width - Grid2_plot_name(4) = 'Mixing' + Grid_plot_name(2, 4) = 'Mixing' ! file output - !Grid2_file_flag = .true. - Grid2_file_dir = 'png1' - Grid2_file_prefix = 'grid_' - Grid2_file_interval = 1 ! output when mod(model_number,Grid2_file_interval)==0 - Grid2_file_width = -1 ! negative means use same value as for window - Grid2_file_aspect_ratio = -1 ! negative means use same value as for window + !Grid_file_flag(2) = .true. + Grid_file_dir(2) = 'png1' + Grid_file_prefix(2) = 'grid_' + Grid_file_interval(2) = 1 ! output when mod(model_number,Grid_file_interval(2))==0 + Grid_file_width(2) = -1 ! negative means use same value as for window + Grid_file_aspect_ratio(2) = -1 ! negative means use same value as for window - Grid2_num_cols = 7 ! divide plotting region into this many equal width cols - Grid2_num_rows = 8 ! divide plotting region into this many equal height rows + Grid_num_cols(2) = 7 ! divide plotting region into this many equal width cols + Grid_num_rows(2) = 8 ! divide plotting region into this many equal height rows - Grid2_num_plots = 6 ! <= 10 + Grid_num_plots(2) = 6 ! <= 10 - Grid2_plot_name(1) = 'TRho_Profile' - Grid2_plot_row(1) = 1 ! number from 1 at top - Grid2_plot_rowspan(1) = 3 ! plot spans this number of rows - Grid2_plot_col(1) = 1 ! number from 1 at left - Grid2_plot_colspan(1) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(1) = -0.05 ! fraction of full window width for padding on left - Grid2_plot_pad_right(1) = 0.01 ! fraction of full window width for padding on right - Grid2_plot_pad_top(1) = 0.00 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(1) = 0.05 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(1) = 0.65 ! multiply txt_scale for subplot by this - - - Grid2_plot_name(5) = 'Kipp' - Grid2_plot_row(5) = 4 ! number from 1 at top - Grid2_plot_rowspan(5) = 3 ! plot spans this number of rows - Grid2_plot_col(5) = 1 ! number from 1 at left - Grid2_plot_colspan(5) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(5) = -0.05 ! fraction of full window width for padding on left - Grid2_plot_pad_right(5) = 0.01 ! fraction of full window width for padding on right - Grid2_plot_pad_top(5) = 0.03 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(5) = 0.0 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(5) = 0.65 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 1) = 'TRho_Profile' + Grid_plot_row(2, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 1) = 3 ! plot spans this number of rows + Grid_plot_col(2, 1) = 1 ! number from 1 at left + Grid_plot_colspan(2, 1) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 1) = -0.05 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 1) = 0.01 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 1) = 0.00 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 1) = 0.05 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 1) = 0.65 ! multiply txt_scale for subplot by this + + + Grid_plot_name(2, 5) = 'Kipp' + Grid_plot_row(2, 5) = 4 ! number from 1 at top + Grid_plot_rowspan(2, 5) = 3 ! plot spans this number of rows + Grid_plot_col(2, 5) = 1 ! number from 1 at left + Grid_plot_colspan(2, 5) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 5) = -0.05 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 5) = 0.01 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 5) = 0.03 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 5) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 5) = 0.65 ! multiply txt_scale for subplot by this Kipp_title = '' Kipp_show_mass_boundaries = .false. - Grid2_plot_name(6) = 'HR' + Grid_plot_name(2, 6) = 'HR' HR_title = '' - Grid2_plot_row(6) = 6 ! number from 1 at top - Grid2_plot_rowspan(6) = 3 ! plot spans this number of rows - Grid2_plot_col(6) = 6 ! number from 1 at left - Grid2_plot_colspan(6) = 2 ! plot spans this number of columns - !Grid2_plot_pad_left(6) = 0.00 ! fraction of full window width for padding on left - !Grid2_plot_pad_right(6) = 0.05 ! fraction of full window width for padding on right - !Grid2_plot_pad_top(6) = 0.03 ! fraction of full window height for padding at top - !Grid2_plot_pad_bot(6) = 0.0 ! fraction of full window height for padding at bottom - !Grid2_txt_scale_factor(6) = 0.65 ! multiply txt_scale for subplot by this - - Grid2_plot_pad_left(6) = 0.05 ! fraction of full window width for padding on left - Grid2_plot_pad_right(6) = -0.01 ! fraction of full window width for padding on right - Grid2_plot_pad_top(6) = 0.0 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(6) = 0.0 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(6) = 0.65 ! multiply txt_scale for subplot by this - - History_Panels1_title = '' - History_Panels1_num_panels = 2 - - History_Panels1_xaxis_name='model_number' - History_Panels1_max_width = -1 ! only used if > 0. causes xmin to move with xmax. + Grid_plot_row(2, 6) = 6 ! number from 1 at top + Grid_plot_rowspan(2, 6) = 3 ! plot spans this number of rows + Grid_plot_col(2, 6) = 6 ! number from 1 at left + Grid_plot_colspan(2, 6) = 2 ! plot spans this number of columns + !Grid_plot_pad_left(2, 6) = 0.00 ! fraction of full window width for padding on left + !Grid_plot_pad_right(2, 6) = 0.05 ! fraction of full window width for padding on right + !Grid_plot_pad_top(2, 6) = 0.03 ! fraction of full window height for padding at top + !Grid_plot_pad_bot(2, 6) = 0.0 ! fraction of full window height for padding at bottom + !Grid_txt_scale_factor(2, 6) = 0.65 ! multiply txt_scale for subplot by this + + Grid_plot_pad_left(2, 6) = 0.05 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 6) = -0.01 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 6) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 6) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 6) = 0.65 ! multiply txt_scale for subplot by this + + History_Panels_title(1) = '' + History_Panels_num_panels(1) = 2 + + History_Panels_xaxis_name(1) ='model_number' + History_Panels_max_width(1) = -1 ! only used if > 0. causes xmin to move with xmax. - History_Panels1_yaxis_name(1) = 'log_center_T' - History_Panels1_yaxis_reversed(1) = .false. - History_Panels1_ymin(1) = -101d0 ! only used if /= -101d0 - History_Panels1_ymax(1) = -101d0 ! only used if /= -101d0 - History_Panels1_dymin(1) = 1 + History_Panels_yaxis_name(1, 1) = 'log_center_T' + History_Panels_yaxis_reversed(1, 1) = .false. + History_Panels_ymin(1, 1) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(1, 1) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(1, 1) = 1 - History_Panels1_other_yaxis_name(1) = 'log_center_Rho' - History_Panels1_other_yaxis_reversed(1) = .false. + History_Panels_other_yaxis_name(1, 1) = 'log_center_Rho' + History_Panels_other_yaxis_reversed(1, 1) = .false. - History_Panels1_yaxis_name(2) = 'log_Lnuc' - History_Panels1_yaxis_reversed(2) = .false. - History_Panels1_ymin(2) = 0d0 ! only used if /= -101d0 - History_Panels1_ymax(2) = 20d0 ! only used if /= -101d0 - History_Panels1_dymin(2) = 1 + History_Panels_yaxis_name(1, 2) = 'log_Lnuc' + History_Panels_yaxis_reversed(1, 2) = .false. + History_Panels_ymin(1, 2) = 0d0 ! only used if /= -101d0 + History_Panels_ymax(1, 2) = 20d0 ! only used if /= -101d0 + History_Panels_dymin(1, 2) = 1 - History_Panels1_other_yaxis_name(2) = 'log_Lneu' - History_Panels1_other_yaxis_reversed(2) = .false. - History_Panels1_other_ymin(2) = 0d0 ! only used if /= -101d0 - History_Panels1_other_ymax(2) = 20d0 ! only used if /= -101d0 - History_Panels1_other_dymin(2) = 1 + History_Panels_other_yaxis_name(1, 2) = 'log_Lneu' + History_Panels_other_yaxis_reversed(1, 2) = .false. + History_Panels_other_ymin(1, 2) = 0d0 ! only used if /= -101d0 + History_Panels_other_ymax(1, 2) = 20d0 ! only used if /= -101d0 + History_Panels_other_dymin(1, 2) = 1 - Grid2_plot_name(2) = 'Text_Summary1' - Grid2_plot_row(2) = 7 ! number from 1 at top - Grid2_plot_rowspan(2) = 2 ! plot spans this number of rows - Grid2_plot_col(2) = 1 ! number from 1 at left - Grid2_plot_colspan(2) = 4 ! plot spans this number of columns - Grid2_plot_pad_left(2) = -0.08 ! fraction of full window width for padding on left - Grid2_plot_pad_right(2) = -0.10 ! fraction of full window width for padding on right - Grid2_plot_pad_top(2) = 0.08 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(2) = -0.04 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(2) = 0.19 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 2) = 'Text_Summary1' + Grid_plot_row(2, 2) = 7 ! number from 1 at top + Grid_plot_rowspan(2, 2) = 2 ! plot spans this number of rows + Grid_plot_col(2, 2) = 1 ! number from 1 at left + Grid_plot_colspan(2, 2) = 4 ! plot spans this number of columns + Grid_plot_pad_left(2, 2) = -0.08 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 2) = -0.10 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 2) = 0.08 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 2) = -0.04 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 2) = 0.19 ! multiply txt_scale for subplot by this - Grid2_plot_name(3) = 'Profile_Panels3' - Profile_Panels3_title = 'Abundance-Power-Mixing' - Profile_Panels3_num_panels = 3 - Profile_Panels3_yaxis_name(1) = 'Abundance' - Profile_Panels3_yaxis_name(2) = 'Power' - Profile_Panels3_yaxis_name(3) = 'Mixing' + Grid_plot_name(2, 3) = 'Profile_Panels3' + Profile_Panels_title(3) = 'Abundance-Power-Mixing' + Profile_Panels_num_panels(3) = 3 + Profile_Panels_yaxis_name(3, 1) = 'Abundance' + Profile_Panels_yaxis_name(3, 2) = 'Power' + Profile_Panels_yaxis_name(3, 3) = 'Mixing' - Profile_Panels3_xaxis_name = 'mass' - Profile_Panels3_xaxis_reversed = .false. - !Profile_Panels3_xmin = 400d0 ! only used if /= -101d0 - !Profile_Panels3_xmax = 600d0 ! 10 ! only used if /= -101d0 + Profile_Panels_xaxis_name(3) = 'mass' + Profile_Panels_xaxis_reversed(3) = .false. + !Profile_Panels_xmin(3) = 400d0 ! only used if /= -101d0 + !Profile_Panels_xmax(3) = 600d0 ! 10 ! only used if /= -101d0 - Grid2_plot_row(3) = 1 ! number from 1 at top - Grid2_plot_rowspan(3) = 6 ! plot spans this number of rows - Grid2_plot_col(3) = 3 ! plot spans this number of columns - Grid2_plot_colspan(3) = 3 ! plot spans this number of columns + Grid_plot_row(2, 3) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 3) = 6 ! plot spans this number of rows + Grid_plot_col(2, 3) = 3 ! plot spans this number of columns + Grid_plot_colspan(2, 3) = 3 ! plot spans this number of columns - Grid2_plot_pad_left(3) = 0.09 ! fraction of full window width for padding on left - Grid2_plot_pad_right(3) = 0.07 ! fraction of full window width for padding on right - Grid2_plot_pad_top(3) = 0.0 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(3) = 0.0 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(3) = 0.65 ! multiply txt_scale for subplot by this - - Grid2_plot_name(4) = 'Profile_Panels1' - Grid2_plot_row(4) = 1 ! number from 1 at top - Grid2_plot_rowspan(4) = 5 ! plot spans this number of rows - Grid2_plot_col(4) = 6 ! number from 1 at left - Grid2_plot_colspan(4) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(4) = 0.05 ! fraction of full window width for padding on left - Grid2_plot_pad_right(4) = 0.03 ! fraction of full window width for padding on right - Grid2_plot_pad_top(4) = 0.0 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(4) = 0.07 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(4) = 0.65 ! multiply txt_scale for subplot by this + Grid_plot_pad_left(2, 3) = 0.09 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 3) = 0.07 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 3) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 3) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 3) = 0.65 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 4) = 'Profile_Panels1' + Grid_plot_row(2, 4) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 4) = 5 ! plot spans this number of rows + Grid_plot_col(2, 4) = 6 ! number from 1 at left + Grid_plot_colspan(2, 4) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 4) = 0.05 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 4) = 0.03 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 4) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 4) = 0.07 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 4) = 0.65 ! multiply txt_scale for subplot by this Abundance_line_txt_scale_factor = 1.1 ! relative to other text @@ -306,24 +306,24 @@ Abundance_legend_max_cnt = 0 Abundance_log_mass_frac_min = -3.5 ! only used if < 0 - Profile_Panels1_title = '' + Profile_Panels_title(1) = '' - Profile_Panels1_xaxis_name = 'logT' + Profile_Panels_xaxis_name(1) = 'logT' - Profile_Panels1_num_panels = 3 + Profile_Panels_num_panels(1) = 3 - Profile_Panels1_yaxis_name(1) = 'fp_rot' - Profile_Panels1_other_yaxis_name(1) = 'ft_rot' - !Profile_Panels1_other_ymin(1) = -10d0 ! only used if /= -101d0 + Profile_Panels_yaxis_name(1, 1) = 'fp_rot' + Profile_Panels_other_yaxis_name(1, 1) = 'ft_rot' + !Profile_Panels_other_ymin(1, 1) = -10d0 ! only used if /= -101d0 - Profile_Panels1_yaxis_name(2) = 'w_div_w_crit_roche' - Profile_Panels1_other_yaxis_name(2) = 'omega' ! 'vel_km_per_s' + Profile_Panels_yaxis_name(1, 2) = 'w_div_w_crit_roche' + Profile_Panels_other_yaxis_name(1, 2) = 'omega' ! 'vel_km_per_s' - Profile_Panels1_yaxis_name(3) = 'luminosity' - Profile_Panels1_other_yaxis_name(3) = 'logRho' ! 'mass' - !Profile_Panels1_yaxis_log(3) = .true. - !Profile_Panels1_other_yaxis_log(3) = .true. - !Profile_Panels1_other_ymin(3) = -10d0 ! only used if /= -101d0 + Profile_Panels_yaxis_name(1, 3) = 'luminosity' + Profile_Panels_other_yaxis_name(1, 3) = 'logRho' ! 'mass' + !Profile_Panels_yaxis_log(1, 3) = .true. + !Profile_Panels_other_yaxis_log(1, 3) = .true. + !Profile_Panels_other_ymin(1, 3) = -10d0 ! only used if /= -101d0 show_TRho_Profile_kap_regions = .false. show_TRho_Profile_gamma1_4_3rd = .true. @@ -332,12 +332,12 @@ TRho_Profile_ymin = 3 !TRho_Profile_ymax = 10 - Grid2_file_flag = .true. - Grid2_file_dir = 'png1' - Grid2_file_prefix = 'grid_' - Grid2_file_interval = 1 ! 1 ! output when mod(model_number,Grid2_file_interval)==0 - Grid2_file_width = -1 ! negative means use same value as for window - Grid2_file_aspect_ratio = -1 ! negative means use same value as for window + Grid_file_flag(2) = .true. + Grid_file_dir(2) = 'png1' + Grid_file_prefix(2) = 'grid_' + Grid_file_interval(2) = 1 ! 1 ! output when mod(model_number,Grid_file_interval(2))==0 + Grid_file_width(2) = -1 ! negative means use same value as for window + Grid_file_aspect_ratio(2) = -1 ! negative means use same value as for window !show_TRho_Profile_eos_regions = .true. diff --git a/star/test_suite/hse_riemann/README.rst b/star/test_suite/hse_riemann/README.rst index 9dbc1d90b..005e3a2d4 100644 --- a/star/test_suite/hse_riemann/README.rst +++ b/star/test_suite/hse_riemann/README.rst @@ -34,42 +34,42 @@ pgstar commands used for the plots that ake the movie above: pgstar_interval = 2 - Profile_Panels1_win_flag = .true. - Profile_Panels1_win_width = 12 - Profile_Panels1_win_aspect_ratio = 1.0 + Profile_Panels_win_flag(1) = .true. + Profile_Panels_win_width(1) = 12 + Profile_Panels_win_aspect_ratio(1) = 1.0 - Profile_Panels1_xaxis_name = 'logR_cm' - Profile_Panels1_xmin = -101d0 - Profile_Panels1_xmax = -101d0 + Profile_Panels_xaxis_name(1) = 'logR_cm' + Profile_Panels_xmin(1) = -101d0 + Profile_Panels_xmax(1) = -101d0 - Profile_Panels1_num_panels = 3 + Profile_Panels_num_panels(1) = 3 - Profile_Panels1_yaxis_name(1) = 'logRho' - Profile_Panels1_ymin(1) = -101d0 - Profile_Panels1_ymax(1) = -101d0 - Profile_Panels1_ymargin(1) = 0.1 + Profile_Panels_yaxis_name(1, 1) = 'logRho' + Profile_Panels_ymin(1, 1) = -101d0 + Profile_Panels_ymax(1, 1) = -101d0 + Profile_Panels_ymargin(1, 1) = 0.1 - Profile_Panels1_other_yaxis_name(1) = 'entropy' - Profile_Panels1_other_ymin(1) = -101d0 - Profile_Panels1_other_ymax(1) = -101d0 - Profile_Panels1_other_ymargin(1) = 0.1 + Profile_Panels_other_yaxis_name(1, 1) = 'entropy' + Profile_Panels_other_ymin(1, 1) = -101d0 + Profile_Panels_other_ymax(1, 1) = -101d0 + Profile_Panels_other_ymargin(1, 1) = 0.1 - Profile_Panels1_yaxis_name(2) = 'logT' - Profile_Panels1_ymin(2) = -101d0 - Profile_Panels1_ymax(2) = -101d0 - Profile_Panels1_ymargin(2) = 0.1 + Profile_Panels_yaxis_name(1, 2) = 'logT' + Profile_Panels_ymin(1, 2) = -101d0 + Profile_Panels_ymax(1, 2) = -101d0 + Profile_Panels_ymargin(1, 2) = 0.1 - Profile_Panels1_yaxis_name(3) = 'v_div_csound' - Profile_Panels1_ymin(3) = -0.06 - Profile_Panels1_ymax(3) = 0.06 - Profile_Panels1_ymargin(3) = 0.1 - - Profile_Panels1_file_flag = .true. - Profile_Panels1_file_dir = 'pgstar_out' - Profile_Panels1_file_prefix = 'profile1_' - Profile_Panels1_file_interval = 5 ! output when mod(model_number,file_interval)==0 - Profile_Panels1_file_width = -1 ! (inches) negative means use same value as for window - Profile_Panels1_file_aspect_ratio = -1 ! negative means use same value as for window + Profile_Panels_yaxis_name(1, 3) = 'v_div_csound' + Profile_Panels_ymin(1, 3) = -0.06 + Profile_Panels_ymax(1, 3) = 0.06 + Profile_Panels_ymargin(1, 3) = 0.1 + + Profile_Panels_file_flag(1) = .true. + Profile_Panels_file_dir(1) = 'pgstar_out' + Profile_Panels_file_prefix(1) = 'profile1_' + Profile_Panels_file_interval(1) = 5 ! output when mod(model_number,file_interval)==0 + Profile_Panels_file_width(1) = -1 ! (inches) negative means use same value as for window + Profile_Panels_file_aspect_ratio(1) = -1 ! negative means use same value as for window / ! end of pgstar namelist diff --git a/star/test_suite/hse_riemann/inlist_finish b/star/test_suite/hse_riemann/inlist_finish index 9961cdde1..03a37141c 100644 --- a/star/test_suite/hse_riemann/inlist_finish +++ b/star/test_suite/hse_riemann/inlist_finish @@ -135,75 +135,75 @@ !pause = .true. - Grid1_win_flag = .true. - Grid1_win_width = 9 - Grid1_win_aspect_ratio = 0.9 ! aspect_ratio = height/width + Grid_win_flag(1) = .true. + Grid_win_width(1) = 9 + Grid_win_aspect_ratio(1) = 0.9 ! aspect_ratio = height/width - Grid1_plot_pad_bot(4) = -0.05 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(4) = 0.2 ! multiply txt_scale for subplot by this + Grid_plot_pad_bot(1, 4) = -0.05 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 4) = 0.2 ! multiply txt_scale for subplot by this - !Grid7_title = '25 M\d\(2281)\u Piston Driven Shock' + !Grid_title(7) = '25 M\d\(2281)\u Piston Driven Shock' -!Grid7_win_flag = .true. - Grid7_win_width = 11 - Grid7_win_aspect_ratio = 0.7 ! aspect_ratio = height/width +!Grid_win_flag(7) = .true. + Grid_win_width(7) = 11 + Grid_win_aspect_ratio(7) = 0.7 ! aspect_ratio = height/width - Grid7_num_cols = 2 ! divide plotting region into this many equal width cols - Grid7_num_rows = 5 ! divide plotting region into this many equal height rows - Grid7_num_plots = 3 ! <= 10 + Grid_num_cols(7) = 2 ! divide plotting region into this many equal width cols + Grid_num_rows(7) = 5 ! divide plotting region into this many equal height rows + Grid_num_plots(7) = 3 ! <= 10 - Grid7_plot_name(1) = 'Profile_Panels1' - Grid7_plot_row(1) = 1 ! number from 1 at top - Grid7_plot_rowspan(1) = 4 ! plot spans this number of rows - Grid7_plot_col(1) = 1 ! number from 1 at left - Grid7_plot_colspan(1) = 1 ! plot spans this number of columns - Grid7_plot_pad_left(1) = 0.0 ! fraction of full window width for padding on left - Grid7_plot_pad_right(1) = 0.09 ! fraction of full window width for padding on right - Grid7_plot_pad_top(1) = 0.0 ! fraction of full window height for padding at top - Grid7_plot_pad_bot(1) = 0.06 ! fraction of full window height for padding at bottom - Grid7_txt_scale_factor(1) = 0.6 ! multiply txt_scale for subplot by this + Grid_plot_name(7, 1) = 'Profile_Panels1' + Grid_plot_row(7, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(7, 1) = 4 ! plot spans this number of rows + Grid_plot_col(7, 1) = 1 ! number from 1 at left + Grid_plot_colspan(7, 1) = 1 ! plot spans this number of columns + Grid_plot_pad_left(7, 1) = 0.0 ! fraction of full window width for padding on left + Grid_plot_pad_right(7, 1) = 0.09 ! fraction of full window width for padding on right + Grid_plot_pad_top(7, 1) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(7, 1) = 0.06 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(7, 1) = 0.6 ! multiply txt_scale for subplot by this - Grid7_plot_name(2) = 'Profile_Panels2' - Grid7_plot_row(2) = 1 ! number from 1 at top - Grid7_plot_rowspan(2) = 4 ! plot spans this number of rows - Grid7_plot_col(2) = 2 ! number from 1 at left - Grid7_plot_colspan(2) = 1 ! plot spans this number of columns - Grid7_plot_pad_left(2) = 0.05 ! fraction of full window width for padding on left - Grid7_plot_pad_right(2) = 0.04 ! fraction of full window width for padding on right - Grid7_plot_pad_top(2) = 0.0 ! fraction of full window height for padding at top - Grid7_plot_pad_bot(2) = 0.06 ! fraction of full window height for padding at bottom - Grid7_txt_scale_factor(2) = 0.6 ! multiply txt_scale for subplot by this + Grid_plot_name(7, 2) = 'Profile_Panels2' + Grid_plot_row(7, 2) = 1 ! number from 1 at top + Grid_plot_rowspan(7, 2) = 4 ! plot spans this number of rows + Grid_plot_col(7, 2) = 2 ! number from 1 at left + Grid_plot_colspan(7, 2) = 1 ! plot spans this number of columns + Grid_plot_pad_left(7, 2) = 0.05 ! fraction of full window width for padding on left + Grid_plot_pad_right(7, 2) = 0.04 ! fraction of full window width for padding on right + Grid_plot_pad_top(7, 2) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(7, 2) = 0.06 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(7, 2) = 0.6 ! multiply txt_scale for subplot by this - Grid7_plot_name(3) = 'Text_Summary1' - Grid7_plot_row(3) = 5 ! number from 1 at top - Grid7_plot_rowspan(3) = 1 ! plot spans this number of rows - Grid7_plot_col(3) = 1 ! number from 1 at left - Grid7_plot_colspan(3) = 2 ! plot spans this number of columns - Grid7_plot_pad_left(3) = -0.08 ! fraction of full window width for padding on left - Grid7_plot_pad_right(3) = -0.03 ! fraction of full window width for padding on right - Grid7_plot_pad_top(3) = 0.02 ! fraction of full window height for padding at top - Grid7_plot_pad_bot(3) = -0.05 ! fraction of full window height for padding at bottom - Grid7_txt_scale_factor(3) = 0.21 ! multiply txt_scale for subplot by this + Grid_plot_name(7, 3) = 'Text_Summary1' + Grid_plot_row(7, 3) = 5 ! number from 1 at top + Grid_plot_rowspan(7, 3) = 1 ! plot spans this number of rows + Grid_plot_col(7, 3) = 1 ! number from 1 at left + Grid_plot_colspan(7, 3) = 2 ! plot spans this number of columns + Grid_plot_pad_left(7, 3) = -0.08 ! fraction of full window width for padding on left + Grid_plot_pad_right(7, 3) = -0.03 ! fraction of full window width for padding on right + Grid_plot_pad_top(7, 3) = 0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(7, 3) = -0.05 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(7, 3) = 0.21 ! multiply txt_scale for subplot by this ! file output -!Grid7_file_flag = .true. - Grid7_file_dir = 'png' - Grid7_file_prefix = 'shock_' - Grid7_file_cnt = 2 ! output when mod(model_number,Grid7_file_cnt)==0 +!Grid_file_flag(7) = .true. + Grid_file_dir(7) = 'png' + Grid_file_prefix(7) = 'shock_' + Grid_file_cnt(7) = 2 ! output when mod(model_number,Grid7_file_cnt)==0 - Profile_Panels1_title = '' ! 'Shock Profiles' - Profile_Panels2_title = '' ! 'Abundances + Power' + Profile_Panels_title(1) = '' ! 'Shock Profiles' + Profile_Panels_title(2) = '' ! 'Abundances + Power' Profile_Panels_show_Mach_1_location = .true. @@ -213,94 +213,94 @@ Profile_Panels_xwidth_left_div_shock_value = 0.04 Profile_Panels_xwidth_right_div_shock_value = 0.04 - Profile_Panels1_xaxis_name = 'mass' ! 'logR_cm' ! -Profile_Panels1_xmin = -101d0 ! only used if /= -101d0 -Profile_Panels1_xmax = -101d0 ! only used if /= -101d0 -!Profile_Panels1_xmin = 3.99853 ! only used if /= -101d0 -!Profile_Panels1_xmax = 11 ! 3.99855 ! only used if /= -101d0 + Profile_Panels_xaxis_name(1) = 'mass' ! 'logR_cm' ! +Profile_Panels_xmin(1) = -101d0 ! only used if /= -101d0 +Profile_Panels_xmax(1) = -101d0 ! only used if /= -101d0 +!Profile_Panels_xmin(1) = 3.99853 ! only used if /= -101d0 +!Profile_Panels_xmax(1) = 11 ! 3.99855 ! only used if /= -101d0 - Profile_Panels1_num_panels = 3 + Profile_Panels_num_panels(1) = 3 - Profile_Panels1_yaxis_name(1) = 'logRho' - Profile_Panels1_ymin(1) = -101d0 ! -1.2 ! only used if /= -101d0 - Profile_Panels1_ymax(1) = -101d0 ! 3 ! only used if /= -101d0 - Profile_Panels1_ymargin(1) = 0.1 + Profile_Panels_yaxis_name(1, 1) = 'logRho' + Profile_Panels_ymin(1, 1) = -101d0 ! -1.2 ! only used if /= -101d0 + Profile_Panels_ymax(1, 1) = -101d0 ! 3 ! only used if /= -101d0 + Profile_Panels_ymargin(1, 1) = 0.1 - Profile_Panels1_other_yaxis_name(1) = 'entropy' ! 'entropy' - Profile_Panels1_other_ymin(1) = -101d0 ! -1e4 ! only used if /= -101d0 - Profile_Panels1_other_ymax(1) = -101d0 ! 2e4 ! only used if /= -101d0 - Profile_Panels1_other_ymargin(1) = 0.1 + Profile_Panels_other_yaxis_name(1, 1) = 'entropy' ! 'entropy' + Profile_Panels_other_ymin(1, 1) = -101d0 ! -1e4 ! only used if /= -101d0 + Profile_Panels_other_ymax(1, 1) = -101d0 ! 2e4 ! only used if /= -101d0 + Profile_Panels_other_ymargin(1, 1) = 0.1 - Profile_Panels1_yaxis_name(2) = 'logT' - Profile_Panels1_ymin(2) = -101d0 ! -1.2 ! only used if /= -101d0 - Profile_Panels1_ymax(2) = -101d0 ! 3 ! only used if /= -101d0 - Profile_Panels1_ymargin(2) = 0.1 + Profile_Panels_yaxis_name(1, 2) = 'logT' + Profile_Panels_ymin(1, 2) = -101d0 ! -1.2 ! only used if /= -101d0 + Profile_Panels_ymax(1, 2) = -101d0 ! 3 ! only used if /= -101d0 + Profile_Panels_ymargin(1, 2) = 0.1 - Profile_Panels1_other_yaxis_name(2) = 'eps_visc' ! 'total_energy' - Profile_Panels1_other_ymin(2) = -101d0 ! -1e4 ! only used if /= -101d0 - Profile_Panels1_other_ymax(2) = -101d0 ! 2e4 ! only used if /= -101d0 - Profile_Panels1_other_ymargin(2) = 0.1 + Profile_Panels_other_yaxis_name(1, 2) = 'eps_visc' ! 'total_energy' + Profile_Panels_other_ymin(1, 2) = -101d0 ! -1e4 ! only used if /= -101d0 + Profile_Panels_other_ymax(1, 2) = -101d0 ! 2e4 ! only used if /= -101d0 + Profile_Panels_other_ymargin(1, 2) = 0.1 - Profile_Panels1_yaxis_name(3) = 'v_div_csound' ! 'velocity' - Profile_Panels1_ymin(3) = -101d0 ! -1.2 ! only used if /= -101d0 - Profile_Panels1_ymax(3) = -101d0 ! 3 ! only used if /= -101d0 - Profile_Panels1_ymargin(3) = 0.1 + Profile_Panels_yaxis_name(1, 3) = 'v_div_csound' ! 'velocity' + Profile_Panels_ymin(1, 3) = -101d0 ! -1.2 ! only used if /= -101d0 + Profile_Panels_ymax(1, 3) = -101d0 ! 3 ! only used if /= -101d0 + Profile_Panels_ymargin(1, 3) = 0.1 - Profile_Panels1_other_yaxis_name(3) = 'dvdt_visc' - Profile_Panels1_other_ymin(3) = -101d0 ! -1e4 ! only used if /= -101d0 - Profile_Panels1_other_ymax(3) = -101d0 ! 2e4 ! only used if /= -101d0 - Profile_Panels1_other_ymargin(3) = 0.1 + Profile_Panels_other_yaxis_name(1, 3) = 'dvdt_visc' + Profile_Panels_other_ymin(1, 3) = -101d0 ! -1e4 ! only used if /= -101d0 + Profile_Panels_other_ymax(1, 3) = -101d0 ! 2e4 ! only used if /= -101d0 + Profile_Panels_other_ymargin(1, 3) = 0.1 - Profile_Panels2_xaxis_name = 'mass' ! 'logR_cm' ! 'mass' ! - Profile_Panels2_xaxis_reversed = .false. -Profile_Panels2_xmin = -101d0 ! only used if /= -101d0 -Profile_Panels2_xmax = -101d0 ! only used if /= -101d0 -!Profile_Panels2_xmin = 7 ! 3.9985 ! only used if /= -101d0 -!Profile_Panels2_xmax = 2.2 ! 3.9986 ! only used if /= -101d0 + Profile_Panels_xaxis_name(2) = 'mass' ! 'logR_cm' ! 'mass' ! + Profile_Panels_xaxis_reversed(2) = .false. +Profile_Panels_xmin(2) = -101d0 ! only used if /= -101d0 +Profile_Panels_xmax(2) = -101d0 ! only used if /= -101d0 +!Profile_Panels_xmin(2) = 7 ! 3.9985 ! only used if /= -101d0 +!Profile_Panels_xmax(2) = 2.2 ! 3.9986 ! only used if /= -101d0 - Profile_Panels2_num_panels = 4 + Profile_Panels_num_panels(2) = 4 - Profile_Panels2_yaxis_name(1) = 'Abundance' + Profile_Panels_yaxis_name(2, 1) = 'Abundance' - Profile_Panels2_yaxis_name(2) = 'Power' + Profile_Panels_yaxis_name(2, 2) = 'Power' - Profile_Panels2_yaxis_name(3) = 'Mixing' + Profile_Panels_yaxis_name(2, 3) = 'Mixing' Mixing_legend_txt_scale_factor = 1 - Profile_Panels2_yaxis_name(4) = 'velocity' ! 'zone' - Profile_Panels2_ymin(4) = -101d0 ! -1.2 ! only used if /= -101d0 - Profile_Panels2_ymax(4) = -101d0 ! 3 ! only used if /= -101d0 - Profile_Panels2_ymargin(4) = 0.1 + Profile_Panels_yaxis_name(2, 4) = 'velocity' ! 'zone' + Profile_Panels_ymin(2, 4) = -101d0 ! -1.2 ! only used if /= -101d0 + Profile_Panels_ymax(2, 4) = -101d0 ! 3 ! only used if /= -101d0 + Profile_Panels_ymargin(2, 4) = 0.1 - Profile_Panels2_other_yaxis_name(4) = 'logR_cm' ! 'mass' - Profile_Panels2_other_ymin(4) = -101d0 ! -1e4 ! only used if /= -101d0 - Profile_Panels2_other_ymax(4) = -101d0 ! 2e4 ! only used if /= -101d0 - Profile_Panels2_other_ymargin(4) = 0.1 + Profile_Panels_other_yaxis_name(2, 4) = 'logR_cm' ! 'mass' + Profile_Panels_other_ymin(2, 4) = -101d0 ! -1e4 ! only used if /= -101d0 + Profile_Panels_other_ymax(2, 4) = -101d0 ! 2e4 ! only used if /= -101d0 + Profile_Panels_other_ymargin(2, 4) = 0.1 Power_legend_max_cnt = 10 Power_legend_txt_scale_factor = 1.3 ! relative to other text Power_ymin = 6 ! only used if /= -101d0 -! Text_Summary1_name(2,1) = 'star_age_sec' -! Text_Summary1_name(3,1) = 'time_step_sec' -! Text_Summary1_name(7,1) = 'total_energy' +! Text_Summary_name(1, 2, 1) = 'star_age_sec' +! Text_Summary_name(1, 3, 1) = 'time_step_sec' +! Text_Summary_name(1, 7, 1) = 'total_energy' ! -! Text_Summary1_name(2,2) = 'max_v_E0' -! Text_Summary1_name(4,2) = 'o_core_mass' -! Text_Summary1_name(5,2) = 'v_center' -! Text_Summary1_name(6,2) = 'r_center' -! Text_Summary1_name(7,2) = 'dt_div_dt_Courant' -! Text_Summary1_name(8,2) = 'dt_div_dt_cell_collapse' +! Text_Summary_name(1, 2, 2) = 'max_v_E0' +! Text_Summary_name(1, 4, 2) = 'o_core_mass' +! Text_Summary_name(1, 5, 2) = 'v_center' +! Text_Summary_name(1, 6, 2) = 'r_center' +! Text_Summary_name(1, 7, 2) = 'dt_div_dt_Courant' +! Text_Summary_name(1, 8, 2) = 'dt_div_dt_cell_collapse' ! -! Text_Summary1_name(3,3) = 'max_abs_v_lgRho' -! Text_Summary1_name(4,3) = 'max_abs_v_lgT' -! Text_Summary1_name(5,3) = 'max_abs_v_velocity' -! Text_Summary1_name(6,3) = 'max_abs_v_v_div_cs' -! Text_Summary1_name(7,3) = 'max_abs_v_mass' -! Text_Summary1_name(8,3) = 'max_abs_v_radius' - - Grid2_win_flag = .false. +! Text_Summary_name(1, 3, 3) = 'max_abs_v_lgRho' +! Text_Summary_name(1, 4, 3) = 'max_abs_v_lgT' +! Text_Summary_name(1, 5, 3) = 'max_abs_v_velocity' +! Text_Summary_name(1, 6, 3) = 'max_abs_v_v_div_cs' +! Text_Summary_name(1, 7, 3) = 'max_abs_v_mass' +! Text_Summary_name(1, 8, 3) = 'max_abs_v_radius' + + Grid_win_flag(2) = .false. / ! end of pgstar namelist diff --git a/star/test_suite/irradiated_planet/README.rst b/star/test_suite/irradiated_planet/README.rst index 09d155a04..93553e985 100644 --- a/star/test_suite/irradiated_planet/README.rst +++ b/star/test_suite/irradiated_planet/README.rst @@ -37,58 +37,58 @@ pgstar commands used for the plots above: pgstar_interval = 10 - History_Track1_win_flag = .true. - History_Track1_win_width = 12 - History_Track1_win_aspect_ratio = 0.75 - History_Track1_title = 'irradiated_planet' - - History_Track1_xname = 'log_star_age' - History_Track1_yname = 'log_surf_cell_pressure' - History_Track1_xaxis_label = 'log10 (Time/year) ' - History_Track1_yaxis_label = 'log10 (Surface Pressure/(erg/cm\u3\u))' - History_Track1_reverse_xaxis = .false. - History_Track1_reverse_yaxis = .false. - History_Track1_log_xaxis = .false. - History_Track1_log_yaxis = .false. - - History_Track1_xmin = 3.0 - History_Track1_xmax = 6.0 - History_Track1_ymin = 5.7 - History_Track1_ymax = 6.1 - - History_Track1_file_flag = .true. - History_Track1_file_dir = 'png' - History_Track1_file_prefix = 'pres_' - History_Track1_file_interval = 10000 - History_Track1_file_width = -1 - History_Track1_file_aspect_ratio = -1 - - - History_Track2_win_flag = .true. - History_Track2_win_width = 12 - History_Track2_win_aspect_ratio = 0.75 - History_Track2_title = 'irradiated_planet' - - History_Track2_xname = 'log_star_age' - History_Track2_yname = 'radius_cm' - History_Track2_xaxis_label = 'Time (log years)' - History_Track2_yaxis_label = 'Radius (cm)' - History_Track2_reverse_xaxis = .false. - History_Track2_reverse_yaxis = .false. - History_Track2_log_xaxis = .false. - History_Track2_log_yaxis = .false. - - History_Track2_xmin = 5.0 - History_Track2_xmax = 10.3 - History_Track2_ymin = 0.7e10 - History_Track2_ymax = 1.2e10 - - History_Track2_file_flag = .true. - History_Track2_file_dir = 'png' - History_Track2_file_prefix = 'track1_' - History_Track2_file_interval = 1000 - History_Track2_file_width = -1 - History_Track2_file_aspect_ratio = -1 + History_Track_win_flag(1) = .true. + History_Track_win_width(1) = 12 + History_Track_win_aspect_ratio(1) = 0.75 + History_Track_title(1) = 'irradiated_planet' + + History_Track_xname(1) = 'log_star_age' + History_Track_yname(1) = 'log_surf_cell_pressure' + History_Track_xaxis_label(1) = 'log10 (Time/year) ' + History_Track_yaxis_label(1) = 'log10 (Surface Pressure/(erg/cm\u3\u))' + History_Track_reverse_xaxis(1) = .false. + History_Track_reverse_yaxis(1) = .false. + History_Track_log_xaxis(1) = .false. + History_Track_log_yaxis(1) = .false. + + History_Track_xmin(1) = 3.0 + History_Track_xmax(1) = 6.0 + History_Track_ymin(1) = 5.7 + History_Track_ymax(1) = 6.1 + + History_Track_file_flag(1) = .true. + History_Track_file_dir(1) = 'png' + History_Track_file_prefix(1) = 'pres_' + History_Track_file_interval(1) = 10000 + History_Track_file_width(1) = -1 + History_Track_file_aspect_ratio(1) = -1 + + + History_Track_win_flag(2) = .true. + History_Track_win_width(2) = 12 + History_Track_win_aspect_ratio(2) = 0.75 + History_Track_title(2) = 'irradiated_planet' + + History_Track_xname(2) = 'log_star_age' + History_Track_yname(2) = 'radius_cm' + History_Track_xaxis_label(2) = 'Time (log years)' + History_Track_yaxis_label(2) = 'Radius (cm)' + History_Track_reverse_xaxis(2) = .false. + History_Track_reverse_yaxis(2) = .false. + History_Track_log_xaxis(2) = .false. + History_Track_log_yaxis(2) = .false. + + History_Track_xmin(2) = 5.0 + History_Track_xmax(2) = 10.3 + History_Track_ymin(2) = 0.7e10 + History_Track_ymax(2) = 1.2e10 + + History_Track_file_flag(2) = .true. + History_Track_file_dir(2) = 'png' + History_Track_file_prefix(2) = 'track1_' + History_Track_file_interval(2) = 1000 + History_Track_file_width(2) = -1 + History_Track_file_aspect_ratio(2) = -1 / ! end of pgstar namelist diff --git a/star/test_suite/magnetic_braking/inlist_braking b/star/test_suite/magnetic_braking/inlist_braking index a4fa5f420..025c40ed0 100644 --- a/star/test_suite/magnetic_braking/inlist_braking +++ b/star/test_suite/magnetic_braking/inlist_braking @@ -129,65 +129,65 @@ file_white_on_black_flag = .true. win_white_on_black_flag = .true. - Grid2_win_flag = .true. - Grid2_num_cols = 10 ! divide plotting region into this many equal width cols - Grid2_num_plots =7 - Grid2_num_rows =8 - Grid2_win_width = 16 - !Grid2_win_aspect_ratio = 0.5 ! aspect_ratio = height/width - Grid2_xleft = 0.01 ! fraction of full window width for margin on left - Grid2_xright = 0.99 ! fraction of full window width for margin on right - Grid2_ybot = 0.12 ! fraction of full window width for margin on bottom - Grid2_ytop = 0.95 ! fraction of full window width for margin on top + Grid_win_flag(2) = .true. + Grid_num_cols(2) = 10 ! divide plotting region into this many equal width cols + Grid_num_plots(2) =7 + Grid_num_rows(2) =8 + Grid_win_width(2) = 16 + !Grid_win_aspect_ratio(2) = 0.5 ! aspect_ratio = height/width + Grid_xleft(2) = 0.01 ! fraction of full window width for margin on left + Grid_xright(2) = 0.99 ! fraction of full window width for margin on right + Grid_ybot(2) = 0.12 ! fraction of full window width for margin on bottom + Grid_ytop(2) = 0.95 ! fraction of full window width for margin on top show_TRho_Profile_eos_regions = .true. - !Grid2_file_flag = .true. - Grid2_file_dir = 'png' - Grid2_file_prefix = 'Grid2' - Grid2_file_interval = 1 + !Grid_file_flag(2) = .true. + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'Grid2' + Grid_file_interval(2) = 1 - Grid2_file_width = 18 + Grid_file_width(2) = 18 - !Grid2_file_aspect_ratio = 0.7 + !Grid_file_aspect_ratio(2) = 0.7 - Grid2_plot_name(1) = 'TRho_Profile' - Grid2_plot_row(1) = 1 - Grid2_plot_rowspan(1) =5 - Grid2_plot_col(1) = 1 - Grid2_plot_colspan(1) = 4 - Grid2_plot_pad_left(1) = 0.02 - Grid2_plot_pad_right(1) = 0.0 - Grid1_plot_pad_top(1) = 0.0 - Grid2_plot_pad_bot(1) = 0.15 - Grid2_txt_scale_factor(1) = 0.5 + Grid_plot_name(2, 1) = 'TRho_Profile' + Grid_plot_row(2, 1) = 1 + Grid_plot_rowspan(2, 1) =5 + Grid_plot_col(2, 1) = 1 + Grid_plot_colspan(2, 1) = 4 + Grid_plot_pad_left(2, 1) = 0.02 + Grid_plot_pad_right(2, 1) = 0.0 + Grid_plot_pad_top(1, 1) = 0.0 + Grid_plot_pad_bot(2, 1) = 0.15 + Grid_txt_scale_factor(2, 1) = 0.5 - Grid2_plot_name(2) = 'HR' - Grid2_plot_row(2) = 5 - Grid2_plot_rowspan(2) = 3 - Grid2_plot_col(2) = 1 - Grid2_plot_colspan(2) = 2 + Grid_plot_name(2, 2) = 'HR' + Grid_plot_row(2, 2) = 5 + Grid_plot_rowspan(2, 2) = 3 + Grid_plot_col(2, 2) = 1 + Grid_plot_colspan(2, 2) = 2 - Grid2_plot_pad_left(2) = 0.04 - Grid2_plot_pad_right(2) = 0.02 - Grid2_plot_pad_top(2) = 0.04 - Grid2_plot_pad_bot(2) = 0.00 - Grid2_txt_scale_factor(2) = 0.5 + Grid_plot_pad_left(2, 2) = 0.04 + Grid_plot_pad_right(2, 2) = 0.02 + Grid_plot_pad_top(2, 2) = 0.04 + Grid_plot_pad_bot(2, 2) = 0.00 + Grid_txt_scale_factor(2, 2) = 0.5 - Grid2_plot_name(3) = 'Abundance' - Grid2_plot_row(3) = 1 - Grid2_plot_rowspan(3) = 4 - Grid2_plot_col(3) = 5 - Grid2_plot_colspan(3) = 3 + Grid_plot_name(2, 3) = 'Abundance' + Grid_plot_row(2, 3) = 1 + Grid_plot_rowspan(2, 3) = 4 + Grid_plot_col(2, 3) = 5 + Grid_plot_colspan(2, 3) = 3 - Grid2_plot_pad_left(3) = 0.09 - Grid2_plot_pad_right(3) = 0.00 - Grid2_plot_pad_top(3) = 0.00 - Grid2_plot_pad_bot(3) = 0.05 - Grid2_txt_scale_factor(3) = 0.5 + Grid_plot_pad_left(2, 3) = 0.09 + Grid_plot_pad_right(2, 3) = 0.00 + Grid_plot_pad_top(2, 3) = 0.00 + Grid_plot_pad_bot(2, 3) = 0.05 + Grid_txt_scale_factor(2, 3) = 0.5 Abundance_legend_max_cnt = 0 Abundance_legend_txt_scale_factor =0.5 @@ -198,136 +198,136 @@ show_TRho_degeneracy_line = .true. - Grid2_plot_name(4) = 'Text_Summary1' - Grid2_plot_row(4) = 7 - Grid2_plot_rowspan(4) = 2 - Grid2_plot_col(4) = 1 - Grid2_plot_colspan(4) = 7 - Grid2_plot_pad_left(4) = 0.0 - Grid2_plot_pad_right(4) = 0.0 - Grid2_plot_pad_top(4) = 0.2 - Grid2_plot_pad_bot(4) = -0.1 - Grid2_txt_scale_factor(4) = 0.18 - Text_Summary1_num_rows = 4 ! <= 20 - Text_Summary1_num_cols = 4 ! <= 20 - Text_Summary1_name(:,:) = '' + Grid_plot_name(2, 4) = 'Text_Summary1' + Grid_plot_row(2, 4) = 7 + Grid_plot_rowspan(2, 4) = 2 + Grid_plot_col(2, 4) = 1 + Grid_plot_colspan(2, 4) = 7 + Grid_plot_pad_left(2, 4) = 0.0 + Grid_plot_pad_right(2, 4) = 0.0 + Grid_plot_pad_top(2, 4) = 0.2 + Grid_plot_pad_bot(2, 4) = -0.1 + Grid_txt_scale_factor(2, 4) = 0.18 + Text_Summary_num_rows(1) = 4 ! <= 20 + Text_Summary_num_cols(1) = 4 ! <= 20 + Text_Summary_name(1, :, :) = '' - Text_Summary1_name(1,1) = 'time_step' - Text_Summary1_name(1,2) = 'surf_avg_v_rot' - Text_Summary1_name(1,3) = 'surf_avg_v_div_v_crit' - Text_Summary1_name(1,4) = 'star_mass' + Text_Summary_name(1, 1, 1) = 'time_step' + Text_Summary_name(1, 1, 2) = 'surf_avg_v_rot' + Text_Summary_name(1, 1, 3) = 'surf_avg_v_div_v_crit' + Text_Summary_name(1, 1, 4) = 'star_mass' - Text_Summary1_name(2,1) = 'num_zones' - Text_Summary1_name(2,2) = 'star_mdot' - Text_Summary1_name(2,3) = 'star_age' - Text_Summary1_name(2,4) = 'model_number' - - Text_Summary1_name(3,1) = 'log_total_angular_momentum' + Text_Summary_name(1, 2, 1) = 'num_zones' + Text_Summary_name(1, 2, 2) = 'star_mdot' + Text_Summary_name(1, 2, 3) = 'star_age' + Text_Summary_name(1, 2, 4) = 'model_number' + + Text_Summary_name(1, 3, 1) = 'log_total_angular_momentum' - - - - - Grid2_plot_name(5) = 'History_Panels1' - Grid2_plot_row(5) = 1 - Grid2_plot_rowspan(5) = 9 - Grid2_plot_col(5) = 8 - Grid2_plot_colspan(5) = 3 - Grid2_plot_pad_left(5) = 0.075 - Grid2_plot_pad_right(5) = 0.04 - Grid2_plot_pad_top(5) = 0.0 - Grid2_plot_pad_bot(5) = 0.05 - Grid2_txt_scale_factor(5) = 0.5 - - History_Panels1_num_panels = 4 - - History_Panels1_xaxis_name = 'model_number' - History_Panels1_yaxis_name(1) = 'log_total_angular_momentum' - History_Panels1_yaxis_reversed(1) = .false. - History_Panels1_ymin(1) = 48d0 - History_Panels1_ymax(1) = -101d0 - History_Panels1_max_width = 500 - History_Panels1_dymin(1) = -1 - History_Panels1_other_yaxis_name(1) = 'log_R' - History_Panels1_other_yaxis_reversed(1) = .false. - History_Panels1_other_ymin(1) = -101d0 - History_Panels1_other_ymax(1) = -101d0 - History_Panels1_other_dymin(1) = -1 - - - - History_Panels1_yaxis_name(2) = 'surf_avg_v_rot' - History_Panels1_yaxis_reversed(2) = .false. - History_Panels1_ymin(2) = -101d0 - History_Panels1_ymax(2) = -101d0 - History_Panels1_dymin(2) = -1 - History_Panels1_other_yaxis_name(2) = 'surf_avg_v_div_v_crit' - History_Panels1_other_yaxis_reversed(2) = .false. - History_Panels1_other_ymin(2) = -101d0 - History_Panels1_other_ymax(2) = -101d0 - History_Panels1_other_dymin(2) = -1 - - - History_Panels1_yaxis_name(3) = 'star_mdot' - History_Panels1_yaxis_reversed(3) = .false. - History_Panels1_ymin(3) = -101d0 - History_Panels1_ymax(3) = -101d0 - History_Panels1_dymin(3) = -1 - History_Panels1_other_yaxis_name(3) = '' - History_Panels1_other_yaxis_reversed(3) = .false. - History_Panels1_other_ymin(3) = -101d0 - History_Panels1_other_ymax(3) = -101d0 - History_Panels1_other_dymin(3) = -1 - - History_Panels1_yaxis_name(4) = 'log_L' - History_Panels1_yaxis_reversed(4) = .false. - History_Panels1_ymin(4) = -101d0 - History_Panels1_ymax(4) = -101d0 - History_Panels1_dymin(4) = -1 - History_Panels1_other_yaxis_name(4) = 'log_L_div_Ledd' ! These are for profiles -> 'conv_L_div_L' ! 'log_Lrad_div_Ledd' ! 'log_L_div_Ledd' - History_Panels1_other_yaxis_reversed(4) = .false. - History_Panels1_other_ymin(4) = -101d0 - History_Panels1_other_ymax(4) = -101d0 - History_Panels1_other_dymin(4) = -1 - - - - Grid2_plot_name(6) = 'Kipp' - Grid2_plot_row(6) = 5 - Grid2_plot_rowspan(6) = 5 - Grid2_plot_col(6) = 5 - Grid2_plot_colspan(6) = 4 - Grid2_plot_pad_left(6) = 0.1 - Grid2_plot_pad_right(6) = 0.1 - Grid1_plot_pad_top(6) = 0.2 - Grid2_plot_pad_bot(6) = 0.2 - Grid2_txt_scale_factor(6) = 0.5 - + + + + + Grid_plot_name(2, 5) = 'History_Panels1' + Grid_plot_row(2, 5) = 1 + Grid_plot_rowspan(2, 5) = 9 + Grid_plot_col(2, 5) = 8 + Grid_plot_colspan(2, 5) = 3 + Grid_plot_pad_left(2, 5) = 0.075 + Grid_plot_pad_right(2, 5) = 0.04 + Grid_plot_pad_top(2, 5) = 0.0 + Grid_plot_pad_bot(2, 5) = 0.05 + Grid_txt_scale_factor(2, 5) = 0.5 + + History_Panels_num_panels(1) = 4 + + History_Panels_xaxis_name(1) = 'model_number' + History_Panels_yaxis_name(1, 1) = 'log_total_angular_momentum' + History_Panels_yaxis_reversed(1, 1) = .false. + History_Panels_ymin(1, 1) = 48d0 + History_Panels_ymax(1, 1) = -101d0 + History_Panels_max_width(1) = 500 + History_Panels_dymin(1, 1) = -1 + History_Panels_other_yaxis_name(1, 1) = 'log_R' + History_Panels_other_yaxis_reversed(1, 1) = .false. + History_Panels_other_ymin(1, 1) = -101d0 + History_Panels_other_ymax(1, 1) = -101d0 + History_Panels_other_dymin(1, 1) = -1 + + + + History_Panels_yaxis_name(1, 2) = 'surf_avg_v_rot' + History_Panels_yaxis_reversed(1, 2) = .false. + History_Panels_ymin(1, 2) = -101d0 + History_Panels_ymax(1, 2) = -101d0 + History_Panels_dymin(1, 2) = -1 + History_Panels_other_yaxis_name(1, 2) = 'surf_avg_v_div_v_crit' + History_Panels_other_yaxis_reversed(1, 2) = .false. + History_Panels_other_ymin(1, 2) = -101d0 + History_Panels_other_ymax(1, 2) = -101d0 + History_Panels_other_dymin(1, 2) = -1 + + + History_Panels_yaxis_name(1, 3) = 'star_mdot' + History_Panels_yaxis_reversed(1, 3) = .false. + History_Panels_ymin(1, 3) = -101d0 + History_Panels_ymax(1, 3) = -101d0 + History_Panels_dymin(1, 3) = -1 + History_Panels_other_yaxis_name(1, 3) = '' + History_Panels_other_yaxis_reversed(1, 3) = .false. + History_Panels_other_ymin(1, 3) = -101d0 + History_Panels_other_ymax(1, 3) = -101d0 + History_Panels_other_dymin(1, 3) = -1 + + History_Panels_yaxis_name(1, 4) = 'log_L' + History_Panels_yaxis_reversed(1, 4) = .false. + History_Panels_ymin(1, 4) = -101d0 + History_Panels_ymax(1, 4) = -101d0 + History_Panels_dymin(1, 4) = -1 + History_Panels_other_yaxis_name(1, 4) = 'log_L_div_Ledd' ! These are for profiles -> 'conv_L_div_L' ! 'log_Lrad_div_Ledd' ! 'log_L_div_Ledd' + History_Panels_other_yaxis_reversed(1, 4) = .false. + History_Panels_other_ymin(1, 4) = -101d0 + History_Panels_other_ymax(1, 4) = -101d0 + History_Panels_other_dymin(1, 4) = -1 + + + + Grid_plot_name(2, 6) = 'Kipp' + Grid_plot_row(2, 6) = 5 + Grid_plot_rowspan(2, 6) = 5 + Grid_plot_col(2, 6) = 5 + Grid_plot_colspan(2, 6) = 4 + Grid_plot_pad_left(2, 6) = 0.1 + Grid_plot_pad_right(2, 6) = 0.1 + Grid_plot_pad_top(1, 6) = 0.2 + Grid_plot_pad_bot(2, 6) = 0.2 + Grid_txt_scale_factor(2, 6) = 0.5 + - Grid2_plot_name(7) = 'Profile_Panels1' - Grid2_plot_row(7) =5 - Grid2_plot_rowspan(7) =3 - Grid2_plot_col(7) =3 - Grid2_plot_colspan(7) = 2 - Profile_Panels1_num_panels = 1 - Profile_Panels1_xaxis_name = 'mass' - Profile_Panels1_yaxis_name(1) = 'omega' - !Profile_Panels1_other_yaxis_name(1) = 'engulfment_heating' - Profile_Panels1_other_ymin(:) = -101 ! only used if /= -101d0 - Profile_Panels1_other_ymax(:) = -101 ! only used if /= -101d0 + Grid_plot_name(2, 7) = 'Profile_Panels1' + Grid_plot_row(2, 7) =5 + Grid_plot_rowspan(2, 7) =3 + Grid_plot_col(2, 7) =3 + Grid_plot_colspan(2, 7) = 2 + Profile_Panels_num_panels(1) = 1 + Profile_Panels_xaxis_name(1) = 'mass' + Profile_Panels_yaxis_name(1, 1) = 'omega' + !Profile_Panels_other_yaxis_name(1, 1) = 'engulfment_heating' + Profile_Panels_other_ymin(1, :) = -101 ! only used if /= -101d0 + Profile_Panels_other_ymax(1, :) = -101 ! only used if /= -101d0 - Grid2_plot_pad_left(7) = 0.04 - Grid2_plot_pad_right(7) = 0.02 - Grid2_plot_pad_top(7) = 0.04 - Grid2_plot_pad_bot(7) = 0.00 - Grid2_txt_scale_factor(7) = 0.4 + Grid_plot_pad_left(2, 7) = 0.04 + Grid_plot_pad_right(2, 7) = 0.02 + Grid_plot_pad_top(2, 7) = 0.04 + Grid_plot_pad_bot(2, 7) = 0.00 + Grid_txt_scale_factor(2, 7) = 0.4 / ! end of pgstar namelist diff --git a/star/test_suite/magnetic_braking/inlist_braking_pgstar b/star/test_suite/magnetic_braking/inlist_braking_pgstar index c5cd64358..7914137f4 100644 --- a/star/test_suite/magnetic_braking/inlist_braking_pgstar +++ b/star/test_suite/magnetic_braking/inlist_braking_pgstar @@ -7,65 +7,65 @@ file_white_on_black_flag = .true. win_white_on_black_flag = .true. - Grid2_win_flag = .true. - Grid2_num_cols = 10 ! divide plotting region into this many equal width cols - Grid2_num_plots =7 - Grid2_num_rows =8 - Grid2_win_width = 16 - !Grid2_win_aspect_ratio = 0.5 ! aspect_ratio = height/width - Grid2_xleft = 0.01 ! fraction of full window width for margin on left - Grid2_xright = 0.99 ! fraction of full window width for margin on right - Grid2_ybot = 0.12 ! fraction of full window width for margin on bottom - Grid2_ytop = 0.95 ! fraction of full window width for margin on top + Grid_win_flag(2) = .true. + Grid_num_cols(2) = 10 ! divide plotting region into this many equal width cols + Grid_num_plots(2) =7 + Grid_num_rows(2) =8 + Grid_win_width(2) = 16 + !Grid_win_aspect_ratio(2) = 0.5 ! aspect_ratio = height/width + Grid_xleft(2) = 0.01 ! fraction of full window width for margin on left + Grid_xright(2) = 0.99 ! fraction of full window width for margin on right + Grid_ybot(2) = 0.12 ! fraction of full window width for margin on bottom + Grid_ytop(2) = 0.95 ! fraction of full window width for margin on top show_TRho_Profile_eos_regions = .true. - !Grid2_file_flag = .true. - Grid2_file_dir = 'png' - Grid2_file_prefix = 'Grid2' - Grid2_file_interval = 1 + !Grid_file_flag(2) = .true. + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'Grid2' + Grid_file_interval(2) = 1 - Grid2_file_width = 18 + Grid_file_width(2) = 18 - !Grid2_file_aspect_ratio = 0.7 + !Grid_file_aspect_ratio(2) = 0.7 - Grid2_plot_name(1) = 'TRho_Profile' - Grid2_plot_row(1) = 1 - Grid2_plot_rowspan(1) =5 - Grid2_plot_col(1) = 1 - Grid2_plot_colspan(1) = 4 - Grid2_plot_pad_left(1) = 0.02 - Grid2_plot_pad_right(1) = 0.0 - Grid1_plot_pad_top(1) = 0.0 - Grid2_plot_pad_bot(1) = 0.15 - Grid2_txt_scale_factor(1) = 0.5 + Grid_plot_name(2, 1) = 'TRho_Profile' + Grid_plot_row(2, 1) = 1 + Grid_plot_rowspan(2, 1) =5 + Grid_plot_col(2, 1) = 1 + Grid_plot_colspan(2, 1) = 4 + Grid_plot_pad_left(2, 1) = 0.02 + Grid_plot_pad_right(2, 1) = 0.0 + Grid_plot_pad_top(1, 1) = 0.0 + Grid_plot_pad_bot(2, 1) = 0.15 + Grid_txt_scale_factor(2, 1) = 0.5 - Grid2_plot_name(2) = 'HR' - Grid2_plot_row(2) = 5 - Grid2_plot_rowspan(2) = 3 - Grid2_plot_col(2) = 1 - Grid2_plot_colspan(2) = 2 + Grid_plot_name(2, 2) = 'HR' + Grid_plot_row(2, 2) = 5 + Grid_plot_rowspan(2, 2) = 3 + Grid_plot_col(2, 2) = 1 + Grid_plot_colspan(2, 2) = 2 - Grid2_plot_pad_left(2) = 0.04 - Grid2_plot_pad_right(2) = 0.02 - Grid2_plot_pad_top(2) = 0.04 - Grid2_plot_pad_bot(2) = 0.00 - Grid2_txt_scale_factor(2) = 0.5 + Grid_plot_pad_left(2, 2) = 0.04 + Grid_plot_pad_right(2, 2) = 0.02 + Grid_plot_pad_top(2, 2) = 0.04 + Grid_plot_pad_bot(2, 2) = 0.00 + Grid_txt_scale_factor(2, 2) = 0.5 - Grid2_plot_name(3) = 'Abundance' - Grid2_plot_row(3) = 1 - Grid2_plot_rowspan(3) = 4 - Grid2_plot_col(3) = 5 - Grid2_plot_colspan(3) = 3 + Grid_plot_name(2, 3) = 'Abundance' + Grid_plot_row(2, 3) = 1 + Grid_plot_rowspan(2, 3) = 4 + Grid_plot_col(2, 3) = 5 + Grid_plot_colspan(2, 3) = 3 - Grid2_plot_pad_left(3) = 0.09 - Grid2_plot_pad_right(3) = 0.00 - Grid2_plot_pad_top(3) = 0.00 - Grid2_plot_pad_bot(3) = 0.05 - Grid2_txt_scale_factor(3) = 0.5 + Grid_plot_pad_left(2, 3) = 0.09 + Grid_plot_pad_right(2, 3) = 0.00 + Grid_plot_pad_top(2, 3) = 0.00 + Grid_plot_pad_bot(2, 3) = 0.05 + Grid_txt_scale_factor(2, 3) = 0.5 Abundance_legend_max_cnt = 0 Abundance_legend_txt_scale_factor =0.5 @@ -76,137 +76,137 @@ show_TRho_degeneracy_line = .true. - Grid2_plot_name(4) = 'Text_Summary1' - Grid2_plot_row(4) = 7 - Grid2_plot_rowspan(4) = 2 - Grid2_plot_col(4) = 1 - Grid2_plot_colspan(4) = 7 - Grid2_plot_pad_left(4) = 0.0 - Grid2_plot_pad_right(4) = 0.0 - Grid2_plot_pad_top(4) = 0.2 - Grid2_plot_pad_bot(4) = -0.1 - Grid2_txt_scale_factor(4) = 0.18 - Text_Summary1_num_rows = 4 ! <= 20 - Text_Summary1_num_cols = 4 ! <= 20 - Text_Summary1_name(:,:) = '' + Grid_plot_name(2, 4) = 'Text_Summary1' + Grid_plot_row(2, 4) = 7 + Grid_plot_rowspan(2, 4) = 2 + Grid_plot_col(2, 4) = 1 + Grid_plot_colspan(2, 4) = 7 + Grid_plot_pad_left(2, 4) = 0.0 + Grid_plot_pad_right(2, 4) = 0.0 + Grid_plot_pad_top(2, 4) = 0.2 + Grid_plot_pad_bot(2, 4) = -0.1 + Grid_txt_scale_factor(2, 4) = 0.18 + Text_Summary_num_rows(1) = 4 ! <= 20 + Text_Summary_num_cols(1) = 4 ! <= 20 + Text_Summary_name(1, :, :) = '' - Text_Summary1_name(1,1) = 'time_step' - Text_Summary1_name(1,2) = 'surf_avg_v_rot' - Text_Summary1_name(1,3) = 'surf_avg_v_div_v_crit' - Text_Summary1_name(1,4) = 'star_mass' + Text_Summary_name(1, 1, 1) = 'time_step' + Text_Summary_name(1, 1, 2) = 'surf_avg_v_rot' + Text_Summary_name(1, 1, 3) = 'surf_avg_v_div_v_crit' + Text_Summary_name(1, 1, 4) = 'star_mass' - Text_Summary1_name(2,1) = 'num_zones' - Text_Summary1_name(2,2) = 'star_mdot' - Text_Summary1_name(2,3) = 'star_age' - Text_Summary1_name(2,4) = 'model_number' - - Text_Summary1_name(3,1) = 'log_total_angular_momentum' + Text_Summary_name(1, 2, 1) = 'num_zones' + Text_Summary_name(1, 2, 2) = 'star_mdot' + Text_Summary_name(1, 2, 3) = 'star_age' + Text_Summary_name(1, 2, 4) = 'model_number' + + Text_Summary_name(1, 3, 1) = 'log_total_angular_momentum' - - - - - Grid2_plot_name(5) = 'History_Panels1' - Grid2_plot_row(5) = 1 - Grid2_plot_rowspan(5) = 9 - Grid2_plot_col(5) = 8 - Grid2_plot_colspan(5) = 3 - Grid2_plot_pad_left(5) = 0.075 - Grid2_plot_pad_right(5) = 0.04 - Grid2_plot_pad_top(5) = 0.0 - Grid2_plot_pad_bot(5) = 0.05 - Grid2_txt_scale_factor(5) = 0.5 - - History_Panels1_num_panels = 4 - - History_Panels1_xaxis_name = 'model_number' - History_Panels1_yaxis_name(1) = 'log_total_angular_momentum' - History_Panels1_yaxis_reversed(1) = .false. - History_Panels1_ymin(1) = 49 - History_Panels1_ymax(1) = -101d0 - History_Panels1_max_width = 500 - History_Panels1_dymin(1) = -1 - History_Panels1_other_yaxis_name(1) = 'log_R' - History_Panels1_other_yaxis_reversed(1) = .false. - History_Panels1_other_ymin(1) = -101d0 - History_Panels1_other_ymax(1) = -101d0 - History_Panels1_other_dymin(1) = -1 - - - - History_Panels1_yaxis_name(2) = 'surf_avg_v_rot' - History_Panels1_yaxis_reversed(2) = .false. - History_Panels1_ymin(2) = -101d0 - History_Panels1_ymax(2) = -101d0 - History_Panels1_dymin(2) = -1 - History_Panels1_other_yaxis_name(2) = 'surf_avg_v_div_v_crit' - History_Panels1_other_yaxis_reversed(2) = .false. - History_Panels1_other_ymin(2) = -101d0 - History_Panels1_other_ymax(2) = -101d0 - History_Panels1_other_dymin(2) = -1 - - - History_Panels1_yaxis_name(3) = 'star_mdot' - History_Panels1_yaxis_reversed(3) = .false. - History_Panels1_ymin(3) = -101d0 - History_Panels1_ymax(3) = -101d0 - History_Panels1_dymin(3) = -1 - History_Panels1_other_yaxis_name(3) = '' - History_Panels1_other_yaxis_reversed(3) = .false. - History_Panels1_other_ymin(3) = -101d0 - History_Panels1_other_ymax(3) = -101d0 - History_Panels1_other_dymin(3) = -1 - - History_Panels1_yaxis_name(4) = 'log_L' - History_Panels1_yaxis_reversed(4) = .false. - History_Panels1_ymin(4) = -101d0 - History_Panels1_ymax(4) = -101d0 - History_Panels1_dymin(4) = -1 - History_Panels1_other_yaxis_name(4) = 'log_L_div_Ledd' ! These are for profiles -> 'conv_L_div_L' ! 'log_Lrad_div_Ledd' ! 'log_L_div_Ledd' - History_Panels1_other_yaxis_reversed(4) = .false. - History_Panels1_other_ymin(4) = -101d0 - History_Panels1_other_ymax(4) = -101d0 - History_Panels1_other_dymin(4) = -1 - - - - Grid2_plot_name(6) = 'Kipp' - Grid2_plot_row(6) = 5 - Grid2_plot_rowspan(6) = 5 - Grid2_plot_col(6) = 5 - Grid2_plot_colspan(6) = 4 - Grid2_plot_pad_left(6) = 0.1 - Grid2_plot_pad_right(6) = 0.1 - Grid1_plot_pad_top(6) = 0.2 - Grid2_plot_pad_bot(6) = 0.2 - Grid2_txt_scale_factor(6) = 0.5 - + + + + + Grid_plot_name(2, 5) = 'History_Panels1' + Grid_plot_row(2, 5) = 1 + Grid_plot_rowspan(2, 5) = 9 + Grid_plot_col(2, 5) = 8 + Grid_plot_colspan(2, 5) = 3 + Grid_plot_pad_left(2, 5) = 0.075 + Grid_plot_pad_right(2, 5) = 0.04 + Grid_plot_pad_top(2, 5) = 0.0 + Grid_plot_pad_bot(2, 5) = 0.05 + Grid_txt_scale_factor(2, 5) = 0.5 + + History_Panels_num_panels(1) = 4 + + History_Panels_xaxis_name(1) = 'model_number' + History_Panels_yaxis_name(1, 1) = 'log_total_angular_momentum' + History_Panels_yaxis_reversed(1, 1) = .false. + History_Panels_ymin(1, 1) = 49 + History_Panels_ymax(1, 1) = -101d0 + History_Panels_max_width(1) = 500 + History_Panels_dymin(1, 1) = -1 + History_Panels_other_yaxis_name(1, 1) = 'log_R' + History_Panels_other_yaxis_reversed(1, 1) = .false. + History_Panels_other_ymin(1, 1) = -101d0 + History_Panels_other_ymax(1, 1) = -101d0 + History_Panels_other_dymin(1, 1) = -1 + + + + History_Panels_yaxis_name(1, 2) = 'surf_avg_v_rot' + History_Panels_yaxis_reversed(1, 2) = .false. + History_Panels_ymin(1, 2) = -101d0 + History_Panels_ymax(1, 2) = -101d0 + History_Panels_dymin(1, 2) = -1 + History_Panels_other_yaxis_name(1, 2) = 'surf_avg_v_div_v_crit' + History_Panels_other_yaxis_reversed(1, 2) = .false. + History_Panels_other_ymin(1, 2) = -101d0 + History_Panels_other_ymax(1, 2) = -101d0 + History_Panels_other_dymin(1, 2) = -1 + + + History_Panels_yaxis_name(1, 3) = 'star_mdot' + History_Panels_yaxis_reversed(1, 3) = .false. + History_Panels_ymin(1, 3) = -101d0 + History_Panels_ymax(1, 3) = -101d0 + History_Panels_dymin(1, 3) = -1 + History_Panels_other_yaxis_name(1, 3) = '' + History_Panels_other_yaxis_reversed(1, 3) = .false. + History_Panels_other_ymin(1, 3) = -101d0 + History_Panels_other_ymax(1, 3) = -101d0 + History_Panels_other_dymin(1, 3) = -1 + + History_Panels_yaxis_name(1, 4) = 'log_L' + History_Panels_yaxis_reversed(1, 4) = .false. + History_Panels_ymin(1, 4) = -101d0 + History_Panels_ymax(1, 4) = -101d0 + History_Panels_dymin(1, 4) = -1 + History_Panels_other_yaxis_name(1, 4) = 'log_L_div_Ledd' ! These are for profiles -> 'conv_L_div_L' ! 'log_Lrad_div_Ledd' ! 'log_L_div_Ledd' + History_Panels_other_yaxis_reversed(1, 4) = .false. + History_Panels_other_ymin(1, 4) = -101d0 + History_Panels_other_ymax(1, 4) = -101d0 + History_Panels_other_dymin(1, 4) = -1 + + + + Grid_plot_name(2, 6) = 'Kipp' + Grid_plot_row(2, 6) = 5 + Grid_plot_rowspan(2, 6) = 5 + Grid_plot_col(2, 6) = 5 + Grid_plot_colspan(2, 6) = 4 + Grid_plot_pad_left(2, 6) = 0.1 + Grid_plot_pad_right(2, 6) = 0.1 + Grid_plot_pad_top(1, 6) = 0.2 + Grid_plot_pad_bot(2, 6) = 0.2 + Grid_txt_scale_factor(2, 6) = 0.5 + - Grid2_plot_name(7) = 'Profile_Panels1' - Grid2_plot_row(7) =5 - Grid2_plot_rowspan(7) =3 - Grid2_plot_col(7) =3 - Grid2_plot_colspan(7) = 2 - Profile_Panels1_num_panels = 1 - Profile_Panels1_xaxis_name = 'mass' - Profile_Panels1_yaxis_name(1) = 'omega' - !Profile_Panels1_other_yaxis_name(1) = 'engulfment_heating' - Profile_Panels1_other_ymin(:) = -101 ! only used if /= -101d0 - Profile_Panels1_other_ymax(:) = -101 ! only used if /= -101d0 + Grid_plot_name(2, 7) = 'Profile_Panels1' + Grid_plot_row(2, 7) =5 + Grid_plot_rowspan(2, 7) =3 + Grid_plot_col(2, 7) =3 + Grid_plot_colspan(2, 7) = 2 + Profile_Panels_num_panels(1) = 1 + Profile_Panels_xaxis_name(1) = 'mass' + Profile_Panels_yaxis_name(1, 1) = 'omega' + !Profile_Panels_other_yaxis_name(1, 1) = 'engulfment_heating' + Profile_Panels_other_ymin(1, :) = -101 ! only used if /= -101d0 + Profile_Panels_other_ymax(1, :) = -101 ! only used if /= -101d0 - Grid2_plot_pad_left(7) = 0.04 - Grid2_plot_pad_right(7) = 0.02 - Grid2_plot_pad_top(7) = 0.04 - Grid2_plot_pad_bot(7) = 0.00 - Grid2_txt_scale_factor(7) = 0.4 + Grid_plot_pad_left(2, 7) = 0.04 + Grid_plot_pad_right(2, 7) = 0.02 + Grid_plot_pad_top(2, 7) = 0.04 + Grid_plot_pad_bot(2, 7) = 0.00 + Grid_txt_scale_factor(2, 7) = 0.4 / ! end of pgstar namelist diff --git a/star/test_suite/magnetic_braking/inlist_zams_pgstar b/star/test_suite/magnetic_braking/inlist_zams_pgstar index 2df11d12a..7468f669c 100644 --- a/star/test_suite/magnetic_braking/inlist_zams_pgstar +++ b/star/test_suite/magnetic_braking/inlist_zams_pgstar @@ -8,95 +8,95 @@ pgstar_age_disp = 2.5 pgstar_model_disp = 2.5 pgstar_lw = 8 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_win_width = 12 - Grid2_win_aspect_ratio = 0.5 ! aspect_ratio = height/width + Grid_win_width(2) = 12 + Grid_win_aspect_ratio(2) = 0.5 ! aspect_ratio = height/width - Grid2_num_cols = 7 ! divide plotting region into this many equal width cols - Grid2_num_rows = 8 ! divide plotting region into this many equal height rows - Grid2_num_plots = 5 ! <= 10 + Grid_num_cols(2) = 7 ! divide plotting region into this many equal width cols + Grid_num_rows(2) = 8 ! divide plotting region into this many equal height rows + Grid_num_plots(2) = 5 ! <= 10 - Grid2_plot_name(1) = 'TRho' - Grid2_plot_row(1) = 1 ! number from 1 at top - Grid2_plot_rowspan(1) = 6 ! plot spans this number of rows - Grid2_plot_col(1) = 1 ! number from 1 at left - Grid2_plot_colspan(1) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(1) = 0.00 ! fraction of full window width for padding on left - Grid2_plot_pad_right(1) = 0.00 ! fraction of full window width for padding on right - Grid2_plot_pad_top(1) = 0.00 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(1) = 0.0 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(1) = 0.65 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 1) = 'TRho' + Grid_plot_row(2, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 1) = 6 ! plot spans this number of rows + Grid_plot_col(2, 1) = 1 ! number from 1 at left + Grid_plot_colspan(2, 1) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 1) = 0.00 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 1) = 0.00 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 1) = 0.00 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 1) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 1) = 0.65 ! multiply txt_scale for subplot by this - Grid2_plot_name(2) = 'Text_Summary1' - Grid2_plot_row(2) = 7 ! number from 1 at top - Grid2_plot_rowspan(2) = 2 ! plot spans this number of rows - Grid2_plot_col(2) = 1 ! number from 1 at left - Grid2_plot_colspan(2) = 4 ! plot spans this number of columns - Grid2_plot_pad_left(2) = -0.08 ! fraction of full window width for padding on left - Grid2_plot_pad_right(2) = -0.12 ! fraction of full window width for padding on right - Grid2_plot_pad_top(2) = 0.08 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(2) = -0.04 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(2) = 0.19 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 2) = 'Text_Summary1' + Grid_plot_row(2, 2) = 7 ! number from 1 at top + Grid_plot_rowspan(2, 2) = 2 ! plot spans this number of rows + Grid_plot_col(2, 2) = 1 ! number from 1 at left + Grid_plot_colspan(2, 2) = 4 ! plot spans this number of columns + Grid_plot_pad_left(2, 2) = -0.08 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 2) = -0.12 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 2) = 0.08 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 2) = -0.04 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 2) = 0.19 ! multiply txt_scale for subplot by this - Grid2_plot_name(3) = 'Abundance' + Grid_plot_name(2, 3) = 'Abundance' - Grid2_plot_row(3) = 1 ! number from 1 at top - Grid2_plot_rowspan(3) = 3 ! plot spans this number of rows - Grid2_plot_col(3) = 3 ! plot spans this number of columns - Grid2_plot_colspan(3) = 3 ! plot spans this number of columns + Grid_plot_row(2, 3) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 3) = 3 ! plot spans this number of rows + Grid_plot_col(2, 3) = 3 ! plot spans this number of columns + Grid_plot_colspan(2, 3) = 3 ! plot spans this number of columns - Grid2_plot_pad_left(3) = 0.07 ! fraction of full window width for padding on left - Grid2_plot_pad_right(3) = 0.07 ! fraction of full window width for padding on right - Grid2_plot_pad_top(3) = 0.0 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(3) = 0.06 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(3) = 0.65 ! multiply txt_scale for subplot by this + Grid_plot_pad_left(2, 3) = 0.07 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 3) = 0.07 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 3) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 3) = 0.06 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 3) = 0.65 ! multiply txt_scale for subplot by this Abundance_xmax = 2.4 ! -101 ! only used if /= -101d0 Power_xmax = 2.4 ! -101 ! only used if /= -101d0 - Grid2_plot_name(4) = 'Power' + Grid_plot_name(2, 4) = 'Power' - Grid2_plot_row(4) = 4 ! number from 1 at top - Grid2_plot_rowspan(4) = 3 ! plot spans this number of rows - Grid2_plot_col(4) = 3 ! number from 1 at left - Grid2_plot_colspan(4) = 3 ! plot spans this number of columns + Grid_plot_row(2, 4) = 4 ! number from 1 at top + Grid_plot_rowspan(2, 4) = 3 ! plot spans this number of rows + Grid_plot_col(2, 4) = 3 ! number from 1 at left + Grid_plot_colspan(2, 4) = 3 ! plot spans this number of columns - Grid2_plot_pad_left(4) = 0.07 ! fraction of full window width for padding on left - Grid2_plot_pad_right(4) = 0.07 ! fraction of full window width for padding on right - Grid2_plot_pad_top(4) = 0.06 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(4) = 0.0 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(4) = 0.65 ! multiply txt_scale for subplot by this + Grid_plot_pad_left(2, 4) = 0.07 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 4) = 0.07 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 4) = 0.06 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 4) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 4) = 0.65 ! multiply txt_scale for subplot by this - Grid2_plot_name(5) = 'Profile_Panels1' - Grid2_plot_row(5) = 1 ! number from 1 at top - Grid2_plot_rowspan(5) = 8 ! plot spans this number of rows - Grid2_plot_col(5) = 6 ! number from 1 at left - Grid2_plot_colspan(5) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(5) = 0.05 ! fraction of full window width for padding on left - Grid2_plot_pad_right(5) = 0.03 ! fraction of full window width for padding on right - Grid2_plot_pad_top(5) = 0.0 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(5) = 0.0 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(5) = 0.65 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 5) = 'Profile_Panels1' + Grid_plot_row(2, 5) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 5) = 8 ! plot spans this number of rows + Grid_plot_col(2, 5) = 6 ! number from 1 at left + Grid_plot_colspan(2, 5) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 5) = 0.05 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 5) = 0.03 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 5) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 5) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 5) = 0.65 ! multiply txt_scale for subplot by this TRho_logRho_dlogRho_min = 0.01 TRho_logT_dlogT_min = 0.02 HR_dlogT_min = 0.02 HR_dlogL_min = 0.01 - Text_Summary1_name(2,1) = 'star_age' + Text_Summary_name(1, 2, 1) = 'star_age' ! file output -!Grid2_file_flag = .true. - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid_' - Grid2_file_interval = 10 ! 1 ! output when mod(model_number,Grid2_file_interval)==0 - Grid2_file_width = -1 ! negative means use same value as for window - Grid2_file_aspect_ratio = -1 ! negative means use same value as for window +!Grid_file_flag(2) = .true. + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid_' + Grid_file_interval(2) = 10 ! 1 ! output when mod(model_number,Grid_file_interval(2))==0 + Grid_file_width(2) = -1 ! negative means use same value as for window + Grid_file_aspect_ratio(2) = -1 ! negative means use same value as for window show_TRho_Profile_eos_regions = .false. @@ -105,19 +105,19 @@ Power_xmax = 2.4 ! -101 ! only used if /= -101d0 TRho_Profile_ymin = 5.1 TRho_Profile_ymax = 10.2 - Text_Summary1_name(1,3) = 'log_cntr_Rho' - Text_Summary1_name(2,3) = 'log_cntr_T' - Text_Summary1_name(3,3) = '' - Text_Summary1_name(4,3) = '' - Text_Summary1_name(5,3) = '' + Text_Summary_name(1, 1, 3) = 'log_cntr_Rho' + Text_Summary_name(1, 2, 3) = 'log_cntr_T' + Text_Summary_name(1, 3, 3) = '' + Text_Summary_name(1, 4, 3) = '' + Text_Summary_name(1, 5, 3) = '' - !Text_Summary1_name(6,3) = 'center_ye' + !Text_Summary_name(1, 6, 3) = 'center_ye' - !Text_Summary1_name(7,3) = 'iron_core_infall' - !Text_Summary1_name(8,3) = 'non_iron_core_infall' + !Text_Summary_name(1, 7, 3) = 'iron_core_infall' + !Text_Summary_name(1, 8, 3) = 'non_iron_core_infall' - !Text_Summary1_name(8,1) = 'center o16' - Text_Summary1_name(8,1) = 'species' + !Text_Summary_name(1, 8, 1) = 'center o16' + Text_Summary_name(1, 8, 1) = 'species' !Abundance_win_flag = .true. Abundance_win_width = 6 @@ -153,41 +153,41 @@ Abundance_xmax = 2.4 ! -101 ! only used if /= -101d0 Abundance_file_aspect_ratio = -1 ! negative means use same value as for window - !Profile_Panels1_win_flag = .true. - Profile_Panels1_win_width = 6 - Profile_Panels1_win_aspect_ratio = 1 ! aspect_ratio = height/width + !Profile_Panels_win_flag(1) = .true. + Profile_Panels_win_width(1) = 6 + Profile_Panels_win_aspect_ratio = 1 ! aspect_ratio(1) = height/width - Profile_Panels1_title = 'Profile Panels' - Profile_Panels1_num_panels = 3 - Profile_Panels1_yaxis_name(1) = 'logT' - Profile_Panels1_other_yaxis_name(1) = 'entropy' - Profile_Panels1_other_ymin(1) = -101d0 ! 0 ! only used if /= -101d0 - Profile_Panels1_other_ymax(1) = -101d0 ! only used if /= -101d0 - Profile_Panels1_other_ymargin(1) = 0.1 + Profile_Panels_title(1) = 'Profile Panels' + Profile_Panels_num_panels(1) = 3 + Profile_Panels_yaxis_name(1, 1) = 'logT' + Profile_Panels_other_yaxis_name(1, 1) = 'entropy' + Profile_Panels_other_ymin(1, 1) = -101d0 ! 0 ! only used if /= -101d0 + Profile_Panels_other_ymax(1, 1) = -101d0 ! only used if /= -101d0 + Profile_Panels_other_ymargin(1, 1) = 0.1 - Profile_Panels1_yaxis_name(2) = 'logRho' - Profile_Panels1_other_yaxis_name(2) = 'logR_cm' - Profile_Panels1_other_ymin(2) = -101d0 ! only used if /= -101d0 - Profile_Panels1_other_ymax(2) = -101d0 ! only used if /= -101d0 - Profile_Panels1_other_ymargin(2) = 0.1 - - Profile_Panels1_yaxis_name(3) = 'ye' - Profile_Panels1_ymin(3) = -101d0 ! 0.43 ! only used if /= -101d0 - Profile_Panels1_ymax(3) = -101d0 ! 0.51 ! only used if /= -101d0 - Profile_Panels1_ymargin(3) = 0.1 - Profile_Panels1_other_yaxis_name(3) = 'vel_km_per_s' - Profile_Panels1_other_ymin(3) = -101d0 ! -1200 ! only used if /= -101d0 - Profile_Panels1_other_ymax(3) = -101d0 ! 300d0 ! only used if /= -101d0 - Profile_Panels1_other_ymargin(3) = 0.1 ! 10 - Profile_Panels1_other_dymin(3) = 50 + Profile_Panels_yaxis_name(1, 2) = 'logRho' + Profile_Panels_other_yaxis_name(1, 2) = 'logR_cm' + Profile_Panels_other_ymin(1, 2) = -101d0 ! only used if /= -101d0 + Profile_Panels_other_ymax(1, 2) = -101d0 ! only used if /= -101d0 + Profile_Panels_other_ymargin(1, 2) = 0.1 + + Profile_Panels_yaxis_name(1, 3) = 'ye' + Profile_Panels_ymin(1, 3) = -101d0 ! 0.43 ! only used if /= -101d0 + Profile_Panels_ymax(1, 3) = -101d0 ! 0.51 ! only used if /= -101d0 + Profile_Panels_ymargin(1, 3) = 0.1 + Profile_Panels_other_yaxis_name(1, 3) = 'vel_km_per_s' + Profile_Panels_other_ymin(1, 3) = -101d0 ! -1200 ! only used if /= -101d0 + Profile_Panels_other_ymax(1, 3) = -101d0 ! 300d0 ! only used if /= -101d0 + Profile_Panels_other_ymargin(1, 3) = 0.1 ! 10 + Profile_Panels_other_dymin(1, 3) = 50 - Profile_Panels1_xaxis_name = 'mass' - Profile_Panels1_xaxis_reversed = .false. - Profile_Panels1_xmin = 0.0 ! only used if /= -101d0 + Profile_Panels_xaxis_name(1) = 'mass' + Profile_Panels_xaxis_reversed(1) = .false. + Profile_Panels_xmin(1) = 0.0 ! only used if /= -101d0 - Profile_Panels1_xmax = 2.4 ! -101d0 ! only used if /= -101d0 + Profile_Panels_xmax(1) = 2.4 ! -101d0 ! only used if /= -101d0 - Profile_Panels1_xmargin = 0d0 + Profile_Panels_xmargin(1) = 0d0 diff --git a/star/test_suite/make_brown_dwarf/README.rst b/star/test_suite/make_brown_dwarf/README.rst index 27910a290..b7d6cd46c 100644 --- a/star/test_suite/make_brown_dwarf/README.rst +++ b/star/test_suite/make_brown_dwarf/README.rst @@ -29,22 +29,22 @@ pgstar commands used for the plots above: pgstar_interval = 10 - Grid1_win_flag = .true. - Grid1_win_width = 14 - Grid1_win_aspect_ratio = 0.75 - Grid1_title = 'inlist_make_brown_dwarf' + Grid_win_flag(1) = .true. + Grid_win_width(1) = 14 + Grid_win_aspect_ratio(1) = 0.75 + Grid_title(1) = 'inlist_make_brown_dwarf' TRho_Profile_xmin = -8 TRho_Profile_xmax = 4 TRho_Profile_ymin = 2 TRho_Profile_ymax = 6 - Grid1_file_flag = .true. - Grid1_file_dir = 'png' - Grid1_file_prefix = 'grid1_' - Grid1_file_interval = 10000 ! output when mod(model_number,file_interval)==0 - Grid1_file_width = 14 ! (inches) negative means use same value as for window - Grid1_file_aspect_ratio = -1 ! negative means use same value as for window + Grid_file_flag(1) = .true. + Grid_file_dir(1) = 'png' + Grid_file_prefix(1) = 'grid1_' + Grid_file_interval(1) = 10000 ! output when mod(model_number,file_interval)==0 + Grid_file_width(1) = 14 ! (inches) negative means use same value as for window + Grid_file_aspect_ratio(1) = -1 ! negative means use same value as for window / ! end of pgstar namelist diff --git a/star/test_suite/make_brown_dwarf/inlist_make_brown_dwarf b/star/test_suite/make_brown_dwarf/inlist_make_brown_dwarf index 0590587a7..75ed3f026 100644 --- a/star/test_suite/make_brown_dwarf/inlist_make_brown_dwarf +++ b/star/test_suite/make_brown_dwarf/inlist_make_brown_dwarf @@ -59,7 +59,7 @@ &pgstar - Grid1_win_flag = .true. + Grid_win_flag(1) = .true. TRho_Profile_xmin = -8 TRho_Profile_xmax = 4 diff --git a/star/test_suite/make_co_wd/inlist_co_core b/star/test_suite/make_co_wd/inlist_co_core index 9a79dff29..6482fe88e 100644 --- a/star/test_suite/make_co_wd/inlist_co_core +++ b/star/test_suite/make_co_wd/inlist_co_core @@ -54,7 +54,7 @@ &pgstar - Profile_Panels3_xmin = -101d0 ! only used if /= -101d0 - Profile_Panels3_xmax = 1.5 ! -101d0 ! only used if /= -101d0 + Profile_Panels_xmin(3) = -101d0 ! only used if /= -101d0 + Profile_Panels_xmax(3) = 1.5 ! -101d0 ! only used if /= -101d0 / ! end of pgstar namelist diff --git a/star/test_suite/make_co_wd/inlist_common b/star/test_suite/make_co_wd/inlist_common index 86e944309..a4bfeaa46 100644 --- a/star/test_suite/make_co_wd/inlist_common +++ b/star/test_suite/make_co_wd/inlist_common @@ -126,81 +126,81 @@ &pgstar - Grid2_win_flag = .true. - Grid2_win_width = 10 - Grid2_win_aspect_ratio = 0.7 ! aspect_ratio = height/width - !Grid2_plot_name(2) = 'Power' + Grid_win_flag(2) = .true. + Grid_win_width(2) = 10 + Grid_win_aspect_ratio(2) = 0.7 ! aspect_ratio = height/width + !Grid_plot_name(2, 2) = 'Power' !Power_xmin = 0.510 ! only used if /= -101d0 !Power_xmax = 0.590 ! only used if /= -101d0 - Grid2_file_flag = .true. - Grid2_file_dir = 'png' - Grid2_file_interval = 10 ! output when mod(model_number,Grid2_file_interval)==0 - Grid2_file_width = -1 ! (inches) negative means use same value as for window - Grid2_file_aspect_ratio = -1 ! negative means use same value as for window - - - Grid2_num_plots = 5 ! <= 10 - - Grid2_plot_name(1) = 'TRho_Profile' - Grid2_plot_row(1) = 1 ! number from 1 at top - Grid2_plot_rowspan(1) = 3 ! plot spans this number of rows - Grid2_plot_col(1) = 1 ! number from 1 at left - Grid2_plot_colspan(1) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(1) = 0.0 ! fraction of full window width for padding on left - Grid2_plot_pad_right(1) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(1) = 0.0 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(1) = 0.1 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(1) = 0.7 ! multiply txt_scale for subplot by this - - Grid2_plot_name(2) = 'HR' - Grid2_plot_row(2) = 4 ! number from 1 at top - Grid2_plot_rowspan(2) = 3 ! plot spans this number of rows - Grid2_plot_col(2) = 1 ! number from 1 at left - Grid2_plot_colspan(2) = 1 ! plot spans this number of columns - Grid2_plot_pad_left(2) = 0.00 ! fraction of full window width for padding on left - Grid2_plot_pad_right(2) = 0.04 ! fraction of full window width for padding on right - Grid2_plot_pad_top(2) = 0.03 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(2) = 0.0 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(2) = 0.65 ! multiply txt_scale for subplot by this - - Grid2_plot_name(3) = 'TRho' - Grid2_plot_row(3) = 4 ! number from 1 at top - Grid2_plot_rowspan(3) = 3 ! plot spans this number of rows - Grid2_plot_col(3) = 2 ! number from 1 at left - Grid2_plot_colspan(3) = 1 ! plot spans this number of columns - Grid2_plot_pad_left(3) = 0.04 ! fraction of full window width for padding on left - Grid2_plot_pad_right(3) = 0.00 ! fraction of full window width for padding on right - Grid2_plot_pad_top(3) = 0.03 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(3) = 0.0 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(3) = 0.65 ! multiply txt_scale for subplot by this - - Grid2_plot_name(4) = 'Text_Summary1' - Grid2_plot_row(4) = 7 ! number from 1 at top - Grid2_plot_rowspan(4) = 2 ! plot spans this number of rows - Grid2_plot_col(4) = 1 ! number from 1 at left - Grid2_plot_colspan(4) = 4 ! plot spans this number of columns - Grid2_plot_pad_left(4) = -0.08 ! fraction of full window width for padding on left - Grid2_plot_pad_right(4) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(4) = 0.08 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(4) = -0.04 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(4) = 0.19 ! multiply txt_scale for subplot by this - - Grid2_plot_name(5) = 'Profile_Panels3' - Grid2_plot_row(5) = 1 ! number from 1 at top - Grid2_plot_rowspan(5) = 6 ! plot spans this number of rows - Grid2_plot_col(5) = 3 ! number from 1 at left - Grid2_plot_colspan(5) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(5) = 0.15 ! fraction of full window width for padding on left - Grid2_plot_pad_right(5) = 0.03 ! fraction of full window width for padding on right - Grid2_plot_pad_top(5) = 0.0 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(5) = 0.0 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(5) = 0.65 ! multiply txt_scale for subplot by this - - Profile_Panels3_xaxis_name = 'mass' - Profile_Panels3_xaxis_reversed = .false. + Grid_file_flag(2) = .true. + Grid_file_dir(2) = 'png' + Grid_file_interval(2) = 10 ! output when mod(model_number,Grid_file_interval(2))==0 + Grid_file_width(2) = -1 ! (inches) negative means use same value as for window + Grid_file_aspect_ratio(2) = -1 ! negative means use same value as for window + + + Grid_num_plots(2) = 5 ! <= 10 + + Grid_plot_name(2, 1) = 'TRho_Profile' + Grid_plot_row(2, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 1) = 3 ! plot spans this number of rows + Grid_plot_col(2, 1) = 1 ! number from 1 at left + Grid_plot_colspan(2, 1) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 1) = 0.0 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 1) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 1) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 1) = 0.1 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 1) = 0.7 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 2) = 'HR' + Grid_plot_row(2, 2) = 4 ! number from 1 at top + Grid_plot_rowspan(2, 2) = 3 ! plot spans this number of rows + Grid_plot_col(2, 2) = 1 ! number from 1 at left + Grid_plot_colspan(2, 2) = 1 ! plot spans this number of columns + Grid_plot_pad_left(2, 2) = 0.00 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 2) = 0.04 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 2) = 0.03 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 2) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 2) = 0.65 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 3) = 'TRho' + Grid_plot_row(2, 3) = 4 ! number from 1 at top + Grid_plot_rowspan(2, 3) = 3 ! plot spans this number of rows + Grid_plot_col(2, 3) = 2 ! number from 1 at left + Grid_plot_colspan(2, 3) = 1 ! plot spans this number of columns + Grid_plot_pad_left(2, 3) = 0.04 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 3) = 0.00 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 3) = 0.03 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 3) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 3) = 0.65 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 4) = 'Text_Summary1' + Grid_plot_row(2, 4) = 7 ! number from 1 at top + Grid_plot_rowspan(2, 4) = 2 ! plot spans this number of rows + Grid_plot_col(2, 4) = 1 ! number from 1 at left + Grid_plot_colspan(2, 4) = 4 ! plot spans this number of columns + Grid_plot_pad_left(2, 4) = -0.08 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 4) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 4) = 0.08 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 4) = -0.04 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 4) = 0.19 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 5) = 'Profile_Panels3' + Grid_plot_row(2, 5) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 5) = 6 ! plot spans this number of rows + Grid_plot_col(2, 5) = 3 ! number from 1 at left + Grid_plot_colspan(2, 5) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 5) = 0.15 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 5) = 0.03 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 5) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 5) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 5) = 0.65 ! multiply txt_scale for subplot by this + + Profile_Panels_xaxis_name(3) = 'mass' + Profile_Panels_xaxis_reversed(3) = .false. - Profile_Panels3_xmin = -101d0 ! only used if /= -101d0 - Profile_Panels3_xmax = 2.2 ! -101d0 ! only used if /= -101d0 + Profile_Panels_xmin(3) = -101d0 ! only used if /= -101d0 + Profile_Panels_xmax(3) = 2.2 ! -101d0 ! only used if /= -101d0 / ! end of pgstar namelist diff --git a/star/test_suite/make_co_wd/inlist_remove_env b/star/test_suite/make_co_wd/inlist_remove_env index c7c805edc..c7aa1832b 100644 --- a/star/test_suite/make_co_wd/inlist_remove_env +++ b/star/test_suite/make_co_wd/inlist_remove_env @@ -157,9 +157,9 @@ show_HR_WD_instabilities = .true. - Profile_Panels3_xaxis_name = 'logP' - Profile_Panels3_xaxis_reversed = .true. - Profile_Panels3_xmin = -101d0 ! only used if /= -101d0 - Profile_Panels3_xmax = -101d0 ! only used if /= -101d0 + Profile_Panels_xaxis_name(3) = 'logP' + Profile_Panels_xaxis_reversed(3) = .true. + Profile_Panels_xmin(3) = -101d0 ! only used if /= -101d0 + Profile_Panels_xmax(3) = -101d0 ! only used if /= -101d0 / ! end of pgstar namelist diff --git a/star/test_suite/make_co_wd/inlist_settle b/star/test_suite/make_co_wd/inlist_settle index 603a484f2..8446992ba 100644 --- a/star/test_suite/make_co_wd/inlist_settle +++ b/star/test_suite/make_co_wd/inlist_settle @@ -76,9 +76,9 @@ show_HR_WD_instabilities = .true. - Profile_Panels3_xaxis_name = 'logP' - Profile_Panels3_xaxis_reversed = .true. - Profile_Panels3_xmin = -101d0 ! only used if /= -101d0 - Profile_Panels3_xmax = -101d0 ! only used if /= -101d0 + Profile_Panels_xaxis_name(3) = 'logP' + Profile_Panels_xaxis_reversed(3) = .true. + Profile_Panels_xmin(3) = -101d0 ! only used if /= -101d0 + Profile_Panels_xmax(3) = -101d0 ! only used if /= -101d0 / ! end of pgstar namelist diff --git a/star/test_suite/make_co_wd/inlist_to_end_he_core_burn b/star/test_suite/make_co_wd/inlist_to_end_he_core_burn index 32b3c9536..4169cc358 100644 --- a/star/test_suite/make_co_wd/inlist_to_end_he_core_burn +++ b/star/test_suite/make_co_wd/inlist_to_end_he_core_burn @@ -70,7 +70,7 @@ &pgstar - Profile_Panels3_xmin = -101d0 ! only used if /= -101d0 - Profile_Panels3_xmax = 1.5 ! -101d0 ! only used if /= -101d0 + Profile_Panels_xmin(3) = -101d0 ! only used if /= -101d0 + Profile_Panels_xmax(3) = 1.5 ! -101d0 ! only used if /= -101d0 / ! end of pgstar namelist diff --git a/star/test_suite/make_co_wd/inlist_zams b/star/test_suite/make_co_wd/inlist_zams index c6034447a..81d1f72ea 100644 --- a/star/test_suite/make_co_wd/inlist_zams +++ b/star/test_suite/make_co_wd/inlist_zams @@ -46,7 +46,7 @@ &pgstar - Profile_Panels3_xmin = -101d0 ! only used if /= -101d0 - Profile_Panels3_xmax = -101d0 ! only used if /= -101d0 + Profile_Panels_xmin(3) = -101d0 ! only used if /= -101d0 + Profile_Panels_xmax(3) = -101d0 ! only used if /= -101d0 / ! end of pgstar namelist diff --git a/star/test_suite/make_env/README.rst b/star/test_suite/make_env/README.rst index 678e3cc1f..fbd7308a9 100644 --- a/star/test_suite/make_env/README.rst +++ b/star/test_suite/make_env/README.rst @@ -29,44 +29,44 @@ pgstar commands used for the plots above: pgstar_interval = 10 - Profile_Panels1_win_flag = .true. - Profile_Panels1_win_width = 12 - Profile_Panels1_win_aspect_ratio = 1.0 - Profile_Panels1_txt_scale = 0.8 - - Profile_Panels1_xaxis_name = 'logxm' ! 'log_q' ! 'logR_cm' - Profile_Panels1_xmin = -101d0 - Profile_Panels1_xmax = -101d0 - Profile_Panels1_xaxis_reversed = .true. - - Profile_Panels1_num_panels = 3 - - Profile_Panels1_yaxis_name(1) = 'logRho' - Profile_Panels1_ymin(1) = -101d0 - Profile_Panels1_ymax(1) = -101d0 - Profile_Panels1_ymargin(1) = 0.1 - - Profile_Panels1_other_yaxis_name(1) = 'entropy' - Profile_Panels1_other_ymin(1) = -101d0 - Profile_Panels1_other_ymax(1) = -101d0 - Profile_Panels1_other_ymargin(1) = 0.1 - - Profile_Panels1_yaxis_name(2) = 'logT' - Profile_Panels1_ymin(2) = -101d0 - Profile_Panels1_ymax(2) = -101d0 - Profile_Panels1_ymargin(2) = 0.1 - - Profile_Panels1_yaxis_name(3) = 'v_div_csound' - Profile_Panels1_ymin(3) = -0.01 - Profile_Panels1_ymax(3) = 0.01 - Profile_Panels1_ymargin(3) = 0.1 - - Profile_Panels1_file_flag = .true. - Profile_Panels1_file_dir = 'pgstar_out' - Profile_Panels1_file_prefix = 'profile1_' - Profile_Panels1_file_interval = 1000 - Profile_Panels1_file_width = -1 - Profile_Panels1_file_aspect_ratio = -1 + Profile_Panels_win_flag(1) = .true. + Profile_Panels_win_width(1) = 12 + Profile_Panels_win_aspect_ratio(1) = 1.0 + Profile_Panels_txt_scale(1) = 0.8 + + Profile_Panels_xaxis_name(1) = 'logxm' ! 'log_q' ! 'logR_cm' + Profile_Panels_xmin(1) = -101d0 + Profile_Panels_xmax(1) = -101d0 + Profile_Panels_xaxis_reversed(1) = .true. + + Profile_Panels_num_panels(1) = 3 + + Profile_Panels_yaxis_name(1, 1) = 'logRho' + Profile_Panels_ymin(1, 1) = -101d0 + Profile_Panels_ymax(1, 1) = -101d0 + Profile_Panels_ymargin(1, 1) = 0.1 + + Profile_Panels_other_yaxis_name(1, 1) = 'entropy' + Profile_Panels_other_ymin(1, 1) = -101d0 + Profile_Panels_other_ymax(1, 1) = -101d0 + Profile_Panels_other_ymargin(1, 1) = 0.1 + + Profile_Panels_yaxis_name(1, 2) = 'logT' + Profile_Panels_ymin(1, 2) = -101d0 + Profile_Panels_ymax(1, 2) = -101d0 + Profile_Panels_ymargin(1, 2) = 0.1 + + Profile_Panels_yaxis_name(1, 3) = 'v_div_csound' + Profile_Panels_ymin(1, 3) = -0.01 + Profile_Panels_ymax(1, 3) = 0.01 + Profile_Panels_ymargin(1, 3) = 0.1 + + Profile_Panels_file_flag(1) = .true. + Profile_Panels_file_dir(1) = 'pgstar_out' + Profile_Panels_file_prefix(1) = 'profile1_' + Profile_Panels_file_interval(1) = 1000 + Profile_Panels_file_width(1) = -1 + Profile_Panels_file_aspect_ratio(1) = -1 / ! end of pgstar namelist diff --git a/star/test_suite/make_he_wd/inlist_remove_envelope b/star/test_suite/make_he_wd/inlist_remove_envelope index e4ae993d2..08d238cdc 100644 --- a/star/test_suite/make_he_wd/inlist_remove_envelope +++ b/star/test_suite/make_he_wd/inlist_remove_envelope @@ -87,6 +87,6 @@ !pause = .true. ! if true, the code waits for user to enter a RETURN on the command line -!Grid3_win_flag = .true. +!Grid_win_flag(3) = .true. / ! end of pgstar namelist diff --git a/star/test_suite/make_o_ne_wd/README.rst b/star/test_suite/make_o_ne_wd/README.rst index d6745bf44..a569397d6 100644 --- a/star/test_suite/make_o_ne_wd/README.rst +++ b/star/test_suite/make_o_ne_wd/README.rst @@ -31,6 +31,6 @@ This test case has 5 parts. Click to see a larger version of a plot. :width: 100% -The plots above were made with the provided ``inist_pgstar`` by setting ``Grid1_win_flag = .true.`` and ``Grid1_file_flag = .true.``. +The plots above were made with the provided ``inist_pgstar`` by setting ``Grid_win_flag(1) = .true.`` and ``Grid_file_flag(1) = .true.``. Last-Updated: 29Jun2021 (MESA 7f132f41) by adamjermyn. diff --git a/star/test_suite/make_o_ne_wd/inlist_c_burn b/star/test_suite/make_o_ne_wd/inlist_c_burn index a1c2da6ed..af08d029d 100644 --- a/star/test_suite/make_o_ne_wd/inlist_c_burn +++ b/star/test_suite/make_o_ne_wd/inlist_c_burn @@ -169,6 +169,6 @@ &pgstar !pause = .true. - !Profile_Panels3_xmax = 3 ! -101d0 ! only used if /= -101d0 + !Profile_Panels_xmax(3) = 3 ! -101d0 ! only used if /= -101d0 / ! end of pgstar namelist diff --git a/star/test_suite/make_o_ne_wd/inlist_o_ne_wd b/star/test_suite/make_o_ne_wd/inlist_o_ne_wd index 8d846fcbe..15d8e1fbd 100644 --- a/star/test_suite/make_o_ne_wd/inlist_o_ne_wd +++ b/star/test_suite/make_o_ne_wd/inlist_o_ne_wd @@ -108,6 +108,6 @@ &pgstar !pause = .true. - !Profile_Panels3_xmax = 3 ! -101d0 ! only used if /= -101d0 + !Profile_Panels_xmax(3) = 3 ! -101d0 ! only used if /= -101d0 / ! end of pgstar namelist diff --git a/star/test_suite/make_o_ne_wd/inlist_pgstar b/star/test_suite/make_o_ne_wd/inlist_pgstar index 6b0e10170..0734876af 100644 --- a/star/test_suite/make_o_ne_wd/inlist_pgstar +++ b/star/test_suite/make_o_ne_wd/inlist_pgstar @@ -15,213 +15,213 @@ pgstar_show_age = .false. !------------------------------------------------------------------------------------ -Grid1_win_flag = .true. -Grid1_win_width = 12 -Grid1_win_aspect_ratio = 0.666 +Grid_win_flag(1) = .true. +Grid_win_width(1) = 12 +Grid_win_aspect_ratio(1) = 0.666 ! file output -Grid1_file_flag = .true. -Grid1_file_dir = 'png' -Grid1_file_prefix = 'png_' -Grid1_file_interval = 5 ! output when mod(model_number,Grid1_file_interval)==0 -Grid1_file_width = -1 ! (inches) negative means use same value as for window -Grid1_file_aspect_ratio = -1 ! negative means use same value as for window +Grid_file_flag(1) = .true. +Grid_file_dir(1) = 'png' +Grid_file_prefix(1) = 'png_' +Grid_file_interval(1) = 5 ! output when mod(model_number,Grid_file_interval(1))==0 +Grid_file_width(1) = -1 ! (inches) negative means use same value as for window +Grid_file_aspect_ratio(1) = -1 ! negative means use same value as for window ! reset the defaults -Grid1_plot_name(:) = '' -Grid1_plot_row(:) = 1 ! number from 1 at top -Grid1_plot_rowspan(:) = 1 ! plot spans this number of rows -Grid1_plot_col(:) = 1 ! number from 1 at left -Grid1_plot_colspan(:) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(:) = 0.0 ! fraction of full window width for padding on left -Grid1_plot_pad_right(:) = 0.0 ! fraction of full window width for padding on right -Grid1_plot_pad_top(:) = 0.0 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(:) = 0.0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(:) = 0.7 ! multiply txt_scale for subplot by this +Grid_plot_name(1, :) = '' +Grid_plot_row(1, :) = 1 ! number from 1 at top +Grid_plot_rowspan(1, :) = 1 ! plot spans this number of rows +Grid_plot_col(1, :) = 1 ! number from 1 at left +Grid_plot_colspan(1, :) = 1 ! plot spans this number of columns +Grid_plot_pad_left(1, :) = 0.0 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, :) = 0.0 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, :) = 0.0 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, :) = 0.0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, :) = 0.7 ! multiply txt_scale for subplot by this -Grid1_title = '' +Grid_title(1) = '' -Grid1_num_cols = 3 ! divide plotting region into this many equal width cols -Grid1_num_rows = 5 ! divide plotting region into this many equal height rows -Grid1_num_plots = 6 ! <= 10 +Grid_num_cols(1) = 3 ! divide plotting region into this many equal width cols +Grid_num_rows(1) = 5 ! divide plotting region into this many equal height rows +Grid_num_plots(1) = 6 ! <= 10 -Grid1_plot_name(1) = 'Text_Summary1' -Grid1_plot_row(1) = 1 ! number from 1 at top -Grid1_plot_rowspan(1) = 1 ! plot spans this number of rows -Grid1_plot_col(1) = 1 ! number from 1 at left -Grid1_plot_colspan(1) = 3 ! plot spans this number of columns +Grid_plot_name(1, 1) = 'Text_Summary1' +Grid_plot_row(1, 1) = 1 ! number from 1 at top +Grid_plot_rowspan(1, 1) = 1 ! plot spans this number of rows +Grid_plot_col(1, 1) = 1 ! number from 1 at left +Grid_plot_colspan(1, 1) = 3 ! plot spans this number of columns -Grid1_plot_pad_left(1) = -0.03 ! fraction of full window width for padding on left -Grid1_plot_pad_right(1) = 0.0 ! fraction of full window width for padding on right -Grid1_plot_pad_top(1) = -0.06 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(1) = 0.07 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(1) = 1 ! 0.8 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 1) = -0.03 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 1) = 0.0 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 1) = -0.06 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 1) = 0.07 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 1) = 1 ! 0.8 ! multiply txt_scale for subplot by this -Grid1_plot_name(3) = 'TRho' -Grid1_plot_row(3) = 2 ! number from 1 at top -Grid1_plot_rowspan(3) = 1 ! plot spans this number of rows -Grid1_plot_col(3) = 1 ! number from 1 at left -Grid1_plot_colspan(3) = 1 ! plot spans this number of columns +Grid_plot_name(1, 3) = 'TRho' +Grid_plot_row(1, 3) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 3) = 1 ! plot spans this number of rows +Grid_plot_col(1, 3) = 1 ! number from 1 at left +Grid_plot_colspan(1, 3) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(3) = 0.00 ! fraction of full window width for padding on left -Grid1_plot_pad_right(3) = 0.08 ! fraction of full window width for padding on right -Grid1_plot_pad_top(3) = -0.04 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(3) = 0.01 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(3) = 0.7 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 3) = 0.00 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 3) = 0.08 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 3) = -0.04 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 3) = 0.01 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 3) = 0.7 ! multiply txt_scale for subplot by this -Grid1_plot_name(5) = 'Profile_Panels1' -Grid1_plot_row(5) = 3 ! number from 1 at top -Grid1_plot_rowspan(5) = 3 ! plot spans this number of rows -Grid1_plot_col(5) = 1 ! number from 1 at left -Grid1_plot_colspan(5) = 1 ! plot spans this number of columns +Grid_plot_name(1, 5) = 'Profile_Panels1' +Grid_plot_row(1, 5) = 3 ! number from 1 at top +Grid_plot_rowspan(1, 5) = 3 ! plot spans this number of rows +Grid_plot_col(1, 5) = 1 ! number from 1 at left +Grid_plot_colspan(1, 5) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(5) = 0.00 ! fraction of full window width for padding on left -Grid1_plot_pad_right(5) = 0.10 ! fraction of full window width for padding on right -Grid1_plot_pad_top(5) = 0.05 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(5) = 0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(5) = 0.6 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 5) = 0.00 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 5) = 0.10 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 5) = 0.05 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 5) = 0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 5) = 0.6 ! multiply txt_scale for subplot by this -Grid1_plot_name(2) = 'TRho_Profile' -Grid1_plot_row(2) = 2 ! number from 1 at top -Grid1_plot_rowspan(2) = 1 ! plot spans this number of rows -Grid1_plot_col(2) = 2 ! number from 1 at left -Grid1_plot_colspan(2) = 1 ! plot spans this number of columns +Grid_plot_name(1, 2) = 'TRho_Profile' +Grid_plot_row(1, 2) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 2) = 1 ! plot spans this number of rows +Grid_plot_col(1, 2) = 2 ! number from 1 at left +Grid_plot_colspan(1, 2) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(2) = -0.01 ! fraction of full window width for padding on left -Grid1_plot_pad_right(2) = 0.06 ! fraction of full window width for padding on right -Grid1_plot_pad_top(2) = -0.04 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(2) = 0.01 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 2) = -0.01 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 2) = 0.06 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 2) = -0.04 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 2) = 0.01 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 2) = 0.7 ! multiply txt_scale for subplot by this -Grid1_plot_name(4) = 'History_Panels1' -Grid1_plot_row(4) = 3 ! number from 1 at top -Grid1_plot_rowspan(4) = 3 ! plot spans this number of rows -Grid1_plot_col(4) = 2 ! number from 1 at left -Grid1_plot_colspan(4) = 1 ! plot spans this number of columns +Grid_plot_name(1, 4) = 'History_Panels1' +Grid_plot_row(1, 4) = 3 ! number from 1 at top +Grid_plot_rowspan(1, 4) = 3 ! plot spans this number of rows +Grid_plot_col(1, 4) = 2 ! number from 1 at left +Grid_plot_colspan(1, 4) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(4) = 0.00 ! fraction of full window width for padding on left -Grid1_plot_pad_right(4) = 0.06 ! fraction of full window width for padding on right -Grid1_plot_pad_top(4) = 0.05 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(4) = 0.0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(4) = 0.6 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 4) = 0.00 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 4) = 0.06 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 4) = 0.05 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 4) = 0.0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 4) = 0.6 ! multiply txt_scale for subplot by this -Grid1_plot_name(6) = 'Profile_Panels3' -Grid1_plot_row(6) = 2 ! number from 1 at top -Grid1_plot_rowspan(6) = 4 ! plot spans this number of rows -Grid1_plot_col(6) = 3 ! Number from 1 at left -Grid1_plot_colspan(6) = 1 ! plot spans this number of columns +Grid_plot_name(1, 6) = 'Profile_Panels3' +Grid_plot_row(1, 6) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 6) = 4 ! plot spans this number of rows +Grid_plot_col(1, 6) = 3 ! Number from 1 at left +Grid_plot_colspan(1, 6) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(6) = 0.04 ! fraction of full window width for padding on left -Grid1_plot_pad_right(6) = 0.06 ! fraction of full window width for padding on right -Grid1_plot_pad_top(6) = -0.04 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(6) = 0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(6) = 0.6 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 6) = 0.04 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 6) = 0.06 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 6) = -0.04 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 6) = 0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 6) = 0.6 ! multiply txt_scale for subplot by this !------------------------------------------------------------------------------------ -Profile_Panels3_win_flag = .false. +Profile_Panels_win_flag(3) = .false. -Profile_Panels3_title = '' +Profile_Panels_title(3) = '' -Profile_Panels3_num_panels = 4 +Profile_Panels_num_panels(3) = 4 -Profile_Panels3_yaxis_name(1) = 'Abundance' +Profile_Panels_yaxis_name(3, 1) = 'Abundance' -Profile_Panels3_yaxis_name(2) = 'Power' +Profile_Panels_yaxis_name(3, 2) = 'Power' -Profile_Panels3_yaxis_name(3) = 'Mixing' +Profile_Panels_yaxis_name(3, 3) = 'Mixing' Mixing_legend_txt_scale_factor = 0.9 -Profile_Panels3_txt_scale = 0.7 +Profile_Panels_txt_scale(3) = 0.7 -Profile_Panels3_yaxis_name(4) = 'logT' -Profile_Panels3_other_yaxis_name(4) = 'burn_num_iters' -Profile_Panels3_other_ymin(4) = -101d0 -Profile_Panels3_other_ymax(4) = -101d0 +Profile_Panels_yaxis_name(3, 4) = 'logT' +Profile_Panels_other_yaxis_name(3, 4) = 'burn_num_iters' +Profile_Panels_other_ymin(3, 4) = -101d0 +Profile_Panels_other_ymax(3, 4) = -101d0 -Profile_Panels3_yaxis_name(5) = '' -Profile_Panels3_other_yaxis_name(5) = '' -Profile_Panels3_other_ymin(5) = -101d0 -Profile_Panels3_other_ymax(5) = -101d0 +Profile_Panels_yaxis_name(3, 5) = '' +Profile_Panels_other_yaxis_name(3, 5) = '' +Profile_Panels_other_ymin(3, 5) = -101d0 +Profile_Panels_other_ymax(3, 5) = -101d0 ! x-axis limits and properties -Profile_Panels3_xaxis_name = 'mass' -Profile_Panels3_xmin = 0.0 -Profile_Panels3_xmax = -101d0 ! 2.2 -Profile_Panels3_xaxis_reversed = .false. +Profile_Panels_xaxis_name(3) = 'mass' +Profile_Panels_xmin(3) = 0.0 +Profile_Panels_xmax(3) = -101d0 ! 2.2 +Profile_Panels_xaxis_reversed(3) = .false. -!Profile_Panels3_xaxis_name = 'zone' -!Profile_Panels3_xmin = 800 -!Profile_Panels3_xmax = 1100 -!Profile_Panels3_xaxis_reversed = .true. +!Profile_Panels_xaxis_name(3) = 'zone' +!Profile_Panels_xmin(3) = 800 +!Profile_Panels_xmax(3) = 1100 +!Profile_Panels_xaxis_reversed(3) = .true. -!Profile_Panels3_show_grid = .true. -Profile_Panels3_show_mix_regions_on_xaxis = .true. +!Profile_Panels_show_grid(3) = .true. +Profile_Panels_show_mix_regions_on_xaxis(3) = .true. !------------------------------------------------------------------------------------ -!Profile_Panels1_win_flag = .true. -!Profile_Panels1_file_flag = .true. - Profile_Panels1_file_dir = 'png' - Profile_Panels1_file_prefix = 'profile_panels1_' - Profile_Panels1_file_interval = 1 - Profile_Panels1_file_width = -1 - Profile_Panels1_file_aspect_ratio = -1 +!Profile_Panels_win_flag(1) = .true. +!Profile_Panels_file_flag(1) = .true. + Profile_Panels_file_dir(1) = 'png' + Profile_Panels_file_prefix(1) = 'profile_panels1_' + Profile_Panels_file_interval(1) = 1 + Profile_Panels_file_width(1) = -1 + Profile_Panels_file_aspect_ratio(1) = -1 -Profile_Panels1_title = '' +Profile_Panels_title(1) = '' -Profile_Panels1_txt_scale = 0.7 +Profile_Panels_txt_scale(1) = 0.7 -Profile_Panels1_num_panels = 5 +Profile_Panels_num_panels(1) = 5 -Profile_Panels1_yaxis_name(1) = 'logT' -Profile_Panels1_other_yaxis_name(1) = 'logRho' +Profile_Panels_yaxis_name(1, 1) = 'logT' +Profile_Panels_other_yaxis_name(1, 1) = 'logRho' -! Profile_Panels1_yaxis_name(2) = '' -! Profile_Panels1_ymin(2) = 0 -! Profile_Panels1_ymax(2) = 2.2 -! Profile_Panels1_other_yaxis_name(2) = '' -! Profile_Panels1_other_ymin(2) = 0 -! Profile_Panels1_other_ymax(2) = 1.1 +! Profile_Panels_yaxis_name(1, 2) = '' +! Profile_Panels_ymin(1, 2) = 0 +! Profile_Panels_ymax(1, 2) = 2.2 +! Profile_Panels_other_yaxis_name(1, 2) = '' +! Profile_Panels_other_ymin(1, 2) = 0 +! Profile_Panels_other_ymax(1, 2) = 1.1 -Profile_Panels1_yaxis_name(3) = 'gradT' -Profile_Panels1_ymin(3) = 0.18 -Profile_Panels1_ymax(3) = 0.34 -Profile_Panels1_other_yaxis_name(3) = 'grada' -Profile_Panels1_other_ymin(3) = 0.18 -Profile_Panels1_other_ymax(3) = 0.34 +Profile_Panels_yaxis_name(1, 3) = 'gradT' +Profile_Panels_ymin(1, 3) = 0.18 +Profile_Panels_ymax(1, 3) = 0.34 +Profile_Panels_other_yaxis_name(1, 3) = 'grada' +Profile_Panels_other_ymin(1, 3) = 0.18 +Profile_Panels_other_ymax(1, 3) = 0.34 -Profile_Panels1_yaxis_name(4) = 'log_opacity' -Profile_Panels1_other_yaxis_name(4) = 'gradr' +Profile_Panels_yaxis_name(1, 4) = 'log_opacity' +Profile_Panels_other_yaxis_name(1, 4) = 'gradr' -Profile_Panels1_yaxis_name(5) = 'entropy' -Profile_Panels1_other_yaxis_name(5) = 'pgas_div_p' +Profile_Panels_yaxis_name(1, 5) = 'entropy' +Profile_Panels_other_yaxis_name(1, 5) = 'pgas_div_p' ! x-axis limits and properties -Profile_Panels1_xaxis_name = 'logtau' -Profile_Panels1_xmin = -101d0 -Profile_Panels1_xmax = 6.1 -Profile_Panels1_xaxis_reversed = .true. +Profile_Panels_xaxis_name(1) = 'logtau' +Profile_Panels_xmin(1) = -101d0 +Profile_Panels_xmax(1) = 6.1 +Profile_Panels_xaxis_reversed(1) = .true. -!Profile_Panels1_xaxis_name = 'zone' -!Profile_Panels1_xmin = 15 -!Profile_Panels1_xmax = 270 -!Profile_Panels1_xaxis_reversed = .true. +!Profile_Panels_xaxis_name(1) = 'zone' +!Profile_Panels_xmin(1) = 15 +!Profile_Panels_xmax(1) = 270 +!Profile_Panels_xaxis_reversed(1) = .true. -!Profile_Panels1_show_grid = .true. -Profile_Panels1_show_mix_regions_on_xaxis = .true. +!Profile_Panels_show_grid(1) = .true. +Profile_Panels_show_mix_regions_on_xaxis(1) = .true. !------------------------------------------------------------------------------------ @@ -313,56 +313,56 @@ profile_mass_point_str_clr(3) = 1 ! Text_Summary windows -Text_Summary1_win_flag = .false. -Text_Summary1_win_width = 10 -Text_Summary1_win_aspect_ratio = 0.15 - -Text_Summary1_xleft = 0.01 -Text_Summary1_xright = 0.99 -Text_Summary1_ybot = 0.0 -Text_Summary1_ytop = 1.0 -Text_Summary1_txt_scale = 0.95 -Text_Summary1_title = '' - -Text_Summary1_num_rows = 6 ! <= 20 -Text_Summary1_num_cols = 5 ! <= 20 -Text_Summary1_name(:,:) = '' - -Text_Summary1_name(1,1) = 'model_number' -Text_Summary1_name(1,2) = 'Teff' -Text_Summary1_name(1,3) = 'Mass' -Text_Summary1_name(1,4) = 'H_cntr' -Text_Summary1_name(1,5) = 'H_rich' - -Text_Summary1_name(2,1) = 'log_dt' -Text_Summary1_name(2,2) = 'log_R' -Text_Summary1_name(2,3) = 'lg_Mdot' -Text_Summary1_name(2,4) = 'He_cntr' -Text_Summary1_name(2,5) = 'He_core' - -Text_Summary1_name(3,1) = 'star_age' -Text_Summary1_name(3,2) = 'log_L' -Text_Summary1_name(3,3) = 'eta_cntr' -Text_Summary1_name(3,4) = 'C_cntr' -Text_Summary1_name(3,5) = 'CO_core' - -Text_Summary1_name(4,1) = 'log_max_T' -Text_Summary1_name(4,2) = 'log_LH' -Text_Summary1_name(4,3) = 'lg_Lnuc' -Text_Summary1_name(4,4) = 'O_cntr' -Text_Summary1_name(4,5) = 'Fe_core' - -Text_Summary1_name(5,1) = 'log_cntr_T' -Text_Summary1_name(5,2) = 'log_LHe' -Text_Summary1_name(5,3) = 'lg_Lneu' -Text_Summary1_name(5,4) = 'Ne_cntr' -Text_Summary1_name(5,5) = 'zones' - -Text_Summary1_name(6,1) = 'log_cntr_Rho' -Text_Summary1_name(6,2) = 'log_LZ' -Text_Summary1_name(6,3) = 'lg_Lphoto' -Text_Summary1_name(6,4) = 'Si_cntr' -Text_Summary1_name(6,5) = 'num_retries' +Text_Summary_win_flag(1) = .false. +Text_Summary_win_width(1) = 10 +Text_Summary_win_aspect_ratio(1) = 0.15 + +Text_Summary_xleft(1) = 0.01 +Text_Summary_xright(1) = 0.99 +Text_Summary_ybot(1) = 0.0 +Text_Summary_ytop(1) = 1.0 +Text_Summary_txt_scale(1) = 0.95 +Text_Summary_title(1) = '' + +Text_Summary_num_rows(1) = 6 ! <= 20 +Text_Summary_num_cols(1) = 5 ! <= 20 +Text_Summary_name(1, :, :) = '' + +Text_Summary_name(1, 1, 1) = 'model_number' +Text_Summary_name(1, 1, 2) = 'Teff' +Text_Summary_name(1, 1, 3) = 'Mass' +Text_Summary_name(1, 1, 4) = 'H_cntr' +Text_Summary_name(1, 1, 5) = 'H_rich' + +Text_Summary_name(1, 2, 1) = 'log_dt' +Text_Summary_name(1, 2, 2) = 'log_R' +Text_Summary_name(1, 2, 3) = 'lg_Mdot' +Text_Summary_name(1, 2, 4) = 'He_cntr' +Text_Summary_name(1, 2, 5) = 'He_core' + +Text_Summary_name(1, 3, 1) = 'star_age' +Text_Summary_name(1, 3, 2) = 'log_L' +Text_Summary_name(1, 3, 3) = 'eta_cntr' +Text_Summary_name(1, 3, 4) = 'C_cntr' +Text_Summary_name(1, 3, 5) = 'CO_core' + +Text_Summary_name(1, 4, 1) = 'log_max_T' +Text_Summary_name(1, 4, 2) = 'log_LH' +Text_Summary_name(1, 4, 3) = 'lg_Lnuc' +Text_Summary_name(1, 4, 4) = 'O_cntr' +Text_Summary_name(1, 4, 5) = 'Fe_core' + +Text_Summary_name(1, 5, 1) = 'log_cntr_T' +Text_Summary_name(1, 5, 2) = 'log_LHe' +Text_Summary_name(1, 5, 3) = 'lg_Lneu' +Text_Summary_name(1, 5, 4) = 'Ne_cntr' +Text_Summary_name(1, 5, 5) = 'zones' + +Text_Summary_name(1, 6, 1) = 'log_cntr_Rho' +Text_Summary_name(1, 6, 2) = 'log_LZ' +Text_Summary_name(1, 6, 3) = 'lg_Lphoto' +Text_Summary_name(1, 6, 4) = 'Si_cntr' +Text_Summary_name(1, 6, 5) = 'num_retries' !------------------------------------------------------------------------------------ @@ -561,88 +561,88 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window !----------------------------------------------------------------------- - History_Panels1_title = '' + History_Panels_title(1) = '' - History_Panels1_xaxis_name = 'model_number' - History_Panels1_max_width = -1 + History_Panels_xaxis_name(1) = 'model_number' + History_Panels_max_width(1) = -1 - !History_Panels1_xaxis_name = 'star_age' - !History_Panels1_max_width = 10 + !History_Panels_xaxis_name(1) = 'star_age' + !History_Panels_max_width(1) = 10 - History_Panels1_txt_scale = 0.75 - History_Panels1_xmin = -101d0 - History_Panels1_xmax = -101d0 - History_Panels1_dxmin = -1 - History_Panels1_xaxis_reversed = .false. - History_Panels1_xaxis_log = .false. - History_Panels1_xmargin = 0.0 + History_Panels_txt_scale(1) = 0.75 + History_Panels_xmin(1) = -101d0 + History_Panels_xmax(1) = -101d0 + History_Panels_dxmin(1) = -1 + History_Panels_xaxis_reversed(1) = .false. + History_Panels_xaxis_log(1) = .false. + History_Panels_xmargin(1) = 0.0 ! :: - History_Panels1_num_panels = 4 + History_Panels_num_panels(1) = 4 ! :: - History_Panels1_yaxis_name(1) = 'log_L' - History_Panels1_yaxis_reversed(1) = .false. - History_Panels1_ymin(1) = -101d0 - History_Panels1_ymax(1) = -101d0 - History_Panels1_dymin(1) = 0.1 + History_Panels_yaxis_name(1, 1) = 'log_L' + History_Panels_yaxis_reversed(1, 1) = .false. + History_Panels_ymin(1, 1) = -101d0 + History_Panels_ymax(1, 1) = -101d0 + History_Panels_dymin(1, 1) = 0.1 ! :: - History_Panels1_other_yaxis_name(1) = 'log_Teff' - History_Panels1_other_yaxis_reversed(1) = .false. - History_Panels1_other_ymin(1) = -101d0 - History_Panels1_other_ymax(1) = -101d0 - History_Panels1_other_dymin(1) = 0.1 + History_Panels_other_yaxis_name(1, 1) = 'log_Teff' + History_Panels_other_yaxis_reversed(1, 1) = .false. + History_Panels_other_ymin(1, 1) = -101d0 + History_Panels_other_ymax(1, 1) = -101d0 + History_Panels_other_dymin(1, 1) = 0.1 ! :: - History_Panels1_yaxis_name(2) = 'log_R' - History_Panels1_yaxis_reversed(2) = .false. - History_Panels1_ymin(2) = -101d0 - History_Panels1_ymax(2) = -101d0 - History_Panels1_dymin(2) = 0.1 + History_Panels_yaxis_name(1, 2) = 'log_R' + History_Panels_yaxis_reversed(1, 2) = .false. + History_Panels_ymin(1, 2) = -101d0 + History_Panels_ymax(1, 2) = -101d0 + History_Panels_dymin(1, 2) = 0.1 ! :: - History_Panels1_other_yaxis_name(2) = 'v_surf_km_s' - History_Panels1_other_yaxis_reversed(2) = .false. - History_Panels1_other_ymin(2) = -101d0 - History_Panels1_other_ymax(2) = -101d0 - History_Panels1_other_dymin(2) = 7d-5 + History_Panels_other_yaxis_name(1, 2) = 'v_surf_km_s' + History_Panels_other_yaxis_reversed(1, 2) = .false. + History_Panels_other_ymin(1, 2) = -101d0 + History_Panels_other_ymax(1, 2) = -101d0 + History_Panels_other_dymin(1, 2) = 7d-5 ! :: - History_Panels1_yaxis_name(3) = 'log_cntr_Rho' - History_Panels1_yaxis_reversed(3) = .false. - History_Panels1_ymin(3) = -101d0 - History_Panels1_ymax(3) = -101d0 - History_Panels1_dymin(3) = -1 + History_Panels_yaxis_name(1, 3) = 'log_cntr_Rho' + History_Panels_yaxis_reversed(1, 3) = .false. + History_Panels_ymin(1, 3) = -101d0 + History_Panels_ymax(1, 3) = -101d0 + History_Panels_dymin(1, 3) = -1 ! :: - History_Panels1_other_yaxis_name(3) = 'log_max_T' - History_Panels1_other_yaxis_reversed(3) = .false. - History_Panels1_other_ymin(3) = -101d0 - History_Panels1_other_ymax(3) = -101d0 - History_Panels1_other_dymin(3) = -1 + History_Panels_other_yaxis_name(1, 3) = 'log_max_T' + History_Panels_other_yaxis_reversed(1, 3) = .false. + History_Panels_other_ymin(1, 3) = -101d0 + History_Panels_other_ymax(1, 3) = -101d0 + History_Panels_other_dymin(1, 3) = -1 ! :: - History_Panels1_yaxis_name(4) = 'num_retries' - History_Panels1_yaxis_reversed(4) = .false. - History_Panels1_ymin(4) = -101d0 - History_Panels1_ymax(4) = -101d0 - History_Panels1_dymin(4) = -1 + History_Panels_yaxis_name(1, 4) = 'num_retries' + History_Panels_yaxis_reversed(1, 4) = .false. + History_Panels_ymin(1, 4) = -101d0 + History_Panels_ymax(1, 4) = -101d0 + History_Panels_dymin(1, 4) = -1 ! :: - History_Panels1_other_yaxis_name(4) = 'log_dt' - History_Panels1_other_yaxis_reversed(4) = .false. - History_Panels1_other_ymin(4) = -101d0 - History_Panels1_other_ymax(4) = -101d0 - History_Panels1_other_dymin(4) = -1 + History_Panels_other_yaxis_name(1, 4) = 'log_dt' + History_Panels_other_yaxis_reversed(1, 4) = .false. + History_Panels_other_ymin(1, 4) = -101d0 + History_Panels_other_ymax(1, 4) = -101d0 + History_Panels_other_dymin(1, 4) = -1 !----------------------------------------------------------------------- diff --git a/star/test_suite/make_o_ne_wd/inlist_settle_envelope b/star/test_suite/make_o_ne_wd/inlist_settle_envelope index cd81e4396..c7cd6a15c 100644 --- a/star/test_suite/make_o_ne_wd/inlist_settle_envelope +++ b/star/test_suite/make_o_ne_wd/inlist_settle_envelope @@ -98,9 +98,9 @@ &pgstar ! override the pgstar x-axis settings for this phase of evolution - Profile_Panels3_xaxis_name = 'logxm' - Profile_Panels3_xmin = -8d0 - Profile_Panels3_xmax = 0d0 ! 2.2 - Profile_Panels3_xaxis_reversed = .true. + Profile_Panels_xaxis_name(3) = 'logxm' + Profile_Panels_xmin(3) = -8d0 + Profile_Panels_xmax(3) = 0d0 ! 2.2 + Profile_Panels_xaxis_reversed(3) = .true. / ! end of pgstar namelist diff --git a/star/test_suite/make_o_ne_wd/inlist_to_agb b/star/test_suite/make_o_ne_wd/inlist_to_agb index a603e0704..fc9749c02 100644 --- a/star/test_suite/make_o_ne_wd/inlist_to_agb +++ b/star/test_suite/make_o_ne_wd/inlist_to_agb @@ -75,8 +75,8 @@ &pgstar !pause = .true. -Grid1_plot_name(3) = 'HR' -Profile_Panels3_xmin = -101d0 -Profile_Panels3_xmax = -101d0 +Grid_plot_name(1, 3) = 'HR' +Profile_Panels_xmin(3) = -101d0 +Profile_Panels_xmax(3) = -101d0 / ! end of pgstar namelist diff --git a/star/test_suite/make_pre_ccsn_13bvn/inlist_after_remove b/star/test_suite/make_pre_ccsn_13bvn/inlist_after_remove index e73de9a19..da9566b42 100644 --- a/star/test_suite/make_pre_ccsn_13bvn/inlist_after_remove +++ b/star/test_suite/make_pre_ccsn_13bvn/inlist_after_remove @@ -43,7 +43,7 @@ &pgstar -Grid1_title = 'inlist_after_remove' +Grid_title(1) = 'inlist_after_remove' / ! end of pgstar namelist diff --git a/star/test_suite/make_pre_ccsn_13bvn/inlist_before_remove b/star/test_suite/make_pre_ccsn_13bvn/inlist_before_remove index 1ccb8d1c1..0c471e551 100644 --- a/star/test_suite/make_pre_ccsn_13bvn/inlist_before_remove +++ b/star/test_suite/make_pre_ccsn_13bvn/inlist_before_remove @@ -35,7 +35,7 @@ &pgstar -Grid1_title = 'inlist_before_remove' +Grid_title(1) = 'inlist_before_remove' / ! end of pgstar namelist diff --git a/star/test_suite/make_pre_ccsn_13bvn/inlist_pgstar b/star/test_suite/make_pre_ccsn_13bvn/inlist_pgstar index c9360d38c..e7f37e7a0 100644 --- a/star/test_suite/make_pre_ccsn_13bvn/inlist_pgstar +++ b/star/test_suite/make_pre_ccsn_13bvn/inlist_pgstar @@ -24,74 +24,74 @@ file_extension = 'png' ! common names are 'png' and 'ps' ! Text_Summary windows -Text_Summary1_win_flag = .false. -Text_Summary1_win_width = 10 -Text_Summary1_win_aspect_ratio = 0.15 - -Text_Summary1_xleft = 0.01 -Text_Summary1_xright = 0.99 -Text_Summary1_ybot = 0.0 -Text_Summary1_ytop = 1.0 -Text_Summary1_txt_scale = 0.70 -Text_Summary1_title = '' - -Text_Summary1_num_rows = 6 ! <= 20 -Text_Summary1_num_cols = 8 ! <= 20 -Text_Summary1_name(:,:) = '' - -Text_Summary1_name(1,1) = 'time_step' -Text_Summary1_name(1,2) = 'num_zones' -Text_Summary1_name(1,3) = 'species' -Text_Summary1_name(1,4) = 'num_retries' -Text_Summary1_name(1,5) = 'num_iters' -Text_Summary1_name(1,6) = 'elapsed_time' -Text_Summary1_name(1,7) = ''! -Text_Summary1_name(1,8) = ''! - -Text_Summary1_name(2,1) = 'star_mass' -Text_Summary1_name(2,2) = 'star_mdot' -Text_Summary1_name(2,3) = 'center_T' -Text_Summary1_name(2,4) = 'center_Rho' -Text_Summary1_name(2,5) = 'center_P' -Text_Summary1_name(2,6) = 'center_entropy' -Text_Summary1_name(2,7) = 'lg_Lneu' -Text_Summary1_name(2,8) = 'log_cntr_T' - -Text_Summary1_name(3,1) = 'total_angular_momentum' -Text_Summary1_name(3,2) = 'effective_T' -Text_Summary1_name(3,3) = 'photosphere_L' -Text_Summary1_name(3,4) = 'photosphere_r' -Text_Summary1_name(3,5) = 'log_g' -Text_Summary1_name(3,6) = 'lum_div_Ledd' -Text_Summary1_name(3,7) = 'lg_Lnuc' -Text_Summary1_name(3,8) = 'log_max_T' - -Text_Summary1_name(4,1) = 'surf_avg_v_rot' -Text_Summary1_name(4,2) = 'surface h1' -Text_Summary1_name(4,3) = 'surface he4' -Text_Summary1_name(4,4) = 'surface c12' -Text_Summary1_name(4,5) = 'surface n14' -Text_Summary1_name(4,6) = 'surface o16' -Text_Summary1_name(4,7) = 'surface fe56' -Text_Summary1_name(4,8) = 'v_div_csound_surf' ! 'v_surf_km_s' - -Text_Summary1_name(5,1) = 'center_h1' -Text_Summary1_name(5,2) = 'center_he4' -Text_Summary1_name(5,3) = 'center_c12' -Text_Summary1_name(5,4) = 'center_o16' -Text_Summary1_name(5,5) = 'center_si28' -Text_Summary1_name(5,6) = 'center_fe52' -Text_Summary1_name(5,7) = 'center_fe56' -Text_Summary1_name(5,8) = 'center_neut' - -Text_Summary1_name(6,1) = 'neutron_rich_core_mass' -Text_Summary1_name(6,2) = 'he_core_mass' -Text_Summary1_name(6,3) = 'co_core_mass' -Text_Summary1_name(6,4) = 'log_Teff' -Text_Summary1_name(6,5) = 'log_dt' -Text_Summary1_name(6,6) = 'fe_core_mass' -Text_Summary1_name(6,7) = 'center_ye' -Text_Summary1_name(6,8) = 'center_eps_nuc' +Text_Summary_win_flag(1) = .false. +Text_Summary_win_width(1) = 10 +Text_Summary_win_aspect_ratio(1) = 0.15 + +Text_Summary_xleft(1) = 0.01 +Text_Summary_xright(1) = 0.99 +Text_Summary_ybot(1) = 0.0 +Text_Summary_ytop(1) = 1.0 +Text_Summary_txt_scale(1) = 0.70 +Text_Summary_title(1) = '' + +Text_Summary_num_rows(1) = 6 ! <= 20 +Text_Summary_num_cols(1) = 8 ! <= 20 +Text_Summary_name(1, :, :) = '' + +Text_Summary_name(1, 1, 1) = 'time_step' +Text_Summary_name(1, 1, 2) = 'num_zones' +Text_Summary_name(1, 1, 3) = 'species' +Text_Summary_name(1, 1, 4) = 'num_retries' +Text_Summary_name(1, 1, 5) = 'num_iters' +Text_Summary_name(1, 1, 6) = 'elapsed_time' +Text_Summary_name(1, 1, 7) = ''! +Text_Summary_name(1, 1, 8) = ''! + +Text_Summary_name(1, 2, 1) = 'star_mass' +Text_Summary_name(1, 2, 2) = 'star_mdot' +Text_Summary_name(1, 2, 3) = 'center_T' +Text_Summary_name(1, 2, 4) = 'center_Rho' +Text_Summary_name(1, 2, 5) = 'center_P' +Text_Summary_name(1, 2, 6) = 'center_entropy' +Text_Summary_name(1, 2, 7) = 'lg_Lneu' +Text_Summary_name(1, 2, 8) = 'log_cntr_T' + +Text_Summary_name(1, 3, 1) = 'total_angular_momentum' +Text_Summary_name(1, 3, 2) = 'effective_T' +Text_Summary_name(1, 3, 3) = 'photosphere_L' +Text_Summary_name(1, 3, 4) = 'photosphere_r' +Text_Summary_name(1, 3, 5) = 'log_g' +Text_Summary_name(1, 3, 6) = 'lum_div_Ledd' +Text_Summary_name(1, 3, 7) = 'lg_Lnuc' +Text_Summary_name(1, 3, 8) = 'log_max_T' + +Text_Summary_name(1, 4, 1) = 'surf_avg_v_rot' +Text_Summary_name(1, 4, 2) = 'surface h1' +Text_Summary_name(1, 4, 3) = 'surface he4' +Text_Summary_name(1, 4, 4) = 'surface c12' +Text_Summary_name(1, 4, 5) = 'surface n14' +Text_Summary_name(1, 4, 6) = 'surface o16' +Text_Summary_name(1, 4, 7) = 'surface fe56' +Text_Summary_name(1, 4, 8) = 'v_div_csound_surf' ! 'v_surf_km_s' + +Text_Summary_name(1, 5, 1) = 'center_h1' +Text_Summary_name(1, 5, 2) = 'center_he4' +Text_Summary_name(1, 5, 3) = 'center_c12' +Text_Summary_name(1, 5, 4) = 'center_o16' +Text_Summary_name(1, 5, 5) = 'center_si28' +Text_Summary_name(1, 5, 6) = 'center_fe52' +Text_Summary_name(1, 5, 7) = 'center_fe56' +Text_Summary_name(1, 5, 8) = 'center_neut' + +Text_Summary_name(1, 6, 1) = 'neutron_rich_core_mass' +Text_Summary_name(1, 6, 2) = 'he_core_mass' +Text_Summary_name(1, 6, 3) = 'co_core_mass' +Text_Summary_name(1, 6, 4) = 'log_Teff' +Text_Summary_name(1, 6, 5) = 'log_dt' +Text_Summary_name(1, 6, 6) = 'fe_core_mass' +Text_Summary_name(1, 6, 7) = 'center_ye' +Text_Summary_name(1, 6, 8) = 'center_eps_nuc' !------------------------------------------------------------------------------------ @@ -390,75 +390,75 @@ HR_file_aspect_ratio = -1 ! negative means use same value as for window ! Profile Panel - surface properties -Profile_Panels1_win_flag = .false. +Profile_Panels_win_flag(1) = .false. -Profile_Panels1_num_panels = 3 +Profile_Panels_num_panels(1) = 3 -Profile_Panels1_show_grid = .true. -Profile_Panels1_show_mix_regions_on_xaxis = .true. +Profile_Panels_show_grid(1) = .true. +Profile_Panels_show_mix_regions_on_xaxis(1) = .true. ! window properties -Profile_Panels1_win_width = 10 -Profile_Panels1_win_aspect_ratio = 1.0 -Profile_Panels1_txt_scale = 0.6 -Profile_Panels1_title = '' +Profile_Panels_win_width(1) = 10 +Profile_Panels_win_aspect_ratio(1) = 1.0 +Profile_Panels_txt_scale(1) = 0.6 +Profile_Panels_title(1) = '' ! x-axis limits and properties -!Profile_Panels1_xaxis_name = 'mass' -!Profile_Panels1_xmin = 0.6 -!Profile_Panels1_xmax = 1.8 -!Profile_Panels1_xaxis_reversed = .false. +!Profile_Panels_xaxis_name(1) = 'mass' +!Profile_Panels_xmin(1) = 0.6 +!Profile_Panels_xmax(1) = 1.8 +!Profile_Panels_xaxis_reversed(1) = .false. -!Profile_Panels1_xaxis_name = 'logP' -!Profile_Panels1_xmin = 5.0 -!Profile_Panels1_xmax = 16.0 -!Profile_Panels1_xaxis_reversed = .true. +!Profile_Panels_xaxis_name(1) = 'logP' +!Profile_Panels_xmin(1) = 5.0 +!Profile_Panels_xmax(1) = 16.0 +!Profile_Panels_xaxis_reversed(1) = .true. -Profile_Panels1_xaxis_name = 'logtau' -Profile_Panels1_xmin = 0.0 -Profile_Panels1_xmax = -101d0!10!8.0 -Profile_Panels1_xaxis_reversed = .true. +Profile_Panels_xaxis_name(1) = 'logtau' +Profile_Panels_xmin(1) = 0.0 +Profile_Panels_xmax(1) = -101d0!10!8.0 +Profile_Panels_xaxis_reversed(1) = .true. ! contents of panel 1 -Profile_Panels1_yaxis_name(1) = 'radius' -Profile_Panels1_ymin(1) = 0 ! only used if /= -101d0 -Profile_Panels1_ymax(1) = -101d0 ! only used if /= -101d0 +Profile_Panels_yaxis_name(1, 1) = 'radius' +Profile_Panels_ymin(1, 1) = 0 ! only used if /= -101d0 +Profile_Panels_ymax(1, 1) = -101d0 ! only used if /= -101d0 -Profile_Panels1_other_yaxis_name(1) = 'dvdt_drag' -Profile_Panels1_other_yaxis_log(1) = .true. -Profile_Panels1_other_ymin(1) = -10d0 ! only used if /= -101d0 -Profile_Panels1_other_ymax(1) = -101d0 ! only used if /= -101d0 +Profile_Panels_other_yaxis_name(1, 1) = 'dvdt_drag' +Profile_Panels_other_yaxis_log(1, 1) = .true. +Profile_Panels_other_ymin(1, 1) = -10d0 ! only used if /= -101d0 +Profile_Panels_other_ymax(1, 1) = -101d0 ! only used if /= -101d0 ! contents of panel 2 -Profile_Panels1_yaxis_name(2) = 'FdotV_drag_energy' -Profile_Panels1_yaxis_log(2) = .true. -Profile_Panels1_ymin(2) = -10 ! only used if /= -101d0 -Profile_Panels1_ymax(2) = 10d0 ! only used if /= -101d0 +Profile_Panels_yaxis_name(1, 2) = 'FdotV_drag_energy' +Profile_Panels_yaxis_log(1, 2) = .true. +Profile_Panels_ymin(1, 2) = -10 ! only used if /= -101d0 +Profile_Panels_ymax(1, 2) = 10d0 ! only used if /= -101d0 -Profile_Panels1_other_yaxis_name(2) = 'log_rel_E_err' -Profile_Panels1_other_ymin(2) = -20d0 ! 1.0 ! only used if /= -101d0 -Profile_Panels1_other_ymax(2) = -7d0 ! only used if /= -101d0 +Profile_Panels_other_yaxis_name(1, 2) = 'log_rel_E_err' +Profile_Panels_other_ymin(1, 2) = -20d0 ! 1.0 ! only used if /= -101d0 +Profile_Panels_other_ymax(1, 2) = -7d0 ! only used if /= -101d0 ! contents of panel 3 -Profile_Panels1_yaxis_name(3) = 'vel_km_per_s' -Profile_Panels1_ymin(3) = -101d0!0.0 ! only used if /= -101d0 -Profile_Panels1_ymax(3) = -101d0!100.0 ! only used if /= -101d0 +Profile_Panels_yaxis_name(1, 3) = 'vel_km_per_s' +Profile_Panels_ymin(1, 3) = -101d0!0.0 ! only used if /= -101d0 +Profile_Panels_ymax(1, 3) = -101d0!100.0 ! only used if /= -101d0 -Profile_Panels1_other_yaxis_name(3) = 'logL' -Profile_Panels1_other_ymin(3) = -2d0 ! only used if /= -101d0 -Profile_Panels1_other_ymax(3) = -101d0 ! only used if /= -101d0 +Profile_Panels_other_yaxis_name(1, 3) = 'logL' +Profile_Panels_other_ymin(1, 3) = -2d0 ! only used if /= -101d0 +Profile_Panels_other_ymax(1, 3) = -101d0 ! only used if /= -101d0 ! file output -Profile_Panels1_file_flag = .false. -Profile_Panels1_file_dir = 'surface_png' -Profile_Panels1_file_prefix = 'surface_' -Profile_Panels1_file_interval = 10 ! output when mod(model_number,file_interval)==0 -!Profile_Panels1_file_width = -1 ! (inches) negative means use same value as for window -Profile_Panels1_file_width = 16 ! (inches) negative means use same value as for window -Profile_Panels1_file_aspect_ratio = -1 ! negative means use same value as for window +Profile_Panels_file_flag(1) = .false. +Profile_Panels_file_dir(1) = 'surface_png' +Profile_Panels_file_prefix(1) = 'surface_' +Profile_Panels_file_interval(1) = 10 ! output when mod(model_number,file_interval)==0 +!Profile_Panels_file_width(1) = -1 ! (inches) negative means use same value as for window +Profile_Panels_file_width(1) = 16 ! (inches) negative means use same value as for window +Profile_Panels_file_aspect_ratio(1) = -1 ! negative means use same value as for window !------------------------------------------------------------------------------------ @@ -467,45 +467,45 @@ Profile_Panels1_file_aspect_ratio = -1 ! negative means use same value as for wi ! Profile Panel - core infall and ye -Profile_Panels3_win_flag = .false. +Profile_Panels_win_flag(3) = .false. -Profile_Panels3_num_panels = 1 +Profile_Panels_num_panels(3) = 1 -Profile_Panels3_show_grid = .true. -Profile_Panels3_show_mix_regions_on_xaxis = .true. +Profile_Panels_show_grid(3) = .true. +Profile_Panels_show_mix_regions_on_xaxis(3) = .true. ! window properties -Profile_Panels3_win_width = 12 -Profile_Panels3_win_aspect_ratio = 1.0 -Profile_Panels3_txt_scale = 0.6 -Profile_Panels3_title = '' +Profile_Panels_win_width(3) = 12 +Profile_Panels_win_aspect_ratio(3) = 1.0 +Profile_Panels_txt_scale(3) = 0.6 +Profile_Panels_title(3) = '' ! x-axis limits and properties -Profile_Panels3_xaxis_name = 'mass' -Profile_Panels3_xmin = 0.0 -Profile_Panels3_xmax = 2.5 -Profile_Panels3_xaxis_reversed = .false. +Profile_Panels_xaxis_name(3) = 'mass' +Profile_Panels_xmin(3) = 0.0 +Profile_Panels_xmax(3) = 2.5 +Profile_Panels_xaxis_reversed(3) = .false. ! contents of panel 1 -Profile_Panels3_yaxis_name(1) = 'ye' -Profile_Panels3_ymin(1) = 0.420 -Profile_Panels3_ymax(1) = 0.502 +Profile_Panels_yaxis_name(3, 1) = 'ye' +Profile_Panels_ymin(3, 1) = 0.420 +Profile_Panels_ymax(3, 1) = 0.502 -Profile_Panels3_other_yaxis_name(1) = 'vel_km_per_s' -Profile_Panels3_other_ymin(1) = -101d0 -Profile_Panels3_other_ymax(1) = -101d0 +Profile_Panels_other_yaxis_name(3, 1) = 'vel_km_per_s' +Profile_Panels_other_ymin(3, 1) = -101d0 +Profile_Panels_other_ymax(3, 1) = -101d0 ! file output -Profile_Panels3_file_flag = .false. -Profile_Panels3_file_interval = 10 ! output when mod(model_number,Grid1_file_interval)==0 -Profile_Panels3_file_dir = 'infall_png' -Profile_Panels3_file_prefix = 'infall_' -Profile_Panels3_file_interval = 10 ! output when mod(model_number,file_interval)==0 -!Profile_Panels3_file_width = -1 ! (inches) negative means use same value as for window -Profile_Panels3_file_width = 16 ! (inches) negative means use same value as for window -Profile_Panels3_file_aspect_ratio = -1 ! negative means use same value as for window +Profile_Panels_file_flag(3) = .false. +Profile_Panels_file_interval(3) = 10 ! output when mod(model_number,Grid_file_interval(1))==0 +Profile_Panels_file_dir(3) = 'infall_png' +Profile_Panels_file_prefix(3) = 'infall_' +Profile_Panels_file_interval(3) = 10 ! output when mod(model_number,file_interval)==0 +!Profile_Panels_file_width(3) = -1 ! (inches) negative means use same value as for window +Profile_Panels_file_width(3) = 16 ! (inches) negative means use same value as for window +Profile_Panels_file_aspect_ratio(3) = -1 ! negative means use same value as for window @@ -663,142 +663,142 @@ pgstar_right_yaxis_label_disp = 2.5 ! non-rotational quantities, generally -Grid1_win_flag = .true. -Grid1_win_width = 13!21 -Grid1_win_aspect_ratio = 0.6 +Grid_win_flag(1) = .true. +Grid_win_width(1) = 13!21 +Grid_win_aspect_ratio(1) = 0.6 ! reset the defaults -Grid1_plot_name(:) = '' -Grid1_plot_row(:) = 1 ! number from 1 at top -Grid1_plot_rowspan(:) = 1 ! plot spans this number of rows -Grid1_plot_col(:) = 1 ! number from 1 at left -Grid1_plot_colspan(:) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(:) = 0.0 ! fraction of full window width for padding on left -Grid1_plot_pad_right(:) = 0.0 ! fraction of full window width for padding on right -Grid1_plot_pad_top(:) = 0.0 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(:) = 0.0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(:) = 0.7 ! multiply txt_scale for subplot by this - - -Grid1_title = '' - -Grid1_num_cols = 6 ! divide plotting region into this many equal width cols -Grid1_num_rows = 2 ! divide plotting region into this many equal height rows -Grid1_num_plots = 10 ! <= 10 - - -Grid1_plot_name(1) = 'Text_Summary1' -Grid1_plot_row(1) = 1 ! number from 1 at top -Grid1_plot_rowspan(1) = 1 ! plot spans this number of rows -Grid1_plot_col(1) = 1 ! number from 1 at left -Grid1_plot_colspan(1) = 6 ! plot spans this number of columns - -Grid1_plot_pad_left(1) = 0.0 ! fraction of full window width for padding on left -Grid1_plot_pad_right(1) = 0.0 ! fraction of full window width for padding on right -Grid1_plot_pad_top(1) = -0.04 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(1) = 0.39 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(1) = 0.8 ! multiply txt_scale for subplot by this - -Grid1_plot_name(2) = 'Abundance' -Grid1_plot_row(2) = 1 ! number from 1 at top -Grid1_plot_rowspan(2) = 1 ! plot spans this number of rows -Grid1_plot_col(2) = 1 ! number from 1 at left -Grid1_plot_colspan(2) = 1 ! plot spans this number of columns - -Grid1_plot_pad_left(2) = -0.085 ! fraction of full window width for padding on left -Grid1_plot_pad_right(2) = 0.0 ! fraction of full window width for padding on right -Grid1_plot_pad_top(2) = 0.03 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(2) = 0.03 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this - - -Grid1_plot_name(3) = 'Power' -Grid1_plot_row(3) = 1 ! number from 1 at top -Grid1_plot_rowspan(3) = 1 ! plot spans this number of rows -Grid1_plot_col(3) = 2 ! number from 1 at left -Grid1_plot_colspan(3) = 1 ! plot spans this number of columns - -Grid1_plot_pad_left(3) = 0.035 ! fraction of full window width for padding on left -Grid1_plot_pad_right(3) = -0.11 ! fraction of full window width for padding on right -Grid1_plot_pad_top(3) = 0.03 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(3) = 0.03 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(3) = 0.5 ! multiply txt_scale for subplot by this - - -Grid1_plot_name(4) = 'Kipp' -Grid1_plot_row(4) = 2 ! number from 1 at top -Grid1_plot_rowspan(4) = 1 ! plot spans this number of rows -Grid1_plot_col(4) = 1 ! number from 1 at left -Grid1_plot_colspan(4) = 1 ! plot spans this number of columns - -Grid1_plot_pad_left(4) = -0.08 ! fraction of full window width for padding on left -Grid1_plot_pad_right(4) = 0.065 ! fraction of full window width for padding on right -Grid1_plot_pad_top(4) = 0.05 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(4) = 0.0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(4) = 0.5 ! multiply txt_scale for subplot by this - - -Grid1_plot_name(5) = 'TRho_Profile' -Grid1_plot_row(5) = 2 ! number from 1 at top -Grid1_plot_rowspan(5) = 1 ! plot spans this number of rows -Grid1_plot_col(5) = 2 ! number from 1 at left -Grid1_plot_colspan(5) = 1 ! plot spans this number of columns - -Grid1_plot_pad_left(5) = -0.01 ! fraction of full window width for padding on left -Grid1_plot_pad_right(5) = 0.005 ! fraction of full window width for padding on right -Grid1_plot_pad_top(5) = 0.05 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(5) = -0.02 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(5) = 0.6 ! multiply txt_scale for subplot by this - - -Grid1_plot_name(6) = 'Profile_Panels1' -Grid1_plot_row(6) = 1 ! number from 1 at top -Grid1_plot_rowspan(6) = 2 ! plot spans this number of rows -Grid1_plot_col(6) = 4 ! number from 1 at left -Grid1_plot_colspan(6) = 2 ! plot spans this number of columns - -Grid1_plot_pad_left(6) = 0.051 ! fraction of full window width for padding on left -Grid1_plot_pad_right(6) = 0.05 ! fraction of full window width for padding on right -Grid1_plot_pad_top(6) = 0.03 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(6) = -0.025 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(6) = 0.7 ! multiply txt_scale for subplot by this - - -Grid1_plot_name(7) = 'TRho' -Grid1_plot_row(7) = 2 ! number from 1 at top -Grid1_plot_rowspan(7) = 1 ! plot spans this number of rows -Grid1_plot_col(7) = 3 ! number from 1 at left -Grid1_plot_colspan(7) = 1 ! plot spans this number of columns - -Grid1_plot_pad_left(7) = 0.04 ! fraction of full window width for padding on left -Grid1_plot_pad_right(7) = -0.01 ! fraction of full window width for padding on right -Grid1_plot_pad_top(7) = 0.05 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(7) = -0.02 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(7) = 0.7 ! multiply txt_scale for subplot by this +Grid_plot_name(1, :) = '' +Grid_plot_row(1, :) = 1 ! number from 1 at top +Grid_plot_rowspan(1, :) = 1 ! plot spans this number of rows +Grid_plot_col(1, :) = 1 ! number from 1 at left +Grid_plot_colspan(1, :) = 1 ! plot spans this number of columns +Grid_plot_pad_left(1, :) = 0.0 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, :) = 0.0 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, :) = 0.0 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, :) = 0.0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, :) = 0.7 ! multiply txt_scale for subplot by this + + +Grid_title(1) = '' + +Grid_num_cols(1) = 6 ! divide plotting region into this many equal width cols +Grid_num_rows(1) = 2 ! divide plotting region into this many equal height rows +Grid_num_plots(1) = 10 ! <= 10 + + +Grid_plot_name(1, 1) = 'Text_Summary1' +Grid_plot_row(1, 1) = 1 ! number from 1 at top +Grid_plot_rowspan(1, 1) = 1 ! plot spans this number of rows +Grid_plot_col(1, 1) = 1 ! number from 1 at left +Grid_plot_colspan(1, 1) = 6 ! plot spans this number of columns + +Grid_plot_pad_left(1, 1) = 0.0 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 1) = 0.0 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 1) = -0.04 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 1) = 0.39 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 1) = 0.8 ! multiply txt_scale for subplot by this + +Grid_plot_name(1, 2) = 'Abundance' +Grid_plot_row(1, 2) = 1 ! number from 1 at top +Grid_plot_rowspan(1, 2) = 1 ! plot spans this number of rows +Grid_plot_col(1, 2) = 1 ! number from 1 at left +Grid_plot_colspan(1, 2) = 1 ! plot spans this number of columns + +Grid_plot_pad_left(1, 2) = -0.085 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 2) = 0.0 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 2) = 0.03 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 2) = 0.03 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 2) = 0.7 ! multiply txt_scale for subplot by this + + +Grid_plot_name(1, 3) = 'Power' +Grid_plot_row(1, 3) = 1 ! number from 1 at top +Grid_plot_rowspan(1, 3) = 1 ! plot spans this number of rows +Grid_plot_col(1, 3) = 2 ! number from 1 at left +Grid_plot_colspan(1, 3) = 1 ! plot spans this number of columns + +Grid_plot_pad_left(1, 3) = 0.035 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 3) = -0.11 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 3) = 0.03 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 3) = 0.03 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 3) = 0.5 ! multiply txt_scale for subplot by this + + +Grid_plot_name(1, 4) = 'Kipp' +Grid_plot_row(1, 4) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 4) = 1 ! plot spans this number of rows +Grid_plot_col(1, 4) = 1 ! number from 1 at left +Grid_plot_colspan(1, 4) = 1 ! plot spans this number of columns + +Grid_plot_pad_left(1, 4) = -0.08 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 4) = 0.065 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 4) = 0.05 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 4) = 0.0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 4) = 0.5 ! multiply txt_scale for subplot by this + + +Grid_plot_name(1, 5) = 'TRho_Profile' +Grid_plot_row(1, 5) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 5) = 1 ! plot spans this number of rows +Grid_plot_col(1, 5) = 2 ! number from 1 at left +Grid_plot_colspan(1, 5) = 1 ! plot spans this number of columns + +Grid_plot_pad_left(1, 5) = -0.01 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 5) = 0.005 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 5) = 0.05 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 5) = -0.02 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 5) = 0.6 ! multiply txt_scale for subplot by this + + +Grid_plot_name(1, 6) = 'Profile_Panels1' +Grid_plot_row(1, 6) = 1 ! number from 1 at top +Grid_plot_rowspan(1, 6) = 2 ! plot spans this number of rows +Grid_plot_col(1, 6) = 4 ! number from 1 at left +Grid_plot_colspan(1, 6) = 2 ! plot spans this number of columns + +Grid_plot_pad_left(1, 6) = 0.051 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 6) = 0.05 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 6) = 0.03 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 6) = -0.025 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 6) = 0.7 ! multiply txt_scale for subplot by this + + +Grid_plot_name(1, 7) = 'TRho' +Grid_plot_row(1, 7) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 7) = 1 ! plot spans this number of rows +Grid_plot_col(1, 7) = 3 ! number from 1 at left +Grid_plot_colspan(1, 7) = 1 ! plot spans this number of columns + +Grid_plot_pad_left(1, 7) = 0.04 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 7) = -0.01 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 7) = 0.05 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 7) = -0.02 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 7) = 0.7 ! multiply txt_scale for subplot by this -Grid1_plot_name(8) = 'History_Panels1' -Grid1_plot_row(8) = 1 ! number from 1 at top -Grid1_plot_rowspan(8) = 2 ! plot spans this number of rows -Grid1_plot_col(8) = 6 ! number from 1 at left -Grid1_plot_colspan(8) = 1 ! plot spans this number of columns - -Grid1_plot_pad_left(8) = 0.02 ! fraction of full window width for padding on left -Grid1_plot_pad_right(8) = -0.01 ! fraction of full window width for padding on right -Grid1_plot_pad_top(8) = 0.05 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(8) = -0.03 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(8) = 1.0 ! multiply txt_scale for subplot by this +Grid_plot_name(1, 8) = 'History_Panels1' +Grid_plot_row(1, 8) = 1 ! number from 1 at top +Grid_plot_rowspan(1, 8) = 2 ! plot spans this number of rows +Grid_plot_col(1, 8) = 6 ! number from 1 at left +Grid_plot_colspan(1, 8) = 1 ! plot spans this number of columns + +Grid_plot_pad_left(1, 8) = 0.02 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 8) = -0.01 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 8) = 0.05 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 8) = -0.03 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 8) = 1.0 ! multiply txt_scale for subplot by this ! file output -Grid1_file_flag = .true. -Grid1_file_dir = 'grid_png' -Grid1_file_prefix = 'grid_' -Grid1_file_interval = 1000 ! output when mod(model_number,Grid1_file_interval)==0 -!Grid1_file_width = -1 ! (inches) negative means use same value as for window -Grid1_file_width = 24 ! (inches) negative means use same value as for window -Grid1_file_aspect_ratio = -1 ! negative means use same value as for window +Grid_file_flag(1) = .true. +Grid_file_dir(1) = 'grid_png' +Grid_file_prefix(1) = 'grid_' +Grid_file_interval(1) = 1000 ! output when mod(model_number,Grid_file_interval(1))==0 +!Grid_file_width(1) = -1 ! (inches) negative means use same value as for window +Grid_file_width(1) = 24 ! (inches) negative means use same value as for window +Grid_file_aspect_ratio(1) = -1 ! negative means use same value as for window !------------------------------------------------------------------------------------ @@ -834,110 +834,110 @@ Grid1_file_aspect_ratio = -1 ! negative means use same value as for window ! :: - History_Panels1_win_flag = .false.!.true. - History_Panels1_title = '' + History_Panels_win_flag(1) = .false.!.true. + History_Panels_title(1) = '' ! :: - History_Panels1_win_width = 16 - History_Panels1_win_aspect_ratio = 0.75 + History_Panels_win_width(1) = 16 + History_Panels_win_aspect_ratio(1) = 0.75 ! :: - History_Panels1_xleft = 0.15 - History_Panels1_xright = 0.85 - History_Panels1_ybot = 0.15 - History_Panels1_ytop = 0.85 - History_Panels1_txt_scale = 0.5 + History_Panels_xleft(1) = 0.15 + History_Panels_xright(1) = 0.85 + History_Panels_ybot(1) = 0.15 + History_Panels_ytop(1) = 0.85 + History_Panels_txt_scale(1) = 0.5 ! :: - History_Panels1_xaxis_name = 'model_number' - History_Panels1_xmin = -101d0 - History_Panels1_xmax = -101d0 - History_Panels1_max_width = 100 - History_Panels1_dxmin = -1 - History_Panels1_xaxis_reversed = .false. - History_Panels1_xaxis_log = .false. - History_Panels1_xmargin = 0.0 + History_Panels_xaxis_name(1) = 'model_number' + History_Panels_xmin(1) = -101d0 + History_Panels_xmax(1) = -101d0 + History_Panels_max_width(1) = 100 + History_Panels_dxmin(1) = -1 + History_Panels_xaxis_reversed(1) = .false. + History_Panels_xaxis_log(1) = .false. + History_Panels_xmargin(1) = 0.0 ! :: - History_Panels1_points_name(:) = '' + History_Panels_points_name(1, :) = '' ! setup default ! :: - History_Panels1_num_panels = 2 + History_Panels_num_panels(1) = 2 ! :: - History_Panels1_yaxis_name(1) = 'log_rel_run_E_err' - History_Panels1_yaxis_reversed(1) = .false. - History_Panels1_ymin(1) =-101d0 - History_Panels1_ymax(1) =-101d0 - History_Panels1_dymin(1) = -1 + History_Panels_yaxis_name(1, 1) = 'log_rel_run_E_err' + History_Panels_yaxis_reversed(1, 1) = .false. + History_Panels_ymin(1, 1) =-101d0 + History_Panels_ymax(1, 1) =-101d0 + History_Panels_dymin(1, 1) = -1 ! :: - History_Panels1_other_yaxis_name(1) = 'log_rel_E_err' - History_Panels1_other_yaxis_reversed(1) = .false. - History_Panels1_other_ymin(1) = -101d0 - History_Panels1_other_ymax(1) = -101d0 - History_Panels1_other_dymin(1) = -1 + History_Panels_other_yaxis_name(1, 1) = 'log_rel_E_err' + History_Panels_other_yaxis_reversed(1, 1) = .false. + History_Panels_other_ymin(1, 1) = -101d0 + History_Panels_other_ymax(1, 1) = -101d0 + History_Panels_other_dymin(1, 1) = -1 ! :: - History_Panels1_yaxis_name(2) = 'log_LHe' - History_Panels1_yaxis_reversed(2) = .false. - History_Panels1_ymin(2) = -101d0 - History_Panels1_ymax(2) = -101d0 - History_Panels1_dymin(2) = -1 + History_Panels_yaxis_name(1, 2) = 'log_LHe' + History_Panels_yaxis_reversed(1, 2) = .false. + History_Panels_ymin(1, 2) = -101d0 + History_Panels_ymax(1, 2) = -101d0 + History_Panels_dymin(1, 2) = -1 ! :: - History_Panels1_other_yaxis_name(2) = 'log_total_drag_energy' - History_Panels1_other_yaxis_reversed(2) = .false. - History_Panels1_other_yaxis_log(2) = .false. - !History_Panels1_other_ymin(2) = -101d0 - !History_Panels1_other_ymax(2) = 40d0 - History_Panels1_other_dymin(2) = -1 + History_Panels_other_yaxis_name(1, 2) = 'log_total_drag_energy' + History_Panels_other_yaxis_reversed(1, 2) = .false. + History_Panels_other_yaxis_log(1, 2) = .false. + !History_Panels_other_ymin(1, 2) = -101d0 + !History_Panels_other_ymax(1, 2) = 40d0 + History_Panels_other_dymin(1, 2) = -1 ! :: - History_Panels1_yaxis_name(3) = '' - History_Panels1_yaxis_reversed(3) = .false. - History_Panels1_ymin(3) = -101d0 - History_Panels1_ymax(3) = -101d0 - History_Panels1_dymin(3) = -1 + History_Panels_yaxis_name(1, 3) = '' + History_Panels_yaxis_reversed(1, 3) = .false. + History_Panels_ymin(1, 3) = -101d0 + History_Panels_ymax(1, 3) = -101d0 + History_Panels_dymin(1, 3) = -1 ! :: - History_Panels1_other_yaxis_name(3) = '' - History_Panels1_other_yaxis_reversed(3) = .false. - History_Panels1_other_ymin(3) = -101d0 - History_Panels1_other_ymax(3) = -101d0 - History_Panels1_other_dymin(3) = -1 + History_Panels_other_yaxis_name(1, 3) = '' + History_Panels_other_yaxis_reversed(1, 3) = .false. + History_Panels_other_ymin(1, 3) = -101d0 + History_Panels_other_ymax(1, 3) = -101d0 + History_Panels_other_dymin(1, 3) = -1 ! Enables calling a subroutine to add extra information to a plot ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` ! :: - History_Panels1_use_decorator = .false. + History_Panels_use_decorator(1) = .false. ! file output ! :: - History_Panels1_file_flag = .false. - History_Panels1_file_dir = 'Energy_Err_info_png' - History_Panels1_file_prefix = 'mlt_info' - History_Panels1_file_interval = 10 - History_Panels1_file_width = -1 - History_Panels1_file_aspect_ratio = -1 + History_Panels_file_flag(1) = .false. + History_Panels_file_dir(1) = 'Energy_Err_info_png' + History_Panels_file_prefix(1) = 'mlt_info' + History_Panels_file_interval(1) = 10 + History_Panels_file_width(1) = -1 + History_Panels_file_aspect_ratio(1) = -1 diff --git a/star/test_suite/make_pre_ccsn_13bvn/inlist_remove b/star/test_suite/make_pre_ccsn_13bvn/inlist_remove index 39596c43a..c64826e29 100644 --- a/star/test_suite/make_pre_ccsn_13bvn/inlist_remove +++ b/star/test_suite/make_pre_ccsn_13bvn/inlist_remove @@ -58,6 +58,6 @@ &pgstar -Grid1_title = 'inlist_remove' +Grid_title(1) = 'inlist_remove' / ! end of pgstar namelist diff --git a/star/test_suite/make_pre_ccsn_13bvn/inlist_to_cc b/star/test_suite/make_pre_ccsn_13bvn/inlist_to_cc index 24a76d702..e24db2bf6 100644 --- a/star/test_suite/make_pre_ccsn_13bvn/inlist_to_cc +++ b/star/test_suite/make_pre_ccsn_13bvn/inlist_to_cc @@ -90,7 +90,7 @@ &pgstar -Grid1_title = 'inlist_to_cc' +Grid_title(1) = 'inlist_to_cc' TRho_logRho_min = 3.0 ! only used if /= -101d0 TRho_logT_min = 8.5 ! only used if /= -101d0 diff --git a/star/test_suite/make_pre_ccsn_13bvn/inlist_to_post_si_burn b/star/test_suite/make_pre_ccsn_13bvn/inlist_to_post_si_burn index 1925c4f18..08fa1805a 100644 --- a/star/test_suite/make_pre_ccsn_13bvn/inlist_to_post_si_burn +++ b/star/test_suite/make_pre_ccsn_13bvn/inlist_to_post_si_burn @@ -88,7 +88,7 @@ &pgstar -Grid1_title = 'inlist_to_post_si_burn' +Grid_title(1) = 'inlist_to_post_si_burn' TRho_logRho_min = 3.0 ! only used if /= -101d0 TRho_logT_min = 8.5 ! only used if /= -101d0 diff --git a/star/test_suite/make_pre_ccsn_13bvn/inlist_to_zams b/star/test_suite/make_pre_ccsn_13bvn/inlist_to_zams index 2a5d1baac..6cdf7095a 100644 --- a/star/test_suite/make_pre_ccsn_13bvn/inlist_to_zams +++ b/star/test_suite/make_pre_ccsn_13bvn/inlist_to_zams @@ -47,7 +47,7 @@ &pgstar -Grid1_title = 'inlist_to_zams' +Grid_title(1) = 'inlist_to_zams' / ! end of pgstar namelist diff --git a/star/test_suite/make_sdb/README.rst b/star/test_suite/make_sdb/README.rst index d4149cc8d..5e92d2b3b 100644 --- a/star/test_suite/make_sdb/README.rst +++ b/star/test_suite/make_sdb/README.rst @@ -29,14 +29,14 @@ pgstar commands used for the plot above: pgstar_interval = 10 - Grid8_win_flag = .true. ! Summary_Burn, Abundance, HR, TRho, TRho_Profile, Text_Summary1 - Grid8_win_width = 12 - Grid8_title = 'make_sdb' - - Grid8_file_flag = .true. - Grid8_file_dir = 'pgstar_out' - Grid8_file_prefix = 'grid_' - Grid8_file_interval = 10000 + Grid_win_flag(8) = .true. ! Summary_Burn, Abundance, HR, TRho, TRho_Profile, Text_Summary1 + Grid_win_width(8) = 12 + Grid_title(8) = 'make_sdb' + + Grid_file_flag(8) = .true. + Grid_file_dir(8) = 'pgstar_out' + Grid_file_prefix(8) = 'grid_' + Grid_file_interval(8) = 10000 / ! end of pgstar namelist diff --git a/star/test_suite/make_sdb/inlist_make_sdb b/star/test_suite/make_sdb/inlist_make_sdb index 26f5c726b..d5675b587 100644 --- a/star/test_suite/make_sdb/inlist_make_sdb +++ b/star/test_suite/make_sdb/inlist_make_sdb @@ -90,14 +90,14 @@ &pgstar !pause = .true. - !Profile_Panels4_win_flag = .true. ! Abundance, Power, Mixing_Ds, and Dynamo - Profile_Panels4_num_panels = 3 - Profile_Panels4_title = 'Abundance-Power-Mixing' - !History_Panels1_win_flag = .true. ! logT, logRho, log_L, log_Teff - Grid8_win_flag = .true. ! Summary_Burn, Abundance, HR, TRho, TRho_Profile, Text_Summary1 + !Profile_Panels_win_flag(4) = .true. ! Abundance, Power, Mixing_Ds, and Dynamo + Profile_Panels_num_panels(4) = 3 + Profile_Panels_title(4) = 'Abundance-Power-Mixing' + !History_Panels_win_flag(1) = .true. ! logT, logRho, log_L, log_Teff + Grid_win_flag(8) = .true. ! Summary_Burn, Abundance, HR, TRho, TRho_Profile, Text_Summary1 - Profile_Panels4_xaxis_name = 'mass' - Profile_Panels4_xaxis_reversed = .false. + Profile_Panels_xaxis_name(4) = 'mass' + Profile_Panels_xaxis_reversed(4) = .false. / ! end of pgstar namelist diff --git a/star/test_suite/make_zams/inlist_zams b/star/test_suite/make_zams/inlist_zams index 037803e28..9c83d5b7a 100644 --- a/star/test_suite/make_zams/inlist_zams +++ b/star/test_suite/make_zams/inlist_zams @@ -94,43 +94,43 @@ HR_logL_max = 3.0 - Text_Summary1_win_flag = .false. - Text_Summary1_win_width = 10 - Text_Summary1_win_aspect_ratio = 0.15 - - Text_Summary1_xleft = 0.01 - Text_Summary1_xright = 0.99 - Text_Summary1_ybot = 0.0 - Text_Summary1_ytop = 1.0 - Text_Summary1_txt_scale = 1.0 - - Text_Summary1_num_rows = 1 ! <= 20 - Text_Summary1_num_cols = 3 ! <= 20 - Text_Summary1_name(:,:) = '' - - Text_Summary1_name(1,1) = 'star_mass' - Text_Summary1_name(1,2) = 'log_LH' - Text_Summary1_name(1,3) = 'num_zones' - - Grid1_title = 'make_zams' - Grid1_win_flag = .false. - Grid1_win_width = 15 - Grid1_win_aspect_ratio = 0.6 - - Grid1_plot_name(:) = '' - Grid1_plot_row(:) = 1 ! number from 1 at top - Grid1_plot_rowspan(:) = 1 ! plot spans this number of rows - Grid1_plot_col(:) = 1 ! number from 1 at left - Grid1_plot_colspan(:) = 1 ! plot spans this number of columns - Grid1_plot_pad_left(:) = 0.0 ! fraction of full window width for padding on left - Grid1_plot_pad_right(:) = 0.0 ! fraction of full window width for padding on right - Grid1_plot_pad_top(:) = 0.0 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(:) = 0.0 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(:) = 0.7 ! multiply txt_scale for subplot by this - - Grid1_num_cols = 6 ! divide plotting region into this many equal width cols - Grid1_num_rows = 2 ! divide plotting region into this many equal height rows - Grid1_num_plots = 10 ! <= 10 + Text_Summary_win_flag(1) = .false. + Text_Summary_win_width(1) = 10 + Text_Summary_win_aspect_ratio(1) = 0.15 + + Text_Summary_xleft(1) = 0.01 + Text_Summary_xright(1) = 0.99 + Text_Summary_ybot(1) = 0.0 + Text_Summary_ytop(1) = 1.0 + Text_Summary_txt_scale(1) = 1.0 + + Text_Summary_num_rows(1) = 1 ! <= 20 + Text_Summary_num_cols(1) = 3 ! <= 20 + Text_Summary_name(1,:,:) = '' + + Text_Summary_name(1,1,1) = 'star_mass' + Text_Summary_name(1,1,2) = 'log_LH' + Text_Summary_name(1,1,3) = 'num_zones' + + Grid_title(1) = 'make_zams' + Grid_win_flag(1) = .false. + Grid_win_width(1) = 15 + Grid_win_aspect_ratio(1) = 0.6 + + Grid_plot_name(1,:) = '' + Grid_plot_row(1,:) = 1 ! number from 1 at top + Grid_plot_rowspan(1,:) = 1 ! plot spans this number of rows + Grid_plot_col(1,:) = 1 ! number from 1 at left + Grid_plot_colspan(1,:) = 1 ! plot spans this number of columns + Grid_plot_pad_left(1,:) = 0.0 ! fraction of full window width for padding on left + Grid_plot_pad_right(1,:) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(1,:) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1,:) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1,:) = 0.7 ! multiply txt_scale for subplot by this + + Grid_num_cols(1) = 6 ! divide plotting region into this many equal width cols + Grid_num_rows(1) = 2 ! divide plotting region into this many equal height rows + Grid_num_plots(1) = 10 ! <= 10 pgstar_show_model_number = .true. pgstar_model_scale = 1.0 @@ -146,49 +146,49 @@ pgstar_age_coord = -0.10 pgstar_age_fjust = 0.0 - Grid1_plot_name(1) = 'Text_Summary1' - Grid1_plot_row(1) = 1 ! number from 1 at top - Grid1_plot_rowspan(1) = 1 ! plot spans this number of rows - Grid1_plot_col(1) = 1 ! number from 1 at left - Grid1_plot_colspan(1) = 6 ! plot spans this number of columns - - Grid1_plot_pad_left(1) = -0.06 ! fraction of full window width for padding on left - Grid1_plot_pad_right(1) = 0.05 ! fraction of full window width for padding on right - Grid1_plot_pad_top(1) = -0.02 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(1) = 0.39 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(1) = 1.2 ! multiply txt_scale for subplot by this - - - Grid1_plot_name(2) = 'Abundance' - Grid1_plot_row(2) = 1 ! number from 1 at top - Grid1_plot_rowspan(2) = 2 ! plot spans this number of rows - Grid1_plot_col(2) = 1 ! number from 1 at left - Grid1_plot_colspan(2) = 3 ! plot spans this number of columns - - Grid1_plot_pad_left(2) = -0.05 ! fraction of full window width for padding on left - Grid1_plot_pad_right(2) = 0.10 ! fraction of full window width for padding on right - Grid1_plot_pad_top(2) = 0.03 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(2) = 0.03 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this - - - Grid1_plot_name(3) = 'HR' - Grid1_plot_row(3) = 1 ! number from 1 at top - Grid1_plot_rowspan(3) = 2 ! plot spans this number of rows - Grid1_plot_col(3) = 5 ! Number from 1 at left - Grid1_plot_colspan(3) = 3 ! plot spans this number of columns - - Grid1_plot_pad_left(3) = -0.15 ! fraction of full window width for padding on left - Grid1_plot_pad_right(3) = 0.20 ! fraction of full window width for padding on right - Grid1_plot_pad_top(3) = 0.03 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(3) = 0.03 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(3) = 0.7 ! multiply txt_scale for subplot by this - - - Grid1_file_flag = .true. - Grid1_file_dir = 'pgstar_out' - Grid1_file_prefix = 'grid_' - Grid1_file_interval = 10000 - Grid1_file_width = -1 ! (inches) negative means use same value as for window + Grid_plot_name(1,1) = 'Text_Summary1' + Grid_plot_row(1,1) = 1 ! number from 1 at top + Grid_plot_rowspan(1,1) = 1 ! plot spans this number of rows + Grid_plot_col(1,1) = 1 ! number from 1 at left + Grid_plot_colspan(1,1) = 6 ! plot spans this number of columns + + Grid_plot_pad_left(1,1) = -0.06 ! fraction of full window width for padding on left + Grid_plot_pad_right(1,1) = 0.05 ! fraction of full window width for padding on right + Grid_plot_pad_top(1,1) = -0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1,1) = 0.39 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1,1) = 1.2 ! multiply txt_scale for subplot by this + + + Grid_plot_name(1,2) = 'Abundance' + Grid_plot_row(1,2) = 1 ! number from 1 at top + Grid_plot_rowspan(1,2) = 2 ! plot spans this number of rows + Grid_plot_col(1,2) = 1 ! number from 1 at left + Grid_plot_colspan(1,2) = 3 ! plot spans this number of columns + + Grid_plot_pad_left(1,2) = -0.05 ! fraction of full window width for padding on left + Grid_plot_pad_right(1,2) = 0.10 ! fraction of full window width for padding on right + Grid_plot_pad_top(1,2) = 0.03 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1,2) = 0.03 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1,2) = 0.7 ! multiply txt_scale for subplot by this + + + Grid_plot_name(1,3) = 'HR' + Grid_plot_row(1,3) = 1 ! number from 1 at top + Grid_plot_rowspan(1,3) = 2 ! plot spans this number of rows + Grid_plot_col(1,3) = 5 ! Number from 1 at left + Grid_plot_colspan(1,3) = 3 ! plot spans this number of columns + + Grid_plot_pad_left(1,3) = -0.15 ! fraction of full window width for padding on left + Grid_plot_pad_right(1,3) = 0.20 ! fraction of full window width for padding on right + Grid_plot_pad_top(1,3) = 0.03 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1,3) = 0.03 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1,3) = 0.7 ! multiply txt_scale for subplot by this + + + Grid_file_flag(1) = .true. + Grid_file_dir(1) = 'pgstar_out' + Grid_file_prefix(1) = 'grid_' + Grid_file_interval(1) = 10000 + Grid_file_width(1) = -1 ! (inches) negative means use same value as for window / ! end of pgstar namelist diff --git a/star/test_suite/make_zams_low_mass/README.rst b/star/test_suite/make_zams_low_mass/README.rst index b47a60fb5..262091cca 100644 --- a/star/test_suite/make_zams_low_mass/README.rst +++ b/star/test_suite/make_zams_low_mass/README.rst @@ -66,43 +66,43 @@ pgstar commands used for the plot above: HR_logL_min = -4.0 HR_logL_max = 0.0 - Text_Summary1_win_flag = .false. - Text_Summary1_win_width = 10 - Text_Summary1_win_aspect_ratio = 0.15 - - Text_Summary1_xleft = 0.01 - Text_Summary1_xright = 0.99 - Text_Summary1_ybot = 0.0 - Text_Summary1_ytop = 1.0 - Text_Summary1_txt_scale = 1.0 - - Text_Summary1_num_rows = 1 ! <= 20 - Text_Summary1_num_cols = 3 ! <= 20 - Text_Summary1_name(:,:) = '' - - Text_Summary1_name(1,1) = 'star_mass' - Text_Summary1_name(1,2) = 'log_LH' - Text_Summary1_name(1,3) = 'num_zones' - - Grid1_title = 'make_zams_low_mass' - Grid1_win_flag = .true. - Grid1_win_width = 15 - Grid1_win_aspect_ratio = 0.6 - - Grid1_plot_name(:) = '' - Grid1_plot_row(:) = 1 ! number from 1 at top - Grid1_plot_rowspan(:) = 1 ! plot spans this number of rows - Grid1_plot_col(:) = 1 ! number from 1 at left - Grid1_plot_colspan(:) = 1 ! plot spans this number of columns - Grid1_plot_pad_left(:) = 0.0 ! fraction of full window width for padding on left - Grid1_plot_pad_right(:) = 0.0 ! fraction of full window width for padding on right - Grid1_plot_pad_top(:) = 0.0 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(:) = 0.0 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(:) = 0.7 ! multiply txt_scale for subplot by this - - Grid1_num_cols = 6 ! divide plotting region into this many equal width cols - Grid1_num_rows = 2 ! divide plotting region into this many equal height rows - Grid1_num_plots = 10 ! <= 10 + Text_Summary_win_flag(1) = .false. + Text_Summary_win_width(1) = 10 + Text_Summary_win_aspect_ratio(1) = 0.15 + + Text_Summary_xleft(1) = 0.01 + Text_Summary_xright(1) = 0.99 + Text_Summary_ybot(1) = 0.0 + Text_Summary_ytop(1) = 1.0 + Text_Summary_txt_scale(1) = 1.0 + + Text_Summary_num_rows(1) = 1 ! <= 20 + Text_Summary_num_cols(1) = 3 ! <= 20 + Text_Summary_name(1, :, :) = '' + + Text_Summary_name(1, 1, 1) = 'star_mass' + Text_Summary_name(1, 1, 2) = 'log_LH' + Text_Summary_name(1, 1, 3) = 'num_zones' + + Grid_title(1) = 'make_zams_low_mass' + Grid_win_flag(1) = .true. + Grid_win_width(1) = 15 + Grid_win_aspect_ratio(1) = 0.6 + + Grid_plot_name(1, :) = '' + Grid_plot_row(1, :) = 1 ! number from 1 at top + Grid_plot_rowspan(1, :) = 1 ! plot spans this number of rows + Grid_plot_col(1, :) = 1 ! number from 1 at left + Grid_plot_colspan(1, :) = 1 ! plot spans this number of columns + Grid_plot_pad_left(1, :) = 0.0 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, :) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, :) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, :) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, :) = 0.7 ! multiply txt_scale for subplot by this + + Grid_num_cols(1) = 6 ! divide plotting region into this many equal width cols + Grid_num_rows(1) = 2 ! divide plotting region into this many equal height rows + Grid_num_plots(1) = 10 ! <= 10 pgstar_show_model_number = .true. pgstar_model_scale = 1.0 @@ -118,50 +118,50 @@ pgstar commands used for the plot above: pgstar_age_coord = -0.10 pgstar_age_fjust = 0.0 - Grid1_plot_name(1) = 'Text_Summary1' - Grid1_plot_row(1) = 1 ! number from 1 at top - Grid1_plot_rowspan(1) = 1 ! plot spans this number of rows - Grid1_plot_col(1) = 1 ! number from 1 at left - Grid1_plot_colspan(1) = 6 ! plot spans this number of columns - - Grid1_plot_pad_left(1) = -0.06 ! fraction of full window width for padding on left - Grid1_plot_pad_right(1) = 0.05 ! fraction of full window width for padding on right - Grid1_plot_pad_top(1) = -0.02 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(1) = 0.39 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(1) = 1.2 ! multiply txt_scale for subplot by this - - - Grid1_plot_name(2) = 'Abundance' - Grid1_plot_row(2) = 1 ! number from 1 at top - Grid1_plot_rowspan(2) = 2 ! plot spans this number of rows - Grid1_plot_col(2) = 1 ! number from 1 at left - Grid1_plot_colspan(2) = 3 ! plot spans this number of columns - - Grid1_plot_pad_left(2) = -0.05 ! fraction of full window width for padding on left - Grid1_plot_pad_right(2) = 0.10 ! fraction of full window width for padding on right - Grid1_plot_pad_top(2) = 0.03 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(2) = 0.03 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this - - - Grid1_plot_name(3) = 'HR' - Grid1_plot_row(3) = 1 ! number from 1 at top - Grid1_plot_rowspan(3) = 2 ! plot spans this number of rows - Grid1_plot_col(3) = 5 ! Number from 1 at left - Grid1_plot_colspan(3) = 3 ! plot spans this number of columns - - Grid1_plot_pad_left(3) = -0.15 ! fraction of full window width for padding on left - Grid1_plot_pad_right(3) = 0.20 ! fraction of full window width for padding on right - Grid1_plot_pad_top(3) = 0.03 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(3) = 0.03 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(3) = 0.7 ! multiply txt_scale for subplot by this - - - Grid1_file_flag = .true. - Grid1_file_dir = 'pgstar_out' - Grid1_file_prefix = 'grid_' - Grid1_file_interval = 10000 - Grid1_file_width = -1 ! (inches) negative means use same value as for window + Grid_plot_name(1, 1) = 'Text_Summary1' + Grid_plot_row(1, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(1, 1) = 1 ! plot spans this number of rows + Grid_plot_col(1, 1) = 1 ! number from 1 at left + Grid_plot_colspan(1, 1) = 6 ! plot spans this number of columns + + Grid_plot_pad_left(1, 1) = -0.06 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 1) = 0.05 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 1) = -0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 1) = 0.39 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 1) = 1.2 ! multiply txt_scale for subplot by this + + + Grid_plot_name(1, 2) = 'Abundance' + Grid_plot_row(1, 2) = 1 ! number from 1 at top + Grid_plot_rowspan(1, 2) = 2 ! plot spans this number of rows + Grid_plot_col(1, 2) = 1 ! number from 1 at left + Grid_plot_colspan(1, 2) = 3 ! plot spans this number of columns + + Grid_plot_pad_left(1, 2) = -0.05 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 2) = 0.10 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 2) = 0.03 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 2) = 0.03 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 2) = 0.7 ! multiply txt_scale for subplot by this + + + Grid_plot_name(1, 3) = 'HR' + Grid_plot_row(1, 3) = 1 ! number from 1 at top + Grid_plot_rowspan(1, 3) = 2 ! plot spans this number of rows + Grid_plot_col(1, 3) = 5 ! Number from 1 at left + Grid_plot_colspan(1, 3) = 3 ! plot spans this number of columns + + Grid_plot_pad_left(1, 3) = -0.15 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 3) = 0.20 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 3) = 0.03 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 3) = 0.03 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 3) = 0.7 ! multiply txt_scale for subplot by this + + + Grid_file_flag(1) = .true. + Grid_file_dir(1) = 'pgstar_out' + Grid_file_prefix(1) = 'grid_' + Grid_file_interval(1) = 10000 + Grid_file_width(1) = -1 ! (inches) negative means use same value as for window / ! end of pgstar namelist diff --git a/star/test_suite/make_zams_ultra_high_mass/README.rst b/star/test_suite/make_zams_ultra_high_mass/README.rst index 16d5ae958..94c2d1299 100644 --- a/star/test_suite/make_zams_ultra_high_mass/README.rst +++ b/star/test_suite/make_zams_ultra_high_mass/README.rst @@ -67,43 +67,43 @@ pgstar commands used for the plot above: HR_logL_min = 6.0 HR_logL_max = 7.0 - Text_Summary1_win_flag = .false. - Text_Summary1_win_width = 10 - Text_Summary1_win_aspect_ratio = 0.15 - - Text_Summary1_xleft = 0.01 - Text_Summary1_xright = 0.99 - Text_Summary1_ybot = 0.0 - Text_Summary1_ytop = 1.0 - Text_Summary1_txt_scale = 1.0 - - Text_Summary1_num_rows = 1 ! <= 20 - Text_Summary1_num_cols = 3 ! <= 20 - Text_Summary1_name(:,:) = '' - - Text_Summary1_name(1,1) = 'star_mass' - Text_Summary1_name(1,2) = 'log_LH' - Text_Summary1_name(1,3) = 'num_zones' - - Grid1_title = 'make_zams' - Grid1_win_flag = .true. - Grid1_win_width = 15 - Grid1_win_aspect_ratio = 0.6 - - Grid1_plot_name(:) = '' - Grid1_plot_row(:) = 1 ! number from 1 at top - Grid1_plot_rowspan(:) = 1 ! plot spans this number of rows - Grid1_plot_col(:) = 1 ! number from 1 at left - Grid1_plot_colspan(:) = 1 ! plot spans this number of columns - Grid1_plot_pad_left(:) = 0.0 ! fraction of full window width for padding on left - Grid1_plot_pad_right(:) = 0.0 ! fraction of full window width for padding on right - Grid1_plot_pad_top(:) = 0.0 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(:) = 0.0 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(:) = 0.7 ! multiply txt_scale for subplot by this - - Grid1_num_cols = 6 ! divide plotting region into this many equal width cols - Grid1_num_rows = 2 ! divide plotting region into this many equal height rows - Grid1_num_plots = 10 ! <= 10 + Text_Summary_win_flag(1) = .false. + Text_Summary_win_width(1) = 10 + Text_Summary_win_aspect_ratio(1) = 0.15 + + Text_Summary_xleft(1) = 0.01 + Text_Summary_xright(1) = 0.99 + Text_Summary_ybot(1) = 0.0 + Text_Summary_ytop(1) = 1.0 + Text_Summary_txt_scale(1) = 1.0 + + Text_Summary_num_rows(1) = 1 ! <= 20 + Text_Summary_num_cols(1) = 3 ! <= 20 + Text_Summary_name(1, :, :) = '' + + Text_Summary_name(1, 1, 1) = 'star_mass' + Text_Summary_name(1, 1, 2) = 'log_LH' + Text_Summary_name(1, 1, 3) = 'num_zones' + + Grid_title(1) = 'make_zams' + Grid_win_flag(1) = .true. + Grid_win_width(1) = 15 + Grid_win_aspect_ratio(1) = 0.6 + + Grid_plot_name(1, :) = '' + Grid_plot_row(1, :) = 1 ! number from 1 at top + Grid_plot_rowspan(1, :) = 1 ! plot spans this number of rows + Grid_plot_col(1, :) = 1 ! number from 1 at left + Grid_plot_colspan(1, :) = 1 ! plot spans this number of columns + Grid_plot_pad_left(1, :) = 0.0 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, :) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, :) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, :) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, :) = 0.7 ! multiply txt_scale for subplot by this + + Grid_num_cols(1) = 6 ! divide plotting region into this many equal width cols + Grid_num_rows(1) = 2 ! divide plotting region into this many equal height rows + Grid_num_plots(1) = 10 ! <= 10 pgstar_show_model_number = .true. pgstar_model_scale = 1.0 @@ -119,50 +119,50 @@ pgstar commands used for the plot above: pgstar_age_coord = -0.10 pgstar_age_fjust = 0.0 - Grid1_plot_name(1) = 'Text_Summary1' - Grid1_plot_row(1) = 1 ! number from 1 at top - Grid1_plot_rowspan(1) = 1 ! plot spans this number of rows - Grid1_plot_col(1) = 1 ! number from 1 at left - Grid1_plot_colspan(1) = 6 ! plot spans this number of columns - - Grid1_plot_pad_left(1) = -0.06 ! fraction of full window width for padding on left - Grid1_plot_pad_right(1) = 0.05 ! fraction of full window width for padding on right - Grid1_plot_pad_top(1) = -0.02 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(1) = 0.39 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(1) = 1.2 ! multiply txt_scale for subplot by this - - - Grid1_plot_name(2) = 'Abundance' - Grid1_plot_row(2) = 1 ! number from 1 at top - Grid1_plot_rowspan(2) = 2 ! plot spans this number of rows - Grid1_plot_col(2) = 1 ! number from 1 at left - Grid1_plot_colspan(2) = 3 ! plot spans this number of columns - - Grid1_plot_pad_left(2) = -0.05 ! fraction of full window width for padding on left - Grid1_plot_pad_right(2) = 0.10 ! fraction of full window width for padding on right - Grid1_plot_pad_top(2) = 0.03 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(2) = 0.03 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this - - - Grid1_plot_name(3) = 'HR' - Grid1_plot_row(3) = 1 ! number from 1 at top - Grid1_plot_rowspan(3) = 2 ! plot spans this number of rows - Grid1_plot_col(3) = 5 ! Number from 1 at left - Grid1_plot_colspan(3) = 3 ! plot spans this number of columns - - Grid1_plot_pad_left(3) = -0.15 ! fraction of full window width for padding on left - Grid1_plot_pad_right(3) = 0.20 ! fraction of full window width for padding on right - Grid1_plot_pad_top(3) = 0.03 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(3) = 0.03 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(3) = 0.7 ! multiply txt_scale for subplot by this - - - Grid1_file_flag = .true. - Grid1_file_dir = 'pgstar_out' - Grid1_file_prefix = 'grid_' - Grid1_file_interval = 10000 - Grid1_file_width = -1 ! (inches) negative means use same value as for window + Grid_plot_name(1, 1) = 'Text_Summary1' + Grid_plot_row(1, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(1, 1) = 1 ! plot spans this number of rows + Grid_plot_col(1, 1) = 1 ! number from 1 at left + Grid_plot_colspan(1, 1) = 6 ! plot spans this number of columns + + Grid_plot_pad_left(1, 1) = -0.06 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 1) = 0.05 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 1) = -0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 1) = 0.39 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 1) = 1.2 ! multiply txt_scale for subplot by this + + + Grid_plot_name(1, 2) = 'Abundance' + Grid_plot_row(1, 2) = 1 ! number from 1 at top + Grid_plot_rowspan(1, 2) = 2 ! plot spans this number of rows + Grid_plot_col(1, 2) = 1 ! number from 1 at left + Grid_plot_colspan(1, 2) = 3 ! plot spans this number of columns + + Grid_plot_pad_left(1, 2) = -0.05 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 2) = 0.10 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 2) = 0.03 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 2) = 0.03 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 2) = 0.7 ! multiply txt_scale for subplot by this + + + Grid_plot_name(1, 3) = 'HR' + Grid_plot_row(1, 3) = 1 ! number from 1 at top + Grid_plot_rowspan(1, 3) = 2 ! plot spans this number of rows + Grid_plot_col(1, 3) = 5 ! Number from 1 at left + Grid_plot_colspan(1, 3) = 3 ! plot spans this number of columns + + Grid_plot_pad_left(1, 3) = -0.15 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 3) = 0.20 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 3) = 0.03 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 3) = 0.03 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 3) = 0.7 ! multiply txt_scale for subplot by this + + + Grid_file_flag(1) = .true. + Grid_file_dir(1) = 'pgstar_out' + Grid_file_prefix(1) = 'grid_' + Grid_file_interval(1) = 10000 + Grid_file_width(1) = -1 ! (inches) negative means use same value as for window / ! end of pgstar namelist diff --git a/star/test_suite/ns_c/README.rst b/star/test_suite/ns_c/README.rst index 57316c5a2..39f3363b0 100644 --- a/star/test_suite/ns_c/README.rst +++ b/star/test_suite/ns_c/README.rst @@ -40,126 +40,126 @@ pgstar commands used for the plot above: Power_xmin = -10.0 Power_xmax = -6.0 - Profile_Panels1_title = '' - Profile_Panels1_num_panels = 2 - - Profile_Panels1_xaxis_name = 'logxm' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101d0 - Profile_Panels1_xmax = -101d0 - - Profile_Panels1_yaxis_name(1) = 'logRho' - Profile_Panels1_yaxis_name(2) = 'logT' - Profile_Panels1_ymin(1) = -101 - - Profile_Panels1_other_yaxis_name(1) = 'logP' - Profile_Panels1_other_yaxis_name(2) = 'entropy' - Profile_Panels1_other_ymin(1) = -101 - - Profile_Panels2_title = '' - Profile_Panels2_num_panels = 2 - - Profile_Panels2_xaxis_name = 'logxm' - Profile_Panels2_xaxis_reversed = .true. - Profile_Panels2_xmin = -101d0 - Profile_Panels2_xmax = -101d0 - - Profile_Panels2_yaxis_name(1) = 'luminosity' - Profile_Panels2_yaxis_name(2) = 'net_nuclear_energy' - Profile_Panels2_ymin(1) = -101 - Profile_Panels2_ymin(2) = -101 - - Profile_Panels2_other_yaxis_name(1) = 'opacity' - Profile_Panels2_other_yaxis_name(2) = 'eps_nuc_neu_total' - Profile_Panels2_other_ymin(1) = -101 - Profile_Panels2_other_ymin(2) = -101 - - Text_Summary1_txt_scale = 5.5 - - Text_Summary1_num_rows = 5 - Text_Summary1_num_cols = 3 - Text_Summary1_name(1, 1) = 'model_number' - Text_Summary1_name(2, 1) = 'star_age_sec' - Text_Summary1_name(3, 1) = 'time_step_sec' - Text_Summary1_name(4, 1) = 'log_rel_run_E_err' - Text_Summary1_name(5, 1) = 'total_energy' - Text_Summary1_name(1, 2) = 'log_power_nuc_burn' - Text_Summary1_name(2, 2) = 'log_abs_mdot' - Text_Summary1_name(3, 2) = 'log_xmstar' - Text_Summary1_name(4, 2) = 'm_center' - Text_Summary1_name(5, 2) = 'r_center_km' - Text_Summary1_name(1, 3) = 'num_zones' - Text_Summary1_name(2, 3) = 'num_iters' - Text_Summary1_name(3, 3) = 'num_retries' - Text_Summary1_name(4, 3) = ' ' - Text_Summary1_name(5, 3) = ' ' - - Grid2_title = 'ns_c' - Grid2_plot_name(1) = 'Profile_Panels1' - Grid2_plot_name(2) = 'Text_Summary1' - Grid2_plot_name(3) = 'Abundance' - Grid2_plot_name(4) = 'Power' - Grid2_plot_name(5) = 'Profile_Panels2' - Grid2_plot_row(1) = 1 - Grid2_plot_row(2) = 7 - Grid2_plot_row(3) = 1 - Grid2_plot_row(4) = 5 - Grid2_plot_row(5) = 1 - Grid2_plot_rowspan(1) = 6 - Grid2_plot_rowspan(2) = 2 - Grid2_plot_rowspan(3) = 4 - Grid2_plot_rowspan(4) = 4 - Grid2_plot_rowspan(5) = 6 - Grid2_plot_col(1) = 1 - Grid2_plot_col(2) = 1 - Grid2_plot_col(3) = 5 - Grid2_plot_col(4) = 5 - Grid2_plot_col(5) = 3 - Grid2_plot_colspan(1) = 2 - Grid2_plot_colspan(2) = 4 - Grid2_plot_colspan(3) = 3 - Grid2_plot_colspan(4) = 3 - Grid2_plot_colspan(5) = 2 - Grid2_plot_pad_left(1) = -0.02 - Grid2_plot_pad_left(2) = -0.08 - Grid2_plot_pad_left(3) = 0.14 - Grid2_plot_pad_left(4) = 0.14 - Grid2_plot_pad_left(5) = 0.06 - Grid2_plot_pad_right(1) = 0.07 - Grid2_plot_pad_right(2) = -0.12 - Grid2_plot_pad_right(3) = 0 - Grid2_plot_pad_right(4) = 0 - Grid2_plot_pad_right(5) = -0.01 - Grid2_plot_pad_top(1) = 0 - Grid2_plot_pad_top(2) = 0.08 - Grid2_plot_pad_top(3) = 0 - Grid2_plot_pad_top(4) = 0.06 - Grid2_plot_pad_top(5) = 0 - Grid2_plot_pad_bot(1) = 0 - Grid2_plot_pad_bot(2) = -0.04 - Grid2_plot_pad_bot(3) = 0.09 - Grid2_plot_pad_bot(4) = 0.03 - Grid2_plot_pad_bot(5) = 0 - Grid2_txt_scale_factor(1) = 0.65 - Grid2_txt_scale_factor(2) = 0.19 - Grid2_txt_scale_factor(3) = 0.65 - Grid2_txt_scale_factor(4) = 0.65 - Grid2_txt_scale_factor(5) = 0.65 - - Grid2_num_cols = 7 - Grid2_num_rows = 8 - Grid2_num_plots = 5 + Profile_Panels_title(1) = '' + Profile_Panels_num_panels(1) = 2 + + Profile_Panels_xaxis_name(1) = 'logxm' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101d0 + Profile_Panels_xmax(1) = -101d0 + + Profile_Panels_yaxis_name(1, 1) = 'logRho' + Profile_Panels_yaxis_name(1, 2) = 'logT' + Profile_Panels_ymin(1, 1) = -101 + + Profile_Panels_other_yaxis_name(1, 1) = 'logP' + Profile_Panels_other_yaxis_name(1, 2) = 'entropy' + Profile_Panels_other_ymin(1, 1) = -101 + + Profile_Panels_title(2) = '' + Profile_Panels_num_panels(2) = 2 + + Profile_Panels_xaxis_name(2) = 'logxm' + Profile_Panels_xaxis_reversed(2) = .true. + Profile_Panels_xmin(2) = -101d0 + Profile_Panels_xmax(2) = -101d0 + + Profile_Panels_yaxis_name(2, 1) = 'luminosity' + Profile_Panels_yaxis_name(2, 2) = 'net_nuclear_energy' + Profile_Panels_ymin(2, 1) = -101 + Profile_Panels_ymin(2, 2) = -101 + + Profile_Panels_other_yaxis_name(2, 1) = 'opacity' + Profile_Panels_other_yaxis_name(2, 2) = 'eps_nuc_neu_total' + Profile_Panels_other_ymin(2, 1) = -101 + Profile_Panels_other_ymin(2, 2) = -101 + + Text_Summary_txt_scale(1) = 5.5 + + Text_Summary_num_rows(1) = 5 + Text_Summary_num_cols(1) = 3 + Text_Summary_name(1, 1, 1) = 'model_number' + Text_Summary_name(1, 2, 1) = 'star_age_sec' + Text_Summary_name(1, 3, 1) = 'time_step_sec' + Text_Summary_name(1, 4, 1) = 'log_rel_run_E_err' + Text_Summary_name(1, 5, 1) = 'total_energy' + Text_Summary_name(1, 1, 2) = 'log_power_nuc_burn' + Text_Summary_name(1, 2, 2) = 'log_abs_mdot' + Text_Summary_name(1, 3, 2) = 'log_xmstar' + Text_Summary_name(1, 4, 2) = 'm_center' + Text_Summary_name(1, 5, 2) = 'r_center_km' + Text_Summary_name(1, 1, 3) = 'num_zones' + Text_Summary_name(1, 2, 3) = 'num_iters' + Text_Summary_name(1, 3, 3) = 'num_retries' + Text_Summary_name(1, 4, 3) = ' ' + Text_Summary_name(1, 5, 3) = ' ' + + Grid_title(2) = 'ns_c' + Grid_plot_name(2, 1) = 'Profile_Panels1' + Grid_plot_name(2, 2) = 'Text_Summary1' + Grid_plot_name(2, 3) = 'Abundance' + Grid_plot_name(2, 4) = 'Power' + Grid_plot_name(2, 5) = 'Profile_Panels2' + Grid_plot_row(2, 1) = 1 + Grid_plot_row(2, 2) = 7 + Grid_plot_row(2, 3) = 1 + Grid_plot_row(2, 4) = 5 + Grid_plot_row(2, 5) = 1 + Grid_plot_rowspan(2, 1) = 6 + Grid_plot_rowspan(2, 2) = 2 + Grid_plot_rowspan(2, 3) = 4 + Grid_plot_rowspan(2, 4) = 4 + Grid_plot_rowspan(2, 5) = 6 + Grid_plot_col(2, 1) = 1 + Grid_plot_col(2, 2) = 1 + Grid_plot_col(2, 3) = 5 + Grid_plot_col(2, 4) = 5 + Grid_plot_col(2, 5) = 3 + Grid_plot_colspan(2, 1) = 2 + Grid_plot_colspan(2, 2) = 4 + Grid_plot_colspan(2, 3) = 3 + Grid_plot_colspan(2, 4) = 3 + Grid_plot_colspan(2, 5) = 2 + Grid_plot_pad_left(2, 1) = -0.02 + Grid_plot_pad_left(2, 2) = -0.08 + Grid_plot_pad_left(2, 3) = 0.14 + Grid_plot_pad_left(2, 4) = 0.14 + Grid_plot_pad_left(2, 5) = 0.06 + Grid_plot_pad_right(2, 1) = 0.07 + Grid_plot_pad_right(2, 2) = -0.12 + Grid_plot_pad_right(2, 3) = 0 + Grid_plot_pad_right(2, 4) = 0 + Grid_plot_pad_right(2, 5) = -0.01 + Grid_plot_pad_top(2, 1) = 0 + Grid_plot_pad_top(2, 2) = 0.08 + Grid_plot_pad_top(2, 3) = 0 + Grid_plot_pad_top(2, 4) = 0.06 + Grid_plot_pad_top(2, 5) = 0 + Grid_plot_pad_bot(2, 1) = 0 + Grid_plot_pad_bot(2, 2) = -0.04 + Grid_plot_pad_bot(2, 3) = 0.09 + Grid_plot_pad_bot(2, 4) = 0.03 + Grid_plot_pad_bot(2, 5) = 0 + Grid_txt_scale_factor(2, 1) = 0.65 + Grid_txt_scale_factor(2, 2) = 0.19 + Grid_txt_scale_factor(2, 3) = 0.65 + Grid_txt_scale_factor(2, 4) = 0.65 + Grid_txt_scale_factor(2, 5) = 0.65 + + Grid_num_cols(2) = 7 + Grid_num_rows(2) = 8 + Grid_num_plots(2) = 5 - Grid2_win_flag = .true. - Grid2_win_width = 16 - Grid2_win_aspect_ratio = 0.6 + Grid_win_flag(2) = .true. + Grid_win_width(2) = 16 + Grid_win_aspect_ratio(2) = 0.6 - Grid2_file_flag = .true. - Grid2_file_dir = 'pgstar_out' - Grid2_file_prefix = 'grid_' - Grid2_file_interval = 10000 - Grid2_file_width = 20 - Grid2_file_aspect_ratio = -1 + Grid_file_flag(2) = .true. + Grid_file_dir(2) = 'pgstar_out' + Grid_file_prefix(2) = 'grid_' + Grid_file_interval(2) = 10000 + Grid_file_width(2) = 20 + Grid_file_aspect_ratio(2) = -1 / ! end of pgstar namelist diff --git a/star/test_suite/ns_c/inlist_pgstar b/star/test_suite/ns_c/inlist_pgstar index 57b9d83be..75f0c7213 100644 --- a/star/test_suite/ns_c/inlist_pgstar +++ b/star/test_suite/ns_c/inlist_pgstar @@ -15,208 +15,208 @@ pgstar_show_age = .false. !------------------------------------------------------------------------------------ -Grid1_win_flag = .true. -Grid1_win_width = 12 -Grid1_win_aspect_ratio = 0.666 +Grid_win_flag(1) = .true. +Grid_win_width(1) = 12 +Grid_win_aspect_ratio(1) = 0.666 ! file output -!Grid1_file_flag = .true. -Grid1_file_dir = 'png' -Grid1_file_prefix = 'black_hole_' -Grid1_file_interval = 25 ! output when mod(model_number,Grid1_file_interval)==0 -Grid1_file_width = -1 ! (inches) negative means use same value as for window -Grid1_file_aspect_ratio = -1 ! negative means use same value as for window +!Grid_file_flag(1) = .true. +Grid_file_dir(1) = 'png' +Grid_file_prefix(1) = 'black_hole_' +Grid_file_interval(1) = 25 ! output when mod(model_number,Grid_file_interval(1))==0 +Grid_file_width(1) = -1 ! (inches) negative means use same value as for window +Grid_file_aspect_ratio(1) = -1 ! negative means use same value as for window ! reset the defaults -Grid1_plot_name(:) = '' -Grid1_plot_row(:) = 1 ! number from 1 at top -Grid1_plot_rowspan(:) = 1 ! plot spans this number of rows -Grid1_plot_col(:) = 1 ! number from 1 at left -Grid1_plot_colspan(:) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(:) = 0.0 ! fraction of full window width for padding on left -Grid1_plot_pad_right(:) = 0.0 ! fraction of full window width for padding on right -Grid1_plot_pad_top(:) = 0.0 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(:) = 0.0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(:) = 0.7 ! multiply txt_scale for subplot by this +Grid_plot_name(1, :) = '' +Grid_plot_row(1, :) = 1 ! number from 1 at top +Grid_plot_rowspan(1, :) = 1 ! plot spans this number of rows +Grid_plot_col(1, :) = 1 ! number from 1 at left +Grid_plot_colspan(1, :) = 1 ! plot spans this number of columns +Grid_plot_pad_left(1, :) = 0.0 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, :) = 0.0 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, :) = 0.0 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, :) = 0.0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, :) = 0.7 ! multiply txt_scale for subplot by this -Grid1_title = '' +Grid_title(1) = '' -Grid1_num_cols = 3 ! divide plotting region into this many equal width cols -Grid1_num_rows = 5 ! divide plotting region into this many equal height rows -Grid1_num_plots = 6 ! <= 10 +Grid_num_cols(1) = 3 ! divide plotting region into this many equal width cols +Grid_num_rows(1) = 5 ! divide plotting region into this many equal height rows +Grid_num_plots(1) = 6 ! <= 10 -Grid1_plot_name(1) = 'Text_Summary1' -Grid1_plot_row(1) = 1 ! number from 1 at top -Grid1_plot_rowspan(1) = 1 ! plot spans this number of rows -Grid1_plot_col(1) = 1 ! number from 1 at left -Grid1_plot_colspan(1) = 3 ! plot spans this number of columns +Grid_plot_name(1, 1) = 'Text_Summary1' +Grid_plot_row(1, 1) = 1 ! number from 1 at top +Grid_plot_rowspan(1, 1) = 1 ! plot spans this number of rows +Grid_plot_col(1, 1) = 1 ! number from 1 at left +Grid_plot_colspan(1, 1) = 3 ! plot spans this number of columns -Grid1_plot_pad_left(1) = -0.03 ! fraction of full window width for padding on left -Grid1_plot_pad_right(1) = 0.0 ! fraction of full window width for padding on right -Grid1_plot_pad_top(1) = -0.06 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(1) = 0.07 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(1) = 1 ! 0.8 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 1) = -0.03 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 1) = 0.0 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 1) = -0.06 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 1) = 0.07 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 1) = 1 ! 0.8 ! multiply txt_scale for subplot by this -Grid1_plot_name(3) = 'TRho' -Grid1_plot_row(3) = 2 ! number from 1 at top -Grid1_plot_rowspan(3) = 1 ! plot spans this number of rows -Grid1_plot_col(3) = 1 ! number from 1 at left -Grid1_plot_colspan(3) = 1 ! plot spans this number of columns +Grid_plot_name(1, 3) = 'TRho' +Grid_plot_row(1, 3) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 3) = 1 ! plot spans this number of rows +Grid_plot_col(1, 3) = 1 ! number from 1 at left +Grid_plot_colspan(1, 3) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(3) = 0.00 ! fraction of full window width for padding on left -Grid1_plot_pad_right(3) = 0.08 ! fraction of full window width for padding on right -Grid1_plot_pad_top(3) = -0.04 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(3) = 0.01 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(3) = 0.7 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 3) = 0.00 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 3) = 0.08 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 3) = -0.04 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 3) = 0.01 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 3) = 0.7 ! multiply txt_scale for subplot by this -Grid1_plot_name(5) = 'Profile_Panels1' -Grid1_plot_row(5) = 3 ! number from 1 at top -Grid1_plot_rowspan(5) = 3 ! plot spans this number of rows -Grid1_plot_col(5) = 1 ! number from 1 at left -Grid1_plot_colspan(5) = 1 ! plot spans this number of columns +Grid_plot_name(1, 5) = 'Profile_Panels1' +Grid_plot_row(1, 5) = 3 ! number from 1 at top +Grid_plot_rowspan(1, 5) = 3 ! plot spans this number of rows +Grid_plot_col(1, 5) = 1 ! number from 1 at left +Grid_plot_colspan(1, 5) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(5) = 0.00 ! fraction of full window width for padding on left -Grid1_plot_pad_right(5) = 0.10 ! fraction of full window width for padding on right -Grid1_plot_pad_top(5) = 0.05 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(5) = 0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(5) = 0.6 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 5) = 0.00 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 5) = 0.10 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 5) = 0.05 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 5) = 0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 5) = 0.6 ! multiply txt_scale for subplot by this -Grid1_plot_name(2) = 'TRho_Profile' -Grid1_plot_row(2) = 2 ! number from 1 at top -Grid1_plot_rowspan(2) = 1 ! plot spans this number of rows -Grid1_plot_col(2) = 2 ! number from 1 at left -Grid1_plot_colspan(2) = 1 ! plot spans this number of columns +Grid_plot_name(1, 2) = 'TRho_Profile' +Grid_plot_row(1, 2) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 2) = 1 ! plot spans this number of rows +Grid_plot_col(1, 2) = 2 ! number from 1 at left +Grid_plot_colspan(1, 2) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(2) = -0.01 ! fraction of full window width for padding on left -Grid1_plot_pad_right(2) = 0.06 ! fraction of full window width for padding on right -Grid1_plot_pad_top(2) = -0.04 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(2) = 0.01 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 2) = -0.01 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 2) = 0.06 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 2) = -0.04 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 2) = 0.01 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 2) = 0.7 ! multiply txt_scale for subplot by this -Grid1_plot_name(4) = 'History_Panels1' -Grid1_plot_row(4) = 3 ! number from 1 at top -Grid1_plot_rowspan(4) = 3 ! plot spans this number of rows -Grid1_plot_col(4) = 2 ! number from 1 at left -Grid1_plot_colspan(4) = 1 ! plot spans this number of columns +Grid_plot_name(1, 4) = 'History_Panels1' +Grid_plot_row(1, 4) = 3 ! number from 1 at top +Grid_plot_rowspan(1, 4) = 3 ! plot spans this number of rows +Grid_plot_col(1, 4) = 2 ! number from 1 at left +Grid_plot_colspan(1, 4) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(4) = 0.00 ! fraction of full window width for padding on left -Grid1_plot_pad_right(4) = 0.06 ! fraction of full window width for padding on right -Grid1_plot_pad_top(4) = 0.05 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(4) = 0.0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(4) = 0.6 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 4) = 0.00 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 4) = 0.06 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 4) = 0.05 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 4) = 0.0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 4) = 0.6 ! multiply txt_scale for subplot by this -Grid1_plot_name(6) = 'Profile_Panels3' -Grid1_plot_row(6) = 2 ! number from 1 at top -Grid1_plot_rowspan(6) = 4 ! plot spans this number of rows -Grid1_plot_col(6) = 3 ! Number from 1 at left -Grid1_plot_colspan(6) = 1 ! plot spans this number of columns +Grid_plot_name(1, 6) = 'Profile_Panels3' +Grid_plot_row(1, 6) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 6) = 4 ! plot spans this number of rows +Grid_plot_col(1, 6) = 3 ! Number from 1 at left +Grid_plot_colspan(1, 6) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(6) = 0.04 ! fraction of full window width for padding on left -Grid1_plot_pad_right(6) = 0.06 ! fraction of full window width for padding on right -Grid1_plot_pad_top(6) = -0.04 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(6) = 0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(6) = 0.6 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 6) = 0.04 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 6) = 0.06 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 6) = -0.04 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 6) = 0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 6) = 0.6 ! multiply txt_scale for subplot by this !------------------------------------------------------------------------------------ -Profile_Panels3_win_flag = .false. +Profile_Panels_win_flag(3) = .false. -Profile_Panels3_title = '' +Profile_Panels_title(3) = '' -Profile_Panels3_num_panels = 4 +Profile_Panels_num_panels(3) = 4 -Profile_Panels3_yaxis_name(1) = 'Abundance' +Profile_Panels_yaxis_name(3, 1) = 'Abundance' -Profile_Panels3_yaxis_name(2) = 'Power' +Profile_Panels_yaxis_name(3, 2) = 'Power' -Profile_Panels3_yaxis_name(3) = 'Mixing' +Profile_Panels_yaxis_name(3, 3) = 'Mixing' Mixing_legend_txt_scale_factor = 0.9 -Profile_Panels3_txt_scale = 0.7 +Profile_Panels_txt_scale(3) = 0.7 -Profile_Panels3_yaxis_name(4) = 'logT' -Profile_Panels3_other_yaxis_name(4) = 'burn_num_iters' -Profile_Panels3_other_ymin(4) = -101d0 -Profile_Panels3_other_ymax(4) = -101d0 +Profile_Panels_yaxis_name(3, 4) = 'logT' +Profile_Panels_other_yaxis_name(3, 4) = 'burn_num_iters' +Profile_Panels_other_ymin(3, 4) = -101d0 +Profile_Panels_other_ymax(3, 4) = -101d0 ! x-axis limits and properties -Profile_Panels3_xaxis_name = 'mass' -Profile_Panels3_xmin = 0.0 -Profile_Panels3_xmax = -101d0 ! 2.2 -Profile_Panels3_xaxis_reversed = .false. +Profile_Panels_xaxis_name(3) = 'mass' +Profile_Panels_xmin(3) = 0.0 +Profile_Panels_xmax(3) = -101d0 ! 2.2 +Profile_Panels_xaxis_reversed(3) = .false. -!Profile_Panels3_xaxis_name = 'zone' -!Profile_Panels3_xmin = 800 -!Profile_Panels3_xmax = 1100 -!Profile_Panels3_xaxis_reversed = .true. +!Profile_Panels_xaxis_name(3) = 'zone' +!Profile_Panels_xmin(3) = 800 +!Profile_Panels_xmax(3) = 1100 +!Profile_Panels_xaxis_reversed(3) = .true. -!Profile_Panels3_show_grid = .true. -Profile_Panels3_show_mix_regions_on_xaxis = .true. +!Profile_Panels_show_grid(3) = .true. +Profile_Panels_show_mix_regions_on_xaxis(3) = .true. !------------------------------------------------------------------------------------ -!Profile_Panels1_win_flag = .true. -!Profile_Panels1_file_flag = .true. - Profile_Panels1_file_dir = 'png' - Profile_Panels1_file_prefix = 'profile_panels1_' - Profile_Panels1_file_interval = 1 - Profile_Panels1_file_width = -1 - Profile_Panels1_file_aspect_ratio = -1 +!Profile_Panels_win_flag(1) = .true. +!Profile_Panels_file_flag(1) = .true. + Profile_Panels_file_dir(1) = 'png' + Profile_Panels_file_prefix(1) = 'profile_panels1_' + Profile_Panels_file_interval(1) = 1 + Profile_Panels_file_width(1) = -1 + Profile_Panels_file_aspect_ratio(1) = -1 -Profile_Panels1_title = '' +Profile_Panels_title(1) = '' -Profile_Panels1_txt_scale = 0.7 +Profile_Panels_txt_scale(1) = 0.7 -Profile_Panels1_num_panels = 5 +Profile_Panels_num_panels(1) = 5 -Profile_Panels1_yaxis_name(1) = 'logT' -Profile_Panels1_other_yaxis_name(1) = 'logRho' +Profile_Panels_yaxis_name(1, 1) = 'logT' +Profile_Panels_other_yaxis_name(1, 1) = 'logRho' -Profile_Panels1_yaxis_name(2) = 'v' -Profile_Panels1_ymin(2) = 0 -Profile_Panels1_ymax(2) = 2.2 -Profile_Panels1_other_yaxis_name(2) = 'v_div_csound' -Profile_Panels1_other_ymin(2) = 0 -Profile_Panels1_other_ymax(2) = 1.1 +Profile_Panels_yaxis_name(1, 2) = 'v' +Profile_Panels_ymin(1, 2) = 0 +Profile_Panels_ymax(1, 2) = 2.2 +Profile_Panels_other_yaxis_name(1, 2) = 'v_div_csound' +Profile_Panels_other_ymin(1, 2) = 0 +Profile_Panels_other_ymax(1, 2) = 1.1 -Profile_Panels1_yaxis_name(3) = 'gradT' -Profile_Panels1_ymin(3) = 0.18 -Profile_Panels1_ymax(3) = 0.34 -Profile_Panels1_other_yaxis_name(3) = 'grada' -Profile_Panels1_other_ymin(3) = 0.18 -Profile_Panels1_other_ymax(3) = 0.34 +Profile_Panels_yaxis_name(1, 3) = 'gradT' +Profile_Panels_ymin(1, 3) = 0.18 +Profile_Panels_ymax(1, 3) = 0.34 +Profile_Panels_other_yaxis_name(1, 3) = 'grada' +Profile_Panels_other_ymin(1, 3) = 0.18 +Profile_Panels_other_ymax(1, 3) = 0.34 -Profile_Panels1_yaxis_name(4) = 'log_opacity' -Profile_Panels1_other_yaxis_name(4) = 'gradr' +Profile_Panels_yaxis_name(1, 4) = 'log_opacity' +Profile_Panels_other_yaxis_name(1, 4) = 'gradr' -Profile_Panels1_yaxis_name(5) = 'entropy' -Profile_Panels1_other_yaxis_name(5) = 'pgas_div_ptotal' +Profile_Panels_yaxis_name(1, 5) = 'entropy' +Profile_Panels_other_yaxis_name(1, 5) = 'pgas_div_ptotal' ! x-axis limits and properties -Profile_Panels1_xaxis_name = 'logtau' -Profile_Panels1_xmin = -101d0 -Profile_Panels1_xmax = 6.1 -Profile_Panels1_xaxis_reversed = .true. +Profile_Panels_xaxis_name(1) = 'logtau' +Profile_Panels_xmin(1) = -101d0 +Profile_Panels_xmax(1) = 6.1 +Profile_Panels_xaxis_reversed(1) = .true. -!Profile_Panels1_xaxis_name = 'zone' -!Profile_Panels1_xmin = 15 -!Profile_Panels1_xmax = 270 -!Profile_Panels1_xaxis_reversed = .true. +!Profile_Panels_xaxis_name(1) = 'zone' +!Profile_Panels_xmin(1) = 15 +!Profile_Panels_xmax(1) = 270 +!Profile_Panels_xaxis_reversed(1) = .true. -!Profile_Panels1_show_grid = .true. -Profile_Panels1_show_mix_regions_on_xaxis = .true. +!Profile_Panels_show_grid(1) = .true. +Profile_Panels_show_mix_regions_on_xaxis(1) = .true. !------------------------------------------------------------------------------------ @@ -308,56 +308,56 @@ profile_mass_point_str_clr(3) = 1 ! Text_Summary windows -Text_Summary1_win_flag = .false. -Text_Summary1_win_width = 10 -Text_Summary1_win_aspect_ratio = 0.15 - -Text_Summary1_xleft = 0.01 -Text_Summary1_xright = 0.99 -Text_Summary1_ybot = 0.0 -Text_Summary1_ytop = 1.0 -Text_Summary1_txt_scale = 0.95 -Text_Summary1_title = '' - -Text_Summary1_num_rows = 6 ! <= 20 -Text_Summary1_num_cols = 5 ! <= 20 -Text_Summary1_name(:,:) = '' - -Text_Summary1_name(1,1) = 'model_number' -Text_Summary1_name(1,2) = 'Teff' -Text_Summary1_name(1,3) = 'Mass' -Text_Summary1_name(1,4) = 'H_cntr' -Text_Summary1_name(1,5) = 'H_rich' - -Text_Summary1_name(2,1) = 'log_dt' -Text_Summary1_name(2,2) = 'log_R' -Text_Summary1_name(2,3) = 'lg_Mdot' -Text_Summary1_name(2,4) = 'He_cntr' -Text_Summary1_name(2,5) = 'He_core' - -Text_Summary1_name(3,1) = 'star_age' -Text_Summary1_name(3,2) = 'log_L' -Text_Summary1_name(3,3) = 'eta_cntr' -Text_Summary1_name(3,4) = 'C_cntr' -Text_Summary1_name(3,5) = 'co_core_mass' - -Text_Summary1_name(4,1) = 'log_max_T' -Text_Summary1_name(4,2) = 'log_LH' -Text_Summary1_name(4,3) = 'lg_Lnuc' -Text_Summary1_name(4,4) = 'O_cntr' -Text_Summary1_name(4,5) = 'Fe_core' - -Text_Summary1_name(5,1) = 'log_cntr_T' -Text_Summary1_name(5,2) = 'log_LHe' -Text_Summary1_name(5,3) = 'lg_Lneu' -Text_Summary1_name(5,4) = 'Ne_cntr' -Text_Summary1_name(5,5) = 'zones' - -Text_Summary1_name(6,1) = 'log_cntr_Rho' -Text_Summary1_name(6,2) = 'log_LZ' -Text_Summary1_name(6,3) = 'lg_Lphoto' -Text_Summary1_name(6,4) = 'Si_cntr' -Text_Summary1_name(6,5) = 'retries' +Text_Summary_win_flag(1) = .false. +Text_Summary_win_width(1) = 10 +Text_Summary_win_aspect_ratio(1) = 0.15 + +Text_Summary_xleft(1) = 0.01 +Text_Summary_xright(1) = 0.99 +Text_Summary_ybot(1) = 0.0 +Text_Summary_ytop(1) = 1.0 +Text_Summary_txt_scale(1) = 0.95 +Text_Summary_title(1) = '' + +Text_Summary_num_rows(1) = 6 ! <= 20 +Text_Summary_num_cols(1) = 5 ! <= 20 +Text_Summary_name(1, :, :) = '' + +Text_Summary_name(1, 1, 1) = 'model_number' +Text_Summary_name(1, 1, 2) = 'Teff' +Text_Summary_name(1, 1, 3) = 'Mass' +Text_Summary_name(1, 1, 4) = 'H_cntr' +Text_Summary_name(1, 1, 5) = 'H_rich' + +Text_Summary_name(1, 2, 1) = 'log_dt' +Text_Summary_name(1, 2, 2) = 'log_R' +Text_Summary_name(1, 2, 3) = 'lg_Mdot' +Text_Summary_name(1, 2, 4) = 'He_cntr' +Text_Summary_name(1, 2, 5) = 'He_core' + +Text_Summary_name(1, 3, 1) = 'star_age' +Text_Summary_name(1, 3, 2) = 'log_L' +Text_Summary_name(1, 3, 3) = 'eta_cntr' +Text_Summary_name(1, 3, 4) = 'C_cntr' +Text_Summary_name(1, 3, 5) = 'co_core_mass' + +Text_Summary_name(1, 4, 1) = 'log_max_T' +Text_Summary_name(1, 4, 2) = 'log_LH' +Text_Summary_name(1, 4, 3) = 'lg_Lnuc' +Text_Summary_name(1, 4, 4) = 'O_cntr' +Text_Summary_name(1, 4, 5) = 'Fe_core' + +Text_Summary_name(1, 5, 1) = 'log_cntr_T' +Text_Summary_name(1, 5, 2) = 'log_LHe' +Text_Summary_name(1, 5, 3) = 'lg_Lneu' +Text_Summary_name(1, 5, 4) = 'Ne_cntr' +Text_Summary_name(1, 5, 5) = 'zones' + +Text_Summary_name(1, 6, 1) = 'log_cntr_Rho' +Text_Summary_name(1, 6, 2) = 'log_LZ' +Text_Summary_name(1, 6, 3) = 'lg_Lphoto' +Text_Summary_name(1, 6, 4) = 'Si_cntr' +Text_Summary_name(1, 6, 5) = 'retries' !------------------------------------------------------------------------------------ @@ -556,88 +556,88 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window !----------------------------------------------------------------------- - History_Panels1_title = '' + History_Panels_title(1) = '' - History_Panels1_xaxis_name = 'model_number' - History_Panels1_max_width = -1 + History_Panels_xaxis_name(1) = 'model_number' + History_Panels_max_width(1) = -1 - !History_Panels1_xaxis_name = 'star_age' - !History_Panels1_max_width = 10 + !History_Panels_xaxis_name(1) = 'star_age' + !History_Panels_max_width(1) = 10 - History_Panels1_txt_scale = 0.75 - History_Panels1_xmin = -101d0 - History_Panels1_xmax = -101d0 - History_Panels1_dxmin = -1 - History_Panels1_xaxis_reversed = .false. - History_Panels1_xaxis_log = .false. - History_Panels1_xmargin = 0.0 + History_Panels_txt_scale(1) = 0.75 + History_Panels_xmin(1) = -101d0 + History_Panels_xmax(1) = -101d0 + History_Panels_dxmin(1) = -1 + History_Panels_xaxis_reversed(1) = .false. + History_Panels_xaxis_log(1) = .false. + History_Panels_xmargin(1) = 0.0 ! :: - History_Panels1_num_panels = 4 + History_Panels_num_panels(1) = 4 ! :: - History_Panels1_yaxis_name(1) = 'log_L' - History_Panels1_yaxis_reversed(1) = .false. - History_Panels1_ymin(1) = -101d0 - History_Panels1_ymax(1) = -101d0 - History_Panels1_dymin(1) = 0.1 + History_Panels_yaxis_name(1, 1) = 'log_L' + History_Panels_yaxis_reversed(1, 1) = .false. + History_Panels_ymin(1, 1) = -101d0 + History_Panels_ymax(1, 1) = -101d0 + History_Panels_dymin(1, 1) = 0.1 ! :: - History_Panels1_other_yaxis_name(1) = 'log_Teff' - History_Panels1_other_yaxis_reversed(1) = .false. - History_Panels1_other_ymin(1) = -101d0 - History_Panels1_other_ymax(1) = -101d0 - History_Panels1_other_dymin(1) = 0.1 + History_Panels_other_yaxis_name(1, 1) = 'log_Teff' + History_Panels_other_yaxis_reversed(1, 1) = .false. + History_Panels_other_ymin(1, 1) = -101d0 + History_Panels_other_ymax(1, 1) = -101d0 + History_Panels_other_dymin(1, 1) = 0.1 ! :: - History_Panels1_yaxis_name(2) = 'log_R' - History_Panels1_yaxis_reversed(2) = .false. - History_Panels1_ymin(2) = -101d0 - History_Panels1_ymax(2) = -101d0 - History_Panels1_dymin(2) = 0.1 + History_Panels_yaxis_name(1, 2) = 'log_R' + History_Panels_yaxis_reversed(1, 2) = .false. + History_Panels_ymin(1, 2) = -101d0 + History_Panels_ymax(1, 2) = -101d0 + History_Panels_dymin(1, 2) = 0.1 ! :: - History_Panels1_other_yaxis_name(2) = 'v_surf_km_s' - History_Panels1_other_yaxis_reversed(2) = .false. - History_Panels1_other_ymin(2) = -101d0 - History_Panels1_other_ymax(2) = -101d0 - History_Panels1_other_dymin(2) = 7d-5 + History_Panels_other_yaxis_name(1, 2) = 'v_surf_km_s' + History_Panels_other_yaxis_reversed(1, 2) = .false. + History_Panels_other_ymin(1, 2) = -101d0 + History_Panels_other_ymax(1, 2) = -101d0 + History_Panels_other_dymin(1, 2) = 7d-5 ! :: - History_Panels1_yaxis_name(3) = 'log_cntr_Rho' - History_Panels1_yaxis_reversed(3) = .false. - History_Panels1_ymin(3) = -101d0 - History_Panels1_ymax(3) = -101d0 - History_Panels1_dymin(3) = -1 + History_Panels_yaxis_name(1, 3) = 'log_cntr_Rho' + History_Panels_yaxis_reversed(1, 3) = .false. + History_Panels_ymin(1, 3) = -101d0 + History_Panels_ymax(1, 3) = -101d0 + History_Panels_dymin(1, 3) = -1 ! :: - History_Panels1_other_yaxis_name(3) = 'log_max_T' - History_Panels1_other_yaxis_reversed(3) = .false. - History_Panels1_other_ymin(3) = -101d0 - History_Panels1_other_ymax(3) = -101d0 - History_Panels1_other_dymin(3) = -1 + History_Panels_other_yaxis_name(1, 3) = 'log_max_T' + History_Panels_other_yaxis_reversed(1, 3) = .false. + History_Panels_other_ymin(1, 3) = -101d0 + History_Panels_other_ymax(1, 3) = -101d0 + History_Panels_other_dymin(1, 3) = -1 ! :: - History_Panels1_yaxis_name(4) = 'retries' - History_Panels1_yaxis_reversed(4) = .false. - History_Panels1_ymin(4) = -101d0 - History_Panels1_ymax(4) = -101d0 - History_Panels1_dymin(4) = -1 + History_Panels_yaxis_name(1, 4) = 'retries' + History_Panels_yaxis_reversed(1, 4) = .false. + History_Panels_ymin(1, 4) = -101d0 + History_Panels_ymax(1, 4) = -101d0 + History_Panels_dymin(1, 4) = -1 ! :: - History_Panels1_other_yaxis_name(4) = 'log_dt' - History_Panels1_other_yaxis_reversed(4) = .false. - History_Panels1_other_ymin(4) = -101d0 - History_Panels1_other_ymax(4) = -101d0 - History_Panels1_other_dymin(4) = -1 + History_Panels_other_yaxis_name(1, 4) = 'log_dt' + History_Panels_other_yaxis_reversed(1, 4) = .false. + History_Panels_other_ymin(1, 4) = -101d0 + History_Panels_other_ymax(1, 4) = -101d0 + History_Panels_other_dymin(1, 4) = -1 !----------------------------------------------------------------------- diff --git a/star/test_suite/ns_c/inlist_to_c_flash b/star/test_suite/ns_c/inlist_to_c_flash index db929538d..ebe2f51cd 100644 --- a/star/test_suite/ns_c/inlist_to_c_flash +++ b/star/test_suite/ns_c/inlist_to_c_flash @@ -141,10 +141,10 @@ &pgstar -Profile_Panels3_xaxis_name = 'logxq' -Profile_Panels3_xmin = -5d0 -Profile_Panels3_xmax = 0d0 -Profile_Panels3_xaxis_reversed = .true. +Profile_Panels_xaxis_name(3) = 'logxq' +Profile_Panels_xmin(3) = -5d0 +Profile_Panels_xmax(3) = 0d0 +Profile_Panels_xaxis_reversed(3) = .true. / ! end of pgstar namelist diff --git a/star/test_suite/ns_h/README.rst b/star/test_suite/ns_h/README.rst index 2f87b4336..835aeea8c 100644 --- a/star/test_suite/ns_h/README.rst +++ b/star/test_suite/ns_h/README.rst @@ -46,126 +46,126 @@ pgstar commands used for the plot above: Power_xmin = -16.0 Power_xmax = -12.0 - Profile_Panels1_title = '' - Profile_Panels1_num_panels = 2 - - Profile_Panels1_xaxis_name = 'logxm' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101d0 - Profile_Panels1_xmax = -101d0 - - Profile_Panels1_yaxis_name(1) = 'logRho' - Profile_Panels1_yaxis_name(2) = 'logT' - Profile_Panels1_ymin(1) = -101 - - Profile_Panels1_other_yaxis_name(1) = 'logP' - Profile_Panels1_other_yaxis_name(2) = 'entropy' - Profile_Panels1_other_ymin(1) = -101 - - Profile_Panels2_title = '' - Profile_Panels2_num_panels = 2 - - Profile_Panels2_xaxis_name = 'logxm' - Profile_Panels2_xaxis_reversed = .true. - Profile_Panels2_xmin = -101d0 - Profile_Panels2_xmax = -101d0 - - Profile_Panels2_yaxis_name(1) = 'luminosity' - Profile_Panels2_yaxis_name(2) = 'net_nuclear_energy' - Profile_Panels2_ymin(1) = -101 - Profile_Panels2_ymin(2) = -101 - - Profile_Panels2_other_yaxis_name(1) = 'opacity' - Profile_Panels2_other_yaxis_name(2) = 'eps_nuc_neu_total' - Profile_Panels2_other_ymin(1) = -101 - Profile_Panels2_other_ymin(2) = -101 - - Text_Summary1_txt_scale = 5.5 - - Text_Summary1_num_rows = 5 - Text_Summary1_num_cols = 3 - Text_Summary1_name(1, 1) = 'model_number' - Text_Summary1_name(2, 1) = 'star_age_sec' - Text_Summary1_name(3, 1) = 'time_step_sec' - Text_Summary1_name(4, 1) = 'log_rel_run_E_err' - Text_Summary1_name(5, 1) = 'total_energy' - Text_Summary1_name(1, 2) = 'envelope_mass' - Text_Summary1_name(2, 2) = 'log_abs_mdot' - Text_Summary1_name(3, 2) = 'log_xmstar' - Text_Summary1_name(4, 2) = 'm_center' - Text_Summary1_name(5, 2) = 'r_center_km' - Text_Summary1_name(1, 3) = 'num_zones' - Text_Summary1_name(2, 3) = 'num_iters' - Text_Summary1_name(3, 3) = 'num_retries' - Text_Summary1_name(4, 3) = ' ' - Text_Summary1_name(5, 3) = ' ' - - Grid2_title = 'ns_h' - Grid2_plot_name(1) = 'Profile_Panels1' - Grid2_plot_name(2) = 'Text_Summary1' - Grid2_plot_name(3) = 'Abundance' - Grid2_plot_name(4) = 'Power' - Grid2_plot_name(5) = 'Profile_Panels2' - Grid2_plot_row(1) = 1 - Grid2_plot_row(2) = 7 - Grid2_plot_row(3) = 1 - Grid2_plot_row(4) = 5 - Grid2_plot_row(5) = 1 - Grid2_plot_rowspan(1) = 6 - Grid2_plot_rowspan(2) = 2 - Grid2_plot_rowspan(3) = 4 - Grid2_plot_rowspan(4) = 4 - Grid2_plot_rowspan(5) = 6 - Grid2_plot_col(1) = 1 - Grid2_plot_col(2) = 1 - Grid2_plot_col(3) = 5 - Grid2_plot_col(4) = 5 - Grid2_plot_col(5) = 3 - Grid2_plot_colspan(1) = 2 - Grid2_plot_colspan(2) = 4 - Grid2_plot_colspan(3) = 3 - Grid2_plot_colspan(4) = 3 - Grid2_plot_colspan(5) = 2 - Grid2_plot_pad_left(1) = -0.02 - Grid2_plot_pad_left(2) = -0.08 - Grid2_plot_pad_left(3) = 0.14 - Grid2_plot_pad_left(4) = 0.14 - Grid2_plot_pad_left(5) = 0.06 - Grid2_plot_pad_right(1) = 0.07 - Grid2_plot_pad_right(2) = -0.12 - Grid2_plot_pad_right(3) = 0 - Grid2_plot_pad_right(4) = 0 - Grid2_plot_pad_right(5) = -0.01 - Grid2_plot_pad_top(1) = 0 - Grid2_plot_pad_top(2) = 0.08 - Grid2_plot_pad_top(3) = 0 - Grid2_plot_pad_top(4) = 0.06 - Grid2_plot_pad_top(5) = 0 - Grid2_plot_pad_bot(1) = 0 - Grid2_plot_pad_bot(2) = -0.04 - Grid2_plot_pad_bot(3) = 0.09 - Grid2_plot_pad_bot(4) = 0.03 - Grid2_plot_pad_bot(5) = 0 - Grid2_txt_scale_factor(1) = 0.65 - Grid2_txt_scale_factor(2) = 0.19 - Grid2_txt_scale_factor(3) = 0.65 - Grid2_txt_scale_factor(4) = 0.65 - Grid2_txt_scale_factor(5) = 0.65 - - Grid2_num_cols = 7 - Grid2_num_rows = 8 - Grid2_num_plots = 5 + Profile_Panels_title(1) = '' + Profile_Panels_num_panels(1) = 2 + + Profile_Panels_xaxis_name(1) = 'logxm' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101d0 + Profile_Panels_xmax(1) = -101d0 + + Profile_Panels_yaxis_name(1, 1) = 'logRho' + Profile_Panels_yaxis_name(1, 2) = 'logT' + Profile_Panels_ymin(1, 1) = -101 + + Profile_Panels_other_yaxis_name(1, 1) = 'logP' + Profile_Panels_other_yaxis_name(1, 2) = 'entropy' + Profile_Panels_other_ymin(1, 1) = -101 + + Profile_Panels_title(2) = '' + Profile_Panels_num_panels(2) = 2 + + Profile_Panels_xaxis_name(2) = 'logxm' + Profile_Panels_xaxis_reversed(2) = .true. + Profile_Panels_xmin(2) = -101d0 + Profile_Panels_xmax(2) = -101d0 + + Profile_Panels_yaxis_name(2, 1) = 'luminosity' + Profile_Panels_yaxis_name(2, 2) = 'net_nuclear_energy' + Profile_Panels_ymin(2, 1) = -101 + Profile_Panels_ymin(2, 2) = -101 + + Profile_Panels_other_yaxis_name(2, 1) = 'opacity' + Profile_Panels_other_yaxis_name(2, 2) = 'eps_nuc_neu_total' + Profile_Panels_other_ymin(2, 1) = -101 + Profile_Panels_other_ymin(2, 2) = -101 + + Text_Summary_txt_scale(1) = 5.5 + + Text_Summary_num_rows(1) = 5 + Text_Summary_num_cols(1) = 3 + Text_Summary_name(1, 1, 1) = 'model_number' + Text_Summary_name(1, 2, 1) = 'star_age_sec' + Text_Summary_name(1, 3, 1) = 'time_step_sec' + Text_Summary_name(1, 4, 1) = 'log_rel_run_E_err' + Text_Summary_name(1, 5, 1) = 'total_energy' + Text_Summary_name(1, 1, 2) = 'envelope_mass' + Text_Summary_name(1, 2, 2) = 'log_abs_mdot' + Text_Summary_name(1, 3, 2) = 'log_xmstar' + Text_Summary_name(1, 4, 2) = 'm_center' + Text_Summary_name(1, 5, 2) = 'r_center_km' + Text_Summary_name(1, 1, 3) = 'num_zones' + Text_Summary_name(1, 2, 3) = 'num_iters' + Text_Summary_name(1, 3, 3) = 'num_retries' + Text_Summary_name(1, 4, 3) = ' ' + Text_Summary_name(1, 5, 3) = ' ' + + Grid_title(2) = 'ns_h' + Grid_plot_name(2, 1) = 'Profile_Panels1' + Grid_plot_name(2, 2) = 'Text_Summary1' + Grid_plot_name(2, 3) = 'Abundance' + Grid_plot_name(2, 4) = 'Power' + Grid_plot_name(2, 5) = 'Profile_Panels2' + Grid_plot_row(2, 1) = 1 + Grid_plot_row(2, 2) = 7 + Grid_plot_row(2, 3) = 1 + Grid_plot_row(2, 4) = 5 + Grid_plot_row(2, 5) = 1 + Grid_plot_rowspan(2, 1) = 6 + Grid_plot_rowspan(2, 2) = 2 + Grid_plot_rowspan(2, 3) = 4 + Grid_plot_rowspan(2, 4) = 4 + Grid_plot_rowspan(2, 5) = 6 + Grid_plot_col(2, 1) = 1 + Grid_plot_col(2, 2) = 1 + Grid_plot_col(2, 3) = 5 + Grid_plot_col(2, 4) = 5 + Grid_plot_col(2, 5) = 3 + Grid_plot_colspan(2, 1) = 2 + Grid_plot_colspan(2, 2) = 4 + Grid_plot_colspan(2, 3) = 3 + Grid_plot_colspan(2, 4) = 3 + Grid_plot_colspan(2, 5) = 2 + Grid_plot_pad_left(2, 1) = -0.02 + Grid_plot_pad_left(2, 2) = -0.08 + Grid_plot_pad_left(2, 3) = 0.14 + Grid_plot_pad_left(2, 4) = 0.14 + Grid_plot_pad_left(2, 5) = 0.06 + Grid_plot_pad_right(2, 1) = 0.07 + Grid_plot_pad_right(2, 2) = -0.12 + Grid_plot_pad_right(2, 3) = 0 + Grid_plot_pad_right(2, 4) = 0 + Grid_plot_pad_right(2, 5) = -0.01 + Grid_plot_pad_top(2, 1) = 0 + Grid_plot_pad_top(2, 2) = 0.08 + Grid_plot_pad_top(2, 3) = 0 + Grid_plot_pad_top(2, 4) = 0.06 + Grid_plot_pad_top(2, 5) = 0 + Grid_plot_pad_bot(2, 1) = 0 + Grid_plot_pad_bot(2, 2) = -0.04 + Grid_plot_pad_bot(2, 3) = 0.09 + Grid_plot_pad_bot(2, 4) = 0.03 + Grid_plot_pad_bot(2, 5) = 0 + Grid_txt_scale_factor(2, 1) = 0.65 + Grid_txt_scale_factor(2, 2) = 0.19 + Grid_txt_scale_factor(2, 3) = 0.65 + Grid_txt_scale_factor(2, 4) = 0.65 + Grid_txt_scale_factor(2, 5) = 0.65 + + Grid_num_cols(2) = 7 + Grid_num_rows(2) = 8 + Grid_num_plots(2) = 5 - Grid2_win_flag = .true. - Grid2_win_width = 16 - Grid2_win_aspect_ratio = 0.6 + Grid_win_flag(2) = .true. + Grid_win_width(2) = 16 + Grid_win_aspect_ratio(2) = 0.6 - Grid2_file_flag = .true. - Grid2_file_dir = 'pgstar_out' - Grid2_file_prefix = 'grid_' - Grid2_file_interval = 10000 - Grid2_file_width = 20 - Grid2_file_aspect_ratio = -1 + Grid_file_flag(2) = .true. + Grid_file_dir(2) = 'pgstar_out' + Grid_file_prefix(2) = 'grid_' + Grid_file_interval(2) = 10000 + Grid_file_width(2) = 20 + Grid_file_aspect_ratio(2) = -1 / ! end of pgstar namelist diff --git a/star/test_suite/ns_h/inlist_add_he_layer b/star/test_suite/ns_h/inlist_add_he_layer index b836817a8..054c05985 100644 --- a/star/test_suite/ns_h/inlist_add_he_layer +++ b/star/test_suite/ns_h/inlist_add_he_layer @@ -135,7 +135,7 @@ report_solver_progress = .false. !pause = .true. -Grid2_win_flag = .true. +Grid_win_flag(2) = .true. pgstar_interval = 1 / ! end of pgstar namelist diff --git a/star/test_suite/ns_h/inlist_pgstar b/star/test_suite/ns_h/inlist_pgstar index a28443725..ca44ca271 100644 --- a/star/test_suite/ns_h/inlist_pgstar +++ b/star/test_suite/ns_h/inlist_pgstar @@ -7,160 +7,160 @@ Mixing_ymin = 8 Mixing_ymax = 22 - Profile_Panels1_title = '' - Profile_Panels1_xaxis_name = 'mass' - Profile_Panels1_xaxis_reversed = .false. - - Profile_Panels1_yaxis_name(1) = 'logRho' - Profile_Panels1_yaxis_name(2) = 'logT' - - Profile_Panels1_ymin(1) = -101 - ! Profile_Panels1_ymin(2) = -10 - ! Profile_Panels1_ymax(2) = 0.3 - - Profile_Panels1_other_yaxis_name(1) = 'logP' - Profile_Panels1_other_yaxis_name(2) = 'energy' - - Profile_Panels1_other_ymin(1) = -101 - ! Profile_Panels1_other_ymin(2) = -12 - ! Profile_Panels1_other_ymax(2) = 0 - - Profile_Panels1_num_panels = 2 - - Profile_Panels2_title = '' - Profile_Panels2_xaxis_name = 'mass' - Profile_Panels2_xaxis_reversed = .false. - - Profile_Panels2_num_panels = 2 - Profile_Panels2_yaxis_name(1) = 'v_div_csound' - Profile_Panels2_yaxis_name(2) = 'entropy' - - Profile_Panels2_ymin(1) = -101 - Profile_Panels2_ymin(2) = -101 - - Profile_Panels2_other_yaxis_name(1) = 'vel_km_per_s' - Profile_Panels2_other_yaxis_name(2) = 'total_energy' - - Profile_Panels2_other_ymin(1) = -101 - Profile_Panels2_other_ymin(2) = -101 - - Text_Summary1_txt_scale = 5.5 - - Text_Summary1_num_rows = 5 - Text_Summary1_num_cols = 3 - Text_Summary1_name(1, 1) = 'model_number' - Text_Summary1_name(2, 1) = 'star_age_sec' - Text_Summary1_name(3, 1) = 'time_step_sec' - Text_Summary1_name(4, 1) = 'log_rel_run_E_err' - Text_Summary1_name(5, 1) = 'total_energy' - Text_Summary1_name(6, 1) = 'log_R' - Text_Summary1_name(7, 1) = 'log_g' - Text_Summary1_name(8, 1) = 'log_surf_cell_P' - Text_Summary1_name(1, 2) = 'envelope_mass' - Text_Summary1_name(2, 2) = 'he_core_mass' - Text_Summary1_name(3, 2) = 'm_center' - Text_Summary1_name(4, 2) = 'r_center_km' - Text_Summary1_name(5, 2) = 'v_center' - Text_Summary1_name(6, 2) = 'cz_top_mass' - Text_Summary1_name(7, 2) = 'cz_bot_radius' - Text_Summary1_name(8, 2) = 'cz_top_radius' - Text_Summary1_name(1, 3) = 'num_zones' - Text_Summary1_name(2, 3) = 'num_iters' - Text_Summary1_name(3, 3) = 'num_retries' - Text_Summary1_name(4, 3) = 'shock_radius' - Text_Summary1_name(5, 3) = 'shock_mass' - Text_Summary1_name(6, 3) = 'center c12' - Text_Summary1_name(7, 3) = 'center n14' - Text_Summary1_name(8, 3) = 'center o16' - Text_Summary1_name(1, 4) = 'log_Lnuc' - Text_Summary1_name(2, 4) = 'log_Lneu' - Text_Summary1_name(3, 4) = 'log_LH' - Text_Summary1_name(4, 4) = 'log_LHe' - Text_Summary1_name(5, 4) = 'log_LZ' - Text_Summary1_name(6, 4) = 'num_zones' - Text_Summary1_name(7, 4) = 'num_retries' - Text_Summary1_name(8, 4) = '' - - - Grid2_title = 'CCSN with Rayleigh-Taylor Instability' - Grid2_plot_name(1) = 'Profile_Panels1' - Grid2_plot_name(2) = 'Text_Summary1' - Grid2_plot_name(3) = 'Abundance' - Grid2_plot_name(4) = 'Power' - Grid2_plot_name(5) = 'Profile_Panels2' - Grid2_plot_row(1) = 1 - Grid2_plot_row(2) = 7 - Grid2_plot_row(3) = 1 - Grid2_plot_row(4) = 5 - Grid2_plot_row(5) = 1 - Grid2_plot_rowspan(1) = 6 - Grid2_plot_rowspan(2) = 2 - Grid2_plot_rowspan(3) = 4 - Grid2_plot_rowspan(4) = 4 - Grid2_plot_rowspan(5) = 6 - Grid2_plot_col(1) = 1 - Grid2_plot_col(2) = 1 - Grid2_plot_col(3) = 5 - Grid2_plot_col(4) = 5 - Grid2_plot_col(5) = 3 - Grid2_plot_colspan(1) = 2 - Grid2_plot_colspan(2) = 4 - Grid2_plot_colspan(3) = 3 - Grid2_plot_colspan(4) = 3 - Grid2_plot_colspan(5) = 2 - Grid2_plot_pad_left(1) = -0.02 - Grid2_plot_pad_left(2) = -0.08 - Grid2_plot_pad_left(3) = 0.14 - Grid2_plot_pad_left(4) = 0.14 - Grid2_plot_pad_left(5) = 0.06 - Grid2_plot_pad_right(1) = 0.07 - Grid2_plot_pad_right(2) = -0.12 - Grid2_plot_pad_right(3) = 0 - Grid2_plot_pad_right(4) = 0 - Grid2_plot_pad_right(5) = -0.01 - Grid2_plot_pad_top(1) = 0 - Grid2_plot_pad_top(2) = 0.08 - Grid2_plot_pad_top(3) = 0 - Grid2_plot_pad_top(4) = 0.06 - Grid2_plot_pad_top(5) = 0 - Grid2_plot_pad_bot(1) = 0 - Grid2_plot_pad_bot(2) = -0.04 - Grid2_plot_pad_bot(3) = 0.09 - Grid2_plot_pad_bot(4) = 0.03 - Grid2_plot_pad_bot(5) = 0 - Grid2_txt_scale_factor(1) = 0.65 - Grid2_txt_scale_factor(2) = 0.19 - Grid2_txt_scale_factor(3) = 0.65 - Grid2_txt_scale_factor(4) = 0.65 - Grid2_txt_scale_factor(5) = 0.65 - - Grid2_num_cols = 7 - Grid2_num_rows = 8 - Grid2_num_plots = 5 + Profile_Panels_title(1) = '' + Profile_Panels_xaxis_name(1) = 'mass' + Profile_Panels_xaxis_reversed(1) = .false. + + Profile_Panels_yaxis_name(1, 1) = 'logRho' + Profile_Panels_yaxis_name(1, 2) = 'logT' + + Profile_Panels_ymin(1, 1) = -101 + ! Profile_Panels_ymin(1, 2) = -10 + ! Profile_Panels_ymax(1, 2) = 0.3 + + Profile_Panels_other_yaxis_name(1, 1) = 'logP' + Profile_Panels_other_yaxis_name(1, 2) = 'energy' + + Profile_Panels_other_ymin(1, 1) = -101 + ! Profile_Panels_other_ymin(1, 2) = -12 + ! Profile_Panels_other_ymax(1, 2) = 0 + + Profile_Panels_num_panels(1) = 2 + + Profile_Panels_title(2) = '' + Profile_Panels_xaxis_name(2) = 'mass' + Profile_Panels_xaxis_reversed(2) = .false. + + Profile_Panels_num_panels(2) = 2 + Profile_Panels_yaxis_name(2, 1) = 'v_div_csound' + Profile_Panels_yaxis_name(2, 2) = 'entropy' + + Profile_Panels_ymin(2, 1) = -101 + Profile_Panels_ymin(2, 2) = -101 + + Profile_Panels_other_yaxis_name(2, 1) = 'vel_km_per_s' + Profile_Panels_other_yaxis_name(2, 2) = 'total_energy' + + Profile_Panels_other_ymin(2, 1) = -101 + Profile_Panels_other_ymin(2, 2) = -101 + + Text_Summary_txt_scale(1) = 5.5 + + Text_Summary_num_rows(1) = 5 + Text_Summary_num_cols(1) = 3 + Text_Summary_name(1, 1, 1) = 'model_number' + Text_Summary_name(1, 2, 1) = 'star_age_sec' + Text_Summary_name(1, 3, 1) = 'time_step_sec' + Text_Summary_name(1, 4, 1) = 'log_rel_run_E_err' + Text_Summary_name(1, 5, 1) = 'total_energy' + Text_Summary_name(1, 6, 1) = 'log_R' + Text_Summary_name(1, 7, 1) = 'log_g' + Text_Summary_name(1, 8, 1) = 'log_surf_cell_P' + Text_Summary_name(1, 1, 2) = 'envelope_mass' + Text_Summary_name(1, 2, 2) = 'he_core_mass' + Text_Summary_name(1, 3, 2) = 'm_center' + Text_Summary_name(1, 4, 2) = 'r_center_km' + Text_Summary_name(1, 5, 2) = 'v_center' + Text_Summary_name(1, 6, 2) = 'cz_top_mass' + Text_Summary_name(1, 7, 2) = 'cz_bot_radius' + Text_Summary_name(1, 8, 2) = 'cz_top_radius' + Text_Summary_name(1, 1, 3) = 'num_zones' + Text_Summary_name(1, 2, 3) = 'num_iters' + Text_Summary_name(1, 3, 3) = 'num_retries' + Text_Summary_name(1, 4, 3) = 'shock_radius' + Text_Summary_name(1, 5, 3) = 'shock_mass' + Text_Summary_name(1, 6, 3) = 'center c12' + Text_Summary_name(1, 7, 3) = 'center n14' + Text_Summary_name(1, 8, 3) = 'center o16' + Text_Summary_name(1, 1, 4) = 'log_Lnuc' + Text_Summary_name(1, 2, 4) = 'log_Lneu' + Text_Summary_name(1, 3, 4) = 'log_LH' + Text_Summary_name(1, 4, 4) = 'log_LHe' + Text_Summary_name(1, 5, 4) = 'log_LZ' + Text_Summary_name(1, 6, 4) = 'num_zones' + Text_Summary_name(1, 7, 4) = 'num_retries' + Text_Summary_name(1, 8, 4) = '' + + + Grid_title(2) = 'CCSN with Rayleigh-Taylor Instability' + Grid_plot_name(2, 1) = 'Profile_Panels1' + Grid_plot_name(2, 2) = 'Text_Summary1' + Grid_plot_name(2, 3) = 'Abundance' + Grid_plot_name(2, 4) = 'Power' + Grid_plot_name(2, 5) = 'Profile_Panels2' + Grid_plot_row(2, 1) = 1 + Grid_plot_row(2, 2) = 7 + Grid_plot_row(2, 3) = 1 + Grid_plot_row(2, 4) = 5 + Grid_plot_row(2, 5) = 1 + Grid_plot_rowspan(2, 1) = 6 + Grid_plot_rowspan(2, 2) = 2 + Grid_plot_rowspan(2, 3) = 4 + Grid_plot_rowspan(2, 4) = 4 + Grid_plot_rowspan(2, 5) = 6 + Grid_plot_col(2, 1) = 1 + Grid_plot_col(2, 2) = 1 + Grid_plot_col(2, 3) = 5 + Grid_plot_col(2, 4) = 5 + Grid_plot_col(2, 5) = 3 + Grid_plot_colspan(2, 1) = 2 + Grid_plot_colspan(2, 2) = 4 + Grid_plot_colspan(2, 3) = 3 + Grid_plot_colspan(2, 4) = 3 + Grid_plot_colspan(2, 5) = 2 + Grid_plot_pad_left(2, 1) = -0.02 + Grid_plot_pad_left(2, 2) = -0.08 + Grid_plot_pad_left(2, 3) = 0.14 + Grid_plot_pad_left(2, 4) = 0.14 + Grid_plot_pad_left(2, 5) = 0.06 + Grid_plot_pad_right(2, 1) = 0.07 + Grid_plot_pad_right(2, 2) = -0.12 + Grid_plot_pad_right(2, 3) = 0 + Grid_plot_pad_right(2, 4) = 0 + Grid_plot_pad_right(2, 5) = -0.01 + Grid_plot_pad_top(2, 1) = 0 + Grid_plot_pad_top(2, 2) = 0.08 + Grid_plot_pad_top(2, 3) = 0 + Grid_plot_pad_top(2, 4) = 0.06 + Grid_plot_pad_top(2, 5) = 0 + Grid_plot_pad_bot(2, 1) = 0 + Grid_plot_pad_bot(2, 2) = -0.04 + Grid_plot_pad_bot(2, 3) = 0.09 + Grid_plot_pad_bot(2, 4) = 0.03 + Grid_plot_pad_bot(2, 5) = 0 + Grid_txt_scale_factor(2, 1) = 0.65 + Grid_txt_scale_factor(2, 2) = 0.19 + Grid_txt_scale_factor(2, 3) = 0.65 + Grid_txt_scale_factor(2, 4) = 0.65 + Grid_txt_scale_factor(2, 5) = 0.65 + + Grid_num_cols(2) = 7 + Grid_num_rows(2) = 8 + Grid_num_plots(2) = 5 - !Grid2_win_flag = .true. - Grid2_win_width = 10 - Grid2_win_aspect_ratio = 0.6 + !Grid_win_flag(2) = .true. + Grid_win_width(2) = 10 + Grid_win_aspect_ratio(2) = 0.6 pgstar_interval = 10 - !Grid2_file_flag = .true. - Grid2_file_dir = 'pngs_16M.8foe' - ! Grid2_file_prefix = 'test_' - ! Grid2_file_width = -1 - ! Grid2_file_aspect_ratio = -1 + !Grid_file_flag(2) = .true. + Grid_file_dir(2) = 'pngs_16M.8foe' + ! Grid_file_prefix(2) = 'test_' + ! Grid_file_width(2) = -1 + ! Grid_file_aspect_ratio(2) = -1 ! xaxis -Profile_Panels1_xaxis_name = 'zone' -Profile_Panels1_xaxis_reversed = .true. -Profile_Panels1_xmin = -101d0 -Profile_Panels1_xmax = -101d0 +Profile_Panels_xaxis_name(1) = 'zone' +Profile_Panels_xaxis_reversed(1) = .true. +Profile_Panels_xmin(1) = -101d0 +Profile_Panels_xmax(1) = -101d0 -Profile_Panels2_xaxis_name = 'zone' -Profile_Panels2_xaxis_reversed = .true. -Profile_Panels2_xmin = -101d0 -Profile_Panels2_xmax = -101d0 +Profile_Panels_xaxis_name(2) = 'zone' +Profile_Panels_xaxis_reversed(2) = .true. +Profile_Panels_xmin(2) = -101d0 +Profile_Panels_xmax(2) = -101d0 Mixing_xaxis_name = 'zone' Mixing_xaxis_reversed = .true. diff --git a/star/test_suite/ns_h/inlist_to_steady_h_burn b/star/test_suite/ns_h/inlist_to_steady_h_burn index e084c780b..b935c9ef5 100644 --- a/star/test_suite/ns_h/inlist_to_steady_h_burn +++ b/star/test_suite/ns_h/inlist_to_steady_h_burn @@ -127,7 +127,7 @@ !pause = .true. -Grid2_win_flag = .true. +Grid_win_flag(2) = .true. pgstar_interval = 1 / ! end of pgstar namelist diff --git a/star/test_suite/ns_he/README.rst b/star/test_suite/ns_he/README.rst index d9a87d1f4..6ca2a9339 100644 --- a/star/test_suite/ns_he/README.rst +++ b/star/test_suite/ns_he/README.rst @@ -41,126 +41,126 @@ pgstar commands used for the plot above: Power_xmin = -12.0 Power_xmax = -8.0 - Profile_Panels1_title = '' - Profile_Panels1_num_panels = 2 - - Profile_Panels1_xaxis_name = 'logxm' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101d0 - Profile_Panels1_xmax = -101d0 - - Profile_Panels1_yaxis_name(1) = 'logRho' - Profile_Panels1_yaxis_name(2) = 'logT' - Profile_Panels1_ymin(1) = -101 - - Profile_Panels1_other_yaxis_name(1) = 'logP' - Profile_Panels1_other_yaxis_name(2) = 'entropy' - Profile_Panels1_other_ymin(1) = -101 - - Profile_Panels2_title = '' - Profile_Panels2_num_panels = 2 - - Profile_Panels2_xaxis_name = 'logxm' - Profile_Panels2_xaxis_reversed = .true. - Profile_Panels2_xmin = -101d0 - Profile_Panels2_xmax = -101d0 - - Profile_Panels2_yaxis_name(1) = 'luminosity' - Profile_Panels2_yaxis_name(2) = 'net_nuclear_energy' - Profile_Panels2_ymin(1) = -101 - Profile_Panels2_ymin(2) = -101 - - Profile_Panels2_other_yaxis_name(1) = 'opacity' - Profile_Panels2_other_yaxis_name(2) = 'eps_nuc_neu_total' - Profile_Panels2_other_ymin(1) = -101 - Profile_Panels2_other_ymin(2) = -101 - - Text_Summary1_txt_scale = 5.5 - - Text_Summary1_num_rows = 5 - Text_Summary1_num_cols = 3 - Text_Summary1_name(1, 1) = 'model_number' - Text_Summary1_name(2, 1) = 'star_age_sec' - Text_Summary1_name(3, 1) = 'time_step_sec' - Text_Summary1_name(4, 1) = 'log_rel_run_E_err' - Text_Summary1_name(5, 1) = 'total_energy' - Text_Summary1_name(1, 2) = 'log_power_nuc_burn' - Text_Summary1_name(2, 2) = 'log_abs_mdot' - Text_Summary1_name(3, 2) = 'log_xmstar' - Text_Summary1_name(4, 2) = 'm_center' - Text_Summary1_name(5, 2) = 'r_center_km' - Text_Summary1_name(1, 3) = 'num_zones' - Text_Summary1_name(2, 3) = 'num_iters' - Text_Summary1_name(3, 3) = 'num_retries' - Text_Summary1_name(4, 3) = ' ' - Text_Summary1_name(5, 3) = ' ' - - Grid2_title = 'ns_he' - Grid2_plot_name(1) = 'Profile_Panels1' - Grid2_plot_name(2) = 'Text_Summary1' - Grid2_plot_name(3) = 'Abundance' - Grid2_plot_name(4) = 'Power' - Grid2_plot_name(5) = 'Profile_Panels2' - Grid2_plot_row(1) = 1 - Grid2_plot_row(2) = 7 - Grid2_plot_row(3) = 1 - Grid2_plot_row(4) = 5 - Grid2_plot_row(5) = 1 - Grid2_plot_rowspan(1) = 6 - Grid2_plot_rowspan(2) = 2 - Grid2_plot_rowspan(3) = 4 - Grid2_plot_rowspan(4) = 4 - Grid2_plot_rowspan(5) = 6 - Grid2_plot_col(1) = 1 - Grid2_plot_col(2) = 1 - Grid2_plot_col(3) = 5 - Grid2_plot_col(4) = 5 - Grid2_plot_col(5) = 3 - Grid2_plot_colspan(1) = 2 - Grid2_plot_colspan(2) = 4 - Grid2_plot_colspan(3) = 3 - Grid2_plot_colspan(4) = 3 - Grid2_plot_colspan(5) = 2 - Grid2_plot_pad_left(1) = -0.02 - Grid2_plot_pad_left(2) = -0.08 - Grid2_plot_pad_left(3) = 0.14 - Grid2_plot_pad_left(4) = 0.14 - Grid2_plot_pad_left(5) = 0.06 - Grid2_plot_pad_right(1) = 0.07 - Grid2_plot_pad_right(2) = -0.12 - Grid2_plot_pad_right(3) = 0 - Grid2_plot_pad_right(4) = 0 - Grid2_plot_pad_right(5) = -0.01 - Grid2_plot_pad_top(1) = 0 - Grid2_plot_pad_top(2) = 0.08 - Grid2_plot_pad_top(3) = 0 - Grid2_plot_pad_top(4) = 0.06 - Grid2_plot_pad_top(5) = 0 - Grid2_plot_pad_bot(1) = 0 - Grid2_plot_pad_bot(2) = -0.04 - Grid2_plot_pad_bot(3) = 0.09 - Grid2_plot_pad_bot(4) = 0.03 - Grid2_plot_pad_bot(5) = 0 - Grid2_txt_scale_factor(1) = 0.65 - Grid2_txt_scale_factor(2) = 0.19 - Grid2_txt_scale_factor(3) = 0.65 - Grid2_txt_scale_factor(4) = 0.65 - Grid2_txt_scale_factor(5) = 0.65 - - Grid2_num_cols = 7 - Grid2_num_rows = 8 - Grid2_num_plots = 5 + Profile_Panels_title(1) = '' + Profile_Panels_num_panels(1) = 2 + + Profile_Panels_xaxis_name(1) = 'logxm' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101d0 + Profile_Panels_xmax(1) = -101d0 + + Profile_Panels_yaxis_name(1, 1) = 'logRho' + Profile_Panels_yaxis_name(1, 2) = 'logT' + Profile_Panels_ymin(1, 1) = -101 + + Profile_Panels_other_yaxis_name(1, 1) = 'logP' + Profile_Panels_other_yaxis_name(1, 2) = 'entropy' + Profile_Panels_other_ymin(1, 1) = -101 + + Profile_Panels_title(2) = '' + Profile_Panels_num_panels(2) = 2 + + Profile_Panels_xaxis_name(2) = 'logxm' + Profile_Panels_xaxis_reversed(2) = .true. + Profile_Panels_xmin(2) = -101d0 + Profile_Panels_xmax(2) = -101d0 + + Profile_Panels_yaxis_name(2, 1) = 'luminosity' + Profile_Panels_yaxis_name(2, 2) = 'net_nuclear_energy' + Profile_Panels_ymin(2, 1) = -101 + Profile_Panels_ymin(2, 2) = -101 + + Profile_Panels_other_yaxis_name(2, 1) = 'opacity' + Profile_Panels_other_yaxis_name(2, 2) = 'eps_nuc_neu_total' + Profile_Panels_other_ymin(2, 1) = -101 + Profile_Panels_other_ymin(2, 2) = -101 + + Text_Summary_txt_scale(1) = 5.5 + + Text_Summary_num_rows(1) = 5 + Text_Summary_num_cols(1) = 3 + Text_Summary_name(1, 1, 1) = 'model_number' + Text_Summary_name(1, 2, 1) = 'star_age_sec' + Text_Summary_name(1, 3, 1) = 'time_step_sec' + Text_Summary_name(1, 4, 1) = 'log_rel_run_E_err' + Text_Summary_name(1, 5, 1) = 'total_energy' + Text_Summary_name(1, 1, 2) = 'log_power_nuc_burn' + Text_Summary_name(1, 2, 2) = 'log_abs_mdot' + Text_Summary_name(1, 3, 2) = 'log_xmstar' + Text_Summary_name(1, 4, 2) = 'm_center' + Text_Summary_name(1, 5, 2) = 'r_center_km' + Text_Summary_name(1, 1, 3) = 'num_zones' + Text_Summary_name(1, 2, 3) = 'num_iters' + Text_Summary_name(1, 3, 3) = 'num_retries' + Text_Summary_name(1, 4, 3) = ' ' + Text_Summary_name(1, 5, 3) = ' ' + + Grid_title(2) = 'ns_he' + Grid_plot_name(2, 1) = 'Profile_Panels1' + Grid_plot_name(2, 2) = 'Text_Summary1' + Grid_plot_name(2, 3) = 'Abundance' + Grid_plot_name(2, 4) = 'Power' + Grid_plot_name(2, 5) = 'Profile_Panels2' + Grid_plot_row(2, 1) = 1 + Grid_plot_row(2, 2) = 7 + Grid_plot_row(2, 3) = 1 + Grid_plot_row(2, 4) = 5 + Grid_plot_row(2, 5) = 1 + Grid_plot_rowspan(2, 1) = 6 + Grid_plot_rowspan(2, 2) = 2 + Grid_plot_rowspan(2, 3) = 4 + Grid_plot_rowspan(2, 4) = 4 + Grid_plot_rowspan(2, 5) = 6 + Grid_plot_col(2, 1) = 1 + Grid_plot_col(2, 2) = 1 + Grid_plot_col(2, 3) = 5 + Grid_plot_col(2, 4) = 5 + Grid_plot_col(2, 5) = 3 + Grid_plot_colspan(2, 1) = 2 + Grid_plot_colspan(2, 2) = 4 + Grid_plot_colspan(2, 3) = 3 + Grid_plot_colspan(2, 4) = 3 + Grid_plot_colspan(2, 5) = 2 + Grid_plot_pad_left(2, 1) = -0.02 + Grid_plot_pad_left(2, 2) = -0.08 + Grid_plot_pad_left(2, 3) = 0.14 + Grid_plot_pad_left(2, 4) = 0.14 + Grid_plot_pad_left(2, 5) = 0.06 + Grid_plot_pad_right(2, 1) = 0.07 + Grid_plot_pad_right(2, 2) = -0.12 + Grid_plot_pad_right(2, 3) = 0 + Grid_plot_pad_right(2, 4) = 0 + Grid_plot_pad_right(2, 5) = -0.01 + Grid_plot_pad_top(2, 1) = 0 + Grid_plot_pad_top(2, 2) = 0.08 + Grid_plot_pad_top(2, 3) = 0 + Grid_plot_pad_top(2, 4) = 0.06 + Grid_plot_pad_top(2, 5) = 0 + Grid_plot_pad_bot(2, 1) = 0 + Grid_plot_pad_bot(2, 2) = -0.04 + Grid_plot_pad_bot(2, 3) = 0.09 + Grid_plot_pad_bot(2, 4) = 0.03 + Grid_plot_pad_bot(2, 5) = 0 + Grid_txt_scale_factor(2, 1) = 0.65 + Grid_txt_scale_factor(2, 2) = 0.19 + Grid_txt_scale_factor(2, 3) = 0.65 + Grid_txt_scale_factor(2, 4) = 0.65 + Grid_txt_scale_factor(2, 5) = 0.65 + + Grid_num_cols(2) = 7 + Grid_num_rows(2) = 8 + Grid_num_plots(2) = 5 - Grid2_win_flag = .true. - Grid2_win_width = 16 - Grid2_win_aspect_ratio = 0.6 + Grid_win_flag(2) = .true. + Grid_win_width(2) = 16 + Grid_win_aspect_ratio(2) = 0.6 - Grid2_file_flag = .true. - Grid2_file_dir = 'pgstar_out' - Grid2_file_prefix = 'grid_' - Grid2_file_interval = 10000 - Grid2_file_width = 20 - Grid2_file_aspect_ratio = -1 + Grid_file_flag(2) = .true. + Grid_file_dir(2) = 'pgstar_out' + Grid_file_prefix(2) = 'grid_' + Grid_file_interval(2) = 10000 + Grid_file_width(2) = 20 + Grid_file_aspect_ratio(2) = -1 / ! end of pgstar namelist diff --git a/star/test_suite/ns_he/inlist_to_flash b/star/test_suite/ns_he/inlist_to_flash index bc4250bf3..aa7f8605c 100644 --- a/star/test_suite/ns_he/inlist_to_flash +++ b/star/test_suite/ns_he/inlist_to_flash @@ -210,125 +210,125 @@ Mixing_xaxis_reversed = .true. Power_xmin = -12.0 Power_xmax = -8.0 - Profile_Panels1_title = '' - Profile_Panels1_num_panels = 2 - - Profile_Panels1_xaxis_name = 'logxm' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101d0 - Profile_Panels1_xmax = -101d0 - - Profile_Panels1_yaxis_name(1) = 'logRho' - Profile_Panels1_yaxis_name(2) = 'logT' - Profile_Panels1_ymin(1) = -101 - - Profile_Panels1_other_yaxis_name(1) = 'logP' - Profile_Panels1_other_yaxis_name(2) = 'entropy' - Profile_Panels1_other_ymin(1) = -101 - - Profile_Panels2_title = '' - Profile_Panels2_num_panels = 2 - - Profile_Panels2_xaxis_name = 'logxm' - Profile_Panels2_xaxis_reversed = .true. - Profile_Panels2_xmin = -101d0 - Profile_Panels2_xmax = -101d0 - - Profile_Panels2_yaxis_name(1) = 'luminosity' - Profile_Panels2_yaxis_name(2) = 'net_nuclear_energy' - Profile_Panels2_ymin(1) = -101 - Profile_Panels2_ymin(2) = -101 - - Profile_Panels2_other_yaxis_name(1) = 'opacity' - Profile_Panels2_other_yaxis_name(2) = 'eps_nuc_neu_total' - Profile_Panels2_other_ymin(1) = -101 - Profile_Panels2_other_ymin(2) = -101 - - Text_Summary1_txt_scale = 5.5 - - Text_Summary1_num_rows = 5 - Text_Summary1_num_cols = 3 - Text_Summary1_name(1, 1) = 'model_number' - Text_Summary1_name(2, 1) = 'star_age_sec' - Text_Summary1_name(3, 1) = 'time_step_sec' - Text_Summary1_name(4, 1) = 'log_rel_run_E_err' - Text_Summary1_name(5, 1) = 'total_energy' - Text_Summary1_name(1, 2) = 'log_power_nuc_burn' - Text_Summary1_name(2, 2) = 'log_abs_mdot' - Text_Summary1_name(3, 2) = 'log_xmstar' - Text_Summary1_name(4, 2) = 'm_center' - Text_Summary1_name(5, 2) = 'r_center_km' - Text_Summary1_name(1, 3) = 'num_zones' - Text_Summary1_name(2, 3) = 'num_iters' - Text_Summary1_name(3, 3) = 'num_retries' - Text_Summary1_name(4, 3) = ' ' - Text_Summary1_name(5, 3) = ' ' - - Grid2_title = 'ns_he' - Grid2_plot_name(1) = 'Profile_Panels1' - Grid2_plot_name(2) = 'Text_Summary1' - Grid2_plot_name(3) = 'Abundance' - Grid2_plot_name(4) = 'Power' - Grid2_plot_name(5) = 'Profile_Panels2' - Grid2_plot_row(1) = 1 - Grid2_plot_row(2) = 7 - Grid2_plot_row(3) = 1 - Grid2_plot_row(4) = 5 - Grid2_plot_row(5) = 1 - Grid2_plot_rowspan(1) = 6 - Grid2_plot_rowspan(2) = 2 - Grid2_plot_rowspan(3) = 4 - Grid2_plot_rowspan(4) = 4 - Grid2_plot_rowspan(5) = 6 - Grid2_plot_col(1) = 1 - Grid2_plot_col(2) = 1 - Grid2_plot_col(3) = 5 - Grid2_plot_col(4) = 5 - Grid2_plot_col(5) = 3 - Grid2_plot_colspan(1) = 2 - Grid2_plot_colspan(2) = 4 - Grid2_plot_colspan(3) = 3 - Grid2_plot_colspan(4) = 3 - Grid2_plot_colspan(5) = 2 - Grid2_plot_pad_left(1) = -0.02 - Grid2_plot_pad_left(2) = -0.08 - Grid2_plot_pad_left(3) = 0.14 - Grid2_plot_pad_left(4) = 0.14 - Grid2_plot_pad_left(5) = 0.06 - Grid2_plot_pad_right(1) = 0.07 - Grid2_plot_pad_right(2) = -0.12 - Grid2_plot_pad_right(3) = 0 - Grid2_plot_pad_right(4) = 0 - Grid2_plot_pad_right(5) = -0.01 - Grid2_plot_pad_top(1) = 0 - Grid2_plot_pad_top(2) = 0.08 - Grid2_plot_pad_top(3) = 0 - Grid2_plot_pad_top(4) = 0.06 - Grid2_plot_pad_top(5) = 0 - Grid2_plot_pad_bot(1) = 0 - Grid2_plot_pad_bot(2) = -0.04 - Grid2_plot_pad_bot(3) = 0.09 - Grid2_plot_pad_bot(4) = 0.03 - Grid2_plot_pad_bot(5) = 0 - Grid2_txt_scale_factor(1) = 0.65 - Grid2_txt_scale_factor(2) = 0.19 - Grid2_txt_scale_factor(3) = 0.65 - Grid2_txt_scale_factor(4) = 0.65 - Grid2_txt_scale_factor(5) = 0.65 - - Grid2_num_cols = 7 - Grid2_num_rows = 8 - Grid2_num_plots = 5 - - Grid2_win_flag = .true. - Grid2_win_width = 16 - Grid2_win_aspect_ratio = 0.6 - - Grid2_file_flag = .true. - Grid2_file_dir = 'pgstar_out' - Grid2_file_prefix = 'grid_' - Grid2_file_interval = 10000 - Grid2_file_width = 20 - Grid2_file_aspect_ratio = -1 + Profile_Panels_title(1) = '' + Profile_Panels_num_panels(1) = 2 + + Profile_Panels_xaxis_name(1) = 'logxm' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101d0 + Profile_Panels_xmax(1) = -101d0 + + Profile_Panels_yaxis_name(1, 1) = 'logRho' + Profile_Panels_yaxis_name(1, 2) = 'logT' + Profile_Panels_ymin(1, 1) = -101 + + Profile_Panels_other_yaxis_name(1, 1) = 'logP' + Profile_Panels_other_yaxis_name(1, 2) = 'entropy' + Profile_Panels_other_ymin(1, 1) = -101 + + Profile_Panels_title(2) = '' + Profile_Panels_num_panels(2) = 2 + + Profile_Panels_xaxis_name(2) = 'logxm' + Profile_Panels_xaxis_reversed(2) = .true. + Profile_Panels_xmin(2) = -101d0 + Profile_Panels_xmax(2) = -101d0 + + Profile_Panels_yaxis_name(2, 1) = 'luminosity' + Profile_Panels_yaxis_name(2, 2) = 'net_nuclear_energy' + Profile_Panels_ymin(2, 1) = -101 + Profile_Panels_ymin(2, 2) = -101 + + Profile_Panels_other_yaxis_name(2, 1) = 'opacity' + Profile_Panels_other_yaxis_name(2, 2) = 'eps_nuc_neu_total' + Profile_Panels_other_ymin(2, 1) = -101 + Profile_Panels_other_ymin(2, 2) = -101 + + Text_Summary_txt_scale(1) = 5.5 + + Text_Summary_num_rows(1) = 5 + Text_Summary_num_cols(1) = 3 + Text_Summary_name(1, 1, 1) = 'model_number' + Text_Summary_name(1, 2, 1) = 'star_age_sec' + Text_Summary_name(1, 3, 1) = 'time_step_sec' + Text_Summary_name(1, 4, 1) = 'log_rel_run_E_err' + Text_Summary_name(1, 5, 1) = 'total_energy' + Text_Summary_name(1, 1, 2) = 'log_power_nuc_burn' + Text_Summary_name(1, 2, 2) = 'log_abs_mdot' + Text_Summary_name(1, 3, 2) = 'log_xmstar' + Text_Summary_name(1, 4, 2) = 'm_center' + Text_Summary_name(1, 5, 2) = 'r_center_km' + Text_Summary_name(1, 1, 3) = 'num_zones' + Text_Summary_name(1, 2, 3) = 'num_iters' + Text_Summary_name(1, 3, 3) = 'num_retries' + Text_Summary_name(1, 4, 3) = ' ' + Text_Summary_name(1, 5, 3) = ' ' + + Grid_title(2) = 'ns_he' + Grid_plot_name(2, 1) = 'Profile_Panels1' + Grid_plot_name(2, 2) = 'Text_Summary1' + Grid_plot_name(2, 3) = 'Abundance' + Grid_plot_name(2, 4) = 'Power' + Grid_plot_name(2, 5) = 'Profile_Panels2' + Grid_plot_row(2, 1) = 1 + Grid_plot_row(2, 2) = 7 + Grid_plot_row(2, 3) = 1 + Grid_plot_row(2, 4) = 5 + Grid_plot_row(2, 5) = 1 + Grid_plot_rowspan(2, 1) = 6 + Grid_plot_rowspan(2, 2) = 2 + Grid_plot_rowspan(2, 3) = 4 + Grid_plot_rowspan(2, 4) = 4 + Grid_plot_rowspan(2, 5) = 6 + Grid_plot_col(2, 1) = 1 + Grid_plot_col(2, 2) = 1 + Grid_plot_col(2, 3) = 5 + Grid_plot_col(2, 4) = 5 + Grid_plot_col(2, 5) = 3 + Grid_plot_colspan(2, 1) = 2 + Grid_plot_colspan(2, 2) = 4 + Grid_plot_colspan(2, 3) = 3 + Grid_plot_colspan(2, 4) = 3 + Grid_plot_colspan(2, 5) = 2 + Grid_plot_pad_left(2, 1) = -0.02 + Grid_plot_pad_left(2, 2) = -0.08 + Grid_plot_pad_left(2, 3) = 0.14 + Grid_plot_pad_left(2, 4) = 0.14 + Grid_plot_pad_left(2, 5) = 0.06 + Grid_plot_pad_right(2, 1) = 0.07 + Grid_plot_pad_right(2, 2) = -0.12 + Grid_plot_pad_right(2, 3) = 0 + Grid_plot_pad_right(2, 4) = 0 + Grid_plot_pad_right(2, 5) = -0.01 + Grid_plot_pad_top(2, 1) = 0 + Grid_plot_pad_top(2, 2) = 0.08 + Grid_plot_pad_top(2, 3) = 0 + Grid_plot_pad_top(2, 4) = 0.06 + Grid_plot_pad_top(2, 5) = 0 + Grid_plot_pad_bot(2, 1) = 0 + Grid_plot_pad_bot(2, 2) = -0.04 + Grid_plot_pad_bot(2, 3) = 0.09 + Grid_plot_pad_bot(2, 4) = 0.03 + Grid_plot_pad_bot(2, 5) = 0 + Grid_txt_scale_factor(2, 1) = 0.65 + Grid_txt_scale_factor(2, 2) = 0.19 + Grid_txt_scale_factor(2, 3) = 0.65 + Grid_txt_scale_factor(2, 4) = 0.65 + Grid_txt_scale_factor(2, 5) = 0.65 + + Grid_num_cols(2) = 7 + Grid_num_rows(2) = 8 + Grid_num_plots(2) = 5 + + Grid_win_flag(2) = .true. + Grid_win_width(2) = 16 + Grid_win_aspect_ratio(2) = 0.6 + + Grid_file_flag(2) = .true. + Grid_file_dir(2) = 'pgstar_out' + Grid_file_prefix(2) = 'grid_' + Grid_file_interval(2) = 10000 + Grid_file_width(2) = 20 + Grid_file_aspect_ratio(2) = -1 / ! end of pgstar namelist diff --git a/star/test_suite/pisn/inlist_common b/star/test_suite/pisn/inlist_common index 8c23f764c..b707f3c11 100644 --- a/star/test_suite/pisn/inlist_common +++ b/star/test_suite/pisn/inlist_common @@ -217,9 +217,9 @@ !pgstar_interval = 1 ! x-axis limits and properties -Profile_Panels3_xaxis_name = 'mass' -Profile_Panels3_xmin = 0.0 -Profile_Panels3_xmax = 1.6 -Profile_Panels3_xaxis_reversed = .false. +Profile_Panels_xaxis_name(3) = 'mass' +Profile_Panels_xmin(3) = 0.0 +Profile_Panels_xmax(3) = 1.6 +Profile_Panels_xaxis_reversed(3) = .false. / ! end of pgstar namelist diff --git a/star/test_suite/pisn/inlist_convert b/star/test_suite/pisn/inlist_convert index 0bdaeeca2..2b930eab1 100644 --- a/star/test_suite/pisn/inlist_convert +++ b/star/test_suite/pisn/inlist_convert @@ -130,16 +130,16 @@ !pause = .true. -Profile_Panels3_xmin = 0 ! -101d0 -Profile_Panels3_xmax = -101d0 -Profile_Panels3_yaxis_name(5) = 'logR_cm' +Profile_Panels_xmin(3) = 0 ! -101d0 +Profile_Panels_xmax(3) = -101d0 +Profile_Panels_yaxis_name(3, 5) = 'logR_cm' -Profile_Panels3_xaxis_name = 'zone' -Profile_Panels3_xmin = -101d0 ! -Profile_Panels3_xmax = -101d0 -Profile_Panels3_xaxis_reversed = .true. +Profile_Panels_xaxis_name(3) = 'zone' +Profile_Panels_xmin(3) = -101d0 ! +Profile_Panels_xmax(3) = -101d0 +Profile_Panels_xaxis_reversed(3) = .true. -Text_Summary1_name(2,2) = 'star_age_sec' +Text_Summary_name(1, 2, 2) = 'star_age_sec' TRho_Profile_xmin = 2.3 TRho_Profile_xmax = 8.2 diff --git a/star/test_suite/pisn/inlist_finish b/star/test_suite/pisn/inlist_finish index 7d6f7beb3..9e391f7d6 100644 --- a/star/test_suite/pisn/inlist_finish +++ b/star/test_suite/pisn/inlist_finish @@ -144,54 +144,54 @@ !pause = .true. - Grid1_file_flag = .true. - Grid1_file_dir = 'png' - Grid1_file_prefix = 'cc_' - Grid1_file_interval = 10 ! output when mod(model_number,Grid1_file_interval)==0 - - !History_Panels2_xaxis_name = 'star_age' - History_Panels2_automatic_star_age_units = .true. - - History_Panels2_yaxis_name(1) = 'total_energy_foe' - - Profile_Panels3_xaxis_name = 'mass' - Profile_Panels3_xmin = 15 ! 0.0 - Profile_Panels3_xmax = -101d0 - Profile_Panels3_xaxis_reversed = .false. - - Profile_Panels3_xaxis_name = 'zone' ! 'logxq' ! - Profile_Panels3_xmin = -101d0 - Profile_Panels3_xmax = -101d0 - Profile_Panels3_xaxis_reversed = .true. - - !Profile_Panels3_show_grid = .true. - - !Profile_Panels3_xaxis_name = 'logxq' - !Profile_Panels3_xmin = -6d0 - !Profile_Panels3_xmax = 0d0 - - Profile_Panels3_num_panels = 5 - - Profile_Panels3_yaxis_name(3) = 'gamma1' - Profile_Panels3_ymin(3) = 1.26d0 - Profile_Panels3_ymax(3) = -101d0 - Profile_Panels3_other_yaxis_name(3) = 'v_div_cs' - Profile_Panels3_other_dymin(3) = 0.15 - - Profile_Panels3_yaxis_name(4) = 'logRho' - Profile_Panels3_other_yaxis_name(4) = 'vel_km_per_s' - Profile_Panels3_other_dymin(4) = 12 - - Profile_Panels3_yaxis_name(5) = 'logT' - Profile_Panels3_ymin(5) = -101 - Profile_Panels3_other_yaxis_name(5) = 'v_div_v_escape' - Profile_Panels3_other_dymin(5) = 0.15 - Profile_Panels3_other_ymin(5) = -0.1 - Profile_Panels3_other_ymax(5) = 1.3d0 - - Text_Summary1_name(2,4) = 'log_R' - Text_Summary1_name(3,3) = 'remnant_M' - Text_Summary1_name(2,3) = 'ejecta_M' + Grid_file_flag(1) = .true. + Grid_file_dir(1) = 'png' + Grid_file_prefix(1) = 'cc_' + Grid_file_interval(1) = 10 ! output when mod(model_number,Grid_file_interval(1))==0 + + !History_Panels_xaxis_name(2) = 'star_age' + History_Panels_automatic_star_age_units(2) = .true. + + History_Panels_yaxis_name(2, 1) = 'total_energy_foe' + + Profile_Panels_xaxis_name(3) = 'mass' + Profile_Panels_xmin(3) = 15 ! 0.0 + Profile_Panels_xmax(3) = -101d0 + Profile_Panels_xaxis_reversed(3) = .false. + + Profile_Panels_xaxis_name(3) = 'zone' ! 'logxq' ! + Profile_Panels_xmin(3) = -101d0 + Profile_Panels_xmax(3) = -101d0 + Profile_Panels_xaxis_reversed(3) = .true. + + !Profile_Panels_show_grid(3) = .true. + + !Profile_Panels_xaxis_name(3) = 'logxq' + !Profile_Panels_xmin(3) = -6d0 + !Profile_Panels_xmax(3) = 0d0 + + Profile_Panels_num_panels(3) = 5 + + Profile_Panels_yaxis_name(3, 3) = 'gamma1' + Profile_Panels_ymin(3, 3) = 1.26d0 + Profile_Panels_ymax(3, 3) = -101d0 + Profile_Panels_other_yaxis_name(3, 3) = 'v_div_cs' + Profile_Panels_other_dymin(3, 3) = 0.15 + + Profile_Panels_yaxis_name(3, 4) = 'logRho' + Profile_Panels_other_yaxis_name(3, 4) = 'vel_km_per_s' + Profile_Panels_other_dymin(3, 4) = 12 + + Profile_Panels_yaxis_name(3, 5) = 'logT' + Profile_Panels_ymin(3, 5) = -101 + Profile_Panels_other_yaxis_name(3, 5) = 'v_div_v_escape' + Profile_Panels_other_dymin(3, 5) = 0.15 + Profile_Panels_other_ymin(3, 5) = -0.1 + Profile_Panels_other_ymax(3, 5) = 1.3d0 + + Text_Summary_name(1, 2, 4) = 'log_R' + Text_Summary_name(1, 3, 3) = 'remnant_M' + Text_Summary_name(1, 2, 3) = 'ejecta_M' TRho_Profile_xmin = 2.0 diff --git a/star/test_suite/pisn/inlist_pgstar b/star/test_suite/pisn/inlist_pgstar index bdb637f5b..31653115e 100644 --- a/star/test_suite/pisn/inlist_pgstar +++ b/star/test_suite/pisn/inlist_pgstar @@ -15,177 +15,177 @@ pgstar_show_age = .false. !------------------------------------------------------------------------------------ -Grid1_win_flag = .true. -Grid1_win_width = 10 -Grid1_win_aspect_ratio = 0.666 +Grid_win_flag(1) = .true. +Grid_win_width(1) = 10 +Grid_win_aspect_ratio(1) = 0.666 ! file output -!Grid1_file_flag = .true. -Grid1_file_dir = 'png' -Grid1_file_prefix = 'cc_' -Grid1_file_interval = 25 ! output when mod(model_number,Grid1_file_interval)==0 -Grid1_file_width = -1 ! (inches) negative means use same value as for window -Grid1_file_aspect_ratio = -1 ! negative means use same value as for window +!Grid_file_flag(1) = .true. +Grid_file_dir(1) = 'png' +Grid_file_prefix(1) = 'cc_' +Grid_file_interval(1) = 25 ! output when mod(model_number,Grid_file_interval(1))==0 +Grid_file_width(1) = -1 ! (inches) negative means use same value as for window +Grid_file_aspect_ratio(1) = -1 ! negative means use same value as for window ! reset the defaults -Grid1_plot_name(:) = '' -Grid1_plot_row(:) = 1 ! number from 1 at top -Grid1_plot_rowspan(:) = 1 ! plot spans this number of rows -Grid1_plot_col(:) = 1 ! number from 1 at left -Grid1_plot_colspan(:) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(:) = 0.0 ! fraction of full window width for padding on left -Grid1_plot_pad_right(:) = 0.0 ! fraction of full window width for padding on right -Grid1_plot_pad_top(:) = 0.0 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(:) = 0.0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(:) = 0.7 ! multiply txt_scale for subplot by this - - -Grid1_title = '' - -Grid1_num_cols = 3 ! divide plotting region into this many equal width cols -Grid1_num_rows = 5 ! divide plotting region into this many equal height rows -Grid1_num_plots = 5 - - -Grid1_plot_name(1) = 'Text_Summary1' -Grid1_plot_row(1) = 1 ! number from 1 at top -Grid1_plot_rowspan(1) = 1 ! plot spans this number of rows -Grid1_plot_col(1) = 1 ! number from 1 at left -Grid1_plot_colspan(1) = 3 ! plot spans this number of columns - -Grid1_plot_pad_left(1) = -0.03 ! fraction of full window width for padding on left -Grid1_plot_pad_right(1) = 0.0 ! fraction of full window width for padding on right -Grid1_plot_pad_top(1) = -0.06 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(1) = 0.07 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(1) = 1 ! 0.8 ! multiply txt_scale for subplot by this - -Grid1_plot_name(2) = 'TRho_Profile' -Grid1_plot_row(2) = 2 ! number from 1 at top -Grid1_plot_rowspan(2) = 1 ! plot spans this number of rows -Grid1_plot_col(2) = 2 ! number from 1 at left -Grid1_plot_colspan(2) = 1 ! plot spans this number of columns - -Grid1_plot_pad_left(2) = -0.01 ! fraction of full window width for padding on left -Grid1_plot_pad_right(2) = 0.06 ! fraction of full window width for padding on right -Grid1_plot_pad_top(2) = -0.04 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(2) = 0.01 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this - -Grid1_plot_name(3) = 'TRho' -Grid1_plot_row(3) = 2 ! number from 1 at top -Grid1_plot_rowspan(3) = 1 ! plot spans this number of rows -Grid1_plot_col(3) = 1 ! number from 1 at left -Grid1_plot_colspan(3) = 1 ! plot spans this number of columns - -Grid1_plot_pad_left(3) = 0.00 ! fraction of full window width for padding on left -Grid1_plot_pad_right(3) = 0.08 ! fraction of full window width for padding on right -Grid1_plot_pad_top(3) = -0.04 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(3) = 0.01 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(3) = 0.7 ! multiply txt_scale for subplot by this - -Grid1_plot_name(4) = 'Profile_Panels3' -Grid1_plot_row(4) = 2 ! number from 1 at top -Grid1_plot_rowspan(4) = 4 ! plot spans this number of rows -Grid1_plot_col(4) = 3 ! Number from 1 at left -Grid1_plot_colspan(4) = 1 ! plot spans this number of columns - -Grid1_plot_pad_left(4) = 0.02 ! fraction of full window width for padding on left -Grid1_plot_pad_right(4) = 0.06 ! fraction of full window width for padding on right -Grid1_plot_pad_top(4) = -0.04 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(4) = 0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(4) = 0.6 ! multiply txt_scale for subplot by this - -Grid1_plot_name(5) = 'History_Panels2' ! replaces Profile_Panels1 -Grid1_plot_row(5) = 3 ! number from 1 at top -Grid1_plot_rowspan(5) = 3 ! plot spans this number of rows -Grid1_plot_col(5) = 1 ! number from 1 at left -Grid1_plot_colspan(5) = 2 ! plot spans this number of columns - -Grid1_plot_pad_left(4) = 0.02 ! fraction of full window width for padding on left -Grid1_plot_pad_right(5) = 0.08 ! fraction of full window width for padding on right -Grid1_plot_pad_top(5) = 0.05 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(5) = 0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(5) = 0.6 ! multiply txt_scale for subplot by this +Grid_plot_name(1, :) = '' +Grid_plot_row(1, :) = 1 ! number from 1 at top +Grid_plot_rowspan(1, :) = 1 ! plot spans this number of rows +Grid_plot_col(1, :) = 1 ! number from 1 at left +Grid_plot_colspan(1, :) = 1 ! plot spans this number of columns +Grid_plot_pad_left(1, :) = 0.0 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, :) = 0.0 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, :) = 0.0 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, :) = 0.0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, :) = 0.7 ! multiply txt_scale for subplot by this + + +Grid_title(1) = '' + +Grid_num_cols(1) = 3 ! divide plotting region into this many equal width cols +Grid_num_rows(1) = 5 ! divide plotting region into this many equal height rows +Grid_num_plots(1) = 5 + + +Grid_plot_name(1, 1) = 'Text_Summary1' +Grid_plot_row(1, 1) = 1 ! number from 1 at top +Grid_plot_rowspan(1, 1) = 1 ! plot spans this number of rows +Grid_plot_col(1, 1) = 1 ! number from 1 at left +Grid_plot_colspan(1, 1) = 3 ! plot spans this number of columns + +Grid_plot_pad_left(1, 1) = -0.03 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 1) = 0.0 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 1) = -0.06 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 1) = 0.07 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 1) = 1 ! 0.8 ! multiply txt_scale for subplot by this + +Grid_plot_name(1, 2) = 'TRho_Profile' +Grid_plot_row(1, 2) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 2) = 1 ! plot spans this number of rows +Grid_plot_col(1, 2) = 2 ! number from 1 at left +Grid_plot_colspan(1, 2) = 1 ! plot spans this number of columns + +Grid_plot_pad_left(1, 2) = -0.01 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 2) = 0.06 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 2) = -0.04 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 2) = 0.01 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 2) = 0.7 ! multiply txt_scale for subplot by this + +Grid_plot_name(1, 3) = 'TRho' +Grid_plot_row(1, 3) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 3) = 1 ! plot spans this number of rows +Grid_plot_col(1, 3) = 1 ! number from 1 at left +Grid_plot_colspan(1, 3) = 1 ! plot spans this number of columns + +Grid_plot_pad_left(1, 3) = 0.00 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 3) = 0.08 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 3) = -0.04 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 3) = 0.01 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 3) = 0.7 ! multiply txt_scale for subplot by this + +Grid_plot_name(1, 4) = 'Profile_Panels3' +Grid_plot_row(1, 4) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 4) = 4 ! plot spans this number of rows +Grid_plot_col(1, 4) = 3 ! Number from 1 at left +Grid_plot_colspan(1, 4) = 1 ! plot spans this number of columns + +Grid_plot_pad_left(1, 4) = 0.02 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 4) = 0.06 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 4) = -0.04 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 4) = 0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 4) = 0.6 ! multiply txt_scale for subplot by this + +Grid_plot_name(1, 5) = 'History_Panels2' ! replaces Profile_Panels1 +Grid_plot_row(1, 5) = 3 ! number from 1 at top +Grid_plot_rowspan(1, 5) = 3 ! plot spans this number of rows +Grid_plot_col(1, 5) = 1 ! number from 1 at left +Grid_plot_colspan(1, 5) = 2 ! plot spans this number of columns + +Grid_plot_pad_left(1, 4) = 0.02 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 5) = 0.08 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 5) = 0.05 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 5) = 0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 5) = 0.6 ! multiply txt_scale for subplot by this !------------------------------------------------------------------------------------ -Profile_Panels3_win_flag = .false. +Profile_Panels_win_flag(3) = .false. -Profile_Panels3_txt_scale = 0.7 -Profile_Panels3_show_mix_regions_on_xaxis = .true. +Profile_Panels_txt_scale(3) = 0.7 +Profile_Panels_show_mix_regions_on_xaxis(3) = .true. -Profile_Panels3_title = '' +Profile_Panels_title(3) = '' -Profile_Panels3_num_panels = 5 +Profile_Panels_num_panels(3) = 5 -Profile_Panels3_yaxis_name(1) = 'Abundance' +Profile_Panels_yaxis_name(3, 1) = 'Abundance' -Profile_Panels3_yaxis_name(2) = 'Power' +Profile_Panels_yaxis_name(3, 2) = 'Power' -Profile_Panels3_yaxis_name(3) = 'Mixing' +Profile_Panels_yaxis_name(3, 3) = 'Mixing' Mixing_legend_txt_scale_factor = 0.9 -Profile_Panels3_yaxis_name(4) = 'logRho' -Profile_Panels3_other_yaxis_name(4) = 'v_div_cs' ! 'vel_km_per_s' ! 'entropy' -Profile_Panels3_other_dymin(4) = 0.75 +Profile_Panels_yaxis_name(3, 4) = 'logRho' +Profile_Panels_other_yaxis_name(3, 4) = 'v_div_cs' ! 'vel_km_per_s' ! 'entropy' +Profile_Panels_other_dymin(3, 4) = 0.75 -Profile_Panels3_yaxis_name(5) = 'logT' -Profile_Panels3_other_yaxis_name(5) = 'burn_num_iters' +Profile_Panels_yaxis_name(3, 5) = 'logT' +Profile_Panels_other_yaxis_name(3, 5) = 'burn_num_iters' ! x-axis limits and properties -Profile_Panels3_xaxis_name = 'mass' -Profile_Panels3_xmin = 0.0 -Profile_Panels3_xmax = -101d0 ! 2.2 -Profile_Panels3_xaxis_reversed = .false. +Profile_Panels_xaxis_name(3) = 'mass' +Profile_Panels_xmin(3) = 0.0 +Profile_Panels_xmax(3) = -101d0 ! 2.2 +Profile_Panels_xaxis_reversed(3) = .false. -Profile_Panels3_xaxis_name = 'zone' -Profile_Panels3_xmin = 0 -Profile_Panels3_xmax = -101d0 -Profile_Panels3_xaxis_reversed = .true. +Profile_Panels_xaxis_name(3) = 'zone' +Profile_Panels_xmin(3) = 0 +Profile_Panels_xmax(3) = -101d0 +Profile_Panels_xaxis_reversed(3) = .true. !------------------------------------------------------------------------------------ -!Profile_Panels1_win_flag = .true. -!Profile_Panels1_file_flag = .true. - Profile_Panels1_file_dir = 'png' - Profile_Panels1_file_prefix = 'profile_panels1_' - Profile_Panels1_file_interval = 1 - Profile_Panels1_file_width = -1 - Profile_Panels1_file_aspect_ratio = -1 +!Profile_Panels_win_flag(1) = .true. +!Profile_Panels_file_flag(1) = .true. + Profile_Panels_file_dir(1) = 'png' + Profile_Panels_file_prefix(1) = 'profile_panels1_' + Profile_Panels_file_interval(1) = 1 + Profile_Panels_file_width(1) = -1 + Profile_Panels_file_aspect_ratio(1) = -1 -Profile_Panels1_title = '' +Profile_Panels_title(1) = '' -Profile_Panels1_txt_scale = 0.7 -Profile_Panels1_num_panels = 4 +Profile_Panels_txt_scale(1) = 0.7 +Profile_Panels_num_panels(1) = 4 -Profile_Panels1_yaxis_name(1) = 'logRho' -Profile_Panels1_other_yaxis_name(1) = 'logT' +Profile_Panels_yaxis_name(1, 1) = 'logRho' +Profile_Panels_other_yaxis_name(1, 1) = 'logT' -Profile_Panels1_yaxis_name(2) = 'entropy' -Profile_Panels1_other_yaxis_name(2) = 'pgas_div_p' +Profile_Panels_yaxis_name(1, 2) = 'entropy' +Profile_Panels_other_yaxis_name(1, 2) = 'pgas_div_p' -Profile_Panels1_yaxis_name(3) = 'gradT' -Profile_Panels1_other_yaxis_name(3) = 'grada' -Profile_Panels1_same_yaxis_range(3) = .true. +Profile_Panels_yaxis_name(1, 3) = 'gradT' +Profile_Panels_other_yaxis_name(1, 3) = 'grada' +Profile_Panels_same_yaxis_range(1, 3) = .true. -Profile_Panels1_yaxis_name(4) = 'log_opacity' -Profile_Panels1_other_yaxis_name(4) = 'gradr' +Profile_Panels_yaxis_name(1, 4) = 'log_opacity' +Profile_Panels_other_yaxis_name(1, 4) = 'gradr' ! x-axis limits and properties -Profile_Panels1_xaxis_name = 'logtau' -Profile_Panels1_xmin = -101d0 -Profile_Panels1_xmax = 8.1 -Profile_Panels1_xaxis_reversed = .true. +Profile_Panels_xaxis_name(1) = 'logtau' +Profile_Panels_xmin(1) = -101d0 +Profile_Panels_xmax(1) = 8.1 +Profile_Panels_xaxis_reversed(1) = .true. -!Profile_Panels1_xaxis_name = 'zone' -!Profile_Panels1_xmin = 15 -!Profile_Panels1_xmax = 270 -!Profile_Panels1_xaxis_reversed = .true. +!Profile_Panels_xaxis_name(1) = 'zone' +!Profile_Panels_xmin(1) = 15 +!Profile_Panels_xmax(1) = 270 +!Profile_Panels_xaxis_reversed(1) = .true. -!Profile_Panels1_show_grid = .true. -Profile_Panels1_show_mix_regions_on_xaxis = .true. +!Profile_Panels_show_grid(1) = .true. +Profile_Panels_show_mix_regions_on_xaxis(1) = .true. !------------------------------------------------------------------------------------ @@ -278,113 +278,113 @@ profile_mass_point_str_clr(3) = 1 ! Text_Summary windows -Text_Summary1_win_flag = .false. -Text_Summary1_win_width = 10 -Text_Summary1_win_aspect_ratio = 0.15 - -Text_Summary1_xleft = 0.01 -Text_Summary1_xright = 0.99 -Text_Summary1_ybot = 0.0 -Text_Summary1_ytop = 1.0 -Text_Summary1_txt_scale = 0.92 -Text_Summary1_title = '' - -Text_Summary1_num_rows = 6 ! <= 20 -Text_Summary1_num_cols = 5 ! <= 20 -Text_Summary1_name(:,:) = '' - -Text_Summary1_name(1,1) = 'model_number' -Text_Summary1_name(1,2) = 'time_step_sec' -Text_Summary1_name(1,3) = 'Mass' -Text_Summary1_name(1,4) = 'log_L' -Text_Summary1_name(1,5) = 'log_Teff' - -Text_Summary1_name(2,1) = 'log_max_T' -Text_Summary1_name(2,2) = 'star_age_day' -Text_Summary1_name(2,3) = 'lg_Mdot' -Text_Summary1_name(2,4) = 'He_cntr' -Text_Summary1_name(2,5) = 'He_core' - -Text_Summary1_name(3,1) = 'log_cntr_T' -Text_Summary1_name(3,2) = 'gamma1_min' -Text_Summary1_name(3,3) = 'log_R' -Text_Summary1_name(3,4) = 'C_cntr' -Text_Summary1_name(3,5) = 'CO_core' - -Text_Summary1_name(4,1) = 'log_cntr_Rho' -Text_Summary1_name(4,2) = 'log_LH' -Text_Summary1_name(4,3) = 'lg_Lnuc' -Text_Summary1_name(4,4) = 'O_cntr' -Text_Summary1_name(4,5) = 'Fe_core' - -Text_Summary1_name(5,1) = 'fe_core_infall' -Text_Summary1_name(5,2) = 'log_LHe' -Text_Summary1_name(5,3) = 'lg_Lneu' -Text_Summary1_name(5,4) = 'Ne_cntr' -Text_Summary1_name(5,5) = 'zones' - -Text_Summary1_name(6,1) = 'integral_gamma1' -Text_Summary1_name(6,2) = 'log_LZ' -Text_Summary1_name(6,3) = 'lg_Lphoto' -Text_Summary1_name(6,4) = 'Si_cntr' -Text_Summary1_name(6,5) = 'retries' +Text_Summary_win_flag(1) = .false. +Text_Summary_win_width(1) = 10 +Text_Summary_win_aspect_ratio(1) = 0.15 + +Text_Summary_xleft(1) = 0.01 +Text_Summary_xright(1) = 0.99 +Text_Summary_ybot(1) = 0.0 +Text_Summary_ytop(1) = 1.0 +Text_Summary_txt_scale(1) = 0.92 +Text_Summary_title(1) = '' + +Text_Summary_num_rows(1) = 6 ! <= 20 +Text_Summary_num_cols(1) = 5 ! <= 20 +Text_Summary_name(1, :, :) = '' + +Text_Summary_name(1, 1, 1) = 'model_number' +Text_Summary_name(1, 1, 2) = 'time_step_sec' +Text_Summary_name(1, 1, 3) = 'Mass' +Text_Summary_name(1, 1, 4) = 'log_L' +Text_Summary_name(1, 1, 5) = 'log_Teff' + +Text_Summary_name(1, 2, 1) = 'log_max_T' +Text_Summary_name(1, 2, 2) = 'star_age_day' +Text_Summary_name(1, 2, 3) = 'lg_Mdot' +Text_Summary_name(1, 2, 4) = 'He_cntr' +Text_Summary_name(1, 2, 5) = 'He_core' + +Text_Summary_name(1, 3, 1) = 'log_cntr_T' +Text_Summary_name(1, 3, 2) = 'gamma1_min' +Text_Summary_name(1, 3, 3) = 'log_R' +Text_Summary_name(1, 3, 4) = 'C_cntr' +Text_Summary_name(1, 3, 5) = 'CO_core' + +Text_Summary_name(1, 4, 1) = 'log_cntr_Rho' +Text_Summary_name(1, 4, 2) = 'log_LH' +Text_Summary_name(1, 4, 3) = 'lg_Lnuc' +Text_Summary_name(1, 4, 4) = 'O_cntr' +Text_Summary_name(1, 4, 5) = 'Fe_core' + +Text_Summary_name(1, 5, 1) = 'fe_core_infall' +Text_Summary_name(1, 5, 2) = 'log_LHe' +Text_Summary_name(1, 5, 3) = 'lg_Lneu' +Text_Summary_name(1, 5, 4) = 'Ne_cntr' +Text_Summary_name(1, 5, 5) = 'zones' + +Text_Summary_name(1, 6, 1) = 'integral_gamma1' +Text_Summary_name(1, 6, 2) = 'log_LZ' +Text_Summary_name(1, 6, 3) = 'lg_Lphoto' +Text_Summary_name(1, 6, 4) = 'Si_cntr' +Text_Summary_name(1, 6, 5) = 'retries' !------------------------------------------------------------------------------------ - History_Panels2_title = '' + History_Panels_title(2) = '' - History_Panels2_max_width = -1 + History_Panels_max_width(2) = -1 - History_Panels2_txt_scale = 0.75 - History_Panels2_xmin = -101d0 - History_Panels2_xmax = -101d0 - History_Panels2_dxmin = -1 - History_Panels2_xaxis_reversed = .false. - History_Panels2_xaxis_log = .false. - History_Panels2_xmargin = 0.0 + History_Panels_txt_scale(2) = 0.75 + History_Panels_xmin(2) = -101d0 + History_Panels_xmax(2) = -101d0 + History_Panels_dxmin(2) = -1 + History_Panels_xaxis_reversed(2) = .false. + History_Panels_xaxis_log(2) = .false. + History_Panels_xmargin(2) = 0.0 - History_Panels2_xaxis_name = 'model_number' - !History_Panels2_xaxis_name = 'star_age' - History_Panels2_xmin = -101d0 - History_Panels2_xmax = -101d0 - - History_Panels2_num_panels = 3 - - History_Panels2_yaxis_name(1) = 'log_dt' - History_Panels2_yaxis_reversed(1) = .false. - History_Panels2_ymin(1) = -101d0 - History_Panels2_ymax(1) = -101d0 - History_Panels2_dymin(1) = 0.1 - - History_Panels2_other_yaxis_name(1) = 'log_cntr_T' - History_Panels2_other_ymin(1) = -101d0 - History_Panels2_other_ymax(1) = -101d0 - History_Panels2_other_dymin(1) = 0.1 - - History_Panels2_yaxis_name(2) = 'gamma1_min' - History_Panels2_yaxis_reversed(2) = .false. - History_Panels2_ymin(2) = -101d0 - History_Panels2_ymax(2) = -101d0 - History_Panels2_dymin(2) = 0.01 - - History_Panels2_other_yaxis_name(2) = 'integral_gamma1' - History_Panels2_other_yaxis_reversed(2) = .false. - History_Panels2_other_ymin(2) = -101d0 - History_Panels2_other_ymax(2) = -101d0 - -History_Panels2_yaxis_name(3) = 'non_fe_core_infall' -History_Panels2_yaxis_reversed(3) = .false. -History_Panels2_ymin(3) = -101d0 -History_Panels2_ymax(3) = -101d0 -History_Panels2_dymin(3) = 5 - -History_Panels2_other_yaxis_name(3) = '' -History_Panels2_other_yaxis_reversed(3) = .false. -History_Panels2_other_ymin(3) = -101d0 -History_Panels2_other_ymax(3) = -101d0 -History_Panels2_other_dymin(3) = 0.8 + History_Panels_xaxis_name(2) = 'model_number' + !History_Panels_xaxis_name(2) = 'star_age' + History_Panels_xmin(2) = -101d0 + History_Panels_xmax(2) = -101d0 + + History_Panels_num_panels(2) = 3 + + History_Panels_yaxis_name(2, 1) = 'log_dt' + History_Panels_yaxis_reversed(2, 1) = .false. + History_Panels_ymin(2, 1) = -101d0 + History_Panels_ymax(2, 1) = -101d0 + History_Panels_dymin(2, 1) = 0.1 + + History_Panels_other_yaxis_name(2, 1) = 'log_cntr_T' + History_Panels_other_ymin(2, 1) = -101d0 + History_Panels_other_ymax(2, 1) = -101d0 + History_Panels_other_dymin(2, 1) = 0.1 + + History_Panels_yaxis_name(2, 2) = 'gamma1_min' + History_Panels_yaxis_reversed(2, 2) = .false. + History_Panels_ymin(2, 2) = -101d0 + History_Panels_ymax(2, 2) = -101d0 + History_Panels_dymin(2, 2) = 0.01 + + History_Panels_other_yaxis_name(2, 2) = 'integral_gamma1' + History_Panels_other_yaxis_reversed(2, 2) = .false. + History_Panels_other_ymin(2, 2) = -101d0 + History_Panels_other_ymax(2, 2) = -101d0 + +History_Panels_yaxis_name(2, 3) = 'non_fe_core_infall' +History_Panels_yaxis_reversed(2, 3) = .false. +History_Panels_ymin(2, 3) = -101d0 +History_Panels_ymax(2, 3) = -101d0 +History_Panels_dymin(2, 3) = 5 + +History_Panels_other_yaxis_name(2, 3) = '' +History_Panels_other_yaxis_reversed(2, 3) = .false. +History_Panels_other_ymin(2, 3) = -101d0 +History_Panels_other_ymax(2, 3) = -101d0 +History_Panels_other_dymin(2, 3) = 0.8 !------------------------------------------------------------------------------------ @@ -600,73 +600,73 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window !----------------------------------------------------------------------- - History_Panels1_title = '' + History_Panels_title(1) = '' - History_Panels1_xaxis_name = 'model_number' - History_Panels1_max_width = -1 + History_Panels_xaxis_name(1) = 'model_number' + History_Panels_max_width(1) = -1 - !History_Panels1_xaxis_name = 'star_age' - !History_Panels1_max_width = 10 + !History_Panels_xaxis_name(1) = 'star_age' + !History_Panels_max_width(1) = 10 - History_Panels1_txt_scale = 0.75 - History_Panels1_xmin = -101d0 - History_Panels1_xmax = -101d0 - History_Panels1_dxmin = -1 - History_Panels1_xaxis_reversed = .false. - History_Panels1_xaxis_log = .false. - History_Panels1_xmargin = 0.0 + History_Panels_txt_scale(1) = 0.75 + History_Panels_xmin(1) = -101d0 + History_Panels_xmax(1) = -101d0 + History_Panels_dxmin(1) = -1 + History_Panels_xaxis_reversed(1) = .false. + History_Panels_xaxis_log(1) = .false. + History_Panels_xmargin(1) = 0.0 ! :: - History_Panels1_num_panels = 3 + History_Panels_num_panels(1) = 3 ! :: - History_Panels1_yaxis_name(1) = 'retries' - History_Panels1_yaxis_reversed(1) = .false. - History_Panels1_ymin(1) = -101d0 - History_Panels1_ymax(1) = -101d0 - History_Panels1_dymin(1) = 0.1 + History_Panels_yaxis_name(1, 1) = 'retries' + History_Panels_yaxis_reversed(1, 1) = .false. + History_Panels_ymin(1, 1) = -101d0 + History_Panels_ymax(1, 1) = -101d0 + History_Panels_dymin(1, 1) = 0.1 ! :: - History_Panels1_other_yaxis_name(1) = 'log_dt' - History_Panels1_other_yaxis_reversed(1) = .false. - History_Panels1_other_ymin(1) = -101d0 - History_Panels1_other_ymax(1) = -101d0 - History_Panels1_other_dymin(1) = 0.1 + History_Panels_other_yaxis_name(1, 1) = 'log_dt' + History_Panels_other_yaxis_reversed(1, 1) = .false. + History_Panels_other_ymin(1, 1) = -101d0 + History_Panels_other_ymax(1, 1) = -101d0 + History_Panels_other_dymin(1, 1) = 0.1 ! :: - History_Panels1_yaxis_name(2) = 'log_R' - History_Panels1_yaxis_reversed(2) = .false. - History_Panels1_ymin(2) = -101d0 - History_Panels1_ymax(2) = -101d0 - History_Panels1_dymin(2) = 0.01 + History_Panels_yaxis_name(1, 2) = 'log_R' + History_Panels_yaxis_reversed(1, 2) = .false. + History_Panels_ymin(1, 2) = -101d0 + History_Panels_ymax(1, 2) = -101d0 + History_Panels_dymin(1, 2) = 0.01 ! :: - History_Panels1_other_yaxis_name(2) = 'v_surf_km_s' - History_Panels1_other_yaxis_reversed(2) = .false. - History_Panels1_other_ymin(2) = -101d0 - History_Panels1_other_ymax(2) = -101d0 - History_Panels1_other_dymin(2) = 0.14 + History_Panels_other_yaxis_name(1, 2) = 'v_surf_km_s' + History_Panels_other_yaxis_reversed(1, 2) = .false. + History_Panels_other_ymin(1, 2) = -101d0 + History_Panels_other_ymax(1, 2) = -101d0 + History_Panels_other_dymin(1, 2) = 0.14 ! :: - History_Panels1_yaxis_name(3) = 'log_cntr_Rho' - History_Panels1_yaxis_reversed(3) = .false. - History_Panels1_ymin(3) = -101d0 - History_Panels1_ymax(3) = -101d0 - History_Panels1_dymin(3) = 0.01 + History_Panels_yaxis_name(1, 3) = 'log_cntr_Rho' + History_Panels_yaxis_reversed(1, 3) = .false. + History_Panels_ymin(1, 3) = -101d0 + History_Panels_ymax(1, 3) = -101d0 + History_Panels_dymin(1, 3) = 0.01 ! :: - History_Panels1_other_yaxis_name(3) = 'log_max_T' - History_Panels1_other_yaxis_reversed(3) = .false. - History_Panels1_other_ymin(3) = -101d0 - History_Panels1_other_ymax(3) = -101d0 - History_Panels1_other_dymin(3) = 0.01 + History_Panels_other_yaxis_name(1, 3) = 'log_max_T' + History_Panels_other_yaxis_reversed(1, 3) = .false. + History_Panels_other_ymin(1, 3) = -101d0 + History_Panels_other_ymax(1, 3) = -101d0 + History_Panels_other_dymin(1, 3) = 0.01 !----------------------------------------------------------------------- diff --git a/star/test_suite/pisn/inlist_remove_envelope b/star/test_suite/pisn/inlist_remove_envelope index ce3e3fc8f..53c82a0b5 100644 --- a/star/test_suite/pisn/inlist_remove_envelope +++ b/star/test_suite/pisn/inlist_remove_envelope @@ -126,9 +126,9 @@ &pgstar -Profile_Panels3_xmin = 0 ! 2.5 ! -101d0 -Profile_Panels3_xmax = -101d0 ! -Profile_Panels3_yaxis_name(4) = 'gamma1' +Profile_Panels_xmin(3) = 0 ! 2.5 ! -101d0 +Profile_Panels_xmax(3) = -101d0 ! +Profile_Panels_yaxis_name(3, 4) = 'gamma1' TRho_Profile_xmin = 2.0 TRho_Profile_xmax = 7.5 diff --git a/star/test_suite/pisn/inlist_to_end_core_c_burn b/star/test_suite/pisn/inlist_to_end_core_c_burn index 405788545..428c344c7 100644 --- a/star/test_suite/pisn/inlist_to_end_core_c_burn +++ b/star/test_suite/pisn/inlist_to_end_core_c_burn @@ -142,21 +142,21 @@ !pause = .true. !pgstar_interval = 1 -Profile_Panels3_xmin = 0 ! 2.5 ! -101d0 -Profile_Panels3_xmax = -101d0 ! +Profile_Panels_xmin(3) = 0 ! 2.5 ! -101d0 +Profile_Panels_xmax(3) = -101d0 ! -Text_Summary1_name(2,2) = 'star_age' +Text_Summary_name(1, 2, 2) = 'star_age' TRho_Profile_xmin = 2.5 TRho_Profile_xmax = 7.5 TRho_Profile_ymin = 8.4 TRho_Profile_ymax = 9.5 -!Profile_Panels3_yaxis_name(5) = 'logtau' -!Profile_Panels3_other_yaxis_name(5) = 'log_opacity' -!Profile_Panels3_xaxis_name = 'zone' -!Profile_Panels3_xmin = 0 -!Profile_Panels3_xmax = 200 -!Profile_Panels3_xaxis_reversed = .true. +!Profile_Panels_yaxis_name(3, 5) = 'logtau' +!Profile_Panels_other_yaxis_name(3, 5) = 'log_opacity' +!Profile_Panels_xaxis_name(3) = 'zone' +!Profile_Panels_xmin(3) = 0 +!Profile_Panels_xmax(3) = 200 +!Profile_Panels_xaxis_reversed(3) = .true. / ! end of pgstar namelist diff --git a/star/test_suite/pisn/inlist_to_end_core_he_burn b/star/test_suite/pisn/inlist_to_end_core_he_burn index 2341b78a8..e728baf60 100644 --- a/star/test_suite/pisn/inlist_to_end_core_he_burn +++ b/star/test_suite/pisn/inlist_to_end_core_he_burn @@ -142,16 +142,16 @@ &pgstar !pause = .true. -Grid1_plot_name(3) = 'HR' -Profile_Panels3_xmin = -101d0 -Profile_Panels3_xmax = -101d0 -Profile_Panels3_other_yaxis_name(4) = 'entropy' +Grid_plot_name(1, 3) = 'HR' +Profile_Panels_xmin(3) = -101d0 +Profile_Panels_xmax(3) = -101d0 +Profile_Panels_other_yaxis_name(3, 4) = 'entropy' TRho_Profile_xmin = -5 TRho_Profile_xmax = 7.5 TRho_Profile_ymin = 5.5 TRho_Profile_ymax = 9.2 -Text_Summary1_name(2,2) = 'star_age' +Text_Summary_name(1, 2, 2) = 'star_age' / ! end of pgstar namelist diff --git a/star/test_suite/pisn/inlist_to_zams b/star/test_suite/pisn/inlist_to_zams index 5c07d0128..9942df24e 100644 --- a/star/test_suite/pisn/inlist_to_zams +++ b/star/test_suite/pisn/inlist_to_zams @@ -146,14 +146,14 @@ !pause = .true. -Grid1_plot_name(3) = 'HR' -Profile_Panels3_xmin = -101d0 -Profile_Panels3_xmax = -101d0 -Profile_Panels3_other_yaxis_name(4) = 'entropy' - -!Profile_Panels3_xaxis_name = 'zone' -!Profile_Panels3_xmin = 48 -!Profile_Panels3_xmax = 58 -!Profile_Panels3_xaxis_reversed = .true. +Grid_plot_name(1, 3) = 'HR' +Profile_Panels_xmin(3) = -101d0 +Profile_Panels_xmax(3) = -101d0 +Profile_Panels_other_yaxis_name(3, 4) = 'entropy' + +!Profile_Panels_xaxis_name(3) = 'zone' +!Profile_Panels_xmin(3) = 48 +!Profile_Panels_xmax(3) = 58 +!Profile_Panels_xaxis_reversed(3) = .true. / ! end of pgstar namelist diff --git a/star/test_suite/ppisn/inlist_pgstar b/star/test_suite/ppisn/inlist_pgstar index ec876191a..1666fb1c7 100644 --- a/star/test_suite/ppisn/inlist_pgstar +++ b/star/test_suite/ppisn/inlist_pgstar @@ -11,145 +11,145 @@ pgstar_left_yaxis_label_scale = 1.3 pgstar_right_yaxis_label_scale = 1.3 - Grid2_win_flag = .true. - !Grid2_win_flag = .false. + Grid_win_flag(2) = .true. + !Grid_win_flag(2) = .false. - Grid2_win_width = 15 - Grid2_win_aspect_ratio = 0.65 ! aspect_ratio = height/width + Grid_win_width(2) = 15 + Grid_win_aspect_ratio(2) = 0.65 ! aspect_ratio = height/width - Grid2_plot_name(4) = 'Mixing' + Grid_plot_name(2, 4) = 'Mixing' - Grid2_num_cols = 7 ! divide plotting region into this many equal width cols - Grid2_num_rows = 8 ! divide plotting region into this many equal height rows + Grid_num_cols(2) = 7 ! divide plotting region into this many equal width cols + Grid_num_rows(2) = 8 ! divide plotting region into this many equal height rows - Grid2_num_plots = 6 ! <= 10 + Grid_num_plots(2) = 6 ! <= 10 - Grid2_plot_name(1) = 'TRho_Profile' - Grid2_plot_row(1) = 1 ! number from 1 at top - Grid2_plot_rowspan(1) = 3 ! plot spans this number of rows - Grid2_plot_col(1) = 1 ! number from 1 at left - Grid2_plot_colspan(1) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(1) = -0.05 ! fraction of full window width for padding on left - Grid2_plot_pad_right(1) = 0.01 ! fraction of full window width for padding on right - Grid2_plot_pad_top(1) = 0.00 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(1) = 0.05 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(1) = 0.65 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 1) = 'TRho_Profile' + Grid_plot_row(2, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 1) = 3 ! plot spans this number of rows + Grid_plot_col(2, 1) = 1 ! number from 1 at left + Grid_plot_colspan(2, 1) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 1) = -0.05 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 1) = 0.01 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 1) = 0.00 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 1) = 0.05 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 1) = 0.65 ! multiply txt_scale for subplot by this - Grid2_plot_name(5) = 'Kipp' - Grid2_plot_row(5) = 4 ! number from 1 at top - Grid2_plot_rowspan(5) = 3 ! plot spans this number of rows - Grid2_plot_col(5) = 1 ! number from 1 at left - Grid2_plot_colspan(5) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(5) = -0.05 ! fraction of full window width for padding on left - Grid2_plot_pad_right(5) = 0.01 ! fraction of full window width for padding on right - Grid2_plot_pad_top(5) = 0.03 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(5) = 0.0 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(5) = 0.65 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 5) = 'Kipp' + Grid_plot_row(2, 5) = 4 ! number from 1 at top + Grid_plot_rowspan(2, 5) = 3 ! plot spans this number of rows + Grid_plot_col(2, 5) = 1 ! number from 1 at left + Grid_plot_colspan(2, 5) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 5) = -0.05 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 5) = 0.01 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 5) = 0.03 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 5) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 5) = 0.65 ! multiply txt_scale for subplot by this Kipp_title = '' Kipp_show_mass_boundaries = .false. - Grid2_plot_name(6) = 'History_Panels1' - Grid2_plot_row(6) = 6 ! number from 1 at top - Grid2_plot_rowspan(6) = 3 ! plot spans this number of rows - Grid2_plot_col(6) = 6 ! number from 1 at left - Grid2_plot_colspan(6) = 2 ! plot spans this number of columns - !Grid2_plot_pad_left(6) = 0.00 ! fraction of full window width for padding on left - !Grid2_plot_pad_right(6) = 0.05 ! fraction of full window width for padding on right - !Grid2_plot_pad_top(6) = 0.03 ! fraction of full window height for padding at top - !Grid2_plot_pad_bot(6) = 0.0 ! fraction of full window height for padding at bottom - !Grid2_txt_scale_factor(6) = 0.65 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 6) = 'History_Panels1' + Grid_plot_row(2, 6) = 6 ! number from 1 at top + Grid_plot_rowspan(2, 6) = 3 ! plot spans this number of rows + Grid_plot_col(2, 6) = 6 ! number from 1 at left + Grid_plot_colspan(2, 6) = 2 ! plot spans this number of columns + !Grid_plot_pad_left(2, 6) = 0.00 ! fraction of full window width for padding on left + !Grid_plot_pad_right(2, 6) = 0.05 ! fraction of full window width for padding on right + !Grid_plot_pad_top(2, 6) = 0.03 ! fraction of full window height for padding at top + !Grid_plot_pad_bot(2, 6) = 0.0 ! fraction of full window height for padding at bottom + !Grid_txt_scale_factor(2, 6) = 0.65 ! multiply txt_scale for subplot by this - Grid2_plot_pad_left(6) = 0.05 ! fraction of full window width for padding on left - Grid2_plot_pad_right(6) = 0.03 ! fraction of full window width for padding on right - Grid2_plot_pad_top(6) = 0.0 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(6) = 0.0 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(6) = 0.65 ! multiply txt_scale for subplot by this + Grid_plot_pad_left(2, 6) = 0.05 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 6) = 0.03 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 6) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 6) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 6) = 0.65 ! multiply txt_scale for subplot by this - History_Panels1_title = '' - History_Panels1_num_panels = 2 + History_Panels_title(1) = '' + History_Panels_num_panels(1) = 2 - History_Panels1_xaxis_name='model_number' - History_Panels1_max_width = -1 ! only used if > 0. causes xmin to move with xmax. - - History_Panels1_yaxis_name(1) = 'log_center_T' - History_Panels1_yaxis_reversed(1) = .false. - History_Panels1_ymin(1) = -101d0 ! only used if /= -101d0 - History_Panels1_ymax(1) = -101d0 ! only used if /= -101d0 - History_Panels1_dymin(1) = 1 - - History_Panels1_other_yaxis_name(1) = 'gamma_integral' - History_Panels1_other_yaxis_reversed(1) = .false. - History_Panels1_other_ymin(1) = -0.06d0 ! only used if /= -101d0 - History_Panels1_other_ymax(1) = 0.1d0 ! only used if /= -101d0 - History_Panels1_other_dymin(1) = 0.05d0 - - History_Panels1_yaxis_name(2) = 'log_Lnuc' - History_Panels1_yaxis_reversed(2) = .false. - History_Panels1_ymin(2) = 0d0 ! only used if /= -101d0 - History_Panels1_ymax(2) = 20d0 ! only used if /= -101d0 - History_Panels1_dymin(2) = 1 - - History_Panels1_other_yaxis_name(2) = 'log_Lneu' - History_Panels1_other_yaxis_reversed(2) = .false. - History_Panels1_other_ymin(2) = 0d0 ! only used if /= -101d0 - History_Panels1_other_ymax(2) = 20d0 ! only used if /= -101d0 - History_Panels1_other_dymin(2) = 1 - - Grid2_plot_name(2) = 'Text_Summary1' - Grid2_plot_row(2) = 7 ! number from 1 at top - Grid2_plot_rowspan(2) = 2 ! plot spans this number of rows - Grid2_plot_col(2) = 1 ! number from 1 at left - Grid2_plot_colspan(2) = 4 ! plot spans this number of columns - Grid2_plot_pad_left(2) = -0.08 ! fraction of full window width for padding on left - Grid2_plot_pad_right(2) = -0.10 ! fraction of full window width for padding on right - Grid2_plot_pad_top(2) = 0.08 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(2) = -0.04 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(2) = 0.19 ! multiply txt_scale for subplot by this + History_Panels_xaxis_name(1) ='model_number' + History_Panels_max_width(1) = -1 ! only used if > 0. causes xmin to move with xmax. + + History_Panels_yaxis_name(1, 1) = 'log_center_T' + History_Panels_yaxis_reversed(1, 1) = .false. + History_Panels_ymin(1, 1) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(1, 1) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(1, 1) = 1 + + History_Panels_other_yaxis_name(1, 1) = 'gamma_integral' + History_Panels_other_yaxis_reversed(1, 1) = .false. + History_Panels_other_ymin(1, 1) = -0.06d0 ! only used if /= -101d0 + History_Panels_other_ymax(1, 1) = 0.1d0 ! only used if /= -101d0 + History_Panels_other_dymin(1, 1) = 0.05d0 + + History_Panels_yaxis_name(1, 2) = 'log_Lnuc' + History_Panels_yaxis_reversed(1, 2) = .false. + History_Panels_ymin(1, 2) = 0d0 ! only used if /= -101d0 + History_Panels_ymax(1, 2) = 20d0 ! only used if /= -101d0 + History_Panels_dymin(1, 2) = 1 + + History_Panels_other_yaxis_name(1, 2) = 'log_Lneu' + History_Panels_other_yaxis_reversed(1, 2) = .false. + History_Panels_other_ymin(1, 2) = 0d0 ! only used if /= -101d0 + History_Panels_other_ymax(1, 2) = 20d0 ! only used if /= -101d0 + History_Panels_other_dymin(1, 2) = 1 + + Grid_plot_name(2, 2) = 'Text_Summary1' + Grid_plot_row(2, 2) = 7 ! number from 1 at top + Grid_plot_rowspan(2, 2) = 2 ! plot spans this number of rows + Grid_plot_col(2, 2) = 1 ! number from 1 at left + Grid_plot_colspan(2, 2) = 4 ! plot spans this number of columns + Grid_plot_pad_left(2, 2) = -0.08 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 2) = -0.10 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 2) = 0.08 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 2) = -0.04 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 2) = 0.19 ! multiply txt_scale for subplot by this - Text_Summary1_name(2,1) = 'star_age' - Text_Summary1_name(3,1) = 'time_step_sec' - Text_Summary1_name(8,1) = 'yr_since_coll' - Text_Summary1_name(3,2) = 'co_core_mass' - Text_Summary1_name(4,2) = 'M_below_vesc' - Text_Summary1_name(5,2) = 'gamma_integral' - Text_Summary1_name(6,2) = 'log_R_vesc_098' - Text_Summary1_name(7,2) = 'log_R_vesc_095' - Text_Summary1_name(8,2) = 'log_R_vesc_090' - - Grid2_plot_name(3) = 'Profile_Panels3' - Profile_Panels3_title = 'Abundance-Power-Mixing' - Profile_Panels3_num_panels = 3 - Profile_Panels3_yaxis_name(1) = 'Abundance' - Profile_Panels3_yaxis_name(2) = 'Power' - Profile_Panels3_yaxis_name(3) = 'Mixing' - - Profile_Panels3_xaxis_name = 'mass' - Profile_Panels3_xaxis_reversed = .false. - Profile_Panels3_xmin = -101d0 ! only used if /= -101d0 - Profile_Panels3_xmax = -101d0 ! 10 ! only used if /= -101d0 - - Grid2_plot_row(3) = 1 ! number from 1 at top - Grid2_plot_rowspan(3) = 6 ! plot spans this number of rows - Grid2_plot_col(3) = 3 ! plot spans this number of columns - Grid2_plot_colspan(3) = 3 ! plot spans this number of columns - - Grid2_plot_pad_left(3) = 0.09 ! fraction of full window width for padding on left - Grid2_plot_pad_right(3) = 0.07 ! fraction of full window width for padding on right - Grid2_plot_pad_top(3) = 0.0 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(3) = 0.0 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(3) = 0.65 ! multiply txt_scale for subplot by this + Text_Summary_name(1, 2, 1) = 'star_age' + Text_Summary_name(1, 3, 1) = 'time_step_sec' + Text_Summary_name(1, 8, 1) = 'yr_since_coll' + Text_Summary_name(1, 3, 2) = 'co_core_mass' + Text_Summary_name(1, 4, 2) = 'M_below_vesc' + Text_Summary_name(1, 5, 2) = 'gamma_integral' + Text_Summary_name(1, 6, 2) = 'log_R_vesc_098' + Text_Summary_name(1, 7, 2) = 'log_R_vesc_095' + Text_Summary_name(1, 8, 2) = 'log_R_vesc_090' + + Grid_plot_name(2, 3) = 'Profile_Panels3' + Profile_Panels_title(3) = 'Abundance-Power-Mixing' + Profile_Panels_num_panels(3) = 3 + Profile_Panels_yaxis_name(3, 1) = 'Abundance' + Profile_Panels_yaxis_name(3, 2) = 'Power' + Profile_Panels_yaxis_name(3, 3) = 'Mixing' + + Profile_Panels_xaxis_name(3) = 'mass' + Profile_Panels_xaxis_reversed(3) = .false. + Profile_Panels_xmin(3) = -101d0 ! only used if /= -101d0 + Profile_Panels_xmax(3) = -101d0 ! 10 ! only used if /= -101d0 + + Grid_plot_row(2, 3) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 3) = 6 ! plot spans this number of rows + Grid_plot_col(2, 3) = 3 ! plot spans this number of columns + Grid_plot_colspan(2, 3) = 3 ! plot spans this number of columns + + Grid_plot_pad_left(2, 3) = 0.09 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 3) = 0.07 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 3) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 3) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 3) = 0.65 ! multiply txt_scale for subplot by this - Grid2_plot_name(4) = 'Profile_Panels1' - Grid2_plot_row(4) = 1 ! number from 1 at top - Grid2_plot_rowspan(4) = 5 ! plot spans this number of rows - Grid2_plot_col(4) = 6 ! number from 1 at left - Grid2_plot_colspan(4) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(4) = 0.05 ! fraction of full window width for padding on left - Grid2_plot_pad_right(4) = 0.03 ! fraction of full window width for padding on right - Grid2_plot_pad_top(4) = 0.0 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(4) = 0.07 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(4) = 0.65 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 4) = 'Profile_Panels1' + Grid_plot_row(2, 4) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 4) = 5 ! plot spans this number of rows + Grid_plot_col(2, 4) = 6 ! number from 1 at left + Grid_plot_colspan(2, 4) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 4) = 0.05 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 4) = 0.03 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 4) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 4) = 0.07 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 4) = 0.65 ! multiply txt_scale for subplot by this Abundance_line_txt_scale_factor = 1.1 ! relative to other text @@ -157,37 +157,37 @@ Abundance_legend_max_cnt = 0 Abundance_log_mass_frac_min = -3.5 ! only used if < 0 - Profile_Panels1_title = '' + Profile_Panels_title(1) = '' - Profile_Panels1_xaxis_name = 'mass' + Profile_Panels_xaxis_name(1) = 'mass' - Profile_Panels1_xmin = -101d0 ! only used if /= -101d0 - Profile_Panels1_xmax = -101d0 ! only used if /= -101d0 - Profile_Panels1_num_panels = 3 + Profile_Panels_xmin(1) = -101d0 ! only used if /= -101d0 + Profile_Panels_xmax(1) = -101d0 ! only used if /= -101d0 + Profile_Panels_num_panels(1) = 3 - Profile_Panels1_yaxis_name(1) = 'vel_km_per_s' - Profile_Panels1_other_yaxis_name(1) = 'gamma1' - Profile_Panels1_dymin(1) = 50 - Profile_Panels1_other_ymax(1) = 1.41 - Profile_Panels1_other_ymin(1) = 1.28 + Profile_Panels_yaxis_name(1, 1) = 'vel_km_per_s' + Profile_Panels_other_yaxis_name(1, 1) = 'gamma1' + Profile_Panels_dymin(1, 1) = 50 + Profile_Panels_other_ymax(1, 1) = 1.41 + Profile_Panels_other_ymin(1, 1) = 1.28 - Profile_Panels1_yaxis_name(2) = 'omega' - Profile_Panels1_other_yaxis_name(2) = 'fp_rot' ! 'vel_km_per_s' - Profile_Panels1_other_ymax(2) = -101d0 ! -101d0 - Profile_Panels1_other_ymin(2) = -101d0 ! -101d0 - !Profile_Panels1_other_ymargin(2) = 0.1 ! 10 - !Profile_Panels1_other_dymin(2) = 0.5 + Profile_Panels_yaxis_name(1, 2) = 'omega' + Profile_Panels_other_yaxis_name(1, 2) = 'fp_rot' ! 'vel_km_per_s' + Profile_Panels_other_ymax(1, 2) = -101d0 ! -101d0 + Profile_Panels_other_ymin(1, 2) = -101d0 ! -101d0 + !Profile_Panels_other_ymargin(1, 2) = 0.1 ! 10 + !Profile_Panels_other_dymin(1, 2) = 0.5 - Profile_Panels1_yaxis_name(3) = 'logRho' - Profile_Panels1_ymax(3) = -101d0 - Profile_Panels1_ymin(3) = -2 - Profile_Panels1_dymin(3) = 0.1 + Profile_Panels_yaxis_name(1, 3) = 'logRho' + Profile_Panels_ymax(1, 3) = -101d0 + Profile_Panels_ymin(1, 3) = -2 + Profile_Panels_dymin(1, 3) = 0.1 - Profile_Panels1_other_yaxis_name(3) = 'spin_parameter' ! 'mass' - Profile_Panels1_other_ymax(3) = 2!5d0 - Profile_Panels1_other_ymin(3) = -101d0!-2d0 - !Profile_Panels1_other_dymin(3) = 0.15 + Profile_Panels_other_yaxis_name(1, 3) = 'spin_parameter' ! 'mass' + Profile_Panels_other_ymax(1, 3) = 2!5d0 + Profile_Panels_other_ymin(1, 3) = -101d0!-2d0 + !Profile_Panels_other_dymin(1, 3) = 0.15 show_TRho_Profile_kap_regions = .false. show_TRho_Profile_gamma1_4_3rd = .true. @@ -196,12 +196,12 @@ TRho_Profile_ymin = 2.5 !TRho_Profile_ymax = 10 - Grid2_file_flag = .true. - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid_' - Grid2_file_interval = 10 ! 1 ! output when mod(model_number,Grid2_file_interval)==0 - Grid2_file_width = -1 ! negative means use same value as for window - Grid2_file_aspect_ratio = -1 ! negative means use same value as for window + Grid_file_flag(2) = .true. + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid_' + Grid_file_interval(2) = 10 ! 1 ! output when mod(model_number,Grid_file_interval(2))==0 + Grid_file_width(2) = -1 ! negative means use same value as for window + Grid_file_aspect_ratio(2) = -1 ! negative means use same value as for window !show_TRho_Profile_eos_regions = .true. diff --git a/star/test_suite/ppisn/src/run_star_extras.f90 b/star/test_suite/ppisn/src/run_star_extras.f90 index 5b68e118a..f41435616 100644 --- a/star/test_suite/ppisn/src/run_star_extras.f90 +++ b/star/test_suite/ppisn/src/run_star_extras.f90 @@ -126,7 +126,7 @@ subroutine extras_controls(id, ierr) ! we turn pgstar on and off at some points, so we store the original setting pgstar_flag = s% job% pgstar_flag pgstar_interval = s% pg% pgstar_interval - pgstar_file_interval = s% pg% Grid2_file_interval + pgstar_file_interval = s% pg% Grid_file_interval(2) ! this is optional s% other_wind => brott_wind @@ -519,7 +519,7 @@ subroutine extras_startup(id, restart, ierr) s% xtra(x_star_age_at_relax) = -1d0 ! to avoid showing pgstar stuff during initial model creation s% pg% pgstar_interval = 100000000 - s% pg% Grid2_file_interval = 100000000 + s% pg% Grid_file_interval(2) = 100000000 else ! it is a restart if (s% lxtra(lx_hydro_on)) then call star_read_controls(id, 'inlist_hydro_on', ierr) @@ -867,7 +867,7 @@ integer function extras_start_step(id) if (pgstar_flag) then s% pg% pgstar_interval = pgstar_interval - s% pg% Grid2_file_interval = pgstar_file_interval + s% pg% Grid_file_interval(2) = pgstar_file_interval end if just_did_relax = .false. if (s% u_flag) then ! get point where v 0. causes xmin to move with xmax. + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 - !Profile_Panels1_show_grid = .true. + !Profile_Panels_show_grid(1) = .true. - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = -101D0 + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 + Profile_Panels_dymin(1, 4) = 0.02 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_BEP/inlist_rsp_BEP_make_cycle0 b/star/test_suite/rsp_BEP/inlist_rsp_BEP_make_cycle0 index 98f7a46a8..30312748f 100644 --- a/star/test_suite/rsp_BEP/inlist_rsp_BEP_make_cycle0 +++ b/star/test_suite/rsp_BEP/inlist_rsp_BEP_make_cycle0 @@ -102,27 +102,27 @@ pgstar_interval = 6 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_title = '0.26 M\d\(2281)\u Z=0.01 BEP' + Grid_title(2) = '0.26 M\d\(2281)\u Z=0.01 BEP' - History_Panels1_xaxis_name='star_age_day' - History_Panels1_max_width = 365 ! only used if > 0. causes xmin to move with xmax. + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 - !Profile_Panels1_show_grid = .true. + !Profile_Panels_show_grid(1) = .true. - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = -101D0 + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 + Profile_Panels_dymin(1, 4) = 0.02 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_BEP/inlist_rsp_BEP_std b/star/test_suite/rsp_BEP/inlist_rsp_BEP_std index 3b7bc0b4d..c8704b971 100644 --- a/star/test_suite/rsp_BEP/inlist_rsp_BEP_std +++ b/star/test_suite/rsp_BEP/inlist_rsp_BEP_std @@ -103,27 +103,27 @@ pgstar_interval = 6 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_title = '0.26 M\d\(2281)\u Z=0.01 BEP' + Grid_title(2) = '0.26 M\d\(2281)\u Z=0.01 BEP' - History_Panels1_xaxis_name='star_age_day' - History_Panels1_max_width = 365 ! only used if > 0. causes xmin to move with xmax. + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 - !Profile_Panels1_show_grid = .true. + !Profile_Panels_show_grid(1) = .true. - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = -101D0 + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 + Profile_Panels_dymin(1, 4) = 0.02 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_BEP/inlist_rsp_BEP_test_cycle0 b/star/test_suite/rsp_BEP/inlist_rsp_BEP_test_cycle0 index 3d47fda39..8000ad92e 100644 --- a/star/test_suite/rsp_BEP/inlist_rsp_BEP_test_cycle0 +++ b/star/test_suite/rsp_BEP/inlist_rsp_BEP_test_cycle0 @@ -101,27 +101,27 @@ pgstar_interval = 25 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_title = '0.26 M\d\(2281)\u Z=0.01 BEP' + Grid_title(2) = '0.26 M\d\(2281)\u Z=0.01 BEP' - History_Panels1_xaxis_name='star_age_day' - History_Panels1_max_width = 365 ! only used if > 0. causes xmin to move with xmax. + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 - !Profile_Panels1_show_grid = .true. + !Profile_Panels_show_grid(1) = .true. - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = -101D0 + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 + Profile_Panels_dymin(1, 4) = 0.02 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_BEP/inlist_rsp_pgstar_default b/star/test_suite/rsp_BEP/inlist_rsp_pgstar_default index 5b4b8c027..480a7c942 100644 --- a/star/test_suite/rsp_BEP/inlist_rsp_pgstar_default +++ b/star/test_suite/rsp_BEP/inlist_rsp_pgstar_default @@ -10,213 +10,213 @@ pgstar_right_yaxis_label_disp = 4.4 - Grid2_win_width = 8 - Grid2_win_aspect_ratio = 1.2 ! aspect_ratio = height/width - Grid2_num_cols = 3 ! divide plotting region into this many equal width cols - Grid2_num_rows = 8 ! divide plotting region into this many equal height rows - Grid2_num_plots = 6 ! <= 10 - - Grid2_plot_name(1) = 'Profile_Panels2' - Grid2_plot_row(1) = 1 ! number from 1 at top - Grid2_plot_rowspan(1) = 3 ! plot spans this number of rows - Grid2_plot_col(1) = 1 ! number from 1 at left - Grid2_plot_colspan(1) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(1) = -0.02 ! fraction of full window width for padding on left - Grid2_plot_pad_right(1) = 0.12 ! fraction of full window width for padding on right - Grid2_plot_pad_top(1) = -0.02 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(1) = -0.14 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(1) = 0.7 ! multiply txt_scale for subplot by this - - Grid2_plot_name(2) = 'History_Panels2' - Grid2_plot_row(2) = 4 ! number from 1 at top - Grid2_plot_rowspan(2) = 3 ! plot spans this number of rows - Grid2_plot_col(2) = 1 ! number from 1 at left - Grid2_plot_colspan(2) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(2) = -0.02 ! fraction of full window width for padding on left - Grid2_plot_pad_right(2) = 0.12 ! fraction of full window width for padding on right - Grid2_plot_pad_top(2) = 0.19 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(2) = -0.06 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this - - Grid2_plot_name(3) = 'Text_Summary2' - Grid2_plot_row(3) = 7 ! number from 1 at top - Grid2_plot_rowspan(3) = 2 ! plot spans this number of rows - Grid2_plot_col(3) = 1 ! number from 1 at left - Grid2_plot_colspan(3) = 3 ! plot spans this number of columns - Grid2_plot_pad_left(3) = -0.08 ! fraction of full window width for padding on left - Grid2_plot_pad_right(3) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(3) = 0.12 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(3) = -0.04 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(3) = 0.17 ! multiply txt_scale for subplot by this - - Grid2_plot_name(6) = 'logL_Teff' - Grid2_plot_row(6) = 1 ! number from 1 at top - Grid2_plot_rowspan(6) = 2 ! plot spans this number of rows - Grid2_plot_col(6) = 3 ! number from 1 at left - Grid2_plot_colspan(6) = 1 ! plot spans this number of columns - Grid2_plot_pad_left(6) = 0.04 ! fraction of full window width for padding on left - Grid2_plot_pad_right(6) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(6) = -0.02 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(6) = 0.02 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(6) = 0.6 ! multiply txt_scale for subplot by this + Grid_win_width(2) = 8 + Grid_win_aspect_ratio(2) = 1.2 ! aspect_ratio = height/width + Grid_num_cols(2) = 3 ! divide plotting region into this many equal width cols + Grid_num_rows(2) = 8 ! divide plotting region into this many equal height rows + Grid_num_plots(2) = 6 ! <= 10 + + Grid_plot_name(2, 1) = 'Profile_Panels2' + Grid_plot_row(2, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 1) = 3 ! plot spans this number of rows + Grid_plot_col(2, 1) = 1 ! number from 1 at left + Grid_plot_colspan(2, 1) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 1) = -0.02 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 1) = 0.12 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 1) = -0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 1) = -0.14 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 1) = 0.7 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 2) = 'History_Panels2' + Grid_plot_row(2, 2) = 4 ! number from 1 at top + Grid_plot_rowspan(2, 2) = 3 ! plot spans this number of rows + Grid_plot_col(2, 2) = 1 ! number from 1 at left + Grid_plot_colspan(2, 2) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 2) = -0.02 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 2) = 0.12 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 2) = 0.19 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 2) = -0.06 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 2) = 0.7 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 3) = 'Text_Summary2' + Grid_plot_row(2, 3) = 7 ! number from 1 at top + Grid_plot_rowspan(2, 3) = 2 ! plot spans this number of rows + Grid_plot_col(2, 3) = 1 ! number from 1 at left + Grid_plot_colspan(2, 3) = 3 ! plot spans this number of columns + Grid_plot_pad_left(2, 3) = -0.08 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 3) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 3) = 0.12 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 3) = -0.04 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 3) = 0.17 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 6) = 'logL_Teff' + Grid_plot_row(2, 6) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 6) = 2 ! plot spans this number of rows + Grid_plot_col(2, 6) = 3 ! number from 1 at left + Grid_plot_colspan(2, 6) = 1 ! plot spans this number of columns + Grid_plot_pad_left(2, 6) = 0.04 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 6) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 6) = -0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 6) = 0.02 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 6) = 0.6 ! multiply txt_scale for subplot by this logL_Teff_title = '' - Grid2_plot_name(5) = 'logL_v' - Grid2_plot_row(5) = 3 ! number from 1 at top - Grid2_plot_rowspan(5) = 2 ! plot spans this number of rows - Grid2_plot_col(5) = 3 ! number from 1 at left - Grid2_plot_colspan(5) = 1 ! plot spans this number of columns - Grid2_plot_pad_left(5) = 0.04 ! fraction of full window width for padding on left - Grid2_plot_pad_right(5) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(5) = 0.02 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(5) = -0.02 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(5) = 0.6 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 5) = 'logL_v' + Grid_plot_row(2, 5) = 3 ! number from 1 at top + Grid_plot_rowspan(2, 5) = 2 ! plot spans this number of rows + Grid_plot_col(2, 5) = 3 ! number from 1 at left + Grid_plot_colspan(2, 5) = 1 ! plot spans this number of columns + Grid_plot_pad_left(2, 5) = 0.04 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 5) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 5) = 0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 5) = -0.02 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 5) = 0.6 ! multiply txt_scale for subplot by this logL_v_title = '' - Grid2_plot_name(4) = 'logL_R' - Grid2_plot_row(4) = 5 ! number from 1 at top - Grid2_plot_rowspan(4) = 2 ! plot spans this number of rows - Grid2_plot_col(4) = 3 ! number from 1 at left - Grid2_plot_colspan(4) = 1 ! plot spans this number of columns - Grid2_plot_pad_left(4) = 0.04 ! fraction of full window width for padding on left - Grid2_plot_pad_right(4) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(4) = 0.06 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(4) = -0.06 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(4) = 0.6 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 4) = 'logL_R' + Grid_plot_row(2, 4) = 5 ! number from 1 at top + Grid_plot_rowspan(2, 4) = 2 ! plot spans this number of rows + Grid_plot_col(2, 4) = 3 ! number from 1 at left + Grid_plot_colspan(2, 4) = 1 ! plot spans this number of columns + Grid_plot_pad_left(2, 4) = 0.04 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 4) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 4) = 0.06 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 4) = -0.06 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 4) = 0.6 ! multiply txt_scale for subplot by this logL_R_title = '' - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid2' - Grid2_file_interval = 10 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid2' + Grid_file_interval(2) = 10 ! output when mod(model_number,Grid_file_interval(2))==0 - History_Panels2_title = '' - History_Panels2_num_panels = 2 + History_Panels_title(2) = '' + History_Panels_num_panels(2) = 2 - !History_Panels2_xaxis_name='model_number' - History_Panels2_xaxis_name='day' - History_Panels2_max_width = 40 ! 200 ! only used if > 0. causes xmin to move with xmax. - - History_Panels2_yaxis_name(1) = 'Teff' - History_Panels2_yaxis_reversed(1) = .false. - History_Panels2_ymin(1) = -101d0 ! only used if /= -101d0 - History_Panels2_ymax(1) = -101d0 ! only used if /= -101d0 - History_Panels2_dymin(1) = -1 - - History_Panels2_other_yaxis_name(1) = 'log_L' - History_Panels2_other_yaxis_reversed(1) = .false. - History_Panels2_other_ymin(1) = -101d0 ! only used if /= -101d0 - History_Panels2_other_ymax(1) = -101d0 ! only used if /= -101d0 - History_Panels2_other_dymin(1) = -1 - - History_Panels2_yaxis_name(2) = 'radius' ! 'star_mass' - History_Panels2_yaxis_reversed(2) = .false. - History_Panels2_ymin(2) = -101d0 ! only used if /= -101d0 - History_Panels2_ymax(2) = -101d0 ! only used if /= -101d0 - History_Panels2_dymin(2) = -1 - - History_Panels2_other_yaxis_name(2) = 'v_surf_km_s' - History_Panels2_other_yaxis_reversed(2) = .false. - History_Panels2_other_ymin(2) = -101d0 ! only used if /= -101d0 - History_Panels2_other_ymax(2) = -101d0 ! only used if /= -101d0 - History_Panels2_other_dymin(2) = -1 - - History_Panels2_yaxis_name(3) = 'r_center' ! 'star_mass' - History_Panels2_yaxis_reversed(3) = .false. - History_Panels2_ymin(3) = -101d0 ! only used if /= -101d0 - History_Panels2_ymax(3) = -101d0 ! only used if /= -101d0 - History_Panels2_dymin(3) = -1 - - History_Panels2_other_yaxis_name(3) = 'v_center' - History_Panels2_other_yaxis_reversed(3) = .false. - History_Panels2_other_ymin(3) = -101d0 ! only used if /= -101d0 - History_Panels2_other_ymax(3) = -101d0 ! only used if /= -101d0 - History_Panels2_other_dymin(3) = -1 + !History_Panels_xaxis_name(2) ='model_number' + History_Panels_xaxis_name(2) ='day' + History_Panels_max_width(2) = 40 ! 200 ! only used if > 0. causes xmin to move with xmax. + + History_Panels_yaxis_name(2, 1) = 'Teff' + History_Panels_yaxis_reversed(2, 1) = .false. + History_Panels_ymin(2, 1) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(2, 1) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(2, 1) = -1 + + History_Panels_other_yaxis_name(2, 1) = 'log_L' + History_Panels_other_yaxis_reversed(2, 1) = .false. + History_Panels_other_ymin(2, 1) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(2, 1) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(2, 1) = -1 + + History_Panels_yaxis_name(2, 2) = 'radius' ! 'star_mass' + History_Panels_yaxis_reversed(2, 2) = .false. + History_Panels_ymin(2, 2) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(2, 2) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(2, 2) = -1 + + History_Panels_other_yaxis_name(2, 2) = 'v_surf_km_s' + History_Panels_other_yaxis_reversed(2, 2) = .false. + History_Panels_other_ymin(2, 2) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(2, 2) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(2, 2) = -1 + + History_Panels_yaxis_name(2, 3) = 'r_center' ! 'star_mass' + History_Panels_yaxis_reversed(2, 3) = .false. + History_Panels_ymin(2, 3) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(2, 3) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(2, 3) = -1 + + History_Panels_other_yaxis_name(2, 3) = 'v_center' + History_Panels_other_yaxis_reversed(2, 3) = .false. + History_Panels_other_ymin(2, 3) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(2, 3) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(2, 3) = -1 - Profile_Panels2_win_flag = .false. - Profile_Panels2_title = '' + Profile_Panels_win_flag(2) = .false. + Profile_Panels_title(2) = '' - Profile_Panels2_xaxis_name = 'logtau' - Profile_Panels2_xaxis_reversed = .true. - Profile_Panels2_xmin = -101D0 - Profile_Panels2_xmax = 6.0 ! -101D0 - Profile_Panels2_show_mix_regions_on_xaxis = .true. - !Profile_Panels2_show_grid = .true. + Profile_Panels_xaxis_name(2) = 'logtau' + Profile_Panels_xaxis_reversed(2) = .true. + Profile_Panels_xmin(2) = -101D0 + Profile_Panels_xmax(2) = 6.0 ! -101D0 + Profile_Panels_show_mix_regions_on_xaxis(2) = .true. + !Profile_Panels_show_grid(2) = .true. - Profile_Panels2_num_panels = 5 + Profile_Panels_num_panels(2) = 5 - Profile_Panels2_yaxis_name(1) = 'v_div_cs' - Profile_Panels2_ymax(1) = -101D0 ! 1 - Profile_Panels2_ymin(1) = -101D0 ! -1 - Profile_Panels2_dymin(1) = 0.1 - Profile_Panels2_other_yaxis_name(1) = 'vel_km_per_s' - Profile_Panels2_other_ymax(1) = -101D0 ! 2e6 - Profile_Panels2_other_ymin(1) = -101D0 ! -2e6 - Profile_Panels2_other_dymin(1) = 0.1 + Profile_Panels_yaxis_name(2, 1) = 'v_div_cs' + Profile_Panels_ymax(2, 1) = -101D0 ! 1 + Profile_Panels_ymin(2, 1) = -101D0 ! -1 + Profile_Panels_dymin(2, 1) = 0.1 + Profile_Panels_other_yaxis_name(2, 1) = 'vel_km_per_s' + Profile_Panels_other_ymax(2, 1) = -101D0 ! 2e6 + Profile_Panels_other_ymin(2, 1) = -101D0 ! -2e6 + Profile_Panels_other_dymin(2, 1) = 0.1 - Profile_Panels2_yaxis_name(2) = 'lum_div_Ledd' - Profile_Panels2_ymax(2) = -101D0 ! 3.7 - Profile_Panels2_ymin(2) = -101D0 ! 3.1 - Profile_Panels2_dymin(2) = 0.02 - Profile_Panels2_other_yaxis_name(2) = 'logL' - Profile_Panels2_other_ymax(2) = -101D0 ! - Profile_Panels2_other_ymin(2) = -101D0 ! + Profile_Panels_yaxis_name(2, 2) = 'lum_div_Ledd' + Profile_Panels_ymax(2, 2) = -101D0 ! 3.7 + Profile_Panels_ymin(2, 2) = -101D0 ! 3.1 + Profile_Panels_dymin(2, 2) = 0.02 + Profile_Panels_other_yaxis_name(2, 2) = 'logL' + Profile_Panels_other_ymax(2, 2) = -101D0 ! + Profile_Panels_other_ymin(2, 2) = -101D0 ! - Profile_Panels2_yaxis_name(3) = 'logtau' - Profile_Panels2_other_yaxis_name(3) = 'opacity' + Profile_Panels_yaxis_name(2, 3) = 'logtau' + Profile_Panels_other_yaxis_name(2, 3) = 'opacity' - Profile_Panels2_yaxis_name(4) = 'Lc_div_L' - Profile_Panels2_ymax(4) = -101D0 - Profile_Panels2_ymin(4) = -101D0 - Profile_Panels2_other_yaxis_name(4) = 'mixing_type' - Profile_Panels2_other_ymax(4) = -101D0 ! - Profile_Panels2_other_ymin(4) = -101D0 ! - - Profile_Panels2_yaxis_name(5) = 'logT' - Profile_Panels2_other_yaxis_name(5) = 'free_e' + Profile_Panels_yaxis_name(2, 4) = 'Lc_div_L' + Profile_Panels_ymax(2, 4) = -101D0 + Profile_Panels_ymin(2, 4) = -101D0 + Profile_Panels_other_yaxis_name(2, 4) = 'mixing_type' + Profile_Panels_other_ymax(2, 4) = -101D0 ! + Profile_Panels_other_ymin(2, 4) = -101D0 ! + + Profile_Panels_yaxis_name(2, 5) = 'logT' + Profile_Panels_other_yaxis_name(2, 5) = 'free_e' - Profile_Panels2_yaxis_name(6) = 'log_dt_div_tau_conv' - Profile_Panels2_ymax(6) = -101D0 ! - Profile_Panels2_ymin(6) = -101D0 ! - Profile_Panels2_other_yaxis_name(6) = '' - Profile_Panels2_other_ymax(6) = 1d-3 - Profile_Panels2_other_ymin(6) = -1d-3 + Profile_Panels_yaxis_name(2, 6) = 'log_dt_div_tau_conv' + Profile_Panels_ymax(2, 6) = -101D0 ! + Profile_Panels_ymin(2, 6) = -101D0 ! + Profile_Panels_other_yaxis_name(2, 6) = '' + Profile_Panels_other_ymax(2, 6) = 1d-3 + Profile_Panels_other_ymin(2, 6) = -1d-3 - Profile_Panels2_file_flag = .false. - Profile_Panels2_file_dir = 'png' - Profile_Panels2_file_prefix = 'profile_panels1_' - Profile_Panels2_file_interval = 1 + Profile_Panels_file_flag(2) = .false. + Profile_Panels_file_dir(2) = 'png' + Profile_Panels_file_prefix(2) = 'profile_panels1_' + Profile_Panels_file_interval(2) = 1 - Text_Summary2_num_rows = 4 ! <= 20 - Text_Summary2_num_cols = 4 ! <= 20 - Text_Summary2_name(:,:) = '' - - Text_Summary2_name(1,1) = 'model_number' - Text_Summary2_name(2,1) = 'time_step_sec' - Text_Summary2_name(3,1) = 'log_rel_run_E_err' - Text_Summary2_name(4,1) = 'period' - Text_Summary2_name(5,1) = '' - - Text_Summary2_name(1,2) = 'v_surf_km_s' - Text_Summary2_name(2,2) = 'v_div_cs' - Text_Summary2_name(3,2) = 'radius' - Text_Summary2_name(4,2) = 'delta_R' - Text_Summary2_name(5,2) = '' - - Text_Summary2_name(1,3) = 'log_Teff' - Text_Summary2_name(2,3) = 'Teff' - Text_Summary2_name(3,3) = 'log_L' - Text_Summary2_name(4,3) = 'delta_logL' - Text_Summary2_name(5,3) = '' - - Text_Summary2_name(1,4) = 'num_zones' - Text_Summary2_name(2,4) = 'num_retries' - Text_Summary2_name(3,4) = 'num_periods' - Text_Summary2_name(4,4) = 'growth' - Text_Summary2_name(5,4) = '' + Text_Summary_num_rows(2) = 4 ! <= 20 + Text_Summary_num_cols(2) = 4 ! <= 20 + Text_Summary_name(2, :, :) = '' + + Text_Summary_name(2, 1, 1) = 'model_number' + Text_Summary_name(2, 2, 1) = 'time_step_sec' + Text_Summary_name(2, 3, 1) = 'log_rel_run_E_err' + Text_Summary_name(2, 4, 1) = 'period' + Text_Summary_name(2, 5, 1) = '' + + Text_Summary_name(2, 1, 2) = 'v_surf_km_s' + Text_Summary_name(2, 2, 2) = 'v_div_cs' + Text_Summary_name(2, 3, 2) = 'radius' + Text_Summary_name(2, 4, 2) = 'delta_R' + Text_Summary_name(2, 5, 2) = '' + + Text_Summary_name(2, 1, 3) = 'log_Teff' + Text_Summary_name(2, 2, 3) = 'Teff' + Text_Summary_name(2, 3, 3) = 'log_L' + Text_Summary_name(2, 4, 3) = 'delta_logL' + Text_Summary_name(2, 5, 3) = '' + + Text_Summary_name(2, 1, 4) = 'num_zones' + Text_Summary_name(2, 2, 4) = 'num_retries' + Text_Summary_name(2, 3, 4) = 'num_periods' + Text_Summary_name(2, 4, 4) = 'growth' + Text_Summary_name(2, 5, 4) = '' / ! end of pgstar namelist diff --git a/star/test_suite/rsp_BLAP/README.rst b/star/test_suite/rsp_BLAP/README.rst index 579d9cf03..2616bafe8 100644 --- a/star/test_suite/rsp_BLAP/README.rst +++ b/star/test_suite/rsp_BLAP/README.rst @@ -43,23 +43,23 @@ pgstar commands, in addition to those in ``inlist_rsp_pgstar_default``, used for pgstar_model_disp = 3.9 - History_Panels2_txt_scale = 0.7 - Profile_Panels2_txt_scale = 0.6 + History_Panels_txt_scale(2) = 0.7 + Profile_Panels_txt_scale(2) = 0.6 logL_R_txt_scale = 0.7 logL_v_txt_scale = 0.7 logL_Teff_txt_scale = 0.7 - Grid2_win_flag = .true. - Grid2_win_width = 12 - Grid2_title = 'rsp_blap - blue large-amplitude pulsator' - Grid2_txt_scale_factor(:) = 1.0 - - Grid2_file_flag = .true. - Grid2_file_dir = 'pgstar_out' - Grid2_file_prefix = 'grid_' - Grid2_file_interval = 10000 - Grid2_file_width = -1 - Grid2_file_aspect_ratio = -1 + Grid_win_flag(2) = .true. + Grid_win_width(2) = 12 + Grid_title(2) = 'rsp_blap - blue large-amplitude pulsator' + Grid_txt_scale_factor(2, :) = 1.0 + + Grid_file_flag(2) = .true. + Grid_file_dir(2) = 'pgstar_out' + Grid_file_prefix(2) = 'grid_' + Grid_file_interval(2) = 10000 + Grid_file_width(2) = -1 + Grid_file_aspect_ratio(2) = -1 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_BLAP/inlist_rsp_BLAP b/star/test_suite/rsp_BLAP/inlist_rsp_BLAP index ecd42b1bd..7751e073d 100644 --- a/star/test_suite/rsp_BLAP/inlist_rsp_BLAP +++ b/star/test_suite/rsp_BLAP/inlist_rsp_BLAP @@ -108,28 +108,28 @@ use_Skye = .false. pgstar_interval = 10 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_title = '0.36 M\d\(2281)\u Z=0.05 Blue Large Amplitude Pulsator (BLAP)' + Grid_title(2) = '0.36 M\d\(2281)\u Z=0.05 Blue Large Amplitude Pulsator (BLAP)' - History_Panels1_xaxis_name='star_age_day' - History_Panels1_max_width = 365 ! only used if > 0. causes xmin to move with xmax. + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. - Grid2_file_flag = .true. + Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 20 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' + Grid_file_interval(2) = 20 ! output when mod(model_number,Grid_file_interval(2))==0 - !Profile_Panels1_show_grid = .true. + !Profile_Panels_show_grid(1) = .true. - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = -101D0 + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 + Profile_Panels_dymin(1, 4) = 0.02 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_BLAP/inlist_rsp_BLAP_make_cycle0 b/star/test_suite/rsp_BLAP/inlist_rsp_BLAP_make_cycle0 index fa3022ad7..a174657ae 100644 --- a/star/test_suite/rsp_BLAP/inlist_rsp_BLAP_make_cycle0 +++ b/star/test_suite/rsp_BLAP/inlist_rsp_BLAP_make_cycle0 @@ -105,28 +105,28 @@ pgstar_interval = 10 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_title = '0.36 M\d\(2281)\u Z=0.05 Blue Large Amplitude Pulsator (BLAP)' + Grid_title(2) = '0.36 M\d\(2281)\u Z=0.05 Blue Large Amplitude Pulsator (BLAP)' - History_Panels1_xaxis_name='star_age_day' - History_Panels1_max_width = 365 ! only used if > 0. causes xmin to move with xmax. + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. - Grid2_file_flag = .true. + Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 20 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' + Grid_file_interval(2) = 20 ! output when mod(model_number,Grid_file_interval(2))==0 - !Profile_Panels1_show_grid = .true. + !Profile_Panels_show_grid(1) = .true. - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = -101D0 + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 + Profile_Panels_dymin(1, 4) = 0.02 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_BLAP/inlist_rsp_BLAP_std b/star/test_suite/rsp_BLAP/inlist_rsp_BLAP_std index 4d8dc4ac6..d6d4d22cb 100644 --- a/star/test_suite/rsp_BLAP/inlist_rsp_BLAP_std +++ b/star/test_suite/rsp_BLAP/inlist_rsp_BLAP_std @@ -106,28 +106,28 @@ pgstar_interval = 10 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_title = '0.36 M\d\(2281)\u Z=0.05 Blue Large Amplitude Pulsator (BLAP)' + Grid_title(2) = '0.36 M\d\(2281)\u Z=0.05 Blue Large Amplitude Pulsator (BLAP)' - History_Panels1_xaxis_name='star_age_day' - History_Panels1_max_width = 365 ! only used if > 0. causes xmin to move with xmax. + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. - Grid2_file_flag = .true. + Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 20 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' + Grid_file_interval(2) = 20 ! output when mod(model_number,Grid_file_interval(2))==0 - !Profile_Panels1_show_grid = .true. + !Profile_Panels_show_grid(1) = .true. - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = -101D0 + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 + Profile_Panels_dymin(1, 4) = 0.02 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_BLAP/inlist_rsp_BLAP_test_cycle0 b/star/test_suite/rsp_BLAP/inlist_rsp_BLAP_test_cycle0 index 9f7c68a14..faed4fda6 100644 --- a/star/test_suite/rsp_BLAP/inlist_rsp_BLAP_test_cycle0 +++ b/star/test_suite/rsp_BLAP/inlist_rsp_BLAP_test_cycle0 @@ -104,28 +104,28 @@ pgstar_interval = 25 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_title = '0.36 M\d\(2281)\u Z=0.05 Blue Large Amplitude Pulsator (BLAP)' + Grid_title(2) = '0.36 M\d\(2281)\u Z=0.05 Blue Large Amplitude Pulsator (BLAP)' - History_Panels1_xaxis_name='star_age_day' - History_Panels1_max_width = 365 ! only used if > 0. causes xmin to move with xmax. + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. - Grid2_file_flag = .true. + Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 20 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' + Grid_file_interval(2) = 20 ! output when mod(model_number,Grid_file_interval(2))==0 - !Profile_Panels1_show_grid = .true. + !Profile_Panels_show_grid(1) = .true. - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = -101D0 + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 + Profile_Panels_dymin(1, 4) = 0.02 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_BLAP/inlist_rsp_pgstar_default b/star/test_suite/rsp_BLAP/inlist_rsp_pgstar_default index 5b4b8c027..480a7c942 100644 --- a/star/test_suite/rsp_BLAP/inlist_rsp_pgstar_default +++ b/star/test_suite/rsp_BLAP/inlist_rsp_pgstar_default @@ -10,213 +10,213 @@ pgstar_right_yaxis_label_disp = 4.4 - Grid2_win_width = 8 - Grid2_win_aspect_ratio = 1.2 ! aspect_ratio = height/width - Grid2_num_cols = 3 ! divide plotting region into this many equal width cols - Grid2_num_rows = 8 ! divide plotting region into this many equal height rows - Grid2_num_plots = 6 ! <= 10 - - Grid2_plot_name(1) = 'Profile_Panels2' - Grid2_plot_row(1) = 1 ! number from 1 at top - Grid2_plot_rowspan(1) = 3 ! plot spans this number of rows - Grid2_plot_col(1) = 1 ! number from 1 at left - Grid2_plot_colspan(1) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(1) = -0.02 ! fraction of full window width for padding on left - Grid2_plot_pad_right(1) = 0.12 ! fraction of full window width for padding on right - Grid2_plot_pad_top(1) = -0.02 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(1) = -0.14 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(1) = 0.7 ! multiply txt_scale for subplot by this - - Grid2_plot_name(2) = 'History_Panels2' - Grid2_plot_row(2) = 4 ! number from 1 at top - Grid2_plot_rowspan(2) = 3 ! plot spans this number of rows - Grid2_plot_col(2) = 1 ! number from 1 at left - Grid2_plot_colspan(2) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(2) = -0.02 ! fraction of full window width for padding on left - Grid2_plot_pad_right(2) = 0.12 ! fraction of full window width for padding on right - Grid2_plot_pad_top(2) = 0.19 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(2) = -0.06 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this - - Grid2_plot_name(3) = 'Text_Summary2' - Grid2_plot_row(3) = 7 ! number from 1 at top - Grid2_plot_rowspan(3) = 2 ! plot spans this number of rows - Grid2_plot_col(3) = 1 ! number from 1 at left - Grid2_plot_colspan(3) = 3 ! plot spans this number of columns - Grid2_plot_pad_left(3) = -0.08 ! fraction of full window width for padding on left - Grid2_plot_pad_right(3) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(3) = 0.12 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(3) = -0.04 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(3) = 0.17 ! multiply txt_scale for subplot by this - - Grid2_plot_name(6) = 'logL_Teff' - Grid2_plot_row(6) = 1 ! number from 1 at top - Grid2_plot_rowspan(6) = 2 ! plot spans this number of rows - Grid2_plot_col(6) = 3 ! number from 1 at left - Grid2_plot_colspan(6) = 1 ! plot spans this number of columns - Grid2_plot_pad_left(6) = 0.04 ! fraction of full window width for padding on left - Grid2_plot_pad_right(6) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(6) = -0.02 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(6) = 0.02 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(6) = 0.6 ! multiply txt_scale for subplot by this + Grid_win_width(2) = 8 + Grid_win_aspect_ratio(2) = 1.2 ! aspect_ratio = height/width + Grid_num_cols(2) = 3 ! divide plotting region into this many equal width cols + Grid_num_rows(2) = 8 ! divide plotting region into this many equal height rows + Grid_num_plots(2) = 6 ! <= 10 + + Grid_plot_name(2, 1) = 'Profile_Panels2' + Grid_plot_row(2, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 1) = 3 ! plot spans this number of rows + Grid_plot_col(2, 1) = 1 ! number from 1 at left + Grid_plot_colspan(2, 1) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 1) = -0.02 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 1) = 0.12 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 1) = -0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 1) = -0.14 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 1) = 0.7 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 2) = 'History_Panels2' + Grid_plot_row(2, 2) = 4 ! number from 1 at top + Grid_plot_rowspan(2, 2) = 3 ! plot spans this number of rows + Grid_plot_col(2, 2) = 1 ! number from 1 at left + Grid_plot_colspan(2, 2) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 2) = -0.02 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 2) = 0.12 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 2) = 0.19 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 2) = -0.06 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 2) = 0.7 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 3) = 'Text_Summary2' + Grid_plot_row(2, 3) = 7 ! number from 1 at top + Grid_plot_rowspan(2, 3) = 2 ! plot spans this number of rows + Grid_plot_col(2, 3) = 1 ! number from 1 at left + Grid_plot_colspan(2, 3) = 3 ! plot spans this number of columns + Grid_plot_pad_left(2, 3) = -0.08 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 3) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 3) = 0.12 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 3) = -0.04 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 3) = 0.17 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 6) = 'logL_Teff' + Grid_plot_row(2, 6) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 6) = 2 ! plot spans this number of rows + Grid_plot_col(2, 6) = 3 ! number from 1 at left + Grid_plot_colspan(2, 6) = 1 ! plot spans this number of columns + Grid_plot_pad_left(2, 6) = 0.04 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 6) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 6) = -0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 6) = 0.02 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 6) = 0.6 ! multiply txt_scale for subplot by this logL_Teff_title = '' - Grid2_plot_name(5) = 'logL_v' - Grid2_plot_row(5) = 3 ! number from 1 at top - Grid2_plot_rowspan(5) = 2 ! plot spans this number of rows - Grid2_plot_col(5) = 3 ! number from 1 at left - Grid2_plot_colspan(5) = 1 ! plot spans this number of columns - Grid2_plot_pad_left(5) = 0.04 ! fraction of full window width for padding on left - Grid2_plot_pad_right(5) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(5) = 0.02 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(5) = -0.02 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(5) = 0.6 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 5) = 'logL_v' + Grid_plot_row(2, 5) = 3 ! number from 1 at top + Grid_plot_rowspan(2, 5) = 2 ! plot spans this number of rows + Grid_plot_col(2, 5) = 3 ! number from 1 at left + Grid_plot_colspan(2, 5) = 1 ! plot spans this number of columns + Grid_plot_pad_left(2, 5) = 0.04 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 5) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 5) = 0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 5) = -0.02 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 5) = 0.6 ! multiply txt_scale for subplot by this logL_v_title = '' - Grid2_plot_name(4) = 'logL_R' - Grid2_plot_row(4) = 5 ! number from 1 at top - Grid2_plot_rowspan(4) = 2 ! plot spans this number of rows - Grid2_plot_col(4) = 3 ! number from 1 at left - Grid2_plot_colspan(4) = 1 ! plot spans this number of columns - Grid2_plot_pad_left(4) = 0.04 ! fraction of full window width for padding on left - Grid2_plot_pad_right(4) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(4) = 0.06 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(4) = -0.06 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(4) = 0.6 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 4) = 'logL_R' + Grid_plot_row(2, 4) = 5 ! number from 1 at top + Grid_plot_rowspan(2, 4) = 2 ! plot spans this number of rows + Grid_plot_col(2, 4) = 3 ! number from 1 at left + Grid_plot_colspan(2, 4) = 1 ! plot spans this number of columns + Grid_plot_pad_left(2, 4) = 0.04 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 4) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 4) = 0.06 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 4) = -0.06 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 4) = 0.6 ! multiply txt_scale for subplot by this logL_R_title = '' - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid2' - Grid2_file_interval = 10 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid2' + Grid_file_interval(2) = 10 ! output when mod(model_number,Grid_file_interval(2))==0 - History_Panels2_title = '' - History_Panels2_num_panels = 2 + History_Panels_title(2) = '' + History_Panels_num_panels(2) = 2 - !History_Panels2_xaxis_name='model_number' - History_Panels2_xaxis_name='day' - History_Panels2_max_width = 40 ! 200 ! only used if > 0. causes xmin to move with xmax. - - History_Panels2_yaxis_name(1) = 'Teff' - History_Panels2_yaxis_reversed(1) = .false. - History_Panels2_ymin(1) = -101d0 ! only used if /= -101d0 - History_Panels2_ymax(1) = -101d0 ! only used if /= -101d0 - History_Panels2_dymin(1) = -1 - - History_Panels2_other_yaxis_name(1) = 'log_L' - History_Panels2_other_yaxis_reversed(1) = .false. - History_Panels2_other_ymin(1) = -101d0 ! only used if /= -101d0 - History_Panels2_other_ymax(1) = -101d0 ! only used if /= -101d0 - History_Panels2_other_dymin(1) = -1 - - History_Panels2_yaxis_name(2) = 'radius' ! 'star_mass' - History_Panels2_yaxis_reversed(2) = .false. - History_Panels2_ymin(2) = -101d0 ! only used if /= -101d0 - History_Panels2_ymax(2) = -101d0 ! only used if /= -101d0 - History_Panels2_dymin(2) = -1 - - History_Panels2_other_yaxis_name(2) = 'v_surf_km_s' - History_Panels2_other_yaxis_reversed(2) = .false. - History_Panels2_other_ymin(2) = -101d0 ! only used if /= -101d0 - History_Panels2_other_ymax(2) = -101d0 ! only used if /= -101d0 - History_Panels2_other_dymin(2) = -1 - - History_Panels2_yaxis_name(3) = 'r_center' ! 'star_mass' - History_Panels2_yaxis_reversed(3) = .false. - History_Panels2_ymin(3) = -101d0 ! only used if /= -101d0 - History_Panels2_ymax(3) = -101d0 ! only used if /= -101d0 - History_Panels2_dymin(3) = -1 - - History_Panels2_other_yaxis_name(3) = 'v_center' - History_Panels2_other_yaxis_reversed(3) = .false. - History_Panels2_other_ymin(3) = -101d0 ! only used if /= -101d0 - History_Panels2_other_ymax(3) = -101d0 ! only used if /= -101d0 - History_Panels2_other_dymin(3) = -1 + !History_Panels_xaxis_name(2) ='model_number' + History_Panels_xaxis_name(2) ='day' + History_Panels_max_width(2) = 40 ! 200 ! only used if > 0. causes xmin to move with xmax. + + History_Panels_yaxis_name(2, 1) = 'Teff' + History_Panels_yaxis_reversed(2, 1) = .false. + History_Panels_ymin(2, 1) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(2, 1) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(2, 1) = -1 + + History_Panels_other_yaxis_name(2, 1) = 'log_L' + History_Panels_other_yaxis_reversed(2, 1) = .false. + History_Panels_other_ymin(2, 1) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(2, 1) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(2, 1) = -1 + + History_Panels_yaxis_name(2, 2) = 'radius' ! 'star_mass' + History_Panels_yaxis_reversed(2, 2) = .false. + History_Panels_ymin(2, 2) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(2, 2) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(2, 2) = -1 + + History_Panels_other_yaxis_name(2, 2) = 'v_surf_km_s' + History_Panels_other_yaxis_reversed(2, 2) = .false. + History_Panels_other_ymin(2, 2) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(2, 2) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(2, 2) = -1 + + History_Panels_yaxis_name(2, 3) = 'r_center' ! 'star_mass' + History_Panels_yaxis_reversed(2, 3) = .false. + History_Panels_ymin(2, 3) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(2, 3) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(2, 3) = -1 + + History_Panels_other_yaxis_name(2, 3) = 'v_center' + History_Panels_other_yaxis_reversed(2, 3) = .false. + History_Panels_other_ymin(2, 3) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(2, 3) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(2, 3) = -1 - Profile_Panels2_win_flag = .false. - Profile_Panels2_title = '' + Profile_Panels_win_flag(2) = .false. + Profile_Panels_title(2) = '' - Profile_Panels2_xaxis_name = 'logtau' - Profile_Panels2_xaxis_reversed = .true. - Profile_Panels2_xmin = -101D0 - Profile_Panels2_xmax = 6.0 ! -101D0 - Profile_Panels2_show_mix_regions_on_xaxis = .true. - !Profile_Panels2_show_grid = .true. + Profile_Panels_xaxis_name(2) = 'logtau' + Profile_Panels_xaxis_reversed(2) = .true. + Profile_Panels_xmin(2) = -101D0 + Profile_Panels_xmax(2) = 6.0 ! -101D0 + Profile_Panels_show_mix_regions_on_xaxis(2) = .true. + !Profile_Panels_show_grid(2) = .true. - Profile_Panels2_num_panels = 5 + Profile_Panels_num_panels(2) = 5 - Profile_Panels2_yaxis_name(1) = 'v_div_cs' - Profile_Panels2_ymax(1) = -101D0 ! 1 - Profile_Panels2_ymin(1) = -101D0 ! -1 - Profile_Panels2_dymin(1) = 0.1 - Profile_Panels2_other_yaxis_name(1) = 'vel_km_per_s' - Profile_Panels2_other_ymax(1) = -101D0 ! 2e6 - Profile_Panels2_other_ymin(1) = -101D0 ! -2e6 - Profile_Panels2_other_dymin(1) = 0.1 + Profile_Panels_yaxis_name(2, 1) = 'v_div_cs' + Profile_Panels_ymax(2, 1) = -101D0 ! 1 + Profile_Panels_ymin(2, 1) = -101D0 ! -1 + Profile_Panels_dymin(2, 1) = 0.1 + Profile_Panels_other_yaxis_name(2, 1) = 'vel_km_per_s' + Profile_Panels_other_ymax(2, 1) = -101D0 ! 2e6 + Profile_Panels_other_ymin(2, 1) = -101D0 ! -2e6 + Profile_Panels_other_dymin(2, 1) = 0.1 - Profile_Panels2_yaxis_name(2) = 'lum_div_Ledd' - Profile_Panels2_ymax(2) = -101D0 ! 3.7 - Profile_Panels2_ymin(2) = -101D0 ! 3.1 - Profile_Panels2_dymin(2) = 0.02 - Profile_Panels2_other_yaxis_name(2) = 'logL' - Profile_Panels2_other_ymax(2) = -101D0 ! - Profile_Panels2_other_ymin(2) = -101D0 ! + Profile_Panels_yaxis_name(2, 2) = 'lum_div_Ledd' + Profile_Panels_ymax(2, 2) = -101D0 ! 3.7 + Profile_Panels_ymin(2, 2) = -101D0 ! 3.1 + Profile_Panels_dymin(2, 2) = 0.02 + Profile_Panels_other_yaxis_name(2, 2) = 'logL' + Profile_Panels_other_ymax(2, 2) = -101D0 ! + Profile_Panels_other_ymin(2, 2) = -101D0 ! - Profile_Panels2_yaxis_name(3) = 'logtau' - Profile_Panels2_other_yaxis_name(3) = 'opacity' + Profile_Panels_yaxis_name(2, 3) = 'logtau' + Profile_Panels_other_yaxis_name(2, 3) = 'opacity' - Profile_Panels2_yaxis_name(4) = 'Lc_div_L' - Profile_Panels2_ymax(4) = -101D0 - Profile_Panels2_ymin(4) = -101D0 - Profile_Panels2_other_yaxis_name(4) = 'mixing_type' - Profile_Panels2_other_ymax(4) = -101D0 ! - Profile_Panels2_other_ymin(4) = -101D0 ! - - Profile_Panels2_yaxis_name(5) = 'logT' - Profile_Panels2_other_yaxis_name(5) = 'free_e' + Profile_Panels_yaxis_name(2, 4) = 'Lc_div_L' + Profile_Panels_ymax(2, 4) = -101D0 + Profile_Panels_ymin(2, 4) = -101D0 + Profile_Panels_other_yaxis_name(2, 4) = 'mixing_type' + Profile_Panels_other_ymax(2, 4) = -101D0 ! + Profile_Panels_other_ymin(2, 4) = -101D0 ! + + Profile_Panels_yaxis_name(2, 5) = 'logT' + Profile_Panels_other_yaxis_name(2, 5) = 'free_e' - Profile_Panels2_yaxis_name(6) = 'log_dt_div_tau_conv' - Profile_Panels2_ymax(6) = -101D0 ! - Profile_Panels2_ymin(6) = -101D0 ! - Profile_Panels2_other_yaxis_name(6) = '' - Profile_Panels2_other_ymax(6) = 1d-3 - Profile_Panels2_other_ymin(6) = -1d-3 + Profile_Panels_yaxis_name(2, 6) = 'log_dt_div_tau_conv' + Profile_Panels_ymax(2, 6) = -101D0 ! + Profile_Panels_ymin(2, 6) = -101D0 ! + Profile_Panels_other_yaxis_name(2, 6) = '' + Profile_Panels_other_ymax(2, 6) = 1d-3 + Profile_Panels_other_ymin(2, 6) = -1d-3 - Profile_Panels2_file_flag = .false. - Profile_Panels2_file_dir = 'png' - Profile_Panels2_file_prefix = 'profile_panels1_' - Profile_Panels2_file_interval = 1 + Profile_Panels_file_flag(2) = .false. + Profile_Panels_file_dir(2) = 'png' + Profile_Panels_file_prefix(2) = 'profile_panels1_' + Profile_Panels_file_interval(2) = 1 - Text_Summary2_num_rows = 4 ! <= 20 - Text_Summary2_num_cols = 4 ! <= 20 - Text_Summary2_name(:,:) = '' - - Text_Summary2_name(1,1) = 'model_number' - Text_Summary2_name(2,1) = 'time_step_sec' - Text_Summary2_name(3,1) = 'log_rel_run_E_err' - Text_Summary2_name(4,1) = 'period' - Text_Summary2_name(5,1) = '' - - Text_Summary2_name(1,2) = 'v_surf_km_s' - Text_Summary2_name(2,2) = 'v_div_cs' - Text_Summary2_name(3,2) = 'radius' - Text_Summary2_name(4,2) = 'delta_R' - Text_Summary2_name(5,2) = '' - - Text_Summary2_name(1,3) = 'log_Teff' - Text_Summary2_name(2,3) = 'Teff' - Text_Summary2_name(3,3) = 'log_L' - Text_Summary2_name(4,3) = 'delta_logL' - Text_Summary2_name(5,3) = '' - - Text_Summary2_name(1,4) = 'num_zones' - Text_Summary2_name(2,4) = 'num_retries' - Text_Summary2_name(3,4) = 'num_periods' - Text_Summary2_name(4,4) = 'growth' - Text_Summary2_name(5,4) = '' + Text_Summary_num_rows(2) = 4 ! <= 20 + Text_Summary_num_cols(2) = 4 ! <= 20 + Text_Summary_name(2, :, :) = '' + + Text_Summary_name(2, 1, 1) = 'model_number' + Text_Summary_name(2, 2, 1) = 'time_step_sec' + Text_Summary_name(2, 3, 1) = 'log_rel_run_E_err' + Text_Summary_name(2, 4, 1) = 'period' + Text_Summary_name(2, 5, 1) = '' + + Text_Summary_name(2, 1, 2) = 'v_surf_km_s' + Text_Summary_name(2, 2, 2) = 'v_div_cs' + Text_Summary_name(2, 3, 2) = 'radius' + Text_Summary_name(2, 4, 2) = 'delta_R' + Text_Summary_name(2, 5, 2) = '' + + Text_Summary_name(2, 1, 3) = 'log_Teff' + Text_Summary_name(2, 2, 3) = 'Teff' + Text_Summary_name(2, 3, 3) = 'log_L' + Text_Summary_name(2, 4, 3) = 'delta_logL' + Text_Summary_name(2, 5, 3) = '' + + Text_Summary_name(2, 1, 4) = 'num_zones' + Text_Summary_name(2, 2, 4) = 'num_retries' + Text_Summary_name(2, 3, 4) = 'num_periods' + Text_Summary_name(2, 4, 4) = 'growth' + Text_Summary_name(2, 5, 4) = '' / ! end of pgstar namelist diff --git a/star/test_suite/rsp_Cepheid/README.rst b/star/test_suite/rsp_Cepheid/README.rst index f26415c21..3195b9f3a 100644 --- a/star/test_suite/rsp_Cepheid/README.rst +++ b/star/test_suite/rsp_Cepheid/README.rst @@ -42,23 +42,23 @@ pgstar commands, in addition to those in ``inlist_rsp_pgstar_default``, used for pgstar_model_disp = 3.9 - History_Panels2_txt_scale = 0.7 - Profile_Panels2_txt_scale = 0.6 + History_Panels_txt_scale(2) = 0.7 + Profile_Panels_txt_scale(2) = 0.6 logL_R_txt_scale = 0.7 logL_v_txt_scale = 0.7 logL_Teff_txt_scale = 0.7 - Grid2_win_flag = .true. - Grid2_win_width = 12 - Grid2_title = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' - Grid2_txt_scale_factor(:) = 1.0 - - Grid2_file_flag = .true. - Grid2_file_dir = 'pgstar_out' - Grid2_file_prefix = 'grid_' - Grid2_file_interval = 10000 - Grid2_file_width = -1 - Grid2_file_aspect_ratio = -1 + Grid_win_flag(2) = .true. + Grid_win_width(2) = 12 + Grid_title(2) = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' + Grid_txt_scale_factor(2, :) = 1.0 + + Grid_file_flag(2) = .true. + Grid_file_dir(2) = 'pgstar_out' + Grid_file_prefix(2) = 'grid_' + Grid_file_interval(2) = 10000 + Grid_file_width(2) = -1 + Grid_file_aspect_ratio(2) = -1 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid b/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid index 9278350a5..5e1ca625a 100644 --- a/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid +++ b/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid @@ -106,26 +106,26 @@ !pgstar_interval = 20 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_title = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' + Grid_title(2) = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' - History_Panels1_xaxis_name='star_age_day' - History_Panels1_max_width = 365 ! only used if > 0. causes xmin to move with xmax. + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 - !Profile_Panels1_show_grid = .true. + !Profile_Panels_show_grid(1) = .true. - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = -101D0 + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 + Profile_Panels_dymin(1, 4) = 0.02 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid_make_cycle0 b/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid_make_cycle0 index 4c18d032a..316adc046 100644 --- a/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid_make_cycle0 +++ b/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid_make_cycle0 @@ -103,26 +103,26 @@ !pgstar_interval = 20 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_title = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' + Grid_title(2) = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' - History_Panels1_xaxis_name='star_age_day' - History_Panels1_max_width = 365 ! only used if > 0. causes xmin to move with xmax. + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 - !Profile_Panels1_show_grid = .true. + !Profile_Panels_show_grid(1) = .true. - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = -101D0 + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 + Profile_Panels_dymin(1, 4) = 0.02 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid_std b/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid_std index 9278350a5..5e1ca625a 100644 --- a/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid_std +++ b/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid_std @@ -106,26 +106,26 @@ !pgstar_interval = 20 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_title = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' + Grid_title(2) = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' - History_Panels1_xaxis_name='star_age_day' - History_Panels1_max_width = 365 ! only used if > 0. causes xmin to move with xmax. + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 - !Profile_Panels1_show_grid = .true. + !Profile_Panels_show_grid(1) = .true. - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = -101D0 + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 + Profile_Panels_dymin(1, 4) = 0.02 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid_test_cycle0 b/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid_test_cycle0 index 592eeb055..39244e286 100644 --- a/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid_test_cycle0 +++ b/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid_test_cycle0 @@ -103,26 +103,26 @@ pgstar_interval = 25 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_title = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' + Grid_title(2) = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' - History_Panels1_xaxis_name='star_age_day' - History_Panels1_max_width = 365 ! only used if > 0. causes xmin to move with xmax. + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 - !Profile_Panels1_show_grid = .true. + !Profile_Panels_show_grid(1) = .true. - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = -101D0 + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 + Profile_Panels_dymin(1, 4) = 0.02 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_Cepheid/inlist_rsp_pgstar_default b/star/test_suite/rsp_Cepheid/inlist_rsp_pgstar_default index 5b4b8c027..480a7c942 100644 --- a/star/test_suite/rsp_Cepheid/inlist_rsp_pgstar_default +++ b/star/test_suite/rsp_Cepheid/inlist_rsp_pgstar_default @@ -10,213 +10,213 @@ pgstar_right_yaxis_label_disp = 4.4 - Grid2_win_width = 8 - Grid2_win_aspect_ratio = 1.2 ! aspect_ratio = height/width - Grid2_num_cols = 3 ! divide plotting region into this many equal width cols - Grid2_num_rows = 8 ! divide plotting region into this many equal height rows - Grid2_num_plots = 6 ! <= 10 - - Grid2_plot_name(1) = 'Profile_Panels2' - Grid2_plot_row(1) = 1 ! number from 1 at top - Grid2_plot_rowspan(1) = 3 ! plot spans this number of rows - Grid2_plot_col(1) = 1 ! number from 1 at left - Grid2_plot_colspan(1) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(1) = -0.02 ! fraction of full window width for padding on left - Grid2_plot_pad_right(1) = 0.12 ! fraction of full window width for padding on right - Grid2_plot_pad_top(1) = -0.02 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(1) = -0.14 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(1) = 0.7 ! multiply txt_scale for subplot by this - - Grid2_plot_name(2) = 'History_Panels2' - Grid2_plot_row(2) = 4 ! number from 1 at top - Grid2_plot_rowspan(2) = 3 ! plot spans this number of rows - Grid2_plot_col(2) = 1 ! number from 1 at left - Grid2_plot_colspan(2) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(2) = -0.02 ! fraction of full window width for padding on left - Grid2_plot_pad_right(2) = 0.12 ! fraction of full window width for padding on right - Grid2_plot_pad_top(2) = 0.19 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(2) = -0.06 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this - - Grid2_plot_name(3) = 'Text_Summary2' - Grid2_plot_row(3) = 7 ! number from 1 at top - Grid2_plot_rowspan(3) = 2 ! plot spans this number of rows - Grid2_plot_col(3) = 1 ! number from 1 at left - Grid2_plot_colspan(3) = 3 ! plot spans this number of columns - Grid2_plot_pad_left(3) = -0.08 ! fraction of full window width for padding on left - Grid2_plot_pad_right(3) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(3) = 0.12 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(3) = -0.04 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(3) = 0.17 ! multiply txt_scale for subplot by this - - Grid2_plot_name(6) = 'logL_Teff' - Grid2_plot_row(6) = 1 ! number from 1 at top - Grid2_plot_rowspan(6) = 2 ! plot spans this number of rows - Grid2_plot_col(6) = 3 ! number from 1 at left - Grid2_plot_colspan(6) = 1 ! plot spans this number of columns - Grid2_plot_pad_left(6) = 0.04 ! fraction of full window width for padding on left - Grid2_plot_pad_right(6) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(6) = -0.02 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(6) = 0.02 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(6) = 0.6 ! multiply txt_scale for subplot by this + Grid_win_width(2) = 8 + Grid_win_aspect_ratio(2) = 1.2 ! aspect_ratio = height/width + Grid_num_cols(2) = 3 ! divide plotting region into this many equal width cols + Grid_num_rows(2) = 8 ! divide plotting region into this many equal height rows + Grid_num_plots(2) = 6 ! <= 10 + + Grid_plot_name(2, 1) = 'Profile_Panels2' + Grid_plot_row(2, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 1) = 3 ! plot spans this number of rows + Grid_plot_col(2, 1) = 1 ! number from 1 at left + Grid_plot_colspan(2, 1) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 1) = -0.02 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 1) = 0.12 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 1) = -0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 1) = -0.14 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 1) = 0.7 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 2) = 'History_Panels2' + Grid_plot_row(2, 2) = 4 ! number from 1 at top + Grid_plot_rowspan(2, 2) = 3 ! plot spans this number of rows + Grid_plot_col(2, 2) = 1 ! number from 1 at left + Grid_plot_colspan(2, 2) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 2) = -0.02 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 2) = 0.12 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 2) = 0.19 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 2) = -0.06 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 2) = 0.7 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 3) = 'Text_Summary2' + Grid_plot_row(2, 3) = 7 ! number from 1 at top + Grid_plot_rowspan(2, 3) = 2 ! plot spans this number of rows + Grid_plot_col(2, 3) = 1 ! number from 1 at left + Grid_plot_colspan(2, 3) = 3 ! plot spans this number of columns + Grid_plot_pad_left(2, 3) = -0.08 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 3) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 3) = 0.12 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 3) = -0.04 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 3) = 0.17 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 6) = 'logL_Teff' + Grid_plot_row(2, 6) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 6) = 2 ! plot spans this number of rows + Grid_plot_col(2, 6) = 3 ! number from 1 at left + Grid_plot_colspan(2, 6) = 1 ! plot spans this number of columns + Grid_plot_pad_left(2, 6) = 0.04 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 6) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 6) = -0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 6) = 0.02 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 6) = 0.6 ! multiply txt_scale for subplot by this logL_Teff_title = '' - Grid2_plot_name(5) = 'logL_v' - Grid2_plot_row(5) = 3 ! number from 1 at top - Grid2_plot_rowspan(5) = 2 ! plot spans this number of rows - Grid2_plot_col(5) = 3 ! number from 1 at left - Grid2_plot_colspan(5) = 1 ! plot spans this number of columns - Grid2_plot_pad_left(5) = 0.04 ! fraction of full window width for padding on left - Grid2_plot_pad_right(5) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(5) = 0.02 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(5) = -0.02 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(5) = 0.6 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 5) = 'logL_v' + Grid_plot_row(2, 5) = 3 ! number from 1 at top + Grid_plot_rowspan(2, 5) = 2 ! plot spans this number of rows + Grid_plot_col(2, 5) = 3 ! number from 1 at left + Grid_plot_colspan(2, 5) = 1 ! plot spans this number of columns + Grid_plot_pad_left(2, 5) = 0.04 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 5) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 5) = 0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 5) = -0.02 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 5) = 0.6 ! multiply txt_scale for subplot by this logL_v_title = '' - Grid2_plot_name(4) = 'logL_R' - Grid2_plot_row(4) = 5 ! number from 1 at top - Grid2_plot_rowspan(4) = 2 ! plot spans this number of rows - Grid2_plot_col(4) = 3 ! number from 1 at left - Grid2_plot_colspan(4) = 1 ! plot spans this number of columns - Grid2_plot_pad_left(4) = 0.04 ! fraction of full window width for padding on left - Grid2_plot_pad_right(4) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(4) = 0.06 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(4) = -0.06 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(4) = 0.6 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 4) = 'logL_R' + Grid_plot_row(2, 4) = 5 ! number from 1 at top + Grid_plot_rowspan(2, 4) = 2 ! plot spans this number of rows + Grid_plot_col(2, 4) = 3 ! number from 1 at left + Grid_plot_colspan(2, 4) = 1 ! plot spans this number of columns + Grid_plot_pad_left(2, 4) = 0.04 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 4) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 4) = 0.06 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 4) = -0.06 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 4) = 0.6 ! multiply txt_scale for subplot by this logL_R_title = '' - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid2' - Grid2_file_interval = 10 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid2' + Grid_file_interval(2) = 10 ! output when mod(model_number,Grid_file_interval(2))==0 - History_Panels2_title = '' - History_Panels2_num_panels = 2 + History_Panels_title(2) = '' + History_Panels_num_panels(2) = 2 - !History_Panels2_xaxis_name='model_number' - History_Panels2_xaxis_name='day' - History_Panels2_max_width = 40 ! 200 ! only used if > 0. causes xmin to move with xmax. - - History_Panels2_yaxis_name(1) = 'Teff' - History_Panels2_yaxis_reversed(1) = .false. - History_Panels2_ymin(1) = -101d0 ! only used if /= -101d0 - History_Panels2_ymax(1) = -101d0 ! only used if /= -101d0 - History_Panels2_dymin(1) = -1 - - History_Panels2_other_yaxis_name(1) = 'log_L' - History_Panels2_other_yaxis_reversed(1) = .false. - History_Panels2_other_ymin(1) = -101d0 ! only used if /= -101d0 - History_Panels2_other_ymax(1) = -101d0 ! only used if /= -101d0 - History_Panels2_other_dymin(1) = -1 - - History_Panels2_yaxis_name(2) = 'radius' ! 'star_mass' - History_Panels2_yaxis_reversed(2) = .false. - History_Panels2_ymin(2) = -101d0 ! only used if /= -101d0 - History_Panels2_ymax(2) = -101d0 ! only used if /= -101d0 - History_Panels2_dymin(2) = -1 - - History_Panels2_other_yaxis_name(2) = 'v_surf_km_s' - History_Panels2_other_yaxis_reversed(2) = .false. - History_Panels2_other_ymin(2) = -101d0 ! only used if /= -101d0 - History_Panels2_other_ymax(2) = -101d0 ! only used if /= -101d0 - History_Panels2_other_dymin(2) = -1 - - History_Panels2_yaxis_name(3) = 'r_center' ! 'star_mass' - History_Panels2_yaxis_reversed(3) = .false. - History_Panels2_ymin(3) = -101d0 ! only used if /= -101d0 - History_Panels2_ymax(3) = -101d0 ! only used if /= -101d0 - History_Panels2_dymin(3) = -1 - - History_Panels2_other_yaxis_name(3) = 'v_center' - History_Panels2_other_yaxis_reversed(3) = .false. - History_Panels2_other_ymin(3) = -101d0 ! only used if /= -101d0 - History_Panels2_other_ymax(3) = -101d0 ! only used if /= -101d0 - History_Panels2_other_dymin(3) = -1 + !History_Panels_xaxis_name(2) ='model_number' + History_Panels_xaxis_name(2) ='day' + History_Panels_max_width(2) = 40 ! 200 ! only used if > 0. causes xmin to move with xmax. + + History_Panels_yaxis_name(2, 1) = 'Teff' + History_Panels_yaxis_reversed(2, 1) = .false. + History_Panels_ymin(2, 1) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(2, 1) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(2, 1) = -1 + + History_Panels_other_yaxis_name(2, 1) = 'log_L' + History_Panels_other_yaxis_reversed(2, 1) = .false. + History_Panels_other_ymin(2, 1) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(2, 1) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(2, 1) = -1 + + History_Panels_yaxis_name(2, 2) = 'radius' ! 'star_mass' + History_Panels_yaxis_reversed(2, 2) = .false. + History_Panels_ymin(2, 2) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(2, 2) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(2, 2) = -1 + + History_Panels_other_yaxis_name(2, 2) = 'v_surf_km_s' + History_Panels_other_yaxis_reversed(2, 2) = .false. + History_Panels_other_ymin(2, 2) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(2, 2) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(2, 2) = -1 + + History_Panels_yaxis_name(2, 3) = 'r_center' ! 'star_mass' + History_Panels_yaxis_reversed(2, 3) = .false. + History_Panels_ymin(2, 3) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(2, 3) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(2, 3) = -1 + + History_Panels_other_yaxis_name(2, 3) = 'v_center' + History_Panels_other_yaxis_reversed(2, 3) = .false. + History_Panels_other_ymin(2, 3) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(2, 3) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(2, 3) = -1 - Profile_Panels2_win_flag = .false. - Profile_Panels2_title = '' + Profile_Panels_win_flag(2) = .false. + Profile_Panels_title(2) = '' - Profile_Panels2_xaxis_name = 'logtau' - Profile_Panels2_xaxis_reversed = .true. - Profile_Panels2_xmin = -101D0 - Profile_Panels2_xmax = 6.0 ! -101D0 - Profile_Panels2_show_mix_regions_on_xaxis = .true. - !Profile_Panels2_show_grid = .true. + Profile_Panels_xaxis_name(2) = 'logtau' + Profile_Panels_xaxis_reversed(2) = .true. + Profile_Panels_xmin(2) = -101D0 + Profile_Panels_xmax(2) = 6.0 ! -101D0 + Profile_Panels_show_mix_regions_on_xaxis(2) = .true. + !Profile_Panels_show_grid(2) = .true. - Profile_Panels2_num_panels = 5 + Profile_Panels_num_panels(2) = 5 - Profile_Panels2_yaxis_name(1) = 'v_div_cs' - Profile_Panels2_ymax(1) = -101D0 ! 1 - Profile_Panels2_ymin(1) = -101D0 ! -1 - Profile_Panels2_dymin(1) = 0.1 - Profile_Panels2_other_yaxis_name(1) = 'vel_km_per_s' - Profile_Panels2_other_ymax(1) = -101D0 ! 2e6 - Profile_Panels2_other_ymin(1) = -101D0 ! -2e6 - Profile_Panels2_other_dymin(1) = 0.1 + Profile_Panels_yaxis_name(2, 1) = 'v_div_cs' + Profile_Panels_ymax(2, 1) = -101D0 ! 1 + Profile_Panels_ymin(2, 1) = -101D0 ! -1 + Profile_Panels_dymin(2, 1) = 0.1 + Profile_Panels_other_yaxis_name(2, 1) = 'vel_km_per_s' + Profile_Panels_other_ymax(2, 1) = -101D0 ! 2e6 + Profile_Panels_other_ymin(2, 1) = -101D0 ! -2e6 + Profile_Panels_other_dymin(2, 1) = 0.1 - Profile_Panels2_yaxis_name(2) = 'lum_div_Ledd' - Profile_Panels2_ymax(2) = -101D0 ! 3.7 - Profile_Panels2_ymin(2) = -101D0 ! 3.1 - Profile_Panels2_dymin(2) = 0.02 - Profile_Panels2_other_yaxis_name(2) = 'logL' - Profile_Panels2_other_ymax(2) = -101D0 ! - Profile_Panels2_other_ymin(2) = -101D0 ! + Profile_Panels_yaxis_name(2, 2) = 'lum_div_Ledd' + Profile_Panels_ymax(2, 2) = -101D0 ! 3.7 + Profile_Panels_ymin(2, 2) = -101D0 ! 3.1 + Profile_Panels_dymin(2, 2) = 0.02 + Profile_Panels_other_yaxis_name(2, 2) = 'logL' + Profile_Panels_other_ymax(2, 2) = -101D0 ! + Profile_Panels_other_ymin(2, 2) = -101D0 ! - Profile_Panels2_yaxis_name(3) = 'logtau' - Profile_Panels2_other_yaxis_name(3) = 'opacity' + Profile_Panels_yaxis_name(2, 3) = 'logtau' + Profile_Panels_other_yaxis_name(2, 3) = 'opacity' - Profile_Panels2_yaxis_name(4) = 'Lc_div_L' - Profile_Panels2_ymax(4) = -101D0 - Profile_Panels2_ymin(4) = -101D0 - Profile_Panels2_other_yaxis_name(4) = 'mixing_type' - Profile_Panels2_other_ymax(4) = -101D0 ! - Profile_Panels2_other_ymin(4) = -101D0 ! - - Profile_Panels2_yaxis_name(5) = 'logT' - Profile_Panels2_other_yaxis_name(5) = 'free_e' + Profile_Panels_yaxis_name(2, 4) = 'Lc_div_L' + Profile_Panels_ymax(2, 4) = -101D0 + Profile_Panels_ymin(2, 4) = -101D0 + Profile_Panels_other_yaxis_name(2, 4) = 'mixing_type' + Profile_Panels_other_ymax(2, 4) = -101D0 ! + Profile_Panels_other_ymin(2, 4) = -101D0 ! + + Profile_Panels_yaxis_name(2, 5) = 'logT' + Profile_Panels_other_yaxis_name(2, 5) = 'free_e' - Profile_Panels2_yaxis_name(6) = 'log_dt_div_tau_conv' - Profile_Panels2_ymax(6) = -101D0 ! - Profile_Panels2_ymin(6) = -101D0 ! - Profile_Panels2_other_yaxis_name(6) = '' - Profile_Panels2_other_ymax(6) = 1d-3 - Profile_Panels2_other_ymin(6) = -1d-3 + Profile_Panels_yaxis_name(2, 6) = 'log_dt_div_tau_conv' + Profile_Panels_ymax(2, 6) = -101D0 ! + Profile_Panels_ymin(2, 6) = -101D0 ! + Profile_Panels_other_yaxis_name(2, 6) = '' + Profile_Panels_other_ymax(2, 6) = 1d-3 + Profile_Panels_other_ymin(2, 6) = -1d-3 - Profile_Panels2_file_flag = .false. - Profile_Panels2_file_dir = 'png' - Profile_Panels2_file_prefix = 'profile_panels1_' - Profile_Panels2_file_interval = 1 + Profile_Panels_file_flag(2) = .false. + Profile_Panels_file_dir(2) = 'png' + Profile_Panels_file_prefix(2) = 'profile_panels1_' + Profile_Panels_file_interval(2) = 1 - Text_Summary2_num_rows = 4 ! <= 20 - Text_Summary2_num_cols = 4 ! <= 20 - Text_Summary2_name(:,:) = '' - - Text_Summary2_name(1,1) = 'model_number' - Text_Summary2_name(2,1) = 'time_step_sec' - Text_Summary2_name(3,1) = 'log_rel_run_E_err' - Text_Summary2_name(4,1) = 'period' - Text_Summary2_name(5,1) = '' - - Text_Summary2_name(1,2) = 'v_surf_km_s' - Text_Summary2_name(2,2) = 'v_div_cs' - Text_Summary2_name(3,2) = 'radius' - Text_Summary2_name(4,2) = 'delta_R' - Text_Summary2_name(5,2) = '' - - Text_Summary2_name(1,3) = 'log_Teff' - Text_Summary2_name(2,3) = 'Teff' - Text_Summary2_name(3,3) = 'log_L' - Text_Summary2_name(4,3) = 'delta_logL' - Text_Summary2_name(5,3) = '' - - Text_Summary2_name(1,4) = 'num_zones' - Text_Summary2_name(2,4) = 'num_retries' - Text_Summary2_name(3,4) = 'num_periods' - Text_Summary2_name(4,4) = 'growth' - Text_Summary2_name(5,4) = '' + Text_Summary_num_rows(2) = 4 ! <= 20 + Text_Summary_num_cols(2) = 4 ! <= 20 + Text_Summary_name(2, :, :) = '' + + Text_Summary_name(2, 1, 1) = 'model_number' + Text_Summary_name(2, 2, 1) = 'time_step_sec' + Text_Summary_name(2, 3, 1) = 'log_rel_run_E_err' + Text_Summary_name(2, 4, 1) = 'period' + Text_Summary_name(2, 5, 1) = '' + + Text_Summary_name(2, 1, 2) = 'v_surf_km_s' + Text_Summary_name(2, 2, 2) = 'v_div_cs' + Text_Summary_name(2, 3, 2) = 'radius' + Text_Summary_name(2, 4, 2) = 'delta_R' + Text_Summary_name(2, 5, 2) = '' + + Text_Summary_name(2, 1, 3) = 'log_Teff' + Text_Summary_name(2, 2, 3) = 'Teff' + Text_Summary_name(2, 3, 3) = 'log_L' + Text_Summary_name(2, 4, 3) = 'delta_logL' + Text_Summary_name(2, 5, 3) = '' + + Text_Summary_name(2, 1, 4) = 'num_zones' + Text_Summary_name(2, 2, 4) = 'num_retries' + Text_Summary_name(2, 3, 4) = 'num_periods' + Text_Summary_name(2, 4, 4) = 'growth' + Text_Summary_name(2, 5, 4) = '' / ! end of pgstar namelist diff --git a/star/test_suite/rsp_Cepheid_6M/inlist_rsp_Cepheid b/star/test_suite/rsp_Cepheid_6M/inlist_rsp_Cepheid index 73f06b481..11d375804 100644 --- a/star/test_suite/rsp_Cepheid_6M/inlist_rsp_Cepheid +++ b/star/test_suite/rsp_Cepheid_6M/inlist_rsp_Cepheid @@ -96,26 +96,26 @@ !pgstar_interval = 20 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_title = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' + Grid_title(2) = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' - History_Panels1_xaxis_name='star_age_day' - History_Panels1_max_width = 365 ! only used if > 0. causes xmin to move with xmax. + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 - !Profile_Panels1_show_grid = .true. + !Profile_Panels_show_grid(1) = .true. - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = -101D0 + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 + Profile_Panels_dymin(1, 4) = 0.02 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_Cepheid_6M/inlist_rsp_Cepheid_make_cycle0 b/star/test_suite/rsp_Cepheid_6M/inlist_rsp_Cepheid_make_cycle0 index 9b84af4da..994181628 100644 --- a/star/test_suite/rsp_Cepheid_6M/inlist_rsp_Cepheid_make_cycle0 +++ b/star/test_suite/rsp_Cepheid_6M/inlist_rsp_Cepheid_make_cycle0 @@ -95,26 +95,26 @@ !pgstar_interval = 20 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_title = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' + Grid_title(2) = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' - History_Panels1_xaxis_name='star_age_day' - History_Panels1_max_width = 365 ! only used if > 0. causes xmin to move with xmax. + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 - !Profile_Panels1_show_grid = .true. + !Profile_Panels_show_grid(1) = .true. - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = -101D0 + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 + Profile_Panels_dymin(1, 4) = 0.02 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_Cepheid_6M/inlist_rsp_Cepheid_std b/star/test_suite/rsp_Cepheid_6M/inlist_rsp_Cepheid_std index 73f06b481..11d375804 100644 --- a/star/test_suite/rsp_Cepheid_6M/inlist_rsp_Cepheid_std +++ b/star/test_suite/rsp_Cepheid_6M/inlist_rsp_Cepheid_std @@ -96,26 +96,26 @@ !pgstar_interval = 20 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_title = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' + Grid_title(2) = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' - History_Panels1_xaxis_name='star_age_day' - History_Panels1_max_width = 365 ! only used if > 0. causes xmin to move with xmax. + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 - !Profile_Panels1_show_grid = .true. + !Profile_Panels_show_grid(1) = .true. - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = -101D0 + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 + Profile_Panels_dymin(1, 4) = 0.02 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_Cepheid_6M/inlist_rsp_Cepheid_test_cycle0 b/star/test_suite/rsp_Cepheid_6M/inlist_rsp_Cepheid_test_cycle0 index 8e5a5a5cb..30e9c1aae 100644 --- a/star/test_suite/rsp_Cepheid_6M/inlist_rsp_Cepheid_test_cycle0 +++ b/star/test_suite/rsp_Cepheid_6M/inlist_rsp_Cepheid_test_cycle0 @@ -94,26 +94,26 @@ pgstar_interval = 25 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_title = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' + Grid_title(2) = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' - History_Panels1_xaxis_name='star_age_day' - History_Panels1_max_width = 365 ! only used if > 0. causes xmin to move with xmax. + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 - !Profile_Panels1_show_grid = .true. + !Profile_Panels_show_grid(1) = .true. - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = -101D0 + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 + Profile_Panels_dymin(1, 4) = 0.02 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_Cepheid_6M/inlist_rsp_pgstar_default b/star/test_suite/rsp_Cepheid_6M/inlist_rsp_pgstar_default index 5b4b8c027..480a7c942 100644 --- a/star/test_suite/rsp_Cepheid_6M/inlist_rsp_pgstar_default +++ b/star/test_suite/rsp_Cepheid_6M/inlist_rsp_pgstar_default @@ -10,213 +10,213 @@ pgstar_right_yaxis_label_disp = 4.4 - Grid2_win_width = 8 - Grid2_win_aspect_ratio = 1.2 ! aspect_ratio = height/width - Grid2_num_cols = 3 ! divide plotting region into this many equal width cols - Grid2_num_rows = 8 ! divide plotting region into this many equal height rows - Grid2_num_plots = 6 ! <= 10 - - Grid2_plot_name(1) = 'Profile_Panels2' - Grid2_plot_row(1) = 1 ! number from 1 at top - Grid2_plot_rowspan(1) = 3 ! plot spans this number of rows - Grid2_plot_col(1) = 1 ! number from 1 at left - Grid2_plot_colspan(1) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(1) = -0.02 ! fraction of full window width for padding on left - Grid2_plot_pad_right(1) = 0.12 ! fraction of full window width for padding on right - Grid2_plot_pad_top(1) = -0.02 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(1) = -0.14 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(1) = 0.7 ! multiply txt_scale for subplot by this - - Grid2_plot_name(2) = 'History_Panels2' - Grid2_plot_row(2) = 4 ! number from 1 at top - Grid2_plot_rowspan(2) = 3 ! plot spans this number of rows - Grid2_plot_col(2) = 1 ! number from 1 at left - Grid2_plot_colspan(2) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(2) = -0.02 ! fraction of full window width for padding on left - Grid2_plot_pad_right(2) = 0.12 ! fraction of full window width for padding on right - Grid2_plot_pad_top(2) = 0.19 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(2) = -0.06 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this - - Grid2_plot_name(3) = 'Text_Summary2' - Grid2_plot_row(3) = 7 ! number from 1 at top - Grid2_plot_rowspan(3) = 2 ! plot spans this number of rows - Grid2_plot_col(3) = 1 ! number from 1 at left - Grid2_plot_colspan(3) = 3 ! plot spans this number of columns - Grid2_plot_pad_left(3) = -0.08 ! fraction of full window width for padding on left - Grid2_plot_pad_right(3) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(3) = 0.12 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(3) = -0.04 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(3) = 0.17 ! multiply txt_scale for subplot by this - - Grid2_plot_name(6) = 'logL_Teff' - Grid2_plot_row(6) = 1 ! number from 1 at top - Grid2_plot_rowspan(6) = 2 ! plot spans this number of rows - Grid2_plot_col(6) = 3 ! number from 1 at left - Grid2_plot_colspan(6) = 1 ! plot spans this number of columns - Grid2_plot_pad_left(6) = 0.04 ! fraction of full window width for padding on left - Grid2_plot_pad_right(6) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(6) = -0.02 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(6) = 0.02 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(6) = 0.6 ! multiply txt_scale for subplot by this + Grid_win_width(2) = 8 + Grid_win_aspect_ratio(2) = 1.2 ! aspect_ratio = height/width + Grid_num_cols(2) = 3 ! divide plotting region into this many equal width cols + Grid_num_rows(2) = 8 ! divide plotting region into this many equal height rows + Grid_num_plots(2) = 6 ! <= 10 + + Grid_plot_name(2, 1) = 'Profile_Panels2' + Grid_plot_row(2, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 1) = 3 ! plot spans this number of rows + Grid_plot_col(2, 1) = 1 ! number from 1 at left + Grid_plot_colspan(2, 1) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 1) = -0.02 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 1) = 0.12 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 1) = -0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 1) = -0.14 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 1) = 0.7 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 2) = 'History_Panels2' + Grid_plot_row(2, 2) = 4 ! number from 1 at top + Grid_plot_rowspan(2, 2) = 3 ! plot spans this number of rows + Grid_plot_col(2, 2) = 1 ! number from 1 at left + Grid_plot_colspan(2, 2) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 2) = -0.02 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 2) = 0.12 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 2) = 0.19 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 2) = -0.06 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 2) = 0.7 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 3) = 'Text_Summary2' + Grid_plot_row(2, 3) = 7 ! number from 1 at top + Grid_plot_rowspan(2, 3) = 2 ! plot spans this number of rows + Grid_plot_col(2, 3) = 1 ! number from 1 at left + Grid_plot_colspan(2, 3) = 3 ! plot spans this number of columns + Grid_plot_pad_left(2, 3) = -0.08 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 3) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 3) = 0.12 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 3) = -0.04 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 3) = 0.17 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 6) = 'logL_Teff' + Grid_plot_row(2, 6) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 6) = 2 ! plot spans this number of rows + Grid_plot_col(2, 6) = 3 ! number from 1 at left + Grid_plot_colspan(2, 6) = 1 ! plot spans this number of columns + Grid_plot_pad_left(2, 6) = 0.04 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 6) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 6) = -0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 6) = 0.02 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 6) = 0.6 ! multiply txt_scale for subplot by this logL_Teff_title = '' - Grid2_plot_name(5) = 'logL_v' - Grid2_plot_row(5) = 3 ! number from 1 at top - Grid2_plot_rowspan(5) = 2 ! plot spans this number of rows - Grid2_plot_col(5) = 3 ! number from 1 at left - Grid2_plot_colspan(5) = 1 ! plot spans this number of columns - Grid2_plot_pad_left(5) = 0.04 ! fraction of full window width for padding on left - Grid2_plot_pad_right(5) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(5) = 0.02 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(5) = -0.02 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(5) = 0.6 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 5) = 'logL_v' + Grid_plot_row(2, 5) = 3 ! number from 1 at top + Grid_plot_rowspan(2, 5) = 2 ! plot spans this number of rows + Grid_plot_col(2, 5) = 3 ! number from 1 at left + Grid_plot_colspan(2, 5) = 1 ! plot spans this number of columns + Grid_plot_pad_left(2, 5) = 0.04 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 5) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 5) = 0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 5) = -0.02 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 5) = 0.6 ! multiply txt_scale for subplot by this logL_v_title = '' - Grid2_plot_name(4) = 'logL_R' - Grid2_plot_row(4) = 5 ! number from 1 at top - Grid2_plot_rowspan(4) = 2 ! plot spans this number of rows - Grid2_plot_col(4) = 3 ! number from 1 at left - Grid2_plot_colspan(4) = 1 ! plot spans this number of columns - Grid2_plot_pad_left(4) = 0.04 ! fraction of full window width for padding on left - Grid2_plot_pad_right(4) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(4) = 0.06 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(4) = -0.06 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(4) = 0.6 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 4) = 'logL_R' + Grid_plot_row(2, 4) = 5 ! number from 1 at top + Grid_plot_rowspan(2, 4) = 2 ! plot spans this number of rows + Grid_plot_col(2, 4) = 3 ! number from 1 at left + Grid_plot_colspan(2, 4) = 1 ! plot spans this number of columns + Grid_plot_pad_left(2, 4) = 0.04 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 4) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 4) = 0.06 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 4) = -0.06 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 4) = 0.6 ! multiply txt_scale for subplot by this logL_R_title = '' - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid2' - Grid2_file_interval = 10 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid2' + Grid_file_interval(2) = 10 ! output when mod(model_number,Grid_file_interval(2))==0 - History_Panels2_title = '' - History_Panels2_num_panels = 2 + History_Panels_title(2) = '' + History_Panels_num_panels(2) = 2 - !History_Panels2_xaxis_name='model_number' - History_Panels2_xaxis_name='day' - History_Panels2_max_width = 40 ! 200 ! only used if > 0. causes xmin to move with xmax. - - History_Panels2_yaxis_name(1) = 'Teff' - History_Panels2_yaxis_reversed(1) = .false. - History_Panels2_ymin(1) = -101d0 ! only used if /= -101d0 - History_Panels2_ymax(1) = -101d0 ! only used if /= -101d0 - History_Panels2_dymin(1) = -1 - - History_Panels2_other_yaxis_name(1) = 'log_L' - History_Panels2_other_yaxis_reversed(1) = .false. - History_Panels2_other_ymin(1) = -101d0 ! only used if /= -101d0 - History_Panels2_other_ymax(1) = -101d0 ! only used if /= -101d0 - History_Panels2_other_dymin(1) = -1 - - History_Panels2_yaxis_name(2) = 'radius' ! 'star_mass' - History_Panels2_yaxis_reversed(2) = .false. - History_Panels2_ymin(2) = -101d0 ! only used if /= -101d0 - History_Panels2_ymax(2) = -101d0 ! only used if /= -101d0 - History_Panels2_dymin(2) = -1 - - History_Panels2_other_yaxis_name(2) = 'v_surf_km_s' - History_Panels2_other_yaxis_reversed(2) = .false. - History_Panels2_other_ymin(2) = -101d0 ! only used if /= -101d0 - History_Panels2_other_ymax(2) = -101d0 ! only used if /= -101d0 - History_Panels2_other_dymin(2) = -1 - - History_Panels2_yaxis_name(3) = 'r_center' ! 'star_mass' - History_Panels2_yaxis_reversed(3) = .false. - History_Panels2_ymin(3) = -101d0 ! only used if /= -101d0 - History_Panels2_ymax(3) = -101d0 ! only used if /= -101d0 - History_Panels2_dymin(3) = -1 - - History_Panels2_other_yaxis_name(3) = 'v_center' - History_Panels2_other_yaxis_reversed(3) = .false. - History_Panels2_other_ymin(3) = -101d0 ! only used if /= -101d0 - History_Panels2_other_ymax(3) = -101d0 ! only used if /= -101d0 - History_Panels2_other_dymin(3) = -1 + !History_Panels_xaxis_name(2) ='model_number' + History_Panels_xaxis_name(2) ='day' + History_Panels_max_width(2) = 40 ! 200 ! only used if > 0. causes xmin to move with xmax. + + History_Panels_yaxis_name(2, 1) = 'Teff' + History_Panels_yaxis_reversed(2, 1) = .false. + History_Panels_ymin(2, 1) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(2, 1) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(2, 1) = -1 + + History_Panels_other_yaxis_name(2, 1) = 'log_L' + History_Panels_other_yaxis_reversed(2, 1) = .false. + History_Panels_other_ymin(2, 1) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(2, 1) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(2, 1) = -1 + + History_Panels_yaxis_name(2, 2) = 'radius' ! 'star_mass' + History_Panels_yaxis_reversed(2, 2) = .false. + History_Panels_ymin(2, 2) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(2, 2) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(2, 2) = -1 + + History_Panels_other_yaxis_name(2, 2) = 'v_surf_km_s' + History_Panels_other_yaxis_reversed(2, 2) = .false. + History_Panels_other_ymin(2, 2) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(2, 2) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(2, 2) = -1 + + History_Panels_yaxis_name(2, 3) = 'r_center' ! 'star_mass' + History_Panels_yaxis_reversed(2, 3) = .false. + History_Panels_ymin(2, 3) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(2, 3) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(2, 3) = -1 + + History_Panels_other_yaxis_name(2, 3) = 'v_center' + History_Panels_other_yaxis_reversed(2, 3) = .false. + History_Panels_other_ymin(2, 3) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(2, 3) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(2, 3) = -1 - Profile_Panels2_win_flag = .false. - Profile_Panels2_title = '' + Profile_Panels_win_flag(2) = .false. + Profile_Panels_title(2) = '' - Profile_Panels2_xaxis_name = 'logtau' - Profile_Panels2_xaxis_reversed = .true. - Profile_Panels2_xmin = -101D0 - Profile_Panels2_xmax = 6.0 ! -101D0 - Profile_Panels2_show_mix_regions_on_xaxis = .true. - !Profile_Panels2_show_grid = .true. + Profile_Panels_xaxis_name(2) = 'logtau' + Profile_Panels_xaxis_reversed(2) = .true. + Profile_Panels_xmin(2) = -101D0 + Profile_Panels_xmax(2) = 6.0 ! -101D0 + Profile_Panels_show_mix_regions_on_xaxis(2) = .true. + !Profile_Panels_show_grid(2) = .true. - Profile_Panels2_num_panels = 5 + Profile_Panels_num_panels(2) = 5 - Profile_Panels2_yaxis_name(1) = 'v_div_cs' - Profile_Panels2_ymax(1) = -101D0 ! 1 - Profile_Panels2_ymin(1) = -101D0 ! -1 - Profile_Panels2_dymin(1) = 0.1 - Profile_Panels2_other_yaxis_name(1) = 'vel_km_per_s' - Profile_Panels2_other_ymax(1) = -101D0 ! 2e6 - Profile_Panels2_other_ymin(1) = -101D0 ! -2e6 - Profile_Panels2_other_dymin(1) = 0.1 + Profile_Panels_yaxis_name(2, 1) = 'v_div_cs' + Profile_Panels_ymax(2, 1) = -101D0 ! 1 + Profile_Panels_ymin(2, 1) = -101D0 ! -1 + Profile_Panels_dymin(2, 1) = 0.1 + Profile_Panels_other_yaxis_name(2, 1) = 'vel_km_per_s' + Profile_Panels_other_ymax(2, 1) = -101D0 ! 2e6 + Profile_Panels_other_ymin(2, 1) = -101D0 ! -2e6 + Profile_Panels_other_dymin(2, 1) = 0.1 - Profile_Panels2_yaxis_name(2) = 'lum_div_Ledd' - Profile_Panels2_ymax(2) = -101D0 ! 3.7 - Profile_Panels2_ymin(2) = -101D0 ! 3.1 - Profile_Panels2_dymin(2) = 0.02 - Profile_Panels2_other_yaxis_name(2) = 'logL' - Profile_Panels2_other_ymax(2) = -101D0 ! - Profile_Panels2_other_ymin(2) = -101D0 ! + Profile_Panels_yaxis_name(2, 2) = 'lum_div_Ledd' + Profile_Panels_ymax(2, 2) = -101D0 ! 3.7 + Profile_Panels_ymin(2, 2) = -101D0 ! 3.1 + Profile_Panels_dymin(2, 2) = 0.02 + Profile_Panels_other_yaxis_name(2, 2) = 'logL' + Profile_Panels_other_ymax(2, 2) = -101D0 ! + Profile_Panels_other_ymin(2, 2) = -101D0 ! - Profile_Panels2_yaxis_name(3) = 'logtau' - Profile_Panels2_other_yaxis_name(3) = 'opacity' + Profile_Panels_yaxis_name(2, 3) = 'logtau' + Profile_Panels_other_yaxis_name(2, 3) = 'opacity' - Profile_Panels2_yaxis_name(4) = 'Lc_div_L' - Profile_Panels2_ymax(4) = -101D0 - Profile_Panels2_ymin(4) = -101D0 - Profile_Panels2_other_yaxis_name(4) = 'mixing_type' - Profile_Panels2_other_ymax(4) = -101D0 ! - Profile_Panels2_other_ymin(4) = -101D0 ! - - Profile_Panels2_yaxis_name(5) = 'logT' - Profile_Panels2_other_yaxis_name(5) = 'free_e' + Profile_Panels_yaxis_name(2, 4) = 'Lc_div_L' + Profile_Panels_ymax(2, 4) = -101D0 + Profile_Panels_ymin(2, 4) = -101D0 + Profile_Panels_other_yaxis_name(2, 4) = 'mixing_type' + Profile_Panels_other_ymax(2, 4) = -101D0 ! + Profile_Panels_other_ymin(2, 4) = -101D0 ! + + Profile_Panels_yaxis_name(2, 5) = 'logT' + Profile_Panels_other_yaxis_name(2, 5) = 'free_e' - Profile_Panels2_yaxis_name(6) = 'log_dt_div_tau_conv' - Profile_Panels2_ymax(6) = -101D0 ! - Profile_Panels2_ymin(6) = -101D0 ! - Profile_Panels2_other_yaxis_name(6) = '' - Profile_Panels2_other_ymax(6) = 1d-3 - Profile_Panels2_other_ymin(6) = -1d-3 + Profile_Panels_yaxis_name(2, 6) = 'log_dt_div_tau_conv' + Profile_Panels_ymax(2, 6) = -101D0 ! + Profile_Panels_ymin(2, 6) = -101D0 ! + Profile_Panels_other_yaxis_name(2, 6) = '' + Profile_Panels_other_ymax(2, 6) = 1d-3 + Profile_Panels_other_ymin(2, 6) = -1d-3 - Profile_Panels2_file_flag = .false. - Profile_Panels2_file_dir = 'png' - Profile_Panels2_file_prefix = 'profile_panels1_' - Profile_Panels2_file_interval = 1 + Profile_Panels_file_flag(2) = .false. + Profile_Panels_file_dir(2) = 'png' + Profile_Panels_file_prefix(2) = 'profile_panels1_' + Profile_Panels_file_interval(2) = 1 - Text_Summary2_num_rows = 4 ! <= 20 - Text_Summary2_num_cols = 4 ! <= 20 - Text_Summary2_name(:,:) = '' - - Text_Summary2_name(1,1) = 'model_number' - Text_Summary2_name(2,1) = 'time_step_sec' - Text_Summary2_name(3,1) = 'log_rel_run_E_err' - Text_Summary2_name(4,1) = 'period' - Text_Summary2_name(5,1) = '' - - Text_Summary2_name(1,2) = 'v_surf_km_s' - Text_Summary2_name(2,2) = 'v_div_cs' - Text_Summary2_name(3,2) = 'radius' - Text_Summary2_name(4,2) = 'delta_R' - Text_Summary2_name(5,2) = '' - - Text_Summary2_name(1,3) = 'log_Teff' - Text_Summary2_name(2,3) = 'Teff' - Text_Summary2_name(3,3) = 'log_L' - Text_Summary2_name(4,3) = 'delta_logL' - Text_Summary2_name(5,3) = '' - - Text_Summary2_name(1,4) = 'num_zones' - Text_Summary2_name(2,4) = 'num_retries' - Text_Summary2_name(3,4) = 'num_periods' - Text_Summary2_name(4,4) = 'growth' - Text_Summary2_name(5,4) = '' + Text_Summary_num_rows(2) = 4 ! <= 20 + Text_Summary_num_cols(2) = 4 ! <= 20 + Text_Summary_name(2, :, :) = '' + + Text_Summary_name(2, 1, 1) = 'model_number' + Text_Summary_name(2, 2, 1) = 'time_step_sec' + Text_Summary_name(2, 3, 1) = 'log_rel_run_E_err' + Text_Summary_name(2, 4, 1) = 'period' + Text_Summary_name(2, 5, 1) = '' + + Text_Summary_name(2, 1, 2) = 'v_surf_km_s' + Text_Summary_name(2, 2, 2) = 'v_div_cs' + Text_Summary_name(2, 3, 2) = 'radius' + Text_Summary_name(2, 4, 2) = 'delta_R' + Text_Summary_name(2, 5, 2) = '' + + Text_Summary_name(2, 1, 3) = 'log_Teff' + Text_Summary_name(2, 2, 3) = 'Teff' + Text_Summary_name(2, 3, 3) = 'log_L' + Text_Summary_name(2, 4, 3) = 'delta_logL' + Text_Summary_name(2, 5, 3) = '' + + Text_Summary_name(2, 1, 4) = 'num_zones' + Text_Summary_name(2, 2, 4) = 'num_retries' + Text_Summary_name(2, 3, 4) = 'num_periods' + Text_Summary_name(2, 4, 4) = 'growth' + Text_Summary_name(2, 5, 4) = '' / ! end of pgstar namelist diff --git a/star/test_suite/rsp_Delta_Scuti/README.rst b/star/test_suite/rsp_Delta_Scuti/README.rst index 562c3d98e..c6fc73fda 100644 --- a/star/test_suite/rsp_Delta_Scuti/README.rst +++ b/star/test_suite/rsp_Delta_Scuti/README.rst @@ -45,23 +45,23 @@ pgstar commands, in addition to those in ``inlist_rsp_pgstar_default``, used for pgstar_model_disp = 3.9 - History_Panels2_txt_scale = 0.7 - Profile_Panels2_txt_scale = 0.6 + History_Panels_txt_scale(2) = 0.7 + Profile_Panels_txt_scale(2) = 0.6 logL_R_txt_scale = 0.7 logL_v_txt_scale = 0.7 logL_Teff_txt_scale = 0.7 - Grid2_win_flag = .true. - Grid2_win_width = 12 - Grid2_title = 'rsp_Delta_Scuti' - Grid2_txt_scale_factor(:) = 1.0 - - Grid2_file_flag = .true. - Grid2_file_dir = 'pgstar_out' - Grid2_file_prefix = 'grid_' - Grid2_file_interval = 10000 - Grid2_file_width = -1 - Grid2_file_aspect_ratio = -1 + Grid_win_flag(2) = .true. + Grid_win_width(2) = 12 + Grid_title(2) = 'rsp_Delta_Scuti' + Grid_txt_scale_factor(2, :) = 1.0 + + Grid_file_flag(2) = .true. + Grid_file_dir(2) = 'pgstar_out' + Grid_file_prefix(2) = 'grid_' + Grid_file_interval(2) = 10000 + Grid_file_width(2) = -1 + Grid_file_aspect_ratio(2) = -1 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_Delta_Scuti/inlist_rsp_Delta_Scuti b/star/test_suite/rsp_Delta_Scuti/inlist_rsp_Delta_Scuti index c5a7313b4..2133a4122 100644 --- a/star/test_suite/rsp_Delta_Scuti/inlist_rsp_Delta_Scuti +++ b/star/test_suite/rsp_Delta_Scuti/inlist_rsp_Delta_Scuti @@ -123,28 +123,28 @@ pgstar_interval = 6 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_title = '2.0 M\d\(2281)\u Z=0.02 delta Scuti' + Grid_title(2) = '2.0 M\d\(2281)\u Z=0.02 delta Scuti' - History_Panels1_xaxis_name='star_age_day' - History_Panels1_max_width = 365 ! only used if > 0. causes xmin to move with xmax. + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 - !Profile_Panels1_show_grid = .true. + !Profile_Panels_show_grid(1) = .true. - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = -101D0 + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 + Profile_Panels_dymin(1, 4) = 0.02 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_Delta_Scuti/inlist_rsp_Delta_Scuti_make_cycle0 b/star/test_suite/rsp_Delta_Scuti/inlist_rsp_Delta_Scuti_make_cycle0 index 13ea62b9d..9b89209e2 100644 --- a/star/test_suite/rsp_Delta_Scuti/inlist_rsp_Delta_Scuti_make_cycle0 +++ b/star/test_suite/rsp_Delta_Scuti/inlist_rsp_Delta_Scuti_make_cycle0 @@ -122,28 +122,28 @@ pgstar_interval = 6 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_title = '2.0 M\d\(2281)\u Z=0.02 delta Scuti' + Grid_title(2) = '2.0 M\d\(2281)\u Z=0.02 delta Scuti' - History_Panels1_xaxis_name='star_age_day' - History_Panels1_max_width = 365 ! only used if > 0. causes xmin to move with xmax. + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 - !Profile_Panels1_show_grid = .true. + !Profile_Panels_show_grid(1) = .true. - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = -101D0 + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 + Profile_Panels_dymin(1, 4) = 0.02 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_Delta_Scuti/inlist_rsp_Delta_Scuti_std b/star/test_suite/rsp_Delta_Scuti/inlist_rsp_Delta_Scuti_std index c5a7313b4..2133a4122 100644 --- a/star/test_suite/rsp_Delta_Scuti/inlist_rsp_Delta_Scuti_std +++ b/star/test_suite/rsp_Delta_Scuti/inlist_rsp_Delta_Scuti_std @@ -123,28 +123,28 @@ pgstar_interval = 6 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_title = '2.0 M\d\(2281)\u Z=0.02 delta Scuti' + Grid_title(2) = '2.0 M\d\(2281)\u Z=0.02 delta Scuti' - History_Panels1_xaxis_name='star_age_day' - History_Panels1_max_width = 365 ! only used if > 0. causes xmin to move with xmax. + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 - !Profile_Panels1_show_grid = .true. + !Profile_Panels_show_grid(1) = .true. - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = -101D0 + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 + Profile_Panels_dymin(1, 4) = 0.02 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_Delta_Scuti/inlist_rsp_Delta_Scuti_test_cycle0 b/star/test_suite/rsp_Delta_Scuti/inlist_rsp_Delta_Scuti_test_cycle0 index 8d82d994a..85e3713cb 100644 --- a/star/test_suite/rsp_Delta_Scuti/inlist_rsp_Delta_Scuti_test_cycle0 +++ b/star/test_suite/rsp_Delta_Scuti/inlist_rsp_Delta_Scuti_test_cycle0 @@ -121,28 +121,28 @@ pgstar_interval = 25 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_title = '2.0 M\d\(2281)\u Z=0.02 delta Scuti' + Grid_title(2) = '2.0 M\d\(2281)\u Z=0.02 delta Scuti' - History_Panels1_xaxis_name='star_age_day' - History_Panels1_max_width = 365 ! only used if > 0. causes xmin to move with xmax. + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 - !Profile_Panels1_show_grid = .true. + !Profile_Panels_show_grid(1) = .true. - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = -101D0 + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 + Profile_Panels_dymin(1, 4) = 0.02 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_Delta_Scuti/inlist_rsp_pgstar_default b/star/test_suite/rsp_Delta_Scuti/inlist_rsp_pgstar_default index 5b4b8c027..480a7c942 100644 --- a/star/test_suite/rsp_Delta_Scuti/inlist_rsp_pgstar_default +++ b/star/test_suite/rsp_Delta_Scuti/inlist_rsp_pgstar_default @@ -10,213 +10,213 @@ pgstar_right_yaxis_label_disp = 4.4 - Grid2_win_width = 8 - Grid2_win_aspect_ratio = 1.2 ! aspect_ratio = height/width - Grid2_num_cols = 3 ! divide plotting region into this many equal width cols - Grid2_num_rows = 8 ! divide plotting region into this many equal height rows - Grid2_num_plots = 6 ! <= 10 - - Grid2_plot_name(1) = 'Profile_Panels2' - Grid2_plot_row(1) = 1 ! number from 1 at top - Grid2_plot_rowspan(1) = 3 ! plot spans this number of rows - Grid2_plot_col(1) = 1 ! number from 1 at left - Grid2_plot_colspan(1) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(1) = -0.02 ! fraction of full window width for padding on left - Grid2_plot_pad_right(1) = 0.12 ! fraction of full window width for padding on right - Grid2_plot_pad_top(1) = -0.02 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(1) = -0.14 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(1) = 0.7 ! multiply txt_scale for subplot by this - - Grid2_plot_name(2) = 'History_Panels2' - Grid2_plot_row(2) = 4 ! number from 1 at top - Grid2_plot_rowspan(2) = 3 ! plot spans this number of rows - Grid2_plot_col(2) = 1 ! number from 1 at left - Grid2_plot_colspan(2) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(2) = -0.02 ! fraction of full window width for padding on left - Grid2_plot_pad_right(2) = 0.12 ! fraction of full window width for padding on right - Grid2_plot_pad_top(2) = 0.19 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(2) = -0.06 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this - - Grid2_plot_name(3) = 'Text_Summary2' - Grid2_plot_row(3) = 7 ! number from 1 at top - Grid2_plot_rowspan(3) = 2 ! plot spans this number of rows - Grid2_plot_col(3) = 1 ! number from 1 at left - Grid2_plot_colspan(3) = 3 ! plot spans this number of columns - Grid2_plot_pad_left(3) = -0.08 ! fraction of full window width for padding on left - Grid2_plot_pad_right(3) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(3) = 0.12 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(3) = -0.04 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(3) = 0.17 ! multiply txt_scale for subplot by this - - Grid2_plot_name(6) = 'logL_Teff' - Grid2_plot_row(6) = 1 ! number from 1 at top - Grid2_plot_rowspan(6) = 2 ! plot spans this number of rows - Grid2_plot_col(6) = 3 ! number from 1 at left - Grid2_plot_colspan(6) = 1 ! plot spans this number of columns - Grid2_plot_pad_left(6) = 0.04 ! fraction of full window width for padding on left - Grid2_plot_pad_right(6) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(6) = -0.02 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(6) = 0.02 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(6) = 0.6 ! multiply txt_scale for subplot by this + Grid_win_width(2) = 8 + Grid_win_aspect_ratio(2) = 1.2 ! aspect_ratio = height/width + Grid_num_cols(2) = 3 ! divide plotting region into this many equal width cols + Grid_num_rows(2) = 8 ! divide plotting region into this many equal height rows + Grid_num_plots(2) = 6 ! <= 10 + + Grid_plot_name(2, 1) = 'Profile_Panels2' + Grid_plot_row(2, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 1) = 3 ! plot spans this number of rows + Grid_plot_col(2, 1) = 1 ! number from 1 at left + Grid_plot_colspan(2, 1) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 1) = -0.02 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 1) = 0.12 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 1) = -0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 1) = -0.14 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 1) = 0.7 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 2) = 'History_Panels2' + Grid_plot_row(2, 2) = 4 ! number from 1 at top + Grid_plot_rowspan(2, 2) = 3 ! plot spans this number of rows + Grid_plot_col(2, 2) = 1 ! number from 1 at left + Grid_plot_colspan(2, 2) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 2) = -0.02 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 2) = 0.12 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 2) = 0.19 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 2) = -0.06 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 2) = 0.7 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 3) = 'Text_Summary2' + Grid_plot_row(2, 3) = 7 ! number from 1 at top + Grid_plot_rowspan(2, 3) = 2 ! plot spans this number of rows + Grid_plot_col(2, 3) = 1 ! number from 1 at left + Grid_plot_colspan(2, 3) = 3 ! plot spans this number of columns + Grid_plot_pad_left(2, 3) = -0.08 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 3) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 3) = 0.12 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 3) = -0.04 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 3) = 0.17 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 6) = 'logL_Teff' + Grid_plot_row(2, 6) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 6) = 2 ! plot spans this number of rows + Grid_plot_col(2, 6) = 3 ! number from 1 at left + Grid_plot_colspan(2, 6) = 1 ! plot spans this number of columns + Grid_plot_pad_left(2, 6) = 0.04 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 6) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 6) = -0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 6) = 0.02 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 6) = 0.6 ! multiply txt_scale for subplot by this logL_Teff_title = '' - Grid2_plot_name(5) = 'logL_v' - Grid2_plot_row(5) = 3 ! number from 1 at top - Grid2_plot_rowspan(5) = 2 ! plot spans this number of rows - Grid2_plot_col(5) = 3 ! number from 1 at left - Grid2_plot_colspan(5) = 1 ! plot spans this number of columns - Grid2_plot_pad_left(5) = 0.04 ! fraction of full window width for padding on left - Grid2_plot_pad_right(5) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(5) = 0.02 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(5) = -0.02 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(5) = 0.6 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 5) = 'logL_v' + Grid_plot_row(2, 5) = 3 ! number from 1 at top + Grid_plot_rowspan(2, 5) = 2 ! plot spans this number of rows + Grid_plot_col(2, 5) = 3 ! number from 1 at left + Grid_plot_colspan(2, 5) = 1 ! plot spans this number of columns + Grid_plot_pad_left(2, 5) = 0.04 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 5) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 5) = 0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 5) = -0.02 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 5) = 0.6 ! multiply txt_scale for subplot by this logL_v_title = '' - Grid2_plot_name(4) = 'logL_R' - Grid2_plot_row(4) = 5 ! number from 1 at top - Grid2_plot_rowspan(4) = 2 ! plot spans this number of rows - Grid2_plot_col(4) = 3 ! number from 1 at left - Grid2_plot_colspan(4) = 1 ! plot spans this number of columns - Grid2_plot_pad_left(4) = 0.04 ! fraction of full window width for padding on left - Grid2_plot_pad_right(4) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(4) = 0.06 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(4) = -0.06 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(4) = 0.6 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 4) = 'logL_R' + Grid_plot_row(2, 4) = 5 ! number from 1 at top + Grid_plot_rowspan(2, 4) = 2 ! plot spans this number of rows + Grid_plot_col(2, 4) = 3 ! number from 1 at left + Grid_plot_colspan(2, 4) = 1 ! plot spans this number of columns + Grid_plot_pad_left(2, 4) = 0.04 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 4) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 4) = 0.06 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 4) = -0.06 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 4) = 0.6 ! multiply txt_scale for subplot by this logL_R_title = '' - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid2' - Grid2_file_interval = 10 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid2' + Grid_file_interval(2) = 10 ! output when mod(model_number,Grid_file_interval(2))==0 - History_Panels2_title = '' - History_Panels2_num_panels = 2 + History_Panels_title(2) = '' + History_Panels_num_panels(2) = 2 - !History_Panels2_xaxis_name='model_number' - History_Panels2_xaxis_name='day' - History_Panels2_max_width = 40 ! 200 ! only used if > 0. causes xmin to move with xmax. - - History_Panels2_yaxis_name(1) = 'Teff' - History_Panels2_yaxis_reversed(1) = .false. - History_Panels2_ymin(1) = -101d0 ! only used if /= -101d0 - History_Panels2_ymax(1) = -101d0 ! only used if /= -101d0 - History_Panels2_dymin(1) = -1 - - History_Panels2_other_yaxis_name(1) = 'log_L' - History_Panels2_other_yaxis_reversed(1) = .false. - History_Panels2_other_ymin(1) = -101d0 ! only used if /= -101d0 - History_Panels2_other_ymax(1) = -101d0 ! only used if /= -101d0 - History_Panels2_other_dymin(1) = -1 - - History_Panels2_yaxis_name(2) = 'radius' ! 'star_mass' - History_Panels2_yaxis_reversed(2) = .false. - History_Panels2_ymin(2) = -101d0 ! only used if /= -101d0 - History_Panels2_ymax(2) = -101d0 ! only used if /= -101d0 - History_Panels2_dymin(2) = -1 - - History_Panels2_other_yaxis_name(2) = 'v_surf_km_s' - History_Panels2_other_yaxis_reversed(2) = .false. - History_Panels2_other_ymin(2) = -101d0 ! only used if /= -101d0 - History_Panels2_other_ymax(2) = -101d0 ! only used if /= -101d0 - History_Panels2_other_dymin(2) = -1 - - History_Panels2_yaxis_name(3) = 'r_center' ! 'star_mass' - History_Panels2_yaxis_reversed(3) = .false. - History_Panels2_ymin(3) = -101d0 ! only used if /= -101d0 - History_Panels2_ymax(3) = -101d0 ! only used if /= -101d0 - History_Panels2_dymin(3) = -1 - - History_Panels2_other_yaxis_name(3) = 'v_center' - History_Panels2_other_yaxis_reversed(3) = .false. - History_Panels2_other_ymin(3) = -101d0 ! only used if /= -101d0 - History_Panels2_other_ymax(3) = -101d0 ! only used if /= -101d0 - History_Panels2_other_dymin(3) = -1 + !History_Panels_xaxis_name(2) ='model_number' + History_Panels_xaxis_name(2) ='day' + History_Panels_max_width(2) = 40 ! 200 ! only used if > 0. causes xmin to move with xmax. + + History_Panels_yaxis_name(2, 1) = 'Teff' + History_Panels_yaxis_reversed(2, 1) = .false. + History_Panels_ymin(2, 1) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(2, 1) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(2, 1) = -1 + + History_Panels_other_yaxis_name(2, 1) = 'log_L' + History_Panels_other_yaxis_reversed(2, 1) = .false. + History_Panels_other_ymin(2, 1) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(2, 1) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(2, 1) = -1 + + History_Panels_yaxis_name(2, 2) = 'radius' ! 'star_mass' + History_Panels_yaxis_reversed(2, 2) = .false. + History_Panels_ymin(2, 2) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(2, 2) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(2, 2) = -1 + + History_Panels_other_yaxis_name(2, 2) = 'v_surf_km_s' + History_Panels_other_yaxis_reversed(2, 2) = .false. + History_Panels_other_ymin(2, 2) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(2, 2) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(2, 2) = -1 + + History_Panels_yaxis_name(2, 3) = 'r_center' ! 'star_mass' + History_Panels_yaxis_reversed(2, 3) = .false. + History_Panels_ymin(2, 3) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(2, 3) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(2, 3) = -1 + + History_Panels_other_yaxis_name(2, 3) = 'v_center' + History_Panels_other_yaxis_reversed(2, 3) = .false. + History_Panels_other_ymin(2, 3) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(2, 3) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(2, 3) = -1 - Profile_Panels2_win_flag = .false. - Profile_Panels2_title = '' + Profile_Panels_win_flag(2) = .false. + Profile_Panels_title(2) = '' - Profile_Panels2_xaxis_name = 'logtau' - Profile_Panels2_xaxis_reversed = .true. - Profile_Panels2_xmin = -101D0 - Profile_Panels2_xmax = 6.0 ! -101D0 - Profile_Panels2_show_mix_regions_on_xaxis = .true. - !Profile_Panels2_show_grid = .true. + Profile_Panels_xaxis_name(2) = 'logtau' + Profile_Panels_xaxis_reversed(2) = .true. + Profile_Panels_xmin(2) = -101D0 + Profile_Panels_xmax(2) = 6.0 ! -101D0 + Profile_Panels_show_mix_regions_on_xaxis(2) = .true. + !Profile_Panels_show_grid(2) = .true. - Profile_Panels2_num_panels = 5 + Profile_Panels_num_panels(2) = 5 - Profile_Panels2_yaxis_name(1) = 'v_div_cs' - Profile_Panels2_ymax(1) = -101D0 ! 1 - Profile_Panels2_ymin(1) = -101D0 ! -1 - Profile_Panels2_dymin(1) = 0.1 - Profile_Panels2_other_yaxis_name(1) = 'vel_km_per_s' - Profile_Panels2_other_ymax(1) = -101D0 ! 2e6 - Profile_Panels2_other_ymin(1) = -101D0 ! -2e6 - Profile_Panels2_other_dymin(1) = 0.1 + Profile_Panels_yaxis_name(2, 1) = 'v_div_cs' + Profile_Panels_ymax(2, 1) = -101D0 ! 1 + Profile_Panels_ymin(2, 1) = -101D0 ! -1 + Profile_Panels_dymin(2, 1) = 0.1 + Profile_Panels_other_yaxis_name(2, 1) = 'vel_km_per_s' + Profile_Panels_other_ymax(2, 1) = -101D0 ! 2e6 + Profile_Panels_other_ymin(2, 1) = -101D0 ! -2e6 + Profile_Panels_other_dymin(2, 1) = 0.1 - Profile_Panels2_yaxis_name(2) = 'lum_div_Ledd' - Profile_Panels2_ymax(2) = -101D0 ! 3.7 - Profile_Panels2_ymin(2) = -101D0 ! 3.1 - Profile_Panels2_dymin(2) = 0.02 - Profile_Panels2_other_yaxis_name(2) = 'logL' - Profile_Panels2_other_ymax(2) = -101D0 ! - Profile_Panels2_other_ymin(2) = -101D0 ! + Profile_Panels_yaxis_name(2, 2) = 'lum_div_Ledd' + Profile_Panels_ymax(2, 2) = -101D0 ! 3.7 + Profile_Panels_ymin(2, 2) = -101D0 ! 3.1 + Profile_Panels_dymin(2, 2) = 0.02 + Profile_Panels_other_yaxis_name(2, 2) = 'logL' + Profile_Panels_other_ymax(2, 2) = -101D0 ! + Profile_Panels_other_ymin(2, 2) = -101D0 ! - Profile_Panels2_yaxis_name(3) = 'logtau' - Profile_Panels2_other_yaxis_name(3) = 'opacity' + Profile_Panels_yaxis_name(2, 3) = 'logtau' + Profile_Panels_other_yaxis_name(2, 3) = 'opacity' - Profile_Panels2_yaxis_name(4) = 'Lc_div_L' - Profile_Panels2_ymax(4) = -101D0 - Profile_Panels2_ymin(4) = -101D0 - Profile_Panels2_other_yaxis_name(4) = 'mixing_type' - Profile_Panels2_other_ymax(4) = -101D0 ! - Profile_Panels2_other_ymin(4) = -101D0 ! - - Profile_Panels2_yaxis_name(5) = 'logT' - Profile_Panels2_other_yaxis_name(5) = 'free_e' + Profile_Panels_yaxis_name(2, 4) = 'Lc_div_L' + Profile_Panels_ymax(2, 4) = -101D0 + Profile_Panels_ymin(2, 4) = -101D0 + Profile_Panels_other_yaxis_name(2, 4) = 'mixing_type' + Profile_Panels_other_ymax(2, 4) = -101D0 ! + Profile_Panels_other_ymin(2, 4) = -101D0 ! + + Profile_Panels_yaxis_name(2, 5) = 'logT' + Profile_Panels_other_yaxis_name(2, 5) = 'free_e' - Profile_Panels2_yaxis_name(6) = 'log_dt_div_tau_conv' - Profile_Panels2_ymax(6) = -101D0 ! - Profile_Panels2_ymin(6) = -101D0 ! - Profile_Panels2_other_yaxis_name(6) = '' - Profile_Panels2_other_ymax(6) = 1d-3 - Profile_Panels2_other_ymin(6) = -1d-3 + Profile_Panels_yaxis_name(2, 6) = 'log_dt_div_tau_conv' + Profile_Panels_ymax(2, 6) = -101D0 ! + Profile_Panels_ymin(2, 6) = -101D0 ! + Profile_Panels_other_yaxis_name(2, 6) = '' + Profile_Panels_other_ymax(2, 6) = 1d-3 + Profile_Panels_other_ymin(2, 6) = -1d-3 - Profile_Panels2_file_flag = .false. - Profile_Panels2_file_dir = 'png' - Profile_Panels2_file_prefix = 'profile_panels1_' - Profile_Panels2_file_interval = 1 + Profile_Panels_file_flag(2) = .false. + Profile_Panels_file_dir(2) = 'png' + Profile_Panels_file_prefix(2) = 'profile_panels1_' + Profile_Panels_file_interval(2) = 1 - Text_Summary2_num_rows = 4 ! <= 20 - Text_Summary2_num_cols = 4 ! <= 20 - Text_Summary2_name(:,:) = '' - - Text_Summary2_name(1,1) = 'model_number' - Text_Summary2_name(2,1) = 'time_step_sec' - Text_Summary2_name(3,1) = 'log_rel_run_E_err' - Text_Summary2_name(4,1) = 'period' - Text_Summary2_name(5,1) = '' - - Text_Summary2_name(1,2) = 'v_surf_km_s' - Text_Summary2_name(2,2) = 'v_div_cs' - Text_Summary2_name(3,2) = 'radius' - Text_Summary2_name(4,2) = 'delta_R' - Text_Summary2_name(5,2) = '' - - Text_Summary2_name(1,3) = 'log_Teff' - Text_Summary2_name(2,3) = 'Teff' - Text_Summary2_name(3,3) = 'log_L' - Text_Summary2_name(4,3) = 'delta_logL' - Text_Summary2_name(5,3) = '' - - Text_Summary2_name(1,4) = 'num_zones' - Text_Summary2_name(2,4) = 'num_retries' - Text_Summary2_name(3,4) = 'num_periods' - Text_Summary2_name(4,4) = 'growth' - Text_Summary2_name(5,4) = '' + Text_Summary_num_rows(2) = 4 ! <= 20 + Text_Summary_num_cols(2) = 4 ! <= 20 + Text_Summary_name(2, :, :) = '' + + Text_Summary_name(2, 1, 1) = 'model_number' + Text_Summary_name(2, 2, 1) = 'time_step_sec' + Text_Summary_name(2, 3, 1) = 'log_rel_run_E_err' + Text_Summary_name(2, 4, 1) = 'period' + Text_Summary_name(2, 5, 1) = '' + + Text_Summary_name(2, 1, 2) = 'v_surf_km_s' + Text_Summary_name(2, 2, 2) = 'v_div_cs' + Text_Summary_name(2, 3, 2) = 'radius' + Text_Summary_name(2, 4, 2) = 'delta_R' + Text_Summary_name(2, 5, 2) = '' + + Text_Summary_name(2, 1, 3) = 'log_Teff' + Text_Summary_name(2, 2, 3) = 'Teff' + Text_Summary_name(2, 3, 3) = 'log_L' + Text_Summary_name(2, 4, 3) = 'delta_logL' + Text_Summary_name(2, 5, 3) = '' + + Text_Summary_name(2, 1, 4) = 'num_zones' + Text_Summary_name(2, 2, 4) = 'num_retries' + Text_Summary_name(2, 3, 4) = 'num_periods' + Text_Summary_name(2, 4, 4) = 'growth' + Text_Summary_name(2, 5, 4) = '' / ! end of pgstar namelist diff --git a/star/test_suite/rsp_RR_Lyrae/README.rst b/star/test_suite/rsp_RR_Lyrae/README.rst index 364a6c671..3c1cc1cd6 100644 --- a/star/test_suite/rsp_RR_Lyrae/README.rst +++ b/star/test_suite/rsp_RR_Lyrae/README.rst @@ -43,23 +43,23 @@ pgstar commands, in addition to those in ``inlist_rsp_pgstar_default``, used for pgstar_model_disp = 3.9 - History_Panels2_txt_scale = 0.7 - Profile_Panels2_txt_scale = 0.6 + History_Panels_txt_scale(2) = 0.7 + Profile_Panels_txt_scale(2) = 0.6 logL_R_txt_scale = 0.7 logL_v_txt_scale = 0.7 logL_Teff_txt_scale = 0.7 - Grid2_win_flag = .true. - Grid2_win_width = 12 - Grid2_title = 'rsp_RR_Lyrae' - Grid2_txt_scale_factor(:) = 1.0 - - Grid2_file_flag = .true. - Grid2_file_dir = 'pgstar_out' - Grid2_file_prefix = 'grid_' - Grid2_file_interval = 10000 - Grid2_file_width = -1 - Grid2_file_aspect_ratio = -1 + Grid_win_flag(2) = .true. + Grid_win_width(2) = 12 + Grid_title(2) = 'rsp_RR_Lyrae' + Grid_txt_scale_factor(2, :) = 1.0 + + Grid_file_flag(2) = .true. + Grid_file_dir(2) = 'pgstar_out' + Grid_file_prefix(2) = 'grid_' + Grid_file_interval(2) = 10000 + Grid_file_width(2) = -1 + Grid_file_aspect_ratio(2) = -1 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_RR_Lyrae/inlist_rsp_RR_Lyrae b/star/test_suite/rsp_RR_Lyrae/inlist_rsp_RR_Lyrae index 6a44674ab..4083336ef 100644 --- a/star/test_suite/rsp_RR_Lyrae/inlist_rsp_RR_Lyrae +++ b/star/test_suite/rsp_RR_Lyrae/inlist_rsp_RR_Lyrae @@ -94,28 +94,28 @@ pgstar_interval = 6 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_title = '0.65 M\d\(2281)\u Z=0.0004 RR Lyrae' + Grid_title(2) = '0.65 M\d\(2281)\u Z=0.0004 RR Lyrae' - History_Panels1_xaxis_name='star_age_day' - History_Panels1_max_width = 365 ! only used if > 0. causes xmin to move with xmax. + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 - !Profile_Panels1_show_grid = .true. + !Profile_Panels_show_grid(1) = .true. - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = -101D0 + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 + Profile_Panels_dymin(1, 4) = 0.02 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_RR_Lyrae/inlist_rsp_RR_Lyrae_make_cycle0 b/star/test_suite/rsp_RR_Lyrae/inlist_rsp_RR_Lyrae_make_cycle0 index 75240fd10..b5ecf5a9c 100644 --- a/star/test_suite/rsp_RR_Lyrae/inlist_rsp_RR_Lyrae_make_cycle0 +++ b/star/test_suite/rsp_RR_Lyrae/inlist_rsp_RR_Lyrae_make_cycle0 @@ -93,28 +93,28 @@ pgstar_interval = 6 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_title = '0.65 M\d\(2281)\u Z=0.0004 RR Lyrae' + Grid_title(2) = '0.65 M\d\(2281)\u Z=0.0004 RR Lyrae' - History_Panels1_xaxis_name='star_age_day' - History_Panels1_max_width = 365 ! only used if > 0. causes xmin to move with xmax. + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 - !Profile_Panels1_show_grid = .true. + !Profile_Panels_show_grid(1) = .true. - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = -101D0 + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 + Profile_Panels_dymin(1, 4) = 0.02 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_RR_Lyrae/inlist_rsp_RR_Lyrae_std b/star/test_suite/rsp_RR_Lyrae/inlist_rsp_RR_Lyrae_std index 6a44674ab..4083336ef 100644 --- a/star/test_suite/rsp_RR_Lyrae/inlist_rsp_RR_Lyrae_std +++ b/star/test_suite/rsp_RR_Lyrae/inlist_rsp_RR_Lyrae_std @@ -94,28 +94,28 @@ pgstar_interval = 6 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_title = '0.65 M\d\(2281)\u Z=0.0004 RR Lyrae' + Grid_title(2) = '0.65 M\d\(2281)\u Z=0.0004 RR Lyrae' - History_Panels1_xaxis_name='star_age_day' - History_Panels1_max_width = 365 ! only used if > 0. causes xmin to move with xmax. + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 - !Profile_Panels1_show_grid = .true. + !Profile_Panels_show_grid(1) = .true. - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = -101D0 + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 + Profile_Panels_dymin(1, 4) = 0.02 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_RR_Lyrae/inlist_rsp_RR_Lyrae_test_cycle0 b/star/test_suite/rsp_RR_Lyrae/inlist_rsp_RR_Lyrae_test_cycle0 index 8277edf0f..11369a11b 100644 --- a/star/test_suite/rsp_RR_Lyrae/inlist_rsp_RR_Lyrae_test_cycle0 +++ b/star/test_suite/rsp_RR_Lyrae/inlist_rsp_RR_Lyrae_test_cycle0 @@ -92,28 +92,28 @@ pgstar_interval = 25 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_title = '0.65 M\d\(2281)\u Z=0.0004 RR Lyrae' + Grid_title(2) = '0.65 M\d\(2281)\u Z=0.0004 RR Lyrae' - History_Panels1_xaxis_name='star_age_day' - History_Panels1_max_width = 365 ! only used if > 0. causes xmin to move with xmax. + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 - !Profile_Panels1_show_grid = .true. + !Profile_Panels_show_grid(1) = .true. - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = -101D0 + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 + Profile_Panels_dymin(1, 4) = 0.02 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_RR_Lyrae/inlist_rsp_pgstar_default b/star/test_suite/rsp_RR_Lyrae/inlist_rsp_pgstar_default index 5b4b8c027..480a7c942 100644 --- a/star/test_suite/rsp_RR_Lyrae/inlist_rsp_pgstar_default +++ b/star/test_suite/rsp_RR_Lyrae/inlist_rsp_pgstar_default @@ -10,213 +10,213 @@ pgstar_right_yaxis_label_disp = 4.4 - Grid2_win_width = 8 - Grid2_win_aspect_ratio = 1.2 ! aspect_ratio = height/width - Grid2_num_cols = 3 ! divide plotting region into this many equal width cols - Grid2_num_rows = 8 ! divide plotting region into this many equal height rows - Grid2_num_plots = 6 ! <= 10 - - Grid2_plot_name(1) = 'Profile_Panels2' - Grid2_plot_row(1) = 1 ! number from 1 at top - Grid2_plot_rowspan(1) = 3 ! plot spans this number of rows - Grid2_plot_col(1) = 1 ! number from 1 at left - Grid2_plot_colspan(1) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(1) = -0.02 ! fraction of full window width for padding on left - Grid2_plot_pad_right(1) = 0.12 ! fraction of full window width for padding on right - Grid2_plot_pad_top(1) = -0.02 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(1) = -0.14 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(1) = 0.7 ! multiply txt_scale for subplot by this - - Grid2_plot_name(2) = 'History_Panels2' - Grid2_plot_row(2) = 4 ! number from 1 at top - Grid2_plot_rowspan(2) = 3 ! plot spans this number of rows - Grid2_plot_col(2) = 1 ! number from 1 at left - Grid2_plot_colspan(2) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(2) = -0.02 ! fraction of full window width for padding on left - Grid2_plot_pad_right(2) = 0.12 ! fraction of full window width for padding on right - Grid2_plot_pad_top(2) = 0.19 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(2) = -0.06 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this - - Grid2_plot_name(3) = 'Text_Summary2' - Grid2_plot_row(3) = 7 ! number from 1 at top - Grid2_plot_rowspan(3) = 2 ! plot spans this number of rows - Grid2_plot_col(3) = 1 ! number from 1 at left - Grid2_plot_colspan(3) = 3 ! plot spans this number of columns - Grid2_plot_pad_left(3) = -0.08 ! fraction of full window width for padding on left - Grid2_plot_pad_right(3) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(3) = 0.12 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(3) = -0.04 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(3) = 0.17 ! multiply txt_scale for subplot by this - - Grid2_plot_name(6) = 'logL_Teff' - Grid2_plot_row(6) = 1 ! number from 1 at top - Grid2_plot_rowspan(6) = 2 ! plot spans this number of rows - Grid2_plot_col(6) = 3 ! number from 1 at left - Grid2_plot_colspan(6) = 1 ! plot spans this number of columns - Grid2_plot_pad_left(6) = 0.04 ! fraction of full window width for padding on left - Grid2_plot_pad_right(6) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(6) = -0.02 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(6) = 0.02 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(6) = 0.6 ! multiply txt_scale for subplot by this + Grid_win_width(2) = 8 + Grid_win_aspect_ratio(2) = 1.2 ! aspect_ratio = height/width + Grid_num_cols(2) = 3 ! divide plotting region into this many equal width cols + Grid_num_rows(2) = 8 ! divide plotting region into this many equal height rows + Grid_num_plots(2) = 6 ! <= 10 + + Grid_plot_name(2, 1) = 'Profile_Panels2' + Grid_plot_row(2, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 1) = 3 ! plot spans this number of rows + Grid_plot_col(2, 1) = 1 ! number from 1 at left + Grid_plot_colspan(2, 1) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 1) = -0.02 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 1) = 0.12 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 1) = -0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 1) = -0.14 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 1) = 0.7 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 2) = 'History_Panels2' + Grid_plot_row(2, 2) = 4 ! number from 1 at top + Grid_plot_rowspan(2, 2) = 3 ! plot spans this number of rows + Grid_plot_col(2, 2) = 1 ! number from 1 at left + Grid_plot_colspan(2, 2) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 2) = -0.02 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 2) = 0.12 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 2) = 0.19 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 2) = -0.06 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 2) = 0.7 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 3) = 'Text_Summary2' + Grid_plot_row(2, 3) = 7 ! number from 1 at top + Grid_plot_rowspan(2, 3) = 2 ! plot spans this number of rows + Grid_plot_col(2, 3) = 1 ! number from 1 at left + Grid_plot_colspan(2, 3) = 3 ! plot spans this number of columns + Grid_plot_pad_left(2, 3) = -0.08 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 3) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 3) = 0.12 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 3) = -0.04 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 3) = 0.17 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 6) = 'logL_Teff' + Grid_plot_row(2, 6) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 6) = 2 ! plot spans this number of rows + Grid_plot_col(2, 6) = 3 ! number from 1 at left + Grid_plot_colspan(2, 6) = 1 ! plot spans this number of columns + Grid_plot_pad_left(2, 6) = 0.04 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 6) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 6) = -0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 6) = 0.02 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 6) = 0.6 ! multiply txt_scale for subplot by this logL_Teff_title = '' - Grid2_plot_name(5) = 'logL_v' - Grid2_plot_row(5) = 3 ! number from 1 at top - Grid2_plot_rowspan(5) = 2 ! plot spans this number of rows - Grid2_plot_col(5) = 3 ! number from 1 at left - Grid2_plot_colspan(5) = 1 ! plot spans this number of columns - Grid2_plot_pad_left(5) = 0.04 ! fraction of full window width for padding on left - Grid2_plot_pad_right(5) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(5) = 0.02 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(5) = -0.02 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(5) = 0.6 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 5) = 'logL_v' + Grid_plot_row(2, 5) = 3 ! number from 1 at top + Grid_plot_rowspan(2, 5) = 2 ! plot spans this number of rows + Grid_plot_col(2, 5) = 3 ! number from 1 at left + Grid_plot_colspan(2, 5) = 1 ! plot spans this number of columns + Grid_plot_pad_left(2, 5) = 0.04 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 5) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 5) = 0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 5) = -0.02 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 5) = 0.6 ! multiply txt_scale for subplot by this logL_v_title = '' - Grid2_plot_name(4) = 'logL_R' - Grid2_plot_row(4) = 5 ! number from 1 at top - Grid2_plot_rowspan(4) = 2 ! plot spans this number of rows - Grid2_plot_col(4) = 3 ! number from 1 at left - Grid2_plot_colspan(4) = 1 ! plot spans this number of columns - Grid2_plot_pad_left(4) = 0.04 ! fraction of full window width for padding on left - Grid2_plot_pad_right(4) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(4) = 0.06 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(4) = -0.06 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(4) = 0.6 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 4) = 'logL_R' + Grid_plot_row(2, 4) = 5 ! number from 1 at top + Grid_plot_rowspan(2, 4) = 2 ! plot spans this number of rows + Grid_plot_col(2, 4) = 3 ! number from 1 at left + Grid_plot_colspan(2, 4) = 1 ! plot spans this number of columns + Grid_plot_pad_left(2, 4) = 0.04 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 4) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 4) = 0.06 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 4) = -0.06 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 4) = 0.6 ! multiply txt_scale for subplot by this logL_R_title = '' - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid2' - Grid2_file_interval = 10 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid2' + Grid_file_interval(2) = 10 ! output when mod(model_number,Grid_file_interval(2))==0 - History_Panels2_title = '' - History_Panels2_num_panels = 2 + History_Panels_title(2) = '' + History_Panels_num_panels(2) = 2 - !History_Panels2_xaxis_name='model_number' - History_Panels2_xaxis_name='day' - History_Panels2_max_width = 40 ! 200 ! only used if > 0. causes xmin to move with xmax. - - History_Panels2_yaxis_name(1) = 'Teff' - History_Panels2_yaxis_reversed(1) = .false. - History_Panels2_ymin(1) = -101d0 ! only used if /= -101d0 - History_Panels2_ymax(1) = -101d0 ! only used if /= -101d0 - History_Panels2_dymin(1) = -1 - - History_Panels2_other_yaxis_name(1) = 'log_L' - History_Panels2_other_yaxis_reversed(1) = .false. - History_Panels2_other_ymin(1) = -101d0 ! only used if /= -101d0 - History_Panels2_other_ymax(1) = -101d0 ! only used if /= -101d0 - History_Panels2_other_dymin(1) = -1 - - History_Panels2_yaxis_name(2) = 'radius' ! 'star_mass' - History_Panels2_yaxis_reversed(2) = .false. - History_Panels2_ymin(2) = -101d0 ! only used if /= -101d0 - History_Panels2_ymax(2) = -101d0 ! only used if /= -101d0 - History_Panels2_dymin(2) = -1 - - History_Panels2_other_yaxis_name(2) = 'v_surf_km_s' - History_Panels2_other_yaxis_reversed(2) = .false. - History_Panels2_other_ymin(2) = -101d0 ! only used if /= -101d0 - History_Panels2_other_ymax(2) = -101d0 ! only used if /= -101d0 - History_Panels2_other_dymin(2) = -1 - - History_Panels2_yaxis_name(3) = 'r_center' ! 'star_mass' - History_Panels2_yaxis_reversed(3) = .false. - History_Panels2_ymin(3) = -101d0 ! only used if /= -101d0 - History_Panels2_ymax(3) = -101d0 ! only used if /= -101d0 - History_Panels2_dymin(3) = -1 - - History_Panels2_other_yaxis_name(3) = 'v_center' - History_Panels2_other_yaxis_reversed(3) = .false. - History_Panels2_other_ymin(3) = -101d0 ! only used if /= -101d0 - History_Panels2_other_ymax(3) = -101d0 ! only used if /= -101d0 - History_Panels2_other_dymin(3) = -1 + !History_Panels_xaxis_name(2) ='model_number' + History_Panels_xaxis_name(2) ='day' + History_Panels_max_width(2) = 40 ! 200 ! only used if > 0. causes xmin to move with xmax. + + History_Panels_yaxis_name(2, 1) = 'Teff' + History_Panels_yaxis_reversed(2, 1) = .false. + History_Panels_ymin(2, 1) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(2, 1) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(2, 1) = -1 + + History_Panels_other_yaxis_name(2, 1) = 'log_L' + History_Panels_other_yaxis_reversed(2, 1) = .false. + History_Panels_other_ymin(2, 1) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(2, 1) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(2, 1) = -1 + + History_Panels_yaxis_name(2, 2) = 'radius' ! 'star_mass' + History_Panels_yaxis_reversed(2, 2) = .false. + History_Panels_ymin(2, 2) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(2, 2) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(2, 2) = -1 + + History_Panels_other_yaxis_name(2, 2) = 'v_surf_km_s' + History_Panels_other_yaxis_reversed(2, 2) = .false. + History_Panels_other_ymin(2, 2) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(2, 2) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(2, 2) = -1 + + History_Panels_yaxis_name(2, 3) = 'r_center' ! 'star_mass' + History_Panels_yaxis_reversed(2, 3) = .false. + History_Panels_ymin(2, 3) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(2, 3) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(2, 3) = -1 + + History_Panels_other_yaxis_name(2, 3) = 'v_center' + History_Panels_other_yaxis_reversed(2, 3) = .false. + History_Panels_other_ymin(2, 3) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(2, 3) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(2, 3) = -1 - Profile_Panels2_win_flag = .false. - Profile_Panels2_title = '' + Profile_Panels_win_flag(2) = .false. + Profile_Panels_title(2) = '' - Profile_Panels2_xaxis_name = 'logtau' - Profile_Panels2_xaxis_reversed = .true. - Profile_Panels2_xmin = -101D0 - Profile_Panels2_xmax = 6.0 ! -101D0 - Profile_Panels2_show_mix_regions_on_xaxis = .true. - !Profile_Panels2_show_grid = .true. + Profile_Panels_xaxis_name(2) = 'logtau' + Profile_Panels_xaxis_reversed(2) = .true. + Profile_Panels_xmin(2) = -101D0 + Profile_Panels_xmax(2) = 6.0 ! -101D0 + Profile_Panels_show_mix_regions_on_xaxis(2) = .true. + !Profile_Panels_show_grid(2) = .true. - Profile_Panels2_num_panels = 5 + Profile_Panels_num_panels(2) = 5 - Profile_Panels2_yaxis_name(1) = 'v_div_cs' - Profile_Panels2_ymax(1) = -101D0 ! 1 - Profile_Panels2_ymin(1) = -101D0 ! -1 - Profile_Panels2_dymin(1) = 0.1 - Profile_Panels2_other_yaxis_name(1) = 'vel_km_per_s' - Profile_Panels2_other_ymax(1) = -101D0 ! 2e6 - Profile_Panels2_other_ymin(1) = -101D0 ! -2e6 - Profile_Panels2_other_dymin(1) = 0.1 + Profile_Panels_yaxis_name(2, 1) = 'v_div_cs' + Profile_Panels_ymax(2, 1) = -101D0 ! 1 + Profile_Panels_ymin(2, 1) = -101D0 ! -1 + Profile_Panels_dymin(2, 1) = 0.1 + Profile_Panels_other_yaxis_name(2, 1) = 'vel_km_per_s' + Profile_Panels_other_ymax(2, 1) = -101D0 ! 2e6 + Profile_Panels_other_ymin(2, 1) = -101D0 ! -2e6 + Profile_Panels_other_dymin(2, 1) = 0.1 - Profile_Panels2_yaxis_name(2) = 'lum_div_Ledd' - Profile_Panels2_ymax(2) = -101D0 ! 3.7 - Profile_Panels2_ymin(2) = -101D0 ! 3.1 - Profile_Panels2_dymin(2) = 0.02 - Profile_Panels2_other_yaxis_name(2) = 'logL' - Profile_Panels2_other_ymax(2) = -101D0 ! - Profile_Panels2_other_ymin(2) = -101D0 ! + Profile_Panels_yaxis_name(2, 2) = 'lum_div_Ledd' + Profile_Panels_ymax(2, 2) = -101D0 ! 3.7 + Profile_Panels_ymin(2, 2) = -101D0 ! 3.1 + Profile_Panels_dymin(2, 2) = 0.02 + Profile_Panels_other_yaxis_name(2, 2) = 'logL' + Profile_Panels_other_ymax(2, 2) = -101D0 ! + Profile_Panels_other_ymin(2, 2) = -101D0 ! - Profile_Panels2_yaxis_name(3) = 'logtau' - Profile_Panels2_other_yaxis_name(3) = 'opacity' + Profile_Panels_yaxis_name(2, 3) = 'logtau' + Profile_Panels_other_yaxis_name(2, 3) = 'opacity' - Profile_Panels2_yaxis_name(4) = 'Lc_div_L' - Profile_Panels2_ymax(4) = -101D0 - Profile_Panels2_ymin(4) = -101D0 - Profile_Panels2_other_yaxis_name(4) = 'mixing_type' - Profile_Panels2_other_ymax(4) = -101D0 ! - Profile_Panels2_other_ymin(4) = -101D0 ! - - Profile_Panels2_yaxis_name(5) = 'logT' - Profile_Panels2_other_yaxis_name(5) = 'free_e' + Profile_Panels_yaxis_name(2, 4) = 'Lc_div_L' + Profile_Panels_ymax(2, 4) = -101D0 + Profile_Panels_ymin(2, 4) = -101D0 + Profile_Panels_other_yaxis_name(2, 4) = 'mixing_type' + Profile_Panels_other_ymax(2, 4) = -101D0 ! + Profile_Panels_other_ymin(2, 4) = -101D0 ! + + Profile_Panels_yaxis_name(2, 5) = 'logT' + Profile_Panels_other_yaxis_name(2, 5) = 'free_e' - Profile_Panels2_yaxis_name(6) = 'log_dt_div_tau_conv' - Profile_Panels2_ymax(6) = -101D0 ! - Profile_Panels2_ymin(6) = -101D0 ! - Profile_Panels2_other_yaxis_name(6) = '' - Profile_Panels2_other_ymax(6) = 1d-3 - Profile_Panels2_other_ymin(6) = -1d-3 + Profile_Panels_yaxis_name(2, 6) = 'log_dt_div_tau_conv' + Profile_Panels_ymax(2, 6) = -101D0 ! + Profile_Panels_ymin(2, 6) = -101D0 ! + Profile_Panels_other_yaxis_name(2, 6) = '' + Profile_Panels_other_ymax(2, 6) = 1d-3 + Profile_Panels_other_ymin(2, 6) = -1d-3 - Profile_Panels2_file_flag = .false. - Profile_Panels2_file_dir = 'png' - Profile_Panels2_file_prefix = 'profile_panels1_' - Profile_Panels2_file_interval = 1 + Profile_Panels_file_flag(2) = .false. + Profile_Panels_file_dir(2) = 'png' + Profile_Panels_file_prefix(2) = 'profile_panels1_' + Profile_Panels_file_interval(2) = 1 - Text_Summary2_num_rows = 4 ! <= 20 - Text_Summary2_num_cols = 4 ! <= 20 - Text_Summary2_name(:,:) = '' - - Text_Summary2_name(1,1) = 'model_number' - Text_Summary2_name(2,1) = 'time_step_sec' - Text_Summary2_name(3,1) = 'log_rel_run_E_err' - Text_Summary2_name(4,1) = 'period' - Text_Summary2_name(5,1) = '' - - Text_Summary2_name(1,2) = 'v_surf_km_s' - Text_Summary2_name(2,2) = 'v_div_cs' - Text_Summary2_name(3,2) = 'radius' - Text_Summary2_name(4,2) = 'delta_R' - Text_Summary2_name(5,2) = '' - - Text_Summary2_name(1,3) = 'log_Teff' - Text_Summary2_name(2,3) = 'Teff' - Text_Summary2_name(3,3) = 'log_L' - Text_Summary2_name(4,3) = 'delta_logL' - Text_Summary2_name(5,3) = '' - - Text_Summary2_name(1,4) = 'num_zones' - Text_Summary2_name(2,4) = 'num_retries' - Text_Summary2_name(3,4) = 'num_periods' - Text_Summary2_name(4,4) = 'growth' - Text_Summary2_name(5,4) = '' + Text_Summary_num_rows(2) = 4 ! <= 20 + Text_Summary_num_cols(2) = 4 ! <= 20 + Text_Summary_name(2, :, :) = '' + + Text_Summary_name(2, 1, 1) = 'model_number' + Text_Summary_name(2, 2, 1) = 'time_step_sec' + Text_Summary_name(2, 3, 1) = 'log_rel_run_E_err' + Text_Summary_name(2, 4, 1) = 'period' + Text_Summary_name(2, 5, 1) = '' + + Text_Summary_name(2, 1, 2) = 'v_surf_km_s' + Text_Summary_name(2, 2, 2) = 'v_div_cs' + Text_Summary_name(2, 3, 2) = 'radius' + Text_Summary_name(2, 4, 2) = 'delta_R' + Text_Summary_name(2, 5, 2) = '' + + Text_Summary_name(2, 1, 3) = 'log_Teff' + Text_Summary_name(2, 2, 3) = 'Teff' + Text_Summary_name(2, 3, 3) = 'log_L' + Text_Summary_name(2, 4, 3) = 'delta_logL' + Text_Summary_name(2, 5, 3) = '' + + Text_Summary_name(2, 1, 4) = 'num_zones' + Text_Summary_name(2, 2, 4) = 'num_retries' + Text_Summary_name(2, 3, 4) = 'num_periods' + Text_Summary_name(2, 4, 4) = 'growth' + Text_Summary_name(2, 5, 4) = '' / ! end of pgstar namelist diff --git a/star/test_suite/rsp_Type_II_Cepheid/README.rst b/star/test_suite/rsp_Type_II_Cepheid/README.rst index c60026c25..6ebfbf207 100644 --- a/star/test_suite/rsp_Type_II_Cepheid/README.rst +++ b/star/test_suite/rsp_Type_II_Cepheid/README.rst @@ -43,23 +43,23 @@ pgstar commands, in addition to those in ``inlist_rsp_pgstar_default`` which cur pgstar_model_disp = 3.9 - History_Panels2_txt_scale = 0.7 - Profile_Panels2_txt_scale = 0.6 + History_Panels_txt_scale(2) = 0.7 + Profile_Panels_txt_scale(2) = 0.6 logL_R_txt_scale = 0.7 logL_v_txt_scale = 0.7 logL_Teff_txt_scale = 0.7 - Grid2_win_flag = .true. - Grid2_win_width = 12 - Grid2_title = 'rsp_Type_II_Cepheid' - Grid2_txt_scale_factor(:) = 1.0 - - Grid2_file_flag = .true. - Grid2_file_dir = 'pgstar_out' - Grid2_file_prefix = 'grid_' - Grid2_file_interval = 10000 - Grid2_file_width = -1 - Grid2_file_aspect_ratio = -1 + Grid_win_flag(2) = .true. + Grid_win_width(2) = 12 + Grid_title(2) = 'rsp_Type_II_Cepheid' + Grid_txt_scale_factor(2, :) = 1.0 + + Grid_file_flag(2) = .true. + Grid_file_dir(2) = 'pgstar_out' + Grid_file_prefix(2) = 'grid_' + Grid_file_interval(2) = 10000 + Grid_file_width(2) = -1 + Grid_file_aspect_ratio(2) = -1 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_Type_II_Cepheid/inlist_rsp_Type_II_Cepheid b/star/test_suite/rsp_Type_II_Cepheid/inlist_rsp_Type_II_Cepheid index 797fa9a3f..e39930992 100644 --- a/star/test_suite/rsp_Type_II_Cepheid/inlist_rsp_Type_II_Cepheid +++ b/star/test_suite/rsp_Type_II_Cepheid/inlist_rsp_Type_II_Cepheid @@ -121,28 +121,28 @@ pgstar_interval = 6 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_title = '0.55 M\d\(2281)\u Z=0.0001 Type II Cepheid' + Grid_title(2) = '0.55 M\d\(2281)\u Z=0.0001 Type II Cepheid' - History_Panels1_xaxis_name='star_age_day' - History_Panels1_max_width = 365 ! only used if > 0. causes xmin to move with xmax. + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 - !Profile_Panels1_show_grid = .true. + !Profile_Panels_show_grid(1) = .true. - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = -101D0 + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 + Profile_Panels_dymin(1, 4) = 0.02 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_Type_II_Cepheid/inlist_rsp_Type_II_Cepheid_make_cycle0 b/star/test_suite/rsp_Type_II_Cepheid/inlist_rsp_Type_II_Cepheid_make_cycle0 index b84c33224..636f2b641 100644 --- a/star/test_suite/rsp_Type_II_Cepheid/inlist_rsp_Type_II_Cepheid_make_cycle0 +++ b/star/test_suite/rsp_Type_II_Cepheid/inlist_rsp_Type_II_Cepheid_make_cycle0 @@ -120,28 +120,28 @@ pgstar_interval = 6 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_title = '0.55 M\d\(2281)\u Z=0.0001 Type II Cepheid' + Grid_title(2) = '0.55 M\d\(2281)\u Z=0.0001 Type II Cepheid' - History_Panels1_xaxis_name='star_age_day' - History_Panels1_max_width = 365 ! only used if > 0. causes xmin to move with xmax. + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 - !Profile_Panels1_show_grid = .true. + !Profile_Panels_show_grid(1) = .true. - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = -101D0 + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 + Profile_Panels_dymin(1, 4) = 0.02 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_Type_II_Cepheid/inlist_rsp_Type_II_Cepheid_std b/star/test_suite/rsp_Type_II_Cepheid/inlist_rsp_Type_II_Cepheid_std index 797fa9a3f..e39930992 100644 --- a/star/test_suite/rsp_Type_II_Cepheid/inlist_rsp_Type_II_Cepheid_std +++ b/star/test_suite/rsp_Type_II_Cepheid/inlist_rsp_Type_II_Cepheid_std @@ -121,28 +121,28 @@ pgstar_interval = 6 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_title = '0.55 M\d\(2281)\u Z=0.0001 Type II Cepheid' + Grid_title(2) = '0.55 M\d\(2281)\u Z=0.0001 Type II Cepheid' - History_Panels1_xaxis_name='star_age_day' - History_Panels1_max_width = 365 ! only used if > 0. causes xmin to move with xmax. + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 - !Profile_Panels1_show_grid = .true. + !Profile_Panels_show_grid(1) = .true. - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = -101D0 + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 + Profile_Panels_dymin(1, 4) = 0.02 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_Type_II_Cepheid/inlist_rsp_Type_II_Cepheid_test_cycle0 b/star/test_suite/rsp_Type_II_Cepheid/inlist_rsp_Type_II_Cepheid_test_cycle0 index dbdf2738e..04bfdee31 100644 --- a/star/test_suite/rsp_Type_II_Cepheid/inlist_rsp_Type_II_Cepheid_test_cycle0 +++ b/star/test_suite/rsp_Type_II_Cepheid/inlist_rsp_Type_II_Cepheid_test_cycle0 @@ -106,28 +106,28 @@ pgstar_interval = 25 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_title = '0.55 M\d\(2281)\u Z=0.0001 Type II Cepheid' + Grid_title(2) = '0.55 M\d\(2281)\u Z=0.0001 Type II Cepheid' - History_Panels1_xaxis_name='star_age_day' - History_Panels1_max_width = 365 ! only used if > 0. causes xmin to move with xmax. + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 - !Profile_Panels1_show_grid = .true. + !Profile_Panels_show_grid(1) = .true. - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = -101D0 + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 + Profile_Panels_dymin(1, 4) = 0.02 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_check_2nd_crossing/inlist_rsp_check_2nd_crossing b/star/test_suite/rsp_check_2nd_crossing/inlist_rsp_check_2nd_crossing index 4a08893e7..9622c1ced 100644 --- a/star/test_suite/rsp_check_2nd_crossing/inlist_rsp_check_2nd_crossing +++ b/star/test_suite/rsp_check_2nd_crossing/inlist_rsp_check_2nd_crossing @@ -136,249 +136,249 @@ pgstar_interval = 5 pause = .false. - Grid1_win_flag = .true. - - Grid1_win_width = 12 - Grid1_win_aspect_ratio = 0.75 ! aspect_ratio = height/width - - Grid1_xleft = 0.12 ! fraction of full window width for margin on left - Grid1_xright = 0.95 ! fraction of full window width for margin on right - Grid1_ybot = 0.08 ! fraction of full window width for margin on bottom - Grid1_ytop = 0.92 ! fraction of full window width for margin on top - - Grid1_plot_name(:) = '' - Grid1_plot_row(:) = 1 ! number from 1 at top - Grid1_plot_rowspan(:) = 1 ! plot spans this number of rows - Grid1_plot_col(:) = 1 ! number from 1 at left - Grid1_plot_colspan(:) = 1 ! plot spans this number of columns - Grid1_plot_pad_left(:) = 0.0 ! fraction of full window width for padding on left - Grid1_plot_pad_right(:) = 0.0 ! fraction of full window width for padding on right - Grid1_plot_pad_top(:) = 0.0 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(:) = 0.0 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(:) = 0.7 ! multiply txt_scale for subplot by this + Grid_win_flag(1) = .true. + + Grid_win_width(1) = 12 + Grid_win_aspect_ratio(1) = 0.75 ! aspect_ratio = height/width + + Grid_xleft(1) = 0.12 ! fraction of full window width for margin on left + Grid_xright(1) = 0.95 ! fraction of full window width for margin on right + Grid_ybot(1) = 0.08 ! fraction of full window width for margin on bottom + Grid_ytop(1) = 0.92 ! fraction of full window width for margin on top + + Grid_plot_name(1, :) = '' + Grid_plot_row(1, :) = 1 ! number from 1 at top + Grid_plot_rowspan(1, :) = 1 ! plot spans this number of rows + Grid_plot_col(1, :) = 1 ! number from 1 at left + Grid_plot_colspan(1, :) = 1 ! plot spans this number of columns + Grid_plot_pad_left(1, :) = 0.0 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, :) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, :) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, :) = 0.0 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, :) = 0.7 ! multiply txt_scale for subplot by this ! set default - Grid1_num_cols = 2 ! divide plotting region into this many equal width cols - Grid1_num_rows = 3 ! divide plotting region into this many equal height rows - Grid1_num_plots = 2 ! <= 10 - - Grid1_plot_name(:) = '' - Grid1_plot_row(:) = 1 ! number from 1 at top - Grid1_plot_rowspan(:) = 1 ! plot spans this number of rows - Grid1_plot_col(:) = 1 ! number from 1 at left - Grid1_plot_colspan(:) = 1 ! plot spans this number of columns - Grid1_plot_pad_left(:) = 0.03 ! fraction of full window width for padding on left - Grid1_plot_pad_right(:) = 0.03 ! fraction of full window width for padding on right - Grid1_plot_pad_top(:) = 0.03 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(:) = 0.03 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(:) = 0.7 ! multiply txt_scale for subplot by this - - - Grid1_plot_name(1) = 'Profile_Panels1' - Grid1_plot_row(1) = 1 ! number from 1 at top - Grid1_plot_rowspan(1) = 3 ! plot spans this number of rows - Grid1_plot_col(1) = 1 ! number from 1 at left - Grid1_plot_colspan(1) = 1 ! plot spans this number of columns - Grid1_plot_pad_left(1) = -0.025 ! fraction of full window width for padding on left - Grid1_plot_pad_right(1) = 0.1 ! fraction of full window width for padding on right - Grid1_plot_pad_top(1) = 0.0 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(1) = 0.05 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(1) = 0.6 ! multiply txt_scale for subplot by this - - Grid1_plot_name(2) = 'History_Panels1' - Grid1_plot_row(2) = 1 ! number from 1 at top - Grid1_plot_rowspan(2) = 3 ! plot spans this number of rows - Grid1_plot_col(2) = 2 ! number from 1 at left - Grid1_plot_colspan(2) = 1 ! plot spans this number of columns - Grid1_plot_pad_left(2) = 0.05 ! fraction of full window width for padding on left - Grid1_plot_pad_right(2) = 0.025 ! fraction of full window width for padding on right - Grid1_plot_pad_top(2) = 0.0 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(2) = 0.05 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(2) = 0.65 ! multiply txt_scale for subplot by this + Grid_num_cols(1) = 2 ! divide plotting region into this many equal width cols + Grid_num_rows(1) = 3 ! divide plotting region into this many equal height rows + Grid_num_plots(1) = 2 ! <= 10 + + Grid_plot_name(1, :) = '' + Grid_plot_row(1, :) = 1 ! number from 1 at top + Grid_plot_rowspan(1, :) = 1 ! plot spans this number of rows + Grid_plot_col(1, :) = 1 ! number from 1 at left + Grid_plot_colspan(1, :) = 1 ! plot spans this number of columns + Grid_plot_pad_left(1, :) = 0.03 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, :) = 0.03 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, :) = 0.03 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, :) = 0.03 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, :) = 0.7 ! multiply txt_scale for subplot by this + + + Grid_plot_name(1, 1) = 'Profile_Panels1' + Grid_plot_row(1, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(1, 1) = 3 ! plot spans this number of rows + Grid_plot_col(1, 1) = 1 ! number from 1 at left + Grid_plot_colspan(1, 1) = 1 ! plot spans this number of columns + Grid_plot_pad_left(1, 1) = -0.025 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 1) = 0.1 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 1) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 1) = 0.05 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 1) = 0.6 ! multiply txt_scale for subplot by this + + Grid_plot_name(1, 2) = 'History_Panels1' + Grid_plot_row(1, 2) = 1 ! number from 1 at top + Grid_plot_rowspan(1, 2) = 3 ! plot spans this number of rows + Grid_plot_col(1, 2) = 2 ! number from 1 at left + Grid_plot_colspan(1, 2) = 1 ! plot spans this number of columns + Grid_plot_pad_left(1, 2) = 0.05 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 2) = 0.025 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 2) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 2) = 0.05 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 2) = 0.65 ! multiply txt_scale for subplot by this ! file output - Grid1_file_flag = .false. - Grid1_file_dir = 'png' - Grid1_file_prefix = 'grid1' - Grid1_file_interval = 5 ! output when mod(model_number,Grid1_file_interval)==0 - Grid1_file_width = 9 ! negative means use same value as for window - Grid1_file_aspect_ratio = -1 ! negative means use same value as for window - - - - Profile_Panels1_win_flag = .false. - - Profile_Panels1_win_width = 6 - Profile_Panels1_win_aspect_ratio = 1.5 ! aspect_ratio = height/width - - Profile_Panels1_xleft = 0.15 - Profile_Panels1_xright = 0.85 - Profile_Panels1_ybot = 0.15 - Profile_Panels1_ytop = 0.85 - Profile_Panels1_txt_scale = 1.0 - Profile_Panels1_title = 'Profile Panels1' - - Profile_Panels1_xaxis_name = 'radius_cm' - Profile_Panels1_xaxis_reversed = .false. - Profile_Panels1_xmin = -101d0 ! only used if /= -101d0 - Profile_Panels1_xmax = -101d0 ! only used if /= -101d0 - Profile_Panels1_xmargin = 0d0 - Profile_Panels1_show_mix_regions_on_xaxis = .false. - - Profile_Panels1_yaxis_name(:) = '' - Profile_Panels1_yaxis_reversed(:) = .false. - Profile_Panels1_yaxis_log(:) = .false. ! show log10 of abs value - Profile_Panels1_ymin(:) = -101d0 ! only used if /= -101d0 - Profile_Panels1_ymax(:) = -101d0 ! only used if /= -101d0 - Profile_Panels1_ycenter(:) = -101d0 ! only used if /= -101d0 - Profile_Panels1_ymargin(:) = 0.1 - Profile_Panels1_dymin(:) = -1 - - Profile_Panels1_other_yaxis_name(:) = '' - Profile_Panels1_other_yaxis_reversed(:) = .false. - Profile_Panels1_other_yaxis_log(:) = .false. ! show log10 of abs value - Profile_Panels1_other_ymin(:) = -101d0 ! only used if /= -101d0 - Profile_Panels1_other_ymax(:) = -101d0 ! only used if /= -101d0 - Profile_Panels1_other_ycenter(:) = -101d0 ! only used if /= -101d0 - Profile_Panels1_other_ymargin(:) = 0.1 - Profile_Panels1_other_dymin(:) = -1 - - Profile_Panels1_show_grid = .false. + Grid_file_flag(1) = .false. + Grid_file_dir(1) = 'png' + Grid_file_prefix(1) = 'grid1' + Grid_file_interval(1) = 5 ! output when mod(model_number,Grid_file_interval(1))==0 + Grid_file_width(1) = 9 ! negative means use same value as for window + Grid_file_aspect_ratio(1) = -1 ! negative means use same value as for window + + + + Profile_Panels_win_flag(1) = .false. + + Profile_Panels_win_width(1) = 6 + Profile_Panels_win_aspect_ratio = 1.5 ! aspect_ratio(1) = height/width + + Profile_Panels_xleft(1) = 0.15 + Profile_Panels_xright(1) = 0.85 + Profile_Panels_ybot(1) = 0.15 + Profile_Panels_ytop(1) = 0.85 + Profile_Panels_txt_scale(1) = 1.0 + Profile_Panels_title(1) = 'Profile Panels1' + + Profile_Panels_xaxis_name(1) = 'radius_cm' + Profile_Panels_xaxis_reversed(1) = .false. + Profile_Panels_xmin(1) = -101d0 ! only used if /= -101d0 + Profile_Panels_xmax(1) = -101d0 ! only used if /= -101d0 + Profile_Panels_xmargin(1) = 0d0 + Profile_Panels_show_mix_regions_on_xaxis(1) = .false. + + Profile_Panels_yaxis_name(1, :) = '' + Profile_Panels_yaxis_reversed(1, :) = .false. + Profile_Panels_yaxis_log(1, :) = .false. ! show log10 of abs value + Profile_Panels_ymin(1, :) = -101d0 ! only used if /= -101d0 + Profile_Panels_ymax(1, :) = -101d0 ! only used if /= -101d0 + Profile_Panels_ycenter(1, :) = -101d0 ! only used if /= -101d0 + Profile_Panels_ymargin(1, :) = 0.1 + Profile_Panels_dymin(1, :) = -1 + + Profile_Panels_other_yaxis_name(1, :) = '' + Profile_Panels_other_yaxis_reversed(1, :) = .false. + Profile_Panels_other_yaxis_log(1, :) = .false. ! show log10 of abs value + Profile_Panels_other_ymin(1, :) = -101d0 ! only used if /= -101d0 + Profile_Panels_other_ymax(1, :) = -101d0 ! only used if /= -101d0 + Profile_Panels_other_ycenter(1, :) = -101d0 ! only used if /= -101d0 + Profile_Panels_other_ymargin(1, :) = 0.1 + Profile_Panels_other_dymin(1, :) = -1 + + Profile_Panels_show_grid(1) = .false. ! setup default plot - Profile_Panels1_num_panels = 4 + Profile_Panels_num_panels(1) = 4 - Profile_Panels1_yaxis_name(1) = 'density' - Profile_Panels1_other_yaxis_name(1) = '' + Profile_Panels_yaxis_name(1, 1) = 'density' + Profile_Panels_other_yaxis_name(1, 1) = '' - Profile_Panels1_ymin(1) = -101d0 - Profile_Panels1_ymax(1) = -101d0 + Profile_Panels_ymin(1, 1) = -101d0 + Profile_Panels_ymax(1, 1) = -101d0 - Profile_Panels1_other_ymin(1) = -101d0 - Profile_Panels1_other_ymax(1) = -101d0 + Profile_Panels_other_ymin(1, 1) = -101d0 + Profile_Panels_other_ymax(1, 1) = -101d0 - Profile_Panels1_yaxis_name(2) = 'velocity' - Profile_Panels1_other_yaxis_name(2) = '' + Profile_Panels_yaxis_name(1, 2) = 'velocity' + Profile_Panels_other_yaxis_name(1, 2) = '' - Profile_Panels1_ymin(2) = -101d0 - Profile_Panels1_ymax(2) = -101d0 + Profile_Panels_ymin(1, 2) = -101d0 + Profile_Panels_ymax(1, 2) = -101d0 - Profile_Panels1_other_ymin(2) = -101d0 - Profile_Panels1_other_ymax(2) = -101d0 + Profile_Panels_other_ymin(1, 2) = -101d0 + Profile_Panels_other_ymax(1, 2) = -101d0 - Profile_Panels1_yaxis_name(3) = 'pressure' - Profile_Panels1_other_yaxis_name(3) = '' + Profile_Panels_yaxis_name(1, 3) = 'pressure' + Profile_Panels_other_yaxis_name(1, 3) = '' - Profile_Panels1_ymin(3) = -101d0 - Profile_Panels1_ymax(3) = -101d0 + Profile_Panels_ymin(1, 3) = -101d0 + Profile_Panels_ymax(1, 3) = -101d0 - Profile_Panels1_other_ymin(3) = -101d0 - Profile_Panels1_other_ymax(3) = -101d0 + Profile_Panels_other_ymin(1, 3) = -101d0 + Profile_Panels_other_ymax(1, 3) = -101d0 - Profile_Panels1_yaxis_name(4) = 'entropy_difference' - Profile_Panels1_other_yaxis_name(4) = '' + Profile_Panels_yaxis_name(1, 4) = 'entropy_difference' + Profile_Panels_other_yaxis_name(1, 4) = '' - Profile_Panels1_ymin(4) = -11 - Profile_Panels1_ymax(4) = -101d0 - Profile_Panels1_yaxis_log(4) = .true. ! show log10 of abs value + Profile_Panels_ymin(1, 4) = -11 + Profile_Panels_ymax(1, 4) = -101d0 + Profile_Panels_yaxis_log(1, 4) = .true. ! show log10 of abs value - Profile_Panels1_other_ymin(4) = -101d0 - Profile_Panels1_other_ymax(4) = -101d0 + Profile_Panels_other_ymin(1, 4) = -101d0 + Profile_Panels_other_ymax(1, 4) = -101d0 ! Enables calling a subroutine to add extra information to a plot ! see `$MESA_DIR/star/other/pgstar_decorator.f90` - Profile_Panels1_use_decorator = .false. + Profile_Panels_use_decorator(1) = .false. ! file output - Profile_Panels1_file_flag = .false. - Profile_Panels1_file_dir = 'png' - Profile_Panels1_file_prefix = 'profile_panels1_' - Profile_Panels1_file_interval = 5 ! output when `mod(model_number,Profile_Panels1_file_interval)==0` - Profile_Panels1_file_width = -1 ! (inches) negative means use same value as for window - Profile_Panels1_file_aspect_ratio = -1 ! negative means use same value as for window - - - - History_Panels1_win_flag = .false. - - History_Panels1_win_width = 6 - History_Panels1_win_aspect_ratio = 0.75 ! aspect_ratio = height/width - - History_Panels1_xleft = 0.15 - History_Panels1_xright = 0.85 - History_Panels1_ybot = 0.15 - History_Panels1_ytop = 0.85 - History_Panels1_txt_scale = 1.0 - History_Panels1_title = 'History_Panels1' - - History_Panels1_xaxis_name = 'star_age' - History_Panels1_xmin = -101d0 - History_Panels1_xmax = -101d0 - History_Panels1_max_width = 100 ! only used if > 0. causes xmin to move with xmax. - History_Panels1_dxmin = -1 - History_Panels1_xaxis_reversed = .false. - History_Panels1_xaxis_log = .false. ! show log10 of abs value - - History_Panels1_yaxis_name(:) = '' - History_Panels1_yaxis_reversed(:) = .false. - History_Panels1_yaxis_log(:) = .false. ! show log10 of abs value - History_Panels1_ymin(:) = -101d0 ! only used if /= -101d0 - History_Panels1_ymax(:) = -101d0 ! only used if /= -101d0 - History_Panels1_ymargin(:) = 0.1 - History_Panels1_dymin(:) = -1 - - History_Panels1_other_yaxis_name(:) = '' - History_Panels1_other_yaxis_reversed(:) = .false. - History_Panels1_other_yaxis_log(:) = .false. ! show log10 of abs value - History_Panels1_other_ymin(:) = -101d0 ! only used if /= -101d0 - History_Panels1_other_ymax(:) = -101d0 ! only used if /= -101d0 - History_Panels1_other_ymargin(:) = 0.1 - History_Panels1_other_dymin(:) = -1 - - History_Panels1_points_name(:) = '' + Profile_Panels_file_flag(1) = .false. + Profile_Panels_file_dir(1) = 'png' + Profile_Panels_file_prefix(1) = 'profile_panels1_' + Profile_Panels_file_interval(1) = 5 ! output when `mod(model_number,Profile_Panels_file_interval(1))==0` + Profile_Panels_file_width(1) = -1 ! (inches) negative means use same value as for window + Profile_Panels_file_aspect_ratio(1) = -1 ! negative means use same value as for window + + + + History_Panels_win_flag(1) = .false. + + History_Panels_win_width(1) = 6 + History_Panels_win_aspect_ratio = 0.75 ! aspect_ratio(1) = height/width + + History_Panels_xleft(1) = 0.15 + History_Panels_xright(1) = 0.85 + History_Panels_ybot(1) = 0.15 + History_Panels_ytop(1) = 0.85 + History_Panels_txt_scale(1) = 1.0 + History_Panels_title(1) = 'History_Panels1' + + History_Panels_xaxis_name(1) = 'star_age' + History_Panels_xmin(1) = -101d0 + History_Panels_xmax(1) = -101d0 + History_Panels_max_width(1) = 100 ! only used if > 0. causes xmin to move with xmax. + History_Panels_dxmin(1) = -1 + History_Panels_xaxis_reversed(1) = .false. + History_Panels_xaxis_log(1) = .false. ! show log10 of abs value + + History_Panels_yaxis_name(1, :) = '' + History_Panels_yaxis_reversed(1, :) = .false. + History_Panels_yaxis_log(1, :) = .false. ! show log10 of abs value + History_Panels_ymin(1, :) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(1, :) = -101d0 ! only used if /= -101d0 + History_Panels_ymargin(1, :) = 0.1 + History_Panels_dymin(1, :) = -1 + + History_Panels_other_yaxis_name(1, :) = '' + History_Panels_other_yaxis_reversed(1, :) = .false. + History_Panels_other_yaxis_log(1, :) = .false. ! show log10 of abs value + History_Panels_other_ymin(1, :) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(1, :) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymargin(1, :) = 0.1 + History_Panels_other_dymin(1, :) = -1 + + History_Panels_points_name(1, :) = '' ! setup default - History_Panels1_num_panels = 2 - - History_Panels1_yaxis_name(1) = 'Ew' - History_Panels1_yaxis_log(1) = .true. ! show log10 of abs value - History_Panels1_yaxis_reversed(1) = .false. - History_Panels1_ymin(1) = -101d0 ! only used if /= -101d0 - History_Panels1_ymax(1) = -101d0 ! only used if /= -101d0 - History_Panels1_dymin(1) = -1 - - History_Panels1_other_yaxis_name(1) = '' - History_Panels1_other_yaxis_reversed(1) = .false. - History_Panels1_other_yaxis_log(1) = .true. ! show log10 of abs value - History_Panels1_other_ymin(1) = -101d0 ! only used if /= -101d0 - History_Panels1_other_ymax(1) = -101d0 ! only used if /= -101d0 - History_Panels1_other_dymin(1) = -1 - - History_Panels1_yaxis_name(2) = 'frac_total_entropy_change' - History_Panels1_yaxis_reversed(2) = .false. - History_Panels1_ymin(2) = 0 ! only used if /= -101d0 - History_Panels1_ymax(2) = -101d0 ! only used if /= -101d0 - History_Panels1_dymin(2) = -1 - - History_Panels1_other_yaxis_name(2) = '' - History_Panels1_other_yaxis_reversed(2) = .false. - History_Panels1_other_ymin(2) = -101d0 ! only used if /= -101d0 - History_Panels1_other_ymax(2) = -101d0 ! only used if /= -101d0 - History_Panels1_other_dymin(2) = -1 + History_Panels_num_panels(1) = 2 + + History_Panels_yaxis_name(1, 1) = 'Ew' + History_Panels_yaxis_log(1, 1) = .true. ! show log10 of abs value + History_Panels_yaxis_reversed(1, 1) = .false. + History_Panels_ymin(1, 1) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(1, 1) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(1, 1) = -1 + + History_Panels_other_yaxis_name(1, 1) = '' + History_Panels_other_yaxis_reversed(1, 1) = .false. + History_Panels_other_yaxis_log(1, 1) = .true. ! show log10 of abs value + History_Panels_other_ymin(1, 1) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(1, 1) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(1, 1) = -1 + + History_Panels_yaxis_name(1, 2) = 'frac_total_entropy_change' + History_Panels_yaxis_reversed(1, 2) = .false. + History_Panels_ymin(1, 2) = 0 ! only used if /= -101d0 + History_Panels_ymax(1, 2) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(1, 2) = -1 + + History_Panels_other_yaxis_name(1, 2) = '' + History_Panels_other_yaxis_reversed(1, 2) = .false. + History_Panels_other_ymin(1, 2) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(1, 2) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(1, 2) = -1 ! Enables calling a subroutine to add extra information to a plot ! see `$MESA_DIR/star/other/pgstar_decorator.f90` - History_Panels1_use_decorator = .false. + History_Panels_use_decorator(1) = .false. ! file output - History_Panels1_file_flag = .false. - History_Panels1_file_dir = 'png' - History_Panels1_file_prefix = 'History_Panels1_' - History_Panels1_file_interval = 5 ! output when `mod(model_number,History_Panels1_file_interval)==0` - History_Panels1_file_width = -1 ! (inches) negative means use same value as for window - History_Panels1_file_aspect_ratio = -1 ! negative means use same value as for window + History_Panels_file_flag(1) = .false. + History_Panels_file_dir(1) = 'png' + History_Panels_file_prefix(1) = 'History_Panels1_' + History_Panels_file_interval(1) = 5 ! output when `mod(model_number,History_Panels1_file_interval)==0` + History_Panels_file_width(1) = -1 ! (inches) negative means use same value as for window + History_Panels_file_aspect_ratio(1) = -1 ! negative means use same value as for window / ! end of pgstar namelist diff --git a/star/test_suite/rsp_gyre/inlist_pulse_pgstar_default b/star/test_suite/rsp_gyre/inlist_pulse_pgstar_default index 30d910403..75b636e4a 100644 --- a/star/test_suite/rsp_gyre/inlist_pulse_pgstar_default +++ b/star/test_suite/rsp_gyre/inlist_pulse_pgstar_default @@ -10,201 +10,201 @@ pgstar_right_yaxis_label_disp = 4.4 - Grid2_win_width = 10 - Grid2_win_aspect_ratio = 0.75 ! aspect_ratio = height/width - Grid2_num_cols = 3 ! divide plotting region into this many equal width cols - Grid2_num_rows = 8 ! divide plotting region into this many equal height rows - Grid2_num_plots = 6 ! <= 10 - - Grid2_plot_name(1) = 'Profile_Panels1' - Grid2_plot_row(1) = 1 ! number from 1 at top - Grid2_plot_rowspan(1) = 3 ! plot spans this number of rows - Grid2_plot_col(1) = 1 ! number from 1 at left - Grid2_plot_colspan(1) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(1) = -0.02 ! fraction of full window width for padding on left - Grid2_plot_pad_right(1) = 0.09 ! fraction of full window width for padding on right - Grid2_plot_pad_top(1) = -0.02 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(1) = -0.10 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(1) = 0.7 ! multiply txt_scale for subplot by this - - Grid2_plot_name(2) = 'History_Panels1' - Grid2_plot_row(2) = 4 ! number from 1 at top - Grid2_plot_rowspan(2) = 3 ! plot spans this number of rows - Grid2_plot_col(2) = 1 ! number from 1 at left - Grid2_plot_colspan(2) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(2) = -0.02 ! fraction of full window width for padding on left - Grid2_plot_pad_right(2) = 0.09 ! fraction of full window width for padding on right - Grid2_plot_pad_top(2) = 0.18 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(2) = -0.02 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this - - Grid2_plot_name(3) = 'Text_Summary1' - Grid2_plot_row(3) = 7 ! number from 1 at top - Grid2_plot_rowspan(3) = 2 ! plot spans this number of rows - Grid2_plot_col(3) = 1 ! number from 1 at left - Grid2_plot_colspan(3) = 3 ! plot spans this number of columns - Grid2_plot_pad_left(3) = -0.08 ! fraction of full window width for padding on left - Grid2_plot_pad_right(3) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(3) = 0.12 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(3) = -0.04 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(3) = 0.2 ! multiply txt_scale for subplot by this - - Grid2_plot_name(4) = 'logL_R' - Grid2_plot_row(4) = 5 ! number from 1 at top - Grid2_plot_rowspan(4) = 2 ! plot spans this number of rows - Grid2_plot_col(4) = 3 ! number from 1 at left - Grid2_plot_colspan(4) = 1 ! plot spans this number of columns - Grid2_plot_pad_left(4) = 0.07 ! fraction of full window width for padding on left - Grid2_plot_pad_right(4) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(4) = 0.06 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(4) = -0.02 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(4) = 0.7 ! multiply txt_scale for subplot by this + Grid_win_width(2) = 10 + Grid_win_aspect_ratio(2) = 0.75 ! aspect_ratio = height/width + Grid_num_cols(2) = 3 ! divide plotting region into this many equal width cols + Grid_num_rows(2) = 8 ! divide plotting region into this many equal height rows + Grid_num_plots(2) = 6 ! <= 10 + + Grid_plot_name(2, 1) = 'Profile_Panels1' + Grid_plot_row(2, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 1) = 3 ! plot spans this number of rows + Grid_plot_col(2, 1) = 1 ! number from 1 at left + Grid_plot_colspan(2, 1) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 1) = -0.02 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 1) = 0.09 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 1) = -0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 1) = -0.10 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 1) = 0.7 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 2) = 'History_Panels1' + Grid_plot_row(2, 2) = 4 ! number from 1 at top + Grid_plot_rowspan(2, 2) = 3 ! plot spans this number of rows + Grid_plot_col(2, 2) = 1 ! number from 1 at left + Grid_plot_colspan(2, 2) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 2) = -0.02 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 2) = 0.09 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 2) = 0.18 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 2) = -0.02 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 2) = 0.7 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 3) = 'Text_Summary1' + Grid_plot_row(2, 3) = 7 ! number from 1 at top + Grid_plot_rowspan(2, 3) = 2 ! plot spans this number of rows + Grid_plot_col(2, 3) = 1 ! number from 1 at left + Grid_plot_colspan(2, 3) = 3 ! plot spans this number of columns + Grid_plot_pad_left(2, 3) = -0.08 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 3) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 3) = 0.12 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 3) = -0.04 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 3) = 0.2 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 4) = 'logL_R' + Grid_plot_row(2, 4) = 5 ! number from 1 at top + Grid_plot_rowspan(2, 4) = 2 ! plot spans this number of rows + Grid_plot_col(2, 4) = 3 ! number from 1 at left + Grid_plot_colspan(2, 4) = 1 ! plot spans this number of columns + Grid_plot_pad_left(2, 4) = 0.07 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 4) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 4) = 0.06 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 4) = -0.02 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 4) = 0.7 ! multiply txt_scale for subplot by this logL_R_title = '' - Grid2_plot_name(5) = 'logL_v' - Grid2_plot_row(5) = 3 ! number from 1 at top - Grid2_plot_rowspan(5) = 2 ! plot spans this number of rows - Grid2_plot_col(5) = 3 ! number from 1 at left - Grid2_plot_colspan(5) = 1 ! plot spans this number of columns - Grid2_plot_pad_left(5) = 0.07 ! fraction of full window width for padding on left - Grid2_plot_pad_right(5) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(5) = 0.02 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(5) = 0.02 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(5) = 0.7 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 5) = 'logL_v' + Grid_plot_row(2, 5) = 3 ! number from 1 at top + Grid_plot_rowspan(2, 5) = 2 ! plot spans this number of rows + Grid_plot_col(2, 5) = 3 ! number from 1 at left + Grid_plot_colspan(2, 5) = 1 ! plot spans this number of columns + Grid_plot_pad_left(2, 5) = 0.07 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 5) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 5) = 0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 5) = 0.02 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 5) = 0.7 ! multiply txt_scale for subplot by this logL_v_title = '' - Grid2_plot_name(6) = 'logL_Teff' - Grid2_plot_row(6) = 1 ! number from 1 at top - Grid2_plot_rowspan(6) = 2 ! plot spans this number of rows - Grid2_plot_col(6) = 3 ! number from 1 at left - Grid2_plot_colspan(6) = 1 ! plot spans this number of columns - Grid2_plot_pad_left(6) = 0.07 ! fraction of full window width for padding on left - Grid2_plot_pad_right(6) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(6) = -0.02 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(6) = 0.06 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(6) = 0.7 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 6) = 'logL_Teff' + Grid_plot_row(2, 6) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 6) = 2 ! plot spans this number of rows + Grid_plot_col(2, 6) = 3 ! number from 1 at left + Grid_plot_colspan(2, 6) = 1 ! plot spans this number of columns + Grid_plot_pad_left(2, 6) = 0.07 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 6) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 6) = -0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 6) = 0.06 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 6) = 0.7 ! multiply txt_scale for subplot by this logL_Teff_title = '' - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid1' - Grid2_file_interval = 10 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid1' + Grid_file_interval(2) = 10 ! output when mod(model_number,Grid_file_interval(2))==0 - History_Panels1_title = '' - History_Panels1_num_panels = 2 + History_Panels_title(1) = '' + History_Panels_num_panels(1) = 2 - !History_Panels1_xaxis_name='model_number' - History_Panels1_xaxis_name='star_age_day' - History_Panels1_max_width = 50 ! only used if > 0. causes xmin to move with xmax. - - History_Panels1_yaxis_name(1) = 'effective_T' - History_Panels1_yaxis_reversed(1) = .false. - History_Panels1_ymin(1) = -101d0 ! only used if /= -101d0 - History_Panels1_ymax(1) = -101d0 ! only used if /= -101d0 - History_Panels1_dymin(1) = -1 - - History_Panels1_other_yaxis_name(1) = 'log_L' - History_Panels1_other_yaxis_reversed(1) = .false. - History_Panels1_other_ymin(1) = -101d0 ! only used if /= -101d0 - History_Panels1_other_ymax(1) = -101d0 ! only used if /= -101d0 - History_Panels1_other_dymin(1) = -1 - - History_Panels1_yaxis_name(2) = 'radius' ! 'star_mass' - History_Panels1_yaxis_reversed(2) = .false. - History_Panels1_ymin(2) = -101d0 ! only used if /= -101d0 - History_Panels1_ymax(2) = -101d0 ! only used if /= -101d0 - History_Panels1_dymin(2) = -1 - - History_Panels1_other_yaxis_name(2) = 'v_surf_km_s' - History_Panels1_other_yaxis_reversed(2) = .false. - History_Panels1_other_ymin(2) = -101d0 ! only used if /= -101d0 - History_Panels1_other_ymax(2) = -101d0 ! only used if /= -101d0 - History_Panels1_other_dymin(2) = -1 - - History_Panels1_yaxis_name(3) = 'r_center' ! 'star_mass' - History_Panels1_yaxis_reversed(3) = .false. - History_Panels1_ymin(3) = -101d0 ! only used if /= -101d0 - History_Panels1_ymax(3) = -101d0 ! only used if /= -101d0 - History_Panels1_dymin(3) = -1 - - History_Panels1_other_yaxis_name(3) = 'v_center' - History_Panels1_other_yaxis_reversed(3) = .false. - History_Panels1_other_ymin(3) = -101d0 ! only used if /= -101d0 - History_Panels1_other_ymax(3) = -101d0 ! only used if /= -101d0 - History_Panels1_other_dymin(3) = -1 + !History_Panels_xaxis_name(1) ='model_number' + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 50 ! only used if > 0. causes xmin to move with xmax. + + History_Panels_yaxis_name(1, 1) = 'effective_T' + History_Panels_yaxis_reversed(1, 1) = .false. + History_Panels_ymin(1, 1) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(1, 1) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(1, 1) = -1 + + History_Panels_other_yaxis_name(1, 1) = 'log_L' + History_Panels_other_yaxis_reversed(1, 1) = .false. + History_Panels_other_ymin(1, 1) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(1, 1) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(1, 1) = -1 + + History_Panels_yaxis_name(1, 2) = 'radius' ! 'star_mass' + History_Panels_yaxis_reversed(1, 2) = .false. + History_Panels_ymin(1, 2) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(1, 2) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(1, 2) = -1 + + History_Panels_other_yaxis_name(1, 2) = 'v_surf_km_s' + History_Panels_other_yaxis_reversed(1, 2) = .false. + History_Panels_other_ymin(1, 2) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(1, 2) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(1, 2) = -1 + + History_Panels_yaxis_name(1, 3) = 'r_center' ! 'star_mass' + History_Panels_yaxis_reversed(1, 3) = .false. + History_Panels_ymin(1, 3) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(1, 3) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(1, 3) = -1 + + History_Panels_other_yaxis_name(1, 3) = 'v_center' + History_Panels_other_yaxis_reversed(1, 3) = .false. + History_Panels_other_ymin(1, 3) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(1, 3) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(1, 3) = -1 - Profile_Panels1_win_flag = .false. - Profile_Panels1_title = '' + Profile_Panels_win_flag(1) = .false. + Profile_Panels_title(1) = '' - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = 6.0 ! -101D0 - Profile_Panels1_show_mix_regions_on_xaxis = .true. + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = 6.0 ! -101D0 + Profile_Panels_show_mix_regions_on_xaxis(1) = .true. - Profile_Panels1_num_panels = 4 + Profile_Panels_num_panels(1) = 4 - Profile_Panels1_yaxis_name(1) = 'v_div_cs' - Profile_Panels1_ymax(1) = -101D0 ! 1 - Profile_Panels1_ymin(1) = -101D0 ! -1 - Profile_Panels1_dymin(1) = 0.1 - Profile_Panels1_other_yaxis_name(1) = 'vel_km_per_s' - Profile_Panels1_other_ymax(1) = -101D0 ! 2e6 - Profile_Panels1_other_ymin(1) = -101D0 ! -2e6 - Profile_Panels1_other_dymin(1) = 0.1 + Profile_Panels_yaxis_name(1, 1) = 'v_div_cs' + Profile_Panels_ymax(1, 1) = -101D0 ! 1 + Profile_Panels_ymin(1, 1) = -101D0 ! -1 + Profile_Panels_dymin(1, 1) = 0.1 + Profile_Panels_other_yaxis_name(1, 1) = 'vel_km_per_s' + Profile_Panels_other_ymax(1, 1) = -101D0 ! 2e6 + Profile_Panels_other_ymin(1, 1) = -101D0 ! -2e6 + Profile_Panels_other_dymin(1, 1) = 0.1 - Profile_Panels1_yaxis_name(2) = 'entropy' - Profile_Panels1_other_yaxis_name(2) = 'opacity' - - Profile_Panels1_yaxis_name(3) = 'logRho' - Profile_Panels1_ymax(3) = -101D0 ! 5.7 - Profile_Panels1_ymin(3) = -101D0 ! 4.2 - Profile_Panels1_other_yaxis_name(3) = 'logT' - Profile_Panels1_other_ymax(3) = -101D0 ! 6.45 - Profile_Panels1_other_ymin(3) = -101D0 ! 4 + Profile_Panels_yaxis_name(1, 2) = 'entropy' + Profile_Panels_other_yaxis_name(1, 2) = 'opacity' + + Profile_Panels_yaxis_name(1, 3) = 'logRho' + Profile_Panels_ymax(1, 3) = -101D0 ! 5.7 + Profile_Panels_ymin(1, 3) = -101D0 ! 4.2 + Profile_Panels_other_yaxis_name(1, 3) = 'logT' + Profile_Panels_other_ymax(1, 3) = -101D0 ! 6.45 + Profile_Panels_other_ymin(1, 3) = -101D0 ! 4 - Profile_Panels1_yaxis_name(4) = 'logL' ! 'zone' ! - Profile_Panels1_ymax(4) = -101D0 ! 3.7 - Profile_Panels1_ymin(4) = -101D0 ! 3.1 - Profile_Panels1_other_yaxis_name(4) = 'lum_div_Ledd' - Profile_Panels1_other_ymax(4) = -101D0 ! - Profile_Panels1_other_ymin(4) = -101D0 ! + Profile_Panels_yaxis_name(1, 4) = 'logL' ! 'zone' ! + Profile_Panels_ymax(1, 4) = -101D0 ! 3.7 + Profile_Panels_ymin(1, 4) = -101D0 ! 3.1 + Profile_Panels_other_yaxis_name(1, 4) = 'lum_div_Ledd' + Profile_Panels_other_ymax(1, 4) = -101D0 ! + Profile_Panels_other_ymin(1, 4) = -101D0 ! - Profile_Panels1_file_flag = .false. - Profile_Panels1_file_dir = 'png' - Profile_Panels1_file_prefix = 'profile_panels1_' - Profile_Panels1_file_interval = 1 ! output when mod(model_number,Profile_Panels1_file_interval)==0 + Profile_Panels_file_flag(1) = .false. + Profile_Panels_file_dir(1) = 'png' + Profile_Panels_file_prefix(1) = 'profile_panels1_' + Profile_Panels_file_interval(1) = 1 ! output when mod(model_number,Profile_Panels_file_interval(1))==0 - Text_Summary1_num_rows = 4 ! <= 20 - Text_Summary1_num_cols = 4 ! <= 20 - Text_Summary1_name(:,:) = '' - - Text_Summary1_name(1,1) = 'model_number' - Text_Summary1_name(2,1) = 'star_age_day' - Text_Summary1_name(3,1) = 'time_step_sec' - Text_Summary1_name(4,1) = 'rsp_num_periods' - Text_Summary1_name(5,1) = '' - - Text_Summary1_name(1,2) = 'v_surf_km_s' - Text_Summary1_name(2,2) = 'radius' - Text_Summary1_name(3,2) = 'log_R' - Text_Summary1_name(4,2) = 'rsp_period_in_days' - Text_Summary1_name(5,2) = '' - - Text_Summary1_name(1,3) = 'effective_T' - Text_Summary1_name(2,3) = 'log_Teff' - Text_Summary1_name(3,3) = 'luminosity' - Text_Summary1_name(4,3) = 'log_L' - Text_Summary1_name(5,3) = '' - - Text_Summary1_name(1,4) = 'star_mass' - Text_Summary1_name(2,4) = 'num_zones' - Text_Summary1_name(3,4) = 'num_retries' - Text_Summary1_name(4,4) = '' - Text_Summary1_name(5,4) = '' + Text_Summary_num_rows(1) = 4 ! <= 20 + Text_Summary_num_cols(1) = 4 ! <= 20 + Text_Summary_name(1, :, :) = '' + + Text_Summary_name(1, 1, 1) = 'model_number' + Text_Summary_name(1, 2, 1) = 'star_age_day' + Text_Summary_name(1, 3, 1) = 'time_step_sec' + Text_Summary_name(1, 4, 1) = 'rsp_num_periods' + Text_Summary_name(1, 5, 1) = '' + + Text_Summary_name(1, 1, 2) = 'v_surf_km_s' + Text_Summary_name(1, 2, 2) = 'radius' + Text_Summary_name(1, 3, 2) = 'log_R' + Text_Summary_name(1, 4, 2) = 'rsp_period_in_days' + Text_Summary_name(1, 5, 2) = '' + + Text_Summary_name(1, 1, 3) = 'effective_T' + Text_Summary_name(1, 2, 3) = 'log_Teff' + Text_Summary_name(1, 3, 3) = 'luminosity' + Text_Summary_name(1, 4, 3) = 'log_L' + Text_Summary_name(1, 5, 3) = '' + + Text_Summary_name(1, 1, 4) = 'star_mass' + Text_Summary_name(1, 2, 4) = 'num_zones' + Text_Summary_name(1, 3, 4) = 'num_retries' + Text_Summary_name(1, 4, 4) = '' + Text_Summary_name(1, 5, 4) = '' / ! end of pgstar namelist diff --git a/star/test_suite/rsp_gyre/inlist_rsp_gyre b/star/test_suite/rsp_gyre/inlist_rsp_gyre index 38663679a..236c203a0 100644 --- a/star/test_suite/rsp_gyre/inlist_rsp_gyre +++ b/star/test_suite/rsp_gyre/inlist_rsp_gyre @@ -109,41 +109,41 @@ ! window 1 - !Grid1_win_flag = .true. - Grid1_title = 'Cepheid Grid Profiles TDC' + !Grid_win_flag(1) = .true. + Grid_title(1) = 'Cepheid Grid Profiles TDC' - !Grid1_file_flag = .true. - Grid1_file_dir = 'png1' - Grid1_file_prefix = 'grid1' - Grid1_file_interval = 10 ! output when mod(model_number,Grid1_file_interval)==0 + !Grid_file_flag(1) = .true. + Grid_file_dir(1) = 'png1' + Grid_file_prefix(1) = 'grid1' + Grid_file_interval(1) = 10 ! output when mod(model_number,Grid_file_interval(1))==0 - Profile_Panels1_xaxis_name = 'zone' - Profile_Panels1_xaxis_reversed = .true. - !Profile_Panels1_xmin = 50 ! -101D0 - !Profile_Panels1_xmax = 65 ! -101D0 + Profile_Panels_xaxis_name(1) = 'zone' + Profile_Panels_xaxis_reversed(1) = .true. + !Profile_Panels_xmin(1) = 50 ! -101D0 + !Profile_Panels_xmax(1) = 65 ! -101D0 ! window 2 - Grid2_win_flag = .true. - Grid2_title = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid TDC' + Grid_win_flag(2) = .true. + Grid_title(2) = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid TDC' - History_Panels2_xaxis_name='star_age_day' - History_Panels2_max_width = 365 ! only used if > 0. causes xmin to move with xmax. + History_Panels_xaxis_name(2) ='star_age_day' + History_Panels_max_width(2) = 365 ! only used if > 0. causes xmin to move with xmax. - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid2' - Grid2_file_interval = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid2' + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 - !Profile_Panels2_show_grid = .true. + !Profile_Panels_show_grid(2) = .true. - Profile_Panels2_xaxis_name = 'logtau' - Profile_Panels2_xaxis_reversed = .true. - Profile_Panels2_xmin = -101D0 - Profile_Panels2_xmax = -101D0 + Profile_Panels_xaxis_name(2) = 'logtau' + Profile_Panels_xaxis_reversed(2) = .true. + Profile_Panels_xmin(2) = -101D0 + Profile_Panels_xmax(2) = -101D0 - Profile_Panels2_dymin(4) = 0.02 + Profile_Panels_dymin(2, 4) = 0.02 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_save_and_load_file/README.rst b/star/test_suite/rsp_save_and_load_file/README.rst index e3c4e4e75..122f7de75 100644 --- a/star/test_suite/rsp_save_and_load_file/README.rst +++ b/star/test_suite/rsp_save_and_load_file/README.rst @@ -45,23 +45,23 @@ pgstar commands, in addition to those in ``inlist_rsp_common`` and modifcations pgstar_model_disp = 3.9 - History_Panels2_txt_scale = 0.7 - Profile_Panels2_txt_scale = 0.6 + History_Panels_txt_scale(2) = 0.7 + Profile_Panels_txt_scale(2) = 0.6 logL_R_txt_scale = 0.7 logL_v_txt_scale = 0.7 logL_Teff_txt_scale = 0.7 - Grid2_win_flag = .true. - Grid2_win_width = 12 - Grid2_title = 'rsp_save_and_load_file' - Grid2_txt_scale_factor(:) = 1.0 - - Grid2_file_flag = .true. - Grid2_file_dir = 'pgstar_out' - Grid2_file_prefix = 'grid_' - Grid2_file_interval = 10000 - Grid2_file_width = -1 - Grid2_file_aspect_ratio = -1 + Grid_win_flag(2) = .true. + Grid_win_width(2) = 12 + Grid_title(2) = 'rsp_save_and_load_file' + Grid_txt_scale_factor(2, :) = 1.0 + + Grid_file_flag(2) = .true. + Grid_file_dir(2) = 'pgstar_out' + Grid_file_prefix(2) = 'grid_' + Grid_file_interval(2) = 10000 + Grid_file_width(2) = -1 + Grid_file_aspect_ratio(2) = -1 / ! end of pgstar namelist diff --git a/star/test_suite/rsp_save_and_load_file/inlist_rsp_common b/star/test_suite/rsp_save_and_load_file/inlist_rsp_common index 9f9e4363a..32521932c 100644 --- a/star/test_suite/rsp_save_and_load_file/inlist_rsp_common +++ b/star/test_suite/rsp_save_and_load_file/inlist_rsp_common @@ -350,199 +350,199 @@ pgstar_right_yaxis_label_disp = 4.4 - Grid2_win_width = 10 - Grid2_win_aspect_ratio = 0.75 ! aspect_ratio = height/width - Grid2_num_cols = 3 ! divide plotting region into this many equal width cols - Grid2_num_rows = 8 ! divide plotting region into this many equal height rows - Grid2_num_plots = 6 ! <= 10 - - Grid2_plot_name(1) = 'Profile_Panels1' - Grid2_plot_row(1) = 1 ! number from 1 at top - Grid2_plot_rowspan(1) = 3 ! plot spans this number of rows - Grid2_plot_col(1) = 1 ! number from 1 at left - Grid2_plot_colspan(1) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(1) = -0.02 ! fraction of full window width for padding on left - Grid2_plot_pad_right(1) = 0.09 ! fraction of full window width for padding on right - Grid2_plot_pad_top(1) = -0.02 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(1) = -0.10 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(1) = 0.7 ! multiply txt_scale for subplot by this - - Grid2_plot_name(2) = 'History_Panels1' - Grid2_plot_row(2) = 4 ! number from 1 at top - Grid2_plot_rowspan(2) = 3 ! plot spans this number of rows - Grid2_plot_col(2) = 1 ! number from 1 at left - Grid2_plot_colspan(2) = 2 ! plot spans this number of columns - Grid2_plot_pad_left(2) = -0.02 ! fraction of full window width for padding on left - Grid2_plot_pad_right(2) = 0.09 ! fraction of full window width for padding on right - Grid2_plot_pad_top(2) = 0.18 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(2) = -0.02 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this - - Grid2_plot_name(3) = 'Text_Summary1' - Grid2_plot_row(3) = 7 ! number from 1 at top - Grid2_plot_rowspan(3) = 2 ! plot spans this number of rows - Grid2_plot_col(3) = 1 ! number from 1 at left - Grid2_plot_colspan(3) = 3 ! plot spans this number of columns - Grid2_plot_pad_left(3) = -0.08 ! fraction of full window width for padding on left - Grid2_plot_pad_right(3) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(3) = 0.12 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(3) = -0.04 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(3) = 0.2 ! multiply txt_scale for subplot by this - - Grid2_plot_name(4) = 'logL_R' - Grid2_plot_row(4) = 5 ! number from 1 at top - Grid2_plot_rowspan(4) = 2 ! plot spans this number of rows - Grid2_plot_col(4) = 3 ! number from 1 at left - Grid2_plot_colspan(4) = 1 ! plot spans this number of columns - Grid2_plot_pad_left(4) = 0.07 ! fraction of full window width for padding on left - Grid2_plot_pad_right(4) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(4) = 0.06 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(4) = -0.02 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(4) = 0.7 ! multiply txt_scale for subplot by this + Grid_win_width(2) = 10 + Grid_win_aspect_ratio(2) = 0.75 ! aspect_ratio = height/width + Grid_num_cols(2) = 3 ! divide plotting region into this many equal width cols + Grid_num_rows(2) = 8 ! divide plotting region into this many equal height rows + Grid_num_plots(2) = 6 ! <= 10 + + Grid_plot_name(2, 1) = 'Profile_Panels1' + Grid_plot_row(2, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 1) = 3 ! plot spans this number of rows + Grid_plot_col(2, 1) = 1 ! number from 1 at left + Grid_plot_colspan(2, 1) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 1) = -0.02 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 1) = 0.09 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 1) = -0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 1) = -0.10 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 1) = 0.7 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 2) = 'History_Panels1' + Grid_plot_row(2, 2) = 4 ! number from 1 at top + Grid_plot_rowspan(2, 2) = 3 ! plot spans this number of rows + Grid_plot_col(2, 2) = 1 ! number from 1 at left + Grid_plot_colspan(2, 2) = 2 ! plot spans this number of columns + Grid_plot_pad_left(2, 2) = -0.02 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 2) = 0.09 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 2) = 0.18 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 2) = -0.02 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 2) = 0.7 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 3) = 'Text_Summary1' + Grid_plot_row(2, 3) = 7 ! number from 1 at top + Grid_plot_rowspan(2, 3) = 2 ! plot spans this number of rows + Grid_plot_col(2, 3) = 1 ! number from 1 at left + Grid_plot_colspan(2, 3) = 3 ! plot spans this number of columns + Grid_plot_pad_left(2, 3) = -0.08 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 3) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 3) = 0.12 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 3) = -0.04 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 3) = 0.2 ! multiply txt_scale for subplot by this + + Grid_plot_name(2, 4) = 'logL_R' + Grid_plot_row(2, 4) = 5 ! number from 1 at top + Grid_plot_rowspan(2, 4) = 2 ! plot spans this number of rows + Grid_plot_col(2, 4) = 3 ! number from 1 at left + Grid_plot_colspan(2, 4) = 1 ! plot spans this number of columns + Grid_plot_pad_left(2, 4) = 0.07 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 4) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 4) = 0.06 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 4) = -0.02 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 4) = 0.7 ! multiply txt_scale for subplot by this logL_R_title = '' - Grid2_plot_name(5) = 'logL_v' - Grid2_plot_row(5) = 3 ! number from 1 at top - Grid2_plot_rowspan(5) = 2 ! plot spans this number of rows - Grid2_plot_col(5) = 3 ! number from 1 at left - Grid2_plot_colspan(5) = 1 ! plot spans this number of columns - Grid2_plot_pad_left(5) = 0.07 ! fraction of full window width for padding on left - Grid2_plot_pad_right(5) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(5) = 0.02 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(5) = 0.02 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(5) = 0.7 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 5) = 'logL_v' + Grid_plot_row(2, 5) = 3 ! number from 1 at top + Grid_plot_rowspan(2, 5) = 2 ! plot spans this number of rows + Grid_plot_col(2, 5) = 3 ! number from 1 at left + Grid_plot_colspan(2, 5) = 1 ! plot spans this number of columns + Grid_plot_pad_left(2, 5) = 0.07 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 5) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 5) = 0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 5) = 0.02 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 5) = 0.7 ! multiply txt_scale for subplot by this logL_v_title = '' - Grid2_plot_name(6) = 'logL_Teff' - Grid2_plot_row(6) = 1 ! number from 1 at top - Grid2_plot_rowspan(6) = 2 ! plot spans this number of rows - Grid2_plot_col(6) = 3 ! number from 1 at left - Grid2_plot_colspan(6) = 1 ! plot spans this number of columns - Grid2_plot_pad_left(6) = 0.07 ! fraction of full window width for padding on left - Grid2_plot_pad_right(6) = 0.0 ! fraction of full window width for padding on right - Grid2_plot_pad_top(6) = -0.02 ! fraction of full window height for padding at top - Grid2_plot_pad_bot(6) = 0.06 ! fraction of full window height for padding at bottom - Grid2_txt_scale_factor(6) = 0.7 ! multiply txt_scale for subplot by this + Grid_plot_name(2, 6) = 'logL_Teff' + Grid_plot_row(2, 6) = 1 ! number from 1 at top + Grid_plot_rowspan(2, 6) = 2 ! plot spans this number of rows + Grid_plot_col(2, 6) = 3 ! number from 1 at left + Grid_plot_colspan(2, 6) = 1 ! plot spans this number of columns + Grid_plot_pad_left(2, 6) = 0.07 ! fraction of full window width for padding on left + Grid_plot_pad_right(2, 6) = 0.0 ! fraction of full window width for padding on right + Grid_plot_pad_top(2, 6) = -0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(2, 6) = 0.06 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(2, 6) = 0.7 ! multiply txt_scale for subplot by this logL_Teff_title = '' - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid1' - Grid2_file_interval = 10 ! output when mod(model_number,Grid2_file_interval)==0 - - - History_Panels1_title = '' - History_Panels1_num_panels = 2 - - !History_Panels1_xaxis_name='model_number' - History_Panels1_xaxis_name='star_age_day' - History_Panels1_max_width = 50 ! only used if > 0. causes xmin to move with xmax. - - History_Panels1_yaxis_name(1) = 'effective_T' - History_Panels1_yaxis_reversed(1) = .false. - History_Panels1_ymin(1) = -101d0 ! only used if /= -101d0 - History_Panels1_ymax(1) = -101d0 ! only used if /= -101d0 - History_Panels1_dymin(1) = -1 - - History_Panels1_other_yaxis_name(1) = 'log_L' - History_Panels1_other_yaxis_reversed(1) = .false. - History_Panels1_other_ymin(1) = -101d0 ! only used if /= -101d0 - History_Panels1_other_ymax(1) = -101d0 ! only used if /= -101d0 - History_Panels1_other_dymin(1) = -1 - - History_Panels1_yaxis_name(2) = 'radius' ! 'star_mass' - History_Panels1_yaxis_reversed(2) = .false. - History_Panels1_ymin(2) = -101d0 ! only used if /= -101d0 - History_Panels1_ymax(2) = -101d0 ! only used if /= -101d0 - History_Panels1_dymin(2) = -1 - - History_Panels1_other_yaxis_name(2) = 'v_surf_km_s' - History_Panels1_other_yaxis_reversed(2) = .false. - History_Panels1_other_ymin(2) = -101d0 ! only used if /= -101d0 - History_Panels1_other_ymax(2) = -101d0 ! only used if /= -101d0 - History_Panels1_other_dymin(2) = -1 - - History_Panels1_yaxis_name(3) = 'r_center' ! 'star_mass' - History_Panels1_yaxis_reversed(3) = .false. - History_Panels1_ymin(3) = -101d0 ! only used if /= -101d0 - History_Panels1_ymax(3) = -101d0 ! only used if /= -101d0 - History_Panels1_dymin(3) = -1 - - History_Panels1_other_yaxis_name(3) = 'v_center' - History_Panels1_other_yaxis_reversed(3) = .false. - History_Panels1_other_ymin(3) = -101d0 ! only used if /= -101d0 - History_Panels1_other_ymax(3) = -101d0 ! only used if /= -101d0 - History_Panels1_other_dymin(3) = -1 - - - Profile_Panels1_win_flag = .false. - Profile_Panels1_title = '' - - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = 6.0 ! -101D0 - Profile_Panels1_show_mix_regions_on_xaxis = .true. - - Profile_Panels1_num_panels = 4 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid1' + Grid_file_interval(2) = 10 ! output when mod(model_number,Grid_file_interval(2))==0 + + + History_Panels_title(1) = '' + History_Panels_num_panels(1) = 2 + + !History_Panels_xaxis_name(1) ='model_number' + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 50 ! only used if > 0. causes xmin to move with xmax. + + History_Panels_yaxis_name(1, 1) = 'effective_T' + History_Panels_yaxis_reversed(1, 1) = .false. + History_Panels_ymin(1, 1) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(1, 1) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(1, 1) = -1 + + History_Panels_other_yaxis_name(1, 1) = 'log_L' + History_Panels_other_yaxis_reversed(1, 1) = .false. + History_Panels_other_ymin(1, 1) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(1, 1) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(1, 1) = -1 + + History_Panels_yaxis_name(1, 2) = 'radius' ! 'star_mass' + History_Panels_yaxis_reversed(1, 2) = .false. + History_Panels_ymin(1, 2) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(1, 2) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(1, 2) = -1 + + History_Panels_other_yaxis_name(1, 2) = 'v_surf_km_s' + History_Panels_other_yaxis_reversed(1, 2) = .false. + History_Panels_other_ymin(1, 2) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(1, 2) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(1, 2) = -1 + + History_Panels_yaxis_name(1, 3) = 'r_center' ! 'star_mass' + History_Panels_yaxis_reversed(1, 3) = .false. + History_Panels_ymin(1, 3) = -101d0 ! only used if /= -101d0 + History_Panels_ymax(1, 3) = -101d0 ! only used if /= -101d0 + History_Panels_dymin(1, 3) = -1 + + History_Panels_other_yaxis_name(1, 3) = 'v_center' + History_Panels_other_yaxis_reversed(1, 3) = .false. + History_Panels_other_ymin(1, 3) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(1, 3) = -101d0 ! only used if /= -101d0 + History_Panels_other_dymin(1, 3) = -1 + + + Profile_Panels_win_flag(1) = .false. + Profile_Panels_title(1) = '' + + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = 6.0 ! -101D0 + Profile_Panels_show_mix_regions_on_xaxis(1) = .true. + + Profile_Panels_num_panels(1) = 4 - Profile_Panels1_yaxis_name(1) = 'v_div_cs' - Profile_Panels1_ymax(1) = -101D0 ! 1 - Profile_Panels1_ymin(1) = -101D0 ! -1 - Profile_Panels1_other_yaxis_name(1) = 'vel_km_per_s' - Profile_Panels1_other_ymax(1) = -101D0 ! 2e6 - Profile_Panels1_other_ymin(1) = -101D0 ! -2e6 + Profile_Panels_yaxis_name(1, 1) = 'v_div_cs' + Profile_Panels_ymax(1, 1) = -101D0 ! 1 + Profile_Panels_ymin(1, 1) = -101D0 ! -1 + Profile_Panels_other_yaxis_name(1, 1) = 'vel_km_per_s' + Profile_Panels_other_ymax(1, 1) = -101D0 ! 2e6 + Profile_Panels_other_ymin(1, 1) = -101D0 ! -2e6 - Profile_Panels1_yaxis_name(2) = 'entropy' - Profile_Panels1_other_yaxis_name(2) = 'opacity' - - Profile_Panels1_yaxis_name(3) = 'logRho' - Profile_Panels1_ymax(3) = -101D0 ! 5.7 - Profile_Panels1_ymin(3) = -101D0 ! 4.2 - Profile_Panels1_other_yaxis_name(3) = 'logT' - Profile_Panels1_other_ymax(3) = -101D0 ! 6.45 - Profile_Panels1_other_ymin(3) = -101D0 ! 4 + Profile_Panels_yaxis_name(1, 2) = 'entropy' + Profile_Panels_other_yaxis_name(1, 2) = 'opacity' + + Profile_Panels_yaxis_name(1, 3) = 'logRho' + Profile_Panels_ymax(1, 3) = -101D0 ! 5.7 + Profile_Panels_ymin(1, 3) = -101D0 ! 4.2 + Profile_Panels_other_yaxis_name(1, 3) = 'logT' + Profile_Panels_other_ymax(1, 3) = -101D0 ! 6.45 + Profile_Panels_other_ymin(1, 3) = -101D0 ! 4 - Profile_Panels1_yaxis_name(4) = 'logL' ! 'zone' ! - Profile_Panels1_ymax(4) = -101D0 ! 3.7 - Profile_Panels1_ymin(4) = -101D0 ! 3.1 - Profile_Panels1_other_yaxis_name(4) = 'lum_div_Ledd' - Profile_Panels1_other_ymax(4) = -101D0 ! - Profile_Panels1_other_ymin(4) = -101D0 ! - - - Profile_Panels1_file_flag = .false. - Profile_Panels1_file_dir = 'png' - Profile_Panels1_file_prefix = 'profile_panels1_' - Profile_Panels1_file_interval = 1 ! output when mod(model_number,Profile_Panels1_file_interval)==0 - - Text_Summary1_num_rows = 4 ! <= 20 - Text_Summary1_num_cols = 4 ! <= 20 - Text_Summary1_name(:,:) = '' - - Text_Summary1_name(1,1) = 'model_number' - Text_Summary1_name(2,1) = 'star_age_day' - Text_Summary1_name(3,1) = 'time_step_sec' - Text_Summary1_name(4,1) = 'rsp_num_periods' - Text_Summary1_name(5,1) = '' - - Text_Summary1_name(1,2) = 'v_surf_km_s' - Text_Summary1_name(2,2) = 'radius' - Text_Summary1_name(3,2) = 'log_R' - Text_Summary1_name(4,2) = 'rsp_period_in_days' - Text_Summary1_name(5,2) = '' - - Text_Summary1_name(1,3) = 'effective_T' - Text_Summary1_name(2,3) = 'log_Teff' - Text_Summary1_name(3,3) = 'luminosity' - Text_Summary1_name(4,3) = 'log_L' - Text_Summary1_name(5,3) = '' - - Text_Summary1_name(1,4) = 'star_mass' - Text_Summary1_name(2,4) = 'num_zones' - Text_Summary1_name(3,4) = 'num_retries' - Text_Summary1_name(4,4) = '' - Text_Summary1_name(5,4) = '' + Profile_Panels_yaxis_name(1, 4) = 'logL' ! 'zone' ! + Profile_Panels_ymax(1, 4) = -101D0 ! 3.7 + Profile_Panels_ymin(1, 4) = -101D0 ! 3.1 + Profile_Panels_other_yaxis_name(1, 4) = 'lum_div_Ledd' + Profile_Panels_other_ymax(1, 4) = -101D0 ! + Profile_Panels_other_ymin(1, 4) = -101D0 ! + + + Profile_Panels_file_flag(1) = .false. + Profile_Panels_file_dir(1) = 'png' + Profile_Panels_file_prefix(1) = 'profile_panels1_' + Profile_Panels_file_interval(1) = 1 ! output when mod(model_number,Profile_Panels_file_interval(1))==0 + + Text_Summary_num_rows(1) = 4 ! <= 20 + Text_Summary_num_cols(1) = 4 ! <= 20 + Text_Summary_name(1, :, :) = '' + + Text_Summary_name(1, 1, 1) = 'model_number' + Text_Summary_name(1, 2, 1) = 'star_age_day' + Text_Summary_name(1, 3, 1) = 'time_step_sec' + Text_Summary_name(1, 4, 1) = 'rsp_num_periods' + Text_Summary_name(1, 5, 1) = '' + + Text_Summary_name(1, 1, 2) = 'v_surf_km_s' + Text_Summary_name(1, 2, 2) = 'radius' + Text_Summary_name(1, 3, 2) = 'log_R' + Text_Summary_name(1, 4, 2) = 'rsp_period_in_days' + Text_Summary_name(1, 5, 2) = '' + + Text_Summary_name(1, 1, 3) = 'effective_T' + Text_Summary_name(1, 2, 3) = 'log_Teff' + Text_Summary_name(1, 3, 3) = 'luminosity' + Text_Summary_name(1, 4, 3) = 'log_L' + Text_Summary_name(1, 5, 3) = '' + + Text_Summary_name(1, 1, 4) = 'star_mass' + Text_Summary_name(1, 2, 4) = 'num_zones' + Text_Summary_name(1, 3, 4) = 'num_retries' + Text_Summary_name(1, 4, 4) = '' + Text_Summary_name(1, 5, 4) = '' / ! end of pgstar namelist diff --git a/star/test_suite/rsp_save_and_load_file/inlist_rsp_load_file b/star/test_suite/rsp_save_and_load_file/inlist_rsp_load_file index daa600b61..be697516a 100644 --- a/star/test_suite/rsp_save_and_load_file/inlist_rsp_load_file +++ b/star/test_suite/rsp_save_and_load_file/inlist_rsp_load_file @@ -67,27 +67,27 @@ pause_interval = 10 pgstar_interval = 6 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_title = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' + Grid_title(2) = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' - History_Panels1_xaxis_name='star_age_day' - History_Panels1_max_width = 365 ! only used if > 0. causes xmin to move with xmax. + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. - Grid2_file_flag = .true. + Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 10 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' + Grid_file_interval(2) = 10 ! output when mod(model_number,Grid_file_interval(2))==0 - !Profile_Panels1_show_grid = .true. + !Profile_Panels_show_grid(1) = .true. - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = -101D0 + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 - !Profile_Panels1_yaxis_name(2) = 'avg_charge_He' + Profile_Panels_dymin(1, 4) = 0.02 + !Profile_Panels_yaxis_name(1, 2) = 'avg_charge_He' / ! end of pgstar namelist diff --git a/star/test_suite/rsp_save_and_load_file/inlist_rsp_save_file b/star/test_suite/rsp_save_and_load_file/inlist_rsp_save_file index b772335fe..07e40c06c 100644 --- a/star/test_suite/rsp_save_and_load_file/inlist_rsp_save_file +++ b/star/test_suite/rsp_save_and_load_file/inlist_rsp_save_file @@ -57,27 +57,27 @@ pgstar_interval = 6 - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. - Grid2_title = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' + Grid_title(2) = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' - History_Panels1_xaxis_name='star_age_day' - History_Panels1_max_width = 365 ! only used if > 0. causes xmin to move with xmax. + History_Panels_xaxis_name(1) ='star_age_day' + History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. - ! Grid2_file_flag = .true. + ! Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 - !Profile_Panels1_show_grid = .true. + !Profile_Panels_show_grid(1) = .true. - Profile_Panels1_xaxis_name = 'logtau' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101D0 - Profile_Panels1_xmax = -101D0 + Profile_Panels_xaxis_name(1) = 'logtau' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101D0 + Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 - !Profile_Panels1_yaxis_name(2) = 'avg_charge_He' + Profile_Panels_dymin(1, 4) = 0.02 + !Profile_Panels_yaxis_name(1, 2) = 'avg_charge_He' / ! end of pgstar namelist diff --git a/star/test_suite/semiconvection/inlist_semiconvection b/star/test_suite/semiconvection/inlist_semiconvection index 169df93bd..36f9809a4 100644 --- a/star/test_suite/semiconvection/inlist_semiconvection +++ b/star/test_suite/semiconvection/inlist_semiconvection @@ -103,7 +103,7 @@ &pgstar -! Grid4_win_flag = .true. +! Grid_win_flag(4) = .true. Kipp_mass_max = 0.2 ! (Msun units) negative means use default -! Grid4_file_flag = .true. +! Grid_file_flag(4) = .true. / ! end of pgstar namelist diff --git a/star/test_suite/semiconvection/inlist_to_ZAMS b/star/test_suite/semiconvection/inlist_to_ZAMS index 74865b2f7..37197745b 100644 --- a/star/test_suite/semiconvection/inlist_to_ZAMS +++ b/star/test_suite/semiconvection/inlist_to_ZAMS @@ -75,10 +75,10 @@ &pgstar - Grid2_win_flag = .true. + Grid_win_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png' - Grid2_file_prefix = 'grid' + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid' Abundance_xmax = 0.5 diff --git a/star/test_suite/split_burn_big_net/inlist_big_net b/star/test_suite/split_burn_big_net/inlist_big_net index a5cda39d4..eedf24cc1 100644 --- a/star/test_suite/split_burn_big_net/inlist_big_net +++ b/star/test_suite/split_burn_big_net/inlist_big_net @@ -84,7 +84,7 @@ &pgstar !pause = .true. -Profile_Panels3_xmin = 0 ! -101d0 -Profile_Panels3_xmax = 2.6 ! -101d0 +Profile_Panels_xmin(3) = 0 ! -101d0 +Profile_Panels_xmax(3) = 2.6 ! -101d0 / ! end of pgstar namelist diff --git a/star/test_suite/split_burn_big_net/inlist_common b/star/test_suite/split_burn_big_net/inlist_common index 1c7970a72..d4983696d 100644 --- a/star/test_suite/split_burn_big_net/inlist_common +++ b/star/test_suite/split_burn_big_net/inlist_common @@ -204,9 +204,9 @@ !pgstar_interval = 1 ! x-axis limits and properties -Profile_Panels3_xaxis_name = 'mass' -Profile_Panels3_xmin = 0.0 -Profile_Panels3_xmax = 1.6 -Profile_Panels3_xaxis_reversed = .false. +Profile_Panels_xaxis_name(3) = 'mass' +Profile_Panels_xmin(3) = 0.0 +Profile_Panels_xmax(3) = 1.6 +Profile_Panels_xaxis_reversed(3) = .false. / ! end of pgstar namelist diff --git a/star/test_suite/split_burn_big_net/inlist_pgstar b/star/test_suite/split_burn_big_net/inlist_pgstar index a944b759c..acd83592b 100644 --- a/star/test_suite/split_burn_big_net/inlist_pgstar +++ b/star/test_suite/split_burn_big_net/inlist_pgstar @@ -15,197 +15,197 @@ pgstar_show_age = .false. !------------------------------------------------------------------------------------ -Grid1_win_flag = .true. -Grid1_win_width = 12 -Grid1_win_aspect_ratio = 0.666 +Grid_win_flag(1) = .true. +Grid_win_width(1) = 12 +Grid_win_aspect_ratio(1) = 0.666 ! file output -!Grid1_file_flag = .true. -Grid1_file_dir = 'png' -Grid1_file_prefix = 'black_hole_' -Grid1_file_interval = 25 ! output when mod(model_number,Grid1_file_interval)==0 -Grid1_file_width = -1 ! (inches) negative means use same value as for window -Grid1_file_aspect_ratio = -1 ! negative means use same value as for window +!Grid_file_flag(1) = .true. +Grid_file_dir(1) = 'png' +Grid_file_prefix(1) = 'black_hole_' +Grid_file_interval(1) = 25 ! output when mod(model_number,Grid_file_interval(1))==0 +Grid_file_width(1) = -1 ! (inches) negative means use same value as for window +Grid_file_aspect_ratio(1) = -1 ! negative means use same value as for window ! reset the defaults -Grid1_plot_name(:) = '' -Grid1_plot_row(:) = 1 ! number from 1 at top -Grid1_plot_rowspan(:) = 1 ! plot spans this number of rows -Grid1_plot_col(:) = 1 ! number from 1 at left -Grid1_plot_colspan(:) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(:) = 0.0 ! fraction of full window width for padding on left -Grid1_plot_pad_right(:) = 0.0 ! fraction of full window width for padding on right -Grid1_plot_pad_top(:) = 0.0 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(:) = 0.0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(:) = 0.7 ! multiply txt_scale for subplot by this +Grid_plot_name(1, :) = '' +Grid_plot_row(1, :) = 1 ! number from 1 at top +Grid_plot_rowspan(1, :) = 1 ! plot spans this number of rows +Grid_plot_col(1, :) = 1 ! number from 1 at left +Grid_plot_colspan(1, :) = 1 ! plot spans this number of columns +Grid_plot_pad_left(1, :) = 0.0 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, :) = 0.0 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, :) = 0.0 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, :) = 0.0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, :) = 0.7 ! multiply txt_scale for subplot by this -Grid1_title = '' +Grid_title(1) = '' -Grid1_num_cols = 3 ! divide plotting region into this many equal width cols -Grid1_num_rows = 5 ! divide plotting region into this many equal height rows -Grid1_num_plots = 6 ! <= 10 +Grid_num_cols(1) = 3 ! divide plotting region into this many equal width cols +Grid_num_rows(1) = 5 ! divide plotting region into this many equal height rows +Grid_num_plots(1) = 6 ! <= 10 -Grid1_plot_name(1) = 'Text_Summary1' -Grid1_plot_row(1) = 1 ! number from 1 at top -Grid1_plot_rowspan(1) = 1 ! plot spans this number of rows -Grid1_plot_col(1) = 1 ! number from 1 at left -Grid1_plot_colspan(1) = 3 ! plot spans this number of columns +Grid_plot_name(1, 1) = 'Text_Summary1' +Grid_plot_row(1, 1) = 1 ! number from 1 at top +Grid_plot_rowspan(1, 1) = 1 ! plot spans this number of rows +Grid_plot_col(1, 1) = 1 ! number from 1 at left +Grid_plot_colspan(1, 1) = 3 ! plot spans this number of columns -Grid1_plot_pad_left(1) = -0.03 ! fraction of full window width for padding on left -Grid1_plot_pad_right(1) = 0.0 ! fraction of full window width for padding on right -Grid1_plot_pad_top(1) = -0.06 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(1) = 0.07 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(1) = 1 ! 0.8 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 1) = -0.03 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 1) = 0.0 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 1) = -0.06 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 1) = 0.07 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 1) = 1 ! 0.8 ! multiply txt_scale for subplot by this -Grid1_plot_name(3) = 'TRho' -Grid1_plot_row(3) = 2 ! number from 1 at top -Grid1_plot_rowspan(3) = 1 ! plot spans this number of rows -Grid1_plot_col(3) = 1 ! number from 1 at left -Grid1_plot_colspan(3) = 1 ! plot spans this number of columns +Grid_plot_name(1, 3) = 'TRho' +Grid_plot_row(1, 3) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 3) = 1 ! plot spans this number of rows +Grid_plot_col(1, 3) = 1 ! number from 1 at left +Grid_plot_colspan(1, 3) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(3) = 0.00 ! fraction of full window width for padding on left -Grid1_plot_pad_right(3) = 0.08 ! fraction of full window width for padding on right -Grid1_plot_pad_top(3) = -0.04 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(3) = 0.01 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(3) = 0.7 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 3) = 0.00 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 3) = 0.08 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 3) = -0.04 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 3) = 0.01 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 3) = 0.7 ! multiply txt_scale for subplot by this -Grid1_plot_name(5) = 'Profile_Panels1' -Grid1_plot_row(5) = 3 ! number from 1 at top -Grid1_plot_rowspan(5) = 3 ! plot spans this number of rows -Grid1_plot_col(5) = 1 ! number from 1 at left -Grid1_plot_colspan(5) = 1 ! plot spans this number of columns +Grid_plot_name(1, 5) = 'Profile_Panels1' +Grid_plot_row(1, 5) = 3 ! number from 1 at top +Grid_plot_rowspan(1, 5) = 3 ! plot spans this number of rows +Grid_plot_col(1, 5) = 1 ! number from 1 at left +Grid_plot_colspan(1, 5) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(5) = 0.00 ! fraction of full window width for padding on left -Grid1_plot_pad_right(5) = 0.10 ! fraction of full window width for padding on right -Grid1_plot_pad_top(5) = 0.05 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(5) = 0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(5) = 0.6 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 5) = 0.00 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 5) = 0.10 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 5) = 0.05 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 5) = 0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 5) = 0.6 ! multiply txt_scale for subplot by this -Grid1_plot_name(2) = 'TRho_Profile' -Grid1_plot_row(2) = 2 ! number from 1 at top -Grid1_plot_rowspan(2) = 1 ! plot spans this number of rows -Grid1_plot_col(2) = 2 ! number from 1 at left -Grid1_plot_colspan(2) = 1 ! plot spans this number of columns +Grid_plot_name(1, 2) = 'TRho_Profile' +Grid_plot_row(1, 2) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 2) = 1 ! plot spans this number of rows +Grid_plot_col(1, 2) = 2 ! number from 1 at left +Grid_plot_colspan(1, 2) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(2) = -0.01 ! fraction of full window width for padding on left -Grid1_plot_pad_right(2) = 0.06 ! fraction of full window width for padding on right -Grid1_plot_pad_top(2) = -0.04 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(2) = 0.01 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 2) = -0.01 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 2) = 0.06 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 2) = -0.04 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 2) = 0.01 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 2) = 0.7 ! multiply txt_scale for subplot by this -Grid1_plot_name(4) = 'History_Panels1' -Grid1_plot_row(4) = 3 ! number from 1 at top -Grid1_plot_rowspan(4) = 3 ! plot spans this number of rows -Grid1_plot_col(4) = 2 ! number from 1 at left -Grid1_plot_colspan(4) = 1 ! plot spans this number of columns +Grid_plot_name(1, 4) = 'History_Panels1' +Grid_plot_row(1, 4) = 3 ! number from 1 at top +Grid_plot_rowspan(1, 4) = 3 ! plot spans this number of rows +Grid_plot_col(1, 4) = 2 ! number from 1 at left +Grid_plot_colspan(1, 4) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(4) = 0.00 ! fraction of full window width for padding on left -Grid1_plot_pad_right(4) = 0.06 ! fraction of full window width for padding on right -Grid1_plot_pad_top(4) = 0.05 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(4) = 0.0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(4) = 0.6 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 4) = 0.00 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 4) = 0.06 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 4) = 0.05 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 4) = 0.0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 4) = 0.6 ! multiply txt_scale for subplot by this -Grid1_plot_name(6) = 'Profile_Panels3' -Grid1_plot_row(6) = 2 ! number from 1 at top -Grid1_plot_rowspan(6) = 4 ! plot spans this number of rows -Grid1_plot_col(6) = 3 ! Number from 1 at left -Grid1_plot_colspan(6) = 1 ! plot spans this number of columns +Grid_plot_name(1, 6) = 'Profile_Panels3' +Grid_plot_row(1, 6) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 6) = 4 ! plot spans this number of rows +Grid_plot_col(1, 6) = 3 ! Number from 1 at left +Grid_plot_colspan(1, 6) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(6) = 0.04 ! fraction of full window width for padding on left -Grid1_plot_pad_right(6) = 0.06 ! fraction of full window width for padding on right -Grid1_plot_pad_top(6) = -0.04 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(6) = 0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(6) = 0.6 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 6) = 0.04 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 6) = 0.06 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 6) = -0.04 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 6) = 0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 6) = 0.6 ! multiply txt_scale for subplot by this !------------------------------------------------------------------------------------ -Profile_Panels3_win_flag = .false. +Profile_Panels_win_flag(3) = .false. -Profile_Panels3_title = '' +Profile_Panels_title(3) = '' -Profile_Panels3_num_panels = 5 +Profile_Panels_num_panels(3) = 5 -Profile_Panels3_yaxis_name(1) = 'Abundance' +Profile_Panels_yaxis_name(3, 1) = 'Abundance' -Profile_Panels3_yaxis_name(2) = 'Power' +Profile_Panels_yaxis_name(3, 2) = 'Power' -Profile_Panels3_yaxis_name(3) = 'Mixing' +Profile_Panels_yaxis_name(3, 3) = 'Mixing' Mixing_legend_txt_scale_factor = 0.9 -Profile_Panels3_yaxis_name(4) = 'logRho' -Profile_Panels3_other_yaxis_name(4) = 'vel_km_per_s' ! 'entropy' +Profile_Panels_yaxis_name(3, 4) = 'logRho' +Profile_Panels_other_yaxis_name(3, 4) = 'vel_km_per_s' ! 'entropy' -Profile_Panels3_yaxis_name(5) = 'logT' -Profile_Panels3_other_yaxis_name(5) = 'burn_num_iters' +Profile_Panels_yaxis_name(3, 5) = 'logT' +Profile_Panels_other_yaxis_name(3, 5) = 'burn_num_iters' ! x-axis limits and properties -Profile_Panels3_xaxis_name = 'mass' -Profile_Panels3_xmin = 0.0 -Profile_Panels3_xmax = -101d0 ! 2.2 -Profile_Panels3_xaxis_reversed = .false. +Profile_Panels_xaxis_name(3) = 'mass' +Profile_Panels_xmin(3) = 0.0 +Profile_Panels_xmax(3) = -101d0 ! 2.2 +Profile_Panels_xaxis_reversed(3) = .false. -Profile_Panels3_txt_scale = 0.7 +Profile_Panels_txt_scale(3) = 0.7 -!Profile_Panels3_xaxis_name = 'zone' -!Profile_Panels3_xmin = 800 -!Profile_Panels3_xmax = 1100 -!Profile_Panels3_xaxis_reversed = .true. +!Profile_Panels_xaxis_name(3) = 'zone' +!Profile_Panels_xmin(3) = 800 +!Profile_Panels_xmax(3) = 1100 +!Profile_Panels_xaxis_reversed(3) = .true. -!Profile_Panels3_show_grid = .true. -Profile_Panels3_show_mix_regions_on_xaxis = .true. +!Profile_Panels_show_grid(3) = .true. +Profile_Panels_show_mix_regions_on_xaxis(3) = .true. !------------------------------------------------------------------------------------ -!Profile_Panels1_win_flag = .true. -!Profile_Panels1_file_flag = .true. - Profile_Panels1_file_dir = 'png' - Profile_Panels1_file_prefix = 'profile_panels1_' - Profile_Panels1_file_interval = 1 - Profile_Panels1_file_width = -1 - Profile_Panels1_file_aspect_ratio = -1 +!Profile_Panels_win_flag(1) = .true. +!Profile_Panels_file_flag(1) = .true. + Profile_Panels_file_dir(1) = 'png' + Profile_Panels_file_prefix(1) = 'profile_panels1_' + Profile_Panels_file_interval(1) = 1 + Profile_Panels_file_width(1) = -1 + Profile_Panels_file_aspect_ratio(1) = -1 -Profile_Panels1_title = '' +Profile_Panels_title(1) = '' -Profile_Panels1_txt_scale = 0.7 +Profile_Panels_txt_scale(1) = 0.7 -Profile_Panels1_num_panels = 4 +Profile_Panels_num_panels(1) = 4 -Profile_Panels1_yaxis_name(1) = 'logRho' -Profile_Panels1_other_yaxis_name(1) = 'logT' +Profile_Panels_yaxis_name(1, 1) = 'logRho' +Profile_Panels_other_yaxis_name(1, 1) = 'logT' -Profile_Panels1_yaxis_name(2) = 'entropy' -Profile_Panels1_other_yaxis_name(2) = 'pgas_div_p' +Profile_Panels_yaxis_name(1, 2) = 'entropy' +Profile_Panels_other_yaxis_name(1, 2) = 'pgas_div_p' -Profile_Panels1_yaxis_name(3) = 'gradT' -Profile_Panels1_other_yaxis_name(3) = 'grada' -Profile_Panels1_same_yaxis_range(3) = .true. +Profile_Panels_yaxis_name(1, 3) = 'gradT' +Profile_Panels_other_yaxis_name(1, 3) = 'grada' +Profile_Panels_same_yaxis_range(1, 3) = .true. -Profile_Panels1_yaxis_name(4) = 'log_opacity' -Profile_Panels1_other_yaxis_name(4) = 'gradr' +Profile_Panels_yaxis_name(1, 4) = 'log_opacity' +Profile_Panels_other_yaxis_name(1, 4) = 'gradr' ! x-axis limits and properties -Profile_Panels1_xaxis_name = 'logtau' -Profile_Panels1_xmin = -101d0 -Profile_Panels1_xmax = 6.1 -Profile_Panels1_xaxis_reversed = .true. +Profile_Panels_xaxis_name(1) = 'logtau' +Profile_Panels_xmin(1) = -101d0 +Profile_Panels_xmax(1) = 6.1 +Profile_Panels_xaxis_reversed(1) = .true. -!Profile_Panels1_xaxis_name = 'zone' -!Profile_Panels1_xmin = 15 -!Profile_Panels1_xmax = 270 -!Profile_Panels1_xaxis_reversed = .true. +!Profile_Panels_xaxis_name(1) = 'zone' +!Profile_Panels_xmin(1) = 15 +!Profile_Panels_xmax(1) = 270 +!Profile_Panels_xaxis_reversed(1) = .true. -!Profile_Panels1_show_grid = .true. -Profile_Panels1_show_mix_regions_on_xaxis = .true. +!Profile_Panels_show_grid(1) = .true. +Profile_Panels_show_mix_regions_on_xaxis(1) = .true. !------------------------------------------------------------------------------------ @@ -298,56 +298,56 @@ profile_mass_point_str_clr(3) = 1 ! Text_Summary windows -Text_Summary1_win_flag = .false. -Text_Summary1_win_width = 10 -Text_Summary1_win_aspect_ratio = 0.15 - -Text_Summary1_xleft = 0.01 -Text_Summary1_xright = 0.99 -Text_Summary1_ybot = 0.0 -Text_Summary1_ytop = 1.0 -Text_Summary1_txt_scale = 0.95 -Text_Summary1_title = '' - -Text_Summary1_num_rows = 6 ! <= 20 -Text_Summary1_num_cols = 5 ! <= 20 -Text_Summary1_name(:,:) = '' - -Text_Summary1_name(1,1) = 'model_number' -Text_Summary1_name(1,2) = 'Teff' -Text_Summary1_name(1,3) = 'Mass' -Text_Summary1_name(1,4) = 'H_cntr' -Text_Summary1_name(1,5) = 'H_rich' - -Text_Summary1_name(2,1) = 'log_dt' -Text_Summary1_name(2,2) = 'log_R' -Text_Summary1_name(2,3) = 'lg_Mdot' -Text_Summary1_name(2,4) = 'He_cntr' -Text_Summary1_name(2,5) = 'He_core' - -Text_Summary1_name(3,1) = 'star_age' -Text_Summary1_name(3,2) = 'log_L' -Text_Summary1_name(3,3) = 'eta_cntr' -Text_Summary1_name(3,4) = 'C_cntr' -Text_Summary1_name(3,5) = 'CO_core' - -Text_Summary1_name(4,1) = 'log_max_T' -Text_Summary1_name(4,2) = 'log_LH' -Text_Summary1_name(4,3) = 'lg_Lnuc' -Text_Summary1_name(4,4) = 'O_cntr' -Text_Summary1_name(4,5) = 'Fe_core' - -Text_Summary1_name(5,1) = 'log_cntr_T' -Text_Summary1_name(5,2) = 'log_LHe' -Text_Summary1_name(5,3) = 'lg_Lneu' -Text_Summary1_name(5,4) = 'Ne_cntr' -Text_Summary1_name(5,5) = 'zones' - -Text_Summary1_name(6,1) = 'log_cntr_Rho' -Text_Summary1_name(6,2) = 'log_LZ' -Text_Summary1_name(6,3) = 'lg_Lphoto' -Text_Summary1_name(6,4) = 'Si_cntr' -Text_Summary1_name(6,5) = 'retries' +Text_Summary_win_flag(1) = .false. +Text_Summary_win_width(1) = 10 +Text_Summary_win_aspect_ratio(1) = 0.15 + +Text_Summary_xleft(1) = 0.01 +Text_Summary_xright(1) = 0.99 +Text_Summary_ybot(1) = 0.0 +Text_Summary_ytop(1) = 1.0 +Text_Summary_txt_scale(1) = 0.95 +Text_Summary_title(1) = '' + +Text_Summary_num_rows(1) = 6 ! <= 20 +Text_Summary_num_cols(1) = 5 ! <= 20 +Text_Summary_name(1, :, :) = '' + +Text_Summary_name(1, 1, 1) = 'model_number' +Text_Summary_name(1, 1, 2) = 'Teff' +Text_Summary_name(1, 1, 3) = 'Mass' +Text_Summary_name(1, 1, 4) = 'H_cntr' +Text_Summary_name(1, 1, 5) = 'H_rich' + +Text_Summary_name(1, 2, 1) = 'log_dt' +Text_Summary_name(1, 2, 2) = 'log_R' +Text_Summary_name(1, 2, 3) = 'lg_Mdot' +Text_Summary_name(1, 2, 4) = 'He_cntr' +Text_Summary_name(1, 2, 5) = 'He_core' + +Text_Summary_name(1, 3, 1) = 'star_age' +Text_Summary_name(1, 3, 2) = 'log_L' +Text_Summary_name(1, 3, 3) = 'eta_cntr' +Text_Summary_name(1, 3, 4) = 'C_cntr' +Text_Summary_name(1, 3, 5) = 'CO_core' + +Text_Summary_name(1, 4, 1) = 'log_max_T' +Text_Summary_name(1, 4, 2) = 'log_LH' +Text_Summary_name(1, 4, 3) = 'lg_Lnuc' +Text_Summary_name(1, 4, 4) = 'O_cntr' +Text_Summary_name(1, 4, 5) = 'Fe_core' + +Text_Summary_name(1, 5, 1) = 'log_cntr_T' +Text_Summary_name(1, 5, 2) = 'log_LHe' +Text_Summary_name(1, 5, 3) = 'lg_Lneu' +Text_Summary_name(1, 5, 4) = 'Ne_cntr' +Text_Summary_name(1, 5, 5) = 'zones' + +Text_Summary_name(1, 6, 1) = 'log_cntr_Rho' +Text_Summary_name(1, 6, 2) = 'log_LZ' +Text_Summary_name(1, 6, 3) = 'lg_Lphoto' +Text_Summary_name(1, 6, 4) = 'Si_cntr' +Text_Summary_name(1, 6, 5) = 'retries' !------------------------------------------------------------------------------------ @@ -563,88 +563,88 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window !----------------------------------------------------------------------- - History_Panels1_title = '' + History_Panels_title(1) = '' - History_Panels1_xaxis_name = 'model_number' - History_Panels1_max_width = -1 + History_Panels_xaxis_name(1) = 'model_number' + History_Panels_max_width(1) = -1 - !History_Panels1_xaxis_name = 'star_age' - !History_Panels1_max_width = 10 + !History_Panels_xaxis_name(1) = 'star_age' + !History_Panels_max_width(1) = 10 - History_Panels1_txt_scale = 0.75 - History_Panels1_xmin = -101d0 - History_Panels1_xmax = -101d0 - History_Panels1_dxmin = -1 - History_Panels1_xaxis_reversed = .false. - History_Panels1_xaxis_log = .false. - History_Panels1_xmargin = 0.0 + History_Panels_txt_scale(1) = 0.75 + History_Panels_xmin(1) = -101d0 + History_Panels_xmax(1) = -101d0 + History_Panels_dxmin(1) = -1 + History_Panels_xaxis_reversed(1) = .false. + History_Panels_xaxis_log(1) = .false. + History_Panels_xmargin(1) = 0.0 ! :: - History_Panels1_num_panels = 4 + History_Panels_num_panels(1) = 4 ! :: - History_Panels1_yaxis_name(1) = 'log_L' - History_Panels1_yaxis_reversed(1) = .false. - History_Panels1_ymin(1) = -101d0 - History_Panels1_ymax(1) = -101d0 - History_Panels1_dymin(1) = 0.1 + History_Panels_yaxis_name(1, 1) = 'log_L' + History_Panels_yaxis_reversed(1, 1) = .false. + History_Panels_ymin(1, 1) = -101d0 + History_Panels_ymax(1, 1) = -101d0 + History_Panels_dymin(1, 1) = 0.1 ! :: - History_Panels1_other_yaxis_name(1) = 'log_Teff' - History_Panels1_other_yaxis_reversed(1) = .false. - History_Panels1_other_ymin(1) = -101d0 - History_Panels1_other_ymax(1) = -101d0 - History_Panels1_other_dymin(1) = 0.1 + History_Panels_other_yaxis_name(1, 1) = 'log_Teff' + History_Panels_other_yaxis_reversed(1, 1) = .false. + History_Panels_other_ymin(1, 1) = -101d0 + History_Panels_other_ymax(1, 1) = -101d0 + History_Panels_other_dymin(1, 1) = 0.1 ! :: - History_Panels1_yaxis_name(2) = 'log_R' - History_Panels1_yaxis_reversed(2) = .false. - History_Panels1_ymin(2) = -101d0 - History_Panels1_ymax(2) = -101d0 - History_Panels1_dymin(2) = 0.1 + History_Panels_yaxis_name(1, 2) = 'log_R' + History_Panels_yaxis_reversed(1, 2) = .false. + History_Panels_ymin(1, 2) = -101d0 + History_Panels_ymax(1, 2) = -101d0 + History_Panels_dymin(1, 2) = 0.1 ! :: - History_Panels1_other_yaxis_name(2) = 'v_div_cs' ! 'v_surf_km_s' - History_Panels1_other_yaxis_reversed(2) = .false. - History_Panels1_other_ymin(2) = -101d0 - History_Panels1_other_ymax(2) = -101d0 - History_Panels1_other_dymin(2) = 7d-5 + History_Panels_other_yaxis_name(1, 2) = 'v_div_cs' ! 'v_surf_km_s' + History_Panels_other_yaxis_reversed(1, 2) = .false. + History_Panels_other_ymin(1, 2) = -101d0 + History_Panels_other_ymax(1, 2) = -101d0 + History_Panels_other_dymin(1, 2) = 7d-5 ! :: - History_Panels1_yaxis_name(3) = 'log_cntr_Rho' - History_Panels1_yaxis_reversed(3) = .false. - History_Panels1_ymin(3) = -101d0 - History_Panels1_ymax(3) = -101d0 - History_Panels1_dymin(3) = -1 + History_Panels_yaxis_name(1, 3) = 'log_cntr_Rho' + History_Panels_yaxis_reversed(1, 3) = .false. + History_Panels_ymin(1, 3) = -101d0 + History_Panels_ymax(1, 3) = -101d0 + History_Panels_dymin(1, 3) = -1 ! :: - History_Panels1_other_yaxis_name(3) = 'log_max_T' - History_Panels1_other_yaxis_reversed(3) = .false. - History_Panels1_other_ymin(3) = -101d0 - History_Panels1_other_ymax(3) = -101d0 - History_Panels1_other_dymin(3) = -1 + History_Panels_other_yaxis_name(1, 3) = 'log_max_T' + History_Panels_other_yaxis_reversed(1, 3) = .false. + History_Panels_other_ymin(1, 3) = -101d0 + History_Panels_other_ymax(1, 3) = -101d0 + History_Panels_other_dymin(1, 3) = -1 ! :: - History_Panels1_yaxis_name(4) = 'retries' - History_Panels1_yaxis_reversed(4) = .false. - History_Panels1_ymin(4) = -101d0 - History_Panels1_ymax(4) = -101d0 - History_Panels1_dymin(4) = -1 + History_Panels_yaxis_name(1, 4) = 'retries' + History_Panels_yaxis_reversed(1, 4) = .false. + History_Panels_ymin(1, 4) = -101d0 + History_Panels_ymax(1, 4) = -101d0 + History_Panels_dymin(1, 4) = -1 ! :: - History_Panels1_other_yaxis_name(4) = 'log_dt' - History_Panels1_other_yaxis_reversed(4) = .false. - History_Panels1_other_ymin(4) = -101d0 - History_Panels1_other_ymax(4) = -101d0 - History_Panels1_other_dymin(4) = -1 + History_Panels_other_yaxis_name(1, 4) = 'log_dt' + History_Panels_other_yaxis_reversed(1, 4) = .false. + History_Panels_other_ymin(1, 4) = -101d0 + History_Panels_other_ymax(1, 4) = -101d0 + History_Panels_other_dymin(1, 4) = -1 !----------------------------------------------------------------------- diff --git a/star/test_suite/twin_studies/README.rst b/star/test_suite/twin_studies/README.rst index a676af1fd..0c8d63117 100644 --- a/star/test_suite/twin_studies/README.rst +++ b/star/test_suite/twin_studies/README.rst @@ -35,7 +35,7 @@ for star 1: pgstar_interval = 1 - Grid1_title = 'star1 - with overshooting' + Grid_title(1) = 'star1 - with overshooting' file_white_on_black_flag = .true. ! white_on_black flags -- true means white foreground color on black background !file_device = 'png' ! png @@ -44,10 +44,10 @@ for star 1: file_device = 'vcps' ! postscript file_extension = 'ps' - Grid1_file_flag = .true. - Grid1_file_dir = 'png1' - Grid1_file_prefix = 'star1' - Grid1_file_interval = 10 + Grid_file_flag(1) = .true. + Grid_file_dir(1) = 'png1' + Grid_file_prefix(1) = 'star1' + Grid_file_interval(1) = 10 / ! end of pgstar namelist @@ -67,12 +67,12 @@ and for star 2: file_device = 'vcps' ! postscript file_extension = 'ps' - Grid1_title = 'star2 - without overshooting' + Grid_title(1) = 'star2 - without overshooting' - Grid1_file_flag = .true. - Grid1_file_dir = 'png2' - Grid1_file_prefix = 'star2' - Grid1_file_interval = 10 + Grid_file_flag(1) = .true. + Grid_file_dir(1) = 'png2' + Grid_file_prefix(1) = 'star2' + Grid_file_interval(1) = 10 / ! end of pgstar namelist diff --git a/star/test_suite/twin_studies/inlist_pgstar b/star/test_suite/twin_studies/inlist_pgstar index db50d93e2..e0e7aba2c 100644 --- a/star/test_suite/twin_studies/inlist_pgstar +++ b/star/test_suite/twin_studies/inlist_pgstar @@ -15,204 +15,204 @@ pgstar_show_age = .false. !------------------------------------------------------------------------------------ -Grid1_win_flag = .true. -Grid1_win_width = 9 -Grid1_win_aspect_ratio = 0.8 ! 0.666 +Grid_win_flag(1) = .true. +Grid_win_width(1) = 9 +Grid_win_aspect_ratio(1) = 0.8 ! 0.666 ! file output -!Grid1_file_flag = .true. -Grid1_file_dir = 'png' -Grid1_file_prefix = 'png_' -Grid1_file_interval = 25 ! output when mod(model_number,Grid1_file_interval)==0 -Grid1_file_width = -1 ! (inches) negative means use same value as for window -Grid1_file_aspect_ratio = -1 ! negative means use same value as for window +!Grid_file_flag(1) = .true. +Grid_file_dir(1) = 'png' +Grid_file_prefix(1) = 'png_' +Grid_file_interval(1) = 25 ! output when mod(model_number,Grid_file_interval(1))==0 +Grid_file_width(1) = -1 ! (inches) negative means use same value as for window +Grid_file_aspect_ratio(1) = -1 ! negative means use same value as for window ! reset the defaults -Grid1_plot_name(:) = '' -Grid1_plot_row(:) = 1 ! number from 1 at top -Grid1_plot_rowspan(:) = 1 ! plot spans this number of rows -Grid1_plot_col(:) = 1 ! number from 1 at left -Grid1_plot_colspan(:) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(:) = 0.0 ! fraction of full window width for padding on left -Grid1_plot_pad_right(:) = 0.0 ! fraction of full window width for padding on right -Grid1_plot_pad_top(:) = 0.0 ! fraction of full window height for paddin g at top -Grid1_plot_pad_bot(:) = 0.0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(:) = 0.7 ! multiply txt_scale for subplot by this +Grid_plot_name(1, :) = '' +Grid_plot_row(1, :) = 1 ! number from 1 at top +Grid_plot_rowspan(1, :) = 1 ! plot spans this number of rows +Grid_plot_col(1, :) = 1 ! number from 1 at left +Grid_plot_colspan(1, :) = 1 ! plot spans this number of columns +Grid_plot_pad_left(1, :) = 0.0 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, :) = 0.0 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, :) = 0.0 ! fraction of full window height for paddin g at top +Grid_plot_pad_bot(1, :) = 0.0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, :) = 0.7 ! multiply txt_scale for subplot by this -Grid1_title = '' +Grid_title(1) = '' -Grid1_num_cols = 3 ! divide plotting region into this many equal width cols -Grid1_num_rows = 5 ! divide plotting region into this many equal height rows -Grid1_num_plots = 6 ! <= 10 +Grid_num_cols(1) = 3 ! divide plotting region into this many equal width cols +Grid_num_rows(1) = 5 ! divide plotting region into this many equal height rows +Grid_num_plots(1) = 6 ! <= 10 -Grid1_plot_name(1) = 'Text_Summary1' -Grid1_plot_row(1) = 1 ! number from 1 at top -Grid1_plot_rowspan(1) = 1 ! plot spans this number of rows -Grid1_plot_col(1) = 1 ! number from 1 at left -Grid1_plot_colspan(1) = 3 ! plot spans this number of columns +Grid_plot_name(1, 1) = 'Text_Summary1' +Grid_plot_row(1, 1) = 1 ! number from 1 at top +Grid_plot_rowspan(1, 1) = 1 ! plot spans this number of rows +Grid_plot_col(1, 1) = 1 ! number from 1 at left +Grid_plot_colspan(1, 1) = 3 ! plot spans this number of columns -Grid1_plot_pad_left(1) = -0.03 ! fraction of full window width for padding on left -Grid1_plot_pad_right(1) = 0.0 ! fraction of full window width for padding on right -Grid1_plot_pad_top(1) = -0.03 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(1) = 0.07 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(1) = 1 ! 0.8 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 1) = -0.03 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 1) = 0.0 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 1) = -0.03 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 1) = 0.07 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 1) = 1 ! 0.8 ! multiply txt_scale for subplot by this -Grid1_plot_name(3) = 'TRho' -Grid1_plot_row(3) = 2 ! number from 1 at top -Grid1_plot_rowspan(3) = 1 ! plot spans this number of rows -Grid1_plot_col(3) = 1 ! number from 1 at left -Grid1_plot_colspan(3) = 1 ! plot spans this number of columns +Grid_plot_name(1, 3) = 'TRho' +Grid_plot_row(1, 3) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 3) = 1 ! plot spans this number of rows +Grid_plot_col(1, 3) = 1 ! number from 1 at left +Grid_plot_colspan(1, 3) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(3) = 0.00 ! fraction of full window width for padding on left -Grid1_plot_pad_right(3) = 0.08 ! fraction of full window width for padding on right -Grid1_plot_pad_top(3) = -0.04 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(3) = 0.01 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(3) = 0.7 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 3) = 0.00 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 3) = 0.08 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 3) = -0.04 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 3) = 0.01 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 3) = 0.7 ! multiply txt_scale for subplot by this -Grid1_plot_name(5) = 'Profile_Panels1' -Grid1_plot_row(5) = 3 ! number from 1 at top -Grid1_plot_rowspan(5) = 3 ! plot spans this number of rows -Grid1_plot_col(5) = 1 ! number from 1 at left -Grid1_plot_colspan(5) = 1 ! plot spans this number of columns +Grid_plot_name(1, 5) = 'Profile_Panels1' +Grid_plot_row(1, 5) = 3 ! number from 1 at top +Grid_plot_rowspan(1, 5) = 3 ! plot spans this number of rows +Grid_plot_col(1, 5) = 1 ! number from 1 at left +Grid_plot_colspan(1, 5) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(5) = 0.00 ! fraction of full window width for padding on left -Grid1_plot_pad_right(5) = 0.10 ! fraction of full window width for padding on right -Grid1_plot_pad_top(5) = 0.05 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(5) = 0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(5) = 0.6 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 5) = 0.00 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 5) = 0.10 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 5) = 0.05 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 5) = 0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 5) = 0.6 ! multiply txt_scale for subplot by this -Grid1_plot_name(2) = 'TRho_Profile' -Grid1_plot_row(2) = 2 ! number from 1 at top -Grid1_plot_rowspan(2) = 1 ! plot spans this number of rows -Grid1_plot_col(2) = 2 ! number from 1 at left -Grid1_plot_colspan(2) = 1 ! plot spans this number of columns +Grid_plot_name(1, 2) = 'TRho_Profile' +Grid_plot_row(1, 2) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 2) = 1 ! plot spans this number of rows +Grid_plot_col(1, 2) = 2 ! number from 1 at left +Grid_plot_colspan(1, 2) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(2) = -0.01 ! fraction of full window width for padding on left -Grid1_plot_pad_right(2) = 0.06 ! fraction of full window width for padding on right -Grid1_plot_pad_top(2) = -0.04 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(2) = 0.01 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 2) = -0.01 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 2) = 0.06 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 2) = -0.04 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 2) = 0.01 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 2) = 0.7 ! multiply txt_scale for subplot by this -Grid1_plot_name(4) = 'History_Panels1' -Grid1_plot_row(4) = 3 ! number from 1 at top -Grid1_plot_rowspan(4) = 3 ! plot spans this number of rows -Grid1_plot_col(4) = 2 ! number from 1 at left -Grid1_plot_colspan(4) = 1 ! plot spans this number of columns +Grid_plot_name(1, 4) = 'History_Panels1' +Grid_plot_row(1, 4) = 3 ! number from 1 at top +Grid_plot_rowspan(1, 4) = 3 ! plot spans this number of rows +Grid_plot_col(1, 4) = 2 ! number from 1 at left +Grid_plot_colspan(1, 4) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(4) = 0.00 ! fraction of full window width for padding on left -Grid1_plot_pad_right(4) = 0.06 ! fraction of full window width for padding on right -Grid1_plot_pad_top(4) = 0.05 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(4) = 0.0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(4) = 0.6 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 4) = 0.00 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 4) = 0.06 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 4) = 0.05 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 4) = 0.0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 4) = 0.6 ! multiply txt_scale for subplot by this -Grid1_plot_name(6) = 'Profile_Panels3' -Grid1_plot_row(6) = 2 ! number from 1 at top -Grid1_plot_rowspan(6) = 4 ! plot spans this number of rows -Grid1_plot_col(6) = 3 ! Number from 1 at left -Grid1_plot_colspan(6) = 1 ! plot spans this number of columns +Grid_plot_name(1, 6) = 'Profile_Panels3' +Grid_plot_row(1, 6) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 6) = 4 ! plot spans this number of rows +Grid_plot_col(1, 6) = 3 ! Number from 1 at left +Grid_plot_colspan(1, 6) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(6) = 0.04 ! fraction of full window width for padding on left -Grid1_plot_pad_right(6) = 0.06 ! fraction of full window width for padding on right -Grid1_plot_pad_top(6) = -0.04 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(6) = 0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(6) = 0.6 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 6) = 0.04 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 6) = 0.06 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 6) = -0.04 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 6) = 0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 6) = 0.6 ! multiply txt_scale for subplot by this !------------------------------------------------------------------------------------ -Profile_Panels3_win_flag = .false. +Profile_Panels_win_flag(3) = .false. -Profile_Panels3_title = '' +Profile_Panels_title(3) = '' -Profile_Panels3_num_panels = 5 +Profile_Panels_num_panels(3) = 5 -Profile_Panels3_yaxis_name(1) = 'Abundance' +Profile_Panels_yaxis_name(3, 1) = 'Abundance' -Profile_Panels3_yaxis_name(2) = 'Power' +Profile_Panels_yaxis_name(3, 2) = 'Power' -Profile_Panels3_yaxis_name(3) = 'Mixing' +Profile_Panels_yaxis_name(3, 3) = 'Mixing' Mixing_legend_txt_scale_factor = 0.9 -Profile_Panels3_yaxis_name(4) = 'logRho' -Profile_Panels3_other_yaxis_name(4) = 'vel_km_per_s' ! 'entropy' -Profile_Panels3_other_dymin(4) = 0.14 +Profile_Panels_yaxis_name(3, 4) = 'logRho' +Profile_Panels_other_yaxis_name(3, 4) = 'vel_km_per_s' ! 'entropy' +Profile_Panels_other_dymin(3, 4) = 0.14 -Profile_Panels3_yaxis_name(5) = 'logT' -Profile_Panels3_other_yaxis_name(5) = 'burn_num_iters' +Profile_Panels_yaxis_name(3, 5) = 'logT' +Profile_Panels_other_yaxis_name(3, 5) = 'burn_num_iters' ! x-axis limits and properties -Profile_Panels3_xaxis_name = 'mass' -Profile_Panels3_xmin = 0.0 -Profile_Panels3_xmax = -101d0 ! 2.2 -Profile_Panels3_xaxis_reversed = .false. +Profile_Panels_xaxis_name(3) = 'mass' +Profile_Panels_xmin(3) = 0.0 +Profile_Panels_xmax(3) = -101d0 ! 2.2 +Profile_Panels_xaxis_reversed(3) = .false. -Profile_Panels3_txt_scale = 0.7 +Profile_Panels_txt_scale(3) = 0.7 -!Profile_Panels3_xaxis_name = 'zone' -!Profile_Panels3_xmin = 800 -!Profile_Panels3_xmax = 1100 -!Profile_Panels3_xaxis_reversed = .true. +!Profile_Panels_xaxis_name(3) = 'zone' +!Profile_Panels_xmin(3) = 800 +!Profile_Panels_xmax(3) = 1100 +!Profile_Panels_xaxis_reversed(3) = .true. -!Profile_Panels3_show_grid = .true. -Profile_Panels3_show_mix_regions_on_xaxis = .true. +!Profile_Panels_show_grid(3) = .true. +Profile_Panels_show_mix_regions_on_xaxis(3) = .true. !------------------------------------------------------------------------------------ -!Profile_Panels1_win_flag = .true. -!Profile_Panels1_file_flag = .true. - Profile_Panels1_file_dir = 'png' - Profile_Panels1_file_prefix = 'profile_panels1_' - Profile_Panels1_file_interval = 1 - Profile_Panels1_file_width = -1 - Profile_Panels1_file_aspect_ratio = -1 +!Profile_Panels_win_flag(1) = .true. +!Profile_Panels_file_flag(1) = .true. + Profile_Panels_file_dir(1) = 'png' + Profile_Panels_file_prefix(1) = 'profile_panels1_' + Profile_Panels_file_interval(1) = 1 + Profile_Panels_file_width(1) = -1 + Profile_Panels_file_aspect_ratio(1) = -1 -Profile_Panels1_title = '' +Profile_Panels_title(1) = '' -Profile_Panels1_txt_scale = 0.7 +Profile_Panels_txt_scale(1) = 0.7 -Profile_Panels1_num_panels = 4 +Profile_Panels_num_panels(1) = 4 -Profile_Panels1_yaxis_name(1) = 'logRho' -Profile_Panels1_dymin(1) = 0.1 -Profile_Panels1_other_yaxis_name(1) = 'logT' -Profile_Panels1_other_dymin(1) = 0.14 +Profile_Panels_yaxis_name(1, 1) = 'logRho' +Profile_Panels_dymin(1, 1) = 0.1 +Profile_Panels_other_yaxis_name(1, 1) = 'logT' +Profile_Panels_other_dymin(1, 1) = 0.14 -Profile_Panels1_yaxis_name(2) = 'entropy' -Profile_Panels1_other_yaxis_name(2) = 'pgas_div_p' +Profile_Panels_yaxis_name(1, 2) = 'entropy' +Profile_Panels_other_yaxis_name(1, 2) = 'pgas_div_p' -Profile_Panels1_yaxis_name(3) = 'gradT' -Profile_Panels1_other_yaxis_name(3) = 'grada' -Profile_Panels1_same_yaxis_range(3) = .true. -Profile_Panels1_other_dymin(3) = 0.08 +Profile_Panels_yaxis_name(1, 3) = 'gradT' +Profile_Panels_other_yaxis_name(1, 3) = 'grada' +Profile_Panels_same_yaxis_range(1, 3) = .true. +Profile_Panels_other_dymin(1, 3) = 0.08 -Profile_Panels1_yaxis_name(4) = 'log_opacity' -Profile_Panels1_dymin(1) = 0.1 -Profile_Panels1_other_yaxis_name(4) = 'gradr' -Profile_Panels1_other_dymin(1) = 0.14 +Profile_Panels_yaxis_name(1, 4) = 'log_opacity' +Profile_Panels_dymin(1, 1) = 0.1 +Profile_Panels_other_yaxis_name(1, 4) = 'gradr' +Profile_Panels_other_dymin(1, 1) = 0.14 ! x-axis limits and properties -Profile_Panels1_xaxis_name = 'logtau' -Profile_Panels1_xmin = -101d0 -Profile_Panels1_xmax = 6.1 -Profile_Panels1_xaxis_reversed = .true. +Profile_Panels_xaxis_name(1) = 'logtau' +Profile_Panels_xmin(1) = -101d0 +Profile_Panels_xmax(1) = 6.1 +Profile_Panels_xaxis_reversed(1) = .true. -!Profile_Panels1_xaxis_name = 'zone' -!Profile_Panels1_xmin = 15 -!Profile_Panels1_xmax = 270 -!Profile_Panels1_xaxis_reversed = .true. +!Profile_Panels_xaxis_name(1) = 'zone' +!Profile_Panels_xmin(1) = 15 +!Profile_Panels_xmax(1) = 270 +!Profile_Panels_xaxis_reversed(1) = .true. -!Profile_Panels1_show_grid = .true. -Profile_Panels1_show_mix_regions_on_xaxis = .true. +!Profile_Panels_show_grid(1) = .true. +Profile_Panels_show_mix_regions_on_xaxis(1) = .true. !------------------------------------------------------------------------------------ @@ -305,56 +305,56 @@ profile_mass_point_str_clr(3) = 1 ! Text_Summary windows -Text_Summary1_win_flag = .false. -Text_Summary1_win_width = 10 -Text_Summary1_win_aspect_ratio = 0.15 - -Text_Summary1_xleft = 0.01 -Text_Summary1_xright = 0.99 -Text_Summary1_ybot = 0.0 -Text_Summary1_ytop = 1.0 -Text_Summary1_txt_scale = 0.72 -Text_Summary1_title = '' - -Text_Summary1_num_rows = 6 ! <= 20 -Text_Summary1_num_cols = 5 ! <= 20 -Text_Summary1_name(:,:) = '' - -Text_Summary1_name(1,1) = 'model_number' -Text_Summary1_name(1,2) = 'Teff' -Text_Summary1_name(1,3) = 'Mass' -Text_Summary1_name(1,4) = 'H_cntr' -Text_Summary1_name(1,5) = 'H_rich' - -Text_Summary1_name(2,1) = 'log_dt' -Text_Summary1_name(2,2) = 'log_R' -Text_Summary1_name(2,3) = 'lg_Mdot' -Text_Summary1_name(2,4) = 'He_cntr' -Text_Summary1_name(2,5) = 'He_core' - -Text_Summary1_name(3,1) = 'star_age' -Text_Summary1_name(3,2) = 'log_L' -Text_Summary1_name(3,3) = 'eta_cntr' -Text_Summary1_name(3,4) = 'C_cntr' -Text_Summary1_name(3,5) = 'CO_core' - -Text_Summary1_name(4,1) = 'log_max_T' -Text_Summary1_name(4,2) = 'log_LH' -Text_Summary1_name(4,3) = 'lg_Lnuc' -Text_Summary1_name(4,4) = 'O_cntr' -Text_Summary1_name(4,5) = 'Fe_core' - -Text_Summary1_name(5,1) = 'log_cntr_T' -Text_Summary1_name(5,2) = 'log_LHe' -Text_Summary1_name(5,3) = 'lg_Lneu' -Text_Summary1_name(5,4) = 'Ne_cntr' -Text_Summary1_name(5,5) = 'zones' - -Text_Summary1_name(6,1) = 'log_cntr_Rho' -Text_Summary1_name(6,2) = 'log_LZ' -Text_Summary1_name(6,3) = 'lg_Lphoto' -Text_Summary1_name(6,4) = 'Si_cntr' -Text_Summary1_name(6,5) = 'retries' +Text_Summary_win_flag(1) = .false. +Text_Summary_win_width(1) = 10 +Text_Summary_win_aspect_ratio(1) = 0.15 + +Text_Summary_xleft(1) = 0.01 +Text_Summary_xright(1) = 0.99 +Text_Summary_ybot(1) = 0.0 +Text_Summary_ytop(1) = 1.0 +Text_Summary_txt_scale(1) = 0.72 +Text_Summary_title(1) = '' + +Text_Summary_num_rows(1) = 6 ! <= 20 +Text_Summary_num_cols(1) = 5 ! <= 20 +Text_Summary_name(1, :, :) = '' + +Text_Summary_name(1, 1, 1) = 'model_number' +Text_Summary_name(1, 1, 2) = 'Teff' +Text_Summary_name(1, 1, 3) = 'Mass' +Text_Summary_name(1, 1, 4) = 'H_cntr' +Text_Summary_name(1, 1, 5) = 'H_rich' + +Text_Summary_name(1, 2, 1) = 'log_dt' +Text_Summary_name(1, 2, 2) = 'log_R' +Text_Summary_name(1, 2, 3) = 'lg_Mdot' +Text_Summary_name(1, 2, 4) = 'He_cntr' +Text_Summary_name(1, 2, 5) = 'He_core' + +Text_Summary_name(1, 3, 1) = 'star_age' +Text_Summary_name(1, 3, 2) = 'log_L' +Text_Summary_name(1, 3, 3) = 'eta_cntr' +Text_Summary_name(1, 3, 4) = 'C_cntr' +Text_Summary_name(1, 3, 5) = 'CO_core' + +Text_Summary_name(1, 4, 1) = 'log_max_T' +Text_Summary_name(1, 4, 2) = 'log_LH' +Text_Summary_name(1, 4, 3) = 'lg_Lnuc' +Text_Summary_name(1, 4, 4) = 'O_cntr' +Text_Summary_name(1, 4, 5) = 'Fe_core' + +Text_Summary_name(1, 5, 1) = 'log_cntr_T' +Text_Summary_name(1, 5, 2) = 'log_LHe' +Text_Summary_name(1, 5, 3) = 'lg_Lneu' +Text_Summary_name(1, 5, 4) = 'Ne_cntr' +Text_Summary_name(1, 5, 5) = 'zones' + +Text_Summary_name(1, 6, 1) = 'log_cntr_Rho' +Text_Summary_name(1, 6, 2) = 'log_LZ' +Text_Summary_name(1, 6, 3) = 'lg_Lphoto' +Text_Summary_name(1, 6, 4) = 'Si_cntr' +Text_Summary_name(1, 6, 5) = 'retries' !------------------------------------------------------------------------------------ @@ -553,88 +553,88 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window !----------------------------------------------------------------------- - History_Panels1_title = '' + History_Panels_title(1) = '' - History_Panels1_xaxis_name = 'model_number' - History_Panels1_max_width = -1 + History_Panels_xaxis_name(1) = 'model_number' + History_Panels_max_width(1) = -1 - !History_Panels1_xaxis_name = 'star_age' - !History_Panels1_max_width = 10 + !History_Panels_xaxis_name(1) = 'star_age' + !History_Panels_max_width(1) = 10 - History_Panels1_txt_scale = 0.75 - History_Panels1_xmin = -101d0 - History_Panels1_xmax = -101d0 - History_Panels1_dxmin = -1 - History_Panels1_xaxis_reversed = .false. - History_Panels1_xaxis_log = .false. - History_Panels1_xmargin = 0.0 + History_Panels_txt_scale(1) = 0.75 + History_Panels_xmin(1) = -101d0 + History_Panels_xmax(1) = -101d0 + History_Panels_dxmin(1) = -1 + History_Panels_xaxis_reversed(1) = .false. + History_Panels_xaxis_log(1) = .false. + History_Panels_xmargin(1) = 0.0 ! :: - History_Panels1_num_panels = 4 + History_Panels_num_panels(1) = 4 ! :: - History_Panels1_yaxis_name(1) = 'log_L' - History_Panels1_yaxis_reversed(1) = .false. - History_Panels1_ymin(1) = -101d0 - History_Panels1_ymax(1) = -101d0 - History_Panels1_dymin(1) = 0.14 + History_Panels_yaxis_name(1, 1) = 'log_L' + History_Panels_yaxis_reversed(1, 1) = .false. + History_Panels_ymin(1, 1) = -101d0 + History_Panels_ymax(1, 1) = -101d0 + History_Panels_dymin(1, 1) = 0.14 ! :: - History_Panels1_other_yaxis_name(1) = 'log_Teff' - History_Panels1_other_yaxis_reversed(1) = .false. - History_Panels1_other_ymin(1) = -101d0 - History_Panels1_other_ymax(1) = -101d0 - History_Panels1_other_dymin(1) = 0.14 + History_Panels_other_yaxis_name(1, 1) = 'log_Teff' + History_Panels_other_yaxis_reversed(1, 1) = .false. + History_Panels_other_ymin(1, 1) = -101d0 + History_Panels_other_ymax(1, 1) = -101d0 + History_Panels_other_dymin(1, 1) = 0.14 ! :: - History_Panels1_yaxis_name(2) = 'log_R' - History_Panels1_yaxis_reversed(2) = .false. - History_Panels1_ymin(2) = -101d0 - History_Panels1_ymax(2) = -101d0 - History_Panels1_dymin(2) = 0.14 + History_Panels_yaxis_name(1, 2) = 'log_R' + History_Panels_yaxis_reversed(1, 2) = .false. + History_Panels_ymin(1, 2) = -101d0 + History_Panels_ymax(1, 2) = -101d0 + History_Panels_dymin(1, 2) = 0.14 ! :: - History_Panels1_other_yaxis_name(2) = 'v_div_cs' ! 'v_surf_km_s' - History_Panels1_other_yaxis_reversed(2) = .false. - History_Panels1_other_ymin(2) = -101d0 - History_Panels1_other_ymax(2) = -101d0 - History_Panels1_other_dymin(2) = 0.14 + History_Panels_other_yaxis_name(1, 2) = 'v_div_cs' ! 'v_surf_km_s' + History_Panels_other_yaxis_reversed(1, 2) = .false. + History_Panels_other_ymin(1, 2) = -101d0 + History_Panels_other_ymax(1, 2) = -101d0 + History_Panels_other_dymin(1, 2) = 0.14 ! :: - History_Panels1_yaxis_name(3) = 'log_cntr_Rho' - History_Panels1_yaxis_reversed(3) = .false. - History_Panels1_ymin(3) = -101d0 - History_Panels1_ymax(3) = -101d0 - History_Panels1_dymin(3) = 0.14 + History_Panels_yaxis_name(1, 3) = 'log_cntr_Rho' + History_Panels_yaxis_reversed(1, 3) = .false. + History_Panels_ymin(1, 3) = -101d0 + History_Panels_ymax(1, 3) = -101d0 + History_Panels_dymin(1, 3) = 0.14 ! :: - History_Panels1_other_yaxis_name(3) = 'log_max_T' - History_Panels1_other_yaxis_reversed(3) = .false. - History_Panels1_other_ymin(3) = -101d0 - History_Panels1_other_ymax(3) = -101d0 - History_Panels1_other_dymin(3) = 0.14 + History_Panels_other_yaxis_name(1, 3) = 'log_max_T' + History_Panels_other_yaxis_reversed(1, 3) = .false. + History_Panels_other_ymin(1, 3) = -101d0 + History_Panels_other_ymax(1, 3) = -101d0 + History_Panels_other_dymin(1, 3) = 0.14 ! :: - History_Panels1_yaxis_name(4) = 'retries' - History_Panels1_yaxis_reversed(4) = .false. - History_Panels1_ymin(4) = -101d0 - History_Panels1_ymax(4) = -101d0 - History_Panels1_dymin(4) = 0.14 + History_Panels_yaxis_name(1, 4) = 'retries' + History_Panels_yaxis_reversed(1, 4) = .false. + History_Panels_ymin(1, 4) = -101d0 + History_Panels_ymax(1, 4) = -101d0 + History_Panels_dymin(1, 4) = 0.14 ! :: - History_Panels1_other_yaxis_name(4) = 'log_dt' - History_Panels1_other_yaxis_reversed(4) = .false. - History_Panels1_other_ymin(4) = -101d0 - History_Panels1_other_ymax(4) = -101d0 - History_Panels1_other_dymin(4) = 0.14 + History_Panels_other_yaxis_name(1, 4) = 'log_dt' + History_Panels_other_yaxis_reversed(1, 4) = .false. + History_Panels_other_ymin(1, 4) = -101d0 + History_Panels_other_ymax(1, 4) = -101d0 + History_Panels_other_dymin(1, 4) = 0.14 !----------------------------------------------------------------------- diff --git a/star/test_suite/twin_studies/inlist_star1 b/star/test_suite/twin_studies/inlist_star1 index 3bb38ecd7..92b131175 100644 --- a/star/test_suite/twin_studies/inlist_star1 +++ b/star/test_suite/twin_studies/inlist_star1 @@ -30,11 +30,11 @@ !pause_interval = 10 pgstar_interval = 1 - Grid1_title = 'star1 - with overshooting' + Grid_title(1) = 'star1 - with overshooting' - !Grid1_file_flag = .true. - Grid1_file_dir = 'png1' - Grid1_file_prefix = 'star1' - Grid1_file_interval = 10 ! output when mod(model_number,Grid1_file_interval)==0 + !Grid_file_flag(1) = .true. + Grid_file_dir(1) = 'png1' + Grid_file_prefix(1) = 'star1' + Grid_file_interval(1) = 10 ! output when mod(model_number,Grid_file_interval(1))==0 / ! end of pgstar namelist diff --git a/star/test_suite/twin_studies/inlist_star2 b/star/test_suite/twin_studies/inlist_star2 index b3136b5f5..2aacc8a7e 100644 --- a/star/test_suite/twin_studies/inlist_star2 +++ b/star/test_suite/twin_studies/inlist_star2 @@ -36,11 +36,11 @@ !pause_interval = 10 pgstar_interval = 1 - Grid1_title = 'star2 - without overshooting' + Grid_title(1) = 'star2 - without overshooting' - !Grid1_file_flag = .true. - Grid1_file_dir = 'png2' - Grid1_file_prefix = 'star2' - Grid1_file_interval = 10 ! output when mod(model_number,Grid1_file_interval)==0 + !Grid_file_flag(1) = .true. + Grid_file_dir(1) = 'png2' + Grid_file_prefix(1) = 'star2' + Grid_file_interval(1) = 10 ! output when mod(model_number,Grid_file_interval(1))==0 / ! end of pgstar namelist diff --git a/star/test_suite/twin_studies/inlist_to_end_core_he_burn b/star/test_suite/twin_studies/inlist_to_end_core_he_burn index 9c00b7ab3..f6b3d1a31 100644 --- a/star/test_suite/twin_studies/inlist_to_end_core_he_burn +++ b/star/test_suite/twin_studies/inlist_to_end_core_he_burn @@ -104,9 +104,9 @@ &pgstar !pause = .true. -Grid1_plot_name(3) = 'HR' -Profile_Panels3_xmin = -101d0 -Profile_Panels3_xmax = -101d0 -Profile_Panels3_other_yaxis_name(4) = 'entropy' +Grid_plot_name(1, 3) = 'HR' +Profile_Panels_xmin(3) = -101d0 +Profile_Panels_xmax(3) = -101d0 +Profile_Panels_other_yaxis_name(3, 4) = 'entropy' / ! end of pgstar namelist diff --git a/star/test_suite/tzo/inlist_pgstar b/star/test_suite/tzo/inlist_pgstar index 96e4a7133..fa1547bb2 100644 --- a/star/test_suite/tzo/inlist_pgstar +++ b/star/test_suite/tzo/inlist_pgstar @@ -19,44 +19,44 @@ file_extension = 'png' ! common names are 'png' and 'ps' ! Text_Summary windows -Text_Summary1_win_flag = .false. -Text_Summary1_win_width = 10 -Text_Summary1_win_aspect_ratio = 0.15 - -Text_Summary1_xleft = 0.01 -Text_Summary1_xright = 0.99 -Text_Summary1_ybot = 0.0 -Text_Summary1_ytop = 1.0 -Text_Summary1_txt_scale = 1.0 -Text_Summary1_title = '' - -Text_Summary1_num_rows = 4 ! <= 20 -Text_Summary1_num_cols = 5 ! <= 20 -Text_Summary1_name(:,:) = '' - -Text_Summary1_name(1,1) = 'time_step_sec' -Text_Summary1_name(1,2) = 'num_zones' -Text_Summary1_name(1,3) = 'species' -Text_Summary1_name(1,4) = 'num_retries' -Text_Summary1_name(1,5) = 'log_abs_mdot' - -Text_Summary1_name(2,1) = 'm_center' -Text_Summary1_name(2,2) = 'r_center' -Text_Summary1_name(2,3) = 'L_center' -Text_Summary1_name(2,4) = 'log_center_T' -Text_Summary1_name(2,5) = 'log_center_Rho' - -Text_Summary1_name(3,1) = 'log_dt' -Text_Summary1_name(3,2) = 'center_c12' -Text_Summary1_name(3,3) = 'center_o16' -Text_Summary1_name(3,4) = 'log_R' -Text_Summary1_name(3,5) = 'star_mass' - -Text_Summary1_name(4,1) = 'center he4' -Text_Summary1_name(4,2) = 'center si28' -Text_Summary1_name(4,3) = 'center fe56' -Text_Summary1_name(4,4) = 'log_g' -Text_Summary1_name(4,5) = 'log_Teff' +Text_Summary_win_flag(1) = .false. +Text_Summary_win_width(1) = 10 +Text_Summary_win_aspect_ratio(1) = 0.15 + +Text_Summary_xleft(1) = 0.01 +Text_Summary_xright(1) = 0.99 +Text_Summary_ybot(1) = 0.0 +Text_Summary_ytop(1) = 1.0 +Text_Summary_txt_scale(1) = 1.0 +Text_Summary_title(1) = '' + +Text_Summary_num_rows(1) = 4 ! <= 20 +Text_Summary_num_cols(1) = 5 ! <= 20 +Text_Summary_name(1, :, :) = '' + +Text_Summary_name(1, 1, 1) = 'time_step_sec' +Text_Summary_name(1, 1, 2) = 'num_zones' +Text_Summary_name(1, 1, 3) = 'species' +Text_Summary_name(1, 1, 4) = 'num_retries' +Text_Summary_name(1, 1, 5) = 'log_abs_mdot' + +Text_Summary_name(1, 2, 1) = 'm_center' +Text_Summary_name(1, 2, 2) = 'r_center' +Text_Summary_name(1, 2, 3) = 'L_center' +Text_Summary_name(1, 2, 4) = 'log_center_T' +Text_Summary_name(1, 2, 5) = 'log_center_Rho' + +Text_Summary_name(1, 3, 1) = 'log_dt' +Text_Summary_name(1, 3, 2) = 'center_c12' +Text_Summary_name(1, 3, 3) = 'center_o16' +Text_Summary_name(1, 3, 4) = 'log_R' +Text_Summary_name(1, 3, 5) = 'star_mass' + +Text_Summary_name(1, 4, 1) = 'center he4' +Text_Summary_name(1, 4, 2) = 'center si28' +Text_Summary_name(1, 4, 3) = 'center fe56' +Text_Summary_name(1, 4, 4) = 'log_g' +Text_Summary_name(1, 4, 5) = 'log_Teff' @@ -265,200 +265,200 @@ Dynamo_file_aspect_ratio = -1 ! negative means use same value as for window ! Profile Panel - thermodynamics -Profile_Panels1_win_flag = .false. +Profile_Panels_win_flag(1) = .false. -Profile_Panels1_num_panels = 2 +Profile_Panels_num_panels(1) = 2 -Profile_Panels1_show_grid = .true. +Profile_Panels_show_grid(1) = .true. ! window properties -Profile_Panels1_win_width = 10 -Profile_Panels1_win_aspect_ratio = 1.0 -Profile_Panels1_txt_scale = 0.8 -Profile_Panels1_title = '' +Profile_Panels_win_width(1) = 10 +Profile_Panels_win_aspect_ratio(1) = 1.0 +Profile_Panels_txt_scale(1) = 0.8 +Profile_Panels_title(1) = '' ! x-axis limits and properties -Profile_Panels1_xaxis_name = 'zone' -Profile_Panels1_xmin = 0 -Profile_Panels1_xmax = -101 -Profile_Panels1_xaxis_reversed = .false. +Profile_Panels_xaxis_name(1) = 'zone' +Profile_Panels_xmin(1) = 0 +Profile_Panels_xmax(1) = -101 +Profile_Panels_xaxis_reversed(1) = .false. ! contents of panel 1 -Profile_Panels1_yaxis_name(1) = 'logT' -Profile_Panels1_ymin(1) = -101d0 ! only used if /= -101d0 -Profile_Panels1_ymax(1) = -101d0 ! only used if /= -101d0 +Profile_Panels_yaxis_name(1, 1) = 'logT' +Profile_Panels_ymin(1, 1) = -101d0 ! only used if /= -101d0 +Profile_Panels_ymax(1, 1) = -101d0 ! only used if /= -101d0 -Profile_Panels1_other_yaxis_name(1) = 'opacity' -Profile_Panels1_other_ymin(1) = -101d0 ! only used if /= -101d0 -Profile_Panels1_other_ymax(1) = -101d0 ! only used if /= -101d0 -Profile_Panels1_other_yaxis_log(1) = .true. +Profile_Panels_other_yaxis_name(1, 1) = 'opacity' +Profile_Panels_other_ymin(1, 1) = -101d0 ! only used if /= -101d0 +Profile_Panels_other_ymax(1, 1) = -101d0 ! only used if /= -101d0 +Profile_Panels_other_yaxis_log(1, 1) = .true. ! contents of panel 2 -Profile_Panels1_yaxis_name(2) = 'logRho' -Profile_Panels1_ymin(2) = -101d0 ! only used if /= -101d0 -Profile_Panels1_ymax(2) = -101d0 ! only used if /= -101d0 +Profile_Panels_yaxis_name(1, 2) = 'logRho' +Profile_Panels_ymin(1, 2) = -101d0 ! only used if /= -101d0 +Profile_Panels_ymax(1, 2) = -101d0 ! only used if /= -101d0 -!Profile_Panels1_other_yaxis_name(2) = 'logR_cm' -Profile_Panels1_other_yaxis_name(2) = 'logL' -Profile_Panels1_other_ymin(2) = 5.0 ! only used if /= -101d0 -Profile_Panels1_other_ymax(2) = 5.5 ! only used if /= -101d0 +!Profile_Panels_other_yaxis_name(1, 2) = 'logR_cm' +Profile_Panels_other_yaxis_name(1, 2) = 'logL' +Profile_Panels_other_ymin(1, 2) = 5.0 ! only used if /= -101d0 +Profile_Panels_other_ymax(1, 2) = 5.5 ! only used if /= -101d0 ! file output -Profile_Panels1_file_flag = .false. -Profile_Panels1_file_dir = 'Thermo' -Profile_Panels1_file_prefix = 'thermo_' -Profile_Panels1_file_interval = 5 ! output when mod(model_number,Profile_Panels1_file_interval)==0 -Profile_Panels1_file_width = -1 ! (inches) negative means use same value as for window -Profile_Panels1_file_aspect_ratio = -1 ! negative means use same value as for window +Profile_Panels_file_flag(1) = .false. +Profile_Panels_file_dir(1) = 'Thermo' +Profile_Panels_file_prefix(1) = 'thermo_' +Profile_Panels_file_interval(1) = 5 ! output when mod(model_number,Profile_Panels_file_interval(1))==0 +Profile_Panels_file_width(1) = -1 ! (inches) negative means use same value as for window +Profile_Panels_file_aspect_ratio(1) = -1 ! negative means use same value as for window !------------------------------------------------------------------------------------ ! Profile Panel - energetics -Profile_Panels2_win_flag = .false. +Profile_Panels_win_flag(2) = .false. -Profile_Panels2_num_panels = 3 +Profile_Panels_num_panels(2) = 3 -Profile_Panels2_show_grid = .true. +Profile_Panels_show_grid(2) = .true. ! window properties -Profile_Panels2_win_width = 10 -Profile_Panels2_win_aspect_ratio = 1.0 -Profile_Panels2_txt_scale = 0.8 -Profile_Panels2_title = '' +Profile_Panels_win_width(2) = 10 +Profile_Panels_win_aspect_ratio(2) = 1.0 +Profile_Panels_txt_scale(2) = 0.8 +Profile_Panels_title(2) = '' ! x-axis limits and properties -Profile_Panels2_xaxis_name = 'zone' -Profile_Panels2_xmin = 0 -Profile_Panels2_xmax = -101 -Profile_Panels2_xaxis_reversed = .false. +Profile_Panels_xaxis_name(2) = 'zone' +Profile_Panels_xmin(2) = 0 +Profile_Panels_xmax(2) = -101 +Profile_Panels_xaxis_reversed(2) = .false. ! contents of panel 1 -Profile_Panels2_yaxis_name(1) = 'velocity' -Profile_Panels2_yaxis_log(1) = .false. -Profile_Panels2_ymin(1) = -101d0 ! only used if /= -101d0 -Profile_Panels2_ymax(1) = -101d0 ! only used if /= -101d0 +Profile_Panels_yaxis_name(2, 1) = 'velocity' +Profile_Panels_yaxis_log(2, 1) = .false. +Profile_Panels_ymin(2, 1) = -101d0 ! only used if /= -101d0 +Profile_Panels_ymax(2, 1) = -101d0 ! only used if /= -101d0 -!Profile_Panels2_other_yaxis_name(1) = '' -Profile_Panels2_other_yaxis_name(1) = 'conv_vel' -Profile_Panels2_other_ymin(1) = 0d0 ! only used if /= -101d0 -Profile_Panels2_other_ymax(1) = -101d0 ! only used if /= -101d0 -Profile_Panels2_other_yaxis_log(1) =.false. +!Profile_Panels_other_yaxis_name(2, 1) = '' +Profile_Panels_other_yaxis_name(2, 1) = 'conv_vel' +Profile_Panels_other_ymin(2, 1) = 0d0 ! only used if /= -101d0 +Profile_Panels_other_ymax(2, 1) = -101d0 ! only used if /= -101d0 +Profile_Panels_other_yaxis_log(2, 1) =.false. ! contents of panel 2 -Profile_Panels2_yaxis_name(2) = 'cgrav_factor' -Profile_Panels2_yaxis_log(2) = .true. -Profile_Panels2_ymin(2) = 0 ! only used if /= -101d0 -Profile_Panels2_ymax(2) = -101 ! only used if /= -101d0 +Profile_Panels_yaxis_name(2, 2) = 'cgrav_factor' +Profile_Panels_yaxis_log(2, 2) = .true. +Profile_Panels_ymin(2, 2) = 0 ! only used if /= -101d0 +Profile_Panels_ymax(2, 2) = -101 ! only used if /= -101d0 -Profile_Panels2_other_yaxis_name(2) = 'pressure_scale_height' -Profile_Panels2_other_ymin(2) = 0d0 ! only used if /= -101d0 -Profile_Panels2_other_ymax(2) = -101d0 ! only used if /= -101d0 -Profile_Panels2_other_yaxis_log(2) = .true. +Profile_Panels_other_yaxis_name(2, 2) = 'pressure_scale_height' +Profile_Panels_other_ymin(2, 2) = 0d0 ! only used if /= -101d0 +Profile_Panels_other_ymax(2, 2) = -101d0 ! only used if /= -101d0 +Profile_Panels_other_yaxis_log(2, 2) = .true. ! contents of panel 3 -Profile_Panels2_yaxis_name(3) = 'net_nuclear_energy' -Profile_Panels2_ymin(3) = -101d0 ! only used if /= -101d0 -Profile_Panels2_ymax(3) = -101d0 ! only used if /= -101d0 +Profile_Panels_yaxis_name(2, 3) = 'net_nuclear_energy' +Profile_Panels_ymin(2, 3) = -101d0 ! only used if /= -101d0 +Profile_Panels_ymax(2, 3) = -101d0 ! only used if /= -101d0 -Profile_Panels2_other_yaxis_name(3) = 'burn_num_iters' -Profile_Panels2_other_ymin(3) = -101d0 ! only used if /= -101d0 -Profile_Panels2_other_ymax(3) = -101d0 ! only used if /= -101d0 +Profile_Panels_other_yaxis_name(2, 3) = 'burn_num_iters' +Profile_Panels_other_ymin(2, 3) = -101d0 ! only used if /= -101d0 +Profile_Panels_other_ymax(2, 3) = -101d0 ! only used if /= -101d0 ! file output -Profile_Panels2_file_flag = .false. -Profile_Panels2_file_dir = 'Profile2' -Profile_Panels2_file_prefix = 'ye_' -Profile_Panels2_file_interval = 5 ! output when mod(model_number,Profile_Panels1_file_interval)==0 -Profile_Panels2_file_width = -1 ! (inches) negative means use same value as for window -Profile_Panels2_file_aspect_ratio = -1 ! negative means use same value as for window +Profile_Panels_file_flag(2) = .false. +Profile_Panels_file_dir(2) = 'Profile2' +Profile_Panels_file_prefix(2) = 'ye_' +Profile_Panels_file_interval(2) = 5 ! output when mod(model_number,Profile_Panels_file_interval(1))==0 +Profile_Panels_file_width(2) = -1 ! (inches) negative means use same value as for window +Profile_Panels_file_aspect_ratio(2) = -1 ! negative means use same value as for window !------------------------------------------------------------------------------------ -History_Panels1_win_flag = .false. +History_Panels_win_flag(1) = .false. -History_Panels1_win_width = 10 -History_Panels1_win_aspect_ratio = 0.75 +History_Panels_win_width(1) = 10 +History_Panels_win_aspect_ratio(1) = 0.75 -History_Panels1_xleft = 0.15 -History_Panels1_xright = 0.85 -History_Panels1_ybot = 0.15 -History_Panels1_ytop = 0.85 -History_Panels1_txt_scale = 0.7 -History_Panels1_title = '' +History_Panels_xleft(1) = 0.15 +History_Panels_xright(1) = 0.85 +History_Panels_ybot(1) = 0.15 +History_Panels_ytop(1) = 0.85 +History_Panels_txt_scale(1) = 0.7 +History_Panels_title(1) = '' -History_Panels1_xmax = -101d0 ! model number. -History_Panels1_xmin = -101d0! model number. -History_Panels1_max_width = -1 ! only used if > 0. causes xmin to move with xmax. +History_Panels_xmax(1) = -101d0 ! model number. +History_Panels_xmin(1) = -101d0! model number. +History_Panels_max_width(1) = -1 ! only used if > 0. causes xmin to move with xmax. ! setup default -History_Panels1_num_panels = 3 - -History_Panels1_xaxis_name = 'star_age' - -History_Panels1_yaxis_name(1) = 'log_dt' -History_Panels1_yaxis_reversed(1) = .false. -History_Panels1_ymin(1) = -4 ! only used if /= -101d0 -History_Panels1_ymax(1) = -101d0 ! only used if /= -101d0 -History_Panels1_dymin(1) = -1 - -History_Panels1_other_yaxis_name(1) = 'star_mass' -History_Panels1_other_yaxis_reversed(1) = .false. -History_Panels1_other_ymin(1) = 0 ! only used if /= -101d0 -History_Panels1_other_ymax(1) = -101 ! only used if /= -101d0 -History_Panels1_other_dymin(1) = -1 - -History_Panels1_yaxis_name(2) = 'log_Lnuc' -History_Panels1_yaxis_reversed(2) = .false. -History_Panels1_ymin(2) = 4 ! only used if /= -101d0 -History_Panels1_ymax(2) = 8 ! only used if /= -101d0 -History_Panels1_dymin(2) = -1 - -History_Panels1_other_yaxis_name(2) = 'log_Lneu' -History_Panels1_other_yaxis_reversed(2) = .false. -History_Panels1_other_ymin(2) = 4 ! only used if /= -101d0 -History_Panels1_other_ymax(2) = 8 ! only used if /= -101d0 -History_Panels1_other_dymin(2) = -1 - -History_Panels1_yaxis_name(3) = 'log_L' -History_Panels1_yaxis_reversed(3) = .false. -History_Panels1_ymin(3) = -101d0 ! only used if /= -101d0 -History_Panels1_ymax(3) = -101d0 ! only used if /= -101d0 -History_Panels1_dymin(3) = -1 - -History_Panels1_other_yaxis_name(3) = 'log_R' -History_Panels1_other_yaxis_reversed(3) = .false. -History_Panels1_other_ymin(3) = -101d0 ! only used if /= -101d0 -History_Panels1_other_ymax(3) = -101d0 ! only used if /= -101d0 -History_Panels1_other_dymin(3) = -1 - -History_Panels1_yaxis_name(4) = 'max_tau_conv' -History_Panels1_yaxis_reversed(4) = .false. -History_Panels1_ymin(4) = -101d0 ! only used if /= -101d0 -History_Panels1_ymax(4) = -101d0 ! only used if /= -101d0 -History_Panels1_dymin(4) = -1 -History_Panels1_yaxis_log(4) = .true. - -History_Panels1_other_yaxis_name(4) = 'min_t_eddy' -History_Panels1_other_yaxis_reversed(4) = .false. -History_Panels1_other_ymin(4) = -101d0 ! only used if /= -101d0 -History_Panels1_other_ymax(4) = -101d0 ! only used if /= -101d0 -History_Panels1_other_dymin(4) = -1 -History_Panels1_yaxis_log(4) = .true. +History_Panels_num_panels(1) = 3 + +History_Panels_xaxis_name(1) = 'star_age' + +History_Panels_yaxis_name(1, 1) = 'log_dt' +History_Panels_yaxis_reversed(1, 1) = .false. +History_Panels_ymin(1, 1) = -4 ! only used if /= -101d0 +History_Panels_ymax(1, 1) = -101d0 ! only used if /= -101d0 +History_Panels_dymin(1, 1) = -1 + +History_Panels_other_yaxis_name(1, 1) = 'star_mass' +History_Panels_other_yaxis_reversed(1, 1) = .false. +History_Panels_other_ymin(1, 1) = 0 ! only used if /= -101d0 +History_Panels_other_ymax(1, 1) = -101 ! only used if /= -101d0 +History_Panels_other_dymin(1, 1) = -1 + +History_Panels_yaxis_name(1, 2) = 'log_Lnuc' +History_Panels_yaxis_reversed(1, 2) = .false. +History_Panels_ymin(1, 2) = 4 ! only used if /= -101d0 +History_Panels_ymax(1, 2) = 8 ! only used if /= -101d0 +History_Panels_dymin(1, 2) = -1 + +History_Panels_other_yaxis_name(1, 2) = 'log_Lneu' +History_Panels_other_yaxis_reversed(1, 2) = .false. +History_Panels_other_ymin(1, 2) = 4 ! only used if /= -101d0 +History_Panels_other_ymax(1, 2) = 8 ! only used if /= -101d0 +History_Panels_other_dymin(1, 2) = -1 + +History_Panels_yaxis_name(1, 3) = 'log_L' +History_Panels_yaxis_reversed(1, 3) = .false. +History_Panels_ymin(1, 3) = -101d0 ! only used if /= -101d0 +History_Panels_ymax(1, 3) = -101d0 ! only used if /= -101d0 +History_Panels_dymin(1, 3) = -1 + +History_Panels_other_yaxis_name(1, 3) = 'log_R' +History_Panels_other_yaxis_reversed(1, 3) = .false. +History_Panels_other_ymin(1, 3) = -101d0 ! only used if /= -101d0 +History_Panels_other_ymax(1, 3) = -101d0 ! only used if /= -101d0 +History_Panels_other_dymin(1, 3) = -1 + +History_Panels_yaxis_name(1, 4) = 'max_tau_conv' +History_Panels_yaxis_reversed(1, 4) = .false. +History_Panels_ymin(1, 4) = -101d0 ! only used if /= -101d0 +History_Panels_ymax(1, 4) = -101d0 ! only used if /= -101d0 +History_Panels_dymin(1, 4) = -1 +History_Panels_yaxis_log(1, 4) = .true. + +History_Panels_other_yaxis_name(1, 4) = 'min_t_eddy' +History_Panels_other_yaxis_reversed(1, 4) = .false. +History_Panels_other_ymin(1, 4) = -101d0 ! only used if /= -101d0 +History_Panels_other_ymax(1, 4) = -101d0 ! only used if /= -101d0 +History_Panels_other_dymin(1, 4) = -1 +History_Panels_yaxis_log(1, 4) = .true. ! file output -History_Panels1_file_flag = .false. -History_Panels1_file_dir = 'png' -History_Panels1_file_prefix = 'History_Panels1_' -History_Panels1_file_interval = 5 ! output when mod(model_number,History_Panels1_file_interval)==0 -History_Panels1_file_width = -1 ! (inches) negative means use same value as for window -History_Panels1_file_aspect_ratio = -1 ! negative means use same value as for window +History_Panels_file_flag(1) = .false. +History_Panels_file_dir(1) = 'png' +History_Panels_file_prefix(1) = 'History_Panels1_' +History_Panels_file_interval(1) = 5 ! output when mod(model_number,History_Panels1_file_interval)==0 +History_Panels_file_width(1) = -1 ! (inches) negative means use same value as for window +History_Panels_file_aspect_ratio(1) = -1 ! negative means use same value as for window !------------------------------------------------------------------------------------ @@ -620,156 +620,156 @@ pgstar_right_yaxis_label_disp = 2.5 ! non-rotational quantities, generally -Grid1_win_flag = .true. -Grid1_win_width = 18 -Grid1_win_aspect_ratio = 0.6 +Grid_win_flag(1) = .true. +Grid_win_width(1) = 18 +Grid_win_aspect_ratio(1) = 0.6 ! reset the defaults -Grid1_plot_name(:) = '' -Grid1_plot_row(:) = 1 ! number from 1 at top -Grid1_plot_rowspan(:) = 1 ! plot spans this number of rows -Grid1_plot_col(:) = 1 ! number from 1 at left -Grid1_plot_colspan(:) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(:) = 0.0 ! fraction of full window width for padding on left -Grid1_plot_pad_right(:) = 0.0 ! fraction of full window width for padding on right -Grid1_plot_pad_top(:) = 0.0 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(:) = 0.0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(:) = 0.7 ! multiply txt_scale for subplot by this - - -Grid1_title = '' - -Grid1_num_cols = 5 ! divide plotting region into this many equal width cols -Grid1_num_rows = 2 ! divide plotting region into this many equal height rows -Grid1_num_plots = 8 ! <= 10 - - -Grid1_plot_name(1) = 'Text_Summary1' -Grid1_plot_row(1) = 1 ! number from 1 at top -Grid1_plot_rowspan(1) = 1 ! plot spans this number of rows -Grid1_plot_col(1) = 1 ! number from 1 at left -Grid1_plot_colspan(1) = 5 ! plot spans this number of columns - -Grid1_plot_pad_left(1) = 0.0 ! fraction of full window width for padding on left -Grid1_plot_pad_right(1) = 0.0 ! fraction of full window width for padding on right -Grid1_plot_pad_top(1) = -0.04 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(1) = 0.39 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(1) = 0.8 ! multiply txt_scale for subplot by this - -Grid1_plot_name(2) = 'Abundance' -Grid1_plot_row(2) = 1 ! number from 1 at top -Grid1_plot_rowspan(2) = 1 ! plot spans this number of rows -Grid1_plot_col(2) = 1 ! number from 1 at left -Grid1_plot_colspan(2) = 1 ! plot spans this number of columns +Grid_plot_name(1, :) = '' +Grid_plot_row(1, :) = 1 ! number from 1 at top +Grid_plot_rowspan(1, :) = 1 ! plot spans this number of rows +Grid_plot_col(1, :) = 1 ! number from 1 at left +Grid_plot_colspan(1, :) = 1 ! plot spans this number of columns +Grid_plot_pad_left(1, :) = 0.0 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, :) = 0.0 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, :) = 0.0 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, :) = 0.0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, :) = 0.7 ! multiply txt_scale for subplot by this + + +Grid_title(1) = '' + +Grid_num_cols(1) = 5 ! divide plotting region into this many equal width cols +Grid_num_rows(1) = 2 ! divide plotting region into this many equal height rows +Grid_num_plots(1) = 8 ! <= 10 + + +Grid_plot_name(1, 1) = 'Text_Summary1' +Grid_plot_row(1, 1) = 1 ! number from 1 at top +Grid_plot_rowspan(1, 1) = 1 ! plot spans this number of rows +Grid_plot_col(1, 1) = 1 ! number from 1 at left +Grid_plot_colspan(1, 1) = 5 ! plot spans this number of columns + +Grid_plot_pad_left(1, 1) = 0.0 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 1) = 0.0 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 1) = -0.04 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 1) = 0.39 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 1) = 0.8 ! multiply txt_scale for subplot by this + +Grid_plot_name(1, 2) = 'Abundance' +Grid_plot_row(1, 2) = 1 ! number from 1 at top +Grid_plot_rowspan(1, 2) = 1 ! plot spans this number of rows +Grid_plot_col(1, 2) = 1 ! number from 1 at left +Grid_plot_colspan(1, 2) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(2) = -0.085 ! fraction of full window width for padding on left -Grid1_plot_pad_right(2) = 0.0 ! fraction of full window width for padding on right -Grid1_plot_pad_top(2) = 0.03 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(2) = 0.03 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 2) = -0.085 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 2) = 0.0 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 2) = 0.03 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 2) = 0.03 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 2) = 0.7 ! multiply txt_scale for subplot by this -Grid1_plot_name(3) = 'Power' -Grid1_plot_row(3) = 1 ! number from 1 at top -Grid1_plot_rowspan(3) = 1 ! plot spans this number of rows -Grid1_plot_col(3) = 2 ! number from 1 at left -Grid1_plot_colspan(3) = 1 ! plot spans this number of columns +Grid_plot_name(1, 3) = 'Power' +Grid_plot_row(1, 3) = 1 ! number from 1 at top +Grid_plot_rowspan(1, 3) = 1 ! plot spans this number of rows +Grid_plot_col(1, 3) = 2 ! number from 1 at left +Grid_plot_colspan(1, 3) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(3) = 0.035 ! fraction of full window width for padding on left -Grid1_plot_pad_right(3) = -0.11 ! fraction of full window width for padding on right -Grid1_plot_pad_top(3) = 0.03 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(3) = 0.03 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(3) = 0.5 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 3) = 0.035 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 3) = -0.11 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 3) = 0.03 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 3) = 0.03 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 3) = 0.5 ! multiply txt_scale for subplot by this -!Grid1_plot_name(4) = 'Kipp' -!Grid1_plot_row(4) = 2 ! number from 1 at top -!Grid1_plot_rowspan(4) = 1 ! plot spans this number of rows -!Grid1_plot_col(4) = 1 ! number from 1 at left -!Grid1_plot_colspan(4) = 1 ! plot spans this number of columns +!Grid_plot_name(1, 4) = 'Kipp' +!Grid_plot_row(1, 4) = 2 ! number from 1 at top +!Grid_plot_rowspan(1, 4) = 1 ! plot spans this number of rows +!Grid_plot_col(1, 4) = 1 ! number from 1 at left +!Grid_plot_colspan(1, 4) = 1 ! plot spans this number of columns -!Grid1_plot_pad_left(4) = -0.09 ! fraction of full window width for padding on left -!Grid1_plot_pad_right(4) = 0.06 ! fraction of full window width for padding on right -!Grid1_plot_pad_top(4) = 0.05 ! fraction of full window height for padding at top -!Grid1_plot_pad_bot(4) = -0.02 ! fraction of full window height for padding at bottom -!Grid1_txt_scale_factor(4) = 0.6 ! multiply txt_scale for subplot by this +!Grid_plot_pad_left(1, 4) = -0.09 ! fraction of full window width for padding on left +!Grid_plot_pad_right(1, 4) = 0.06 ! fraction of full window width for padding on right +!Grid_plot_pad_top(1, 4) = 0.05 ! fraction of full window height for padding at top +!Grid_plot_pad_bot(1, 4) = -0.02 ! fraction of full window height for padding at bottom +!Grid_txt_scale_factor(1, 4) = 0.6 ! multiply txt_scale for subplot by this -Grid1_plot_name(4) = 'Mixing' -Grid1_plot_row(4) = 2 ! number from 1 at top -Grid1_plot_rowspan(4) = 1 ! plot spans this number of rows -Grid1_plot_col(4) = 1 ! number from 1 at left -Grid1_plot_colspan(4) = 1 ! plot spans this number of columns +Grid_plot_name(1, 4) = 'Mixing' +Grid_plot_row(1, 4) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 4) = 1 ! plot spans this number of rows +Grid_plot_col(1, 4) = 1 ! number from 1 at left +Grid_plot_colspan(1, 4) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(4) = -0.080 ! fraction of full window width for padding on left -Grid1_plot_pad_right(4) = 0.1 ! fraction of full window width for padding on right -Grid1_plot_pad_top(4) = 0.05 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(4) = 0.00 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(4) = 0.7 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 4) = -0.080 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 4) = 0.1 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 4) = 0.05 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 4) = 0.00 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 4) = 0.7 ! multiply txt_scale for subplot by this -Grid1_plot_name(5) = 'TRho_Profile' -Grid1_plot_row(5) = 2 ! number from 1 at top -Grid1_plot_rowspan(5) = 1 ! plot spans this number of rows -Grid1_plot_col(5) = 2 ! number from 1 at left -Grid1_plot_colspan(5) = 1 ! plot spans this number of columns +Grid_plot_name(1, 5) = 'TRho_Profile' +Grid_plot_row(1, 5) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 5) = 1 ! plot spans this number of rows +Grid_plot_col(1, 5) = 2 ! number from 1 at left +Grid_plot_colspan(1, 5) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(5) = -0.01 ! fraction of full window width for padding on left -Grid1_plot_pad_right(5) = 0.01 ! fraction of full window width for padding on right -Grid1_plot_pad_top(5) = 0.05 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(5) = -0.02 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(5) = 0.7 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 5) = -0.01 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 5) = 0.01 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 5) = 0.05 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 5) = -0.02 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 5) = 0.7 ! multiply txt_scale for subplot by this -Grid1_plot_name(6) = 'Profile_Panels1' -Grid1_plot_row(6) = 1 ! number from 1 at top -Grid1_plot_rowspan(6) = 2 ! plot spans this number of rows -Grid1_plot_col(6) = 4 ! number from 1 at left -Grid1_plot_colspan(6) = 1 ! plot spans this number of columns - -Grid1_plot_pad_left(6) = 0.04 ! fraction of full window width for padding on left -Grid1_plot_pad_right(6) = 0.02 ! fraction of full window width for padding on right -Grid1_plot_pad_top(6) = 0.03 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(6) = 0.0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(6) = 0.7 ! multiply txt_scale for subplot by this +Grid_plot_name(1, 6) = 'Profile_Panels1' +Grid_plot_row(1, 6) = 1 ! number from 1 at top +Grid_plot_rowspan(1, 6) = 2 ! plot spans this number of rows +Grid_plot_col(1, 6) = 4 ! number from 1 at left +Grid_plot_colspan(1, 6) = 1 ! plot spans this number of columns + +Grid_plot_pad_left(1, 6) = 0.04 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 6) = 0.02 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 6) = 0.03 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 6) = 0.0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 6) = 0.7 ! multiply txt_scale for subplot by this -Grid1_plot_name(7) = 'Profile_Panels2' -Grid1_plot_row(7) = 1 ! number from 1 at top -Grid1_plot_rowspan(7) = 2 ! plot spans this number of rows -Grid1_plot_col(7) = 5 ! Number from 1 at left -Grid1_plot_colspan(7) = 1 ! plot spans this number of columns +Grid_plot_name(1, 7) = 'Profile_Panels2' +Grid_plot_row(1, 7) = 1 ! number from 1 at top +Grid_plot_rowspan(1, 7) = 2 ! plot spans this number of rows +Grid_plot_col(1, 7) = 5 ! Number from 1 at left +Grid_plot_colspan(1, 7) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(7) = 0.06 ! fraction of full window width for padding on left -Grid1_plot_pad_right(7) = 0.02 ! fraction of full window width for padding on right -Grid1_plot_pad_top(7) = 0.03 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(7) = 0.00 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(7) = 0.7 ! multiply txt_scale for subplot by this - - -Grid1_plot_name(8) = 'HR' -Grid1_plot_row(8) = 2 ! number from 1 at top -Grid1_plot_rowspan(8) = 1 ! plot spans this number of rows -Grid1_plot_col(8) = 3 ! number from 1 at left -Grid1_plot_colspan(8) = 1 ! plot spans this number of columns +Grid_plot_pad_left(1, 7) = 0.06 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 7) = 0.02 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 7) = 0.03 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 7) = 0.00 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 7) = 0.7 ! multiply txt_scale for subplot by this + + +Grid_plot_name(1, 8) = 'HR' +Grid_plot_row(1, 8) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 8) = 1 ! plot spans this number of rows +Grid_plot_col(1, 8) = 3 ! number from 1 at left +Grid_plot_colspan(1, 8) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(8) = 0.04 ! fraction of full window width for padding on left -Grid1_plot_pad_right(8) = -0.01 ! fraction of full window width for padding on right -Grid1_plot_pad_top(8) = 0.05 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(8) = -0.02 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(8) = 0.7 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 8) = 0.04 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 8) = -0.01 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 8) = 0.05 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 8) = -0.02 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 8) = 0.7 ! multiply txt_scale for subplot by this ! file output -Grid1_file_flag = .true. -Grid1_file_dir = 'Grid1' -Grid1_file_prefix = 'grid1_' -Grid1_file_interval = 250 ! output when mod(model_number,Grid1_file_interval)==0 -Grid1_file_width = -1 ! (inches) negative means use same value as for window -Grid1_file_aspect_ratio = -1 ! negative means use same value as for window +Grid_file_flag(1) = .true. +Grid_file_dir(1) = 'Grid1' +Grid_file_prefix(1) = 'grid1_' +Grid_file_interval(1) = 250 ! output when mod(model_number,Grid_file_interval(1))==0 +Grid_file_width(1) = -1 ! (inches) negative means use same value as for window +Grid_file_aspect_ratio(1) = -1 ! negative means use same value as for window !------------------------------------------------------------------------------------ diff --git a/star/test_suite/wd_acc_small_dm/inlist_pgstar b/star/test_suite/wd_acc_small_dm/inlist_pgstar index 02a76f030..fd1b283bc 100644 --- a/star/test_suite/wd_acc_small_dm/inlist_pgstar +++ b/star/test_suite/wd_acc_small_dm/inlist_pgstar @@ -1,106 +1,106 @@ &pgstar - Grid1_title = 'wd_acc_small_dm' - Grid1_win_flag = .false. + Grid_title(1) = 'wd_acc_small_dm' + Grid_win_flag(1) = .false. - Grid1_win_width = 12 - Grid1_win_aspect_ratio = 0.4 ! aspect_ratio = height/width + Grid_win_width(1) = 12 + Grid_win_aspect_ratio(1) = 0.4 ! aspect_ratio = height/width - Grid1_xleft = 0.05 ! fraction of full window width for margin on left - Grid1_xright = 0.95 ! fraction of full window width for margin on right - Grid1_ybot = 0.08 ! fraction of full window width for margin on bottom - Grid1_ytop = 0.92 ! fraction of full window width for margin on top + Grid_xleft(1) = 0.05 ! fraction of full window width for margin on left + Grid_xright(1) = 0.95 ! fraction of full window width for margin on right + Grid_ybot(1) = 0.08 ! fraction of full window width for margin on bottom + Grid_ytop(1) = 0.92 ! fraction of full window width for margin on top - Grid1_num_cols = 5 ! divide plotting region into this many equal width cols - Grid1_num_rows = 1 ! divide plotting region into this many equal height rows - Grid1_num_plots = 2 ! <= 10 + Grid_num_cols(1) = 5 ! divide plotting region into this many equal width cols + Grid_num_rows(1) = 1 ! divide plotting region into this many equal height rows + Grid_num_plots(1) = 2 ! <= 10 - Grid1_plot_name(1) = 'History_Panels1' - Grid1_plot_row(1) = 1 ! number from 1 at top - Grid1_plot_rowspan(1) = 1 ! plot spans this number of rows - Grid1_plot_col(1) = 1 ! number from 1 at left - Grid1_plot_colspan(1) = 2 ! plot spans this number of columns - Grid1_plot_pad_left(1) = 0.025 ! fraction of full window width for padding on left - Grid1_plot_pad_right(1) = 0.05 ! fraction of full window width for padding on right - Grid1_plot_pad_top(1) = 0.05 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(1) = 0.05 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(1) = 1.0 ! multiply txt_scale for subplot by this + Grid_plot_name(1, 1) = 'History_Panels1' + Grid_plot_row(1, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(1, 1) = 1 ! plot spans this number of rows + Grid_plot_col(1, 1) = 1 ! number from 1 at left + Grid_plot_colspan(1, 1) = 2 ! plot spans this number of columns + Grid_plot_pad_left(1, 1) = 0.025 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 1) = 0.05 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 1) = 0.05 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 1) = 0.05 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 1) = 1.0 ! multiply txt_scale for subplot by this !### History_Panels1 - History_Panels1_win_flag = .false. + History_Panels_win_flag(1) = .false. - ! History_Panels1_xleft = 0.15 - ! History_Panels1_xright = 0.85 - ! History_Panels1_ybot = 0.15 - ! History_Panels1_ytop = 0.85 - ! History_Panels1_txt_scale = 1.0 - ! History_Panels1_title = 'History_Panels1' + ! History_Panels_xleft(1) = 0.15 + ! History_Panels_xright(1) = 0.85 + ! History_Panels_ybot(1) = 0.15 + ! History_Panels_ytop(1) = 0.85 + ! History_Panels_txt_scale(1) = 1.0 + ! History_Panels_title(1) = 'History_Panels1' - History_Panels1_xaxis_name = 'star_age' - History_Panels1_xmin = 0 - History_Panels1_xmax = 1e-5 - History_Panels1_max_width = -1 + History_Panels_xaxis_name(1) = 'star_age' + History_Panels_xmin(1) = 0 + History_Panels_xmax(1) = 1e-5 + History_Panels_max_width(1) = -1 ! setup default - History_Panels1_num_panels = 1 + History_Panels_num_panels(1) = 1 - History_Panels1_yaxis_name(1) = 'h1_mass_added' - History_Panels1_yaxis_reversed(1) = .false. - History_Panels1_ymin(1) = -1e-15 - History_Panels1_ymax(1) = 2e-14 - History_Panels1_dymin(1) = -1 + History_Panels_yaxis_name(1, 1) = 'h1_mass_added' + History_Panels_yaxis_reversed(1, 1) = .false. + History_Panels_ymin(1, 1) = -1e-15 + History_Panels_ymax(1, 1) = 2e-14 + History_Panels_dymin(1, 1) = -1 - History_Panels1_other_yaxis_name(1) = '' + History_Panels_other_yaxis_name(1, 1) = '' - Grid1_plot_name(2) = 'Profile_Panels1' - Grid1_plot_row(2) = 1 ! number from 1 at top - Grid1_plot_rowspan(2) = 1 ! plot spans this number of rows - Grid1_plot_col(2) = 3 ! number from 1 at left - Grid1_plot_colspan(2) = 3 ! plot spans this number of columns - Grid1_plot_pad_left(2) = 0.05 ! fraction of full window width for padding on left - Grid1_plot_pad_right(2) = 0.025 ! fraction of full window width for padding on right - Grid1_plot_pad_top(2) = 0.05 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(2) = 0.05 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(2) = 1.0 ! multiply txt_scale for subplot by this + Grid_plot_name(1, 2) = 'Profile_Panels1' + Grid_plot_row(1, 2) = 1 ! number from 1 at top + Grid_plot_rowspan(1, 2) = 1 ! plot spans this number of rows + Grid_plot_col(1, 2) = 3 ! number from 1 at left + Grid_plot_colspan(1, 2) = 3 ! plot spans this number of columns + Grid_plot_pad_left(1, 2) = 0.05 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 2) = 0.025 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 2) = 0.05 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 2) = 0.05 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 2) = 1.0 ! multiply txt_scale for subplot by this ! plot h1 abundance - Profile_Panels1_win_flag = .false. + Profile_Panels_win_flag(1) = .false. - ! Profile_Panels1_xleft = 0.15 - ! Profile_Panels1_xright = 0.85 - ! Profile_Panels1_ybot = 0.15 - ! Profile_Panels1_ytop = 0.85 - ! Profile_Panels1_txt_scale = 1.0 - ! Profile_Panels1_title = 'Profile Panels1' + ! Profile_Panels_xleft(1) = 0.15 + ! Profile_Panels_xright(1) = 0.85 + ! Profile_Panels_ybot(1) = 0.15 + ! Profile_Panels_ytop(1) = 0.85 + ! Profile_Panels_txt_scale(1) = 1.0 + ! Profile_Panels_title(1) = 'Profile Panels1' - Profile_Panels1_xaxis_name = 'logxq' - Profile_Panels1_xaxis_reversed = .false. - Profile_Panels1_xmin = -15 - Profile_Panels1_xmax = -11 - Profile_Panels1_xmargin = 0d0 + Profile_Panels_xaxis_name(1) = 'logxq' + Profile_Panels_xaxis_reversed(1) = .false. + Profile_Panels_xmin(1) = -15 + Profile_Panels_xmax(1) = -11 + Profile_Panels_xmargin(1) = 0d0 - Profile_Panels1_show_grid = .true. + Profile_Panels_show_grid(1) = .true. ! setup default plot - Profile_Panels1_num_panels = 1 - Profile_Panels1_yaxis_name(1) = 'h1' - Profile_Panels1_ymin(1) = 0 - Profile_Panels1_ymax(1) = 1.0 - Profile_Panels1_other_yaxis_name(1) = 'he4' - Profile_Panels1_other_ymin(1) = 0 - Profile_Panels1_other_ymax(1) = 1.0 + Profile_Panels_num_panels(1) = 1 + Profile_Panels_yaxis_name(1, 1) = 'h1' + Profile_Panels_ymin(1, 1) = 0 + Profile_Panels_ymax(1, 1) = 1.0 + Profile_Panels_other_yaxis_name(1, 1) = 'he4' + Profile_Panels_other_ymin(1, 1) = 0 + Profile_Panels_other_ymax(1, 1) = 1.0 ! file output - Grid1_file_flag = .true. - Grid1_file_dir = 'png' - Grid1_file_prefix = 'grid1' - Grid1_file_interval = 1000000 ! output when mod(model_number,Grid1_file_interval)==0 - Grid1_file_width = -1 ! negative means use same value as for window - Grid1_file_aspect_ratio = -1 ! negative means use same value as for window + Grid_file_flag(1) = .true. + Grid_file_dir(1) = 'png' + Grid_file_prefix(1) = 'grid1' + Grid_file_interval(1) = 1000000 ! output when mod(model_number,Grid_file_interval(1))==0 + Grid_file_width(1) = -1 ! negative means use same value as for window + Grid_file_aspect_ratio(1) = -1 ! negative means use same value as for window diff --git a/star/test_suite/wd_aic/inlist_pgstar b/star/test_suite/wd_aic/inlist_pgstar index 292cedfb5..bac941f46 100644 --- a/star/test_suite/wd_aic/inlist_pgstar +++ b/star/test_suite/wd_aic/inlist_pgstar @@ -1,31 +1,31 @@ &pgstar - Grid1_title = 'wd_aic' - Grid1_win_flag = .false. + Grid_title(1) = 'wd_aic' + Grid_win_flag(1) = .false. - Grid1_win_width = 12 - Grid1_win_aspect_ratio = 0.4 ! aspect_ratio = height/width + Grid_win_width(1) = 12 + Grid_win_aspect_ratio(1) = 0.4 ! aspect_ratio = height/width - Grid1_xleft = 0.05 ! fraction of full window width for margin on left - Grid1_xright = 0.95 ! fraction of full window width for margin on right - Grid1_ybot = 0.08 ! fraction of full window width for margin on bottom - Grid1_ytop = 0.92 ! fraction of full window width for margin on top + Grid_xleft(1) = 0.05 ! fraction of full window width for margin on left + Grid_xright(1) = 0.95 ! fraction of full window width for margin on right + Grid_ybot(1) = 0.08 ! fraction of full window width for margin on bottom + Grid_ytop(1) = 0.92 ! fraction of full window width for margin on top - Grid1_num_cols = 5 ! divide plotting region into this many equal width cols - Grid1_num_rows = 1 ! divide plotting region into this many equal height rows - Grid1_num_plots = 2 ! <= 10 + Grid_num_cols(1) = 5 ! divide plotting region into this many equal width cols + Grid_num_rows(1) = 1 ! divide plotting region into this many equal height rows + Grid_num_plots(1) = 2 ! <= 10 - Grid1_plot_name(1) = 'TRho' - Grid1_plot_row(1) = 1 ! number from 1 at top - Grid1_plot_rowspan(1) = 1 ! plot spans this number of rows - Grid1_plot_col(1) = 1 ! number from 1 at left - Grid1_plot_colspan(1) = 2 ! plot spans this number of columns - Grid1_plot_pad_left(1) = 0.025 ! fraction of full window width for padding on left - Grid1_plot_pad_right(1) = 0.05 ! fraction of full window width for padding on right - Grid1_plot_pad_top(1) = 0.05 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(1) = 0.05 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(1) = 1.0 ! multiply txt_scale for subplot by this + Grid_plot_name(1, 1) = 'TRho' + Grid_plot_row(1, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(1, 1) = 1 ! plot spans this number of rows + Grid_plot_col(1, 1) = 1 ! number from 1 at left + Grid_plot_colspan(1, 1) = 2 ! plot spans this number of columns + Grid_plot_pad_left(1, 1) = 0.025 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 1) = 0.05 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 1) = 0.05 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 1) = 0.05 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 1) = 1.0 ! multiply txt_scale for subplot by this ! set range for TRho window TRho_logT_min = 8.3 @@ -34,16 +34,16 @@ TRho_logRho_max = 10.0 - Grid1_plot_name(2) = 'Abundance' - Grid1_plot_row(2) = 1 ! number from 1 at top - Grid1_plot_rowspan(2) = 1 ! plot spans this number of rows - Grid1_plot_col(2) = 3 ! number from 1 at left - Grid1_plot_colspan(2) = 3 ! plot spans this number of columns - Grid1_plot_pad_left(2) = 0.05 ! fraction of full window width for padding on left - Grid1_plot_pad_right(2) = 0.025 ! fraction of full window width for padding on right - Grid1_plot_pad_top(2) = 0.05 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(2) = 0.05 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(2) = 1.0 ! multiply txt_scale for subplot by this + Grid_plot_name(1, 2) = 'Abundance' + Grid_plot_row(1, 2) = 1 ! number from 1 at top + Grid_plot_rowspan(1, 2) = 1 ! plot spans this number of rows + Grid_plot_col(1, 2) = 3 ! number from 1 at left + Grid_plot_colspan(1, 2) = 3 ! plot spans this number of columns + Grid_plot_pad_left(1, 2) = 0.05 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 2) = 0.025 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 2) = 0.05 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 2) = 0.05 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 2) = 1.0 ! multiply txt_scale for subplot by this ! set abundance plot limits Abundance_xmin = 0 @@ -64,11 +64,11 @@ ! file output - Grid1_file_flag = .true. - Grid1_file_dir = 'png' - Grid1_file_prefix = 'grid1' - Grid1_file_interval = 1000000 ! output when mod(model_number,Grid1_file_interval)==0 - Grid1_file_width = -1 ! negative means use same value as for window - Grid1_file_aspect_ratio = -1 ! negative means use same value as for window + Grid_file_flag(1) = .true. + Grid_file_dir(1) = 'png' + Grid_file_prefix(1) = 'grid1' + Grid_file_interval(1) = 1000000 ! output when mod(model_number,Grid_file_interval(1))==0 + Grid_file_width(1) = -1 ! negative means use same value as for window + Grid_file_aspect_ratio(1) = -1 ! negative means use same value as for window / ! end of pgstar namelist diff --git a/star/test_suite/wd_c_core_ignition/README.rst b/star/test_suite/wd_c_core_ignition/README.rst index 8e1c1f449..9283180e8 100644 --- a/star/test_suite/wd_c_core_ignition/README.rst +++ b/star/test_suite/wd_c_core_ignition/README.rst @@ -98,29 +98,29 @@ pgstar commands used for the Part 2 plots above: TRho_file_aspect_ratio = -1 - History_Track1_win_flag = .true. - History_Track1_win_width = 12 - History_Track1_win_aspect_ratio = 0.75 - History_Track1_title = 'wd_c_core_ignition' - - History_Track1_xname = 'log_center_T' - History_Track1_yname = 'log_Lnuc' - History_Track1_xaxis_label = 'log T\dcenter' - History_Track1_yaxis_label = 'log Lnuc/L\d\(2281)' - History_Track1_reverse_xaxis = .false. - History_Track1_reverse_yaxis = .false. - - History_Track1_xmin = 7.7 - History_Track1_xmax = 8.7 - History_Track1_ymin = -5.0 - History_Track1_ymax = 9.0 - - History_Track1_file_flag = .true. - History_Track1_file_dir = 'pgstar_out' - History_Track1_file_prefix = 'track1_' - History_Track1_file_interval = 10000 - History_Track1_file_width = -1 - History_Track1_file_aspect_ratio = -1 + History_Track_win_flag(1) = .true. + History_Track_win_width(1) = 12 + History_Track_win_aspect_ratio(1) = 0.75 + History_Track_title(1) = 'wd_c_core_ignition' + + History_Track_xname(1) = 'log_center_T' + History_Track_yname(1) = 'log_Lnuc' + History_Track_xaxis_label(1) = 'log T\dcenter' + History_Track_yaxis_label(1) = 'log Lnuc/L\d\(2281)' + History_Track_reverse_xaxis(1) = .false. + History_Track_reverse_yaxis(1) = .false. + + History_Track_xmin(1) = 7.7 + History_Track_xmax(1) = 8.7 + History_Track_ymin(1) = -5.0 + History_Track_ymax(1) = 9.0 + + History_Track_file_flag(1) = .true. + History_Track_file_dir(1) = 'pgstar_out' + History_Track_file_prefix(1) = 'track1_' + History_Track_file_interval(1) = 10000 + History_Track_file_width(1) = -1 + History_Track_file_aspect_ratio(1) = -1 Kipp_win_flag = .true. Kipp_win_width = 12 diff --git a/star/test_suite/wd_c_core_ignition/inlist_wd_c_core_ignition b/star/test_suite/wd_c_core_ignition/inlist_wd_c_core_ignition index 36ef88805..aa1be34b3 100644 --- a/star/test_suite/wd_c_core_ignition/inlist_wd_c_core_ignition +++ b/star/test_suite/wd_c_core_ignition/inlist_wd_c_core_ignition @@ -112,19 +112,19 @@ show_TRho_Profile_text_info = .true. - !History_Panels1_win_flag = .true. - History_Panels1_yaxis_name(3) = 'log_R' - History_Panels1_other_yaxis_name(3) = 'v_div_csound_surf' + !History_Panels_win_flag(1) = .true. + History_Panels_yaxis_name(1, 3) = 'log_R' + History_Panels_other_yaxis_name(1, 3) = 'v_div_csound_surf' Abundance_win_flag = .true. Abundance_xaxis_name = 'zone' - Profile_Panels1_win_flag = .true. + Profile_Panels_win_flag(1) = .true. - Profile_Panels1_num_panels = 2 - Profile_Panels1_yaxis_name(1) = 'logT' - Profile_Panels1_other_yaxis_name(1) = 'entropy' - Profile_Panels1_yaxis_name(2) = 'logRho' - Profile_Panels1_other_yaxis_name(2) = 'log_D_mix' + Profile_Panels_num_panels(1) = 2 + Profile_Panels_yaxis_name(1, 1) = 'logT' + Profile_Panels_other_yaxis_name(1, 1) = 'entropy' + Profile_Panels_yaxis_name(1, 2) = 'logRho' + Profile_Panels_other_yaxis_name(1, 2) = 'log_D_mix' / ! end of pgstar namelist diff --git a/star/test_suite/wd_cool_0.6M/README.rst b/star/test_suite/wd_cool_0.6M/README.rst index d899bc797..b5cc58253 100644 --- a/star/test_suite/wd_cool_0.6M/README.rst +++ b/star/test_suite/wd_cool_0.6M/README.rst @@ -34,17 +34,17 @@ pgstar commands used for the plots above: file_device = 'vcps' ! postscript file_extension = 'ps' - Grid2_win_flag = .true. - Grid2_win_width = 16 - Grid2_title = 'inlist_wd_cool_0.6M' - Grid2_xleft = 0.08 - Grid2_xright = 0.99 - Grid2_ybot = 0.04 - Grid2_ytop = 0.92 - - Grid2_file_flag = .true. - Grid2_file_width = 16 - Grid2_file_interval = 10000 + Grid_win_flag(2) = .true. + Grid_win_width(2) = 16 + Grid_title(2) = 'inlist_wd_cool_0.6M' + Grid_xleft(2) = 0.08 + Grid_xright(2) = 0.99 + Grid_ybot(2) = 0.04 + Grid_ytop(2) = 0.92 + + Grid_file_flag(2) = .true. + Grid_file_width(2) = 16 + Grid_file_interval(2) = 10000 TRho_Profile_xmin = -6.0 TRho_Profile_xmax = 7.0 diff --git a/star/test_suite/wd_cool_0.6M/inlist_wd_cool_0.6M b/star/test_suite/wd_cool_0.6M/inlist_wd_cool_0.6M index 3dda3624b..ea2b9b821 100644 --- a/star/test_suite/wd_cool_0.6M/inlist_wd_cool_0.6M +++ b/star/test_suite/wd_cool_0.6M/inlist_wd_cool_0.6M @@ -138,12 +138,12 @@ &pgstar - ! Grid2_win_flag = .true. - Grid2_win_width = 10 + ! Grid_win_flag(2) = .true. + Grid_win_width(2) = 10 - Grid2_file_flag = .true. - Grid2_file_width = 12 - Grid2_file_interval = 100000 + Grid_file_flag(2) = .true. + Grid_file_width(2) = 12 + Grid_file_interval(2) = 100000 ! TRho_Profile_win_flag = .true. show_TRho_Profile_kap_regions = .false. diff --git a/star/test_suite/wd_diffusion/README.rst b/star/test_suite/wd_diffusion/README.rst index 2543da0f0..ccd1d37d1 100644 --- a/star/test_suite/wd_diffusion/README.rst +++ b/star/test_suite/wd_diffusion/README.rst @@ -34,30 +34,30 @@ pgstar commands used for the plots above: file_device = 'vcps' ! postscript file_extension = 'ps' - Profile_Panels2_win_flag = .true. - Profile_Panels2_win_width = 12 - Profile_Panels2_title = 'wd_diffusion' + Profile_Panels_win_flag(2) = .true. + Profile_Panels_win_width(2) = 12 + Profile_Panels_title(2) = 'wd_diffusion' - Profile_Panels2_yaxis_name(2) = 'eE_div_mg_element_diffusion' + Profile_Panels_yaxis_name(2, 2) = 'eE_div_mg_element_diffusion' - Profile_Panels2_xaxis_name = 'logxm' - Profile_Panels2_xaxis_reversed = .true. - Profile_Panels2_xmin = -8 - Profile_Panels2_xmax = 0 - Profile_Panels2_show_mix_regions_on_xaxis = .true. + Profile_Panels_xaxis_name(2) = 'logxm' + Profile_Panels_xaxis_reversed(2) = .true. + Profile_Panels_xmin(2) = -8 + Profile_Panels_xmax(2) = 0 + Profile_Panels_show_mix_regions_on_xaxis(2) = .true. - Profile_Panels2_xright = 0.92 - Profile_Panels2_ytop = 0.92 + Profile_Panels_xright(2) = 0.92 + Profile_Panels_ytop(2) = 0.92 num_abundance_line_labels = 5 Abundance_legend_max_cnt = 0 - Profile_Panels2_file_flag = .true. - Profile_Panels2_file_dir = 'pgstar_out' - Profile_Panels2_file_prefix = 'profile_' - Profile_Panels2_file_interval = 100000 - Profile_Panels2_file_width = -1 - Profile_Panels2_file_aspect_ratio = -1 + Profile_Panels_file_flag(2) = .true. + Profile_Panels_file_dir(2) = 'pgstar_out' + Profile_Panels_file_prefix(2) = 'profile_' + Profile_Panels_file_interval(2) = 100000 + Profile_Panels_file_width(2) = -1 + Profile_Panels_file_aspect_ratio(2) = -1 / ! end of pgstar namelist diff --git a/star/test_suite/wd_diffusion/inlist_wd_diff b/star/test_suite/wd_diffusion/inlist_wd_diff index b987a5039..e31743687 100644 --- a/star/test_suite/wd_diffusion/inlist_wd_diff +++ b/star/test_suite/wd_diffusion/inlist_wd_diff @@ -97,16 +97,16 @@ &pgstar - ! Profile_Panels2_win_flag = .true. - Profile_Panels2_file_flag = .true. - Profile_Panels2_file_interval = 100000 - Profile_Panels2_yaxis_name(2) = 'eE_div_mg_element_diffusion' - Profile_Panels2_title = 'Abundance-Efield' - Profile_Panels2_xaxis_name = 'logxm' - Profile_Panels2_xaxis_reversed = .true. - Profile_Panels2_xmin = -8 - Profile_Panels2_xmax = 0 - Profile_Panels2_show_mix_regions_on_xaxis = .true. + ! Profile_Panels_win_flag(2) = .true. + Profile_Panels_file_flag(2) = .true. + Profile_Panels_file_interval(2) = 100000 + Profile_Panels_yaxis_name(2, 2) = 'eE_div_mg_element_diffusion' + Profile_Panels_title(2) = 'Abundance-Efield' + Profile_Panels_xaxis_name(2) = 'logxm' + Profile_Panels_xaxis_reversed(2) = .true. + Profile_Panels_xmin(2) = -8 + Profile_Panels_xmax(2) = 0 + Profile_Panels_show_mix_regions_on_xaxis(2) = .true. / ! end of pgstar namelist diff --git a/star/test_suite/wd_he_shell_ignition/README.rst b/star/test_suite/wd_he_shell_ignition/README.rst index 4cdd03df1..7e7f7a572 100644 --- a/star/test_suite/wd_he_shell_ignition/README.rst +++ b/star/test_suite/wd_he_shell_ignition/README.rst @@ -44,57 +44,57 @@ pgstar commands used for the plots above: file_extension = 'ps' - Profile_Panels2_win_flag = .true. - Profile_Panels2_win_width = 10 - Profile_Panels2_title = 'wd_he_shell_ignition' + Profile_Panels_win_flag(2) = .true. + Profile_Panels_win_width(2) = 10 + Profile_Panels_title(2) = 'wd_he_shell_ignition' - Profile_Panels2_xaxis_name = 'mass' - Profile_Panels2_xaxis_reversed = .false. - Profile_Panels2_xmin = 0.90 - Profile_Panels2_xmax = 1.2 - Profile_Panels2_show_mix_regions_on_xaxis = .false. + Profile_Panels_xaxis_name(2) = 'mass' + Profile_Panels_xaxis_reversed(2) = .false. + Profile_Panels_xmin(2) = 0.90 + Profile_Panels_xmax(2) = 1.2 + Profile_Panels_show_mix_regions_on_xaxis(2) = .false. - Profile_Panels2_xright = 0.92 - Profile_Panels2_ytop = 0.92 + Profile_Panels_xright(2) = 0.92 + Profile_Panels_ytop(2) = 0.92 num_abundance_line_labels = 5 Abundance_legend_max_cnt = 0 - Profile_Panels2_yaxis_name(2) = 'Power' - Profile_Panels2_ymin(2) = 5.0 - Profile_Panels2_ymax(2) = 15.0 - - Profile_Panels2_file_flag = .true. - Profile_Panels2_file_dir = 'pgstar_out' - Profile_Panels2_file_prefix = 'profile_' - Profile_Panels2_file_interval = 100000 - Profile_Panels2_file_width = -1 - Profile_Panels2_file_aspect_ratio = -1 - - - History_Track1_win_flag = .true. - History_Track1_win_width = 12 - History_Track1_win_aspect_ratio = 0.75 - History_Track1_title = 'wd_he_shell_ignition' - - History_Track1_xname = 'log_star_age' - History_Track1_yname = 'log_Lnuc' - History_Track1_xaxis_label = 'log10(star_age/yr)' - History_Track1_yaxis_label = 'log Lnuc/L\d\(2281)' - History_Track1_reverse_xaxis = .false. - History_Track1_reverse_yaxis = .false. - - History_Track1_xmin = 6.0 - History_Track1_xmax = 9.0 - History_Track1_ymin = -11.0 - History_Track1_ymax = 12.0 - - History_Track1_file_flag = .true. - History_Track1_file_dir = 'pgstar_out' - History_Track1_file_prefix = 'track1_' - History_Track1_file_interval = 10000 - History_Track1_file_width = -1 - History_Track1_file_aspect_ratio = -1 + Profile_Panels_yaxis_name(2, 2) = 'Power' + Profile_Panels_ymin(2, 2) = 5.0 + Profile_Panels_ymax(2, 2) = 15.0 + + Profile_Panels_file_flag(2) = .true. + Profile_Panels_file_dir(2) = 'pgstar_out' + Profile_Panels_file_prefix(2) = 'profile_' + Profile_Panels_file_interval(2) = 100000 + Profile_Panels_file_width(2) = -1 + Profile_Panels_file_aspect_ratio(2) = -1 + + + History_Track_win_flag(1) = .true. + History_Track_win_width(1) = 12 + History_Track_win_aspect_ratio(1) = 0.75 + History_Track_title(1) = 'wd_he_shell_ignition' + + History_Track_xname(1) = 'log_star_age' + History_Track_yname(1) = 'log_Lnuc' + History_Track_xaxis_label(1) = 'log10(star_age/yr)' + History_Track_yaxis_label(1) = 'log Lnuc/L\d\(2281)' + History_Track_reverse_xaxis(1) = .false. + History_Track_reverse_yaxis(1) = .false. + + History_Track_xmin(1) = 6.0 + History_Track_xmax(1) = 9.0 + History_Track_ymin(1) = -11.0 + History_Track_ymax(1) = 12.0 + + History_Track_file_flag(1) = .true. + History_Track_file_dir(1) = 'pgstar_out' + History_Track_file_prefix(1) = 'track1_' + History_Track_file_interval(1) = 10000 + History_Track_file_width(1) = -1 + History_Track_file_aspect_ratio(1) = -1 TRho_Profile_win_flag = .true. diff --git a/star/test_suite/wd_he_shell_ignition/inlist_he_shell_ignition b/star/test_suite/wd_he_shell_ignition/inlist_he_shell_ignition index 45e358413..788ca237a 100644 --- a/star/test_suite/wd_he_shell_ignition/inlist_he_shell_ignition +++ b/star/test_suite/wd_he_shell_ignition/inlist_he_shell_ignition @@ -145,8 +145,8 @@ !pause = .true. ! if true, the code waits for user to enter a RETURN on the command line - Grid8_win_flag = .true. - Grid8_win_width = 11.5 + Grid_win_flag(8) = .true. + Grid_win_width(8) = 11.5 Summary_Burn_xaxis_name = 'logxq' Summary_Burn_xaxis_reversed = .true. Summary_Burn_xmin = -14 ! -101d0 ! only used if /= -101d0 @@ -156,14 +156,14 @@ Abundance_xmin = -14 ! -101d0 ! only used if /= -101d0 Abundance_xmax = 0 ! -101d0 ! only used if /= -101d0 - Text_Summary1_name(5,2) = 'time_step_sec' - Text_Summary1_name(6,2) = 'max_tau_conv' - !Text_Summary1_name(7,2) = 'cz_bot_radius' - !Text_Summary1_name(8,2) = 'cz_top_radius' + Text_Summary_name(1, 5, 2) = 'time_step_sec' + Text_Summary_name(1, 6, 2) = 'max_tau_conv' + !Text_Summary_name(1, 7, 2) = 'cz_bot_radius' + !Text_Summary_name(1, 8, 2) = 'cz_top_radius' -Profile_Panels1_win_flag = .true. -Profile_Panels1_yaxis_name(1) = 'tdc_num_iters' -Profile_Panels1_xaxis_name = 'zone' -Profile_Panels1_ymin(1) = 0 -Profile_Panels1_ymax(1) = 10 +Profile_Panels_win_flag(1) = .true. +Profile_Panels_yaxis_name(1, 1) = 'tdc_num_iters' +Profile_Panels_xaxis_name(1) = 'zone' +Profile_Panels_ymin(1, 1) = 0 +Profile_Panels_ymax(1, 1) = 10 / ! end of pgstar namelist diff --git a/star/test_suite/wd_nova_burst/inlist_pgstar b/star/test_suite/wd_nova_burst/inlist_pgstar index d4cf93dbc..1af0d4715 100644 --- a/star/test_suite/wd_nova_burst/inlist_pgstar +++ b/star/test_suite/wd_nova_burst/inlist_pgstar @@ -9,9 +9,9 @@ pgstar_interval = 1 - Grid8_win_flag = .true. - Grid8_win_width = 12 - Grid8_title = 'wd_nova_burst' + Grid_win_flag(8) = .true. + Grid_win_width(8) = 12 + Grid_title(8) = 'wd_nova_burst' Summary_Burn_xaxis_name = 'logxq' Summary_Burn_xaxis_reversed = .true. @@ -51,14 +51,14 @@ TRho_Profile_ymin = 5.0 TRho_Profile_ymax = 9.0 - Text_Summary1_name(5,2) = 'time_step_sec' - Text_Summary1_name(6,2) = 'max_tau_conv' + Text_Summary_name(1,5,2) = 'time_step_sec' + Text_Summary_name(1,6,2) = 'max_tau_conv' - Grid8_file_flag = .true. - Grid8_file_dir = 'pgstar_out' - Grid8_file_prefix = 'grid8_' - Grid8_file_interval = 10000 - Grid8_file_width = -1 - Grid8_file_aspect_ratio = -1 + Grid_file_flag(8) = .true. + Grid_file_dir(8) = 'pgstar_out' + Grid_file_prefix(8) = 'grid8_' + Grid_file_interval(8) = 10000 + Grid_file_width(8) = -1 + Grid_file_aspect_ratio(8) = -1 / ! end of pgstar namelist diff --git a/star/test_suite/wd_nova_burst/inlist_setup b/star/test_suite/wd_nova_burst/inlist_setup index ee9e1c644..45ba310d7 100644 --- a/star/test_suite/wd_nova_burst/inlist_setup +++ b/star/test_suite/wd_nova_burst/inlist_setup @@ -153,13 +153,13 @@ &pgstar - Grid8_win_flag = .true. - Grid8_win_width = 7 - Summary_Burn_xaxis_name = 'logxq' + Grid_win_flag(8) = .true. + Grid_win_width(8) = 7 + Summary_Burn_xaxis_name = 'logxq' Summary_Burn_xaxis_reversed = .true. Summary_Burn_xmin = -14 ! -101d0 ! only used if /= -101d0 Summary_Burn_xmax = -3 ! -101d0 ! only used if /= -101d0 - Abundance_xaxis_name = 'logxq' + Abundance_xaxis_name = 'logxq' Abundance_xaxis_reversed = .true. Abundance_xmin = -14 ! -101d0 ! only used if /= -101d0 Abundance_xmax = -3 ! -101d0 ! only used if /= -101d0 diff --git a/star/test_suite/wd_nova_burst/inlist_wd_nova_burst b/star/test_suite/wd_nova_burst/inlist_wd_nova_burst index e354063b9..36689d0ba 100644 --- a/star/test_suite/wd_nova_burst/inlist_wd_nova_burst +++ b/star/test_suite/wd_nova_burst/inlist_wd_nova_burst @@ -148,21 +148,21 @@ &pgstar - Grid8_win_flag = .true. - Grid8_win_width = 7 - Summary_Burn_xaxis_name = 'logxq' - Summary_Burn_xaxis_reversed = .true. - Summary_Burn_xmin = -14 ! -101d0 ! only used if /= -101d0 - Summary_Burn_xmax = -3 ! -101d0 ! only used if /= -101d0 - Abundance_xaxis_name = 'logxq' - Abundance_xaxis_reversed = .true. - Abundance_xmin = -14 ! -101d0 ! only used if /= -101d0 - Abundance_xmax = -3 ! -101d0 ! only used if /= -101d0 - - Text_Summary1_name(5,2) = 'time_step_sec' - Text_Summary1_name(6,2) = 'max_tau_conv' - !Text_Summary1_name(7,2) = 'cz_bot_radius' - !Text_Summary1_name(8,2) = 'cz_top_radius' + Grid_win_flag(8) = .true. + Grid_win_width(8) = 7 + Summary_Burn_xaxis_name = 'logxq' + Summary_Burn_xaxis_reversed = .true. + Summary_Burn_xmin = -14 ! -101d0 ! only used if /= -101d0 + Summary_Burn_xmax = -3 ! -101d0 ! only used if /= -101d0 + Abundance_xaxis_name = 'logxq' + Abundance_xaxis_reversed = .true. + Abundance_xmin = -14 ! -101d0 ! only used if /= -101d0 + Abundance_xmax = -3 ! -101d0 ! only used if /= -101d0 + + Text_Summary_name(1, 5, 2) = 'time_step_sec' + Text_Summary_name(1, 6, 2) = 'max_tau_conv' + !Text_Summary_name(1, 7, 2) = 'cz_bot_radius' + !Text_Summary_name(1, 8, 2) = 'cz_top_radius' / ! end of pgstar namelist diff --git a/star/test_suite/wd_stable_h_burn/README.rst b/star/test_suite/wd_stable_h_burn/README.rst index e960b8cc9..79378317e 100644 --- a/star/test_suite/wd_stable_h_burn/README.rst +++ b/star/test_suite/wd_stable_h_burn/README.rst @@ -33,141 +33,141 @@ pgstar commands used for the plots above: pgstar_left_yaxis_label_disp = 4.0 - History_Track1_win_flag = .false. - History_Track1_win_width = 12 - History_Track1_win_aspect_ratio = 0.75 - History_Track1_txt_scale = 0.8 - History_Track1_title = ' ' - - History_Track1_xname = 'star_age' - History_Track1_yname = 'total_mass_h1' - History_Track1_xaxis_label = ' ' - History_Track1_yaxis_label = 'H1 Mass (M\d\(2281)\u)' - History_Track1_reverse_xaxis = .false. - History_Track1_reverse_yaxis = .false. - - History_Track1_xmin = 0.0 - History_Track1_xmax = 420.0 - History_Track1_ymin = 0.0 - History_Track1_ymax = 2.0e-5 - - History_Track1_file_flag = .false. - History_Track1_file_dir = 'pgstar_out' - History_Track1_file_prefix = 'track1_' - History_Track1_file_interval = 10000 - History_Track1_file_width = -1 - History_Track1_file_aspect_ratio = -1 - - - History_Track2_win_flag = .false. - History_Track2_win_width = 12 - History_Track2_win_aspect_ratio = 0.75 - History_Track2_txt_scale = 0.8 - History_Track2_title = ' ' - - History_Track2_xname = 'star_age' - History_Track2_yname = 'log_LH' - History_Track2_xaxis_label = ' ' - History_Track2_yaxis_label = 'log10 (LH/L\d\(2281)\u)' - History_Track2_reverse_xaxis = .false. - History_Track2_reverse_yaxis = .false. - - History_Track2_xmin = 0 - History_Track2_xmax = 420.0 - History_Track2_ymin = 0 - History_Track2_ymax = 8.0 - - History_Track2_file_flag = .false. - History_Track2_file_dir = 'pgstar_out' - History_Track2_file_prefix = 'track2_' - History_Track2_file_interval = 10000 - History_Track2_file_width = -1 - History_Track2_file_aspect_ratio = -1 - - - History_Track3_win_flag = .false. - History_Track3_win_width = 12 - History_Track3_win_aspect_ratio = 0.75 - History_Track3_txt_scale = 0.8 - History_Track3_title = ' ' - - History_Track3_xname = 'star_age' - History_Track3_yname = 'log_R' - History_Track3_xaxis_label = 'Time (yr)' - History_Track3_yaxis_label = 'log10 (R/R\d\(2281)\u)' - History_Track3_reverse_xaxis = .false. - History_Track3_reverse_yaxis = .false. - - History_Track3_xmin = 0 - History_Track3_xmax = 420.0 - History_Track3_ymin = -2.5 - History_Track3_ymax = 0.2 - - History_Track3_file_flag = .false. - History_Track3_file_dir = 'pgstar_out' - History_Track3_file_prefix = 'track3_' - History_Track3_file_interval = 10000 - History_Track3_file_width = -1 - History_Track3_file_aspect_ratio = -1 - - Grid1_win_flag = .true. - Grid1_win_width = 10 - Grid1_win_aspect_ratio = 1.2 - - Grid1_plot_name(:) = '' - Grid1_txt_scale_factor(:) = 1.0 ! multiply txt_scale for subplot by this - - Grid1_title = 'wd_stable_h_burn' - - Grid1_num_cols = 1 ! divide plotting region into this many equal width cols - Grid1_num_rows = 3 ! divide plotting region into this many equal height rows - Grid1_num_plots = 3 ! <= 10 - - Grid1_plot_name(1) = 'History_Track1' - Grid1_plot_row(1) = 1 ! number from 1 at top - Grid1_plot_rowspan(1) = 1 ! plot spans this number of rows - Grid1_plot_col(1) = 1 ! number from 1 at left - Grid1_plot_colspan(1) = 1 ! plot spans this number of columns - - Grid1_plot_pad_left(1) = 0.00 ! fraction of full window width for padding on left - Grid1_plot_pad_right(1) = -0.02 ! fraction of full window width for padding on right - Grid1_plot_pad_top(1) = -0.02 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(1) = 0.05 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(1) = 0.8 ! multiply txt_scale for subplot by this - - - Grid1_plot_name(2) = 'History_Track2' - Grid1_plot_row(2) = 2 ! number from 1 at top - Grid1_plot_rowspan(2) = 1 ! plot spans this number of rows - Grid1_plot_col(2) = 1 ! number from 1 at left - Grid1_plot_colspan(2) = 1 ! plot spans this number of columns - - Grid1_plot_pad_left(2) = 0.0 ! fraction of full window width for padding on left - Grid1_plot_pad_right(2) = -0.02 ! fraction of full window width for padding on right - Grid1_plot_pad_top(2) = 0.0 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(2) = 0.00 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(2) = 0.8 ! multiply txt_scale for subplot by this - - - Grid1_plot_name(3) = 'History_Track3' - Grid1_plot_row(3) = 3 ! number from 1 at top - Grid1_plot_rowspan(3) = 1 ! plot spans this number of rows - Grid1_plot_col(3) = 1 ! number from 1 at left - Grid1_plot_colspan(3) = 1 ! plot spans this number of columns - - Grid1_plot_pad_left(3) = 0.0 ! fraction of full window width for padding on left - Grid1_plot_pad_right(3) = -0.02 ! fraction of full window width for padding on right - Grid1_plot_pad_top(3) = 0.05 ! fraction of full window height for padding at top - Grid1_plot_pad_bot(3) = -0.03 ! fraction of full window height for padding at bottom - Grid1_txt_scale_factor(3) = 0.8 ! multiply txt_scale for subplot by this - - - Grid1_file_flag = .true. - Grid1_file_dir = 'pgstar_out' - Grid1_file_prefix = 'grid_' - Grid1_file_interval = 10000 - Grid1_file_width = -1 - Grid1_file_aspect_ratio = -1 + History_Track_win_flag(1) = .false. + History_Track_win_width(1) = 12 + History_Track_win_aspect_ratio(1) = 0.75 + History_Track_txt_scale(1) = 0.8 + History_Track_title(1) = ' ' + + History_Track_xname(1) = 'star_age' + History_Track_yname(1) = 'total_mass_h1' + History_Track_xaxis_label(1) = ' ' + History_Track_yaxis_label(1) = 'H1 Mass (M\d\(2281)\u)' + History_Track_reverse_xaxis(1) = .false. + History_Track_reverse_yaxis(1) = .false. + + History_Track_xmin(1) = 0.0 + History_Track_xmax(1) = 420.0 + History_Track_ymin(1) = 0.0 + History_Track_ymax(1) = 2.0e-5 + + History_Track_file_flag(1) = .false. + History_Track_file_dir(1) = 'pgstar_out' + History_Track_file_prefix(1) = 'track1_' + History_Track_file_interval(1) = 10000 + History_Track_file_width(1) = -1 + History_Track_file_aspect_ratio(1) = -1 + + + History_Track_win_flag(2) = .false. + History_Track_win_width(2) = 12 + History_Track_win_aspect_ratio(2) = 0.75 + History_Track_txt_scale(2) = 0.8 + History_Track_title(2) = ' ' + + History_Track_xname(2) = 'star_age' + History_Track_yname(2) = 'log_LH' + History_Track_xaxis_label(2) = ' ' + History_Track_yaxis_label(2) = 'log10 (LH/L\d\(2281)\u)' + History_Track_reverse_xaxis(2) = .false. + History_Track_reverse_yaxis(2) = .false. + + History_Track_xmin(2) = 0 + History_Track_xmax(2) = 420.0 + History_Track_ymin(2) = 0 + History_Track_ymax(2) = 8.0 + + History_Track_file_flag(2) = .false. + History_Track_file_dir(2) = 'pgstar_out' + History_Track_file_prefix(2) = 'track2_' + History_Track_file_interval(2) = 10000 + History_Track_file_width(2) = -1 + History_Track_file_aspect_ratio(2) = -1 + + + History_Track_win_flag(3) = .false. + History_Track_win_width(3) = 12 + History_Track_win_aspect_ratio(3) = 0.75 + History_Track_txt_scale(3) = 0.8 + History_Track_title(3) = ' ' + + History_Track_xname(3) = 'star_age' + History_Track_yname(3) = 'log_R' + History_Track_xaxis_label(3) = 'Time (yr)' + History_Track_yaxis_label(3) = 'log10 (R/R\d\(2281)\u)' + History_Track_reverse_xaxis(3) = .false. + History_Track_reverse_yaxis(3) = .false. + + History_Track_xmin(3) = 0 + History_Track_xmax(3) = 420.0 + History_Track_ymin(3) = -2.5 + History_Track_ymax(3) = 0.2 + + History_Track_file_flag(3) = .false. + History_Track_file_dir(3) = 'pgstar_out' + History_Track_file_prefix(3) = 'track3_' + History_Track_file_interval(3) = 10000 + History_Track_file_width(3) = -1 + History_Track_file_aspect_ratio(3) = -1 + + Grid_win_flag(1) = .true. + Grid_win_width(1) = 10 + Grid_win_aspect_ratio(1) = 1.2 + + Grid_plot_name(1, :) = '' + Grid_txt_scale_factor(1, :) = 1.0 ! multiply txt_scale for subplot by this + + Grid_title(1) = 'wd_stable_h_burn' + + Grid_num_cols(1) = 1 ! divide plotting region into this many equal width cols + Grid_num_rows(1) = 3 ! divide plotting region into this many equal height rows + Grid_num_plots(1) = 3 ! <= 10 + + Grid_plot_name(1, 1) = 'History_Track1' + Grid_plot_row(1, 1) = 1 ! number from 1 at top + Grid_plot_rowspan(1, 1) = 1 ! plot spans this number of rows + Grid_plot_col(1, 1) = 1 ! number from 1 at left + Grid_plot_colspan(1, 1) = 1 ! plot spans this number of columns + + Grid_plot_pad_left(1, 1) = 0.00 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 1) = -0.02 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 1) = -0.02 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 1) = 0.05 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 1) = 0.8 ! multiply txt_scale for subplot by this + + + Grid_plot_name(1, 2) = 'History_Track2' + Grid_plot_row(1, 2) = 2 ! number from 1 at top + Grid_plot_rowspan(1, 2) = 1 ! plot spans this number of rows + Grid_plot_col(1, 2) = 1 ! number from 1 at left + Grid_plot_colspan(1, 2) = 1 ! plot spans this number of columns + + Grid_plot_pad_left(1, 2) = 0.0 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 2) = -0.02 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 2) = 0.0 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 2) = 0.00 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 2) = 0.8 ! multiply txt_scale for subplot by this + + + Grid_plot_name(1, 3) = 'History_Track3' + Grid_plot_row(1, 3) = 3 ! number from 1 at top + Grid_plot_rowspan(1, 3) = 1 ! plot spans this number of rows + Grid_plot_col(1, 3) = 1 ! number from 1 at left + Grid_plot_colspan(1, 3) = 1 ! plot spans this number of columns + + Grid_plot_pad_left(1, 3) = 0.0 ! fraction of full window width for padding on left + Grid_plot_pad_right(1, 3) = -0.02 ! fraction of full window width for padding on right + Grid_plot_pad_top(1, 3) = 0.05 ! fraction of full window height for padding at top + Grid_plot_pad_bot(1, 3) = -0.03 ! fraction of full window height for padding at bottom + Grid_txt_scale_factor(1, 3) = 0.8 ! multiply txt_scale for subplot by this + + + Grid_file_flag(1) = .true. + Grid_file_dir(1) = 'pgstar_out' + Grid_file_prefix(1) = 'grid_' + Grid_file_interval(1) = 10000 + Grid_file_width(1) = -1 + Grid_file_aspect_ratio(1) = -1 / ! end of pgstar namelist diff --git a/star/test_suite/zams_to_cc_80/inlist_common b/star/test_suite/zams_to_cc_80/inlist_common index a559aec6d..ff6ca6459 100644 --- a/star/test_suite/zams_to_cc_80/inlist_common +++ b/star/test_suite/zams_to_cc_80/inlist_common @@ -396,9 +396,9 @@ !pgstar_interval = 1 ! x-axis limits and properties -Profile_Panels3_xaxis_name = 'mass' -Profile_Panels3_xmin = 0.0 -Profile_Panels3_xmax = 1.6 -Profile_Panels3_xaxis_reversed = .false. +Profile_Panels_xaxis_name(3) = 'mass' +Profile_Panels_xmin(3) = 0.0 +Profile_Panels_xmax(3) = 1.6 +Profile_Panels_xaxis_reversed(3) = .false. / ! end of pgstar namelist diff --git a/star/test_suite/zams_to_cc_80/inlist_pgstar b/star/test_suite/zams_to_cc_80/inlist_pgstar index cd1b476b7..b4592d0d6 100644 --- a/star/test_suite/zams_to_cc_80/inlist_pgstar +++ b/star/test_suite/zams_to_cc_80/inlist_pgstar @@ -15,203 +15,203 @@ pgstar_show_age = .false. !------------------------------------------------------------------------------------ -Grid1_win_flag = .true. -Grid1_win_width = 12 -Grid1_win_aspect_ratio = 0.666 +Grid_win_flag(1) = .true. +Grid_win_width(1) = 12 +Grid_win_aspect_ratio(1) = 0.666 ! file output -Grid1_file_flag = .true. -Grid1_file_dir = 'png' -Grid1_file_prefix = 'Grid1_' -Grid1_file_interval = 25 ! output when mod(model_number,Grid1_file_interval)==0 -Grid1_file_width = 27 ! (inches) negative means use same value as for window -Grid1_file_aspect_ratio = -1 ! negative means use same value as for window +Grid_file_flag(1) = .true. +Grid_file_dir(1) = 'png' +Grid_file_prefix(1) = 'Grid1_' +Grid_file_interval(1) = 25 ! output when mod(model_number,Grid_file_interval(1))==0 +Grid_file_width(1) = 27 ! (inches) negative means use same value as for window +Grid_file_aspect_ratio(1) = -1 ! negative means use same value as for window ! reset the defaults -Grid1_plot_name(:) = '' -Grid1_plot_row(:) = 1 ! number from 1 at top -Grid1_plot_rowspan(:) = 1 ! plot spans this number of rows -Grid1_plot_col(:) = 1 ! number from 1 at left -Grid1_plot_colspan(:) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(:) = 0.0 ! fraction of full window width for padding on left -Grid1_plot_pad_right(:) = 0.0 ! fraction of full window width for padding on right -Grid1_plot_pad_top(:) = 0.0 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(:) = 0.0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(:) = 0.7 ! multiply txt_scale for subplot by this +Grid_plot_name(1, :) = '' +Grid_plot_row(1, :) = 1 ! number from 1 at top +Grid_plot_rowspan(1, :) = 1 ! plot spans this number of rows +Grid_plot_col(1, :) = 1 ! number from 1 at left +Grid_plot_colspan(1, :) = 1 ! plot spans this number of columns +Grid_plot_pad_left(1, :) = 0.0 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, :) = 0.0 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, :) = 0.0 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, :) = 0.0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, :) = 0.7 ! multiply txt_scale for subplot by this -Grid1_title = '' +Grid_title(1) = '' -Grid1_num_cols = 3 ! divide plotting region into this many equal width cols -Grid1_num_rows = 5 ! divide plotting region into this many equal height rows -Grid1_num_plots = 6 ! <= 10 +Grid_num_cols(1) = 3 ! divide plotting region into this many equal width cols +Grid_num_rows(1) = 5 ! divide plotting region into this many equal height rows +Grid_num_plots(1) = 6 ! <= 10 -Grid1_plot_name(1) = 'Text_Summary1' -Grid1_plot_row(1) = 1 ! number from 1 at top -Grid1_plot_rowspan(1) = 1 ! plot spans this number of rows -Grid1_plot_col(1) = 1 ! number from 1 at left -Grid1_plot_colspan(1) = 3 ! plot spans this number of columns +Grid_plot_name(1, 1) = 'Text_Summary1' +Grid_plot_row(1, 1) = 1 ! number from 1 at top +Grid_plot_rowspan(1, 1) = 1 ! plot spans this number of rows +Grid_plot_col(1, 1) = 1 ! number from 1 at left +Grid_plot_colspan(1, 1) = 3 ! plot spans this number of columns -Grid1_plot_pad_left(1) = -0.03 ! fraction of full window width for padding on left -Grid1_plot_pad_right(1) = 0.0 ! fraction of full window width for padding on right -Grid1_plot_pad_top(1) = -0.06 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(1) = 0.07 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(1) = 1 ! 0.8 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 1) = -0.03 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 1) = 0.0 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 1) = -0.06 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 1) = 0.07 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 1) = 1 ! 0.8 ! multiply txt_scale for subplot by this -Grid1_plot_name(3) = 'TRho' -Grid1_plot_row(3) = 2 ! number from 1 at top -Grid1_plot_rowspan(3) = 1 ! plot spans this number of rows -Grid1_plot_col(3) = 1 ! number from 1 at left -Grid1_plot_colspan(3) = 1 ! plot spans this number of columns +Grid_plot_name(1, 3) = 'TRho' +Grid_plot_row(1, 3) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 3) = 1 ! plot spans this number of rows +Grid_plot_col(1, 3) = 1 ! number from 1 at left +Grid_plot_colspan(1, 3) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(3) = 0.00 ! fraction of full window width for padding on left -Grid1_plot_pad_right(3) = 0.08 ! fraction of full window width for padding on right -Grid1_plot_pad_top(3) = -0.04 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(3) = 0.01 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(3) = 0.7 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 3) = 0.00 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 3) = 0.08 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 3) = -0.04 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 3) = 0.01 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 3) = 0.7 ! multiply txt_scale for subplot by this -Grid1_plot_name(5) = 'Profile_Panels1' -Grid1_plot_row(5) = 3 ! number from 1 at top -Grid1_plot_rowspan(5) = 3 ! plot spans this number of rows -Grid1_plot_col(5) = 1 ! number from 1 at left -Grid1_plot_colspan(5) = 1 ! plot spans this number of columns +Grid_plot_name(1, 5) = 'Profile_Panels1' +Grid_plot_row(1, 5) = 3 ! number from 1 at top +Grid_plot_rowspan(1, 5) = 3 ! plot spans this number of rows +Grid_plot_col(1, 5) = 1 ! number from 1 at left +Grid_plot_colspan(1, 5) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(5) = 0.00 ! fraction of full window width for padding on left -Grid1_plot_pad_right(5) = 0.10 ! fraction of full window width for padding on right -Grid1_plot_pad_top(5) = 0.05 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(5) = 0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(5) = 0.6 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 5) = 0.00 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 5) = 0.10 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 5) = 0.05 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 5) = 0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 5) = 0.6 ! multiply txt_scale for subplot by this -Grid1_plot_name(2) = 'TRho_Profile' -Grid1_plot_row(2) = 2 ! number from 1 at top -Grid1_plot_rowspan(2) = 1 ! plot spans this number of rows -Grid1_plot_col(2) = 2 ! number from 1 at left -Grid1_plot_colspan(2) = 1 ! plot spans this number of columns +Grid_plot_name(1, 2) = 'TRho_Profile' +Grid_plot_row(1, 2) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 2) = 1 ! plot spans this number of rows +Grid_plot_col(1, 2) = 2 ! number from 1 at left +Grid_plot_colspan(1, 2) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(2) = -0.01 ! fraction of full window width for padding on left -Grid1_plot_pad_right(2) = 0.06 ! fraction of full window width for padding on right -Grid1_plot_pad_top(2) = -0.04 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(2) = 0.01 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(2) = 0.7 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 2) = -0.01 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 2) = 0.06 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 2) = -0.04 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 2) = 0.01 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 2) = 0.7 ! multiply txt_scale for subplot by this -Grid1_plot_name(4) = 'History_Panels1' -Grid1_plot_row(4) = 3 ! number from 1 at top -Grid1_plot_rowspan(4) = 3 ! plot spans this number of rows -Grid1_plot_col(4) = 2 ! number from 1 at left -Grid1_plot_colspan(4) = 1 ! plot spans this number of columns +Grid_plot_name(1, 4) = 'History_Panels1' +Grid_plot_row(1, 4) = 3 ! number from 1 at top +Grid_plot_rowspan(1, 4) = 3 ! plot spans this number of rows +Grid_plot_col(1, 4) = 2 ! number from 1 at left +Grid_plot_colspan(1, 4) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(4) = 0.00 ! fraction of full window width for padding on left -Grid1_plot_pad_right(4) = 0.06 ! fraction of full window width for padding on right -Grid1_plot_pad_top(4) = 0.05 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(4) = 0.0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(4) = 0.6 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 4) = 0.00 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 4) = 0.06 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 4) = 0.05 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 4) = 0.0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 4) = 0.6 ! multiply txt_scale for subplot by this -Grid1_plot_name(6) = 'Profile_Panels3' -Grid1_plot_row(6) = 2 ! number from 1 at top -Grid1_plot_rowspan(6) = 4 ! plot spans this number of rows -Grid1_plot_col(6) = 3 ! Number from 1 at left -Grid1_plot_colspan(6) = 1 ! plot spans this number of columns +Grid_plot_name(1, 6) = 'Profile_Panels3' +Grid_plot_row(1, 6) = 2 ! number from 1 at top +Grid_plot_rowspan(1, 6) = 4 ! plot spans this number of rows +Grid_plot_col(1, 6) = 3 ! Number from 1 at left +Grid_plot_colspan(1, 6) = 1 ! plot spans this number of columns -Grid1_plot_pad_left(6) = 0.04 ! fraction of full window width for padding on left -Grid1_plot_pad_right(6) = 0.06 ! fraction of full window width for padding on right -Grid1_plot_pad_top(6) = -0.04 ! fraction of full window height for padding at top -Grid1_plot_pad_bot(6) = 0 ! fraction of full window height for padding at bottom -Grid1_txt_scale_factor(6) = 0.6 ! multiply txt_scale for subplot by this +Grid_plot_pad_left(1, 6) = 0.04 ! fraction of full window width for padding on left +Grid_plot_pad_right(1, 6) = 0.06 ! fraction of full window width for padding on right +Grid_plot_pad_top(1, 6) = -0.04 ! fraction of full window height for padding at top +Grid_plot_pad_bot(1, 6) = 0 ! fraction of full window height for padding at bottom +Grid_txt_scale_factor(1, 6) = 0.6 ! multiply txt_scale for subplot by this !------------------------------------------------------------------------------------ -Profile_Panels3_win_flag = .false. +Profile_Panels_win_flag(3) = .false. -Profile_Panels3_title = '' +Profile_Panels_title(3) = '' -Profile_Panels3_num_panels = 5 +Profile_Panels_num_panels(3) = 5 -Profile_Panels3_yaxis_name(1) = 'Abundance' +Profile_Panels_yaxis_name(3, 1) = 'Abundance' -Profile_Panels3_yaxis_name(2) = 'Power' +Profile_Panels_yaxis_name(3, 2) = 'Power' -Profile_Panels3_yaxis_name(3) = 'Mixing' +Profile_Panels_yaxis_name(3, 3) = 'Mixing' Mixing_legend_txt_scale_factor = 0.9 -Profile_Panels3_yaxis_name(4) = 'logRho' -Profile_Panels3_other_yaxis_name(4) = 'v_div_cs' ! 'vel_km_per_s' ! 'entropy' -Profile_Panels3_other_dymin(4) = 0.14 +Profile_Panels_yaxis_name(3, 4) = 'logRho' +Profile_Panels_other_yaxis_name(3, 4) = 'v_div_cs' ! 'vel_km_per_s' ! 'entropy' +Profile_Panels_other_dymin(3, 4) = 0.14 -Profile_Panels3_yaxis_name(5) = 'logT' -Profile_Panels3_other_yaxis_name(5) = 'burn_num_iters' +Profile_Panels_yaxis_name(3, 5) = 'logT' +Profile_Panels_other_yaxis_name(3, 5) = 'burn_num_iters' ! x-axis limits and properties -Profile_Panels3_xaxis_name = 'mass' -Profile_Panels3_xmin = 0.0 -Profile_Panels3_xmax = -101d0 ! 2.2 -Profile_Panels3_xaxis_reversed = .false. +Profile_Panels_xaxis_name(3) = 'mass' +Profile_Panels_xmin(3) = 0.0 +Profile_Panels_xmax(3) = -101d0 ! 2.2 +Profile_Panels_xaxis_reversed(3) = .false. -Profile_Panels3_txt_scale = 0.7 +Profile_Panels_txt_scale(3) = 0.7 -!Profile_Panels3_xaxis_name = 'zone' -!Profile_Panels3_xmin = 800 -!Profile_Panels3_xmax = 1100 -!Profile_Panels3_xaxis_reversed = .true. +!Profile_Panels_xaxis_name(3) = 'zone' +!Profile_Panels_xmin(3) = 800 +!Profile_Panels_xmax(3) = 1100 +!Profile_Panels_xaxis_reversed(3) = .true. -!Profile_Panels3_show_grid = .true. -Profile_Panels3_show_mix_regions_on_xaxis = .true. +!Profile_Panels_show_grid(3) = .true. +Profile_Panels_show_mix_regions_on_xaxis(3) = .true. !------------------------------------------------------------------------------------ -!Profile_Panels1_win_flag = .true. -!Profile_Panels1_file_flag = .true. - Profile_Panels1_file_dir = 'png' - Profile_Panels1_file_prefix = 'profile_panels1_' - Profile_Panels1_file_interval = 1 - Profile_Panels1_file_width = -1 - Profile_Panels1_file_aspect_ratio = -1 +!Profile_Panels_win_flag(1) = .true. +!Profile_Panels_file_flag(1) = .true. + Profile_Panels_file_dir(1) = 'png' + Profile_Panels_file_prefix(1) = 'profile_panels1_' + Profile_Panels_file_interval(1) = 1 + Profile_Panels_file_width(1) = -1 + Profile_Panels_file_aspect_ratio(1) = -1 -Profile_Panels1_title = '' +Profile_Panels_title(1) = '' -Profile_Panels1_txt_scale = 0.7 -Profile_Panels1_num_panels = 4 +Profile_Panels_txt_scale(1) = 0.7 +Profile_Panels_num_panels(1) = 4 -Profile_Panels1_yaxis_name(1) = 'logRho' -Profile_Panels1_dymin(1) = 0.14 -Profile_Panels1_other_yaxis_name(1) = 'logT' -Profile_Panels1_other_dymin(1) = 0.14 +Profile_Panels_yaxis_name(1, 1) = 'logRho' +Profile_Panels_dymin(1, 1) = 0.14 +Profile_Panels_other_yaxis_name(1, 1) = 'logT' +Profile_Panels_other_dymin(1, 1) = 0.14 -Profile_Panels1_yaxis_name(2) = 'entropy' -Profile_Panels1_other_yaxis_name(2) = 'pgas_div_p' +Profile_Panels_yaxis_name(1, 2) = 'entropy' +Profile_Panels_other_yaxis_name(1, 2) = 'pgas_div_p' -Profile_Panels1_yaxis_name(3) = 'gradT' -Profile_Panels1_other_yaxis_name(3) = 'grada' -Profile_Panels1_same_yaxis_range(3) = .true. -Profile_Panels1_other_dymin(3) = 0.08 +Profile_Panels_yaxis_name(1, 3) = 'gradT' +Profile_Panels_other_yaxis_name(1, 3) = 'grada' +Profile_Panels_same_yaxis_range(1, 3) = .true. +Profile_Panels_other_dymin(1, 3) = 0.08 -Profile_Panels1_yaxis_name(4) = 'log_opacity' -Profile_Panels1_dymin(1) = 0.14 -Profile_Panels1_other_yaxis_name(4) = 'gradr' -Profile_Panels1_other_dymin(1) = 0.14 +Profile_Panels_yaxis_name(1, 4) = 'log_opacity' +Profile_Panels_dymin(1, 1) = 0.14 +Profile_Panels_other_yaxis_name(1, 4) = 'gradr' +Profile_Panels_other_dymin(1, 1) = 0.14 ! x-axis limits and properties -Profile_Panels1_xaxis_name = 'logtau' -Profile_Panels1_xmin = -101d0 -Profile_Panels1_xmax = 8.1 -Profile_Panels1_xaxis_reversed = .true. +Profile_Panels_xaxis_name(1) = 'logtau' +Profile_Panels_xmin(1) = -101d0 +Profile_Panels_xmax(1) = 8.1 +Profile_Panels_xaxis_reversed(1) = .true. -!Profile_Panels1_xaxis_name = 'zone' -!Profile_Panels1_xmin = 15 -!Profile_Panels1_xmax = 270 -!Profile_Panels1_xaxis_reversed = .true. +!Profile_Panels_xaxis_name(1) = 'zone' +!Profile_Panels_xmin(1) = 15 +!Profile_Panels_xmax(1) = 270 +!Profile_Panels_xaxis_reversed(1) = .true. -!Profile_Panels1_show_grid = .true. -Profile_Panels1_show_mix_regions_on_xaxis = .true. +!Profile_Panels_show_grid(1) = .true. +Profile_Panels_show_mix_regions_on_xaxis(1) = .true. !------------------------------------------------------------------------------------ @@ -304,57 +304,57 @@ profile_mass_point_str_clr(3) = 1 ! Text_Summary windows -Text_Summary1_win_flag = .false. -Text_Summary1_win_width = 10 -Text_Summary1_win_aspect_ratio = 0.15 - -Text_Summary1_xleft = 0.01 -Text_Summary1_xright = 0.99 -Text_Summary1_ybot = 0.0 -Text_Summary1_ytop = 1.0 -Text_Summary1_txt_scale = 0.95 -Text_Summary1_title = '' - -Text_Summary1_num_rows = 6 ! <= 20 -Text_Summary1_num_cols = 5 ! <= 20 -Text_Summary1_name(:,:) = '' - - -Text_Summary1_name(1,1) = 'model_number' -Text_Summary1_name(1,2) = 'log_dt' -Text_Summary1_name(1,3) = 'Mass' -Text_Summary1_name(1,4) = 'H_cntr' -Text_Summary1_name(1,5) = 'H_rich' - -Text_Summary1_name(2,1) = 'non_fe_core_infall' -Text_Summary1_name(2,2) = 'star_age' -Text_Summary1_name(2,3) = 'lg_Mdot' -Text_Summary1_name(2,4) = 'He_cntr' -Text_Summary1_name(2,5) = 'He_core' - -Text_Summary1_name(3,1) = 'fe_core_infall' -Text_Summary1_name(3,2) = 'gamma1_min' -Text_Summary1_name(3,3) = 'eta_cntr' -Text_Summary1_name(3,4) = 'C_cntr' -Text_Summary1_name(3,5) = 'CO_core' - -Text_Summary1_name(4,1) = 'log_max_T' -Text_Summary1_name(4,2) = 'log_LH' -Text_Summary1_name(4,3) = 'lg_Lnuc' -Text_Summary1_name(4,4) = 'O_cntr' -Text_Summary1_name(4,5) = 'Fe_core' - -Text_Summary1_name(5,1) = 'log_cntr_T' -Text_Summary1_name(5,2) = 'log_LHe' -Text_Summary1_name(5,3) = 'lg_Lneu' -Text_Summary1_name(5,4) = 'Ne_cntr' -Text_Summary1_name(5,5) = 'zones' - -Text_Summary1_name(6,1) = 'log_cntr_Rho' -Text_Summary1_name(6,2) = 'log_LZ' -Text_Summary1_name(6,3) = 'lg_Lphoto' -Text_Summary1_name(6,4) = 'Si_cntr' -Text_Summary1_name(6,5) = 'retries' +Text_Summary_win_flag(1) = .false. +Text_Summary_win_width(1) = 10 +Text_Summary_win_aspect_ratio(1) = 0.15 + +Text_Summary_xleft(1) = 0.01 +Text_Summary_xright(1) = 0.99 +Text_Summary_ybot(1) = 0.0 +Text_Summary_ytop(1) = 1.0 +Text_Summary_txt_scale(1) = 0.95 +Text_Summary_title(1) = '' + +Text_Summary_num_rows(1) = 6 ! <= 20 +Text_Summary_num_cols(1) = 5 ! <= 20 +Text_Summary_name(1, :, :) = '' + + +Text_Summary_name(1, 1, 1) = 'model_number' +Text_Summary_name(1, 1, 2) = 'log_dt' +Text_Summary_name(1, 1, 3) = 'Mass' +Text_Summary_name(1, 1, 4) = 'H_cntr' +Text_Summary_name(1, 1, 5) = 'H_rich' + +Text_Summary_name(1, 2, 1) = 'non_fe_core_infall' +Text_Summary_name(1, 2, 2) = 'star_age' +Text_Summary_name(1, 2, 3) = 'lg_Mdot' +Text_Summary_name(1, 2, 4) = 'He_cntr' +Text_Summary_name(1, 2, 5) = 'He_core' + +Text_Summary_name(1, 3, 1) = 'fe_core_infall' +Text_Summary_name(1, 3, 2) = 'gamma1_min' +Text_Summary_name(1, 3, 3) = 'eta_cntr' +Text_Summary_name(1, 3, 4) = 'C_cntr' +Text_Summary_name(1, 3, 5) = 'CO_core' + +Text_Summary_name(1, 4, 1) = 'log_max_T' +Text_Summary_name(1, 4, 2) = 'log_LH' +Text_Summary_name(1, 4, 3) = 'lg_Lnuc' +Text_Summary_name(1, 4, 4) = 'O_cntr' +Text_Summary_name(1, 4, 5) = 'Fe_core' + +Text_Summary_name(1, 5, 1) = 'log_cntr_T' +Text_Summary_name(1, 5, 2) = 'log_LHe' +Text_Summary_name(1, 5, 3) = 'lg_Lneu' +Text_Summary_name(1, 5, 4) = 'Ne_cntr' +Text_Summary_name(1, 5, 5) = 'zones' + +Text_Summary_name(1, 6, 1) = 'log_cntr_Rho' +Text_Summary_name(1, 6, 2) = 'log_LZ' +Text_Summary_name(1, 6, 3) = 'lg_Lphoto' +Text_Summary_name(1, 6, 4) = 'Si_cntr' +Text_Summary_name(1, 6, 5) = 'retries' !------------------------------------------------------------------------------------ @@ -553,88 +553,88 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window !----------------------------------------------------------------------- - History_Panels1_title = '' + History_Panels_title(1) = '' - History_Panels1_xaxis_name = 'model_number' - History_Panels1_max_width = -1 + History_Panels_xaxis_name(1) = 'model_number' + History_Panels_max_width(1) = -1 - !History_Panels1_xaxis_name = 'star_age' - !History_Panels1_max_width = 10 + !History_Panels_xaxis_name(1) = 'star_age' + !History_Panels_max_width(1) = 10 - History_Panels1_txt_scale = 0.75 - History_Panels1_xmin = -101d0 - History_Panels1_xmax = -101d0 - History_Panels1_dxmin = -1 - History_Panels1_xaxis_reversed = .false. - History_Panels1_xaxis_log = .false. - History_Panels1_xmargin = 0.0 + History_Panels_txt_scale(1) = 0.75 + History_Panels_xmin(1) = -101d0 + History_Panels_xmax(1) = -101d0 + History_Panels_dxmin(1) = -1 + History_Panels_xaxis_reversed(1) = .false. + History_Panels_xaxis_log(1) = .false. + History_Panels_xmargin(1) = 0.0 ! :: - History_Panels1_num_panels = 4 + History_Panels_num_panels(1) = 4 ! :: - History_Panels1_yaxis_name(1) = 'log_L' - History_Panels1_yaxis_reversed(1) = .false. - History_Panels1_ymin(1) = -101d0 - History_Panels1_ymax(1) = -101d0 - History_Panels1_dymin(1) = 0.14 + History_Panels_yaxis_name(1, 1) = 'log_L' + History_Panels_yaxis_reversed(1, 1) = .false. + History_Panels_ymin(1, 1) = -101d0 + History_Panels_ymax(1, 1) = -101d0 + History_Panels_dymin(1, 1) = 0.14 ! :: - History_Panels1_other_yaxis_name(1) = 'log_Teff' - History_Panels1_other_yaxis_reversed(1) = .false. - History_Panels1_other_ymin(1) = -101d0 - History_Panels1_other_ymax(1) = -101d0 - History_Panels1_other_dymin(1) = 0.14 + History_Panels_other_yaxis_name(1, 1) = 'log_Teff' + History_Panels_other_yaxis_reversed(1, 1) = .false. + History_Panels_other_ymin(1, 1) = -101d0 + History_Panels_other_ymax(1, 1) = -101d0 + History_Panels_other_dymin(1, 1) = 0.14 ! :: - History_Panels1_yaxis_name(2) = 'lum_div_Ledd' - History_Panels1_yaxis_reversed(2) = .false. - History_Panels1_ymin(2) = -101d0 - History_Panels1_ymax(2) = -101d0 - History_Panels1_dymin(2) = 0.14 + History_Panels_yaxis_name(1, 2) = 'lum_div_Ledd' + History_Panels_yaxis_reversed(1, 2) = .false. + History_Panels_ymin(1, 2) = -101d0 + History_Panels_ymax(1, 2) = -101d0 + History_Panels_dymin(1, 2) = 0.14 ! :: - History_Panels1_other_yaxis_name(2) = 'log_max_T' ! 'v_surf_km_s' - History_Panels1_other_yaxis_reversed(2) = .false. - History_Panels1_other_ymin(2) = -101d0 - History_Panels1_other_ymax(2) = -101d0 - History_Panels1_other_dymin(2) = 0.14 + History_Panels_other_yaxis_name(1, 2) = 'log_max_T' ! 'v_surf_km_s' + History_Panels_other_yaxis_reversed(1, 2) = .false. + History_Panels_other_ymin(1, 2) = -101d0 + History_Panels_other_ymax(1, 2) = -101d0 + History_Panels_other_dymin(1, 2) = 0.14 ! :: - History_Panels1_yaxis_name(3) = 'radius' - History_Panels1_yaxis_reversed(3) = .false. - History_Panels1_ymin(3) = -101d0 - History_Panels1_ymax(3) = -101d0 - History_Panels1_dymin(3) = 0.14 + History_Panels_yaxis_name(1, 3) = 'radius' + History_Panels_yaxis_reversed(1, 3) = .false. + History_Panels_ymin(1, 3) = -101d0 + History_Panels_ymax(1, 3) = -101d0 + History_Panels_dymin(1, 3) = 0.14 ! :: - History_Panels1_other_yaxis_name(3) = 'log_cntr_Rho' - History_Panels1_other_yaxis_reversed(3) = .false. - History_Panels1_other_ymin(3) = -101d0 - History_Panels1_other_ymax(3) = -101d0 - History_Panels1_other_dymin(3) = 0.14 + History_Panels_other_yaxis_name(1, 3) = 'log_cntr_Rho' + History_Panels_other_yaxis_reversed(1, 3) = .false. + History_Panels_other_ymin(1, 3) = -101d0 + History_Panels_other_ymax(1, 3) = -101d0 + History_Panels_other_dymin(1, 3) = 0.14 ! :: - History_Panels1_yaxis_name(4) = '' - History_Panels1_yaxis_reversed(4) = .false. - History_Panels1_ymin(4) = -101d0 - History_Panels1_ymax(4) = -101d0 - History_Panels1_dymin(4) = 0.14 + History_Panels_yaxis_name(1, 4) = '' + History_Panels_yaxis_reversed(1, 4) = .false. + History_Panels_ymin(1, 4) = -101d0 + History_Panels_ymax(1, 4) = -101d0 + History_Panels_dymin(1, 4) = 0.14 ! :: - History_Panels1_other_yaxis_name(4) = 'log_dt' - History_Panels1_other_yaxis_reversed(4) = .false. - History_Panels1_other_ymin(4) = -101d0 - History_Panels1_other_ymax(4) = -101d0 - History_Panels1_other_dymin(4) = 0.14 + History_Panels_other_yaxis_name(1, 4) = 'log_dt' + History_Panels_other_yaxis_reversed(1, 4) = .false. + History_Panels_other_ymin(1, 4) = -101d0 + History_Panels_other_ymax(1, 4) = -101d0 + History_Panels_other_dymin(1, 4) = 0.14 !----------------------------------------------------------------------- diff --git a/star/test_suite/zams_to_cc_80/inlist_remove_envelope b/star/test_suite/zams_to_cc_80/inlist_remove_envelope index 6d787b9fe..29eba8174 100644 --- a/star/test_suite/zams_to_cc_80/inlist_remove_envelope +++ b/star/test_suite/zams_to_cc_80/inlist_remove_envelope @@ -67,9 +67,9 @@ &pgstar -Profile_Panels3_xmin = 0 ! 2.5 ! -101d0 -Profile_Panels3_xmax = -101d0 ! -Profile_Panels3_yaxis_name(4) = 'gamma1' +Profile_Panels_xmin(3) = 0 ! 2.5 ! -101d0 +Profile_Panels_xmax(3) = -101d0 ! +Profile_Panels_yaxis_name(3, 4) = 'gamma1' TRho_Profile_xmin = 2.0 TRho_Profile_xmax = 7.5 diff --git a/star/test_suite/zams_to_cc_80/inlist_to_cc b/star/test_suite/zams_to_cc_80/inlist_to_cc index 650c8094f..b9275630d 100644 --- a/star/test_suite/zams_to_cc_80/inlist_to_cc +++ b/star/test_suite/zams_to_cc_80/inlist_to_cc @@ -107,20 +107,20 @@ ignore_too_large_correction = .true. ! for conv_vel's &pgstar -!Grid1_file_flag = .true. +!Grid_file_flag(1) = .true. !pause = .true. -Profile_Panels3_xaxis_name = 'mass' -Profile_Panels3_xmin = 0 ! -101d0 -Profile_Panels3_xmax = -101d0 ! -Profile_Panels3_xaxis_reversed = .false. +Profile_Panels_xaxis_name(3) = 'mass' +Profile_Panels_xmin(3) = 0 ! -101d0 +Profile_Panels_xmax(3) = -101d0 ! +Profile_Panels_xaxis_reversed(3) = .false. -Profile_Panels3_yaxis_name(4) = 'gamma1' -Profile_Panels3_dymin(4) = 0.14 -Profile_Panels3_other_yaxis_name(4) = 'vel_km_per_s' -Profile_Panels3_dymin(4) = 0.14 +Profile_Panels_yaxis_name(3, 4) = 'gamma1' +Profile_Panels_dymin(3, 4) = 0.14 +Profile_Panels_other_yaxis_name(3, 4) = 'vel_km_per_s' +Profile_Panels_dymin(3, 4) = 0.14 TRho_Profile_xmin = -12.0 TRho_Profile_xmax = 10 @@ -132,7 +132,7 @@ TRho_logRho_min = 6d0 TRho_logRho_max = 10d0 TRho_logT_max = 10d0 -Text_Summary1_name(1,2) = 'time_step_sec' -Text_Summary1_name(2,2) = 'star_age_sec' +Text_Summary_name(1, 1, 2) = 'time_step_sec' +Text_Summary_name(1, 2, 2) = 'star_age_sec' / ! end of pgstar namelist diff --git a/star/test_suite/zams_to_cc_80/inlist_to_end_core_c_burn b/star/test_suite/zams_to_cc_80/inlist_to_end_core_c_burn index 49f029168..48d89613b 100644 --- a/star/test_suite/zams_to_cc_80/inlist_to_end_core_c_burn +++ b/star/test_suite/zams_to_cc_80/inlist_to_end_core_c_burn @@ -67,8 +67,8 @@ &pgstar -Profile_Panels3_xmin = 0 ! 2.5 ! -101d0 -Profile_Panels3_xmax = -101d0 ! +Profile_Panels_xmin(3) = 0 ! 2.5 ! -101d0 +Profile_Panels_xmax(3) = -101d0 ! TRho_Profile_xmin = -12 TRho_Profile_xmax = 7.5 diff --git a/star/test_suite/zams_to_cc_80/inlist_to_end_core_he_burn b/star/test_suite/zams_to_cc_80/inlist_to_end_core_he_burn index d0dbf33c1..cddf5b94a 100644 --- a/star/test_suite/zams_to_cc_80/inlist_to_end_core_he_burn +++ b/star/test_suite/zams_to_cc_80/inlist_to_end_core_he_burn @@ -67,10 +67,10 @@ &pgstar !pause = .true. -Grid1_plot_name(3) = 'HR' -Profile_Panels3_xmin = -101d0 -Profile_Panels3_xmax = -101d0 -Profile_Panels3_other_yaxis_name(4) = 'entropy' +Grid_plot_name(1, 3) = 'HR' +Profile_Panels_xmin(3) = -101d0 +Profile_Panels_xmax(3) = -101d0 +Profile_Panels_other_yaxis_name(3, 4) = 'entropy' TRho_Profile_xmin = -12 TRho_Profile_xmax = 7.5 diff --git a/star/test_suite/zams_to_cc_80/inlist_to_lgTmax b/star/test_suite/zams_to_cc_80/inlist_to_lgTmax index ae49bc5c7..c98d60ff6 100644 --- a/star/test_suite/zams_to_cc_80/inlist_to_lgTmax +++ b/star/test_suite/zams_to_cc_80/inlist_to_lgTmax @@ -75,9 +75,9 @@ TRho_logT_max = 10d0 !pause = .true. -Profile_Panels3_xmin = 0 ! -101d0 -Profile_Panels3_xmax =-101d0 ! -Profile_Panels3_other_yaxis_name(4) = 'vel_km_per_s' +Profile_Panels_xmin(3) = 0 ! -101d0 +Profile_Panels_xmax(3) =-101d0 ! +Profile_Panels_other_yaxis_name(3, 4) = 'vel_km_per_s' TRho_Profile_xmin = -12d0 TRho_Profile_ymin = 3.0d0 diff --git a/star/test_suite/zams_to_cc_80/inlist_to_zams b/star/test_suite/zams_to_cc_80/inlist_to_zams index 31965a915..70cf15fbb 100644 --- a/star/test_suite/zams_to_cc_80/inlist_to_zams +++ b/star/test_suite/zams_to_cc_80/inlist_to_zams @@ -93,14 +93,14 @@ !pause = .true. -Grid1_plot_name(3) = 'HR' -Profile_Panels3_xmin = -101d0 -Profile_Panels3_xmax = -101d0 -Profile_Panels3_other_yaxis_name(4) = 'entropy' - -!Profile_Panels3_xaxis_name = 'zone' -!Profile_Panels3_xmin = 48 -!Profile_Panels3_xmax = 58 -!Profile_Panels3_xaxis_reversed = .true. +Grid_plot_name(1, 3) = 'HR' +Profile_Panels_xmin(3) = -101d0 +Profile_Panels_xmax(3) = -101d0 +Profile_Panels_other_yaxis_name(3, 4) = 'entropy' + +!Profile_Panels_xaxis_name(3) = 'zone' +!Profile_Panels_xmin(3) = 48 +!Profile_Panels_xmax(3) = 58 +!Profile_Panels_xaxis_reversed(3) = .true. / ! end of pgstar namelist diff --git a/star_data/private/pgstar_controls.inc b/star_data/private/pgstar_controls.inc index ff4befed7..00d3a8b28 100644 --- a/star_data/private/pgstar_controls.inc +++ b/star_data/private/pgstar_controls.inc @@ -1,12 +1,10 @@ !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - ! PGStar state type (pgstar_win_file_data) :: pgstar_win_file_ptr(num_pgstar_plots) type (pgstar_hist_node), pointer :: pgstar_hist => null() - ! PGstar controls integer :: pgstar_interval character (len=32) :: file_device @@ -69,156 +67,22 @@ real :: pgstar_sleep logical :: clear_history - logical :: Text_Summary1_win_flag, Text_Summary1_file_flag - logical :: do_Text_Summary1_win, do_Text_Summary1_file - integer :: id_Text_Summary1_win, id_Text_Summary1_file, Text_Summary1_file_interval - character (len=strlen) :: Text_Summary1_title, Text_Summary1_file_dir, & - Text_Summary1_file_prefix - integer :: Text_Summary1_num_cols, Text_Summary1_num_rows - character (len=64) :: & - Text_Summary1_name(max_num_rows_Text_Summary, max_num_cols_Text_Summary) - real :: & - Text_Summary1_xleft, Text_Summary1_xright, & - Text_Summary1_ybot, Text_Summary1_ytop, Text_Summary1_txt_scale, Text_Summary1_dxval, & - Text_Summary1_win_width, Text_Summary1_win_aspect_ratio, & - prev_Text_Summary1_win_width, prev_Text_Summary1_win_ratio, & - Text_Summary1_file_width, Text_Summary1_file_aspect_ratio, & - prev_Text_Summary1_file_width, prev_Text_Summary1_file_ratio - - - logical :: Text_Summary2_win_flag, Text_Summary2_file_flag - logical :: do_Text_Summary2_win, do_Text_Summary2_file - integer :: id_Text_Summary2_win, id_Text_Summary2_file, Text_Summary2_file_interval - character (len=strlen) :: Text_Summary2_title, Text_Summary2_file_dir, & - Text_Summary2_file_prefix - integer :: Text_Summary2_num_cols, Text_Summary2_num_rows - character (len=64) :: & - Text_Summary2_name(max_num_rows_Text_Summary, max_num_cols_Text_Summary) - real :: & - Text_Summary2_xleft, Text_Summary2_xright, & - Text_Summary2_ybot, Text_Summary2_ytop, Text_Summary2_txt_scale, Text_Summary2_dxval, & - Text_Summary2_win_width, Text_Summary2_win_aspect_ratio, & - prev_Text_Summary2_win_width, prev_Text_Summary2_win_ratio, & - Text_Summary2_file_width, Text_Summary2_file_aspect_ratio, & - prev_Text_Summary2_file_width, prev_Text_Summary2_file_ratio - - - logical :: Text_Summary3_win_flag, Text_Summary3_file_flag - logical :: do_Text_Summary3_win, do_Text_Summary3_file - integer :: id_Text_Summary3_win, id_Text_Summary3_file, Text_Summary3_file_interval - character (len=strlen) :: Text_Summary3_title, Text_Summary3_file_dir, & - Text_Summary3_file_prefix - integer :: Text_Summary3_num_cols, Text_Summary3_num_rows - character (len=64) :: & - Text_Summary3_name(max_num_rows_Text_Summary, max_num_cols_Text_Summary) - real :: & - Text_Summary3_xleft, Text_Summary3_xright, & - Text_Summary3_ybot, Text_Summary3_ytop, Text_Summary3_txt_scale, Text_Summary3_dxval, & - Text_Summary3_win_width, Text_Summary3_win_aspect_ratio, & - prev_Text_Summary3_win_width, prev_Text_Summary3_win_ratio, & - Text_Summary3_file_width, Text_Summary3_file_aspect_ratio, & - prev_Text_Summary3_file_width, prev_Text_Summary3_file_ratio - - - logical :: Text_Summary4_win_flag, Text_Summary4_file_flag - logical :: do_Text_Summary4_win, do_Text_Summary4_file - integer :: id_Text_Summary4_win, id_Text_Summary4_file, Text_Summary4_file_interval - character (len=strlen) :: Text_Summary4_title, Text_Summary4_file_dir, & - Text_Summary4_file_prefix - integer :: Text_Summary4_num_cols, Text_Summary4_num_rows - character (len=64) :: & - Text_Summary4_name(max_num_rows_Text_Summary, max_num_cols_Text_Summary) - real :: & - Text_Summary4_xleft, Text_Summary4_xright, & - Text_Summary4_ybot, Text_Summary4_ytop, Text_Summary4_txt_scale, Text_Summary4_dxval, & - Text_Summary4_win_width, Text_Summary4_win_aspect_ratio, & - prev_Text_Summary4_win_width, prev_Text_Summary4_win_ratio, & - Text_Summary4_file_width, Text_Summary4_file_aspect_ratio, & - prev_Text_Summary4_file_width, prev_Text_Summary4_file_ratio - - logical :: Text_Summary5_win_flag, Text_Summary5_file_flag - logical :: do_Text_Summary5_win, do_Text_Summary5_file - integer :: id_Text_Summary5_win, id_Text_Summary5_file, Text_Summary5_file_interval - character (len=strlen) :: Text_Summary5_title, Text_Summary5_file_dir, & - Text_Summary5_file_prefix - integer :: Text_Summary5_num_cols, Text_Summary5_num_rows - character (len=64) :: & - Text_Summary5_name(max_num_rows_Text_Summary, max_num_cols_Text_Summary) - real :: & - Text_Summary5_xleft, Text_Summary5_xright, & - Text_Summary5_ybot, Text_Summary5_ytop, Text_Summary5_txt_scale, Text_Summary5_dxval, & - Text_Summary5_win_width, Text_Summary5_win_aspect_ratio, & - prev_Text_Summary5_win_width, prev_Text_Summary5_win_ratio, & - Text_Summary5_file_width, Text_Summary5_file_aspect_ratio, & - prev_Text_Summary5_file_width, prev_Text_Summary5_file_ratio - - logical :: Text_Summary6_win_flag, Text_Summary6_file_flag - logical :: do_Text_Summary6_win, do_Text_Summary6_file - integer :: id_Text_Summary6_win, id_Text_Summary6_file, Text_Summary6_file_interval - character (len=strlen) :: Text_Summary6_title, Text_Summary6_file_dir, & - Text_Summary6_file_prefix - integer :: Text_Summary6_num_cols, Text_Summary6_num_rows - character (len=64) :: & - Text_Summary6_name(max_num_rows_Text_Summary, max_num_cols_Text_Summary) - real :: & - Text_Summary6_xleft, Text_Summary6_xright, & - Text_Summary6_ybot, Text_Summary6_ytop, Text_Summary6_txt_scale, Text_Summary6_dxval, & - Text_Summary6_win_width, Text_Summary6_win_aspect_ratio, & - prev_Text_Summary6_win_width, prev_Text_Summary6_win_ratio, & - Text_Summary6_file_width, Text_Summary6_file_aspect_ratio, & - prev_Text_Summary6_file_width, prev_Text_Summary6_file_ratio - - logical :: Text_Summary7_win_flag, Text_Summary7_file_flag - logical :: do_Text_Summary7_win, do_Text_Summary7_file - integer :: id_Text_Summary7_win, id_Text_Summary7_file, Text_Summary7_file_interval - character (len=strlen) :: Text_Summary7_title, Text_Summary7_file_dir, & - Text_Summary7_file_prefix - integer :: Text_Summary7_num_cols, Text_Summary7_num_rows - character (len=64) :: & - Text_Summary7_name(max_num_rows_Text_Summary, max_num_cols_Text_Summary) - real :: & - Text_Summary7_xleft, Text_Summary7_xright, & - Text_Summary7_ybot, Text_Summary7_ytop, Text_Summary7_txt_scale, Text_Summary7_dxval, & - Text_Summary7_win_width, Text_Summary7_win_aspect_ratio, & - prev_Text_Summary7_win_width, prev_Text_Summary7_win_ratio, & - Text_Summary7_file_width, Text_Summary7_file_aspect_ratio, & - prev_Text_Summary7_file_width, prev_Text_Summary7_file_ratio - - logical :: Text_Summary8_win_flag, Text_Summary8_file_flag - logical :: do_Text_Summary8_win, do_Text_Summary8_file - integer :: id_Text_Summary8_win, id_Text_Summary8_file, Text_Summary8_file_interval - character (len=strlen) :: Text_Summary8_title, Text_Summary8_file_dir, & - Text_Summary8_file_prefix - integer :: Text_Summary8_num_cols, Text_Summary8_num_rows - character (len=64) :: & - Text_Summary8_name(max_num_rows_Text_Summary, max_num_cols_Text_Summary) - real :: & - Text_Summary8_xleft, Text_Summary8_xright, & - Text_Summary8_ybot, Text_Summary8_ytop, Text_Summary8_txt_scale, Text_Summary8_dxval, & - Text_Summary8_win_width, Text_Summary8_win_aspect_ratio, & - prev_Text_Summary8_win_width, prev_Text_Summary8_win_ratio, & - Text_Summary8_file_width, Text_Summary8_file_aspect_ratio, & - prev_Text_Summary8_file_width, prev_Text_Summary8_file_ratio - - logical :: Text_Summary9_win_flag, Text_Summary9_file_flag - logical :: do_Text_Summary9_win, do_Text_Summary9_file - integer :: id_Text_Summary9_win, id_Text_Summary9_file, Text_Summary9_file_interval - character (len=strlen) :: Text_Summary9_title, Text_Summary9_file_dir, & - Text_Summary9_file_prefix - integer :: Text_Summary9_num_cols, Text_Summary9_num_rows - character (len=64) :: & - Text_Summary9_name(max_num_rows_Text_Summary, max_num_cols_Text_Summary) - real :: & - Text_Summary9_xleft, Text_Summary9_xright, & - Text_Summary9_ybot, Text_Summary9_ytop, Text_Summary9_txt_scale, Text_Summary9_dxval, & - Text_Summary9_win_width, Text_Summary9_win_aspect_ratio, & - prev_Text_Summary9_win_width, prev_Text_Summary9_win_ratio, & - Text_Summary9_file_width, Text_Summary9_file_aspect_ratio, & - prev_Text_Summary9_file_width, prev_Text_Summary9_file_ratio - + logical, dimension(pgstar_array_length) :: Text_Summary_win_flag, Text_Summary_file_flag + integer, dimension(pgstar_array_length) :: id_Text_Summary_win, id_Text_Summary_file, Text_Summary_file_interval + character (len=strlen), dimension(pgstar_array_length) :: Text_Summary_title, Text_Summary_file_dir, & + Text_Summary_file_prefix + integer, dimension(pgstar_array_length) :: Text_Summary_num_cols, Text_Summary_num_rows + character (len=64), dimension(pgstar_array_length, max_num_rows_Text_Summary, max_num_cols_Text_Summary) :: & + Text_Summary_name + real, dimension(pgstar_array_length) :: & + Text_Summary_xleft, Text_Summary_xright, & + Text_Summary_ybot, Text_Summary_ytop, Text_Summary_txt_scale, Text_Summary_dxval, & + Text_Summary_win_width, Text_Summary_win_aspect_ratio, & + prev_Text_Summary_win_width, prev_Text_Summary_win_ratio, & + Text_Summary_file_width, Text_Summary_file_aspect_ratio, & + prev_Text_Summary_file_width, prev_Text_Summary_file_ratio logical :: dPg_dnu_win_flag, dPg_dnu_file_flag - logical :: do_dPg_dnu_win, do_dPg_dnu_file logical :: show_dPg_dnu_annotation1, & show_dPg_dnu_annotation2, & show_dPg_dnu_annotation3 @@ -238,256 +102,33 @@ dPg_dnu_file_width, dPg_dnu_file_aspect_ratio, & prev_dPg_dnu_file_width, prev_dPg_dnu_file_ratio - - logical :: History_Track1_win_flag, History_Track1_file_flag - logical :: do_History_Track1_win, do_History_Track1_file - logical :: show_History_Track1_annotation1, & - show_History_Track1_annotation2, show_History_Track1_annotation3 - logical :: show_History_Track1_target_box, & - History_Track1_reverse_xaxis, History_Track1_reverse_yaxis, & - History_Track1_log_xaxis, History_Track1_log_yaxis - integer :: id_History_Track1_win, id_History_Track1_file, History_Track1_file_interval - integer :: History_Track1_step_min, History_Track1_step_max, History_Track1_n_sigma - character (len=strlen) :: & - History_Track1_file_dir, History_Track1_file_prefix, History_Track1_title, & - History_Track1_xname, History_Track1_xaxis_label, & - History_Track1_yname, History_Track1_yaxis_label, History_Track1_fname - real :: & - History_Track1_xmin, History_Track1_xmax, & - History_Track1_ymin, History_Track1_ymax, & - History_Track1_xmargin, History_Track1_ymargin, & - History_Track1_dxmin, History_Track1_dymin, & - History_Track1_xtarget, History_Track1_xsigma, & - History_Track1_ytarget, History_Track1_ysigma, & - History_Track1_win_width, History_Track1_win_aspect_ratio, & - History_Track1_xleft, History_Track1_xright, & - History_Track1_ybot, History_Track1_ytop, History_Track1_txt_scale, & - prev_History_Track1_win_width, prev_History_Track1_win_ratio, & - History_Track1_file_width, History_Track1_file_aspect_ratio, & - prev_History_Track1_file_width, prev_History_Track1_file_ratio - - - logical :: History_Track2_win_flag, History_Track2_file_flag - logical :: do_History_Track2_win, do_History_Track2_file - logical :: show_History_Track2_annotation1, & - show_History_Track2_annotation2, show_History_Track2_annotation3 - logical :: show_History_Track2_target_box, & - History_Track2_reverse_xaxis, History_Track2_reverse_yaxis, & - History_Track2_log_xaxis, History_Track2_log_yaxis - integer :: id_History_Track2_win, id_History_Track2_file, History_Track2_file_interval - integer :: History_Track2_step_min, History_Track2_step_max, History_Track2_n_sigma - character (len=strlen) :: & - History_Track2_file_dir, History_Track2_file_prefix, History_Track2_title, & - History_Track2_xname, History_Track2_xaxis_label, & - History_Track2_yname, History_Track2_yaxis_label, History_Track2_fname - real :: & - History_Track2_xmin, History_Track2_xmax, & - History_Track2_ymin, History_Track2_ymax, & - History_Track2_xmargin, History_Track2_ymargin, & - History_Track2_dxmin, History_Track2_dymin, & - History_Track2_xtarget, History_Track2_xsigma, & - History_Track2_ytarget, History_Track2_ysigma, & - History_Track2_win_width, History_Track2_win_aspect_ratio, & - History_Track2_xleft, History_Track2_xright, & - History_Track2_ybot, History_Track2_ytop, History_Track2_txt_scale, & - prev_History_Track2_win_width, prev_History_Track2_win_ratio, & - History_Track2_file_width, History_Track2_file_aspect_ratio, & - prev_History_Track2_file_width, prev_History_Track2_file_ratio - - - logical :: History_Track3_win_flag, History_Track3_file_flag - logical :: do_History_Track3_win, do_History_Track3_file - logical :: show_History_Track3_annotation1, & - show_History_Track3_annotation2, show_History_Track3_annotation3 - logical :: show_History_Track3_target_box, & - History_Track3_reverse_xaxis, History_Track3_reverse_yaxis, & - History_Track3_log_xaxis, History_Track3_log_yaxis - integer :: id_History_Track3_win, id_History_Track3_file, History_Track3_file_interval - integer :: History_Track3_step_min, History_Track3_step_max, History_Track3_n_sigma - character (len=strlen) :: & - History_Track3_file_dir, History_Track3_file_prefix, History_Track3_title, & - History_Track3_xname, History_Track3_xaxis_label, & - History_Track3_yname, History_Track3_yaxis_label, History_Track3_fname - real :: & - History_Track3_xmin, History_Track3_xmax, & - History_Track3_ymin, History_Track3_ymax, & - History_Track3_xmargin, History_Track3_ymargin, & - History_Track3_dxmin, History_Track3_dymin, & - History_Track3_xtarget, History_Track3_xsigma, & - History_Track3_ytarget, History_Track3_ysigma, & - History_Track3_win_width, History_Track3_win_aspect_ratio, & - History_Track3_xleft, History_Track3_xright, & - History_Track3_ybot, History_Track3_ytop, History_Track3_txt_scale, & - prev_History_Track3_win_width, prev_History_Track3_win_ratio, & - History_Track3_file_width, History_Track3_file_aspect_ratio, & - prev_History_Track3_file_width, prev_History_Track3_file_ratio - - - logical :: History_Track4_win_flag, History_Track4_file_flag - logical :: do_History_Track4_win, do_History_Track4_file - logical :: show_History_Track4_annotation1, & - show_History_Track4_annotation2, show_History_Track4_annotation3 - logical :: show_History_Track4_target_box, & - History_Track4_reverse_xaxis, History_Track4_reverse_yaxis, & - History_Track4_log_xaxis, History_Track4_log_yaxis - integer :: id_History_Track4_win, id_History_Track4_file, History_Track4_file_interval - integer :: History_Track4_step_min, History_Track4_step_max, History_Track4_n_sigma - character (len=strlen) :: & - History_Track4_file_dir, History_Track4_file_prefix, History_Track4_title, & - History_Track4_xname, History_Track4_xaxis_label, & - History_Track4_yname, History_Track4_yaxis_label, History_Track4_fname - real :: & - History_Track4_xmin, History_Track4_xmax, & - History_Track4_ymin, History_Track4_ymax, & - History_Track4_xmargin, History_Track4_ymargin, & - History_Track4_dxmin, History_Track4_dymin, & - History_Track4_xtarget, History_Track4_xsigma, & - History_Track4_ytarget, History_Track4_ysigma, & - History_Track4_win_width, History_Track4_win_aspect_ratio, & - History_Track4_xleft, History_Track4_xright, & - History_Track4_ybot, History_Track4_ytop, History_Track4_txt_scale, & - prev_History_Track4_win_width, prev_History_Track4_win_ratio, & - History_Track4_file_width, History_Track4_file_aspect_ratio, & - prev_History_Track4_file_width, prev_History_Track4_file_ratio - - logical :: History_Track5_win_flag, History_Track5_file_flag - logical :: do_History_Track5_win, do_History_Track5_file - logical :: show_History_Track5_annotation1, & - show_History_Track5_annotation2, show_History_Track5_annotation3 - logical :: show_History_Track5_target_box, & - History_Track5_reverse_xaxis, History_Track5_reverse_yaxis, & - History_Track5_log_xaxis, History_Track5_log_yaxis - integer :: id_History_Track5_win, id_History_Track5_file, History_Track5_file_interval - integer :: History_Track5_step_min, History_Track5_step_max, History_Track5_n_sigma - character (len=strlen) :: & - History_Track5_file_dir, History_Track5_file_prefix, History_Track5_title, & - History_Track5_xname, History_Track5_xaxis_label, & - History_Track5_yname, History_Track5_yaxis_label, History_Track5_fname - real :: & - History_Track5_xmin, History_Track5_xmax, & - History_Track5_ymin, History_Track5_ymax, & - History_Track5_xmargin, History_Track5_ymargin, & - History_Track5_dxmin, History_Track5_dymin, & - History_Track5_xtarget, History_Track5_xsigma, & - History_Track5_ytarget, History_Track5_ysigma, & - History_Track5_win_width, History_Track5_win_aspect_ratio, & - History_Track5_xleft, History_Track5_xright, & - History_Track5_ybot, History_Track5_ytop, History_Track5_txt_scale, & - prev_History_Track5_win_width, prev_History_Track5_win_ratio, & - History_Track5_file_width, History_Track5_file_aspect_ratio, & - prev_History_Track5_file_width, prev_History_Track5_file_ratio - - logical :: History_Track6_win_flag, History_Track6_file_flag - logical :: do_History_Track6_win, do_History_Track6_file - logical :: show_History_Track6_annotation1, & - show_History_Track6_annotation2, show_History_Track6_annotation3 - logical :: show_History_Track6_target_box, & - History_Track6_reverse_xaxis, History_Track6_reverse_yaxis, & - History_Track6_log_xaxis, History_Track6_log_yaxis - integer :: id_History_Track6_win, id_History_Track6_file, History_Track6_file_interval - integer :: History_Track6_step_min, History_Track6_step_max, History_Track6_n_sigma - character (len=strlen) :: & - History_Track6_file_dir, History_Track6_file_prefix, History_Track6_title, & - History_Track6_xname, History_Track6_xaxis_label, & - History_Track6_yname, History_Track6_yaxis_label, History_Track6_fname - real :: & - History_Track6_xmin, History_Track6_xmax, & - History_Track6_ymin, History_Track6_ymax, & - History_Track6_xmargin, History_Track6_ymargin, & - History_Track6_dxmin, History_Track6_dymin, & - History_Track6_xtarget, History_Track6_xsigma, & - History_Track6_ytarget, History_Track6_ysigma, & - History_Track6_win_width, History_Track6_win_aspect_ratio, & - History_Track6_xleft, History_Track6_xright, & - History_Track6_ybot, History_Track6_ytop, History_Track6_txt_scale, & - prev_History_Track6_win_width, prev_History_Track6_win_ratio, & - History_Track6_file_width, History_Track6_file_aspect_ratio, & - prev_History_Track6_file_width, prev_History_Track6_file_ratio - - logical :: History_Track7_win_flag, History_Track7_file_flag - logical :: do_History_Track7_win, do_History_Track7_file - logical :: show_History_Track7_annotation1, & - show_History_Track7_annotation2, show_History_Track7_annotation3 - logical :: show_History_Track7_target_box, & - History_Track7_reverse_xaxis, History_Track7_reverse_yaxis, & - History_Track7_log_xaxis, History_Track7_log_yaxis - integer :: id_History_Track7_win, id_History_Track7_file, History_Track7_file_interval - integer :: History_Track7_step_min, History_Track7_step_max, History_Track7_n_sigma - character (len=strlen) :: & - History_Track7_file_dir, History_Track7_file_prefix, History_Track7_title, & - History_Track7_xname, History_Track7_xaxis_label, & - History_Track7_yname, History_Track7_yaxis_label, History_Track7_fname - real :: & - History_Track7_xmin, History_Track7_xmax, & - History_Track7_ymin, History_Track7_ymax, & - History_Track7_xmargin, History_Track7_ymargin, & - History_Track7_dxmin, History_Track7_dymin, & - History_Track7_xtarget, History_Track7_xsigma, & - History_Track7_ytarget, History_Track7_ysigma, & - History_Track7_win_width, History_Track7_win_aspect_ratio, & - History_Track7_xleft, History_Track7_xright, & - History_Track7_ybot, History_Track7_ytop, History_Track7_txt_scale, & - prev_History_Track7_win_width, prev_History_Track7_win_ratio, & - History_Track7_file_width, History_Track7_file_aspect_ratio, & - prev_History_Track7_file_width, prev_History_Track7_file_ratio - - logical :: History_Track8_win_flag, History_Track8_file_flag - logical :: do_History_Track8_win, do_History_Track8_file - logical :: show_History_Track8_annotation1, & - show_History_Track8_annotation2, show_History_Track8_annotation3 - logical :: show_History_Track8_target_box, & - History_Track8_reverse_xaxis, History_Track8_reverse_yaxis, & - History_Track8_log_xaxis, History_Track8_log_yaxis - integer :: id_History_Track8_win, id_History_Track8_file, History_Track8_file_interval - integer :: History_Track8_step_min, History_Track8_step_max, History_Track8_n_sigma - character (len=strlen) :: & - History_Track8_file_dir, History_Track8_file_prefix, History_Track8_title, & - History_Track8_xname, History_Track8_xaxis_label, & - History_Track8_yname, History_Track8_yaxis_label, History_Track8_fname - real :: & - History_Track8_xmin, History_Track8_xmax, & - History_Track8_ymin, History_Track8_ymax, & - History_Track8_xmargin, History_Track8_ymargin, & - History_Track8_dxmin, History_Track8_dymin, & - History_Track8_xtarget, History_Track8_xsigma, & - History_Track8_ytarget, History_Track8_ysigma, & - History_Track8_win_width, History_Track8_win_aspect_ratio, & - History_Track8_xleft, History_Track8_xright, & - History_Track8_ybot, History_Track8_ytop, History_Track8_txt_scale, & - prev_History_Track8_win_width, prev_History_Track8_win_ratio, & - History_Track8_file_width, History_Track8_file_aspect_ratio, & - prev_History_Track8_file_width, prev_History_Track8_file_ratio - - logical :: History_Track9_win_flag, History_Track9_file_flag - logical :: do_History_Track9_win, do_History_Track9_file - logical :: show_History_Track9_annotation1, & - show_History_Track9_annotation2, show_History_Track9_annotation3 - logical :: show_History_Track9_target_box, & - History_Track9_reverse_xaxis, History_Track9_reverse_yaxis, & - History_Track9_log_xaxis, History_Track9_log_yaxis - integer :: id_History_Track9_win, id_History_Track9_file, History_Track9_file_interval - integer :: History_Track9_step_min, History_Track9_step_max, History_Track9_n_sigma - character (len=strlen) :: & - History_Track9_file_dir, History_Track9_file_prefix, History_Track9_title, & - History_Track9_xname, History_Track9_xaxis_label, & - History_Track9_yname, History_Track9_yaxis_label, History_Track9_fname - real :: & - History_Track9_xmin, History_Track9_xmax, & - History_Track9_ymin, History_Track9_ymax, & - History_Track9_xmargin, History_Track9_ymargin, & - History_Track9_dxmin, History_Track9_dymin, & - History_Track9_xtarget, History_Track9_xsigma, & - History_Track9_ytarget, History_Track9_ysigma, & - History_Track9_win_width, History_Track9_win_aspect_ratio, & - History_Track9_xleft, History_Track9_xright, & - History_Track9_ybot, History_Track9_ytop, History_Track9_txt_scale, & - prev_History_Track9_win_width, prev_History_Track9_win_ratio, & - History_Track9_file_width, History_Track9_file_aspect_ratio, & - prev_History_Track9_file_width, prev_History_Track9_file_ratio - + logical, dimension(pgstar_array_length) :: History_Track_win_flag, History_Track_file_flag + logical, dimension(pgstar_array_length):: show_History_Track_annotation1, & + show_History_Track_annotation2, show_History_Track_annotation3 + logical, dimension(pgstar_array_length) :: show_History_Track_target_box, & + History_Track_reverse_xaxis, History_Track_reverse_yaxis, & + History_Track_log_xaxis, History_Track_log_yaxis + integer, dimension(pgstar_array_length) :: id_History_Track_win, id_History_Track_file, History_Track_file_interval + integer, dimension(pgstar_array_length) :: History_Track_step_min, History_Track_step_max, History_Track_n_sigma + character (len=strlen), dimension(pgstar_array_length) :: & + History_Track_file_dir, History_Track_file_prefix, History_Track_title, & + History_Track_xname, History_Track_xaxis_label, & + History_Track_yname, History_Track_yaxis_label, History_Track_fname + real, dimension(pgstar_array_length) :: & + History_Track_xmin, History_Track_xmax, & + History_Track_ymin, History_Track_ymax, & + History_Track_xmargin, History_Track_ymargin, & + History_Track_dxmin, History_Track_dymin, & + History_Track_xtarget, History_Track_xsigma, & + History_Track_ytarget, History_Track_ysigma, & + History_Track_win_width, History_Track_win_aspect_ratio, & + History_Track_xleft, History_Track_xright, & + History_Track_ybot, History_Track_ytop, History_Track_txt_scale, & + prev_History_Track_win_width, prev_History_Track_win_ratio, & + History_Track_file_width, History_Track_file_aspect_ratio, & + prev_History_Track_file_width, prev_History_Track_file_ratio logical :: HR_win_flag, HR_file_flag - logical :: do_HR_win, do_HR_file logical :: show_HR_annotation1, show_HR_annotation2, show_HR_annotation3 logical :: show_HR_target_box, show_HR_classical_instability_strip, & show_HR_Mira_instability_region, show_HR_WD_instabilities @@ -506,10 +147,7 @@ HR_file_width, HR_file_aspect_ratio, & prev_HR_file_width, prev_HR_file_ratio - - logical :: TRho_win_flag, TRho_file_flag - logical :: do_TRho_win, do_TRho_file logical :: show_TRho_annotation1, show_TRho_annotation2, show_TRho_annotation3, & show_TRho_degeneracy_line integer :: TRho_file_interval, TRho_step_max @@ -526,10 +164,7 @@ TRho_file_width, TRho_file_aspect_ratio, & prev_TRho_file_width, prev_TRho_file_ratio - - logical :: TmaxRho_win_flag, TmaxRho_file_flag - logical :: do_TmaxRho_win, do_TmaxRho_file logical :: show_TmaxRho_annotation1, show_TmaxRho_annotation2, show_TmaxRho_annotation3, & show_TmaxRho_degeneracy_line integer :: TmaxRho_file_interval, TmaxRho_step_max @@ -546,10 +181,7 @@ TmaxRho_file_width, TmaxRho_file_aspect_ratio, & prev_TmaxRho_file_width, prev_TmaxRho_file_ratio - - logical :: logL_R_win_flag, logL_R_file_flag - logical :: do_logL_R_win, do_logL_R_file logical :: show_logL_R_target_box, show_logL_photosphere_r logical :: show_logL_R_annotation1, show_logL_R_annotation2, show_logL_R_annotation3 integer :: logL_R_file_interval, logL_R_step_max, logL_R_target_n_sigma @@ -569,9 +201,7 @@ logL_R_target_logL, logL_R_target_logL_sigma, & logL_R_target_R, logL_R_target_R_sigma - logical :: logL_Teff_win_flag, logL_Teff_file_flag - logical :: do_logL_Teff_win, do_logL_Teff_file logical :: show_logL_Teff_target_box logical :: show_logL_Teff_annotation1, show_logL_Teff_annotation2, show_logL_Teff_annotation3 integer :: logL_Teff_file_interval, logL_Teff_step_max, logL_Teff_target_n_sigma @@ -591,10 +221,7 @@ logL_Teff_target_logL, logL_Teff_target_logL_sigma, & logL_Teff_target_Teff, logL_Teff_target_Teff_sigma - - logical :: logL_v_win_flag, logL_v_file_flag - logical :: do_logL_v_win, do_logL_v_file logical :: show_logL_v_target_box, show_logL_photosphere_v logical :: show_logL_v_annotation1, show_logL_v_annotation2, show_logL_v_annotation3 integer :: logL_v_file_interval, logL_v_step_max, logL_v_target_n_sigma @@ -614,9 +241,7 @@ logL_v_target_logL, logL_v_target_logL_sigma, & logL_v_target_v, logL_v_target_v_sigma - logical :: L_Teff_win_flag, L_Teff_file_flag - logical :: do_L_Teff_win, do_L_Teff_file logical :: show_L_Teff_target_box logical :: show_L_Teff_annotation1, show_L_Teff_annotation2, show_L_Teff_annotation3 integer :: L_Teff_file_interval, L_Teff_step_max, L_Teff_target_n_sigma @@ -636,9 +261,7 @@ L_Teff_target_L, L_Teff_target_L_sigma, & L_Teff_target_Teff, L_Teff_target_Teff_sigma - logical :: L_v_win_flag, L_v_file_flag - logical :: do_L_v_win, do_L_v_file logical :: show_L_v_target_box logical :: show_L_v_annotation1, show_L_v_annotation2, show_L_v_annotation3 integer :: L_v_file_interval, L_v_step_max, L_v_target_n_sigma @@ -658,9 +281,7 @@ L_v_target_L, L_v_target_L_sigma, & L_v_target_v, L_v_target_v_sigma - logical :: L_R_win_flag, L_R_file_flag - logical :: do_L_R_win, do_L_R_file logical :: show_L_R_target_box logical :: show_L_R_annotation1, show_L_R_annotation2, show_L_R_annotation3 integer :: L_R_file_interval, L_R_step_max, L_R_target_n_sigma @@ -680,9 +301,7 @@ L_R_target_L, L_R_target_L_sigma, & L_R_target_R, L_R_target_R_sigma - logical :: R_Teff_win_flag, R_Teff_file_flag - logical :: do_R_Teff_win, do_R_Teff_file logical :: show_R_Teff_target_box logical :: show_R_Teff_annotation1, show_R_Teff_annotation2, show_R_Teff_annotation3 integer :: R_Teff_file_interval, R_Teff_step_max, R_Teff_target_n_sigma @@ -702,9 +321,7 @@ R_Teff_target_R, R_Teff_target_R_sigma, & R_Teff_target_Teff, R_Teff_target_Teff_sigma - logical :: R_L_win_flag, R_L_file_flag - logical :: do_R_L_win, do_R_L_file logical :: show_R_L_target_box logical :: show_R_L_annotation1, show_R_L_annotation2, show_R_L_annotation3 integer :: R_L_file_interval, R_L_step_max, R_L_target_n_sigma @@ -724,10 +341,7 @@ R_L_target_R, R_L_target_R_sigma, & R_L_target_L, R_L_target_L_sigma - - logical :: logg_Teff_win_flag, logg_Teff_file_flag - logical :: do_logg_Teff_win, do_logg_Teff_file logical :: show_logg_Teff_target_box logical :: show_logg_Teff_annotation1, show_logg_Teff_annotation2, show_logg_Teff_annotation3 integer :: logg_Teff_file_interval, logg_Teff_step_max, logg_Teff_target_n_sigma @@ -747,8 +361,6 @@ logg_Teff_target_logg, logg_Teff_target_logg_sigma, & logg_Teff_target_Teff, logg_Teff_target_Teff_sigma - - logical :: logg_logT_win_flag, logg_logT_file_flag logical :: do_logg_logT_win, do_logg_logT_file logical :: show_logg_logT_target_box @@ -770,11 +382,9 @@ logg_logT_target_logg, logg_logT_target_logg_sigma, & logg_logT_target_logT, logg_logT_target_logT_sigma - logical :: rti_win_flag, rti_file_flag logical :: rti_xaxis_log, rti_xaxis_reversed, & rti_xaxis_in_Myr, rti_xaxis_in_seconds, rti_xaxis_time_from_present - logical :: do_rti_win, do_rti_file integer :: id_rti_win, id_rti_file, rti_file_interval integer :: rti_step_xmin,rti_step_xmax integer :: rti_max_width, rti_interval, rti_line_weight @@ -790,11 +400,9 @@ prev_rti_file_width, prev_rti_file_ratio, & rti_xmax, rti_xmin, rti_xmargin - logical :: Kipp_win_flag, Kipp_file_flag logical :: Kipp_xaxis_log, Kipp_xaxis_reversed, & Kipp_xaxis_in_Myr, Kipp_xaxis_in_seconds, Kipp_xaxis_time_from_present - logical :: do_Kipp_win, do_Kipp_file integer :: id_Kipp_win, id_Kipp_file, Kipp_file_interval integer :: Kipp_step_xmin,Kipp_step_xmax integer :: Kipp_max_width, Kipp_mix_interval, & @@ -817,11 +425,8 @@ Kipp_xmax, Kipp_xmin,Kipp_xmargin, & Kipp_burn_type_cutoff - - logical :: TRho_Profile_win_flag, TRho_Profile_file_flag, TRho_switch_to_Column_Depth logical :: TRho_switch_to_mass - logical :: do_TRho_Profile_win, do_TRho_Profile_file integer :: id_TRho_Profile_win, id_TRho_Profile_file, TRho_Profile_file_interval character (len=strlen) :: & TRho_Profile_file_dir, TRho_Profile_file_prefix, TRho_Profile_title, TRho_Profile_fname @@ -845,7 +450,6 @@ prev_TRho_Profile_file_width, prev_TRho_Profile_file_ratio logical :: show_TRho_accretion_mesh_borders - integer :: num_profile_mass_points real :: profile_mass_point_q(max_num_profile_mass_points) integer :: profile_mass_point_color_index(max_num_profile_mass_points) @@ -862,273 +466,35 @@ Profile_Panels_xwidth_left_of_shock, & Profile_Panels_xwidth_right_of_shock - logical :: Profile_Panels1_win_flag, Profile_Panels1_file_flag - logical :: do_Profile_Panels1_win, do_Profile_Panels1_file - integer :: id_Profile_Panels1_win, id_Profile_Panels1_file, Profile_Panels1_file_interval - character (len=strlen) :: Profile_Panels1_file_dir, Profile_Panels1_file_prefix - logical :: Profile_Panels1_xaxis_reversed, Profile_Panels1_show_mix_regions_on_xaxis - character (len=strlen) :: Profile_Panels1_xaxis_name, Profile_Panels1_title - real :: & - Profile_Panels1_xmin, Profile_Panels1_xmax, Profile_Panels1_xmargin, & - Profile_Panels1_win_width, Profile_Panels1_win_aspect_ratio, & - Profile_Panels1_xleft, Profile_Panels1_xright, & - Profile_Panels1_ybot, Profile_Panels1_ytop, Profile_Panels1_txt_scale, & - prev_Profile_Panels1_win_width, prev_Profile_Panels1_win_ratio, & - Profile_Panels1_file_width, Profile_Panels1_file_aspect_ratio, & - prev_Profile_Panels1_file_width, prev_Profile_Panels1_file_ratio - integer :: Profile_Panels1_num_panels - character (len=strlen), dimension(max_num_Profile_Panels) :: & - Profile_Panels1_yaxis_name, Profile_Panels1_other_yaxis_name - logical, dimension(max_num_Profile_Panels) :: & - Profile_Panels1_yaxis_reversed, Profile_Panels1_other_yaxis_reversed, & - Profile_Panels1_yaxis_log, Profile_Panels1_other_yaxis_log, & - Profile_Panels1_same_yaxis_range - real, dimension(max_num_Profile_Panels) :: & - Profile_Panels1_ymin, Profile_Panels1_other_ymin, & - Profile_Panels1_ymax, Profile_Panels1_other_ymax, & - Profile_Panels1_ycenter, Profile_Panels1_other_ycenter, & - Profile_Panels1_ymargin, Profile_Panels1_other_ymargin, & - Profile_Panels1_dymin, Profile_Panels1_other_dymin - logical :: Profile_Panels1_show_grid - - - logical :: Profile_Panels2_win_flag, Profile_Panels2_file_flag - logical :: do_Profile_Panels2_win, do_Profile_Panels2_file - integer :: id_Profile_Panels2_win, id_Profile_Panels2_file, Profile_Panels2_file_interval - character (len=strlen) :: Profile_Panels2_file_dir, Profile_Panels2_file_prefix - logical :: Profile_Panels2_xaxis_reversed, Profile_Panels2_show_mix_regions_on_xaxis - character (len=strlen) :: Profile_Panels2_xaxis_name, Profile_Panels2_title - real :: & - Profile_Panels2_xmin, Profile_Panels2_xmax, Profile_Panels2_xmargin, & - Profile_Panels2_win_width, Profile_Panels2_win_aspect_ratio, & - Profile_Panels2_xleft, Profile_Panels2_xright, & - Profile_Panels2_ybot, Profile_Panels2_ytop, Profile_Panels2_txt_scale, & - prev_Profile_Panels2_win_width, prev_Profile_Panels2_win_ratio, & - Profile_Panels2_file_width, Profile_Panels2_file_aspect_ratio, & - prev_Profile_Panels2_file_width, prev_Profile_Panels2_file_ratio - integer :: Profile_Panels2_num_panels - character (len=strlen), dimension(max_num_Profile_Panels) :: & - Profile_Panels2_yaxis_name, Profile_Panels2_other_yaxis_name - logical, dimension(max_num_Profile_Panels) :: & - Profile_Panels2_yaxis_reversed, Profile_Panels2_other_yaxis_reversed, & - Profile_Panels2_yaxis_log, Profile_Panels2_other_yaxis_log, & - Profile_Panels2_same_yaxis_range - real, dimension(max_num_Profile_Panels) :: & - Profile_Panels2_ymin, Profile_Panels2_other_ymin, & - Profile_Panels2_ymax, Profile_Panels2_other_ymax, & - Profile_Panels2_ycenter, Profile_Panels2_other_ycenter, & - Profile_Panels2_ymargin, Profile_Panels2_other_ymargin, & - Profile_Panels2_dymin, Profile_Panels2_other_dymin - logical :: Profile_Panels2_show_grid - - - logical :: Profile_Panels3_win_flag, Profile_Panels3_file_flag - logical :: do_Profile_Panels3_win, do_Profile_Panels3_file - integer :: id_Profile_Panels3_win, id_Profile_Panels3_file, Profile_Panels3_file_interval - character (len=strlen) :: Profile_Panels3_file_dir, Profile_Panels3_file_prefix - logical :: Profile_Panels3_xaxis_reversed, Profile_Panels3_show_mix_regions_on_xaxis - character (len=strlen) :: Profile_Panels3_xaxis_name, Profile_Panels3_title - real :: & - Profile_Panels3_xmin, Profile_Panels3_xmax, Profile_Panels3_xmargin, & - Profile_Panels3_win_width, Profile_Panels3_win_aspect_ratio, & - Profile_Panels3_xleft, Profile_Panels3_xright, & - Profile_Panels3_ybot, Profile_Panels3_ytop, Profile_Panels3_txt_scale, & - prev_Profile_Panels3_win_width, prev_Profile_Panels3_win_ratio, & - Profile_Panels3_file_width, Profile_Panels3_file_aspect_ratio, & - prev_Profile_Panels3_file_width, prev_Profile_Panels3_file_ratio - integer :: Profile_Panels3_num_panels - character (len=strlen), dimension(max_num_Profile_Panels) :: & - Profile_Panels3_yaxis_name, Profile_Panels3_other_yaxis_name - logical, dimension(max_num_Profile_Panels) :: & - Profile_Panels3_yaxis_reversed, Profile_Panels3_other_yaxis_reversed, & - Profile_Panels3_yaxis_log, Profile_Panels3_other_yaxis_log, & - Profile_Panels3_same_yaxis_range - real, dimension(max_num_Profile_Panels) :: & - Profile_Panels3_ymin, Profile_Panels3_other_ymin, & - Profile_Panels3_ymax, Profile_Panels3_other_ymax, & - Profile_Panels3_ycenter, Profile_Panels3_other_ycenter, & - Profile_Panels3_ymargin, Profile_Panels3_other_ymargin, & - Profile_Panels3_dymin, Profile_Panels3_other_dymin - logical :: Profile_Panels3_show_grid - - - logical :: Profile_Panels4_win_flag, Profile_Panels4_file_flag - logical :: do_Profile_Panels4_win, do_Profile_Panels4_file - integer :: id_Profile_Panels4_win, id_Profile_Panels4_file, Profile_Panels4_file_interval - character (len=strlen) :: Profile_Panels4_file_dir, Profile_Panels4_file_prefix - logical :: Profile_Panels4_xaxis_reversed, Profile_Panels4_show_mix_regions_on_xaxis - character (len=strlen) :: Profile_Panels4_xaxis_name, Profile_Panels4_title - real :: & - Profile_Panels4_xmin, Profile_Panels4_xmax, Profile_Panels4_xmargin, & - Profile_Panels4_win_width, Profile_Panels4_win_aspect_ratio, & - Profile_Panels4_xleft, Profile_Panels4_xright, & - Profile_Panels4_ybot, Profile_Panels4_ytop, Profile_Panels4_txt_scale, & - prev_Profile_Panels4_win_width, prev_Profile_Panels4_win_ratio, & - Profile_Panels4_file_width, Profile_Panels4_file_aspect_ratio, & - prev_Profile_Panels4_file_width, prev_Profile_Panels4_file_ratio - integer :: Profile_Panels4_num_panels - character (len=strlen), dimension(max_num_Profile_Panels) :: & - Profile_Panels4_yaxis_name, Profile_Panels4_other_yaxis_name - logical, dimension(max_num_Profile_Panels) :: & - Profile_Panels4_yaxis_reversed, Profile_Panels4_other_yaxis_reversed, & - Profile_Panels4_yaxis_log, Profile_Panels4_other_yaxis_log, & - Profile_Panels4_same_yaxis_range - real, dimension(max_num_Profile_Panels) :: & - Profile_Panels4_ymin, Profile_Panels4_other_ymin, & - Profile_Panels4_ymax, Profile_Panels4_other_ymax, & - Profile_Panels4_ycenter, Profile_Panels4_other_ycenter, & - Profile_Panels4_ymargin, Profile_Panels4_other_ymargin, & - Profile_Panels4_dymin, Profile_Panels4_other_dymin - logical :: Profile_Panels4_show_grid - - logical :: Profile_Panels5_win_flag, Profile_Panels5_file_flag - logical :: do_Profile_Panels5_win, do_Profile_Panels5_file - integer :: id_Profile_Panels5_win, id_Profile_Panels5_file, Profile_Panels5_file_interval - character (len=strlen) :: Profile_Panels5_file_dir, Profile_Panels5_file_prefix - logical :: Profile_Panels5_xaxis_reversed, Profile_Panels5_show_mix_regions_on_xaxis - character (len=strlen) :: Profile_Panels5_xaxis_name, Profile_Panels5_title - real :: & - Profile_Panels5_xmin, Profile_Panels5_xmax, Profile_Panels5_xmargin, & - Profile_Panels5_win_width, Profile_Panels5_win_aspect_ratio, & - Profile_Panels5_xleft, Profile_Panels5_xright, & - Profile_Panels5_ybot, Profile_Panels5_ytop, Profile_Panels5_txt_scale, & - prev_Profile_Panels5_win_width, prev_Profile_Panels5_win_ratio, & - Profile_Panels5_file_width, Profile_Panels5_file_aspect_ratio, & - prev_Profile_Panels5_file_width, prev_Profile_Panels5_file_ratio - integer :: Profile_Panels5_num_panels - character (len=strlen), dimension(max_num_Profile_Panels) :: & - Profile_Panels5_yaxis_name, Profile_Panels5_other_yaxis_name - logical, dimension(max_num_Profile_Panels) :: & - Profile_Panels5_yaxis_reversed, Profile_Panels5_other_yaxis_reversed, & - Profile_Panels5_yaxis_log, Profile_Panels5_other_yaxis_log, & - Profile_Panels5_same_yaxis_range - real, dimension(max_num_Profile_Panels) :: & - Profile_Panels5_ymin, Profile_Panels5_other_ymin, & - Profile_Panels5_ymax, Profile_Panels5_other_ymax, & - Profile_Panels5_ycenter, Profile_Panels5_other_ycenter, & - Profile_Panels5_ymargin, Profile_Panels5_other_ymargin, & - Profile_Panels5_dymin, Profile_Panels5_other_dymin - logical :: Profile_Panels5_show_grid - - logical :: Profile_Panels6_win_flag, Profile_Panels6_file_flag - logical :: do_Profile_Panels6_win, do_Profile_Panels6_file - integer :: id_Profile_Panels6_win, id_Profile_Panels6_file, Profile_Panels6_file_interval - character (len=strlen) :: Profile_Panels6_file_dir, Profile_Panels6_file_prefix - logical :: Profile_Panels6_xaxis_reversed, Profile_Panels6_show_mix_regions_on_xaxis - character (len=strlen) :: Profile_Panels6_xaxis_name, Profile_Panels6_title - real :: & - Profile_Panels6_xmin, Profile_Panels6_xmax, Profile_Panels6_xmargin, & - Profile_Panels6_win_width, Profile_Panels6_win_aspect_ratio, & - Profile_Panels6_xleft, Profile_Panels6_xright, & - Profile_Panels6_ybot, Profile_Panels6_ytop, Profile_Panels6_txt_scale, & - prev_Profile_Panels6_win_width, prev_Profile_Panels6_win_ratio, & - Profile_Panels6_file_width, Profile_Panels6_file_aspect_ratio, & - prev_Profile_Panels6_file_width, prev_Profile_Panels6_file_ratio - integer :: Profile_Panels6_num_panels - character (len=strlen), dimension(max_num_Profile_Panels) :: & - Profile_Panels6_yaxis_name, Profile_Panels6_other_yaxis_name - logical, dimension(max_num_Profile_Panels) :: & - Profile_Panels6_yaxis_reversed, Profile_Panels6_other_yaxis_reversed, & - Profile_Panels6_yaxis_log, Profile_Panels6_other_yaxis_log, & - Profile_Panels6_same_yaxis_range - real, dimension(max_num_Profile_Panels) :: & - Profile_Panels6_ymin, Profile_Panels6_other_ymin, & - Profile_Panels6_ymax, Profile_Panels6_other_ymax, & - Profile_Panels6_ycenter, Profile_Panels6_other_ycenter, & - Profile_Panels6_ymargin, Profile_Panels6_other_ymargin, & - Profile_Panels6_dymin, Profile_Panels6_other_dymin - logical :: Profile_Panels6_show_grid - - logical :: Profile_Panels7_win_flag, Profile_Panels7_file_flag - logical :: do_Profile_Panels7_win, do_Profile_Panels7_file - integer :: id_Profile_Panels7_win, id_Profile_Panels7_file, Profile_Panels7_file_interval - character (len=strlen) :: Profile_Panels7_file_dir, Profile_Panels7_file_prefix - logical :: Profile_Panels7_xaxis_reversed, Profile_Panels7_show_mix_regions_on_xaxis - character (len=strlen) :: Profile_Panels7_xaxis_name, Profile_Panels7_title - real :: & - Profile_Panels7_xmin, Profile_Panels7_xmax, Profile_Panels7_xmargin, & - Profile_Panels7_win_width, Profile_Panels7_win_aspect_ratio, & - Profile_Panels7_xleft, Profile_Panels7_xright, & - Profile_Panels7_ybot, Profile_Panels7_ytop, Profile_Panels7_txt_scale, & - prev_Profile_Panels7_win_width, prev_Profile_Panels7_win_ratio, & - Profile_Panels7_file_width, Profile_Panels7_file_aspect_ratio, & - prev_Profile_Panels7_file_width, prev_Profile_Panels7_file_ratio - integer :: Profile_Panels7_num_panels - character (len=strlen), dimension(max_num_Profile_Panels) :: & - Profile_Panels7_yaxis_name, Profile_Panels7_other_yaxis_name - logical, dimension(max_num_Profile_Panels) :: & - Profile_Panels7_yaxis_reversed, Profile_Panels7_other_yaxis_reversed, & - Profile_Panels7_yaxis_log, Profile_Panels7_other_yaxis_log, & - Profile_Panels7_same_yaxis_range - real, dimension(max_num_Profile_Panels) :: & - Profile_Panels7_ymin, Profile_Panels7_other_ymin, & - Profile_Panels7_ymax, Profile_Panels7_other_ymax, & - Profile_Panels7_ycenter, Profile_Panels7_other_ycenter, & - Profile_Panels7_ymargin, Profile_Panels7_other_ymargin, & - Profile_Panels7_dymin, Profile_Panels7_other_dymin - logical :: Profile_Panels7_show_grid - - logical :: Profile_Panels8_win_flag, Profile_Panels8_file_flag - logical :: do_Profile_Panels8_win, do_Profile_Panels8_file - integer :: id_Profile_Panels8_win, id_Profile_Panels8_file, Profile_Panels8_file_interval - character (len=strlen) :: Profile_Panels8_file_dir, Profile_Panels8_file_prefix - logical :: Profile_Panels8_xaxis_reversed, Profile_Panels8_show_mix_regions_on_xaxis - character (len=strlen) :: Profile_Panels8_xaxis_name, Profile_Panels8_title - real :: & - Profile_Panels8_xmin, Profile_Panels8_xmax, Profile_Panels8_xmargin, & - Profile_Panels8_win_width, Profile_Panels8_win_aspect_ratio, & - Profile_Panels8_xleft, Profile_Panels8_xright, & - Profile_Panels8_ybot, Profile_Panels8_ytop, Profile_Panels8_txt_scale, & - prev_Profile_Panels8_win_width, prev_Profile_Panels8_win_ratio, & - Profile_Panels8_file_width, Profile_Panels8_file_aspect_ratio, & - prev_Profile_Panels8_file_width, prev_Profile_Panels8_file_ratio - integer :: Profile_Panels8_num_panels - character (len=strlen), dimension(max_num_Profile_Panels) :: & - Profile_Panels8_yaxis_name, Profile_Panels8_other_yaxis_name - logical, dimension(max_num_Profile_Panels) :: & - Profile_Panels8_yaxis_reversed, Profile_Panels8_other_yaxis_reversed, & - Profile_Panels8_yaxis_log, Profile_Panels8_other_yaxis_log, & - Profile_Panels8_same_yaxis_range - real, dimension(max_num_Profile_Panels) :: & - Profile_Panels8_ymin, Profile_Panels8_other_ymin, & - Profile_Panels8_ymax, Profile_Panels8_other_ymax, & - Profile_Panels8_ycenter, Profile_Panels8_other_ycenter, & - Profile_Panels8_ymargin, Profile_Panels8_other_ymargin, & - Profile_Panels8_dymin, Profile_Panels8_other_dymin - logical :: Profile_Panels8_show_grid - - logical :: Profile_Panels9_win_flag, Profile_Panels9_file_flag - logical :: do_Profile_Panels9_win, do_Profile_Panels9_file - integer :: id_Profile_Panels9_win, id_Profile_Panels9_file, Profile_Panels9_file_interval - character (len=strlen) :: Profile_Panels9_file_dir, Profile_Panels9_file_prefix - logical :: Profile_Panels9_xaxis_reversed, Profile_Panels9_show_mix_regions_on_xaxis - character (len=strlen) :: Profile_Panels9_xaxis_name, Profile_Panels9_title - real :: & - Profile_Panels9_xmin, Profile_Panels9_xmax, Profile_Panels9_xmargin, & - Profile_Panels9_win_width, Profile_Panels9_win_aspect_ratio, & - Profile_Panels9_xleft, Profile_Panels9_xright, & - Profile_Panels9_ybot, Profile_Panels9_ytop, Profile_Panels9_txt_scale, & - prev_Profile_Panels9_win_width, prev_Profile_Panels9_win_ratio, & - Profile_Panels9_file_width, Profile_Panels9_file_aspect_ratio, & - prev_Profile_Panels9_file_width, prev_Profile_Panels9_file_ratio - integer :: Profile_Panels9_num_panels - character (len=strlen), dimension(max_num_Profile_Panels) :: & - Profile_Panels9_yaxis_name, Profile_Panels9_other_yaxis_name - logical, dimension(max_num_Profile_Panels) :: & - Profile_Panels9_yaxis_reversed, Profile_Panels9_other_yaxis_reversed, & - Profile_Panels9_yaxis_log, Profile_Panels9_other_yaxis_log, & - Profile_Panels9_same_yaxis_range - real, dimension(max_num_Profile_Panels) :: & - Profile_Panels9_ymin, Profile_Panels9_other_ymin, & - Profile_Panels9_ymax, Profile_Panels9_other_ymax, & - Profile_Panels9_ycenter, Profile_Panels9_other_ycenter, & - Profile_Panels9_ymargin, Profile_Panels9_other_ymargin, & - Profile_Panels9_dymin, Profile_Panels9_other_dymin - logical :: Profile_Panels9_show_grid - + logical, dimension(pgstar_array_length) :: Profile_Panels_win_flag, Profile_Panels_file_flag + integer, dimension(pgstar_array_length) :: id_Profile_Panels_win, id_Profile_Panels_file, Profile_Panels_file_interval + character (len=strlen), dimension(pgstar_array_length) :: Profile_Panels_file_dir, Profile_Panels_file_prefix + logical, dimension(pgstar_array_length) :: Profile_Panels_xaxis_reversed, Profile_Panels_show_mix_regions_on_xaxis + character (len=strlen), dimension(pgstar_array_length) :: Profile_Panels_xaxis_name, Profile_Panels_title + real, dimension(pgstar_array_length) :: & + Profile_Panels_xmin, Profile_Panels_xmax, Profile_Panels_xmargin, & + Profile_Panels_win_width, Profile_Panels_win_aspect_ratio, & + Profile_Panels_xleft, Profile_Panels_xright, & + Profile_Panels_ybot, Profile_Panels_ytop, Profile_Panels_txt_scale, & + prev_Profile_Panels_win_width, prev_Profile_Panels_win_ratio, & + Profile_Panels_file_width, Profile_Panels_file_aspect_ratio, & + prev_Profile_Panels_file_width, prev_Profile_Panels_file_ratio + integer, dimension(pgstar_array_length) :: Profile_Panels_num_panels + character (len=strlen), dimension(pgstar_array_length, max_num_Profile_Panels) :: & + Profile_Panels_yaxis_name, Profile_Panels_other_yaxis_name + logical, dimension(pgstar_array_length, max_num_Profile_Panels) :: & + Profile_Panels_yaxis_reversed, Profile_Panels_other_yaxis_reversed, & + Profile_Panels_yaxis_log, Profile_Panels_other_yaxis_log, & + Profile_Panels_same_yaxis_range + real, dimension(pgstar_array_length, max_num_Profile_Panels) :: & + Profile_Panels_ymin, Profile_Panels_other_ymin, & + Profile_Panels_ymax, Profile_Panels_other_ymax, & + Profile_Panels_ycenter, Profile_Panels_other_ycenter, & + Profile_Panels_ymargin, Profile_Panels_other_ymargin, & + Profile_Panels_dymin, Profile_Panels_other_dymin + logical, dimension(pgstar_array_length) :: Profile_Panels_show_grid logical :: Dynamo_win_flag, Dynamo_file_flag - logical :: do_Dynamo_win, do_Dynamo_file integer :: id_Dynamo_win, id_Dynamo_file, Dynamo_file_interval character (len=strlen) :: Dynamo_file_dir, Dynamo_file_prefix logical :: show_Dynamo_annotation1, show_Dynamo_annotation2, show_Dynamo_annotation3, & @@ -1145,10 +511,8 @@ Dynamo_file_width, Dynamo_file_aspect_ratio, & prev_Dynamo_file_width, prev_Dynamo_file_ratio - logical :: Mixing_win_flag, Mixing_file_flag - logical :: do_Mixing_win, do_Mixing_file, & - Mixing_xaxis_reversed, Mixing_show_rotation_details + logical :: Mixing_xaxis_reversed, Mixing_show_rotation_details integer :: id_Mixing_win, id_Mixing_file, Mixing_file_interval character (len=strlen) :: Mixing_file_dir, Mixing_file_prefix logical :: show_Mixing_annotation1, show_Mixing_annotation2, show_Mixing_annotation3 @@ -1163,541 +527,67 @@ Mixing_file_width, Mixing_file_aspect_ratio, & prev_Mixing_file_width, prev_Mixing_file_ratio - - logical :: History_Panels1_win_flag, History_Panels1_file_flag - logical :: do_History_Panels1_win, do_History_Panels1_file - integer :: id_History_Panels1_win, id_History_Panels1_file, History_Panels1_file_interval - character (len=strlen) :: History_Panels1_file_dir, History_Panels1_file_prefix - logical :: History_Panels1_xaxis_reversed, History_Panels1_automatic_star_age_units, History_Panels1_xaxis_log - character (len=strlen) :: History_Panels1_xaxis_name, History_Panels1_title - real :: & - History_Panels1_xmin, History_Panels1_xmax, History_Panels1_dxmin,& - History_Panels1_max_width,History_Panels1_xmargin, & - History_Panels1_win_width, History_Panels1_win_aspect_ratio, & - History_Panels1_xleft, History_Panels1_xright, & - History_Panels1_ybot, History_Panels1_ytop, History_Panels1_txt_scale, & - prev_History_Panels1_win_width, prev_History_Panels1_win_ratio, & - History_Panels1_file_width, History_Panels1_file_aspect_ratio, & - prev_History_Panels1_file_width, prev_History_Panels1_file_ratio - integer :: History_Panels1_num_panels - character (len=strlen), dimension(max_num_History_Panels) :: & - History_Panels1_yaxis_name, History_Panels1_other_yaxis_name, & - History_Panels1_points_name - logical, dimension(max_num_History_Panels) :: & - History_Panels1_yaxis_reversed, History_Panels1_other_yaxis_reversed, & - History_Panels1_yaxis_log, History_Panels1_other_yaxis_log, & - History_Panels1_same_yaxis_range - real, dimension(max_num_History_Panels) :: & - History_Panels1_ymin, History_Panels1_other_ymin, & - History_Panels1_ymax, History_Panels1_other_ymax, & - History_Panels1_ymargin, History_Panels1_other_ymargin, & - History_Panels1_dymin, History_Panels1_other_dymin - - - logical :: History_Panels2_win_flag, History_Panels2_file_flag - logical :: do_History_Panels2_win, do_History_Panels2_file - integer :: id_History_Panels2_win, id_History_Panels2_file, History_Panels2_file_interval - character (len=strlen) :: History_Panels2_file_dir, History_Panels2_file_prefix - logical :: History_Panels2_xaxis_reversed, History_Panels2_automatic_star_age_units, History_Panels2_xaxis_log - character (len=strlen) :: History_Panels2_xaxis_name, History_Panels2_title - real :: & - History_Panels2_xmin, History_Panels2_xmax, History_Panels2_dxmin,& - History_Panels2_max_width,History_Panels2_xmargin, & - History_Panels2_win_width, History_Panels2_win_aspect_ratio, & - History_Panels2_xleft, History_Panels2_xright, & - History_Panels2_ybot, History_Panels2_ytop, History_Panels2_txt_scale, & - prev_History_Panels2_win_width, prev_History_Panels2_win_ratio, & - History_Panels2_file_width, History_Panels2_file_aspect_ratio, & - prev_History_Panels2_file_width, prev_History_Panels2_file_ratio - integer :: History_Panels2_num_panels - character (len=strlen), dimension(max_num_History_Panels) :: & - History_Panels2_yaxis_name, History_Panels2_other_yaxis_name, & - History_Panels2_points_name - logical, dimension(max_num_History_Panels) :: & - History_Panels2_yaxis_reversed, History_Panels2_other_yaxis_reversed, & - History_Panels2_yaxis_log, History_Panels2_other_yaxis_log, & - History_Panels2_same_yaxis_range - real, dimension(max_num_History_Panels) :: & - History_Panels2_ymin, History_Panels2_other_ymin, & - History_Panels2_ymax, History_Panels2_other_ymax, & - History_Panels2_ymargin, History_Panels2_other_ymargin, & - History_Panels2_dymin, History_Panels2_other_dymin - - - logical :: History_Panels3_win_flag, History_Panels3_file_flag - logical :: do_History_Panels3_win, do_History_Panels3_file - integer :: id_History_Panels3_win, id_History_Panels3_file, History_Panels3_file_interval - character (len=strlen) :: History_Panels3_file_dir, History_Panels3_file_prefix - logical :: History_Panels3_xaxis_reversed, History_Panels3_automatic_star_age_units, History_Panels3_xaxis_log - character (len=strlen) :: History_Panels3_xaxis_name, History_Panels3_title - real :: & - History_Panels3_xmin, History_Panels3_xmax, History_Panels3_dxmin,& - History_Panels3_max_width,History_Panels3_xmargin, & - History_Panels3_win_width, History_Panels3_win_aspect_ratio, & - History_Panels3_xleft, History_Panels3_xright, & - History_Panels3_ybot, History_Panels3_ytop, History_Panels3_txt_scale, & - prev_History_Panels3_win_width, prev_History_Panels3_win_ratio, & - History_Panels3_file_width, History_Panels3_file_aspect_ratio, & - prev_History_Panels3_file_width, prev_History_Panels3_file_ratio - integer :: History_Panels3_num_panels - character (len=strlen), dimension(max_num_History_Panels) :: & - History_Panels3_yaxis_name, History_Panels3_other_yaxis_name, & - History_Panels3_points_name - logical, dimension(max_num_History_Panels) :: & - History_Panels3_yaxis_reversed, History_Panels3_other_yaxis_reversed, & - History_Panels3_yaxis_log, History_Panels3_other_yaxis_log, & - History_Panels3_same_yaxis_range - real, dimension(max_num_History_Panels) :: & - History_Panels3_ymin, History_Panels3_other_ymin, & - History_Panels3_ymax, History_Panels3_other_ymax, & - History_Panels3_ymargin, History_Panels3_other_ymargin, & - History_Panels3_dymin, History_Panels3_other_dymin - - - logical :: History_Panels4_win_flag, History_Panels4_file_flag - logical :: do_History_Panels4_win, do_History_Panels4_file - integer :: id_History_Panels4_win, id_History_Panels4_file, History_Panels4_file_interval - character (len=strlen) :: History_Panels4_file_dir, History_Panels4_file_prefix - logical :: History_Panels4_xaxis_reversed, History_Panels4_automatic_star_age_units, History_Panels4_xaxis_log - character (len=strlen) :: History_Panels4_xaxis_name, History_Panels4_title - real :: & - History_Panels4_xmin, History_Panels4_xmax, History_Panels4_dxmin,& - History_Panels4_max_width,History_Panels4_xmargin, & - History_Panels4_win_width, History_Panels4_win_aspect_ratio, & - History_Panels4_xleft, History_Panels4_xright, & - History_Panels4_ybot, History_Panels4_ytop, History_Panels4_txt_scale, & - prev_History_Panels4_win_width, prev_History_Panels4_win_ratio, & - History_Panels4_file_width, History_Panels4_file_aspect_ratio, & - prev_History_Panels4_file_width, prev_History_Panels4_file_ratio - integer :: History_Panels4_num_panels - character (len=strlen), dimension(max_num_History_Panels) :: & - History_Panels4_yaxis_name, History_Panels4_other_yaxis_name, & - History_Panels4_points_name - logical, dimension(max_num_History_Panels) :: & - History_Panels4_yaxis_reversed, History_Panels4_other_yaxis_reversed, & - History_Panels4_yaxis_log, History_Panels4_other_yaxis_log, & - History_Panels4_same_yaxis_range - real, dimension(max_num_History_Panels) :: & - History_Panels4_ymin, History_Panels4_other_ymin, & - History_Panels4_ymax, History_Panels4_other_ymax, & - History_Panels4_ymargin, History_Panels4_other_ymargin, & - History_Panels4_dymin, History_Panels4_other_dymin - - logical :: History_Panels5_win_flag, History_Panels5_file_flag - logical :: do_History_Panels5_win, do_History_Panels5_file - integer :: id_History_Panels5_win, id_History_Panels5_file, History_Panels5_file_interval - character (len=strlen) :: History_Panels5_file_dir, History_Panels5_file_prefix - logical :: History_Panels5_xaxis_reversed, History_Panels5_automatic_star_age_units, History_Panels5_xaxis_log - character (len=strlen) :: History_Panels5_xaxis_name, History_Panels5_title - real :: & - History_Panels5_xmin, History_Panels5_xmax, History_Panels5_dxmin,& - History_Panels5_max_width,History_Panels5_xmargin, & - History_Panels5_win_width, History_Panels5_win_aspect_ratio, & - History_Panels5_xleft, History_Panels5_xright, & - History_Panels5_ybot, History_Panels5_ytop, History_Panels5_txt_scale, & - prev_History_Panels5_win_width, prev_History_Panels5_win_ratio, & - History_Panels5_file_width, History_Panels5_file_aspect_ratio, & - prev_History_Panels5_file_width, prev_History_Panels5_file_ratio - integer :: History_Panels5_num_panels - character (len=strlen), dimension(max_num_History_Panels) :: & - History_Panels5_yaxis_name, History_Panels5_other_yaxis_name, & - History_Panels5_points_name - logical, dimension(max_num_History_Panels) :: & - History_Panels5_yaxis_reversed, History_Panels5_other_yaxis_reversed, & - History_Panels5_yaxis_log, History_Panels5_other_yaxis_log, & - History_Panels5_same_yaxis_range - real, dimension(max_num_History_Panels) :: & - History_Panels5_ymin, History_Panels5_other_ymin, & - History_Panels5_ymax, History_Panels5_other_ymax, & - History_Panels5_ymargin, History_Panels5_other_ymargin, & - History_Panels5_dymin, History_Panels5_other_dymin - - logical :: History_Panels6_win_flag, History_Panels6_file_flag - logical :: do_History_Panels6_win, do_History_Panels6_file - integer :: id_History_Panels6_win, id_History_Panels6_file, History_Panels6_file_interval - character (len=strlen) :: History_Panels6_file_dir, History_Panels6_file_prefix - logical :: History_Panels6_xaxis_reversed, History_Panels6_automatic_star_age_units, History_Panels6_xaxis_log - character (len=strlen) :: History_Panels6_xaxis_name, History_Panels6_title - real :: & - History_Panels6_xmin, History_Panels6_xmax, History_Panels6_dxmin,& - History_Panels6_max_width,History_Panels6_xmargin, & - History_Panels6_win_width, History_Panels6_win_aspect_ratio, & - History_Panels6_xleft, History_Panels6_xright, & - History_Panels6_ybot, History_Panels6_ytop, History_Panels6_txt_scale, & - prev_History_Panels6_win_width, prev_History_Panels6_win_ratio, & - History_Panels6_file_width, History_Panels6_file_aspect_ratio, & - prev_History_Panels6_file_width, prev_History_Panels6_file_ratio - integer :: History_Panels6_num_panels - character (len=strlen), dimension(max_num_History_Panels) :: & - History_Panels6_yaxis_name, History_Panels6_other_yaxis_name, & - History_Panels6_points_name - logical, dimension(max_num_History_Panels) :: & - History_Panels6_yaxis_reversed, History_Panels6_other_yaxis_reversed, & - History_Panels6_yaxis_log, History_Panels6_other_yaxis_log, & - History_Panels6_same_yaxis_range - real, dimension(max_num_History_Panels) :: & - History_Panels6_ymin, History_Panels6_other_ymin, & - History_Panels6_ymax, History_Panels6_other_ymax, & - History_Panels6_ymargin, History_Panels6_other_ymargin, & - History_Panels6_dymin, History_Panels6_other_dymin - - logical :: History_Panels7_win_flag, History_Panels7_file_flag - logical :: do_History_Panels7_win, do_History_Panels7_file - integer :: id_History_Panels7_win, id_History_Panels7_file, History_Panels7_file_interval - character (len=strlen) :: History_Panels7_file_dir, History_Panels7_file_prefix - logical :: History_Panels7_xaxis_reversed, History_Panels7_automatic_star_age_units, History_Panels7_xaxis_log - character (len=strlen) :: History_Panels7_xaxis_name, History_Panels7_title - real :: & - History_Panels7_xmin, History_Panels7_xmax, History_Panels7_dxmin,& - History_Panels7_max_width,History_Panels7_xmargin, & - History_Panels7_win_width, History_Panels7_win_aspect_ratio, & - History_Panels7_xleft, History_Panels7_xright, & - History_Panels7_ybot, History_Panels7_ytop, History_Panels7_txt_scale, & - prev_History_Panels7_win_width, prev_History_Panels7_win_ratio, & - History_Panels7_file_width, History_Panels7_file_aspect_ratio, & - prev_History_Panels7_file_width, prev_History_Panels7_file_ratio - integer :: History_Panels7_num_panels - character (len=strlen), dimension(max_num_History_Panels) :: & - History_Panels7_yaxis_name, History_Panels7_other_yaxis_name, & - History_Panels7_points_name - logical, dimension(max_num_History_Panels) :: & - History_Panels7_yaxis_reversed, History_Panels7_other_yaxis_reversed, & - History_Panels7_yaxis_log, History_Panels7_other_yaxis_log, & - History_Panels7_same_yaxis_range - real, dimension(max_num_History_Panels) :: & - History_Panels7_ymin, History_Panels7_other_ymin, & - History_Panels7_ymax, History_Panels7_other_ymax, & - History_Panels7_ymargin, History_Panels7_other_ymargin, & - History_Panels7_dymin, History_Panels7_other_dymin - - logical :: History_Panels8_win_flag, History_Panels8_file_flag - logical :: do_History_Panels8_win, do_History_Panels8_file - integer :: id_History_Panels8_win, id_History_Panels8_file, History_Panels8_file_interval - character (len=strlen) :: History_Panels8_file_dir, History_Panels8_file_prefix - logical :: History_Panels8_xaxis_reversed, History_Panels8_automatic_star_age_units, History_Panels8_xaxis_log - character (len=strlen) :: History_Panels8_xaxis_name, History_Panels8_title - real :: & - History_Panels8_xmin, History_Panels8_xmax, History_Panels8_dxmin,& - History_Panels8_max_width,History_Panels8_xmargin, & - History_Panels8_win_width, History_Panels8_win_aspect_ratio, & - History_Panels8_xleft, History_Panels8_xright, & - History_Panels8_ybot, History_Panels8_ytop, History_Panels8_txt_scale, & - prev_History_Panels8_win_width, prev_History_Panels8_win_ratio, & - History_Panels8_file_width, History_Panels8_file_aspect_ratio, & - prev_History_Panels8_file_width, prev_History_Panels8_file_ratio - integer :: History_Panels8_num_panels - character (len=strlen), dimension(max_num_History_Panels) :: & - History_Panels8_yaxis_name, History_Panels8_other_yaxis_name, & - History_Panels8_points_name - logical, dimension(max_num_History_Panels) :: & - History_Panels8_yaxis_reversed, History_Panels8_other_yaxis_reversed, & - History_Panels8_yaxis_log, History_Panels8_other_yaxis_log, & - History_Panels8_same_yaxis_range - real, dimension(max_num_History_Panels) :: & - History_Panels8_ymin, History_Panels8_other_ymin, & - History_Panels8_ymax, History_Panels8_other_ymax, & - History_Panels8_ymargin, History_Panels8_other_ymargin, & - History_Panels8_dymin, History_Panels8_other_dymin - - logical :: History_Panels9_win_flag, History_Panels9_file_flag - logical :: do_History_Panels9_win, do_History_Panels9_file - integer :: id_History_Panels9_win, id_History_Panels9_file, History_Panels9_file_interval - character (len=strlen) :: History_Panels9_file_dir, History_Panels9_file_prefix - logical :: History_Panels9_xaxis_reversed, History_Panels9_automatic_star_age_units, History_Panels9_xaxis_log - character (len=strlen) :: History_Panels9_xaxis_name, History_Panels9_title - real :: & - History_Panels9_xmin, History_Panels9_xmax, History_Panels9_dxmin,& - History_Panels9_max_width,History_Panels9_xmargin, & - History_Panels9_win_width, History_Panels9_win_aspect_ratio, & - History_Panels9_xleft, History_Panels9_xright, & - History_Panels9_ybot, History_Panels9_ytop, History_Panels9_txt_scale, & - prev_History_Panels9_win_width, prev_History_Panels9_win_ratio, & - History_Panels9_file_width, History_Panels9_file_aspect_ratio, & - prev_History_Panels9_file_width, prev_History_Panels9_file_ratio - integer :: History_Panels9_num_panels - character (len=strlen), dimension(max_num_History_Panels) :: & - History_Panels9_yaxis_name, History_Panels9_other_yaxis_name, & - History_Panels9_points_name - logical, dimension(max_num_History_Panels) :: & - History_Panels9_yaxis_reversed, History_Panels9_other_yaxis_reversed, & - History_Panels9_yaxis_log, History_Panels9_other_yaxis_log, & - History_Panels9_same_yaxis_range - real, dimension(max_num_History_Panels) :: & - History_Panels9_ymin, History_Panels9_other_ymin, & - History_Panels9_ymax, History_Panels9_other_ymax, & - History_Panels9_ymargin, History_Panels9_other_ymargin, & - History_Panels9_dymin, History_Panels9_other_dymin + logical, dimension(pgstar_array_length) :: History_Panels_win_flag, History_Panels_file_flag + integer, dimension(pgstar_array_length) :: id_History_Panels_win, id_History_Panels_file, History_Panels_file_interval + character (len=strlen), dimension(pgstar_array_length) :: History_Panels_file_dir, History_Panels_file_prefix + logical, dimension(pgstar_array_length) :: History_Panels_xaxis_reversed, History_Panels_automatic_star_age_units, History_Panels_xaxis_log + character (len=strlen), dimension(pgstar_array_length) :: History_Panels_xaxis_name, History_Panels_title + real, dimension(pgstar_array_length) :: & + History_Panels_xmin, History_Panels_xmax, History_Panels_dxmin,& + History_Panels_max_width,History_Panels_xmargin, & + History_Panels_win_width, History_Panels_win_aspect_ratio, & + History_Panels_xleft, History_Panels_xright, & + History_Panels_ybot, History_Panels_ytop, History_Panels_txt_scale, & + prev_History_Panels_win_width, prev_History_Panels_win_ratio, & + History_Panels_file_width, History_Panels_file_aspect_ratio, & + prev_History_Panels_file_width, prev_History_Panels_file_ratio + integer, dimension(pgstar_array_length) :: History_Panels_num_panels + character (len=strlen), dimension(pgstar_array_length, max_num_History_Panels) :: & + History_Panels_yaxis_name, History_Panels_other_yaxis_name, & + History_Panels_points_name + logical, dimension(pgstar_array_length, max_num_History_Panels) :: & + History_Panels_yaxis_reversed, History_Panels_other_yaxis_reversed, & + History_Panels_yaxis_log, History_Panels_other_yaxis_log, & + History_Panels_same_yaxis_range + real, dimension(pgstar_array_length, max_num_History_Panels) :: & + History_Panels_ymin, History_Panels_other_ymin, & + History_Panels_ymax, History_Panels_other_ymax, & + History_Panels_ymargin, History_Panels_other_ymargin, & + History_Panels_dymin, History_Panels_other_dymin logical :: History_Panel_points_error_bars integer :: History_Panel_points_interval, History_Panel_points_marker, & History_Panel_points_ci, History_Panel_points_lw real :: History_Panel_points_ch - - logical :: Color_Magnitude1_win_flag, Color_Magnitude1_file_flag - logical :: do_Color_Magnitude1_win, do_Color_Magnitude1_file - integer :: id_Color_Magnitude1_win, id_Color_Magnitude1_file, Color_Magnitude1_file_interval - character (len=strlen) :: Color_Magnitude1_file_dir, Color_Magnitude1_file_prefix - logical :: Color_Magnitude1_xaxis_reversed,Color_Magnitude1_xaxis_log - character (len=strlen) :: Color_Magnitude1_xaxis1_name,Color_Magnitude1_xaxis2_name,& - Color_Magnitude1_title - real :: & - Color_Magnitude1_xmin, Color_Magnitude1_xmax, Color_Magnitude1_dxmin,& - Color_Magnitude1_max_width,Color_Magnitude1_xmargin, & - Color_Magnitude1_win_width, Color_Magnitude1_win_aspect_ratio, & - Color_Magnitude1_xleft, Color_Magnitude1_xright, & - Color_Magnitude1_ybot, Color_Magnitude1_ytop, Color_Magnitude1_txt_scale, & - prev_Color_Magnitude1_win_width, prev_Color_Magnitude1_win_ratio, & - Color_Magnitude1_file_width, Color_Magnitude1_file_aspect_ratio, & - prev_Color_Magnitude1_file_width, prev_Color_Magnitude1_file_ratio - integer :: Color_Magnitude1_num_panels - character (len=strlen), dimension(max_num_Color_Magnitude) :: & - Color_Magnitude1_yaxis1_name, Color_Magnitude1_other_yaxis1_name,& - Color_Magnitude1_yaxis2_name, Color_Magnitude1_other_yaxis2_name - logical, dimension(max_num_Color_Magnitude) :: & - Color_Magnitude1_yaxis_reversed, Color_Magnitude1_other_yaxis_reversed, & - Color_Magnitude1_yaxis_log, Color_Magnitude1_other_yaxis_log - real, dimension(max_num_Color_Magnitude) :: & - Color_Magnitude1_ymin, Color_Magnitude1_other_ymin, & - Color_Magnitude1_ymax, Color_Magnitude1_other_ymax, & - Color_Magnitude1_ymargin, Color_Magnitude1_other_ymargin, & - Color_Magnitude1_dymin, Color_Magnitude1_other_dymin - - - logical :: Color_Magnitude2_win_flag, Color_Magnitude2_file_flag - logical :: do_Color_Magnitude2_win, do_Color_Magnitude2_file - integer :: id_Color_Magnitude2_win, id_Color_Magnitude2_file, Color_Magnitude2_file_interval - character (len=strlen) :: Color_Magnitude2_file_dir, Color_Magnitude2_file_prefix - logical :: Color_Magnitude2_xaxis_reversed,Color_Magnitude2_xaxis_log - character (len=strlen) :: Color_Magnitude2_xaxis1_name,Color_Magnitude2_xaxis2_name,& - Color_Magnitude2_title - real :: & - Color_Magnitude2_xmin, Color_Magnitude2_xmax, Color_Magnitude2_dxmin,& - Color_Magnitude2_max_width,Color_Magnitude2_xmargin, & - Color_Magnitude2_win_width, Color_Magnitude2_win_aspect_ratio, & - Color_Magnitude2_xleft, Color_Magnitude2_xright, & - Color_Magnitude2_ybot, Color_Magnitude2_ytop, Color_Magnitude2_txt_scale, & - prev_Color_Magnitude2_win_width, prev_Color_Magnitude2_win_ratio, & - Color_Magnitude2_file_width, Color_Magnitude2_file_aspect_ratio, & - prev_Color_Magnitude2_file_width, prev_Color_Magnitude2_file_ratio - integer :: Color_Magnitude2_num_panels - character (len=strlen), dimension(max_num_Color_Magnitude) :: & - Color_Magnitude2_yaxis1_name, Color_Magnitude2_other_yaxis1_name,& - Color_Magnitude2_yaxis2_name, Color_Magnitude2_other_yaxis2_name - logical, dimension(max_num_Color_Magnitude) :: & - Color_Magnitude2_yaxis_reversed, Color_Magnitude2_other_yaxis_reversed, & - Color_Magnitude2_yaxis_log, Color_Magnitude2_other_yaxis_log - real, dimension(max_num_Color_Magnitude) :: & - Color_Magnitude2_ymin, Color_Magnitude2_other_ymin, & - Color_Magnitude2_ymax, Color_Magnitude2_other_ymax, & - Color_Magnitude2_ymargin, Color_Magnitude2_other_ymargin, & - Color_Magnitude2_dymin, Color_Magnitude2_other_dymin - - logical :: Color_Magnitude3_win_flag, Color_Magnitude3_file_flag - logical :: do_Color_Magnitude3_win, do_Color_Magnitude3_file - integer :: id_Color_Magnitude3_win, id_Color_Magnitude3_file, Color_Magnitude3_file_interval - character (len=strlen) :: Color_Magnitude3_file_dir, Color_Magnitude3_file_prefix - logical :: Color_Magnitude3_xaxis_reversed,Color_Magnitude3_xaxis_log - character (len=strlen) :: Color_Magnitude3_xaxis1_name,Color_Magnitude3_xaxis2_name,& - Color_Magnitude3_title - real :: & - Color_Magnitude3_xmin, Color_Magnitude3_xmax, Color_Magnitude3_dxmin,& - Color_Magnitude3_max_width,Color_Magnitude3_xmargin, & - Color_Magnitude3_win_width, Color_Magnitude3_win_aspect_ratio, & - Color_Magnitude3_xleft, Color_Magnitude3_xright, & - Color_Magnitude3_ybot, Color_Magnitude3_ytop, Color_Magnitude3_txt_scale, & - prev_Color_Magnitude3_win_width, prev_Color_Magnitude3_win_ratio, & - Color_Magnitude3_file_width, Color_Magnitude3_file_aspect_ratio, & - prev_Color_Magnitude3_file_width, prev_Color_Magnitude3_file_ratio - integer :: Color_Magnitude3_num_panels - character (len=strlen), dimension(max_num_Color_Magnitude) :: & - Color_Magnitude3_yaxis1_name, Color_Magnitude3_other_yaxis1_name,& - Color_Magnitude3_yaxis2_name, Color_Magnitude3_other_yaxis2_name - logical, dimension(max_num_Color_Magnitude) :: & - Color_Magnitude3_yaxis_reversed, Color_Magnitude3_other_yaxis_reversed, & - Color_Magnitude3_yaxis_log, Color_Magnitude3_other_yaxis_log - real, dimension(max_num_Color_Magnitude) :: & - Color_Magnitude3_ymin, Color_Magnitude3_other_ymin, & - Color_Magnitude3_ymax, Color_Magnitude3_other_ymax, & - Color_Magnitude3_ymargin, Color_Magnitude3_other_ymargin, & - Color_Magnitude3_dymin, Color_Magnitude3_other_dymin - - logical :: Color_Magnitude4_win_flag, Color_Magnitude4_file_flag - logical :: do_Color_Magnitude4_win, do_Color_Magnitude4_file - integer :: id_Color_Magnitude4_win, id_Color_Magnitude4_file, Color_Magnitude4_file_interval - character (len=strlen) :: Color_Magnitude4_file_dir, Color_Magnitude4_file_prefix - logical :: Color_Magnitude4_xaxis_reversed,Color_Magnitude4_xaxis_log - character (len=strlen) :: Color_Magnitude4_xaxis1_name,Color_Magnitude4_xaxis2_name,& - Color_Magnitude4_title - real :: & - Color_Magnitude4_xmin, Color_Magnitude4_xmax, Color_Magnitude4_dxmin,& - Color_Magnitude4_max_width,Color_Magnitude4_xmargin, & - Color_Magnitude4_win_width, Color_Magnitude4_win_aspect_ratio, & - Color_Magnitude4_xleft, Color_Magnitude4_xright, & - Color_Magnitude4_ybot, Color_Magnitude4_ytop, Color_Magnitude4_txt_scale, & - prev_Color_Magnitude4_win_width, prev_Color_Magnitude4_win_ratio, & - Color_Magnitude4_file_width, Color_Magnitude4_file_aspect_ratio, & - prev_Color_Magnitude4_file_width, prev_Color_Magnitude4_file_ratio - integer :: Color_Magnitude4_num_panels - character (len=strlen), dimension(max_num_Color_Magnitude) :: & - Color_Magnitude4_yaxis1_name, Color_Magnitude4_other_yaxis1_name,& - Color_Magnitude4_yaxis2_name, Color_Magnitude4_other_yaxis2_name - logical, dimension(max_num_Color_Magnitude) :: & - Color_Magnitude4_yaxis_reversed, Color_Magnitude4_other_yaxis_reversed, & - Color_Magnitude4_yaxis_log, Color_Magnitude4_other_yaxis_log - real, dimension(max_num_Color_Magnitude) :: & - Color_Magnitude4_ymin, Color_Magnitude4_other_ymin, & - Color_Magnitude4_ymax, Color_Magnitude4_other_ymax, & - Color_Magnitude4_ymargin, Color_Magnitude4_other_ymargin, & - Color_Magnitude4_dymin, Color_Magnitude4_other_dymin - - logical :: Color_Magnitude5_win_flag, Color_Magnitude5_file_flag - logical :: do_Color_Magnitude5_win, do_Color_Magnitude5_file - integer :: id_Color_Magnitude5_win, id_Color_Magnitude5_file, Color_Magnitude5_file_interval - character (len=strlen) :: Color_Magnitude5_file_dir, Color_Magnitude5_file_prefix - logical :: Color_Magnitude5_xaxis_reversed,Color_Magnitude5_xaxis_log - character (len=strlen) :: Color_Magnitude5_xaxis1_name,Color_Magnitude5_xaxis2_name,& - Color_Magnitude5_title - real :: & - Color_Magnitude5_xmin, Color_Magnitude5_xmax, Color_Magnitude5_dxmin,& - Color_Magnitude5_max_width,Color_Magnitude5_xmargin, & - Color_Magnitude5_win_width, Color_Magnitude5_win_aspect_ratio, & - Color_Magnitude5_xleft, Color_Magnitude5_xright, & - Color_Magnitude5_ybot, Color_Magnitude5_ytop, Color_Magnitude5_txt_scale, & - prev_Color_Magnitude5_win_width, prev_Color_Magnitude5_win_ratio, & - Color_Magnitude5_file_width, Color_Magnitude5_file_aspect_ratio, & - prev_Color_Magnitude5_file_width, prev_Color_Magnitude5_file_ratio - integer :: Color_Magnitude5_num_panels - character (len=strlen), dimension(max_num_Color_Magnitude) :: & - Color_Magnitude5_yaxis1_name, Color_Magnitude5_other_yaxis1_name,& - Color_Magnitude5_yaxis2_name, Color_Magnitude5_other_yaxis2_name - logical, dimension(max_num_Color_Magnitude) :: & - Color_Magnitude5_yaxis_reversed, Color_Magnitude5_other_yaxis_reversed, & - Color_Magnitude5_yaxis_log, Color_Magnitude5_other_yaxis_log - real, dimension(max_num_Color_Magnitude) :: & - Color_Magnitude5_ymin, Color_Magnitude5_other_ymin, & - Color_Magnitude5_ymax, Color_Magnitude5_other_ymax, & - Color_Magnitude5_ymargin, Color_Magnitude5_other_ymargin, & - Color_Magnitude5_dymin, Color_Magnitude5_other_dymin - - logical :: Color_Magnitude6_win_flag, Color_Magnitude6_file_flag - logical :: do_Color_Magnitude6_win, do_Color_Magnitude6_file - integer :: id_Color_Magnitude6_win, id_Color_Magnitude6_file, Color_Magnitude6_file_interval - character (len=strlen) :: Color_Magnitude6_file_dir, Color_Magnitude6_file_prefix - logical :: Color_Magnitude6_xaxis_reversed,Color_Magnitude6_xaxis_log - character (len=strlen) :: Color_Magnitude6_xaxis1_name,Color_Magnitude6_xaxis2_name,& - Color_Magnitude6_title - real :: & - Color_Magnitude6_xmin, Color_Magnitude6_xmax, Color_Magnitude6_dxmin,& - Color_Magnitude6_max_width,Color_Magnitude6_xmargin, & - Color_Magnitude6_win_width, Color_Magnitude6_win_aspect_ratio, & - Color_Magnitude6_xleft, Color_Magnitude6_xright, & - Color_Magnitude6_ybot, Color_Magnitude6_ytop, Color_Magnitude6_txt_scale, & - prev_Color_Magnitude6_win_width, prev_Color_Magnitude6_win_ratio, & - Color_Magnitude6_file_width, Color_Magnitude6_file_aspect_ratio, & - prev_Color_Magnitude6_file_width, prev_Color_Magnitude6_file_ratio - integer :: Color_Magnitude6_num_panels - character (len=strlen), dimension(max_num_Color_Magnitude) :: & - Color_Magnitude6_yaxis1_name, Color_Magnitude6_other_yaxis1_name,& - Color_Magnitude6_yaxis2_name, Color_Magnitude6_other_yaxis2_name - logical, dimension(max_num_Color_Magnitude) :: & - Color_Magnitude6_yaxis_reversed, Color_Magnitude6_other_yaxis_reversed, & - Color_Magnitude6_yaxis_log, Color_Magnitude6_other_yaxis_log - real, dimension(max_num_Color_Magnitude) :: & - Color_Magnitude6_ymin, Color_Magnitude6_other_ymin, & - Color_Magnitude6_ymax, Color_Magnitude6_other_ymax, & - Color_Magnitude6_ymargin, Color_Magnitude6_other_ymargin, & - Color_Magnitude6_dymin, Color_Magnitude6_other_dymin - - logical :: Color_Magnitude7_win_flag, Color_Magnitude7_file_flag - logical :: do_Color_Magnitude7_win, do_Color_Magnitude7_file - integer :: id_Color_Magnitude7_win, id_Color_Magnitude7_file, Color_Magnitude7_file_interval - character (len=strlen) :: Color_Magnitude7_file_dir, Color_Magnitude7_file_prefix - logical :: Color_Magnitude7_xaxis_reversed,Color_Magnitude7_xaxis_log - character (len=strlen) :: Color_Magnitude7_xaxis1_name,Color_Magnitude7_xaxis2_name,& - Color_Magnitude7_title - real :: & - Color_Magnitude7_xmin, Color_Magnitude7_xmax, Color_Magnitude7_dxmin,& - Color_Magnitude7_max_width,Color_Magnitude7_xmargin, & - Color_Magnitude7_win_width, Color_Magnitude7_win_aspect_ratio, & - Color_Magnitude7_xleft, Color_Magnitude7_xright, & - Color_Magnitude7_ybot, Color_Magnitude7_ytop, Color_Magnitude7_txt_scale, & - prev_Color_Magnitude7_win_width, prev_Color_Magnitude7_win_ratio, & - Color_Magnitude7_file_width, Color_Magnitude7_file_aspect_ratio, & - prev_Color_Magnitude7_file_width, prev_Color_Magnitude7_file_ratio - integer :: Color_Magnitude7_num_panels - character (len=strlen), dimension(max_num_Color_Magnitude) :: & - Color_Magnitude7_yaxis1_name, Color_Magnitude7_other_yaxis1_name,& - Color_Magnitude7_yaxis2_name, Color_Magnitude7_other_yaxis2_name - logical, dimension(max_num_Color_Magnitude) :: & - Color_Magnitude7_yaxis_reversed, Color_Magnitude7_other_yaxis_reversed, & - Color_Magnitude7_yaxis_log, Color_Magnitude7_other_yaxis_log - real, dimension(max_num_Color_Magnitude) :: & - Color_Magnitude7_ymin, Color_Magnitude7_other_ymin, & - Color_Magnitude7_ymax, Color_Magnitude7_other_ymax, & - Color_Magnitude7_ymargin, Color_Magnitude7_other_ymargin, & - Color_Magnitude7_dymin, Color_Magnitude7_other_dymin - - logical :: Color_Magnitude8_win_flag, Color_Magnitude8_file_flag - logical :: do_Color_Magnitude8_win, do_Color_Magnitude8_file - integer :: id_Color_Magnitude8_win, id_Color_Magnitude8_file, Color_Magnitude8_file_interval - character (len=strlen) :: Color_Magnitude8_file_dir, Color_Magnitude8_file_prefix - logical :: Color_Magnitude8_xaxis_reversed,Color_Magnitude8_xaxis_log - character (len=strlen) :: Color_Magnitude8_xaxis1_name,Color_Magnitude8_xaxis2_name,& - Color_Magnitude8_title - real :: & - Color_Magnitude8_xmin, Color_Magnitude8_xmax, Color_Magnitude8_dxmin,& - Color_Magnitude8_max_width,Color_Magnitude8_xmargin, & - Color_Magnitude8_win_width, Color_Magnitude8_win_aspect_ratio, & - Color_Magnitude8_xleft, Color_Magnitude8_xright, & - Color_Magnitude8_ybot, Color_Magnitude8_ytop, Color_Magnitude8_txt_scale, & - prev_Color_Magnitude8_win_width, prev_Color_Magnitude8_win_ratio, & - Color_Magnitude8_file_width, Color_Magnitude8_file_aspect_ratio, & - prev_Color_Magnitude8_file_width, prev_Color_Magnitude8_file_ratio - integer :: Color_Magnitude8_num_panels - character (len=strlen), dimension(max_num_Color_Magnitude) :: & - Color_Magnitude8_yaxis1_name, Color_Magnitude8_other_yaxis1_name,& - Color_Magnitude8_yaxis2_name, Color_Magnitude8_other_yaxis2_name - logical, dimension(max_num_Color_Magnitude) :: & - Color_Magnitude8_yaxis_reversed, Color_Magnitude8_other_yaxis_reversed, & - Color_Magnitude8_yaxis_log, Color_Magnitude8_other_yaxis_log - real, dimension(max_num_Color_Magnitude) :: & - Color_Magnitude8_ymin, Color_Magnitude8_other_ymin, & - Color_Magnitude8_ymax, Color_Magnitude8_other_ymax, & - Color_Magnitude8_ymargin, Color_Magnitude8_other_ymargin, & - Color_Magnitude8_dymin, Color_Magnitude8_other_dymin - - logical :: Color_Magnitude9_win_flag, Color_Magnitude9_file_flag - logical :: do_Color_Magnitude9_win, do_Color_Magnitude9_file - integer :: id_Color_Magnitude9_win, id_Color_Magnitude9_file, Color_Magnitude9_file_interval - character (len=strlen) :: Color_Magnitude9_file_dir, Color_Magnitude9_file_prefix - logical :: Color_Magnitude9_xaxis_reversed,Color_Magnitude9_xaxis_log - character (len=strlen) :: Color_Magnitude9_xaxis1_name,Color_Magnitude9_xaxis2_name,& - Color_Magnitude9_title - real :: & - Color_Magnitude9_xmin, Color_Magnitude9_xmax, Color_Magnitude9_dxmin,& - Color_Magnitude9_max_width,Color_Magnitude9_xmargin, & - Color_Magnitude9_win_width, Color_Magnitude9_win_aspect_ratio, & - Color_Magnitude9_xleft, Color_Magnitude9_xright, & - Color_Magnitude9_ybot, Color_Magnitude9_ytop, Color_Magnitude9_txt_scale, & - prev_Color_Magnitude9_win_width, prev_Color_Magnitude9_win_ratio, & - Color_Magnitude9_file_width, Color_Magnitude9_file_aspect_ratio, & - prev_Color_Magnitude9_file_width, prev_Color_Magnitude9_file_ratio - integer :: Color_Magnitude9_num_panels - character (len=strlen), dimension(max_num_Color_Magnitude) :: & - Color_Magnitude9_yaxis1_name, Color_Magnitude9_other_yaxis1_name,& - Color_Magnitude9_yaxis2_name, Color_Magnitude9_other_yaxis2_name - logical, dimension(max_num_Color_Magnitude) :: & - Color_Magnitude9_yaxis_reversed, Color_Magnitude9_other_yaxis_reversed, & - Color_Magnitude9_yaxis_log, Color_Magnitude9_other_yaxis_log - real, dimension(max_num_Color_Magnitude) :: & - Color_Magnitude9_ymin, Color_Magnitude9_other_ymin, & - Color_Magnitude9_ymax, Color_Magnitude9_other_ymax, & - Color_Magnitude9_ymargin, Color_Magnitude9_other_ymargin, & - Color_Magnitude9_dymin, Color_Magnitude9_other_dymin - + logical, dimension(pgstar_array_length) :: Color_Magnitude_win_flag, Color_Magnitude_file_flag + integer, dimension(pgstar_array_length) :: id_Color_Magnitude_win, id_Color_Magnitude_file, Color_Magnitude_file_interval + character (len=strlen), dimension(pgstar_array_length) :: Color_Magnitude_file_dir, Color_Magnitude_file_prefix + logical, dimension(pgstar_array_length) :: Color_Magnitude_xaxis_reversed, Color_Magnitude_xaxis_log + character (len=strlen), dimension(pgstar_array_length) :: Color_Magnitude_xaxis1_name, Color_Magnitude_xaxis2_name, & + Color_Magnitude_title + real, dimension(pgstar_array_length) :: & + Color_Magnitude_xmin, Color_Magnitude_xmax, Color_Magnitude_dxmin, Color_Magnitude_xmargin, & + Color_Magnitude_max_width, Color_Magnitude_win_width, Color_Magnitude_win_aspect_ratio, & + Color_Magnitude_xleft, Color_Magnitude_xright, & + Color_Magnitude_ybot, Color_Magnitude_ytop, Color_Magnitude_txt_scale, & + prev_Color_Magnitude_win_width, prev_Color_Magnitude_win_ratio, & + Color_Magnitude_file_width, Color_Magnitude_file_aspect_ratio, & + prev_Color_Magnitude_file_width, prev_Color_Magnitude_file_ratio + integer, dimension(pgstar_array_length) :: Color_Magnitude_num_panels + character (len=strlen), dimension(pgstar_array_length, max_num_Color_Magnitude) :: & + Color_Magnitude_yaxis1_name, Color_Magnitude_other_yaxis1_name, & + Color_Magnitude_yaxis2_name, Color_Magnitude_other_yaxis2_name + logical, dimension(pgstar_array_length, max_num_Color_Magnitude) :: & + Color_Magnitude_yaxis_reversed, Color_Magnitude_other_yaxis_reversed, & + Color_Magnitude_yaxis_log, Color_Magnitude_other_yaxis_log + real, dimension(pgstar_array_length, max_num_Color_Magnitude) :: & + Color_Magnitude_ymin, Color_Magnitude_other_ymin, & + Color_Magnitude_ymax, Color_Magnitude_other_ymax, & + Color_Magnitude_ymargin, Color_Magnitude_other_ymargin, & + Color_Magnitude_dymin, Color_Magnitude_other_dymin logical :: Mode_Prop_win_flag, Mode_Prop_file_flag - logical :: do_Mode_Prop_win, do_Mode_Prop_file, Mode_Prop_xaxis_reversed + logical :: Mode_Prop_xaxis_reversed integer :: id_Mode_Prop_win, id_Mode_Prop_file, Mode_Prop_file_interval character (len=strlen) :: Mode_Prop_file_dir, Mode_Prop_file_prefix, & Mode_Prop_xaxis_name, Mode_Prop_title @@ -1710,10 +600,8 @@ Mode_Prop_file_width, Mode_Prop_file_aspect_ratio, & prev_Mode_Prop_file_width, prev_Mode_Prop_file_ratio - logical :: Summary_Burn_win_flag, Summary_Burn_file_flag - logical :: do_Summary_Burn_win, do_Summary_Burn_file, & - Summary_Burn_xaxis_reversed + logical :: Summary_Burn_xaxis_reversed integer :: id_Summary_Burn_win, id_Summary_Burn_file, & Summary_Burn_num_lines, Summary_Burn_file_interval character (len=strlen) :: Summary_Burn_file_dir, Summary_Burn_file_prefix, & @@ -1727,10 +615,8 @@ Summary_Burn_file_width, Summary_Burn_file_aspect_ratio, & prev_Summary_Burn_file_width, prev_Summary_Burn_file_ratio - logical :: Summary_Profile_win_flag, Summary_Profile_file_flag - logical :: do_Summary_Profile_win, do_Summary_Profile_file, & - Summary_Profile_xaxis_reversed, & + logical :: Summary_Profile_xaxis_reversed, & Summary_Profile_scaled_value(max_num_Summary_Profile_Lines) integer :: id_Summary_Profile_win, id_Summary_Profile_file, & Summary_Profile_num_lines, Summary_Profile_file_interval @@ -1747,10 +633,8 @@ Summary_Profile_file_width, Summary_Profile_file_aspect_ratio, & prev_Summary_Profile_file_width, prev_Summary_Profile_file_ratio - logical :: Summary_History_win_flag, Summary_History_file_flag - logical :: do_Summary_History_win, do_Summary_History_file, & - Summary_History_scaled_value(max_num_Summary_History_Lines) + logical :: Summary_History_scaled_value(max_num_Summary_History_Lines) integer :: id_Summary_History_win, id_Summary_History_file, & Summary_History_num_lines, Summary_History_file_interval, & Summary_History_xmin, Summary_History_xmax, Summary_History_max_width @@ -1766,9 +650,8 @@ Summary_History_file_width, Summary_History_file_aspect_ratio, & prev_Summary_History_file_width, prev_Summary_History_file_ratio - logical :: Power_win_flag, Power_file_flag - logical :: do_Power_win, do_Power_file, Power_xaxis_reversed + logical :: Power_xaxis_reversed integer :: id_Power_win, id_Power_file, Power_file_interval, & Power_legend_max_cnt character (len=strlen) :: Power_file_dir, Power_file_prefix, & @@ -1782,10 +665,8 @@ Power_file_width, Power_file_aspect_ratio, & prev_Power_file_width, prev_Power_file_ratio - logical :: Abundance_win_flag, Abundance_file_flag - logical :: do_Abundance_win, do_Abundance_file, Abundance_xaxis_reversed, & - Abundance_show_photosphere_location + logical :: Abundance_xaxis_reversed, Abundance_show_photosphere_location integer :: id_Abundance_win, id_Abundance_file, Abundance_file_interval integer :: Abundance_num_isos_to_show, num_abundance_line_labels, & Abundance_legend_max_cnt @@ -1805,8 +686,8 @@ prev_Abundance_file_width, prev_Abundance_file_ratio logical :: Network_win_flag, Network_file_flag - logical :: do_Network_win, do_Network_file, Network_show_colorbar - logical :: Network_show_element_names, Network_show_mass_fraction + logical :: Network_show_colorbar, Network_show_element_names, & + Network_show_mass_fraction integer :: id_Network_win, id_Network_file, Network_file_interval character (len=strlen) :: Network_file_dir, Network_file_prefix, & Network_title @@ -1822,7 +703,6 @@ prev_Network_file_width, prev_Network_file_ratio logical :: Production_win_flag, Production_file_flag - logical :: do_Production_win, do_Production_file logical :: Production_show_element_names integer :: id_Production_win, id_Production_file, Production_file_interval character (len=strlen) :: Production_file_dir, Production_file_prefix, & @@ -1839,224 +719,28 @@ Production_file_width, Production_file_aspect_ratio, & prev_Production_file_width, prev_Production_file_ratio - - logical :: Grid1_win_flag, Grid1_file_flag - logical :: do_Grid1_win, do_Grid1_file - integer :: Grid1_file_interval, Grid1_step_max - integer :: id_Grid1_win, id_Grid1_file - character (len=strlen) :: Grid1_file_dir, Grid1_file_prefix - real :: & - Grid1_win_width, Grid1_win_aspect_ratio, & - Grid1_xleft, Grid1_xright, & - Grid1_ybot, Grid1_ytop, & - prev_Grid1_win_width, prev_Grid1_win_ratio, & - Grid1_file_width, Grid1_file_aspect_ratio, & - prev_Grid1_file_width, prev_Grid1_file_ratio - character (len=strlen) :: Grid1_title, & - Grid1_plot_name(max_num_pgstar_grid_plots) - real, dimension(max_num_pgstar_grid_plots) :: & - Grid1_txt_scale_factor, & - Grid1_plot_pad_left, Grid1_plot_pad_right, & - Grid1_plot_pad_top, Grid1_plot_pad_bot - integer :: & - Grid1_num_cols, Grid1_num_rows, Grid1_num_plots - integer, dimension(max_num_pgstar_grid_plots) :: & - Grid1_plot_row, Grid1_plot_rowspan, & - Grid1_plot_col, Grid1_plot_colspan - - logical :: Grid2_win_flag, Grid2_file_flag - logical :: do_Grid2_win, do_Grid2_file - integer :: Grid2_file_interval, Grid2_step_max - integer :: id_Grid2_win, id_Grid2_file - character (len=strlen) :: Grid2_file_dir, Grid2_file_prefix - real :: & - Grid2_win_width, Grid2_win_aspect_ratio, & - Grid2_xleft, Grid2_xright, & - Grid2_ybot, Grid2_ytop, & - prev_Grid2_win_width, prev_Grid2_win_ratio, & - Grid2_file_width, Grid2_file_aspect_ratio, & - prev_Grid2_file_width, prev_Grid2_file_ratio - character (len=strlen) :: Grid2_title, & - Grid2_plot_name(max_num_pgstar_grid_plots) - real, dimension(max_num_pgstar_grid_plots) :: & - Grid2_txt_scale_factor, & - Grid2_plot_pad_left, Grid2_plot_pad_right, & - Grid2_plot_pad_top, Grid2_plot_pad_bot - integer :: & - Grid2_num_cols, Grid2_num_rows, Grid2_num_plots - integer, dimension(max_num_pgstar_grid_plots) :: & - Grid2_plot_row, Grid2_plot_rowspan, & - Grid2_plot_col, Grid2_plot_colspan - - logical :: Grid3_win_flag, Grid3_file_flag - logical :: do_Grid3_win, do_Grid3_file - integer :: Grid3_file_interval, Grid3_step_max - integer :: id_Grid3_win, id_Grid3_file - character (len=strlen) :: Grid3_file_dir, Grid3_file_prefix - real :: & - Grid3_win_width, Grid3_win_aspect_ratio, & - Grid3_xleft, Grid3_xright, & - Grid3_ybot, Grid3_ytop, & - prev_Grid3_win_width, prev_Grid3_win_ratio, & - Grid3_file_width, Grid3_file_aspect_ratio, & - prev_Grid3_file_width, prev_Grid3_file_ratio - character (len=strlen) :: Grid3_title, & - Grid3_plot_name(max_num_pgstar_grid_plots) - real, dimension(max_num_pgstar_grid_plots) :: & - Grid3_txt_scale_factor, & - Grid3_plot_pad_left, Grid3_plot_pad_right, & - Grid3_plot_pad_top, Grid3_plot_pad_bot - integer :: & - Grid3_num_cols, Grid3_num_rows, Grid3_num_plots - integer, dimension(max_num_pgstar_grid_plots) :: & - Grid3_plot_row, Grid3_plot_rowspan, & - Grid3_plot_col, Grid3_plot_colspan - - logical :: Grid4_win_flag, Grid4_file_flag - logical :: do_Grid4_win, do_Grid4_file - integer :: Grid4_file_interval, Grid4_step_max - integer :: id_Grid4_win, id_Grid4_file - character (len=strlen) :: Grid4_file_dir, Grid4_file_prefix - real :: & - Grid4_win_width, Grid4_win_aspect_ratio, & - Grid4_xleft, Grid4_xright, & - Grid4_ybot, Grid4_ytop, & - prev_Grid4_win_width, prev_Grid4_win_ratio, & - Grid4_file_width, Grid4_file_aspect_ratio, & - prev_Grid4_file_width, prev_Grid4_file_ratio - character (len=strlen) :: Grid4_title, & - Grid4_plot_name(max_num_pgstar_grid_plots) - real, dimension(max_num_pgstar_grid_plots) :: & - Grid4_txt_scale_factor, & - Grid4_plot_pad_left, Grid4_plot_pad_right, & - Grid4_plot_pad_top, Grid4_plot_pad_bot - integer :: & - Grid4_num_cols, Grid4_num_rows, Grid4_num_plots - integer, dimension(max_num_pgstar_grid_plots) :: & - Grid4_plot_row, Grid4_plot_rowspan, & - Grid4_plot_col, Grid4_plot_colspan - - logical :: Grid5_win_flag, Grid5_file_flag - logical :: do_Grid5_win, do_Grid5_file - integer :: Grid5_file_interval, Grid5_step_max - integer :: id_Grid5_win, id_Grid5_file - character (len=strlen) :: Grid5_file_dir, Grid5_file_prefix - real :: & - Grid5_win_width, Grid5_win_aspect_ratio, & - Grid5_xleft, Grid5_xright, & - Grid5_ybot, Grid5_ytop, & - prev_Grid5_win_width, prev_Grid5_win_ratio, & - Grid5_file_width, Grid5_file_aspect_ratio, & - prev_Grid5_file_width, prev_Grid5_file_ratio - character (len=strlen) :: Grid5_title, & - Grid5_plot_name(max_num_pgstar_grid_plots) - real, dimension(max_num_pgstar_grid_plots) :: & - Grid5_txt_scale_factor, & - Grid5_plot_pad_left, Grid5_plot_pad_right, & - Grid5_plot_pad_top, Grid5_plot_pad_bot - integer :: & - Grid5_num_cols, Grid5_num_rows, Grid5_num_plots - integer, dimension(max_num_pgstar_grid_plots) :: & - Grid5_plot_row, Grid5_plot_rowspan, & - Grid5_plot_col, Grid5_plot_colspan - - logical :: Grid6_win_flag, Grid6_file_flag - logical :: do_Grid6_win, do_Grid6_file - integer :: Grid6_file_interval, Grid6_step_max - integer :: id_Grid6_win, id_Grid6_file - character (len=strlen) :: Grid6_file_dir, Grid6_file_prefix - real :: & - Grid6_win_width, Grid6_win_aspect_ratio, & - Grid6_xleft, Grid6_xright, & - Grid6_ybot, Grid6_ytop, & - prev_Grid6_win_width, prev_Grid6_win_ratio, & - Grid6_file_width, Grid6_file_aspect_ratio, & - prev_Grid6_file_width, prev_Grid6_file_ratio - character (len=strlen) :: Grid6_title, & - Grid6_plot_name(max_num_pgstar_grid_plots) - real, dimension(max_num_pgstar_grid_plots) :: & - Grid6_txt_scale_factor, & - Grid6_plot_pad_left, Grid6_plot_pad_right, & - Grid6_plot_pad_top, Grid6_plot_pad_bot - integer :: & - Grid6_num_cols, Grid6_num_rows, Grid6_num_plots - integer, dimension(max_num_pgstar_grid_plots) :: & - Grid6_plot_row, Grid6_plot_rowspan, & - Grid6_plot_col, Grid6_plot_colspan - - logical :: Grid7_win_flag, Grid7_file_flag - logical :: do_Grid7_win, do_Grid7_file - integer :: Grid7_file_interval, Grid7_step_max - integer :: id_Grid7_win, id_Grid7_file - character (len=strlen) :: Grid7_file_dir, Grid7_file_prefix - real :: & - Grid7_win_width, Grid7_win_aspect_ratio, & - Grid7_xleft, Grid7_xright, & - Grid7_ybot, Grid7_ytop, & - prev_Grid7_win_width, prev_Grid7_win_ratio, & - Grid7_file_width, Grid7_file_aspect_ratio, & - prev_Grid7_file_width, prev_Grid7_file_ratio - character (len=strlen) :: Grid7_title, & - Grid7_plot_name(max_num_pgstar_grid_plots) - real, dimension(max_num_pgstar_grid_plots) :: & - Grid7_txt_scale_factor, & - Grid7_plot_pad_left, Grid7_plot_pad_right, & - Grid7_plot_pad_top, Grid7_plot_pad_bot - integer :: & - Grid7_num_cols, Grid7_num_rows, Grid7_num_plots - integer, dimension(max_num_pgstar_grid_plots) :: & - Grid7_plot_row, Grid7_plot_rowspan, & - Grid7_plot_col, Grid7_plot_colspan - - logical :: Grid8_win_flag, Grid8_file_flag - logical :: do_Grid8_win, do_Grid8_file - integer :: Grid8_file_interval, Grid8_step_max - integer :: id_Grid8_win, id_Grid8_file - character (len=strlen) :: Grid8_file_dir, Grid8_file_prefix - real :: & - Grid8_win_width, Grid8_win_aspect_ratio, & - Grid8_xleft, Grid8_xright, & - Grid8_ybot, Grid8_ytop, & - prev_Grid8_win_width, prev_Grid8_win_ratio, & - Grid8_file_width, Grid8_file_aspect_ratio, & - prev_Grid8_file_width, prev_Grid8_file_ratio - character (len=strlen) :: Grid8_title, & - Grid8_plot_name(max_num_pgstar_grid_plots) - real, dimension(max_num_pgstar_grid_plots) :: & - Grid8_txt_scale_factor, & - Grid8_plot_pad_left, Grid8_plot_pad_right, & - Grid8_plot_pad_top, Grid8_plot_pad_bot - integer :: & - Grid8_num_cols, Grid8_num_rows, Grid8_num_plots - integer, dimension(max_num_pgstar_grid_plots) :: & - Grid8_plot_row, Grid8_plot_rowspan, & - Grid8_plot_col, Grid8_plot_colspan - - logical :: Grid9_win_flag, Grid9_file_flag - logical :: do_Grid9_win, do_Grid9_file - integer :: Grid9_file_interval, Grid9_step_max - integer :: id_Grid9_win, id_Grid9_file - character (len=strlen) :: Grid9_file_dir, Grid9_file_prefix - real :: & - Grid9_win_width, Grid9_win_aspect_ratio, & - Grid9_xleft, Grid9_xright, & - Grid9_ybot, Grid9_ytop, & - prev_Grid9_win_width, prev_Grid9_win_ratio, & - Grid9_file_width, Grid9_file_aspect_ratio, & - prev_Grid9_file_width, prev_Grid9_file_ratio - character (len=strlen) :: Grid9_title, & - Grid9_plot_name(max_num_pgstar_grid_plots) - real, dimension(max_num_pgstar_grid_plots) :: & - Grid9_txt_scale_factor, & - Grid9_plot_pad_left, Grid9_plot_pad_right, & - Grid9_plot_pad_top, Grid9_plot_pad_bot - integer :: & - Grid9_num_cols, Grid9_num_rows, Grid9_num_plots - integer, dimension(max_num_pgstar_grid_plots) :: & - Grid9_plot_row, Grid9_plot_rowspan, & - Grid9_plot_col, Grid9_plot_colspan - - + logical, dimension(pgstar_array_length) :: Grid_win_flag, Grid_file_flag + integer, dimension(pgstar_array_length) :: Grid_file_interval, Grid_step_max + integer, dimension(pgstar_array_length) :: id_Grid_win, id_Grid_file + character (len=strlen), dimension(pgstar_array_length) :: Grid_file_dir, Grid_file_prefix, Grid_title + real, dimension(pgstar_array_length) :: & + Grid_win_width, Grid_win_aspect_ratio, & + Grid_xleft, Grid_xright, & + Grid_ybot, Grid_ytop, & + prev_Grid_win_width, prev_Grid_win_ratio, & + Grid_file_width, Grid_file_aspect_ratio, & + prev_Grid_file_width, prev_Grid_file_ratio + character (len=strlen), dimension(pgstar_array_length, max_num_pgstar_grid_plots) :: & + Grid_plot_name + real, dimension(pgstar_array_length, max_num_pgstar_grid_plots) :: & + Grid_txt_scale_factor, & + Grid_plot_pad_left, Grid_plot_pad_right, & + Grid_plot_pad_top, Grid_plot_pad_bot + integer, dimension(pgstar_array_length) :: & + Grid_num_cols, Grid_num_rows, Grid_num_plots + integer, dimension(pgstar_array_length, max_num_pgstar_grid_plots) :: & + Grid_plot_row, Grid_plot_rowspan, & + Grid_plot_col, Grid_plot_colspan integer :: annotation1_ci, annotation1_lw, annotation1_cf real :: annotation1_ch @@ -2079,36 +763,15 @@ logical, dimension(max_extra_inlists) :: read_extra_pgstar_inlist character (len=strlen), dimension(max_extra_inlists) :: extra_pgstar_inlist_name + logical, dimension(pgstar_array_length) :: & + Color_Magnitude_use_decorator, & + History_Panels_use_decorator, & + History_Track_use_decorator, & + Profile_Panels_use_decorator + logical :: Abundance_use_decorator, & - Color_Magnitude1_use_decorator, & - Color_Magnitude2_use_decorator, & - Color_Magnitude3_use_decorator, & - Color_Magnitude4_use_decorator, & - Color_Magnitude5_use_decorator, & - Color_Magnitude6_use_decorator, & - Color_Magnitude7_use_decorator, & - Color_Magnitude8_use_decorator, & - Color_Magnitude9_use_decorator, & dPg_dnu_use_decorator, & Dynamo_use_decorator, & - History_Panels1_use_decorator, & - History_Panels2_use_decorator, & - History_Panels3_use_decorator, & - History_Panels4_use_decorator, & - History_Panels5_use_decorator, & - History_Panels6_use_decorator, & - History_Panels7_use_decorator, & - History_Panels8_use_decorator, & - History_Panels9_use_decorator, & - History_Track1_use_decorator, & - History_Track2_use_decorator, & - History_Track3_use_decorator, & - History_Track4_use_decorator, & - History_Track5_use_decorator, & - History_Track6_use_decorator, & - History_Track7_use_decorator, & - History_Track8_use_decorator, & - History_Track9_use_decorator, & HR_use_decorator, & Kipp_use_decorator, & logg_logt_use_decorator, & @@ -2124,15 +787,6 @@ network_use_decorator, & power_use_decorator, & production_use_decorator, & - Profile_Panels1_use_decorator, & - Profile_Panels2_use_decorator, & - Profile_Panels3_use_decorator, & - Profile_Panels4_use_decorator, & - Profile_Panels5_use_decorator, & - Profile_Panels6_use_decorator, & - Profile_Panels7_use_decorator, & - Profile_Panels8_use_decorator, & - Profile_Panels9_use_decorator, & R_L_use_decorator, & R_Teff_use_decorator, & rti_use_decorator, & diff --git a/star_data/public/star_pgstar.f90 b/star_data/public/star_pgstar.f90 index 4db603342..728224348 100644 --- a/star_data/public/star_pgstar.f90 +++ b/star_data/public/star_pgstar.f90 @@ -35,8 +35,8 @@ module star_pgstar abstract interface - subroutine pgstar_plot_interface(id, device_id, ierr) - integer, intent(in) :: id, device_id + subroutine pgstar_plot_interface(id, device_id, array_ix, ierr) + integer, intent(in) :: id, device_id, array_ix integer, intent(out) :: ierr end subroutine pgstar_plot_interface @@ -58,7 +58,7 @@ end subroutine pgstar_decorator_interface end interface type pgstar_win_file_data - integer :: id + integer :: id, array_ix character (len=64) :: name logical :: win_flag, file_flag, do_win, do_file integer :: id_win, id_file, file_interval @@ -93,6 +93,8 @@ end subroutine pgstar_decorator_interface integer, parameter :: max_num_Summary_History_Lines = 16 integer, parameter :: max_num_Other_plots = 16 + integer, parameter :: pgstar_array_length = 9 + integer, parameter :: i_TRho_Profile = 1 integer, parameter :: i_logg_logT = i_TRho_Profile + 1 integer, parameter :: i_logg_Teff = i_logg_logT + 1 @@ -121,66 +123,13 @@ end subroutine pgstar_decorator_interface integer, parameter :: i_Summary_Burn = i_Summary_History + 1 integer, parameter :: i_Summary_Profile = i_Summary_Burn + 1 - integer, parameter :: i_Text_Summary1 = i_Summary_Profile + 1 - integer, parameter :: i_Text_Summary2 = i_Text_Summary1 + 1 - integer, parameter :: i_Text_Summary3 = i_Text_Summary2 + 1 - integer, parameter :: i_Text_Summary4 = i_Text_Summary3 + 1 - integer, parameter :: i_Text_Summary5 = i_Text_Summary4 + 1 - integer, parameter :: i_Text_Summary6 = i_Text_Summary5 + 1 - integer, parameter :: i_Text_Summary7 = i_Text_Summary6 + 1 - integer, parameter :: i_Text_Summary8 = i_Text_Summary7 + 1 - integer, parameter :: i_Text_Summary9 = i_Text_Summary8 + 1 - - integer, parameter :: i_Profile_Panels1 = i_Text_Summary9 + 1 - integer, parameter :: i_Profile_Panels2 = i_Profile_Panels1 + 1 - integer, parameter :: i_Profile_Panels3 = i_Profile_Panels2 + 1 - integer, parameter :: i_Profile_Panels4 = i_Profile_Panels3 + 1 - integer, parameter :: i_Profile_Panels5 = i_Profile_Panels4 + 1 - integer, parameter :: i_Profile_Panels6 = i_Profile_Panels5 + 1 - integer, parameter :: i_Profile_Panels7 = i_Profile_Panels6 + 1 - integer, parameter :: i_Profile_Panels8 = i_Profile_Panels7 + 1 - integer, parameter :: i_Profile_Panels9 = i_Profile_Panels8 + 1 - - integer, parameter :: i_Hist_Track1 = i_Profile_Panels9 + 1 - integer, parameter :: i_Hist_Track2 = i_Hist_Track1 + 1 - integer, parameter :: i_Hist_Track3 = i_Hist_Track2 + 1 - integer, parameter :: i_Hist_Track4 = i_Hist_Track3 + 1 - integer, parameter :: i_Hist_Track5 = i_Hist_Track4 + 1 - integer, parameter :: i_Hist_Track6 = i_Hist_Track5 + 1 - integer, parameter :: i_Hist_Track7 = i_Hist_Track6 + 1 - integer, parameter :: i_Hist_Track8 = i_Hist_Track7 + 1 - integer, parameter :: i_Hist_Track9 = i_Hist_Track8 + 1 - - integer, parameter :: i_Hist_Panels1 = i_Hist_Track9 + 1 - integer, parameter :: i_Hist_Panels2 = i_Hist_Panels1 + 1 - integer, parameter :: i_Hist_Panels3 = i_Hist_Panels2 + 1 - integer, parameter :: i_Hist_Panels4 = i_Hist_Panels3 + 1 - integer, parameter :: i_Hist_Panels5 = i_Hist_Panels4 + 1 - integer, parameter :: i_Hist_Panels6 = i_Hist_Panels5 + 1 - integer, parameter :: i_Hist_Panels7 = i_Hist_Panels6 + 1 - integer, parameter :: i_Hist_Panels8 = i_Hist_Panels7 + 1 - integer, parameter :: i_Hist_Panels9 = i_Hist_Panels8 + 1 - - integer, parameter :: i_Col_Mag1 = i_Hist_Panels9 + 1 - integer, parameter :: i_Col_Mag2 = i_Col_Mag1 + 1 - integer, parameter :: i_Col_Mag3 = i_Col_Mag2 + 1 - integer, parameter :: i_Col_Mag4 = i_Col_Mag3 + 1 - integer, parameter :: i_Col_Mag5 = i_Col_Mag4 + 1 - integer, parameter :: i_Col_Mag6 = i_Col_Mag5 + 1 - integer, parameter :: i_Col_Mag7 = i_Col_Mag6 + 1 - integer, parameter :: i_Col_Mag8 = i_Col_Mag7 + 1 - integer, parameter :: i_Col_Mag9 = i_Col_Mag8 + 1 - - integer, parameter :: i_Grid1 = i_Col_Mag9 + 1 - integer, parameter :: i_Grid2 = i_Grid1 + 1 - integer, parameter :: i_Grid3 = i_Grid2 + 1 - integer, parameter :: i_Grid4 = i_Grid3 + 1 - integer, parameter :: i_Grid5 = i_Grid4 + 1 - integer, parameter :: i_Grid6 = i_Grid5 + 1 - integer, parameter :: i_Grid7 = i_Grid6 + 1 - integer, parameter :: i_Grid8 = i_Grid7 + 1 - integer, parameter :: i_Grid9 = i_Grid8 + 1 - integer, parameter :: i_Other = i_Grid9 + 1 + integer, parameter :: i_Text_Summary = i_Summary_Profile + 1 + integer, parameter :: i_Profile_Panels = i_Text_Summary + pgstar_array_length + integer, parameter :: i_Hist_Track = i_Profile_Panels + pgstar_array_length + integer, parameter :: i_Hist_Panels = i_Hist_Track + pgstar_array_length + integer, parameter :: i_Col_Mag = i_Hist_Panels + pgstar_array_length + integer, parameter :: i_Grid = i_Col_Mag + pgstar_array_length + integer, parameter :: i_Other = i_Grid + pgstar_array_length integer, parameter :: num_pgstar_plots = i_Other + max_num_Other_plots @@ -190,6 +139,7 @@ end subroutine pgstar_decorator_interface integer, parameter :: max_num_profile_mass_points = 10 + ! some Tioga colors for pgstar integer :: clr_Black integer :: clr_Blue