From 93915d6acb91f15de5dd3b5889f59280884fce41 Mon Sep 17 00:00:00 2001 From: Matthias Fabry Date: Wed, 7 Jun 2023 12:13:00 +0200 Subject: [PATCH 01/27] [ci skip] introduce pgstar_array_length --- star_data/private/pgstar_controls.inc | 1628 +++---------------------- star_data/public/star_pgstar.f90 | 2 + 2 files changed, 161 insertions(+), 1469 deletions(-) diff --git a/star_data/private/pgstar_controls.inc b/star_data/private/pgstar_controls.inc index ff4befed7..4b1a896e4 100644 --- a/star_data/private/pgstar_controls.inc +++ b/star_data/private/pgstar_controls.inc @@ -69,156 +69,23 @@ 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 @@ -239,255 +106,34 @@ 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 @@ -507,9 +153,7 @@ 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 @@ -527,9 +171,7 @@ 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 @@ -547,9 +189,7 @@ 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 @@ -571,7 +211,6 @@ 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 @@ -592,9 +231,7 @@ 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 @@ -616,7 +253,6 @@ 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 @@ -638,7 +274,6 @@ 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 @@ -660,7 +295,6 @@ 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 @@ -682,7 +316,6 @@ 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 @@ -704,7 +337,6 @@ 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 @@ -725,9 +357,7 @@ 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 @@ -748,7 +378,6 @@ 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 @@ -774,7 +403,6 @@ 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 @@ -794,7 +422,6 @@ 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, & @@ -818,10 +445,8 @@ 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 @@ -862,273 +487,36 @@ 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, & @@ -1147,8 +535,7 @@ 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 @@ -1164,540 +551,70 @@ 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_max_width,Color_Magnitude_xmargin, & + 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 @@ -1712,8 +629,7 @@ 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, & @@ -1729,8 +645,7 @@ 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 @@ -1749,8 +664,7 @@ 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 @@ -1768,7 +682,7 @@ 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, & @@ -1784,8 +698,7 @@ 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 @@ -1804,9 +717,10 @@ Abundance_file_width, Abundance_file_aspect_ratio, & 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 @@ -1821,8 +735,8 @@ Network_file_width, Network_file_aspect_ratio, & 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, & @@ -1840,222 +754,28 @@ 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(pgtar_array_length) :: Grid_win_flag, Grid_file_flag + integer, dimension(pgtar_array_length) :: Grid_file_interval, Grid_step_max + integer, dimension(pgtar_array_length) :: id_Grid_win, id_Grid_file + character (len=strlen), dimension(pgtar_array_length) :: Grid_file_dir, Grid_file_prefix + real, dimension(pgtar_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(pgtar_array_length) :: Grid_title, & + Grid_plot_name(max_num_pgstar_grid_plots) + 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(pgtar_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 @@ -2079,36 +799,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 +823,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..3e6891999 100644 --- a/star_data/public/star_pgstar.f90 +++ b/star_data/public/star_pgstar.f90 @@ -189,6 +189,8 @@ end subroutine pgstar_decorator_interface integer, parameter :: max_num_cols_Text_Summary = 20 integer, parameter :: max_num_profile_mass_points = 10 + integer, parameter :: pgstar_array_length = 9 + ! some Tioga colors for pgstar integer :: clr_Black From 0964afbcf0d83f57ead19436df2445e2145e52c1 Mon Sep 17 00:00:00 2001 From: Matthias Fabry Date: Fri, 9 Jun 2023 14:29:57 +0200 Subject: [PATCH 02/27] [ci skip] change the individual plotting routines to take array_index --- star/private/pgstar_color_magnitude.f90 | 1201 ++++++------------- star/private/pgstar_full.f90 | 4 +- star/private/pgstar_grid.f90 | 471 +------- star/private/pgstar_hist_track.f90 | 1094 +++++------------ star/private/pgstar_history_panels.f90 | 1299 +++++++-------------- star/private/pgstar_profile_panels.f90 | 1428 ++++++++--------------- star/private/pgstar_summary.f90 | 299 +---- 7 files changed, 1585 insertions(+), 4211 deletions(-) diff --git a/star/private/pgstar_color_magnitude.f90 b/star/private/pgstar_color_magnitude.f90 index 4cb7e3a8f..095c35060 100644 --- a/star/private/pgstar_color_magnitude.f90 +++ b/star/private/pgstar_color_magnitude.f90 @@ -23,913 +23,416 @@ ! ! *********************************************************************** - 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 + 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_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_max_width(array_ix), & + s% pg% Color_Magnitude_num_panels(array_ix), & + s% pg% Color_Magnitude_other_ymin(array_ix), & + s% pg% Color_Magnitude_other_ymax(array_ix), & + s% pg% Color_Magnitude_yaxis_reversed(array_ix), & + s% pg% Color_Magnitude_other_yaxis_log(array_ix), & + s% pg% Color_Magnitude_other_dymin(array_ix), & + s% pg% Color_Magnitude_other_ymargin(array_ix), & + s% pg% Color_Magnitude_other_yaxis1_name(array_ix), & + s% pg% Color_Magnitude_other_yaxis2_name(array_ix), & + s% pg% Color_Magnitude_ymin(array_ix), & + s% pg% Color_Magnitude_ymax(array_ix), & + s% pg% Color_Magnitude_xaxis_reversed(array_ix), & + s% pg% Color_Magnitude_yaxis_reversed(array_ix), & + s% pg% Color_Magnitude_xaxis_log(array_ix), & + s% pg% Color_Magnitude_yaxis_log(array_ix), & + s% pg% Color_Magnitude_dymin(array_ix), & + s% pg% Color_Magnitude_ymargin(array_ix), & + s% pg% Color_Magnitude_yaxis1_name(array_ix), & + s% pg% Color_Magnitude_yaxis2_name(array_ix), & + s% pg% Color_Magnitude_use_decorator(array_ix), & + s% pg% Color_Magnitude_pgstar_decorator(array_ix), & + 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_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, 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, 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, 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) :: 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. + 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_full.f90 b/star/private/pgstar_full.f90 index a38c64dd3..ea16fa71d 100644 --- a/star/private/pgstar_full.f90 +++ b/star/private/pgstar_full.f90 @@ -144,9 +144,7 @@ subroutine set_win_file_data(s, ierr) 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_grid, only : grid_plot use pgstar_summary, only : & Text_Summary1_Plot, Text_Summary2_Plot, Text_Summary3_Plot, & Text_Summary4_Plot, Text_Summary5_Plot, Text_Summary6_Plot, & diff --git a/star/private/pgstar_grid.f90 b/star/private/pgstar_grid.f90 index 79ce7a49c..5ea55c418 100644 --- a/star/private/pgstar_grid.f90 +++ b/star/private/pgstar_grid.f90 @@ -35,8 +35,8 @@ 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 @@ -47,469 +47,49 @@ subroutine grid1_plot(id, device_id, ierr) 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, & + 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_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 + end subroutine grid_plot - - subroutine do_grid2_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% 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, & + call do_one_Grid_plot(s, id, device_id, array_ix, & 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, & + 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_grid3_plot + end subroutine do_grid_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 - - call pgslct(device_id) - 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, & - 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 - - - subroutine do_grid8_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% 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, & - 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, & - ierr) - end subroutine do_grid9_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, & @@ -1021,8 +601,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 a43524d5e..993addabe 100644 --- a/star/private/pgstar_hist_track.f90 +++ b/star/private/pgstar_hist_track.f90 @@ -23,824 +23,320 @@ ! ! *********************************************************************** - 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 + call do_Hist_Track(s, id, device_id, array_ix, & + 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), & + s% pg% History_Track_pgstar_decorator(array_ix), & + 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, array_ix, & + 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, array_ix + 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) - contains + call pgunsa + call show_pgstar_decorator(s%id, use_decorator, pgstar_decorator, 0, ierr) - 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 :: 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' + 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 9b403c4b3..199139fb8 100644 --- a/star/private/pgstar_history_panels.f90 +++ b/star/private/pgstar_history_panels.f90 @@ -23,956 +23,459 @@ ! ! *********************************************************************** - 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 + 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_xaxis_name(array_ix), & + s% pg% History_Panels_automatic_star_age_units(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_max_width(array_ix), & + s% pg% History_Panels_num_panels(array_ix), & + s% pg% History_Panels_other_ymin(array_ix), & + s% pg% History_Panels_other_ymax(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_other_dymin(array_ix), & + s% pg% History_Panels_points_name(array_ix), & + s% pg% History_Panels_other_ymargin(array_ix), & + s% pg% History_Panels_other_yaxis_name(array_ix), & + s% pg% History_Panels_ymin(array_ix), & + s% pg% History_Panels_ymax(array_ix), & + s% pg% History_Panels_xaxis_reversed(array_ix), & + s% pg% History_Panels_yaxis_reversed(array_ix), & + s% pg% History_Panels_xaxis_log(array_ix), & + s% pg% History_Panels_yaxis_log(array_ix), & + s% pg% History_Panels_dymin(array_ix), & + s% pg% History_Panels_ymargin(array_ix), & + s% pg% History_Panels_yaxis_name(array_ix), & + s% pg% History_Panels_use_decorator(array_ix), & + s% pg% History_Panels_pgstar_decorator(array_ix), & + 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_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 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 rates_def, only: rates_reaction_id_max - 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, 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' + 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_profile_panels.f90 b/star/private/pgstar_profile_panels.f90 index 05c05eb44..6f1b2282a 100644 --- a/star/private/pgstar_profile_panels.f90 +++ b/star/private/pgstar_profile_panels.f90 @@ -23,996 +23,562 @@ ! ! *********************************************************************** - 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, 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:',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 + 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_xaxis_reversed(array_ix), & + s% pg% Profile_Panels_yaxis_reversed(array_ix), & + s% pg% Profile_Panels_other_yaxis_reversed(array_ix), & + s% pg% Profile_Panels_yaxis_log(array_ix), & + s% pg% Profile_Panels_other_yaxis_log(array_ix), & + s% pg% Profile_Panels_same_yaxis_range(array_ix), & + s% pg% Profile_Panels_xaxis_name(array_ix), & + s% pg% Profile_Panels_yaxis_name(array_ix), & + s% pg% Profile_Panels_other_yaxis_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_show_mix_regions_on_xaxis(array_ix), & + s% pg% Profile_Panels_ymin(array_ix), s% pg% Profile_Panels_other_ymin(array_ix), & + s% pg% Profile_Panels_ymax(array_ix), s% pg% Profile_Panels_other_ymax(array_ix), & + s% pg% Profile_Panels_ycenter(array_ix), s% pg% Profile_Panels_other_ycenter(array_ix), & + s% pg% Profile_Panels_ymargin(array_ix), s% pg% Profile_Panels_other_ymargin(array_ix), & + s% pg% Profile_Panels_dymin(array_ix), s% pg% Profile_Panels_other_dymin(array_ix), & + s% pg% Profile_Panels_show_grid(array_ix), & + s% pg% Profile_Panels_num_panels(array_ix), & + s% pg% Profile_Panels_use_decorator(array_ix), & + s% pg% Profile_Panels_pgstar_decorator(array_ix), & + 1, & + 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_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, & + 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_summary.f90 b/star/private/pgstar_summary.f90 index 4475bf128..5143141c8 100644 --- a/star/private/pgstar_summary.f90 +++ b/star/private/pgstar_summary.f90 @@ -36,313 +36,42 @@ 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) - if (ierr /= 0) return - call pgebuf() - end subroutine Text_Summary6_plot - - - subroutine do_Text_Summary6_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_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) + 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_Summary9_plot + end subroutine Text_Summary_plot - subroutine do_Text_Summary9_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_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, & + subroutine Summary_plot(s, device_id, array_ix, & winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, dxval, & Text_Summary_num_rows, Text_Summary_num_cols, & Text_Summary_name, ierr) @@ -352,7 +81,7 @@ subroutine Summary_plot(s, device_id, & use net_def type (star_info), pointer :: s - integer, intent(in) :: device_id + integer, intent(in) :: device_id, array_ix real, intent(in) :: winxmin, winxmax, winymin, winymax, txt_scale, dxval logical, intent(in) :: subplot character (len=*), intent(in) :: title From e80341fb11103d09e538cc811fd9c510141a9a51 Mon Sep 17 00:00:00 2001 From: Matthias Fabry Date: Tue, 13 Jun 2023 14:09:51 +0200 Subject: [PATCH 03/27] [ci skip] change plot_interface to allow for extra parameter --- star_data/private/pgstar_controls.inc | 62 ++++++--------------------- star_data/public/star_pgstar.f90 | 3 +- 2 files changed, 15 insertions(+), 50 deletions(-) diff --git a/star_data/private/pgstar_controls.inc b/star_data/private/pgstar_controls.inc index 4b1a896e4..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 @@ -84,7 +82,6 @@ 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 :: show_dPg_dnu_annotation1, & show_dPg_dnu_annotation2, & @@ -105,7 +102,6 @@ dPg_dnu_file_width, dPg_dnu_file_aspect_ratio, & prev_dPg_dnu_file_width, prev_dPg_dnu_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 @@ -132,7 +128,6 @@ 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 :: show_HR_annotation1, show_HR_annotation2, show_HR_annotation3 logical :: show_HR_target_box, show_HR_classical_instability_strip, & @@ -152,7 +147,6 @@ HR_file_width, HR_file_aspect_ratio, & prev_HR_file_width, prev_HR_file_ratio - logical :: TRho_win_flag, TRho_file_flag logical :: show_TRho_annotation1, show_TRho_annotation2, show_TRho_annotation3, & show_TRho_degeneracy_line @@ -170,7 +164,6 @@ TRho_file_width, TRho_file_aspect_ratio, & prev_TRho_file_width, prev_TRho_file_ratio - logical :: TmaxRho_win_flag, TmaxRho_file_flag logical :: show_TmaxRho_annotation1, show_TmaxRho_annotation2, show_TmaxRho_annotation3, & show_TmaxRho_degeneracy_line @@ -188,7 +181,6 @@ 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 :: show_logL_R_target_box, show_logL_photosphere_r logical :: show_logL_R_annotation1, show_logL_R_annotation2, show_logL_R_annotation3 @@ -209,7 +201,6 @@ 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 :: show_logL_Teff_target_box logical :: show_logL_Teff_annotation1, show_logL_Teff_annotation2, show_logL_Teff_annotation3 @@ -230,7 +221,6 @@ 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 :: show_logL_v_target_box, show_logL_photosphere_v logical :: show_logL_v_annotation1, show_logL_v_annotation2, show_logL_v_annotation3 @@ -251,7 +241,6 @@ 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 :: show_L_Teff_target_box logical :: show_L_Teff_annotation1, show_L_Teff_annotation2, show_L_Teff_annotation3 @@ -272,7 +261,6 @@ 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 :: show_L_v_target_box logical :: show_L_v_annotation1, show_L_v_annotation2, show_L_v_annotation3 @@ -293,7 +281,6 @@ 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 :: show_L_R_target_box logical :: show_L_R_annotation1, show_L_R_annotation2, show_L_R_annotation3 @@ -314,7 +301,6 @@ 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 :: show_R_Teff_target_box logical :: show_R_Teff_annotation1, show_R_Teff_annotation2, show_R_Teff_annotation3 @@ -335,7 +321,6 @@ 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 :: show_R_L_target_box logical :: show_R_L_annotation1, show_R_L_annotation2, show_R_L_annotation3 @@ -356,7 +341,6 @@ 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 :: show_logg_Teff_target_box logical :: show_logg_Teff_annotation1, show_logg_Teff_annotation2, show_logg_Teff_annotation3 @@ -377,7 +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 @@ -399,7 +382,6 @@ 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 @@ -418,7 +400,6 @@ 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 @@ -444,7 +425,6 @@ 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 integer :: id_TRho_Profile_win, id_TRho_Profile_file, TRho_Profile_file_interval @@ -470,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) @@ -515,7 +494,6 @@ Profile_Panels_dymin, Profile_Panels_other_dymin logical, dimension(pgstar_array_length) :: Profile_Panels_show_grid - logical :: Dynamo_win_flag, Dynamo_file_flag integer :: id_Dynamo_win, id_Dynamo_file, Dynamo_file_interval character (len=strlen) :: Dynamo_file_dir, Dynamo_file_prefix @@ -533,7 +511,6 @@ Dynamo_file_width, Dynamo_file_aspect_ratio, & prev_Dynamo_file_width, prev_Dynamo_file_ratio - logical :: Mixing_win_flag, Mixing_file_flag logical :: Mixing_xaxis_reversed, Mixing_show_rotation_details integer :: id_Mixing_win, id_Mixing_file, Mixing_file_interval @@ -550,7 +527,6 @@ Mixing_file_width, Mixing_file_aspect_ratio, & prev_Mixing_file_width, prev_Mixing_file_ratio - 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 @@ -583,17 +559,15 @@ History_Panel_points_ci, History_Panel_points_lw real :: History_Panel_points_ch - 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,& + 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_max_width,Color_Magnitude_xmargin, & - Color_Magnitude_win_width, Color_Magnitude_win_aspect_ratio, & + 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, & @@ -601,7 +575,7 @@ 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_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, & @@ -612,7 +586,6 @@ Color_Magnitude_ymargin, Color_Magnitude_other_ymargin, & Color_Magnitude_dymin, Color_Magnitude_other_dymin - logical :: Mode_Prop_win_flag, Mode_Prop_file_flag logical :: Mode_Prop_xaxis_reversed integer :: id_Mode_Prop_win, id_Mode_Prop_file, Mode_Prop_file_interval @@ -627,7 +600,6 @@ 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 :: Summary_Burn_xaxis_reversed integer :: id_Summary_Burn_win, id_Summary_Burn_file, & @@ -643,7 +615,6 @@ 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 :: Summary_Profile_xaxis_reversed, & Summary_Profile_scaled_value(max_num_Summary_Profile_Lines) @@ -662,7 +633,6 @@ 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 :: Summary_History_scaled_value(max_num_Summary_History_Lines) integer :: id_Summary_History_win, id_Summary_History_file, & @@ -680,7 +650,6 @@ 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 :: Power_xaxis_reversed integer :: id_Power_win, id_Power_file, Power_file_interval, & @@ -696,7 +665,6 @@ Power_file_width, Power_file_aspect_ratio, & prev_Power_file_width, prev_Power_file_ratio - logical :: Abundance_win_flag, Abundance_file_flag logical :: Abundance_xaxis_reversed, Abundance_show_photosphere_location integer :: id_Abundance_win, id_Abundance_file, Abundance_file_interval @@ -717,7 +685,6 @@ Abundance_file_width, Abundance_file_aspect_ratio, & prev_Abundance_file_width, prev_Abundance_file_ratio - logical :: Network_win_flag, Network_file_flag logical :: Network_show_colorbar, Network_show_element_names, & Network_show_mass_fraction @@ -735,7 +702,6 @@ Network_file_width, Network_file_aspect_ratio, & prev_Network_file_width, prev_Network_file_ratio - logical :: Production_win_flag, Production_file_flag logical :: Production_show_element_names integer :: id_Production_win, id_Production_file, Production_file_interval @@ -753,31 +719,29 @@ Production_file_width, Production_file_aspect_ratio, & prev_Production_file_width, prev_Production_file_ratio - - logical, dimension(pgtar_array_length) :: Grid_win_flag, Grid_file_flag - integer, dimension(pgtar_array_length) :: Grid_file_interval, Grid_step_max - integer, dimension(pgtar_array_length) :: id_Grid_win, id_Grid_file - character (len=strlen), dimension(pgtar_array_length) :: Grid_file_dir, Grid_file_prefix - real, dimension(pgtar_array_length) :: & + 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(pgtar_array_length) :: Grid_title, & - Grid_plot_name(max_num_pgstar_grid_plots) + 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(pgtar_array_length) :: & + 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 character (len=strlen) :: annotation1_text diff --git a/star_data/public/star_pgstar.f90 b/star_data/public/star_pgstar.f90 index 3e6891999..f4a2341ee 100644 --- a/star_data/public/star_pgstar.f90 +++ b/star_data/public/star_pgstar.f90 @@ -35,8 +35,9 @@ module star_pgstar abstract interface - subroutine pgstar_plot_interface(id, device_id, ierr) + subroutine pgstar_plot_interface(id, device_id, ierr, array_ix) integer, intent(in) :: id, device_id + integer, intent(in), optional :: array_ix integer, intent(out) :: ierr end subroutine pgstar_plot_interface From cfaee5b0a40dbc0745b0f524fe93db3ba028b6d6 Mon Sep 17 00:00:00 2001 From: Matthias Fabry Date: Tue, 13 Jun 2023 14:11:37 +0200 Subject: [PATCH 04/27] [ci skip] implement new interfaces in named plots --- star/other/sample_pgstar_plot.f90 | 3 ++- star/private/pgstar_abundance.f90 | 4 ++-- star/private/pgstar_dpg_dnu.f90 | 3 ++- star/private/pgstar_dynamo.f90 | 4 ++-- star/private/pgstar_hr.f90 | 3 ++- star/private/pgstar_kipp.f90 | 3 ++- star/private/pgstar_l_r.f90 | 3 ++- star/private/pgstar_l_teff.f90 | 3 ++- star/private/pgstar_l_v.f90 | 3 ++- star/private/pgstar_logg_logt.f90 | 3 ++- star/private/pgstar_logg_teff.f90 | 3 ++- star/private/pgstar_logl_r.f90 | 3 ++- star/private/pgstar_logl_teff.f90 | 3 ++- star/private/pgstar_logl_v.f90 | 3 ++- star/private/pgstar_mixing_ds.f90 | 9 +++------ star/private/pgstar_mode_prop.f90 | 4 ++-- star/private/pgstar_network.f90 | 4 ++-- star/private/pgstar_power.f90 | 4 ++-- star/private/pgstar_production.f90 | 4 ++-- star/private/pgstar_r_l.f90 | 3 ++- star/private/pgstar_r_teff.f90 | 3 ++- star/private/pgstar_rti.f90 | 3 ++- star/private/pgstar_summary.f90 | 19 +++++++++++++------ star/private/pgstar_summary_burn.f90 | 4 ++-- star/private/pgstar_summary_history.f90 | 4 ++-- star/private/pgstar_summary_profile.f90 | 4 ++-- star/private/pgstar_support.f90 | 6 +++--- star/private/pgstar_tmaxrho.f90 | 3 ++- star/private/pgstar_trho.f90 | 3 ++- star/private/pgstar_trho_profile.f90 | 3 ++- 30 files changed, 73 insertions(+), 51 deletions(-) diff --git a/star/other/sample_pgstar_plot.f90 b/star/other/sample_pgstar_plot.f90 index 2ad2ea2c3..8b66eb714 100644 --- a/star/other/sample_pgstar_plot.f90 +++ b/star/other/sample_pgstar_plot.f90 @@ -174,8 +174,9 @@ subroutine read_my_pgstar_namelist(filename, ierr) end subroutine read_my_pgstar_namelist - subroutine my_plot(id, device_id, ierr) + subroutine my_plot(id, device_id, ierr, array_ix) integer, intent(in) :: id, device_id + integer, intent(in), optional :: array_ix integer, intent(out) :: ierr real :: winxmin, winxmax, winymin, winymax, label_scale diff --git a/star/private/pgstar_abundance.f90 b/star/private/pgstar_abundance.f90 index b4217600b..c6a5c7d45 100644 --- a/star/private/pgstar_abundance.f90 +++ b/star/private/pgstar_abundance.f90 @@ -36,9 +36,9 @@ module pgstar_abundance contains - subroutine abundance_plot(id, device_id, ierr) - implicit none + subroutine abundance_plot(id, device_id, ierr, array_ix) integer, intent(in) :: id, device_id + integer, intent(in), optional :: array_ix integer, intent(out) :: ierr type (star_info), pointer :: s diff --git a/star/private/pgstar_dpg_dnu.f90 b/star/private/pgstar_dpg_dnu.f90 index 3f7879187..c9453b1fe 100644 --- a/star/private/pgstar_dpg_dnu.f90 +++ b/star/private/pgstar_dpg_dnu.f90 @@ -36,8 +36,9 @@ module pgstar_dPg_dnu contains - subroutine dPg_dnu_Plot(id, device_id, ierr) + subroutine dPg_dnu_Plot(id, device_id, ierr, array_ix) integer, intent(in) :: id, device_id + integer, intent(in), optional :: 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 1c0d753a0..ad81d4686 100644 --- a/star/private/pgstar_dynamo.f90 +++ b/star/private/pgstar_dynamo.f90 @@ -36,9 +36,9 @@ module pgstar_dynamo contains - subroutine Dynamo_plot(id, device_id, ierr) - implicit none + subroutine Dynamo_plot(id, device_id, ierr, array_ix) integer, intent(in) :: id, device_id + integer, intent(in), optional :: array_ix integer, intent(out) :: ierr type (star_info), pointer :: s diff --git a/star/private/pgstar_hr.f90 b/star/private/pgstar_hr.f90 index 2d5286bc5..0a265b353 100644 --- a/star/private/pgstar_hr.f90 +++ b/star/private/pgstar_hr.f90 @@ -36,8 +36,9 @@ module pgstar_HR contains - subroutine HR_Plot(id, device_id, ierr) + subroutine HR_Plot(id, device_id, ierr, array_ix) integer, intent(in) :: id, device_id + integer, intent(in), optional :: 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 22093d102..330055272 100644 --- a/star/private/pgstar_kipp.f90 +++ b/star/private/pgstar_kipp.f90 @@ -36,8 +36,9 @@ module pgstar_kipp contains - subroutine Kipp_Plot(id, device_id, ierr) + subroutine Kipp_Plot(id, device_id, ierr, array_ix) integer, intent(in) :: id, device_id + integer, intent(in), optional :: 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..16442811c 100644 --- a/star/private/pgstar_l_r.f90 +++ b/star/private/pgstar_l_r.f90 @@ -36,8 +36,9 @@ module pgstar_l_r contains - subroutine L_r_Plot(id, device_id, ierr) + subroutine L_r_Plot(id, device_id, ierr, array_ix) integer, intent(in) :: id, device_id + integer, intent(in), optional :: 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..b2fbbd017 100644 --- a/star/private/pgstar_l_teff.f90 +++ b/star/private/pgstar_l_teff.f90 @@ -36,8 +36,9 @@ module pgstar_l_teff contains - subroutine L_Teff_Plot(id, device_id, ierr) + subroutine L_Teff_Plot(id, device_id, ierr, array_ix) integer, intent(in) :: id, device_id + integer, intent(in), optional :: 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..8db7931c8 100644 --- a/star/private/pgstar_l_v.f90 +++ b/star/private/pgstar_l_v.f90 @@ -36,8 +36,9 @@ module pgstar_l_v contains - subroutine L_v_Plot(id, device_id, ierr) + subroutine L_v_Plot(id, device_id, ierr, array_ix) integer, intent(in) :: id, device_id + integer, intent(in), optional :: 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..1c746cbc4 100644 --- a/star/private/pgstar_logg_logt.f90 +++ b/star/private/pgstar_logg_logt.f90 @@ -36,8 +36,9 @@ module pgstar_logg_logT contains - subroutine logg_logT_Plot(id, device_id, ierr) + subroutine logg_logT_Plot(id, device_id, ierr, array_ix) integer, intent(in) :: id, device_id + integer, intent(in), optional :: 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..a1adccd88 100644 --- a/star/private/pgstar_logg_teff.f90 +++ b/star/private/pgstar_logg_teff.f90 @@ -36,8 +36,9 @@ module pgstar_logg_Teff contains - subroutine logg_Teff_Plot(id, device_id, ierr) + subroutine logg_Teff_Plot(id, device_id, ierr, array_ix) integer, intent(in) :: id, device_id + integer, intent(in), optional :: 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..c5e30ce63 100644 --- a/star/private/pgstar_logl_r.f90 +++ b/star/private/pgstar_logl_r.f90 @@ -36,8 +36,9 @@ module pgstar_logl_r contains - subroutine logL_R_Plot(id, device_id, ierr) + subroutine logL_R_Plot(id, device_id, ierr, array_ix) integer, intent(in) :: id, device_id + integer, intent(in), optional :: 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..b9fd06291 100644 --- a/star/private/pgstar_logl_teff.f90 +++ b/star/private/pgstar_logl_teff.f90 @@ -36,8 +36,9 @@ module pgstar_logL_Teff contains - subroutine logL_Teff_Plot(id, device_id, ierr) + subroutine logL_Teff_Plot(id, device_id, ierr, array_ix) integer, intent(in) :: id, device_id + integer, intent(in), optional :: 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..b1db6ac69 100644 --- a/star/private/pgstar_logl_v.f90 +++ b/star/private/pgstar_logl_v.f90 @@ -36,8 +36,9 @@ module pgstar_logl_v contains - subroutine logL_v_Plot(id, device_id, ierr) + subroutine logL_v_Plot(id, device_id, ierr, array_ix) integer, intent(in) :: id, device_id + integer, intent(in), optional :: 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 d784d16d8..87bc19540 100644 --- a/star/private/pgstar_mixing_ds.f90 +++ b/star/private/pgstar_mixing_ds.f90 @@ -37,9 +37,9 @@ module pgstar_mixing_Ds contains - subroutine Mixing_plot(id, device_id, ierr) - implicit none + subroutine Mixing_plot(id, device_id, ierr, array_ix) integer, intent(in) :: id, device_id + integer, intent(in), optional :: array_ix integer, intent(out) :: ierr type (star_info), pointer :: s @@ -93,9 +93,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 +111,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 +131,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 7add83394..aa30ef987 100644 --- a/star/private/pgstar_mode_prop.f90 +++ b/star/private/pgstar_mode_prop.f90 @@ -36,9 +36,9 @@ module pgstar_mode_prop contains - subroutine mode_propagation_plot(id, device_id, ierr) - implicit none + subroutine mode_propagation_plot(id, device_id, ierr, array_ix) integer, intent(in) :: id, device_id + integer, intent(in), optional :: 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 e6d9fefbe..9179ce82f 100644 --- a/star/private/pgstar_network.f90 +++ b/star/private/pgstar_network.f90 @@ -35,9 +35,9 @@ module pgstar_network contains - subroutine network_plot(id, device_id, ierr) - implicit none + subroutine network_plot(id, device_id, ierr, array_ix) integer, intent(in) :: id, device_id + integer, intent(in), optional :: 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 50e61364a..59d3e22e4 100644 --- a/star/private/pgstar_power.f90 +++ b/star/private/pgstar_power.f90 @@ -36,9 +36,9 @@ module pgstar_power contains - subroutine power_plot(id, device_id, ierr) - implicit none + subroutine power_plot(id, device_id, ierr, array_ix) integer, intent(in) :: id, device_id + integer, intent(in), optional :: 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 605345fd5..528b7b6e8 100644 --- a/star/private/pgstar_production.f90 +++ b/star/private/pgstar_production.f90 @@ -36,9 +36,9 @@ module pgstar_production contains - subroutine production_plot(id, device_id, ierr) - implicit none + subroutine production_plot(id, device_id, ierr, array_ix) integer, intent(in) :: id, device_id + integer, intent(in), optional :: array_ix integer, intent(out) :: ierr type (star_info), pointer :: s diff --git a/star/private/pgstar_r_l.f90 b/star/private/pgstar_r_l.f90 index c136d2262..65e26eaef 100644 --- a/star/private/pgstar_r_l.f90 +++ b/star/private/pgstar_r_l.f90 @@ -36,8 +36,9 @@ module pgstar_r_l contains - subroutine R_L_Plot(id, device_id, ierr) + subroutine R_L_Plot(id, device_id, ierr, array_ix) integer, intent(in) :: id, device_id + integer, intent(in), optional :: 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..bd08212dd 100644 --- a/star/private/pgstar_r_teff.f90 +++ b/star/private/pgstar_r_teff.f90 @@ -36,8 +36,9 @@ module pgstar_r_teff contains - subroutine R_Teff_Plot(id, device_id, ierr) + subroutine R_Teff_Plot(id, device_id, ierr, array_ix) integer, intent(in) :: id, device_id + integer, intent(in), optional :: 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..884f7f652 100644 --- a/star/private/pgstar_rti.f90 +++ b/star/private/pgstar_rti.f90 @@ -36,8 +36,9 @@ module pgstar_rti contains - subroutine rti_Plot(id, device_id, ierr) + subroutine rti_Plot(id, device_id, ierr, array_ix) integer, intent(in) :: id, device_id + integer, intent(in), optional :: 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 5143141c8..2eb187c12 100644 --- a/star/private/pgstar_summary.f90 +++ b/star/private/pgstar_summary.f90 @@ -36,11 +36,17 @@ module pgstar_summary contains - subroutine Text_Summary_plot(id, device_id, array_ix, ierr) - integer, intent(in) :: id, device_id, array_ix + subroutine Text_Summary_plot(id, device_id, ierr, array_ix) + integer, intent(in) :: id, device_id + integer, intent(in), optional :: array_ix integer, intent(out) :: ierr type (star_info), pointer :: s + if (.not. present(array_ix)) then + ierr = -1 + return + end if + ierr = 0 call get_star_ptr(id, s, ierr) if (ierr /= 0) return @@ -64,14 +70,15 @@ subroutine do_Text_Summary_plot(s, id, device_id, array_ix, & 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_Summary_num_rows(array_ix), s% pg% Text_Summary_num_cols(array_ix), & - s% pg% Text_Summary_name(array_ix), ierr) + s% pg% Text_Summary_name(array_ix, :, :), ierr) end subroutine do_Text_Summary_plot - subroutine Summary_plot(s, device_id, array_ix, & + subroutine Summary_plot(s, device_id, & winxmin, winxmax, winymin, winymax, subplot, title, txt_scale, dxval, & Text_Summary_num_rows, Text_Summary_num_cols, & Text_Summary_name, ierr) @@ -81,12 +88,12 @@ subroutine Summary_plot(s, device_id, array_ix, & use net_def type (star_info), pointer :: s - integer, intent(in) :: device_id, array_ix + integer, intent(in) :: device_id real, intent(in) :: winxmin, winxmax, winymin, winymax, txt_scale, dxval 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 4bec78cdb..4be9106bc 100644 --- a/star/private/pgstar_summary_burn.f90 +++ b/star/private/pgstar_summary_burn.f90 @@ -36,9 +36,9 @@ module pgstar_summary_burn contains - subroutine summary_burn_plot(id, device_id, ierr) - implicit none + subroutine summary_burn_plot(id, device_id, ierr, array_ix) integer, intent(in) :: id, device_id + integer, intent(in), optional :: 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 4aee13f0a..b35c17b83 100644 --- a/star/private/pgstar_summary_history.f90 +++ b/star/private/pgstar_summary_history.f90 @@ -36,9 +36,9 @@ module pgstar_summary_history contains - subroutine summary_history_plot(id, device_id, ierr) - implicit none + subroutine summary_history_plot(id, device_id, ierr, array_ix) integer, intent(in) :: id, device_id + integer, intent(in), optional :: 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 9329a47a0..e42b60e28 100644 --- a/star/private/pgstar_summary_profile.f90 +++ b/star/private/pgstar_summary_profile.f90 @@ -36,9 +36,9 @@ module pgstar_summary_profile contains - subroutine summary_profile_plot(id, device_id, ierr) - implicit none + subroutine summary_profile_plot(id, device_id, ierr, array_ix) integer, intent(in) :: id, device_id + integer, intent(in), optional :: 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 8fba02f7b..af26b7c92 100644 --- a/star/private/pgstar_support.f90 +++ b/star/private/pgstar_support.f90 @@ -2079,13 +2079,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..240f08279 100644 --- a/star/private/pgstar_tmaxrho.f90 +++ b/star/private/pgstar_tmaxrho.f90 @@ -36,8 +36,9 @@ module pgstar_tmaxrho contains - subroutine TmaxRho_Plot(id, device_id, ierr) + subroutine TmaxRho_Plot(id, device_id, ierr, array_ix) integer, intent(in) :: id, device_id + integer, intent(in), optional :: 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..e45870deb 100644 --- a/star/private/pgstar_trho.f90 +++ b/star/private/pgstar_trho.f90 @@ -36,8 +36,9 @@ module pgstar_trho contains - subroutine TRho_Plot(id, device_id, ierr) + subroutine TRho_Plot(id, device_id, ierr, array_ix) integer, intent(in) :: id, device_id + integer, intent(in), optional :: 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 55c97a9f5..83b841511 100644 --- a/star/private/pgstar_trho_profile.f90 +++ b/star/private/pgstar_trho_profile.f90 @@ -36,8 +36,9 @@ module pgstar_trho_profile contains - subroutine TRho_Profile_plot(id, device_id, ierr) + subroutine TRho_Profile_plot(id, device_id, ierr, array_ix) integer, intent(in) :: id, device_id + integer, intent(in), optional :: array_ix integer, intent(out) :: ierr type (star_info), pointer :: s From b6563277c855d85c3230386b6b8d77c7e3eaf825 Mon Sep 17 00:00:00 2001 From: Matthias Fabry Date: Tue, 13 Jun 2023 14:12:20 +0200 Subject: [PATCH 05/27] [ci skip] clean up defaults and io --- star/defaults/pgstar.defaults | 5604 ++++++------------------------ star/private/pgstar_ctrls_io.f90 | 4955 +++----------------------- 2 files changed, 1456 insertions(+), 9103 deletions(-) diff --git a/star/defaults/pgstar.defaults b/star/defaults/pgstar.defaults index 7e9ca777f..7711b896a 100644 --- a/star/defaults/pgstar.defaults +++ b/star/defaults/pgstar.defaults @@ -428,13 +428,13 @@ ! :: - 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 ! set defaults @@ -2666,5030 +2666,1454 @@ ! 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. ! :: - 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_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_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_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. ! :: - 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. - - ! :: - - 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. - - ! setup default plot + 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_' - ! :: + ! 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 +! ============== - ! :: - 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. - - ! :: - - 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 ! :: - 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. - ! :: + ! 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 ! :: - 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 - - - ! Profile_Panels8 - ! --------------- + 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_win_flag = .false. + Color_magnitude_file_prefix(1) = 'Color_magnitude1_' - ! :: + ! 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(:) = '' ! :: - 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(:,:,:) = '' - ! :: - - 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' + ! file output ! :: - 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. - - ! :: - - Profile_Panels9_same_yaxis_range(:) = .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) + ! --------------- - Profile_Panels9_num_panels = 0 + 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_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,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_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,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_show_grid = .false. - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` + 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_use_decorator = .false. - - ! file output + 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_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_file_prefix(1) = 'Text_Summary1_' -! History Tracks -! ============== + ! Text_Summary2 + ! ------------- - ! History_Track1 - ! -------------- + Text_Summary_file_prefix(2) = 'Text_Summary2_' - ! :: + ! Text_Summary3 + ! ------------- - History_Track1_win_flag = .false. - History_Track1_win_width = 6 - History_Track1_win_aspect_ratio = 0.75 + Text_Summary_file_prefix(3) = 'Text_Summary3_' - ! :: + ! Text_Summary4 + ! ------------- - 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(4) = 'Text_Summary4_' - ! set default + ! Text_Summary5 + ! ------------- - ! :: + Text_Summary_file_prefix(5) = 'Text_Summary5_' - 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_Summary6 + ! ------------- - ! :: + Text_Summary_file_prefix(6) = 'Text_Summary6_' - History_Track1_xmin = -101d0 - History_Track1_xmax = -101d0 - History_Track1_ymin = -101d0 - History_Track1_ymax = -101d0 + ! Text_Summary7 + ! ------------- - ! :: + Text_Summary_file_prefix(7) = 'Text_Summary7_' - History_Track1_xmargin = 0.1 - History_Track1_ymargin = 0.1 - History_Track1_dxmin = -1 - History_Track1_dymin = -1 + ! Text_Summary8 + ! ------------- - ! :: + Text_Summary_file_prefix(8) = 'Text_Summary8_' - History_Track1_step_min = -1 - History_Track1_step_max = -1 + ! Text_Summary9 + ! ------------- - ! :: + Text_Summary_file_prefix(9) = 'Text_Summary9_' - 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 +! ==== - show_History_Track1_annotation1 = .false. - show_History_Track1_annotation2 = .false. - show_History_Track1_annotation3 = .false. + ! Grid(1..9) + ! ---------- ! :: - History_Track1_fname = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` + Grid_win_flag(:) = .false. ! :: - History_Track1_use_decorator = .false. - - ! file output + Grid_win_width(:) = 6 + Grid_win_aspect_ratio(:) = 1 ! :: - 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 - ! -------------- + Grid_xleft(:) = 0.12 + Grid_xright(:) = 0.95 + Grid_ybot(:) = 0.08 + Grid_ytop(:) = 0.92 + Grid_title(:) = '' ! :: - History_Track2_win_flag = .false. - History_Track2_win_width = 6 - History_Track2_win_aspect_ratio = 0.75 + 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_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_num_cols(:) = 1 + Grid_num_rows(:) = 1 + Grid_num_plots(:) = 0 - 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. + ! file output ! :: - History_Track2_xmin = -101d0 - History_Track2_xmax = -101d0 - History_Track2_ymin = -101d0 - History_Track2_ymax = -101d0 + 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_xmargin = 0.1 - History_Track2_ymargin = 0.1 - History_Track2_dxmin = -1 - History_Track2_dymin = -1 + Grid_num_cols(1) = 2 + Grid_num_rows(1) = 8 + Grid_num_plots(1) = 4 ! :: - History_Track2_step_min = -1 - History_Track2_step_max = -1 + 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 ! :: - 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(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 ! :: - show_History_Track2_annotation1 = .false. - show_History_Track2_annotation2 = .false. - show_History_Track2_annotation3 = .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_fname = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` + Grid_plot_name(1, 4) = 'Text_Summary1' + 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' - History_Track2_use_decorator = .false. + ! Grid(2) + ! ------- - ! file output + Grid_win_width(2) = 9 + Grid_win_aspect_ratio(2) = 0.6 ! :: - 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 - ! -------------- + Grid_num_cols(2) = 4 + Grid_num_rows(2) = 8 + Grid_num_plots(2) = 5 ! :: - History_Track3_win_flag = .false. - History_Track3_win_width = 6 - History_Track3_win_aspect_ratio = 0.75 + 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 ! :: - 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(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_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(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_Track3_xmin = -101d0 - History_Track3_xmax = -101d0 - History_Track3_ymin = -101d0 - History_Track3_ymax = -101d0 + 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) = 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_Track3_xmargin = 0.1 - History_Track3_ymargin = 0.1 - History_Track3_dxmin = -1 - History_Track3_dymin = -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_step_min = -1 - History_Track3_step_max = -1 - ! :: + ! Grid(3) + ! ------- - 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_num_cols(3) = 1 + Grid_num_rows(3) = 7 + Grid_num_plots(3) = 3 ! :: - show_History_Track3_annotation1 = .false. - show_History_Track3_annotation2 = .false. - show_History_Track3_annotation3 = .false. + 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_fname = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` - - ! :: + 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 - History_Track3_use_decorator = .false. + Grid_file_prefix(3) = 'grid3_' + + ! Grid(4) + ! ------- - ! file output + Grid_num_cols(4) = 10 + Grid_num_rows(4) = 9 + Grid_num_plots(4) = 6 ! :: - 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 - ! -------------- + 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_Track4_win_flag = .false. - History_Track4_win_width = 6 - History_Track4_win_aspect_ratio = 0.75 + 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 ! :: - 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(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 ! :: - 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(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_Track4_xmin = -101d0 - History_Track4_xmax = -101d0 - History_Track4_ymin = -101d0 - History_Track4_ymax = -101d0 + + 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_Track4_xmargin = 0.1 - History_Track4_ymargin = 0.1 - History_Track4_dxmin = -1 - History_Track4_dymin = -1 + 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_Track4_step_min = -1 - History_Track4_step_max = -1 - ! :: + ! Grid5 + ! ----- - 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(5) = 10 + Grid_num_rows(5) = 7 + Grid_num_plots(5) = 5 ! :: - show_History_Track4_annotation1 = .false. - show_History_Track4_annotation2 = .false. - show_History_Track4_annotation3 = .false. + 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_fname = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` + 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_use_decorator = .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 + + ! :: - ! file output + 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_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 - + 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_Track5 - ! -------------- + Grid_file_prefix(5) = 'grid5_' - ! :: + ! Grid(6) + ! ------- - History_Track5_win_flag = .false. - History_Track5_win_width = 6 - History_Track5_win_aspect_ratio = 0.75 + Grid_num_cols(6) = 3 + Grid_num_rows(6) = 3 + Grid_num_plots(6) = 5 ! :: - 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_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_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(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_Track5_xmin = -101d0 - History_Track5_xmax = -101d0 - History_Track5_ymin = -101d0 - History_Track5_ymax = -101d0 + 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_Track5_xmargin = 0.1 - History_Track5_ymargin = 0.1 - History_Track5_dxmin = -1 - History_Track5_dymin = -1 + 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_step_min = -1 - History_Track5_step_max = -1 + 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_' - 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(7) + ! ------- + + Grid_num_cols(7) = 1 + Grid_num_rows(7) = 3 + Grid_num_plots(7) = 3 ! :: - show_History_Track5_annotation1 = .false. - show_History_Track5_annotation2 = .false. - show_History_Track5_annotation3 = .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_fname = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/star/other/pgstar_decorator.f90`` + 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 - ! :: + Grid_file_prefix(7) = 'grid7_' - History_Track5_use_decorator = .false. + ! Grid(8) + ! ------- - ! file output + Grid_num_cols(8) = 3 + Grid_num_rows(8) = 14 + Grid_num_plots(8) = 6 ! :: - 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, 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 ! :: - History_Track6_win_flag = .false. - History_Track6_win_width = 6 - History_Track6_win_aspect_ratio = 0.75 + 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_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(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_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(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_Track6_xmin = -101d0 - History_Track6_xmax = -101d0 - History_Track6_ymin = -101d0 - History_Track6_ymax = -101d0 + 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_xmargin = 0.1 - History_Track6_ymargin = 0.1 - History_Track6_dxmin = -1 - History_Track6_dymin = -1 + 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 - ! :: + ! :: + + 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_step_min = -1 - History_Track6_step_max = -1 + ! :: + + 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 ! :: - 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/private/pgstar_ctrls_io.f90 b/star/private/pgstar_ctrls_io.f90 index 79fd68a7e..96c06b209 100644 --- a/star/private/pgstar_ctrls_io.f90 +++ b/star/private/pgstar_ctrls_io.f90 @@ -107,578 +107,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 +650,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 +895,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 +945,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 +1222,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 +1283,6 @@ module pgstar_ctrls_io read_extra_pgstar_inlist, & extra_pgstar_inlist_name - - - contains @@ -3232,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 @@ -4452,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 @@ -4997,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 @@ -5394,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 @@ -5964,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 @@ -6255,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 From a8c79e23398400aff4c4c30a184b2b8d58998d8a Mon Sep 17 00:00:00 2001 From: Matthias Fabry Date: Tue, 13 Jun 2023 14:13:00 +0200 Subject: [PATCH 06/27] [ci skip] apply array_index to 'arrayified' plots --- star/private/pgstar_color_magnitude.f90 | 120 ++++--- star/private/pgstar_grid.f90 | 429 ++++++++++++------------ star/private/pgstar_hist_track.f90 | 54 ++- star/private/pgstar_history_panels.f90 | 106 ++++-- star/private/pgstar_profile_panels.f90 | 108 ++++-- 5 files changed, 470 insertions(+), 347 deletions(-) diff --git a/star/private/pgstar_color_magnitude.f90 b/star/private/pgstar_color_magnitude.f90 index 095c35060..53170a275 100644 --- a/star/private/pgstar_color_magnitude.f90 +++ b/star/private/pgstar_color_magnitude.f90 @@ -36,11 +36,18 @@ module pgstar_Color_Magnitude contains - subroutine Color_Magnitude_plot(id, device_id, array_ix, ierr) - integer, intent(in) :: id, device_id, array_ix + subroutine Color_Magnitude_plot(id, device_id, ierr, array_ix) + integer, intent(in) :: id, device_id + integer, intent(in), optional :: array_ix integer, intent(out) :: ierr type (star_info), pointer :: s ierr = 0 + + if (.not. present(array_ix)) then + ierr = -1 + return + end if + call get_star_ptr(id, s, ierr) if (ierr /= 0) return call pgslct(device_id) @@ -63,37 +70,53 @@ subroutine do_Color_Magnitude_plot(s, id, device_id, array_ix, & 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_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_max_width(array_ix), & - s% pg% Color_Magnitude_num_panels(array_ix), & - s% pg% Color_Magnitude_other_ymin(array_ix), & - s% pg% Color_Magnitude_other_ymax(array_ix), & - s% pg% Color_Magnitude_yaxis_reversed(array_ix), & - s% pg% Color_Magnitude_other_yaxis_log(array_ix), & - s% pg% Color_Magnitude_other_dymin(array_ix), & - s% pg% Color_Magnitude_other_ymargin(array_ix), & - s% pg% Color_Magnitude_other_yaxis1_name(array_ix), & - s% pg% Color_Magnitude_other_yaxis2_name(array_ix), & - s% pg% Color_Magnitude_ymin(array_ix), & - s% pg% Color_Magnitude_ymax(array_ix), & - s% pg% Color_Magnitude_xaxis_reversed(array_ix), & - s% pg% Color_Magnitude_yaxis_reversed(array_ix), & - s% pg% Color_Magnitude_xaxis_log(array_ix), & - s% pg% Color_Magnitude_yaxis_log(array_ix), & - s% pg% Color_Magnitude_dymin(array_ix), & - s% pg% Color_Magnitude_ymargin(array_ix), & - s% pg% Color_Magnitude_yaxis1_name(array_ix), & - s% pg% Color_Magnitude_yaxis2_name(array_ix), & - s% pg% Color_Magnitude_use_decorator(array_ix), & - s% pg% Color_Magnitude_pgstar_decorator(array_ix), & + 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 @@ -101,18 +124,23 @@ 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_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_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_xaxis_reversed, color_yaxis_reversed, & - color_xaxis_log, color_yaxis_log, & color_dymin, color_ymargin, & - color_yaxis1_name, color_yaxis2_name, & + 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 @@ -124,7 +152,7 @@ subroutine do_one_cm_plot(& 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 + 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, & @@ -229,7 +257,7 @@ subroutine do_one_cm_plot(& call set_xleft_xright(& n, xvec, color_xmin, color_xmax, color_xmargin, & - color_xaxis_reversed, dxmin, xleft, xright) + color_xaxis_reversed, color_dxmin, xleft, xright) call pgsave call pgsch(txt_scale) @@ -270,13 +298,13 @@ subroutine do_one_cm_plot(& have_other_yaxis2 = get1_yvec(other_yname2, other_yvec2) end if - if(have_yaxis1)then + if (have_yaxis1) then have_yaxis = .True. else have_yaxis = .false. end if - if(have_other_yaxis1) then + if (have_other_yaxis1) then have_other_yaxis = .True. else have_other_yaxis = .false. @@ -294,7 +322,7 @@ subroutine do_one_cm_plot(& end do other_yvec = other_yvec1 - if(have_other_yaxis2) other_yvec = other_yvec - other_yvec2 + if (have_other_yaxis2) other_yvec = other_yvec - other_yvec2 ! Make sure limits are sensible for plotting do i = lbound(other_yvec, dim = 1), ubound(other_yvec, dim = 1) @@ -359,7 +387,7 @@ subroutine do_one_cm_plot(& end if end if call pgsci(y_color) - if(have_yaxis2)then + 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, ''))) @@ -371,7 +399,7 @@ subroutine do_one_cm_plot(& call pgsci(1) - call show_pgstar_decorator(s%id, color_use_decorator, color_pgstar_decorator, j, ierr) + call show_pgstar_decorator(s% id, color_use_decorator, color_pgstar_decorator, j, ierr) end do diff --git a/star/private/pgstar_grid.f90 b/star/private/pgstar_grid.f90 index 5ea55c418..62e8c2d85 100644 --- a/star/private/pgstar_grid.f90 +++ b/star/private/pgstar_grid.f90 @@ -35,11 +35,19 @@ module pgstar_grid contains - subroutine grid_plot(id, device_id, array_ix, ierr) - integer, intent(in) :: id, device_id, array_ix + subroutine grid_plot(id, device_id, ierr, array_ix) + integer, intent(in) :: id, device_id + integer, intent(in), optional :: array_ix integer, intent(out) :: ierr type (star_info), pointer :: s + ierr = 0 + + if (.not. present(array_ix)) then + ierr = -1 + return + end if + call get_star_ptr(id, s, ierr) if (ierr /= 0) return @@ -50,7 +58,7 @@ subroutine grid_plot(id, device_id, array_ix, ierr) 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), & + s% pg% Grid_title(array_ix), s% pg% Grid_txt_scale_factor(array_ix, :), & ierr) call pgebuf() @@ -76,15 +84,15 @@ subroutine do_grid_plot(s, id, device_id, array_ix, & 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), & + 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_grid_plot @@ -134,30 +142,15 @@ subroutine do_one_Grid_plot(s, id, device_id, array_ix, & 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, & @@ -293,42 +286,42 @@ subroutine do_one_Grid_plot(s, id, device_id, array_ix, & 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, & @@ -379,114 +372,114 @@ subroutine do_one_Grid_plot(s, id, device_id, array_ix, & 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, & @@ -499,42 +492,42 @@ subroutine do_one_Grid_plot(s, id, device_id, array_ix, & 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. @@ -581,11 +574,11 @@ subroutine do_one_Grid_plot(s, id, device_id, array_ix, & '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' diff --git a/star/private/pgstar_hist_track.f90 b/star/private/pgstar_hist_track.f90 index 993addabe..3cc883c0a 100644 --- a/star/private/pgstar_hist_track.f90 +++ b/star/private/pgstar_hist_track.f90 @@ -36,10 +36,17 @@ module pgstar_hist_track contains - subroutine History_Track_plot(id, device_id, array_ix, ierr) - integer, intent(in) :: id, device_id, array_ix + subroutine History_Track_plot(id, device_id, ierr, array_ix) + integer, intent(in) :: id, device_id + integer, intent(in), optional :: array_ix integer, intent(out) :: ierr type (star_info), pointer :: s + + if (.not. present(array_ix)) then + ierr = -1 + return + end if + ierr = 0 call get_star_ptr(id, s, ierr) if (ierr /= 0) return @@ -63,7 +70,33 @@ subroutine do_History_Track_plot(s, id, device_id, array_ix, & logical, intent(in) :: subplot character (len = *), intent(in) :: title integer, intent(out) :: ierr - call do_Hist_Track(s, id, device_id, array_ix, & + 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), & @@ -94,8 +127,8 @@ subroutine do_History_Track_plot(s, id, device_id, 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), & - s% pg% History_Track_pgstar_decorator(array_ix), & - null_decorate, ierr) + decorator, null_decorate, & + ierr) end subroutine do_History_Track_plot @@ -106,7 +139,7 @@ subroutine null_decorate(id, ierr) end subroutine null_decorate - subroutine do_Hist_Track(s, id, device_id, array_ix, & + 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, & @@ -118,13 +151,12 @@ subroutine do_Hist_Track(s, id, device_id, array_ix, & xtarget, ytarget, xsigma, ysigma, & show_annotation1, show_annotation2, show_annotation3, & fname, & - use_decorator, pgstar_decorator, & - decorate, ierr) + 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, array_ix + 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, & @@ -299,11 +331,11 @@ end subroutine decorate show_annotation2, & show_annotation3) - call decorate(s% id, ierr) + call decorate(s% id, ierr) ! hard coded decorator for other plots call pgunsa - call show_pgstar_decorator(s%id, use_decorator, pgstar_decorator, 0, ierr) + call show_pgstar_decorator(s%id, use_decorator, pgstar_decorator, 0, ierr) ! user decorator deallocate(xvec, yvec) diff --git a/star/private/pgstar_history_panels.f90 b/star/private/pgstar_history_panels.f90 index 199139fb8..b1260ee84 100644 --- a/star/private/pgstar_history_panels.f90 +++ b/star/private/pgstar_history_panels.f90 @@ -36,10 +36,17 @@ module pgstar_history_panels contains - subroutine History_Panels_plot(id, device_id, array_ix, ierr) - integer, intent(in) :: id, device_id, array_ix + subroutine History_Panels_plot(id, device_id, ierr, array_ix) + integer, intent(in) :: id, device_id + integer, intent(in), optional :: array_ix integer, intent(out) :: ierr type (star_info), pointer :: s + + if (.not. present(array_ix)) then + ierr = -1 + return + end if + ierr = 0 call get_star_ptr(id, s, ierr) if (ierr /= 0) return @@ -63,55 +70,82 @@ subroutine do_History_Panels_plot(s, id, device_id, array_ix, & 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_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_max_width(array_ix), & - s% pg% History_Panels_num_panels(array_ix), & - s% pg% History_Panels_other_ymin(array_ix), & - s% pg% History_Panels_other_ymax(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_other_dymin(array_ix), & - s% pg% History_Panels_points_name(array_ix), & - s% pg% History_Panels_other_ymargin(array_ix), & - s% pg% History_Panels_other_yaxis_name(array_ix), & - s% pg% History_Panels_ymin(array_ix), & - s% pg% History_Panels_ymax(array_ix), & - s% pg% History_Panels_xaxis_reversed(array_ix), & - s% pg% History_Panels_yaxis_reversed(array_ix), & - s% pg% History_Panels_xaxis_log(array_ix), & - s% pg% History_Panels_yaxis_log(array_ix), & - s% pg% History_Panels_dymin(array_ix), & - s% pg% History_Panels_ymargin(array_ix), & - s% pg% History_Panels_yaxis_name(array_ix), & - s% pg% History_Panels_use_decorator(array_ix), & - s% pg% History_Panels_pgstar_decorator(array_ix), & + + s% pg% History_Panels_use_decorator(array_ix), decorator, & ierr) end subroutine do_History_Panels_plot - subroutine do_one_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_xaxis_name_in, automatic_star_age_units, 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_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, & + hist_points_name, & + automatic_star_age_units, & + use_decorator, pgstar_decorator, & ierr) use utils_lib diff --git a/star/private/pgstar_profile_panels.f90 b/star/private/pgstar_profile_panels.f90 index 6f1b2282a..fad97f7e3 100644 --- a/star/private/pgstar_profile_panels.f90 +++ b/star/private/pgstar_profile_panels.f90 @@ -37,10 +37,17 @@ module pgstar_profile_panels contains - subroutine Profile_Panels_plot(id, device_id, array_ix, ierr) - integer, intent(in) :: id, device_id, array_ix + subroutine Profile_Panels_plot(id, device_id, ierr, array_ix) + integer, intent(in) :: id, device_id + integer, intent(in), optional :: array_ix integer, intent(out) :: ierr type (star_info), pointer :: s + + if (.not. present(array_ix)) then + ierr = -1 + return + end if + ierr = 0 call get_star_ptr(id, s, ierr) if (ierr /= 0) return @@ -64,53 +71,82 @@ subroutine do_profile_panels_plot(s, id, device_id, array_ix, & 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_xaxis_reversed(array_ix), & - s% pg% Profile_Panels_yaxis_reversed(array_ix), & - s% pg% Profile_Panels_other_yaxis_reversed(array_ix), & - s% pg% Profile_Panels_yaxis_log(array_ix), & - s% pg% Profile_Panels_other_yaxis_log(array_ix), & - s% pg% Profile_Panels_same_yaxis_range(array_ix), & + s% pg% Profile_Panels_num_panels(array_ix), & + s% pg% Profile_Panels_xaxis_name(array_ix), & - s% pg% Profile_Panels_yaxis_name(array_ix), & - s% pg% Profile_Panels_other_yaxis_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_show_mix_regions_on_xaxis(array_ix), & - s% pg% Profile_Panels_ymin(array_ix), s% pg% Profile_Panels_other_ymin(array_ix), & - s% pg% Profile_Panels_ymax(array_ix), s% pg% Profile_Panels_other_ymax(array_ix), & - s% pg% Profile_Panels_ycenter(array_ix), s% pg% Profile_Panels_other_ycenter(array_ix), & - s% pg% Profile_Panels_ymargin(array_ix), s% pg% Profile_Panels_other_ymargin(array_ix), & - s% pg% Profile_Panels_dymin(array_ix), s% pg% Profile_Panels_other_dymin(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_num_panels(array_ix), & - s% pg% Profile_Panels_use_decorator(array_ix), & - s% pg% Profile_Panels_pgstar_decorator(array_ix), & - 1, & + + 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_xaxis_reversed, & - panels_yaxis_reversed, & - panels_other_yaxis_reversed, & - panels_yaxis_log, & - panels_other_yaxis_log, & - panels_same_yaxis_range, & + panels_num_panels, & 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_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, & - panels_num_panels, & + use_decorator, pgstar_decorator, & ierr) @@ -125,7 +161,7 @@ subroutine Pro_panels_plot(s, device_id, array_ix, & type (star_info), pointer :: s integer, intent(in) :: & - device_id, panels_num_panels, array_ix, + 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 From 6550cf08729360f084e8c8a4f1a388306f2f4d02 Mon Sep 17 00:00:00 2001 From: Matthias Fabry Date: Tue, 13 Jun 2023 14:13:48 +0200 Subject: [PATCH 07/27] [ci skip] point pgstar to modified functions --- star/private/pgstar_full.f90 | 1213 +++++++++++++++++----------------- 1 file changed, 599 insertions(+), 614 deletions(-) diff --git a/star/private/pgstar_full.f90 b/star/private/pgstar_full.f90 index ea16fa71d..463ad79b3 100644 --- a/star/private/pgstar_full.f90 +++ b/star/private/pgstar_full.f90 @@ -145,28 +145,13 @@ subroutine set_win_file_data(s, ierr) 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_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_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_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_Color_Magnitude, only : Color_Magnitude_plot type (star_info), pointer :: s integer, intent(out) :: ierr @@ -176,130 +161,130 @@ subroutine set_win_file_data(s, ierr) ! store win and file info in records p => s% pg% pgstar_win_file_ptr(i_Text_Summary1) - p% plot => Text_Summary1_Plot + p% plot => Text_Summary_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% name = 'Text_Summary(1)' + p% win_flag = s% pg% Text_Summary_win_flag(1) + p% win_width = s% pg% Text_Summary_win_width(1) + p% win_aspect_ratio = s% pg% Text_Summary_win_aspect_ratio(1) + p% file_flag = s% pg% Text_Summary_file_flag(1) + p% file_dir = s% pg% Text_Summary_file_dir(1) + p% file_prefix = s% pg% Text_Summary_file_prefix(1) + p% file_interval = s% pg% Text_Summary_file_interval(1) + p% file_width = s% pg% Text_Summary_file_width(1) + p% file_aspect_ratio = s% pg% Text_Summary_file_aspect_ratio(1) p => s% pg% pgstar_win_file_ptr(i_Text_Summary2) - p% plot => Text_Summary2_Plot + p% plot => Text_Summary_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% name = 'Text_Summary(2)' + p% win_flag = s% pg% Text_Summary_win_flag(2) + p% win_width = s% pg% Text_Summary_win_width(2) + p% win_aspect_ratio = s% pg% Text_Summary_win_aspect_ratio(2) + p% file_flag = s% pg% Text_Summary_file_flag(2) + p% file_dir = s% pg% Text_Summary_file_dir(2) + p% file_prefix = s% pg% Text_Summary_file_prefix(2) + p% file_interval = s% pg% Text_Summary_file_interval(2) + p% file_width = s% pg% Text_Summary_file_width(2) + p% file_aspect_ratio = s% pg% Text_Summary_file_aspect_ratio(2) p => s% pg% pgstar_win_file_ptr(i_Text_Summary3) - p% plot => Text_Summary3_Plot + p% plot => Text_Summary_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% name = 'Text_Summary(3)' + p% win_flag = s% pg% Text_Summary_win_flag(3) + p% win_width = s% pg% Text_Summary_win_width(3) + p% win_aspect_ratio = s% pg% Text_Summary_win_aspect_ratio(3) + p% file_flag = s% pg% Text_Summary_file_flag(3) + p% file_dir = s% pg% Text_Summary_file_dir(3) + p% file_prefix = s% pg% Text_Summary_file_prefix(3) + p% file_interval = s% pg% Text_Summary_file_interval(3) + p% file_width = s% pg% Text_Summary_file_width(3) + p% file_aspect_ratio = s% pg% Text_Summary_file_aspect_ratio(3) p => s% pg% pgstar_win_file_ptr(i_Text_Summary4) - p% plot => Text_Summary4_Plot + p% plot => Text_Summary_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% name = 'Text_Summary(4)' + p% win_flag = s% pg% Text_Summary_win_flag(4) + p% win_width = s% pg% Text_Summary_win_width(4) + p% win_aspect_ratio = s% pg% Text_Summary_win_aspect_ratio(4) + p% file_flag = s% pg% Text_Summary_file_flag(4) + p% file_dir = s% pg% Text_Summary_file_dir(4) + p% file_prefix = s% pg% Text_Summary_file_prefix(4) + p% file_interval = s% pg% Text_Summary_file_interval(4) + p% file_width = s% pg% Text_Summary_file_width(4) + p% file_aspect_ratio = s% pg% Text_Summary_file_aspect_ratio(4) p => s% pg% pgstar_win_file_ptr(i_Text_Summary5) - p% plot => Text_Summary5_Plot + p% plot => Text_Summary_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% name = 'Text_Summary(5)' + p% win_flag = s% pg% Text_Summary_win_flag(5) + p% win_width = s% pg% Text_Summary_win_width(5) + p% win_aspect_ratio = s% pg% Text_Summary_win_aspect_ratio(5) + p% file_flag = s% pg% Text_Summary_file_flag(5) + p% file_dir = s% pg% Text_Summary_file_dir(5) + p% file_prefix = s% pg% Text_Summary_file_prefix(5) + p% file_interval = s% pg% Text_Summary_file_interval(5) + p% file_width = s% pg% Text_Summary_file_width(5) + p% file_aspect_ratio = s% pg% Text_Summary_file_aspect_ratio(5) p => s% pg% pgstar_win_file_ptr(i_Text_Summary6) - p% plot => Text_Summary6_Plot + p% plot => Text_Summary_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% name = 'Text_Summary(6)' + p% win_flag = s% pg% Text_Summary_win_flag(6) + p% win_width = s% pg% Text_Summary_win_width(6) + p% win_aspect_ratio = s% pg% Text_Summary_win_aspect_ratio(6) + p% file_flag = s% pg% Text_Summary_file_flag(6) + p% file_dir = s% pg% Text_Summary_file_dir(6) + p% file_prefix = s% pg% Text_Summary_file_prefix(6) + p% file_interval = s% pg% Text_Summary_file_interval(6) + p% file_width = s% pg% Text_Summary_file_width(6) + p% file_aspect_ratio = s% pg% Text_Summary_file_aspect_ratio(6) p => s% pg% pgstar_win_file_ptr(i_Text_Summary7) - p% plot => Text_Summary7_Plot + p% plot => Text_Summary_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% name = 'Text_Summary(7)' + p% win_flag = s% pg% Text_Summary_win_flag(7) + p% win_width = s% pg% Text_Summary_win_width(7) + p% win_aspect_ratio = s% pg% Text_Summary_win_aspect_ratio(7) + p% file_flag = s% pg% Text_Summary_file_flag(7) + p% file_dir = s% pg% Text_Summary_file_dir(7) + p% file_prefix = s% pg% Text_Summary_file_prefix(7) + p% file_interval = s% pg% Text_Summary_file_interval(7) + p% file_width = s% pg% Text_Summary_file_width(7) + p% file_aspect_ratio = s% pg% Text_Summary_file_aspect_ratio(7) p => s% pg% pgstar_win_file_ptr(i_Text_Summary8) - p% plot => Text_Summary8_Plot + p% plot => Text_Summary_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% name = 'Text_Summary(8)' + p% win_flag = s% pg% Text_Summary_win_flag(8) + p% win_width = s% pg% Text_Summary_win_width(8) + p% win_aspect_ratio = s% pg% Text_Summary_win_aspect_ratio(8) + p% file_flag = s% pg% Text_Summary_file_flag(8) + p% file_dir = s% pg% Text_Summary_file_dir(8) + p% file_prefix = s% pg% Text_Summary_file_prefix(8) + p% file_interval = s% pg% Text_Summary_file_interval(8) + p% file_width = s% pg% Text_Summary_file_width(8) + p% file_aspect_ratio = s% pg% Text_Summary_file_aspect_ratio(8) p => s% pg% pgstar_win_file_ptr(i_Text_Summary9) - p% plot => Text_Summary9_Plot + p% plot => Text_Summary_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 + p% name = 'Text_Summary(9)' + p% win_flag = s% pg% Text_Summary_win_flag(9) + p% win_width = s% pg% Text_Summary_win_width(9) + p% win_aspect_ratio = s% pg% Text_Summary_win_aspect_ratio(9) + p% file_flag = s% pg% Text_Summary_file_flag(9) + p% file_dir = s% pg% Text_Summary_file_dir(9) + p% file_prefix = s% pg% Text_Summary_file_prefix(9) + p% file_interval = s% pg% Text_Summary_file_interval(9) + p% file_width = s% pg% Text_Summary_file_width(9) + p% file_aspect_ratio = s% pg% Text_Summary_file_aspect_ratio(9) p => s% pg% pgstar_win_file_ptr(i_TRho_Profile) p% plot => TRho_Profile_plot @@ -316,130 +301,130 @@ subroutine set_win_file_data(s, ierr) 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% plot => Profile_Panels_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% name = 'Profile_Panels(1)' + p% win_flag = s% pg% Profile_Panels_win_flag(1) + p% win_width = s% pg% Profile_Panels_win_width(1) + p% win_aspect_ratio = s% pg% Profile_Panels_win_aspect_ratio(1) + p% file_flag = s% pg% Profile_Panels_file_flag(1) + p% file_dir = s% pg% Profile_Panels_file_dir(1) + p% file_prefix = s% pg% Profile_Panels_file_prefix(1) + p% file_interval = s% pg% Profile_Panels_file_interval(1) + p% file_width = s% pg% Profile_Panels_file_width(1) + p% file_aspect_ratio = s% pg% Profile_Panels_file_aspect_ratio(1) p => s% pg% pgstar_win_file_ptr(i_Profile_Panels2) - p% plot => Profile_Panels2_plot + p% plot => Profile_Panels_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% name = 'Profile_Panels(2)' + p% win_flag = s% pg% Profile_Panels_win_flag(2) + p% win_width = s% pg% Profile_Panels_win_width(2) + p% win_aspect_ratio = s% pg% Profile_Panels_win_aspect_ratio(2) + p% file_flag = s% pg% Profile_Panels_file_flag(2) + p% file_dir = s% pg% Profile_Panels_file_dir(2) + p% file_prefix = s% pg% Profile_Panels_file_prefix(2) + p% file_interval = s% pg% Profile_Panels_file_interval(2) + p% file_width = s% pg% Profile_Panels_file_width(2) + p% file_aspect_ratio = s% pg% Profile_Panels_file_aspect_ratio(2) p => s% pg% pgstar_win_file_ptr(i_Profile_Panels3) - p% plot => Profile_Panels3_plot + p% plot => Profile_Panels_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% name = 'Profile_Panels(3)' + p% win_flag = s% pg% Profile_Panels_win_flag(3) + p% win_width = s% pg% Profile_Panels_win_width(3) + p% win_aspect_ratio = s% pg% Profile_Panels_win_aspect_ratio(3) + p% file_flag = s% pg% Profile_Panels_file_flag(3) + p% file_dir = s% pg% Profile_Panels_file_dir(3) + p% file_prefix = s% pg% Profile_Panels_file_prefix(3) + p% file_interval = s% pg% Profile_Panels_file_interval(3) + p% file_width = s% pg% Profile_Panels_file_width(3) + p% file_aspect_ratio = s% pg% Profile_Panels_file_aspect_ratio(3) p => s% pg% pgstar_win_file_ptr(i_Profile_Panels4) - p% plot => Profile_Panels4_plot + p% plot => Profile_Panels_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% name = 'Profile_Panels(4)' + p% win_flag = s% pg% Profile_Panels_win_flag(4) + p% win_width = s% pg% Profile_Panels_win_width(4) + p% win_aspect_ratio = s% pg% Profile_Panels_win_aspect_ratio(4) + p% file_flag = s% pg% Profile_Panels_file_flag(4) + p% file_dir = s% pg% Profile_Panels_file_dir(4) + p% file_prefix = s% pg% Profile_Panels_file_prefix(4) + p% file_interval = s% pg% Profile_Panels_file_interval(4) + p% file_width = s% pg% Profile_Panels_file_width(4) + p% file_aspect_ratio = s% pg% Profile_Panels_file_aspect_ratio(4) p => s% pg% pgstar_win_file_ptr(i_Profile_Panels5) - p% plot => Profile_Panels5_plot + p% plot => Profile_Panels_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% name = 'Profile_Panels(5)' + p% win_flag = s% pg% Profile_Panels_win_flag(5) + p% win_width = s% pg% Profile_Panels_win_width(5) + p% win_aspect_ratio = s% pg% Profile_Panels_win_aspect_ratio(5) + p% file_flag = s% pg% Profile_Panels_file_flag(5) + p% file_dir = s% pg% Profile_Panels_file_dir(5) + p% file_prefix = s% pg% Profile_Panels_file_prefix(5) + p% file_interval = s% pg% Profile_Panels_file_interval(5) + p% file_width = s% pg% Profile_Panels_file_width(5) + p% file_aspect_ratio = s% pg% Profile_Panels_file_aspect_ratio(5) p => s% pg% pgstar_win_file_ptr(i_Profile_Panels6) - p% plot => Profile_Panels6_plot + p% plot => Profile_Panels_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% name = 'Profile_Panels(6)' + p% win_flag = s% pg% Profile_Panels_win_flag(6) + p% win_width = s% pg% Profile_Panels_win_width(6) + p% win_aspect_ratio = s% pg% Profile_Panels_win_aspect_ratio(6) + p% file_flag = s% pg% Profile_Panels_file_flag(6) + p% file_dir = s% pg% Profile_Panels_file_dir(6) + p% file_prefix = s% pg% Profile_Panels_file_prefix(6) + p% file_interval = s% pg% Profile_Panels_file_interval(6) + p% file_width = s% pg% Profile_Panels_file_width(6) + p% file_aspect_ratio = s% pg% Profile_Panels_file_aspect_ratio(6) p => s% pg% pgstar_win_file_ptr(i_Profile_Panels7) - p% plot => Profile_Panels7_plot + p% plot => Profile_Panels_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% name = 'Profile_Panels(7)' + p% win_flag = s% pg% Profile_Panels_win_flag(7) + p% win_width = s% pg% Profile_Panels_win_width(7) + p% win_aspect_ratio = s% pg% Profile_Panels_win_aspect_ratio(7) + p% file_flag = s% pg% Profile_Panels_file_flag(7) + p% file_dir = s% pg% Profile_Panels_file_dir(7) + p% file_prefix = s% pg% Profile_Panels_file_prefix(7) + p% file_interval = s% pg% Profile_Panels_file_interval(7) + p% file_width = s% pg% Profile_Panels_file_width(7) + p% file_aspect_ratio = s% pg% Profile_Panels_file_aspect_ratio(7) p => s% pg% pgstar_win_file_ptr(i_Profile_Panels8) - p% plot => Profile_Panels8_plot + p% plot => Profile_Panels_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% name = 'Profile_Panels(8)' + p% win_flag = s% pg% Profile_Panels_win_flag(8) + p% win_width = s% pg% Profile_Panels_win_width(8) + p% win_aspect_ratio = s% pg% Profile_Panels_win_aspect_ratio(8) + p% file_flag = s% pg% Profile_Panels_file_flag(8) + p% file_dir = s% pg% Profile_Panels_file_dir(8) + p% file_prefix = s% pg% Profile_Panels_file_prefix(8) + p% file_interval = s% pg% Profile_Panels_file_interval(8) + p% file_width = s% pg% Profile_Panels_file_width(8) + p% file_aspect_ratio = s% pg% Profile_Panels_file_aspect_ratio(8) p => s% pg% pgstar_win_file_ptr(i_Profile_Panels9) - p% plot => Profile_Panels9_plot + p% plot => Profile_Panels_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 + p% name = 'Profile_Panels(9)' + p% win_flag = s% pg% Profile_Panels_win_flag(9) + p% win_width = s% pg% Profile_Panels_win_width(9) + p% win_aspect_ratio = s% pg% Profile_Panels_win_aspect_ratio(9) + p% file_flag = s% pg% Profile_Panels_file_flag(9) + p% file_dir = s% pg% Profile_Panels_file_dir(9) + p% file_prefix = s% pg% Profile_Panels_file_prefix(9) + p% file_interval = s% pg% Profile_Panels_file_interval(9) + p% file_width = s% pg% Profile_Panels_file_width(9) + p% file_aspect_ratio = s% pg% Profile_Panels_file_aspect_ratio(9) p => s% pg% pgstar_win_file_ptr(i_logg_Teff) p% plot => logg_Teff_Plot @@ -680,256 +665,256 @@ subroutine set_win_file_data(s, ierr) 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% plot => History_Panels_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% name = 'History_Panels(1)' + p% win_flag = s% pg% History_Panels_win_flag(1) + p% win_width = s% pg% History_Panels_win_width(1) + p% win_aspect_ratio = s% pg% History_Panels_win_aspect_ratio(1) + p% file_flag = s% pg% History_Panels_file_flag(1) + p% file_dir = s% pg% History_Panels_file_dir(1) + p% file_prefix = s% pg% History_Panels_file_prefix(1) + p% file_interval = s% pg% History_Panels_file_interval(1) + p% file_width = s% pg% History_Panels_file_width(1) + p% file_aspect_ratio = s% pg% History_Panels_file_aspect_ratio(1) p => s% pg% pgstar_win_file_ptr(i_Hist_Panels2) - p% plot => History_Panels2_plot + p% plot => History_Panels_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% name = 'History_Panels(2)' + p% win_flag = s% pg% History_Panels_win_flag(2) + p% win_width = s% pg% History_Panels_win_width(2) + p% win_aspect_ratio = s% pg% History_Panels_win_aspect_ratio(2) + p% file_flag = s% pg% History_Panels_file_flag(2) + p% file_dir = s% pg% History_Panels_file_dir(2) + p% file_prefix = s% pg% History_Panels_file_prefix(2) + p% file_interval = s% pg% History_Panels_file_interval(2) + p% file_width = s% pg% History_Panels_file_width(2) + p% file_aspect_ratio = s% pg% History_Panels_file_aspect_ratio(2) p => s% pg% pgstar_win_file_ptr(i_Hist_Panels3) - p% plot => History_Panels3_plot + p% plot => History_Panels_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% name = 'History_Panels(3)' + p% win_flag = s% pg% History_Panels_win_flag(3) + p% win_width = s% pg% History_Panels_win_width(3) + p% win_aspect_ratio = s% pg% History_Panels_win_aspect_ratio(3) + p% file_flag = s% pg% History_Panels_file_flag(3) + p% file_dir = s% pg% History_Panels_file_dir(3) + p% file_prefix = s% pg% History_Panels_file_prefix(3) + p% file_interval = s% pg% History_Panels_file_interval(3) + p% file_width = s% pg% History_Panels_file_width(3) + p% file_aspect_ratio = s% pg% History_Panels_file_aspect_ratio(3) p => s% pg% pgstar_win_file_ptr(i_Hist_Panels4) - p% plot => History_Panels4_plot + p% plot => History_Panels_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% name = 'History_Panels(4)' + p% win_flag = s% pg% History_Panels_win_flag(4) + p% win_width = s% pg% History_Panels_win_width(4) + p% win_aspect_ratio = s% pg% History_Panels_win_aspect_ratio(4) + p% file_flag = s% pg% History_Panels_file_flag(4) + p% file_dir = s% pg% History_Panels_file_dir(4) + p% file_prefix = s% pg% History_Panels_file_prefix(4) + p% file_interval = s% pg% History_Panels_file_interval(4) + p% file_width = s% pg% History_Panels_file_width(4) + p% file_aspect_ratio = s% pg% History_Panels_file_aspect_ratio(4) p => s% pg% pgstar_win_file_ptr(i_Hist_Panels5) - p% plot => History_Panels5_plot + p% plot => History_Panels_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% name = 'History_Panels(5)' + p% win_flag = s% pg% History_Panels_win_flag(5) + p% win_width = s% pg% History_Panels_win_width(5) + p% win_aspect_ratio = s% pg% History_Panels_win_aspect_ratio(5) + p% file_flag = s% pg% History_Panels_file_flag(5) + p% file_dir = s% pg% History_Panels_file_dir(5) + p% file_prefix = s% pg% History_Panels_file_prefix(5) + p% file_interval = s% pg% History_Panels_file_interval(5) + p% file_width = s% pg% History_Panels_file_width(5) + p% file_aspect_ratio = s% pg% History_Panels_file_aspect_ratio(5) p => s% pg% pgstar_win_file_ptr(i_Hist_Panels6) - p% plot => History_Panels6_plot + p% plot => History_Panels_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% name = 'History_Panels(6)' + p% win_flag = s% pg% History_Panels_win_flag(6) + p% win_width = s% pg% History_Panels_win_width(6) + p% win_aspect_ratio = s% pg% History_Panels_win_aspect_ratio(6) + p% file_flag = s% pg% History_Panels_file_flag(6) + p% file_dir = s% pg% History_Panels_file_dir(6) + p% file_prefix = s% pg% History_Panels_file_prefix(6) + p% file_interval = s% pg% History_Panels_file_interval(6) + p% file_width = s% pg% History_Panels_file_width(6) + p% file_aspect_ratio = s% pg% History_Panels_file_aspect_ratio(6) p => s% pg% pgstar_win_file_ptr(i_Hist_Panels7) - p% plot => History_Panels7_plot + p% plot => History_Panels_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% name = 'History_Panels(7)' + p% win_flag = s% pg% History_Panels_win_flag(7) + p% win_width = s% pg% History_Panels_win_width(7) + p% win_aspect_ratio = s% pg% History_Panels_win_aspect_ratio(7) + p% file_flag = s% pg% History_Panels_file_flag(7) + p% file_dir = s% pg% History_Panels_file_dir(7) + p% file_prefix = s% pg% History_Panels_file_prefix(7) + p% file_interval = s% pg% History_Panels_file_interval(7) + p% file_width = s% pg% History_Panels_file_width(7) + p% file_aspect_ratio = s% pg% History_Panels_file_aspect_ratio(7) p => s% pg% pgstar_win_file_ptr(i_Hist_Panels8) - p% plot => History_Panels8_plot + p% plot => History_Panels_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% name = 'History_Panels(8)' + p% win_flag = s% pg% History_Panels_win_flag(8) + p% win_width = s% pg% History_Panels_win_width(8) + p% win_aspect_ratio = s% pg% History_Panels_win_aspect_ratio(8) + p% file_flag = s% pg% History_Panels_file_flag(8) + p% file_dir = s% pg% History_Panels_file_dir(8) + p% file_prefix = s% pg% History_Panels_file_prefix(8) + p% file_interval = s% pg% History_Panels_file_interval(8) + p% file_width = s% pg% History_Panels_file_width(8) + p% file_aspect_ratio = s% pg% History_Panels_file_aspect_ratio(8) p => s% pg% pgstar_win_file_ptr(i_Hist_Panels9) - p% plot => History_Panels9_plot + p% plot => History_Panels_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% name = 'History_Panels(9)' + p% win_flag = s% pg% History_Panels_win_flag(9) + p% win_width = s% pg% History_Panels_win_width(9) + p% win_aspect_ratio = s% pg% History_Panels_win_aspect_ratio(9) + p% file_flag = s% pg% History_Panels_file_flag(9) + p% file_dir = s% pg% History_Panels_file_dir(9) + p% file_prefix = s% pg% History_Panels_file_prefix(9) + p% file_interval = s% pg% History_Panels_file_interval(9) + p% file_width = s% pg% History_Panels_file_width(9) + p% file_aspect_ratio = s% pg% History_Panels_file_aspect_ratio(9) p => s% pg% pgstar_win_file_ptr(i_Hist_Track1) - p% plot => History_Track1_plot + p% plot => History_Track_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% name = 'History_Track(1)' + p% win_flag = s% pg% History_Track_win_flag(1) + p% win_width = s% pg% History_Track_win_width(1) + p% win_aspect_ratio = s% pg% History_Track_win_aspect_ratio(1) + p% file_flag = s% pg% History_Track_file_flag(1) + p% file_dir = s% pg% History_Track_file_dir(1) + p% file_prefix = s% pg% History_Track_file_prefix(1) + p% file_interval = s% pg% History_Track_file_interval(1) + p% file_width = s% pg% History_Track_file_width(1) + p% file_aspect_ratio = s% pg% History_Track_file_aspect_ratio(1) p => s% pg% pgstar_win_file_ptr(i_Hist_Track2) - p% plot => History_Track2_plot + p% plot => History_Track_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% name = 'History_Track(2)' + p% win_flag = s% pg% History_Track_win_flag(2) + p% win_width = s% pg% History_Track_win_width(2) + p% win_aspect_ratio = s% pg% History_Track_win_aspect_ratio(2) + p% file_flag = s% pg% History_Track_file_flag(2) + p% file_dir = s% pg% History_Track_file_dir(2) + p% file_prefix = s% pg% History_Track_file_prefix(2) + p% file_interval = s% pg% History_Track_file_interval(2) + p% file_width = s% pg% History_Track_file_width(2) + p% file_aspect_ratio = s% pg% History_Track_file_aspect_ratio(2) p => s% pg% pgstar_win_file_ptr(i_Hist_Track3) - p% plot => History_Track3_plot + p% plot => History_Track_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% name = 'History_Track(3)' + p% win_flag = s% pg% History_Track_win_flag(3) + p% win_width = s% pg% History_Track_win_width(3) + p% win_aspect_ratio = s% pg% History_Track_win_aspect_ratio(3) + p% file_flag = s% pg% History_Track_file_flag(3) + p% file_dir = s% pg% History_Track_file_dir(3) + p% file_prefix = s% pg% History_Track_file_prefix(3) + p% file_interval = s% pg% History_Track_file_interval(3) + p% file_width = s% pg% History_Track_file_width(3) + p% file_aspect_ratio = s% pg% History_Track_file_aspect_ratio(3) p => s% pg% pgstar_win_file_ptr(i_Hist_Track4) - p% plot => History_Track4_plot + p% plot => History_Track_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% name = 'History_Track(4)' + p% win_flag = s% pg% History_Track_win_flag(4) + p% win_width = s% pg% History_Track_win_width(4) + p% win_aspect_ratio = s% pg% History_Track_win_aspect_ratio(4) + p% file_flag = s% pg% History_Track_file_flag(4) + p% file_dir = s% pg% History_Track_file_dir(4) + p% file_prefix = s% pg% History_Track_file_prefix(4) + p% file_interval = s% pg% History_Track_file_interval(4) + p% file_width = s% pg% History_Track_file_width(4) + p% file_aspect_ratio = s% pg% History_Track_file_aspect_ratio(4) p => s% pg% pgstar_win_file_ptr(i_Hist_Track5) - p% plot => History_Track5_plot + p% plot => History_Track_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% name = 'History_Track(5)' + p% win_flag = s% pg% History_Track_win_flag(5) + p% win_width = s% pg% History_Track_win_width(5) + p% win_aspect_ratio = s% pg% History_Track_win_aspect_ratio(5) + p% file_flag = s% pg% History_Track_file_flag(5) + p% file_dir = s% pg% History_Track_file_dir(5) + p% file_prefix = s% pg% History_Track_file_prefix(5) + p% file_interval = s% pg% History_Track_file_interval(5) + p% file_width = s% pg% History_Track_file_width(5) + p% file_aspect_ratio = s% pg% History_Track_file_aspect_ratio(5) p => s% pg% pgstar_win_file_ptr(i_Hist_Track6) - p% plot => History_Track6_plot + p% plot => History_Track_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% name = 'History_Track(6)' + p% win_flag = s% pg% History_Track_win_flag(6) + p% win_width = s% pg% History_Track_win_width(6) + p% win_aspect_ratio = s% pg% History_Track_win_aspect_ratio(6) + p% file_flag = s% pg% History_Track_file_flag(6) + p% file_dir = s% pg% History_Track_file_dir(6) + p% file_prefix = s% pg% History_Track_file_prefix(6) + p% file_interval = s% pg% History_Track_file_interval(6) + p% file_width = s% pg% History_Track_file_width(6) + p% file_aspect_ratio = s% pg% History_Track_file_aspect_ratio(6) p => s% pg% pgstar_win_file_ptr(i_Hist_Track7) - p% plot => History_Track7_plot + p% plot => History_Track_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% name = 'History_Track(7)' + p% win_flag = s% pg% History_Track_win_flag(7) + p% win_width = s% pg% History_Track_win_width(7) + p% win_aspect_ratio = s% pg% History_Track_win_aspect_ratio(7) + p% file_flag = s% pg% History_Track_file_flag(7) + p% file_dir = s% pg% History_Track_file_dir(7) + p% file_prefix = s% pg% History_Track_file_prefix(7) + p% file_interval = s% pg% History_Track_file_interval(7) + p% file_width = s% pg% History_Track_file_width(7) + p% file_aspect_ratio = s% pg% History_Track_file_aspect_ratio(7) p => s% pg% pgstar_win_file_ptr(i_Hist_Track8) - p% plot => History_Track8_plot + p% plot => History_Track_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% name = 'History_Track(8)' + p% win_flag = s% pg% History_Track_win_flag(8) + p% win_width = s% pg% History_Track_win_width(8) + p% win_aspect_ratio = s% pg% History_Track_win_aspect_ratio(8) + p% file_flag = s% pg% History_Track_file_flag(8) + p% file_dir = s% pg% History_Track_file_dir(8) + p% file_prefix = s% pg% History_Track_file_prefix(8) + p% file_interval = s% pg% History_Track_file_interval(8) + p% file_width = s% pg% History_Track_file_width(8) + p% file_aspect_ratio = s% pg% History_Track_file_aspect_ratio(8) p => s% pg% pgstar_win_file_ptr(i_Hist_Track9) - p% plot => History_Track9_plot + p% plot => History_Track_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 + p% name = 'History_Track(9)' + p% win_flag = s% pg% History_Track_win_flag(9) + p% win_width = s% pg% History_Track_win_width(9) + p% win_aspect_ratio = s% pg% History_Track_win_aspect_ratio(9) + p% file_flag = s% pg% History_Track_file_flag(9) + p% file_dir = s% pg% History_Track_file_dir(9) + p% file_prefix = s% pg% History_Track_file_prefix(9) + p% file_interval = s% pg% History_Track_file_interval(9) + p% file_width = s% pg% History_Track_file_width(9) + p% file_aspect_ratio = s% pg% History_Track_file_aspect_ratio(9) p => s% pg% pgstar_win_file_ptr(i_Mode_Prop) p% plot => mode_propagation_plot @@ -1016,256 +1001,256 @@ subroutine set_win_file_data(s, ierr) 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% plot => Color_Magnitude_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% name = 'Color_Magnitude(1)' + p% win_flag = s% pg% Color_Magnitude_win_flag(1) + p% win_width = s% pg% Color_Magnitude_win_width(1) + p% win_aspect_ratio = s% pg% Color_Magnitude_win_aspect_ratio(1) + p% file_flag = s% pg% Color_Magnitude_file_flag(1) + p% file_dir = s% pg% Color_Magnitude_file_dir(1) + p% file_prefix = s% pg% Color_Magnitude_file_prefix(1) + p% file_interval = s% pg% Color_Magnitude_file_interval(1) + p% file_width = s% pg% Color_Magnitude_file_width(1) + p% file_aspect_ratio = s% pg% Color_Magnitude_file_aspect_ratio(1) p => s% pg% pgstar_win_file_ptr(i_Col_Mag2) - p% plot => Color_Magnitude2_plot + p% plot => Color_Magnitude_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% name = 'Color_Magnitude(2)' + p% win_flag = s% pg% Color_Magnitude_win_flag(2) + p% win_width = s% pg% Color_Magnitude_win_width(2) + p% win_aspect_ratio = s% pg% Color_Magnitude_win_aspect_ratio(2) + p% file_flag = s% pg% Color_Magnitude_file_flag(2) + p% file_dir = s% pg% Color_Magnitude_file_dir(2) + p% file_prefix = s% pg% Color_Magnitude_file_prefix(2) + p% file_interval = s% pg% Color_Magnitude_file_interval(2) + p% file_width = s% pg% Color_Magnitude_file_width(2) + p% file_aspect_ratio = s% pg% Color_Magnitude_file_aspect_ratio(2) p => s% pg% pgstar_win_file_ptr(i_Col_Mag3) - p% plot => Color_Magnitude3_plot + p% plot => Color_Magnitude_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% name = 'Color_Magnitude(3)' + p% win_flag = s% pg% Color_Magnitude_win_flag(3) + p% win_width = s% pg% Color_Magnitude_win_width(3) + p% win_aspect_ratio = s% pg% Color_Magnitude_win_aspect_ratio(3) + p% file_flag = s% pg% Color_Magnitude_file_flag(3) + p% file_dir = s% pg% Color_Magnitude_file_dir(3) + p% file_prefix = s% pg% Color_Magnitude_file_prefix(3) + p% file_interval = s% pg% Color_Magnitude_file_interval(3) + p% file_width = s% pg% Color_Magnitude_file_width(3) + p% file_aspect_ratio = s% pg% Color_Magnitude_file_aspect_ratio(3) p => s% pg% pgstar_win_file_ptr(i_Col_Mag4) - p% plot => Color_Magnitude4_plot + p% plot => Color_Magnitude_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% name = 'Color_Magnitude(4)' + p% win_flag = s% pg% Color_Magnitude_win_flag(4) + p% win_width = s% pg% Color_Magnitude_win_width(4) + p% win_aspect_ratio = s% pg% Color_Magnitude_win_aspect_ratio(4) + p% file_flag = s% pg% Color_Magnitude_file_flag(4) + p% file_dir = s% pg% Color_Magnitude_file_dir(4) + p% file_prefix = s% pg% Color_Magnitude_file_prefix(4) + p% file_interval = s% pg% Color_Magnitude_file_interval(4) + p% file_width = s% pg% Color_Magnitude_file_width(4) + p% file_aspect_ratio = s% pg% Color_Magnitude_file_aspect_ratio(4) p => s% pg% pgstar_win_file_ptr(i_Col_Mag5) - p% plot => Color_Magnitude5_plot + p% plot => Color_Magnitude_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% name = 'Color_Magnitude(5)' + p% win_flag = s% pg% Color_Magnitude_win_flag(5) + p% win_width = s% pg% Color_Magnitude_win_width(5) + p% win_aspect_ratio = s% pg% Color_Magnitude_win_aspect_ratio(5) + p% file_flag = s% pg% Color_Magnitude_file_flag(5) + p% file_dir = s% pg% Color_Magnitude_file_dir(5) + p% file_prefix = s% pg% Color_Magnitude_file_prefix(5) + p% file_interval = s% pg% Color_Magnitude_file_interval(5) + p% file_width = s% pg% Color_Magnitude_file_width(5) + p% file_aspect_ratio = s% pg% Color_Magnitude_file_aspect_ratio(5) p => s% pg% pgstar_win_file_ptr(i_Col_Mag6) - p% plot => Color_Magnitude6_plot + p% plot => Color_Magnitude_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% name = 'Color_Magnitude(6)' + p% win_flag = s% pg% Color_Magnitude_win_flag(6) + p% win_width = s% pg% Color_Magnitude_win_width(6) + p% win_aspect_ratio = s% pg% Color_Magnitude_win_aspect_ratio(6) + p% file_flag = s% pg% Color_Magnitude_file_flag(6) + p% file_dir = s% pg% Color_Magnitude_file_dir(6) + p% file_prefix = s% pg% Color_Magnitude_file_prefix(6) + p% file_interval = s% pg% Color_Magnitude_file_interval(6) + p% file_width = s% pg% Color_Magnitude_file_width(6) + p% file_aspect_ratio = s% pg% Color_Magnitude_file_aspect_ratio(6) p => s% pg% pgstar_win_file_ptr(i_Col_Mag7) - p% plot => Color_Magnitude7_plot + p% plot => Color_Magnitude_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% name = 'Color_Magnitude(7)' + p% win_flag = s% pg% Color_Magnitude_win_flag(7) + p% win_width = s% pg% Color_Magnitude_win_width(7) + p% win_aspect_ratio = s% pg% Color_Magnitude_win_aspect_ratio(7) + p% file_flag = s% pg% Color_Magnitude_file_flag(7) + p% file_dir = s% pg% Color_Magnitude_file_dir(7) + p% file_prefix = s% pg% Color_Magnitude_file_prefix(7) + p% file_interval = s% pg% Color_Magnitude_file_interval(7) + p% file_width = s% pg% Color_Magnitude_file_width(7) + p% file_aspect_ratio = s% pg% Color_Magnitude_file_aspect_ratio(7) p => s% pg% pgstar_win_file_ptr(i_Col_Mag8) - p% plot => Color_Magnitude8_plot + p% plot => Color_Magnitude_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% name = 'Color_Magnitude(8)' + p% win_flag = s% pg% Color_Magnitude_win_flag(8) + p% win_width = s% pg% Color_Magnitude_win_width(8) + p% win_aspect_ratio = s% pg% Color_Magnitude_win_aspect_ratio(8) + p% file_flag = s% pg% Color_Magnitude_file_flag(8) + p% file_dir = s% pg% Color_Magnitude_file_dir(8) + p% file_prefix = s% pg% Color_Magnitude_file_prefix(8) + p% file_interval = s% pg% Color_Magnitude_file_interval(8) + p% file_width = s% pg% Color_Magnitude_file_width(8) + p% file_aspect_ratio = s% pg% Color_Magnitude_file_aspect_ratio(8) p => s% pg% pgstar_win_file_ptr(i_Col_Mag9) - p% plot => Color_Magnitude9_plot + p% plot => Color_Magnitude_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% name = 'Color_Magnitude(9)' + p% win_flag = s% pg% Color_Magnitude_win_flag(9) + p% win_width = s% pg% Color_Magnitude_win_width(9) + p% win_aspect_ratio = s% pg% Color_Magnitude_win_aspect_ratio(9) + p% file_flag = s% pg% Color_Magnitude_file_flag(9) + p% file_dir = s% pg% Color_Magnitude_file_dir(9) + p% file_prefix = s% pg% Color_Magnitude_file_prefix(9) + p% file_interval = s% pg% Color_Magnitude_file_interval(9) + p% file_width = s% pg% Color_Magnitude_file_width(9) + p% file_aspect_ratio = s% pg% Color_Magnitude_file_aspect_ratio(9) p => s% pg% pgstar_win_file_ptr(i_Grid1) - p% plot => grid1_plot + p% plot => grid_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% name = 'Grid(1)' + p% win_flag = s% pg% Grid_win_flag(1) + p% win_width = s% pg% Grid_win_width(1) + p% win_aspect_ratio = s% pg% Grid_win_aspect_ratio(1) + p% file_flag = s% pg% Grid_file_flag(1) + p% file_dir = s% pg% Grid_file_dir(1) + p% file_prefix = s% pg% Grid_file_prefix(1) + p% file_interval = s% pg% Grid_file_interval(1) + p% file_width = s% pg% Grid_file_width(1) + p% file_aspect_ratio = s% pg% Grid_file_aspect_ratio(1) p => s% pg% pgstar_win_file_ptr(i_Grid2) - p% plot => grid2_plot + p% plot => grid_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% name = 'Grid(2)' + p% win_flag = s% pg% Grid_win_flag(2) + p% win_width = s% pg% Grid_win_width(2) + p% win_aspect_ratio = s% pg% Grid_win_aspect_ratio(2) + p% file_flag = s% pg% Grid_file_flag(2) + p% file_dir = s% pg% Grid_file_dir(2) + p% file_prefix = s% pg% Grid_file_prefix(2) + p% file_interval = s% pg% Grid_file_interval(2) + p% file_width = s% pg% Grid_file_width(2) + p% file_aspect_ratio = s% pg% Grid_file_aspect_ratio(2) p => s% pg% pgstar_win_file_ptr(i_Grid3) - p% plot => grid3_plot + p% plot => grid_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% name = 'Grid(3)' + p% win_flag = s% pg% Grid_win_flag(3) + p% win_width = s% pg% Grid_win_width(3) + p% win_aspect_ratio = s% pg% Grid_win_aspect_ratio(3) + p% file_flag = s% pg% Grid_file_flag(3) + p% file_dir = s% pg% Grid_file_dir(3) + p% file_prefix = s% pg% Grid_file_prefix(3) + p% file_interval = s% pg% Grid_file_interval(3) + p% file_width = s% pg% Grid_file_width(3) + p% file_aspect_ratio = s% pg% Grid_file_aspect_ratio(3) p => s% pg% pgstar_win_file_ptr(i_Grid4) - p% plot => grid4_plot + p% plot => grid_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% name = 'Grid(4)' + p% win_flag = s% pg% Grid_win_flag(4) + p% win_width = s% pg% Grid_win_width(4) + p% win_aspect_ratio = s% pg% Grid_win_aspect_ratio(4) + p% file_flag = s% pg% Grid_file_flag(4) + p% file_dir = s% pg% Grid_file_dir(4) + p% file_prefix = s% pg% Grid_file_prefix(4) + p% file_interval = s% pg% Grid_file_interval(4) + p% file_width = s% pg% Grid_file_width(4) + p% file_aspect_ratio = s% pg% Grid_file_aspect_ratio(4) p => s% pg% pgstar_win_file_ptr(i_Grid5) - p% plot => grid5_plot + p% plot => grid_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% name = 'Grid(5)' + p% win_flag = s% pg% Grid_win_flag(5) + p% win_width = s% pg% Grid_win_width(5) + p% win_aspect_ratio = s% pg% Grid_win_aspect_ratio(5) + p% file_flag = s% pg% Grid_file_flag(5) + p% file_dir = s% pg% Grid_file_dir(5) + p% file_prefix = s% pg% Grid_file_prefix(5) + p% file_interval = s% pg% Grid_file_interval(5) + p% file_width = s% pg% Grid_file_width(5) + p% file_aspect_ratio = s% pg% Grid_file_aspect_ratio(5) p => s% pg% pgstar_win_file_ptr(i_Grid6) - p% plot => grid6_plot + p% plot => grid_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% name = 'Grid(6)' + p% win_flag = s% pg% Grid_win_flag(6) + p% win_width = s% pg% Grid_win_width(6) + p% win_aspect_ratio = s% pg% Grid_win_aspect_ratio(6) + p% file_flag = s% pg% Grid_file_flag(6) + p% file_dir = s% pg% Grid_file_dir(6) + p% file_prefix = s% pg% Grid_file_prefix(6) + p% file_interval = s% pg% Grid_file_interval(6) + p% file_width = s% pg% Grid_file_width(6) + p% file_aspect_ratio = s% pg% Grid_file_aspect_ratio(6) p => s% pg% pgstar_win_file_ptr(i_Grid7) - p% plot => grid7_plot + p% plot => grid_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% name = 'Grid(7)' + p% win_flag = s% pg% Grid_win_flag(7) + p% win_width = s% pg% Grid_win_width(7) + p% win_aspect_ratio = s% pg% Grid_win_aspect_ratio(7) + p% file_flag = s% pg% Grid_file_flag(7) + p% file_dir = s% pg% Grid_file_dir(7) + p% file_prefix = s% pg% Grid_file_prefix(7) + p% file_interval = s% pg% Grid_file_interval(7) + p% file_width = s% pg% Grid_file_width(7) + p% file_aspect_ratio = s% pg% Grid_file_aspect_ratio(7) p => s% pg% pgstar_win_file_ptr(i_Grid8) - p% plot => grid8_plot + p% plot => grid_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% name = 'Grid(8)' + p% win_flag = s% pg% Grid_win_flag(8) + p% win_width = s% pg% Grid_win_width(8) + p% win_aspect_ratio = s% pg% Grid_win_aspect_ratio(8) + p% file_flag = s% pg% Grid_file_flag(8) + p% file_dir = s% pg% Grid_file_dir(8) + p% file_prefix = s% pg% Grid_file_prefix(8) + p% file_interval = s% pg% Grid_file_interval(8) + p% file_width = s% pg% Grid_file_width(8) + p% file_aspect_ratio = s% pg% Grid_file_aspect_ratio(8) p => s% pg% pgstar_win_file_ptr(i_Grid9) - p% plot => grid9_plot + p% plot => grid_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 + p% name = 'Grid(9)' + p% win_flag = s% pg% Grid_win_flag(9) + p% win_width = s% pg% Grid_win_width(9) + p% win_aspect_ratio = s% pg% Grid_win_aspect_ratio(9) + p% file_flag = s% pg% Grid_file_flag(9) + p% file_dir = s% pg% Grid_file_dir(9) + p% file_prefix = s% pg% Grid_file_prefix(9) + p% file_interval = s% pg% Grid_file_interval(9) + p% file_width = s% pg% Grid_file_width(9) + p% file_aspect_ratio = s% pg% Grid_file_aspect_ratio(9) do i = 1, max_num_Other_plots p => s% pg% pgstar_win_file_ptr(i_Other + i - 1) From 49c27b6ff1160dfc9818bccbe70879254a5d9e75 Mon Sep 17 00:00:00 2001 From: Matthias Fabry Date: Tue, 13 Jun 2023 14:40:02 +0200 Subject: [PATCH 08/27] [ci skip] array_ix not optional, plot structure needs to know what array index each window is --- star/private/pgstar_abundance.f90 | 5 +- star/private/pgstar_color_magnitude.f90 | 5 +- star/private/pgstar_dpg_dnu.f90 | 5 +- star/private/pgstar_dynamo.f90 | 5 +- star/private/pgstar_full.f90 | 86 +++++++++++++++++++++++-- star/private/pgstar_grid.f90 | 5 +- star/private/pgstar_hist_track.f90 | 5 +- star/private/pgstar_history_panels.f90 | 5 +- star/private/pgstar_hr.f90 | 5 +- star/private/pgstar_kipp.f90 | 5 +- star/private/pgstar_l_r.f90 | 5 +- star/private/pgstar_l_teff.f90 | 5 +- star/private/pgstar_l_v.f90 | 5 +- star/private/pgstar_logg_logt.f90 | 5 +- star/private/pgstar_logg_teff.f90 | 5 +- star/private/pgstar_logl_r.f90 | 5 +- star/private/pgstar_logl_teff.f90 | 5 +- star/private/pgstar_logl_v.f90 | 5 +- star/private/pgstar_mixing_ds.f90 | 5 +- star/private/pgstar_mode_prop.f90 | 5 +- star/private/pgstar_network.f90 | 5 +- star/private/pgstar_power.f90 | 5 +- star/private/pgstar_production.f90 | 5 +- star/private/pgstar_profile_panels.f90 | 5 +- star/private/pgstar_r_l.f90 | 5 +- star/private/pgstar_r_teff.f90 | 5 +- star/private/pgstar_rti.f90 | 5 +- star/private/pgstar_summary.f90 | 5 +- star/private/pgstar_summary_burn.f90 | 5 +- star/private/pgstar_summary_history.f90 | 5 +- star/private/pgstar_summary_profile.f90 | 5 +- star/private/pgstar_tmaxrho.f90 | 5 +- star/private/pgstar_trho.f90 | 5 +- star/private/pgstar_trho_profile.f90 | 5 +- star_data/public/star_pgstar.f90 | 7 +- 35 files changed, 151 insertions(+), 107 deletions(-) diff --git a/star/private/pgstar_abundance.f90 b/star/private/pgstar_abundance.f90 index c6a5c7d45..0628e4a46 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, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 53170a275..3ea60d08d 100644 --- a/star/private/pgstar_color_magnitude.f90 +++ b/star/private/pgstar_color_magnitude.f90 @@ -36,9 +36,8 @@ module pgstar_Color_Magnitude contains - subroutine Color_Magnitude_plot(id, device_id, ierr, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 diff --git a/star/private/pgstar_dpg_dnu.f90 b/star/private/pgstar_dpg_dnu.f90 index c9453b1fe..a7d691d82 100644 --- a/star/private/pgstar_dpg_dnu.f90 +++ b/star/private/pgstar_dpg_dnu.f90 @@ -36,9 +36,8 @@ module pgstar_dPg_dnu contains - subroutine dPg_dnu_Plot(id, device_id, ierr, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 ad81d4686..c82ae3e58 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, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 463ad79b3..5c270bc33 100644 --- a/star/private/pgstar_full.f90 +++ b/star/private/pgstar_full.f90 @@ -163,6 +163,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Text_Summary1) p% plot => Text_Summary_Plot p% id = i_Text_Summary1 + p% array_ix = 1 p% name = 'Text_Summary(1)' p% win_flag = s% pg% Text_Summary_win_flag(1) p% win_width = s% pg% Text_Summary_win_width(1) @@ -177,6 +178,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Text_Summary2) p% plot => Text_Summary_Plot p% id = i_Text_Summary2 + p% array_ix = 2 p% name = 'Text_Summary(2)' p% win_flag = s% pg% Text_Summary_win_flag(2) p% win_width = s% pg% Text_Summary_win_width(2) @@ -191,6 +193,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Text_Summary3) p% plot => Text_Summary_Plot p% id = i_Text_Summary3 + p% array_ix = 3 p% name = 'Text_Summary(3)' p% win_flag = s% pg% Text_Summary_win_flag(3) p% win_width = s% pg% Text_Summary_win_width(3) @@ -205,6 +208,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Text_Summary4) p% plot => Text_Summary_Plot p% id = i_Text_Summary4 + p% array_ix = 4 p% name = 'Text_Summary(4)' p% win_flag = s% pg% Text_Summary_win_flag(4) p% win_width = s% pg% Text_Summary_win_width(4) @@ -219,6 +223,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Text_Summary5) p% plot => Text_Summary_Plot p% id = i_Text_Summary5 + p% array_ix = 5 p% name = 'Text_Summary(5)' p% win_flag = s% pg% Text_Summary_win_flag(5) p% win_width = s% pg% Text_Summary_win_width(5) @@ -233,6 +238,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Text_Summary6) p% plot => Text_Summary_Plot p% id = i_Text_Summary6 + p% array_ix = 6 p% name = 'Text_Summary(6)' p% win_flag = s% pg% Text_Summary_win_flag(6) p% win_width = s% pg% Text_Summary_win_width(6) @@ -247,6 +253,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Text_Summary7) p% plot => Text_Summary_Plot p% id = i_Text_Summary7 + p% array_ix = 7 p% name = 'Text_Summary(7)' p% win_flag = s% pg% Text_Summary_win_flag(7) p% win_width = s% pg% Text_Summary_win_width(7) @@ -261,6 +268,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Text_Summary8) p% plot => Text_Summary_Plot p% id = i_Text_Summary8 + p% array_ix = 8 p% name = 'Text_Summary(8)' p% win_flag = s% pg% Text_Summary_win_flag(8) p% win_width = s% pg% Text_Summary_win_width(8) @@ -275,6 +283,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Text_Summary9) p% plot => Text_Summary_Plot p% id = i_Text_Summary9 + p% array_ix = 9 p% name = 'Text_Summary(9)' p% win_flag = s% pg% Text_Summary_win_flag(9) p% win_width = s% pg% Text_Summary_win_width(9) @@ -289,6 +298,7 @@ subroutine set_win_file_data(s, ierr) 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 @@ -303,6 +313,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Profile_Panels1) p% plot => Profile_Panels_plot p% id = i_Profile_Panels1 + p% array_ix = 1 p% name = 'Profile_Panels(1)' p% win_flag = s% pg% Profile_Panels_win_flag(1) p% win_width = s% pg% Profile_Panels_win_width(1) @@ -317,6 +328,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Profile_Panels2) p% plot => Profile_Panels_plot p% id = i_Profile_Panels2 + p% array_ix = 2 p% name = 'Profile_Panels(2)' p% win_flag = s% pg% Profile_Panels_win_flag(2) p% win_width = s% pg% Profile_Panels_win_width(2) @@ -331,6 +343,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Profile_Panels3) p% plot => Profile_Panels_plot p% id = i_Profile_Panels3 + p% array_ix = 3 p% name = 'Profile_Panels(3)' p% win_flag = s% pg% Profile_Panels_win_flag(3) p% win_width = s% pg% Profile_Panels_win_width(3) @@ -345,6 +358,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Profile_Panels4) p% plot => Profile_Panels_plot p% id = i_Profile_Panels4 + p% array_ix = 4 p% name = 'Profile_Panels(4)' p% win_flag = s% pg% Profile_Panels_win_flag(4) p% win_width = s% pg% Profile_Panels_win_width(4) @@ -359,6 +373,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Profile_Panels5) p% plot => Profile_Panels_plot p% id = i_Profile_Panels5 + p% array_ix = 5 p% name = 'Profile_Panels(5)' p% win_flag = s% pg% Profile_Panels_win_flag(5) p% win_width = s% pg% Profile_Panels_win_width(5) @@ -373,6 +388,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Profile_Panels6) p% plot => Profile_Panels_plot p% id = i_Profile_Panels6 + p% array_ix = 6 p% name = 'Profile_Panels(6)' p% win_flag = s% pg% Profile_Panels_win_flag(6) p% win_width = s% pg% Profile_Panels_win_width(6) @@ -387,6 +403,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Profile_Panels7) p% plot => Profile_Panels_plot p% id = i_Profile_Panels7 + p% array_ix = 7 p% name = 'Profile_Panels(7)' p% win_flag = s% pg% Profile_Panels_win_flag(7) p% win_width = s% pg% Profile_Panels_win_width(7) @@ -401,6 +418,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Profile_Panels8) p% plot => Profile_Panels_plot p% id = i_Profile_Panels8 + p% array_ix = 8 p% name = 'Profile_Panels(8)' p% win_flag = s% pg% Profile_Panels_win_flag(8) p% win_width = s% pg% Profile_Panels_win_width(8) @@ -415,6 +433,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Profile_Panels9) p% plot => Profile_Panels_plot p% id = i_Profile_Panels9 + p% array_ix = 9 p% name = 'Profile_Panels(9)' p% win_flag = s% pg% Profile_Panels_win_flag(9) p% win_width = s% pg% Profile_Panels_win_width(9) @@ -429,6 +448,7 @@ subroutine set_win_file_data(s, ierr) 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 @@ -443,6 +463,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 @@ -457,6 +478,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 @@ -471,6 +493,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 @@ -485,6 +508,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 @@ -499,6 +523,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 @@ -513,6 +538,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 @@ -527,6 +553,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 @@ -541,6 +568,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 @@ -555,6 +583,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 @@ -569,6 +598,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 @@ -583,6 +613,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 @@ -597,6 +628,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 @@ -611,6 +643,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 @@ -625,6 +658,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 @@ -639,6 +673,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 @@ -653,6 +688,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 @@ -667,6 +703,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Hist_Panels1) p% plot => History_Panels_plot p% id = i_Hist_Panels1 + p% array_ix = 1 p% name = 'History_Panels(1)' p% win_flag = s% pg% History_Panels_win_flag(1) p% win_width = s% pg% History_Panels_win_width(1) @@ -681,6 +718,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Hist_Panels2) p% plot => History_Panels_plot p% id = i_Hist_Panels2 + p% array_ix = 2 p% name = 'History_Panels(2)' p% win_flag = s% pg% History_Panels_win_flag(2) p% win_width = s% pg% History_Panels_win_width(2) @@ -695,6 +733,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Hist_Panels3) p% plot => History_Panels_plot p% id = i_Hist_Panels3 + p% array_ix = 3 p% name = 'History_Panels(3)' p% win_flag = s% pg% History_Panels_win_flag(3) p% win_width = s% pg% History_Panels_win_width(3) @@ -709,6 +748,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Hist_Panels4) p% plot => History_Panels_plot p% id = i_Hist_Panels4 + p% array_ix = 4 p% name = 'History_Panels(4)' p% win_flag = s% pg% History_Panels_win_flag(4) p% win_width = s% pg% History_Panels_win_width(4) @@ -723,6 +763,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Hist_Panels5) p% plot => History_Panels_plot p% id = i_Hist_Panels5 + p% array_ix = 5 p% name = 'History_Panels(5)' p% win_flag = s% pg% History_Panels_win_flag(5) p% win_width = s% pg% History_Panels_win_width(5) @@ -737,6 +778,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Hist_Panels6) p% plot => History_Panels_plot p% id = i_Hist_Panels6 + p% array_ix = 6 p% name = 'History_Panels(6)' p% win_flag = s% pg% History_Panels_win_flag(6) p% win_width = s% pg% History_Panels_win_width(6) @@ -751,6 +793,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Hist_Panels7) p% plot => History_Panels_plot p% id = i_Hist_Panels7 + p% array_ix = 7 p% name = 'History_Panels(7)' p% win_flag = s% pg% History_Panels_win_flag(7) p% win_width = s% pg% History_Panels_win_width(7) @@ -765,6 +808,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Hist_Panels8) p% plot => History_Panels_plot p% id = i_Hist_Panels8 + p% array_ix = 8 p% name = 'History_Panels(8)' p% win_flag = s% pg% History_Panels_win_flag(8) p% win_width = s% pg% History_Panels_win_width(8) @@ -779,6 +823,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Hist_Panels9) p% plot => History_Panels_plot p% id = i_Hist_Panels9 + p% array_ix = 9 p% name = 'History_Panels(9)' p% win_flag = s% pg% History_Panels_win_flag(9) p% win_width = s% pg% History_Panels_win_width(9) @@ -793,6 +838,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Hist_Track1) p% plot => History_Track_plot p% id = i_Hist_Track1 + p% array_ix = 1 p% name = 'History_Track(1)' p% win_flag = s% pg% History_Track_win_flag(1) p% win_width = s% pg% History_Track_win_width(1) @@ -807,6 +853,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Hist_Track2) p% plot => History_Track_plot p% id = i_Hist_Track2 + p% array_ix = 2 p% name = 'History_Track(2)' p% win_flag = s% pg% History_Track_win_flag(2) p% win_width = s% pg% History_Track_win_width(2) @@ -821,6 +868,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Hist_Track3) p% plot => History_Track_plot p% id = i_Hist_Track3 + p% array_ix = 3 p% name = 'History_Track(3)' p% win_flag = s% pg% History_Track_win_flag(3) p% win_width = s% pg% History_Track_win_width(3) @@ -835,6 +883,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Hist_Track4) p% plot => History_Track_plot p% id = i_Hist_Track4 + p% array_ix = 4 p% name = 'History_Track(4)' p% win_flag = s% pg% History_Track_win_flag(4) p% win_width = s% pg% History_Track_win_width(4) @@ -849,6 +898,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Hist_Track5) p% plot => History_Track_plot p% id = i_Hist_Track5 + p% array_ix = 5 p% name = 'History_Track(5)' p% win_flag = s% pg% History_Track_win_flag(5) p% win_width = s% pg% History_Track_win_width(5) @@ -863,6 +913,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Hist_Track6) p% plot => History_Track_plot p% id = i_Hist_Track6 + p% array_ix = 6 p% name = 'History_Track(6)' p% win_flag = s% pg% History_Track_win_flag(6) p% win_width = s% pg% History_Track_win_width(6) @@ -877,6 +928,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Hist_Track7) p% plot => History_Track_plot p% id = i_Hist_Track7 + p% array_ix = 7 p% name = 'History_Track(7)' p% win_flag = s% pg% History_Track_win_flag(7) p% win_width = s% pg% History_Track_win_width(7) @@ -891,6 +943,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Hist_Track8) p% plot => History_Track_plot p% id = i_Hist_Track8 + p% array_ix = 8 p% name = 'History_Track(8)' p% win_flag = s% pg% History_Track_win_flag(8) p% win_width = s% pg% History_Track_win_width(8) @@ -905,6 +958,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Hist_Track9) p% plot => History_Track_plot p% id = i_Hist_Track9 + p% array_ix = 9 p% name = 'History_Track(9)' p% win_flag = s% pg% History_Track_win_flag(9) p% win_width = s% pg% History_Track_win_width(9) @@ -919,6 +973,7 @@ subroutine set_win_file_data(s, ierr) 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 @@ -933,6 +988,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 @@ -947,6 +1003,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 @@ -961,6 +1018,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 @@ -975,6 +1033,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 @@ -989,6 +1048,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 @@ -1003,6 +1063,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Col_Mag1) p% plot => Color_Magnitude_plot p% id = i_Col_Mag1 + p% array_ix = 1 p% name = 'Color_Magnitude(1)' p% win_flag = s% pg% Color_Magnitude_win_flag(1) p% win_width = s% pg% Color_Magnitude_win_width(1) @@ -1017,6 +1078,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Col_Mag2) p% plot => Color_Magnitude_plot p% id = i_Col_Mag2 + p% array_ix = 2 p% name = 'Color_Magnitude(2)' p% win_flag = s% pg% Color_Magnitude_win_flag(2) p% win_width = s% pg% Color_Magnitude_win_width(2) @@ -1031,6 +1093,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Col_Mag3) p% plot => Color_Magnitude_plot p% id = i_Col_Mag3 + p% array_ix = 3 p% name = 'Color_Magnitude(3)' p% win_flag = s% pg% Color_Magnitude_win_flag(3) p% win_width = s% pg% Color_Magnitude_win_width(3) @@ -1045,6 +1108,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Col_Mag4) p% plot => Color_Magnitude_plot p% id = i_Col_Mag4 + p% array_ix = 4 p% name = 'Color_Magnitude(4)' p% win_flag = s% pg% Color_Magnitude_win_flag(4) p% win_width = s% pg% Color_Magnitude_win_width(4) @@ -1059,6 +1123,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Col_Mag5) p% plot => Color_Magnitude_plot p% id = i_Col_Mag5 + p% array_ix = 5 p% name = 'Color_Magnitude(5)' p% win_flag = s% pg% Color_Magnitude_win_flag(5) p% win_width = s% pg% Color_Magnitude_win_width(5) @@ -1073,6 +1138,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Col_Mag6) p% plot => Color_Magnitude_plot p% id = i_Col_Mag6 + p% array_ix = 6 p% name = 'Color_Magnitude(6)' p% win_flag = s% pg% Color_Magnitude_win_flag(6) p% win_width = s% pg% Color_Magnitude_win_width(6) @@ -1087,6 +1153,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Col_Mag7) p% plot => Color_Magnitude_plot p% id = i_Col_Mag7 + p% array_ix = 7 p% name = 'Color_Magnitude(7)' p% win_flag = s% pg% Color_Magnitude_win_flag(7) p% win_width = s% pg% Color_Magnitude_win_width(7) @@ -1101,6 +1168,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Col_Mag8) p% plot => Color_Magnitude_plot p% id = i_Col_Mag8 + p% array_ix = 8 p% name = 'Color_Magnitude(8)' p% win_flag = s% pg% Color_Magnitude_win_flag(8) p% win_width = s% pg% Color_Magnitude_win_width(8) @@ -1115,6 +1183,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Col_Mag9) p% plot => Color_Magnitude_plot p% id = i_Col_Mag9 + p% array_ix = 9 p% name = 'Color_Magnitude(9)' p% win_flag = s% pg% Color_Magnitude_win_flag(9) p% win_width = s% pg% Color_Magnitude_win_width(9) @@ -1129,6 +1198,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Grid1) p% plot => grid_plot p% id = i_Grid1 + p% array_ix = 1 p% name = 'Grid(1)' p% win_flag = s% pg% Grid_win_flag(1) p% win_width = s% pg% Grid_win_width(1) @@ -1143,6 +1213,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Grid2) p% plot => grid_plot p% id = i_Grid2 + p% array_ix = 2 p% name = 'Grid(2)' p% win_flag = s% pg% Grid_win_flag(2) p% win_width = s% pg% Grid_win_width(2) @@ -1157,6 +1228,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Grid3) p% plot => grid_plot p% id = i_Grid3 + p% array_ix = 3 p% name = 'Grid(3)' p% win_flag = s% pg% Grid_win_flag(3) p% win_width = s% pg% Grid_win_width(3) @@ -1171,6 +1243,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Grid4) p% plot => grid_plot p% id = i_Grid4 + p% array_ix = 4 p% name = 'Grid(4)' p% win_flag = s% pg% Grid_win_flag(4) p% win_width = s% pg% Grid_win_width(4) @@ -1185,6 +1258,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Grid5) p% plot => grid_plot p% id = i_Grid5 + p% array_ix = 5 p% name = 'Grid(5)' p% win_flag = s% pg% Grid_win_flag(5) p% win_width = s% pg% Grid_win_width(5) @@ -1199,6 +1273,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Grid6) p% plot => grid_plot p% id = i_Grid6 + p% array_ix = 6 p% name = 'Grid(6)' p% win_flag = s% pg% Grid_win_flag(6) p% win_width = s% pg% Grid_win_width(6) @@ -1213,6 +1288,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Grid7) p% plot => grid_plot p% id = i_Grid7 + p% array_ix = 7 p% name = 'Grid(7)' p% win_flag = s% pg% Grid_win_flag(7) p% win_width = s% pg% Grid_win_width(7) @@ -1227,6 +1303,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Grid8) p% plot => grid_plot p% id = i_Grid8 + p% array_ix = 8 p% name = 'Grid(8)' p% win_flag = s% pg% Grid_win_flag(8) p% win_width = s% pg% Grid_win_width(8) @@ -1241,6 +1318,7 @@ subroutine set_win_file_data(s, ierr) p => s% pg% pgstar_win_file_ptr(i_Grid9) p% plot => grid_plot p% id = i_Grid9 + p% array_ix = 9 p% name = 'Grid(9)' p% win_flag = s% pg% Grid_win_flag(9) p% win_width = s% pg% Grid_win_width(9) @@ -1405,14 +1483,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 @@ -1424,13 +1502,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) & diff --git a/star/private/pgstar_grid.f90 b/star/private/pgstar_grid.f90 index 62e8c2d85..21cdf3f0c 100644 --- a/star/private/pgstar_grid.f90 +++ b/star/private/pgstar_grid.f90 @@ -35,9 +35,8 @@ module pgstar_grid contains - subroutine grid_plot(id, device_id, ierr, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 diff --git a/star/private/pgstar_hist_track.f90 b/star/private/pgstar_hist_track.f90 index 3cc883c0a..a9ae7a6bf 100644 --- a/star/private/pgstar_hist_track.f90 +++ b/star/private/pgstar_hist_track.f90 @@ -36,9 +36,8 @@ module pgstar_hist_track contains - subroutine History_Track_plot(id, device_id, ierr, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 diff --git a/star/private/pgstar_history_panels.f90 b/star/private/pgstar_history_panels.f90 index b1260ee84..1d0c45b60 100644 --- a/star/private/pgstar_history_panels.f90 +++ b/star/private/pgstar_history_panels.f90 @@ -36,9 +36,8 @@ module pgstar_history_panels contains - subroutine History_Panels_plot(id, device_id, ierr, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 diff --git a/star/private/pgstar_hr.f90 b/star/private/pgstar_hr.f90 index 0a265b353..689fac052 100644 --- a/star/private/pgstar_hr.f90 +++ b/star/private/pgstar_hr.f90 @@ -36,9 +36,8 @@ module pgstar_HR contains - subroutine HR_Plot(id, device_id, ierr, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 330055272..5e08dbf95 100644 --- a/star/private/pgstar_kipp.f90 +++ b/star/private/pgstar_kipp.f90 @@ -36,9 +36,8 @@ module pgstar_kipp contains - subroutine Kipp_Plot(id, device_id, ierr, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 16442811c..f50ea416e 100644 --- a/star/private/pgstar_l_r.f90 +++ b/star/private/pgstar_l_r.f90 @@ -36,9 +36,8 @@ module pgstar_l_r contains - subroutine L_r_Plot(id, device_id, ierr, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 b2fbbd017..44be024ea 100644 --- a/star/private/pgstar_l_teff.f90 +++ b/star/private/pgstar_l_teff.f90 @@ -36,9 +36,8 @@ module pgstar_l_teff contains - subroutine L_Teff_Plot(id, device_id, ierr, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 8db7931c8..75836bc95 100644 --- a/star/private/pgstar_l_v.f90 +++ b/star/private/pgstar_l_v.f90 @@ -36,9 +36,8 @@ module pgstar_l_v contains - subroutine L_v_Plot(id, device_id, ierr, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 1c746cbc4..f70988425 100644 --- a/star/private/pgstar_logg_logt.f90 +++ b/star/private/pgstar_logg_logt.f90 @@ -36,9 +36,8 @@ module pgstar_logg_logT contains - subroutine logg_logT_Plot(id, device_id, ierr, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 a1adccd88..75a627124 100644 --- a/star/private/pgstar_logg_teff.f90 +++ b/star/private/pgstar_logg_teff.f90 @@ -36,9 +36,8 @@ module pgstar_logg_Teff contains - subroutine logg_Teff_Plot(id, device_id, ierr, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 c5e30ce63..d6e2d89f0 100644 --- a/star/private/pgstar_logl_r.f90 +++ b/star/private/pgstar_logl_r.f90 @@ -36,9 +36,8 @@ module pgstar_logl_r contains - subroutine logL_R_Plot(id, device_id, ierr, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 b9fd06291..6761bef67 100644 --- a/star/private/pgstar_logl_teff.f90 +++ b/star/private/pgstar_logl_teff.f90 @@ -36,9 +36,8 @@ module pgstar_logL_Teff contains - subroutine logL_Teff_Plot(id, device_id, ierr, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 b1db6ac69..24bef6efe 100644 --- a/star/private/pgstar_logl_v.f90 +++ b/star/private/pgstar_logl_v.f90 @@ -36,9 +36,8 @@ module pgstar_logl_v contains - subroutine logL_v_Plot(id, device_id, ierr, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 87bc19540..7f3f1055d 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, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 diff --git a/star/private/pgstar_mode_prop.f90 b/star/private/pgstar_mode_prop.f90 index aa30ef987..cc171597f 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, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 9179ce82f..d3e244d8f 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, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 59d3e22e4..52a7de0df 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, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 528b7b6e8..65bff4f98 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, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 fad97f7e3..c4a5cafe5 100644 --- a/star/private/pgstar_profile_panels.f90 +++ b/star/private/pgstar_profile_panels.f90 @@ -37,9 +37,8 @@ module pgstar_profile_panels contains - subroutine Profile_Panels_plot(id, device_id, ierr, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 diff --git a/star/private/pgstar_r_l.f90 b/star/private/pgstar_r_l.f90 index 65e26eaef..86d4cc1e1 100644 --- a/star/private/pgstar_r_l.f90 +++ b/star/private/pgstar_r_l.f90 @@ -36,9 +36,8 @@ module pgstar_r_l contains - subroutine R_L_Plot(id, device_id, ierr, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 bd08212dd..f7b7c76f0 100644 --- a/star/private/pgstar_r_teff.f90 +++ b/star/private/pgstar_r_teff.f90 @@ -36,9 +36,8 @@ module pgstar_r_teff contains - subroutine R_Teff_Plot(id, device_id, ierr, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 884f7f652..4b6772a74 100644 --- a/star/private/pgstar_rti.f90 +++ b/star/private/pgstar_rti.f90 @@ -36,9 +36,8 @@ module pgstar_rti contains - subroutine rti_Plot(id, device_id, ierr, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 2eb187c12..3742ad916 100644 --- a/star/private/pgstar_summary.f90 +++ b/star/private/pgstar_summary.f90 @@ -36,9 +36,8 @@ module pgstar_summary contains - subroutine Text_Summary_plot(id, device_id, ierr, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 diff --git a/star/private/pgstar_summary_burn.f90 b/star/private/pgstar_summary_burn.f90 index 4be9106bc..e73d7a9f7 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, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 b35c17b83..26cb94426 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, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 e42b60e28..555afd242 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, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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_tmaxrho.f90 b/star/private/pgstar_tmaxrho.f90 index 240f08279..57543c810 100644 --- a/star/private/pgstar_tmaxrho.f90 +++ b/star/private/pgstar_tmaxrho.f90 @@ -36,9 +36,8 @@ module pgstar_tmaxrho contains - subroutine TmaxRho_Plot(id, device_id, ierr, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 e45870deb..ed2e2e39c 100644 --- a/star/private/pgstar_trho.f90 +++ b/star/private/pgstar_trho.f90 @@ -36,9 +36,8 @@ module pgstar_trho contains - subroutine TRho_Plot(id, device_id, ierr, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 83b841511..b875c0216 100644 --- a/star/private/pgstar_trho_profile.f90 +++ b/star/private/pgstar_trho_profile.f90 @@ -36,9 +36,8 @@ module pgstar_trho_profile contains - subroutine TRho_Profile_plot(id, device_id, ierr, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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_data/public/star_pgstar.f90 b/star_data/public/star_pgstar.f90 index f4a2341ee..8763e3da3 100644 --- a/star_data/public/star_pgstar.f90 +++ b/star_data/public/star_pgstar.f90 @@ -35,9 +35,8 @@ module star_pgstar abstract interface - subroutine pgstar_plot_interface(id, device_id, ierr, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 @@ -59,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 From 9db0ce634497a3e98e2f545847c3001107740da7 Mon Sep 17 00:00:00 2001 From: Matthias Fabry Date: Tue, 13 Jun 2023 14:46:22 +0200 Subject: [PATCH 09/27] [ci skip] remove present() statements; pgstar_summary.f90 also needs array_ix --- star/private/pgstar_color_magnitude.f90 | 5 ----- star/private/pgstar_grid.f90 | 6 ------ star/private/pgstar_hist_track.f90 | 5 ----- star/private/pgstar_history_panels.f90 | 5 ----- star/private/pgstar_profile_panels.f90 | 5 ----- star/private/pgstar_summary.f90 | 5 ----- star/private/pgstar_support.f90 | 2 +- 7 files changed, 1 insertion(+), 32 deletions(-) diff --git a/star/private/pgstar_color_magnitude.f90 b/star/private/pgstar_color_magnitude.f90 index 3ea60d08d..c558edd72 100644 --- a/star/private/pgstar_color_magnitude.f90 +++ b/star/private/pgstar_color_magnitude.f90 @@ -42,11 +42,6 @@ subroutine Color_Magnitude_plot(id, device_id, array_ix, ierr) type (star_info), pointer :: s ierr = 0 - if (.not. present(array_ix)) then - ierr = -1 - return - end if - call get_star_ptr(id, s, ierr) if (ierr /= 0) return call pgslct(device_id) diff --git a/star/private/pgstar_grid.f90 b/star/private/pgstar_grid.f90 index 21cdf3f0c..d9cc6edc2 100644 --- a/star/private/pgstar_grid.f90 +++ b/star/private/pgstar_grid.f90 @@ -41,12 +41,6 @@ subroutine grid_plot(id, device_id, array_ix, ierr) type (star_info), pointer :: s ierr = 0 - - if (.not. present(array_ix)) then - ierr = -1 - return - end if - call get_star_ptr(id, s, ierr) if (ierr /= 0) return diff --git a/star/private/pgstar_hist_track.f90 b/star/private/pgstar_hist_track.f90 index a9ae7a6bf..06fb289dc 100644 --- a/star/private/pgstar_hist_track.f90 +++ b/star/private/pgstar_hist_track.f90 @@ -41,11 +41,6 @@ subroutine History_Track_plot(id, device_id, array_ix, ierr) integer, intent(out) :: ierr type (star_info), pointer :: s - if (.not. present(array_ix)) then - ierr = -1 - return - end if - ierr = 0 call get_star_ptr(id, s, ierr) if (ierr /= 0) return diff --git a/star/private/pgstar_history_panels.f90 b/star/private/pgstar_history_panels.f90 index 1d0c45b60..7ecd1fb0e 100644 --- a/star/private/pgstar_history_panels.f90 +++ b/star/private/pgstar_history_panels.f90 @@ -41,11 +41,6 @@ subroutine History_Panels_plot(id, device_id, array_ix, ierr) integer, intent(out) :: ierr type (star_info), pointer :: s - if (.not. present(array_ix)) then - ierr = -1 - return - end if - ierr = 0 call get_star_ptr(id, s, ierr) if (ierr /= 0) return diff --git a/star/private/pgstar_profile_panels.f90 b/star/private/pgstar_profile_panels.f90 index c4a5cafe5..4fede498e 100644 --- a/star/private/pgstar_profile_panels.f90 +++ b/star/private/pgstar_profile_panels.f90 @@ -42,11 +42,6 @@ subroutine Profile_Panels_plot(id, device_id, array_ix, ierr) integer, intent(out) :: ierr type (star_info), pointer :: s - if (.not. present(array_ix)) then - ierr = -1 - return - end if - ierr = 0 call get_star_ptr(id, s, ierr) if (ierr /= 0) return diff --git a/star/private/pgstar_summary.f90 b/star/private/pgstar_summary.f90 index 3742ad916..ce0573513 100644 --- a/star/private/pgstar_summary.f90 +++ b/star/private/pgstar_summary.f90 @@ -41,11 +41,6 @@ subroutine Text_Summary_plot(id, device_id, array_ix, ierr) integer, intent(out) :: ierr type (star_info), pointer :: s - if (.not. present(array_ix)) then - ierr = -1 - return - end if - ierr = 0 call get_star_ptr(id, s, ierr) if (ierr /= 0) return diff --git a/star/private/pgstar_support.f90 b/star/private/pgstar_support.f90 index af26b7c92..87576c228 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. From bee225cd3980c5bf4e9832de09cd2c02d737feb4 Mon Sep 17 00:00:00 2001 From: Matthias Fabry Date: Tue, 13 Jun 2023 14:49:39 +0200 Subject: [PATCH 10/27] [ci skip] array_ix change in other pgstar plot --- star/other/sample_pgstar_plot.f90 | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/star/other/sample_pgstar_plot.f90 b/star/other/sample_pgstar_plot.f90 index 8b66eb714..6e9502cb8 100644 --- a/star/other/sample_pgstar_plot.f90 +++ b/star/other/sample_pgstar_plot.f90 @@ -174,9 +174,8 @@ subroutine read_my_pgstar_namelist(filename, ierr) end subroutine read_my_pgstar_namelist - subroutine my_plot(id, device_id, ierr, array_ix) - integer, intent(in) :: id, device_id - integer, intent(in), optional :: array_ix + 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 From c2fd68bff531762a0776dab710cd3a738e6445e9 Mon Sep 17 00:00:00 2001 From: Matthias Fabry Date: Tue, 13 Jun 2023 15:16:17 +0200 Subject: [PATCH 11/27] [ci skip] fix to defaults --- star/defaults/pgstar.defaults | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/star/defaults/pgstar.defaults b/star/defaults/pgstar.defaults index 7711b896a..c4222defb 100644 --- a/star/defaults/pgstar.defaults +++ b/star/defaults/pgstar.defaults @@ -3526,7 +3526,7 @@ ! :: - Grid_plot_name(1, 4) = 'Text_Summary1' + 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 @@ -3592,7 +3592,7 @@ ! :: - Grid_plot_name(2, 4) = 'Text_Summary1' + 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 From 21bbeda4780c199a54d79b9e47321b951e8b6418 Mon Sep 17 00:00:00 2001 From: Matthias Fabry Date: Tue, 13 Jun 2023 15:18:46 +0200 Subject: [PATCH 12/27] testing commit --- star/private/pgstar_ctrls_io.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/star/private/pgstar_ctrls_io.f90 b/star/private/pgstar_ctrls_io.f90 index 96c06b209..c2a12ad52 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 From 3e926ce718c6bb54c60fb95262f7b1bdbaa96452 Mon Sep 17 00:00:00 2001 From: Matthias Fabry Date: Tue, 13 Jun 2023 15:51:56 +0200 Subject: [PATCH 13/27] adapt pgbinary for arrayified pgstar --- binary/private/pgbinary_star.f90 | 527 +++++++++++++++---------------- 1 file changed, 257 insertions(+), 270 deletions(-) diff --git a/binary/private/pgbinary_star.f90 b/binary/private/pgbinary_star.f90 index 32375a39a..0e733e26f 100644 --- a/binary/private/pgbinary_star.f90 +++ b/binary/private/pgbinary_star.f90 @@ -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 @@ -131,26 +129,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 @@ -240,322 +223,326 @@ 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 ('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. @@ -603,12 +590,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' From 0c9c994eccc3610dee7556e9416a8c37921a9a3c Mon Sep 17 00:00:00 2001 From: Matthias Fabry Date: Wed, 14 Jun 2023 15:03:34 +0200 Subject: [PATCH 14/27] adapt astero for arrayified pgstar --- astero/private/pgstar_astero_plots.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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 From 9aa83a77d3181a5a441729db5f7b58d32063199d Mon Sep 17 00:00:00 2001 From: Matthias Fabry Date: Wed, 14 Jun 2023 15:23:19 +0200 Subject: [PATCH 15/27] eliminate superfluous indices for counting number of plots --- star/private/pgstar_full.f90 | 999 +++++-------------------------- star_data/public/star_pgstar.f90 | 70 +-- 2 files changed, 158 insertions(+), 911 deletions(-) diff --git a/star/private/pgstar_full.f90 b/star/private/pgstar_full.f90 index 5c270bc33..5b5d6d566 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,180 +120,64 @@ 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 : 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 + 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_Summary_Plot - p% id = i_Text_Summary1 - p% array_ix = 1 - p% name = 'Text_Summary(1)' - p% win_flag = s% pg% Text_Summary_win_flag(1) - p% win_width = s% pg% Text_Summary_win_width(1) - p% win_aspect_ratio = s% pg% Text_Summary_win_aspect_ratio(1) - p% file_flag = s% pg% Text_Summary_file_flag(1) - p% file_dir = s% pg% Text_Summary_file_dir(1) - p% file_prefix = s% pg% Text_Summary_file_prefix(1) - p% file_interval = s% pg% Text_Summary_file_interval(1) - p% file_width = s% pg% Text_Summary_file_width(1) - p% file_aspect_ratio = s% pg% Text_Summary_file_aspect_ratio(1) - - p => s% pg% pgstar_win_file_ptr(i_Text_Summary2) - p% plot => Text_Summary_Plot - p% id = i_Text_Summary2 - p% array_ix = 2 - p% name = 'Text_Summary(2)' - p% win_flag = s% pg% Text_Summary_win_flag(2) - p% win_width = s% pg% Text_Summary_win_width(2) - p% win_aspect_ratio = s% pg% Text_Summary_win_aspect_ratio(2) - p% file_flag = s% pg% Text_Summary_file_flag(2) - p% file_dir = s% pg% Text_Summary_file_dir(2) - p% file_prefix = s% pg% Text_Summary_file_prefix(2) - p% file_interval = s% pg% Text_Summary_file_interval(2) - p% file_width = s% pg% Text_Summary_file_width(2) - p% file_aspect_ratio = s% pg% Text_Summary_file_aspect_ratio(2) - - p => s% pg% pgstar_win_file_ptr(i_Text_Summary3) - p% plot => Text_Summary_Plot - p% id = i_Text_Summary3 - p% array_ix = 3 - p% name = 'Text_Summary(3)' - p% win_flag = s% pg% Text_Summary_win_flag(3) - p% win_width = s% pg% Text_Summary_win_width(3) - p% win_aspect_ratio = s% pg% Text_Summary_win_aspect_ratio(3) - p% file_flag = s% pg% Text_Summary_file_flag(3) - p% file_dir = s% pg% Text_Summary_file_dir(3) - p% file_prefix = s% pg% Text_Summary_file_prefix(3) - p% file_interval = s% pg% Text_Summary_file_interval(3) - p% file_width = s% pg% Text_Summary_file_width(3) - p% file_aspect_ratio = s% pg% Text_Summary_file_aspect_ratio(3) - - p => s% pg% pgstar_win_file_ptr(i_Text_Summary4) - p% plot => Text_Summary_Plot - p% id = i_Text_Summary4 - p% array_ix = 4 - p% name = 'Text_Summary(4)' - p% win_flag = s% pg% Text_Summary_win_flag(4) - p% win_width = s% pg% Text_Summary_win_width(4) - p% win_aspect_ratio = s% pg% Text_Summary_win_aspect_ratio(4) - p% file_flag = s% pg% Text_Summary_file_flag(4) - p% file_dir = s% pg% Text_Summary_file_dir(4) - p% file_prefix = s% pg% Text_Summary_file_prefix(4) - p% file_interval = s% pg% Text_Summary_file_interval(4) - p% file_width = s% pg% Text_Summary_file_width(4) - p% file_aspect_ratio = s% pg% Text_Summary_file_aspect_ratio(4) - - p => s% pg% pgstar_win_file_ptr(i_Text_Summary5) - p% plot => Text_Summary_Plot - p% id = i_Text_Summary5 - p% array_ix = 5 - p% name = 'Text_Summary(5)' - p% win_flag = s% pg% Text_Summary_win_flag(5) - p% win_width = s% pg% Text_Summary_win_width(5) - p% win_aspect_ratio = s% pg% Text_Summary_win_aspect_ratio(5) - p% file_flag = s% pg% Text_Summary_file_flag(5) - p% file_dir = s% pg% Text_Summary_file_dir(5) - p% file_prefix = s% pg% Text_Summary_file_prefix(5) - p% file_interval = s% pg% Text_Summary_file_interval(5) - p% file_width = s% pg% Text_Summary_file_width(5) - p% file_aspect_ratio = s% pg% Text_Summary_file_aspect_ratio(5) - - p => s% pg% pgstar_win_file_ptr(i_Text_Summary6) - p% plot => Text_Summary_Plot - p% id = i_Text_Summary6 - p% array_ix = 6 - p% name = 'Text_Summary(6)' - p% win_flag = s% pg% Text_Summary_win_flag(6) - p% win_width = s% pg% Text_Summary_win_width(6) - p% win_aspect_ratio = s% pg% Text_Summary_win_aspect_ratio(6) - p% file_flag = s% pg% Text_Summary_file_flag(6) - p% file_dir = s% pg% Text_Summary_file_dir(6) - p% file_prefix = s% pg% Text_Summary_file_prefix(6) - p% file_interval = s% pg% Text_Summary_file_interval(6) - p% file_width = s% pg% Text_Summary_file_width(6) - p% file_aspect_ratio = s% pg% Text_Summary_file_aspect_ratio(6) - - p => s% pg% pgstar_win_file_ptr(i_Text_Summary7) - p% plot => Text_Summary_Plot - p% id = i_Text_Summary7 - p% array_ix = 7 - p% name = 'Text_Summary(7)' - p% win_flag = s% pg% Text_Summary_win_flag(7) - p% win_width = s% pg% Text_Summary_win_width(7) - p% win_aspect_ratio = s% pg% Text_Summary_win_aspect_ratio(7) - p% file_flag = s% pg% Text_Summary_file_flag(7) - p% file_dir = s% pg% Text_Summary_file_dir(7) - p% file_prefix = s% pg% Text_Summary_file_prefix(7) - p% file_interval = s% pg% Text_Summary_file_interval(7) - p% file_width = s% pg% Text_Summary_file_width(7) - p% file_aspect_ratio = s% pg% Text_Summary_file_aspect_ratio(7) - - p => s% pg% pgstar_win_file_ptr(i_Text_Summary8) - p% plot => Text_Summary_Plot - p% id = i_Text_Summary8 - p% array_ix = 8 - p% name = 'Text_Summary(8)' - p% win_flag = s% pg% Text_Summary_win_flag(8) - p% win_width = s% pg% Text_Summary_win_width(8) - p% win_aspect_ratio = s% pg% Text_Summary_win_aspect_ratio(8) - p% file_flag = s% pg% Text_Summary_file_flag(8) - p% file_dir = s% pg% Text_Summary_file_dir(8) - p% file_prefix = s% pg% Text_Summary_file_prefix(8) - p% file_interval = s% pg% Text_Summary_file_interval(8) - p% file_width = s% pg% Text_Summary_file_width(8) - p% file_aspect_ratio = s% pg% Text_Summary_file_aspect_ratio(8) - - p => s% pg% pgstar_win_file_ptr(i_Text_Summary9) - p% plot => Text_Summary_Plot - p% id = i_Text_Summary9 - p% array_ix = 9 - p% name = 'Text_Summary(9)' - p% win_flag = s% pg% Text_Summary_win_flag(9) - p% win_width = s% pg% Text_Summary_win_width(9) - p% win_aspect_ratio = s% pg% Text_Summary_win_aspect_ratio(9) - p% file_flag = s% pg% Text_Summary_file_flag(9) - p% file_dir = s% pg% Text_Summary_file_dir(9) - p% file_prefix = s% pg% Text_Summary_file_prefix(9) - p% file_interval = s% pg% Text_Summary_file_interval(9) - p% file_width = s% pg% Text_Summary_file_width(9) - p% file_aspect_ratio = s% pg% Text_Summary_file_aspect_ratio(9) + 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 @@ -310,140 +194,23 @@ 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_Panels_plot - p% id = i_Profile_Panels1 - p% array_ix = 1 - p% name = 'Profile_Panels(1)' - p% win_flag = s% pg% Profile_Panels_win_flag(1) - p% win_width = s% pg% Profile_Panels_win_width(1) - p% win_aspect_ratio = s% pg% Profile_Panels_win_aspect_ratio(1) - p% file_flag = s% pg% Profile_Panels_file_flag(1) - p% file_dir = s% pg% Profile_Panels_file_dir(1) - p% file_prefix = s% pg% Profile_Panels_file_prefix(1) - p% file_interval = s% pg% Profile_Panels_file_interval(1) - p% file_width = s% pg% Profile_Panels_file_width(1) - p% file_aspect_ratio = s% pg% Profile_Panels_file_aspect_ratio(1) - - p => s% pg% pgstar_win_file_ptr(i_Profile_Panels2) - p% plot => Profile_Panels_plot - p% id = i_Profile_Panels2 - p% array_ix = 2 - p% name = 'Profile_Panels(2)' - p% win_flag = s% pg% Profile_Panels_win_flag(2) - p% win_width = s% pg% Profile_Panels_win_width(2) - p% win_aspect_ratio = s% pg% Profile_Panels_win_aspect_ratio(2) - p% file_flag = s% pg% Profile_Panels_file_flag(2) - p% file_dir = s% pg% Profile_Panels_file_dir(2) - p% file_prefix = s% pg% Profile_Panels_file_prefix(2) - p% file_interval = s% pg% Profile_Panels_file_interval(2) - p% file_width = s% pg% Profile_Panels_file_width(2) - p% file_aspect_ratio = s% pg% Profile_Panels_file_aspect_ratio(2) - - p => s% pg% pgstar_win_file_ptr(i_Profile_Panels3) - p% plot => Profile_Panels_plot - p% id = i_Profile_Panels3 - p% array_ix = 3 - p% name = 'Profile_Panels(3)' - p% win_flag = s% pg% Profile_Panels_win_flag(3) - p% win_width = s% pg% Profile_Panels_win_width(3) - p% win_aspect_ratio = s% pg% Profile_Panels_win_aspect_ratio(3) - p% file_flag = s% pg% Profile_Panels_file_flag(3) - p% file_dir = s% pg% Profile_Panels_file_dir(3) - p% file_prefix = s% pg% Profile_Panels_file_prefix(3) - p% file_interval = s% pg% Profile_Panels_file_interval(3) - p% file_width = s% pg% Profile_Panels_file_width(3) - p% file_aspect_ratio = s% pg% Profile_Panels_file_aspect_ratio(3) - - p => s% pg% pgstar_win_file_ptr(i_Profile_Panels4) - p% plot => Profile_Panels_plot - p% id = i_Profile_Panels4 - p% array_ix = 4 - p% name = 'Profile_Panels(4)' - p% win_flag = s% pg% Profile_Panels_win_flag(4) - p% win_width = s% pg% Profile_Panels_win_width(4) - p% win_aspect_ratio = s% pg% Profile_Panels_win_aspect_ratio(4) - p% file_flag = s% pg% Profile_Panels_file_flag(4) - p% file_dir = s% pg% Profile_Panels_file_dir(4) - p% file_prefix = s% pg% Profile_Panels_file_prefix(4) - p% file_interval = s% pg% Profile_Panels_file_interval(4) - p% file_width = s% pg% Profile_Panels_file_width(4) - p% file_aspect_ratio = s% pg% Profile_Panels_file_aspect_ratio(4) - - p => s% pg% pgstar_win_file_ptr(i_Profile_Panels5) - p% plot => Profile_Panels_plot - p% id = i_Profile_Panels5 - p% array_ix = 5 - p% name = 'Profile_Panels(5)' - p% win_flag = s% pg% Profile_Panels_win_flag(5) - p% win_width = s% pg% Profile_Panels_win_width(5) - p% win_aspect_ratio = s% pg% Profile_Panels_win_aspect_ratio(5) - p% file_flag = s% pg% Profile_Panels_file_flag(5) - p% file_dir = s% pg% Profile_Panels_file_dir(5) - p% file_prefix = s% pg% Profile_Panels_file_prefix(5) - p% file_interval = s% pg% Profile_Panels_file_interval(5) - p% file_width = s% pg% Profile_Panels_file_width(5) - p% file_aspect_ratio = s% pg% Profile_Panels_file_aspect_ratio(5) - - p => s% pg% pgstar_win_file_ptr(i_Profile_Panels6) - p% plot => Profile_Panels_plot - p% id = i_Profile_Panels6 - p% array_ix = 6 - p% name = 'Profile_Panels(6)' - p% win_flag = s% pg% Profile_Panels_win_flag(6) - p% win_width = s% pg% Profile_Panels_win_width(6) - p% win_aspect_ratio = s% pg% Profile_Panels_win_aspect_ratio(6) - p% file_flag = s% pg% Profile_Panels_file_flag(6) - p% file_dir = s% pg% Profile_Panels_file_dir(6) - p% file_prefix = s% pg% Profile_Panels_file_prefix(6) - p% file_interval = s% pg% Profile_Panels_file_interval(6) - p% file_width = s% pg% Profile_Panels_file_width(6) - p% file_aspect_ratio = s% pg% Profile_Panels_file_aspect_ratio(6) - - p => s% pg% pgstar_win_file_ptr(i_Profile_Panels7) - p% plot => Profile_Panels_plot - p% id = i_Profile_Panels7 - p% array_ix = 7 - p% name = 'Profile_Panels(7)' - p% win_flag = s% pg% Profile_Panels_win_flag(7) - p% win_width = s% pg% Profile_Panels_win_width(7) - p% win_aspect_ratio = s% pg% Profile_Panels_win_aspect_ratio(7) - p% file_flag = s% pg% Profile_Panels_file_flag(7) - p% file_dir = s% pg% Profile_Panels_file_dir(7) - p% file_prefix = s% pg% Profile_Panels_file_prefix(7) - p% file_interval = s% pg% Profile_Panels_file_interval(7) - p% file_width = s% pg% Profile_Panels_file_width(7) - p% file_aspect_ratio = s% pg% Profile_Panels_file_aspect_ratio(7) - - p => s% pg% pgstar_win_file_ptr(i_Profile_Panels8) - p% plot => Profile_Panels_plot - p% id = i_Profile_Panels8 - p% array_ix = 8 - p% name = 'Profile_Panels(8)' - p% win_flag = s% pg% Profile_Panels_win_flag(8) - p% win_width = s% pg% Profile_Panels_win_width(8) - p% win_aspect_ratio = s% pg% Profile_Panels_win_aspect_ratio(8) - p% file_flag = s% pg% Profile_Panels_file_flag(8) - p% file_dir = s% pg% Profile_Panels_file_dir(8) - p% file_prefix = s% pg% Profile_Panels_file_prefix(8) - p% file_interval = s% pg% Profile_Panels_file_interval(8) - p% file_width = s% pg% Profile_Panels_file_width(8) - p% file_aspect_ratio = s% pg% Profile_Panels_file_aspect_ratio(8) - - p => s% pg% pgstar_win_file_ptr(i_Profile_Panels9) - p% plot => Profile_Panels_plot - p% id = i_Profile_Panels9 - p% array_ix = 9 - p% name = 'Profile_Panels(9)' - p% win_flag = s% pg% Profile_Panels_win_flag(9) - p% win_width = s% pg% Profile_Panels_win_width(9) - p% win_aspect_ratio = s% pg% Profile_Panels_win_aspect_ratio(9) - p% file_flag = s% pg% Profile_Panels_file_flag(9) - p% file_dir = s% pg% Profile_Panels_file_dir(9) - p% file_prefix = s% pg% Profile_Panels_file_prefix(9) - p% file_interval = s% pg% Profile_Panels_file_interval(9) - p% file_width = s% pg% Profile_Panels_file_width(9) - p% file_aspect_ratio = s% pg% Profile_Panels_file_aspect_ratio(9) + 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 @@ -700,275 +467,41 @@ 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_Panels_plot - p% id = i_Hist_Panels1 - p% array_ix = 1 - p% name = 'History_Panels(1)' - p% win_flag = s% pg% History_Panels_win_flag(1) - p% win_width = s% pg% History_Panels_win_width(1) - p% win_aspect_ratio = s% pg% History_Panels_win_aspect_ratio(1) - p% file_flag = s% pg% History_Panels_file_flag(1) - p% file_dir = s% pg% History_Panels_file_dir(1) - p% file_prefix = s% pg% History_Panels_file_prefix(1) - p% file_interval = s% pg% History_Panels_file_interval(1) - p% file_width = s% pg% History_Panels_file_width(1) - p% file_aspect_ratio = s% pg% History_Panels_file_aspect_ratio(1) - - p => s% pg% pgstar_win_file_ptr(i_Hist_Panels2) - p% plot => History_Panels_plot - p% id = i_Hist_Panels2 - p% array_ix = 2 - p% name = 'History_Panels(2)' - p% win_flag = s% pg% History_Panels_win_flag(2) - p% win_width = s% pg% History_Panels_win_width(2) - p% win_aspect_ratio = s% pg% History_Panels_win_aspect_ratio(2) - p% file_flag = s% pg% History_Panels_file_flag(2) - p% file_dir = s% pg% History_Panels_file_dir(2) - p% file_prefix = s% pg% History_Panels_file_prefix(2) - p% file_interval = s% pg% History_Panels_file_interval(2) - p% file_width = s% pg% History_Panels_file_width(2) - p% file_aspect_ratio = s% pg% History_Panels_file_aspect_ratio(2) - - p => s% pg% pgstar_win_file_ptr(i_Hist_Panels3) - p% plot => History_Panels_plot - p% id = i_Hist_Panels3 - p% array_ix = 3 - p% name = 'History_Panels(3)' - p% win_flag = s% pg% History_Panels_win_flag(3) - p% win_width = s% pg% History_Panels_win_width(3) - p% win_aspect_ratio = s% pg% History_Panels_win_aspect_ratio(3) - p% file_flag = s% pg% History_Panels_file_flag(3) - p% file_dir = s% pg% History_Panels_file_dir(3) - p% file_prefix = s% pg% History_Panels_file_prefix(3) - p% file_interval = s% pg% History_Panels_file_interval(3) - p% file_width = s% pg% History_Panels_file_width(3) - p% file_aspect_ratio = s% pg% History_Panels_file_aspect_ratio(3) - - p => s% pg% pgstar_win_file_ptr(i_Hist_Panels4) - p% plot => History_Panels_plot - p% id = i_Hist_Panels4 - p% array_ix = 4 - p% name = 'History_Panels(4)' - p% win_flag = s% pg% History_Panels_win_flag(4) - p% win_width = s% pg% History_Panels_win_width(4) - p% win_aspect_ratio = s% pg% History_Panels_win_aspect_ratio(4) - p% file_flag = s% pg% History_Panels_file_flag(4) - p% file_dir = s% pg% History_Panels_file_dir(4) - p% file_prefix = s% pg% History_Panels_file_prefix(4) - p% file_interval = s% pg% History_Panels_file_interval(4) - p% file_width = s% pg% History_Panels_file_width(4) - p% file_aspect_ratio = s% pg% History_Panels_file_aspect_ratio(4) - - p => s% pg% pgstar_win_file_ptr(i_Hist_Panels5) - p% plot => History_Panels_plot - p% id = i_Hist_Panels5 - p% array_ix = 5 - p% name = 'History_Panels(5)' - p% win_flag = s% pg% History_Panels_win_flag(5) - p% win_width = s% pg% History_Panels_win_width(5) - p% win_aspect_ratio = s% pg% History_Panels_win_aspect_ratio(5) - p% file_flag = s% pg% History_Panels_file_flag(5) - p% file_dir = s% pg% History_Panels_file_dir(5) - p% file_prefix = s% pg% History_Panels_file_prefix(5) - p% file_interval = s% pg% History_Panels_file_interval(5) - p% file_width = s% pg% History_Panels_file_width(5) - p% file_aspect_ratio = s% pg% History_Panels_file_aspect_ratio(5) - - p => s% pg% pgstar_win_file_ptr(i_Hist_Panels6) - p% plot => History_Panels_plot - p% id = i_Hist_Panels6 - p% array_ix = 6 - p% name = 'History_Panels(6)' - p% win_flag = s% pg% History_Panels_win_flag(6) - p% win_width = s% pg% History_Panels_win_width(6) - p% win_aspect_ratio = s% pg% History_Panels_win_aspect_ratio(6) - p% file_flag = s% pg% History_Panels_file_flag(6) - p% file_dir = s% pg% History_Panels_file_dir(6) - p% file_prefix = s% pg% History_Panels_file_prefix(6) - p% file_interval = s% pg% History_Panels_file_interval(6) - p% file_width = s% pg% History_Panels_file_width(6) - p% file_aspect_ratio = s% pg% History_Panels_file_aspect_ratio(6) - - p => s% pg% pgstar_win_file_ptr(i_Hist_Panels7) - p% plot => History_Panels_plot - p% id = i_Hist_Panels7 - p% array_ix = 7 - p% name = 'History_Panels(7)' - p% win_flag = s% pg% History_Panels_win_flag(7) - p% win_width = s% pg% History_Panels_win_width(7) - p% win_aspect_ratio = s% pg% History_Panels_win_aspect_ratio(7) - p% file_flag = s% pg% History_Panels_file_flag(7) - p% file_dir = s% pg% History_Panels_file_dir(7) - p% file_prefix = s% pg% History_Panels_file_prefix(7) - p% file_interval = s% pg% History_Panels_file_interval(7) - p% file_width = s% pg% History_Panels_file_width(7) - p% file_aspect_ratio = s% pg% History_Panels_file_aspect_ratio(7) - - p => s% pg% pgstar_win_file_ptr(i_Hist_Panels8) - p% plot => History_Panels_plot - p% id = i_Hist_Panels8 - p% array_ix = 8 - p% name = 'History_Panels(8)' - p% win_flag = s% pg% History_Panels_win_flag(8) - p% win_width = s% pg% History_Panels_win_width(8) - p% win_aspect_ratio = s% pg% History_Panels_win_aspect_ratio(8) - p% file_flag = s% pg% History_Panels_file_flag(8) - p% file_dir = s% pg% History_Panels_file_dir(8) - p% file_prefix = s% pg% History_Panels_file_prefix(8) - p% file_interval = s% pg% History_Panels_file_interval(8) - p% file_width = s% pg% History_Panels_file_width(8) - p% file_aspect_ratio = s% pg% History_Panels_file_aspect_ratio(8) - - p => s% pg% pgstar_win_file_ptr(i_Hist_Panels9) - p% plot => History_Panels_plot - p% id = i_Hist_Panels9 - p% array_ix = 9 - p% name = 'History_Panels(9)' - p% win_flag = s% pg% History_Panels_win_flag(9) - p% win_width = s% pg% History_Panels_win_width(9) - p% win_aspect_ratio = s% pg% History_Panels_win_aspect_ratio(9) - p% file_flag = s% pg% History_Panels_file_flag(9) - p% file_dir = s% pg% History_Panels_file_dir(9) - p% file_prefix = s% pg% History_Panels_file_prefix(9) - p% file_interval = s% pg% History_Panels_file_interval(9) - p% file_width = s% pg% History_Panels_file_width(9) - p% file_aspect_ratio = s% pg% History_Panels_file_aspect_ratio(9) - - p => s% pg% pgstar_win_file_ptr(i_Hist_Track1) - p% plot => History_Track_plot - p% id = i_Hist_Track1 - p% array_ix = 1 - p% name = 'History_Track(1)' - p% win_flag = s% pg% History_Track_win_flag(1) - p% win_width = s% pg% History_Track_win_width(1) - p% win_aspect_ratio = s% pg% History_Track_win_aspect_ratio(1) - p% file_flag = s% pg% History_Track_file_flag(1) - p% file_dir = s% pg% History_Track_file_dir(1) - p% file_prefix = s% pg% History_Track_file_prefix(1) - p% file_interval = s% pg% History_Track_file_interval(1) - p% file_width = s% pg% History_Track_file_width(1) - p% file_aspect_ratio = s% pg% History_Track_file_aspect_ratio(1) - - p => s% pg% pgstar_win_file_ptr(i_Hist_Track2) - p% plot => History_Track_plot - p% id = i_Hist_Track2 - p% array_ix = 2 - p% name = 'History_Track(2)' - p% win_flag = s% pg% History_Track_win_flag(2) - p% win_width = s% pg% History_Track_win_width(2) - p% win_aspect_ratio = s% pg% History_Track_win_aspect_ratio(2) - p% file_flag = s% pg% History_Track_file_flag(2) - p% file_dir = s% pg% History_Track_file_dir(2) - p% file_prefix = s% pg% History_Track_file_prefix(2) - p% file_interval = s% pg% History_Track_file_interval(2) - p% file_width = s% pg% History_Track_file_width(2) - p% file_aspect_ratio = s% pg% History_Track_file_aspect_ratio(2) - - p => s% pg% pgstar_win_file_ptr(i_Hist_Track3) - p% plot => History_Track_plot - p% id = i_Hist_Track3 - p% array_ix = 3 - p% name = 'History_Track(3)' - p% win_flag = s% pg% History_Track_win_flag(3) - p% win_width = s% pg% History_Track_win_width(3) - p% win_aspect_ratio = s% pg% History_Track_win_aspect_ratio(3) - p% file_flag = s% pg% History_Track_file_flag(3) - p% file_dir = s% pg% History_Track_file_dir(3) - p% file_prefix = s% pg% History_Track_file_prefix(3) - p% file_interval = s% pg% History_Track_file_interval(3) - p% file_width = s% pg% History_Track_file_width(3) - p% file_aspect_ratio = s% pg% History_Track_file_aspect_ratio(3) - - p => s% pg% pgstar_win_file_ptr(i_Hist_Track4) - p% plot => History_Track_plot - p% id = i_Hist_Track4 - p% array_ix = 4 - p% name = 'History_Track(4)' - p% win_flag = s% pg% History_Track_win_flag(4) - p% win_width = s% pg% History_Track_win_width(4) - p% win_aspect_ratio = s% pg% History_Track_win_aspect_ratio(4) - p% file_flag = s% pg% History_Track_file_flag(4) - p% file_dir = s% pg% History_Track_file_dir(4) - p% file_prefix = s% pg% History_Track_file_prefix(4) - p% file_interval = s% pg% History_Track_file_interval(4) - p% file_width = s% pg% History_Track_file_width(4) - p% file_aspect_ratio = s% pg% History_Track_file_aspect_ratio(4) - - p => s% pg% pgstar_win_file_ptr(i_Hist_Track5) - p% plot => History_Track_plot - p% id = i_Hist_Track5 - p% array_ix = 5 - p% name = 'History_Track(5)' - p% win_flag = s% pg% History_Track_win_flag(5) - p% win_width = s% pg% History_Track_win_width(5) - p% win_aspect_ratio = s% pg% History_Track_win_aspect_ratio(5) - p% file_flag = s% pg% History_Track_file_flag(5) - p% file_dir = s% pg% History_Track_file_dir(5) - p% file_prefix = s% pg% History_Track_file_prefix(5) - p% file_interval = s% pg% History_Track_file_interval(5) - p% file_width = s% pg% History_Track_file_width(5) - p% file_aspect_ratio = s% pg% History_Track_file_aspect_ratio(5) - - p => s% pg% pgstar_win_file_ptr(i_Hist_Track6) - p% plot => History_Track_plot - p% id = i_Hist_Track6 - p% array_ix = 6 - p% name = 'History_Track(6)' - p% win_flag = s% pg% History_Track_win_flag(6) - p% win_width = s% pg% History_Track_win_width(6) - p% win_aspect_ratio = s% pg% History_Track_win_aspect_ratio(6) - p% file_flag = s% pg% History_Track_file_flag(6) - p% file_dir = s% pg% History_Track_file_dir(6) - p% file_prefix = s% pg% History_Track_file_prefix(6) - p% file_interval = s% pg% History_Track_file_interval(6) - p% file_width = s% pg% History_Track_file_width(6) - p% file_aspect_ratio = s% pg% History_Track_file_aspect_ratio(6) - - p => s% pg% pgstar_win_file_ptr(i_Hist_Track7) - p% plot => History_Track_plot - p% id = i_Hist_Track7 - p% array_ix = 7 - p% name = 'History_Track(7)' - p% win_flag = s% pg% History_Track_win_flag(7) - p% win_width = s% pg% History_Track_win_width(7) - p% win_aspect_ratio = s% pg% History_Track_win_aspect_ratio(7) - p% file_flag = s% pg% History_Track_file_flag(7) - p% file_dir = s% pg% History_Track_file_dir(7) - p% file_prefix = s% pg% History_Track_file_prefix(7) - p% file_interval = s% pg% History_Track_file_interval(7) - p% file_width = s% pg% History_Track_file_width(7) - p% file_aspect_ratio = s% pg% History_Track_file_aspect_ratio(7) - - p => s% pg% pgstar_win_file_ptr(i_Hist_Track8) - p% plot => History_Track_plot - p% id = i_Hist_Track8 - p% array_ix = 8 - p% name = 'History_Track(8)' - p% win_flag = s% pg% History_Track_win_flag(8) - p% win_width = s% pg% History_Track_win_width(8) - p% win_aspect_ratio = s% pg% History_Track_win_aspect_ratio(8) - p% file_flag = s% pg% History_Track_file_flag(8) - p% file_dir = s% pg% History_Track_file_dir(8) - p% file_prefix = s% pg% History_Track_file_prefix(8) - p% file_interval = s% pg% History_Track_file_interval(8) - p% file_width = s% pg% History_Track_file_width(8) - p% file_aspect_ratio = s% pg% History_Track_file_aspect_ratio(8) - - p => s% pg% pgstar_win_file_ptr(i_Hist_Track9) - p% plot => History_Track_plot - p% id = i_Hist_Track9 - p% array_ix = 9 - p% name = 'History_Track(9)' - p% win_flag = s% pg% History_Track_win_flag(9) - p% win_width = s% pg% History_Track_win_width(9) - p% win_aspect_ratio = s% pg% History_Track_win_aspect_ratio(9) - p% file_flag = s% pg% History_Track_file_flag(9) - p% file_dir = s% pg% History_Track_file_dir(9) - p% file_prefix = s% pg% History_Track_file_prefix(9) - p% file_interval = s% pg% History_Track_file_interval(9) - p% file_width = s% pg% History_Track_file_width(9) - p% file_aspect_ratio = s% pg% History_Track_file_aspect_ratio(9) + 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 @@ -1060,275 +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_Magnitude_plot - p% id = i_Col_Mag1 - p% array_ix = 1 - p% name = 'Color_Magnitude(1)' - p% win_flag = s% pg% Color_Magnitude_win_flag(1) - p% win_width = s% pg% Color_Magnitude_win_width(1) - p% win_aspect_ratio = s% pg% Color_Magnitude_win_aspect_ratio(1) - p% file_flag = s% pg% Color_Magnitude_file_flag(1) - p% file_dir = s% pg% Color_Magnitude_file_dir(1) - p% file_prefix = s% pg% Color_Magnitude_file_prefix(1) - p% file_interval = s% pg% Color_Magnitude_file_interval(1) - p% file_width = s% pg% Color_Magnitude_file_width(1) - p% file_aspect_ratio = s% pg% Color_Magnitude_file_aspect_ratio(1) - - p => s% pg% pgstar_win_file_ptr(i_Col_Mag2) - p% plot => Color_Magnitude_plot - p% id = i_Col_Mag2 - p% array_ix = 2 - p% name = 'Color_Magnitude(2)' - p% win_flag = s% pg% Color_Magnitude_win_flag(2) - p% win_width = s% pg% Color_Magnitude_win_width(2) - p% win_aspect_ratio = s% pg% Color_Magnitude_win_aspect_ratio(2) - p% file_flag = s% pg% Color_Magnitude_file_flag(2) - p% file_dir = s% pg% Color_Magnitude_file_dir(2) - p% file_prefix = s% pg% Color_Magnitude_file_prefix(2) - p% file_interval = s% pg% Color_Magnitude_file_interval(2) - p% file_width = s% pg% Color_Magnitude_file_width(2) - p% file_aspect_ratio = s% pg% Color_Magnitude_file_aspect_ratio(2) - - p => s% pg% pgstar_win_file_ptr(i_Col_Mag3) - p% plot => Color_Magnitude_plot - p% id = i_Col_Mag3 - p% array_ix = 3 - p% name = 'Color_Magnitude(3)' - p% win_flag = s% pg% Color_Magnitude_win_flag(3) - p% win_width = s% pg% Color_Magnitude_win_width(3) - p% win_aspect_ratio = s% pg% Color_Magnitude_win_aspect_ratio(3) - p% file_flag = s% pg% Color_Magnitude_file_flag(3) - p% file_dir = s% pg% Color_Magnitude_file_dir(3) - p% file_prefix = s% pg% Color_Magnitude_file_prefix(3) - p% file_interval = s% pg% Color_Magnitude_file_interval(3) - p% file_width = s% pg% Color_Magnitude_file_width(3) - p% file_aspect_ratio = s% pg% Color_Magnitude_file_aspect_ratio(3) - - p => s% pg% pgstar_win_file_ptr(i_Col_Mag4) - p% plot => Color_Magnitude_plot - p% id = i_Col_Mag4 - p% array_ix = 4 - p% name = 'Color_Magnitude(4)' - p% win_flag = s% pg% Color_Magnitude_win_flag(4) - p% win_width = s% pg% Color_Magnitude_win_width(4) - p% win_aspect_ratio = s% pg% Color_Magnitude_win_aspect_ratio(4) - p% file_flag = s% pg% Color_Magnitude_file_flag(4) - p% file_dir = s% pg% Color_Magnitude_file_dir(4) - p% file_prefix = s% pg% Color_Magnitude_file_prefix(4) - p% file_interval = s% pg% Color_Magnitude_file_interval(4) - p% file_width = s% pg% Color_Magnitude_file_width(4) - p% file_aspect_ratio = s% pg% Color_Magnitude_file_aspect_ratio(4) - - p => s% pg% pgstar_win_file_ptr(i_Col_Mag5) - p% plot => Color_Magnitude_plot - p% id = i_Col_Mag5 - p% array_ix = 5 - p% name = 'Color_Magnitude(5)' - p% win_flag = s% pg% Color_Magnitude_win_flag(5) - p% win_width = s% pg% Color_Magnitude_win_width(5) - p% win_aspect_ratio = s% pg% Color_Magnitude_win_aspect_ratio(5) - p% file_flag = s% pg% Color_Magnitude_file_flag(5) - p% file_dir = s% pg% Color_Magnitude_file_dir(5) - p% file_prefix = s% pg% Color_Magnitude_file_prefix(5) - p% file_interval = s% pg% Color_Magnitude_file_interval(5) - p% file_width = s% pg% Color_Magnitude_file_width(5) - p% file_aspect_ratio = s% pg% Color_Magnitude_file_aspect_ratio(5) - - p => s% pg% pgstar_win_file_ptr(i_Col_Mag6) - p% plot => Color_Magnitude_plot - p% id = i_Col_Mag6 - p% array_ix = 6 - p% name = 'Color_Magnitude(6)' - p% win_flag = s% pg% Color_Magnitude_win_flag(6) - p% win_width = s% pg% Color_Magnitude_win_width(6) - p% win_aspect_ratio = s% pg% Color_Magnitude_win_aspect_ratio(6) - p% file_flag = s% pg% Color_Magnitude_file_flag(6) - p% file_dir = s% pg% Color_Magnitude_file_dir(6) - p% file_prefix = s% pg% Color_Magnitude_file_prefix(6) - p% file_interval = s% pg% Color_Magnitude_file_interval(6) - p% file_width = s% pg% Color_Magnitude_file_width(6) - p% file_aspect_ratio = s% pg% Color_Magnitude_file_aspect_ratio(6) - - p => s% pg% pgstar_win_file_ptr(i_Col_Mag7) - p% plot => Color_Magnitude_plot - p% id = i_Col_Mag7 - p% array_ix = 7 - p% name = 'Color_Magnitude(7)' - p% win_flag = s% pg% Color_Magnitude_win_flag(7) - p% win_width = s% pg% Color_Magnitude_win_width(7) - p% win_aspect_ratio = s% pg% Color_Magnitude_win_aspect_ratio(7) - p% file_flag = s% pg% Color_Magnitude_file_flag(7) - p% file_dir = s% pg% Color_Magnitude_file_dir(7) - p% file_prefix = s% pg% Color_Magnitude_file_prefix(7) - p% file_interval = s% pg% Color_Magnitude_file_interval(7) - p% file_width = s% pg% Color_Magnitude_file_width(7) - p% file_aspect_ratio = s% pg% Color_Magnitude_file_aspect_ratio(7) - - p => s% pg% pgstar_win_file_ptr(i_Col_Mag8) - p% plot => Color_Magnitude_plot - p% id = i_Col_Mag8 - p% array_ix = 8 - p% name = 'Color_Magnitude(8)' - p% win_flag = s% pg% Color_Magnitude_win_flag(8) - p% win_width = s% pg% Color_Magnitude_win_width(8) - p% win_aspect_ratio = s% pg% Color_Magnitude_win_aspect_ratio(8) - p% file_flag = s% pg% Color_Magnitude_file_flag(8) - p% file_dir = s% pg% Color_Magnitude_file_dir(8) - p% file_prefix = s% pg% Color_Magnitude_file_prefix(8) - p% file_interval = s% pg% Color_Magnitude_file_interval(8) - p% file_width = s% pg% Color_Magnitude_file_width(8) - p% file_aspect_ratio = s% pg% Color_Magnitude_file_aspect_ratio(8) - - p => s% pg% pgstar_win_file_ptr(i_Col_Mag9) - p% plot => Color_Magnitude_plot - p% id = i_Col_Mag9 - p% array_ix = 9 - p% name = 'Color_Magnitude(9)' - p% win_flag = s% pg% Color_Magnitude_win_flag(9) - p% win_width = s% pg% Color_Magnitude_win_width(9) - p% win_aspect_ratio = s% pg% Color_Magnitude_win_aspect_ratio(9) - p% file_flag = s% pg% Color_Magnitude_file_flag(9) - p% file_dir = s% pg% Color_Magnitude_file_dir(9) - p% file_prefix = s% pg% Color_Magnitude_file_prefix(9) - p% file_interval = s% pg% Color_Magnitude_file_interval(9) - p% file_width = s% pg% Color_Magnitude_file_width(9) - p% file_aspect_ratio = s% pg% Color_Magnitude_file_aspect_ratio(9) - - p => s% pg% pgstar_win_file_ptr(i_Grid1) - p% plot => grid_plot - p% id = i_Grid1 - p% array_ix = 1 - p% name = 'Grid(1)' - p% win_flag = s% pg% Grid_win_flag(1) - p% win_width = s% pg% Grid_win_width(1) - p% win_aspect_ratio = s% pg% Grid_win_aspect_ratio(1) - p% file_flag = s% pg% Grid_file_flag(1) - p% file_dir = s% pg% Grid_file_dir(1) - p% file_prefix = s% pg% Grid_file_prefix(1) - p% file_interval = s% pg% Grid_file_interval(1) - p% file_width = s% pg% Grid_file_width(1) - p% file_aspect_ratio = s% pg% Grid_file_aspect_ratio(1) - - p => s% pg% pgstar_win_file_ptr(i_Grid2) - p% plot => grid_plot - p% id = i_Grid2 - p% array_ix = 2 - p% name = 'Grid(2)' - p% win_flag = s% pg% Grid_win_flag(2) - p% win_width = s% pg% Grid_win_width(2) - p% win_aspect_ratio = s% pg% Grid_win_aspect_ratio(2) - p% file_flag = s% pg% Grid_file_flag(2) - p% file_dir = s% pg% Grid_file_dir(2) - p% file_prefix = s% pg% Grid_file_prefix(2) - p% file_interval = s% pg% Grid_file_interval(2) - p% file_width = s% pg% Grid_file_width(2) - p% file_aspect_ratio = s% pg% Grid_file_aspect_ratio(2) - - p => s% pg% pgstar_win_file_ptr(i_Grid3) - p% plot => grid_plot - p% id = i_Grid3 - p% array_ix = 3 - p% name = 'Grid(3)' - p% win_flag = s% pg% Grid_win_flag(3) - p% win_width = s% pg% Grid_win_width(3) - p% win_aspect_ratio = s% pg% Grid_win_aspect_ratio(3) - p% file_flag = s% pg% Grid_file_flag(3) - p% file_dir = s% pg% Grid_file_dir(3) - p% file_prefix = s% pg% Grid_file_prefix(3) - p% file_interval = s% pg% Grid_file_interval(3) - p% file_width = s% pg% Grid_file_width(3) - p% file_aspect_ratio = s% pg% Grid_file_aspect_ratio(3) - - p => s% pg% pgstar_win_file_ptr(i_Grid4) - p% plot => grid_plot - p% id = i_Grid4 - p% array_ix = 4 - p% name = 'Grid(4)' - p% win_flag = s% pg% Grid_win_flag(4) - p% win_width = s% pg% Grid_win_width(4) - p% win_aspect_ratio = s% pg% Grid_win_aspect_ratio(4) - p% file_flag = s% pg% Grid_file_flag(4) - p% file_dir = s% pg% Grid_file_dir(4) - p% file_prefix = s% pg% Grid_file_prefix(4) - p% file_interval = s% pg% Grid_file_interval(4) - p% file_width = s% pg% Grid_file_width(4) - p% file_aspect_ratio = s% pg% Grid_file_aspect_ratio(4) - - p => s% pg% pgstar_win_file_ptr(i_Grid5) - p% plot => grid_plot - p% id = i_Grid5 - p% array_ix = 5 - p% name = 'Grid(5)' - p% win_flag = s% pg% Grid_win_flag(5) - p% win_width = s% pg% Grid_win_width(5) - p% win_aspect_ratio = s% pg% Grid_win_aspect_ratio(5) - p% file_flag = s% pg% Grid_file_flag(5) - p% file_dir = s% pg% Grid_file_dir(5) - p% file_prefix = s% pg% Grid_file_prefix(5) - p% file_interval = s% pg% Grid_file_interval(5) - p% file_width = s% pg% Grid_file_width(5) - p% file_aspect_ratio = s% pg% Grid_file_aspect_ratio(5) - - p => s% pg% pgstar_win_file_ptr(i_Grid6) - p% plot => grid_plot - p% id = i_Grid6 - p% array_ix = 6 - p% name = 'Grid(6)' - p% win_flag = s% pg% Grid_win_flag(6) - p% win_width = s% pg% Grid_win_width(6) - p% win_aspect_ratio = s% pg% Grid_win_aspect_ratio(6) - p% file_flag = s% pg% Grid_file_flag(6) - p% file_dir = s% pg% Grid_file_dir(6) - p% file_prefix = s% pg% Grid_file_prefix(6) - p% file_interval = s% pg% Grid_file_interval(6) - p% file_width = s% pg% Grid_file_width(6) - p% file_aspect_ratio = s% pg% Grid_file_aspect_ratio(6) - - p => s% pg% pgstar_win_file_ptr(i_Grid7) - p% plot => grid_plot - p% id = i_Grid7 - p% array_ix = 7 - p% name = 'Grid(7)' - p% win_flag = s% pg% Grid_win_flag(7) - p% win_width = s% pg% Grid_win_width(7) - p% win_aspect_ratio = s% pg% Grid_win_aspect_ratio(7) - p% file_flag = s% pg% Grid_file_flag(7) - p% file_dir = s% pg% Grid_file_dir(7) - p% file_prefix = s% pg% Grid_file_prefix(7) - p% file_interval = s% pg% Grid_file_interval(7) - p% file_width = s% pg% Grid_file_width(7) - p% file_aspect_ratio = s% pg% Grid_file_aspect_ratio(7) - - p => s% pg% pgstar_win_file_ptr(i_Grid8) - p% plot => grid_plot - p% id = i_Grid8 - p% array_ix = 8 - p% name = 'Grid(8)' - p% win_flag = s% pg% Grid_win_flag(8) - p% win_width = s% pg% Grid_win_width(8) - p% win_aspect_ratio = s% pg% Grid_win_aspect_ratio(8) - p% file_flag = s% pg% Grid_file_flag(8) - p% file_dir = s% pg% Grid_file_dir(8) - p% file_prefix = s% pg% Grid_file_prefix(8) - p% file_interval = s% pg% Grid_file_interval(8) - p% file_width = s% pg% Grid_file_width(8) - p% file_aspect_ratio = s% pg% Grid_file_aspect_ratio(8) - - p => s% pg% pgstar_win_file_ptr(i_Grid9) - p% plot => grid_plot - p% id = i_Grid9 - p% array_ix = 9 - p% name = 'Grid(9)' - p% win_flag = s% pg% Grid_win_flag(9) - p% win_width = s% pg% Grid_win_width(9) - p% win_aspect_ratio = s% pg% Grid_win_aspect_ratio(9) - p% file_flag = s% pg% Grid_file_flag(9) - p% file_dir = s% pg% Grid_file_dir(9) - p% file_prefix = s% pg% Grid_file_prefix(9) - p% file_interval = s% pg% Grid_file_interval(9) - p% file_width = s% pg% Grid_file_width(9) - p% file_aspect_ratio = s% pg% Grid_file_aspect_ratio(9) + 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) @@ -1413,9 +712,9 @@ subroutine onScreen_Plots(s, must_write_files_in, 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 + 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 logical :: must_write_files_in @@ -1639,7 +938,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 @@ -1666,7 +965,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_data/public/star_pgstar.f90 b/star_data/public/star_pgstar.f90 index 8763e3da3..728224348 100644 --- a/star_data/public/star_pgstar.f90 +++ b/star_data/public/star_pgstar.f90 @@ -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 @@ -189,7 +138,6 @@ end subroutine pgstar_decorator_interface integer, parameter :: max_num_cols_Text_Summary = 20 integer, parameter :: max_num_profile_mass_points = 10 - integer, parameter :: pgstar_array_length = 9 ! some Tioga colors for pgstar From beb0019f6dc7031896e637139633108169350a4a Mon Sep 17 00:00:00 2001 From: Matthias Fabry Date: Wed, 29 May 2024 11:30:23 +0200 Subject: [PATCH 16/27] [ci skip] arrayify pgbinary controls --- binary/defaults/pgbinary.defaults | 2605 +++---------------- binary/private/pgbinary_ctrls_io.f90 | 2594 ++---------------- binary/private/pgbinary_full.f90 | 601 +---- binary/private/pgbinary_grid.f90 | 505 +--- binary/private/pgbinary_hist_track.f90 | 614 +---- binary/private/pgbinary_history_panels.f90 | 623 +---- binary/private/pgbinary_orbit.f90 | 4 +- binary/private/pgbinary_star.f90 | 14 +- binary/private/pgbinary_summary.f90 | 296 +-- binary/private/pgbinary_summary_history.f90 | 5 +- binary/private/pgbinary_support.f90 | 2 +- binary/public/binary_pgbinary.f90 | 133 +- binary/public/pgbinary_controls.inc | 919 +------ 13 files changed, 1119 insertions(+), 7796 deletions(-) diff --git a/binary/defaults/pgbinary.defaults b/binary/defaults/pgbinary.defaults index 067b98ae8..726371425 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_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(:) = '' ! :: - 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_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. ! :: - History_Track3_xmin = -101d0 - History_Track3_xmax = -101d0 - History_Track3_ymin = -101d0 - History_Track3_ymax = -101d0 + History_Track_xmin(:) = -101d0 + History_Track_xmax(:) = -101d0 + History_Track_ymin(:) = -101d0 + History_Track_ymax(:) = -101d0 ! :: - History_Track3_xmargin = 0.1 - History_Track3_ymargin = 0.1 - History_Track3_dxmin = -1 - History_Track3_dymin = -1 + History_Track_xmargin(:) = 0.1 + History_Track_ymargin(:) = 0.1 + History_Track_dxmin(:) = -1 + History_Track_dymin(:) = -1 ! :: - History_Track3_step_min = -1 - History_Track3_step_max = -1 + History_Track_step_min(:) = -1 + History_Track_step_max(:) = -1 ! :: - 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 + 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_Track3_annotation1 = .false. - show_History_Track3_annotation2 = .false. - show_History_Track3_annotation3 = .false. + show_History_Track_annotation1(:) = .false. + show_History_Track_annotation2(:) = .false. + show_History_Track_annotation3(:) = .false. ! :: - History_Track3_fname = '' + History_Track_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 - ! -------------- + ! see ``$MESA_DIR/star/other/pgbinary_decorator.f90`` ! :: - History_Track4_win_flag = .false. - History_Track4_win_width = 6 - History_Track4_win_aspect_ratio = 0.75 + History_Track_use_decorator(:) = .false. - ! :: - - 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. + ! **File output** ! :: - History_Track4_xmin = -101d0 - History_Track4_xmax = -101d0 - History_Track4_ymin = -101d0 - History_Track4_ymax = -101d0 - - ! :: + 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 - History_Track4_xmargin = 0.1 - History_Track4_ymargin = 0.1 - History_Track4_dxmin = -1 - History_Track4_dymin = -1 + ! set default plots - ! :: + ! 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_' - History_Track4_step_min = -1 - History_Track4_step_max = -1 + ! History_Track(2) + ! ---------------- - ! :: + History_Track_file_prefix(2) = 'track2_' - 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 + ! History_Track(3) + ! ---------------- - ! :: + History_Track_file_prefix(3) = 'track3_' - show_History_Track4_annotation1 = .false. - show_History_Track4_annotation2 = .false. - show_History_Track4_annotation3 = .false. + ! History_Track(4) + ! ---------------- - ! :: + History_Track_file_prefix(4) = 'track4_' - History_Track4_fname = '' + ! History_Track(5) + ! ---------------- - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/binary/other/pgbinary_decorator.f90`` + History_Track_file_prefix(5) = 'track5_' - ! :: + ! History_Track(6) + ! ---------------- - History_Track4_use_decorator = .false. + History_Track_file_prefix(6) = 'track6_' - ! file output - ! :: + ! History_Track(7) + ! ---------------- - 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_Track_file_prefix(7) = 'track7_' + ! History_Track(8) + ! ---------------- - ! History_Track5 - ! -------------- + History_Track_file_prefix(8) = 'track8_' - ! :: + ! History_Track(9) + ! ---------------- - History_Track5_win_flag = .false. - History_Track5_win_width = 6 - History_Track5_win_aspect_ratio = 0.75 + History_Track_file_prefix(9) = 'track9_' - ! :: +! History Panels +! ============== - 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_Panels(1..9) + ! --------------------- ! :: - 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_Panels_win_flag(:) = .false. ! :: - History_Track5_xmin = -101d0 - History_Track5_xmax = -101d0 - History_Track5_ymin = -101d0 - History_Track5_ymax = -101d0 + History_Panels_win_width(:) = 6 + History_Panels_win_aspect_ratio(:) = 0.75 ! :: - History_Track5_xmargin = 0.1 - History_Track5_ymargin = 0.1 - History_Track5_dxmin = -1 - History_Track5_dymin = -1 + 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_Track5_step_min = -1 - History_Track5_step_max = -1 + 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 ! :: - 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 + 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 ! :: - show_History_Track5_annotation1 = .false. - show_History_Track5_annotation2 = .false. - show_History_Track5_annotation3 = .false. + 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_Track5_fname = '' - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/binary/other/pgbinary_decorator.f90`` - - ! :: + History_Panels_points_name(:, :) = '' + History_Panels_num_panels = 0 - History_Track5_use_decorator = .false. - ! file output + ! Enables caling a subroutine to add extra information to a plot + ! see ``$MES_DIR/star/other/pgbinary_decorator.f90`` ! :: - 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 - ! -------------- - - ! :: + History_Panels_use_decorator(:) = .false. - History_Track6_win_flag = .false. - History_Track6_win_width = 6 - History_Track6_win_aspect_ratio = 0.75 + ! **File output** ! :: - 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_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 - 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_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_Track6_xmin = -101d0 - History_Track6_xmax = -101d0 - History_Track6_ymin = -101d0 - History_Track6_ymax = -101d0 + ! History_Panels(2) + ! ----------------- - ! :: + History_Panels_file_prefix(2) = 'History_Panels2_' - History_Track6_xmargin = 0.1 - History_Track6_ymargin = 0.1 - History_Track6_dxmin = -1 - History_Track6_dymin = -1 + ! History_Panels(3) + ! ----------------- - ! :: + History_Panels_file_prefix(3) = 'History_Panels3_' - History_Track6_step_min = -1 - History_Track6_step_max = -1 - ! :: + ! History_Panels(4) + ! ----------------- - 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_file_prefix(4) = 'History_Panels4_' - ! :: - show_History_Track6_annotation1 = .false. - show_History_Track6_annotation2 = .false. - show_History_Track6_annotation3 = .false. + ! History_Panels(5) + ! ----------------- - ! :: + History_Panels_file_prefix(5) = 'History_Panels5_' - History_Track6_fname = '' + ! History_Panels(6) + ! ----------------- - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/binary/other/pgbinary_decorator.f90`` + History_Panels_file_prefix(6) = 'History_Panels6_' - ! :: - History_Track6_use_decorator = .false. + ! History_Panels(7) + ! ----------------- - ! file output + History_Panels_file_prefix(7) = 'History_Panels7_' - ! :: + ! History_Panels(8) + ! ----------------- - 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_Panels_file_prefix(8) = 'History_Panels8_' - ! History_Track7 - ! -------------- + ! History_Panels(9) + ! ----------------- - ! :: + History_Panels_file_prefix(9) = 'History_Panels9_' - History_Track7_win_flag = .false. - History_Track7_win_width = 6 - History_Track7_win_aspect_ratio = 0.75 + ! 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_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_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 - ! :: - 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. +! Text Summary +! ============ - ! :: - History_Track7_xmin = -101d0 - History_Track7_xmax = -101d0 - History_Track7_ymin = -101d0 - History_Track7_ymax = -101d0 + ! Text_Summary(1..9) + ! ------------------ ! :: - History_Track7_xmargin = 0.1 - History_Track7_ymargin = 0.1 - History_Track7_dxmin = -1 - History_Track7_dymin = -1 + Text_Summary_win_flag(:) = .false. + Text_Summary_win_width(:) = 6 + Text_Summary_win_aspect_ratio(:) = 1.5 ! :: - History_Track7_step_min = -1 - History_Track7_step_max = -1 + 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(:) = '' ! :: - 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 - - ! :: + Text_Summary_num_rows(:) = 0 + Text_Summary_num_cols(:) = 0 + Text_Summary_name(:,:,:) = '' - show_History_Track7_annotation1 = .false. - show_History_Track7_annotation2 = .false. - show_History_Track7_annotation3 = .false. + ! **File output** ! :: - History_Track7_fname = '' + 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 - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/binary/other/pgbinary_decorator.f90`` - - ! :: - - History_Track7_use_decorator = .false. + ! Text_Summary(1) + ! --------------- - ! file output + 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_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 - ! -------------- + 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_Track8_win_flag = .false. - History_Track8_win_width = 6 - History_Track8_win_aspect_ratio = 0.75 - - ! :: + Text_Summary_file_prefix(1) = 'Text_Summary1_' - 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' + ! Text_Summary2 + ! ------------- - ! :: + Text_Summary_file_prefix(2) = 'Text_Summary2_' - 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. + ! Text_Summary3 + ! ------------- - ! :: + Text_Summary_file_prefix(3) = 'Text_Summary3_' - History_Track8_xmin = -101d0 - History_Track8_xmax = -101d0 - History_Track8_ymin = -101d0 - History_Track8_ymax = -101d0 + ! Text_Summary4 + ! ------------- - ! :: + Text_Summary_file_prefix(4) = 'Text_Summary4_' - History_Track8_xmargin = 0.1 - History_Track8_ymargin = 0.1 - History_Track8_dxmin = -1 - History_Track8_dymin = -1 + ! Text_Summary5 + ! ------------- - ! :: + Text_Summary_file_prefix(5) = 'Text_Summary5_' - History_Track8_step_min = -1 - History_Track8_step_max = -1 + ! Text_Summary6 + ! ------------- - ! :: + Text_Summary_file_prefix(6) = 'Text_Summary6_' - 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 + ! Text_Summary7 + ! ------------- - ! :: + Text_Summary_file_prefix(7) = 'Text_Summary7_' - show_History_Track8_annotation1 = .false. - show_History_Track8_annotation2 = .false. - show_History_Track8_annotation3 = .false. + ! Text_Summary8 + ! ------------- - ! :: + Text_Summary_file_prefix(8) = 'Text_Summary8_' - History_Track8_fname = '' + ! Text_Summary9 + ! ------------- - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/binary/other/pgbinary_decorator.f90`` + Text_Summary_file_prefix(9) = 'Text_Summary9_' - ! :: +! Grid +! ==== - History_Track8_use_decorator = .false. - ! file output + ! Grid(1..9) + ! ---------- ! :: - 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 - ! -------------- + Grid_win_flag(:) = .false. ! :: - History_Track9_win_flag = .false. - History_Track9_win_width = 6 - History_Track9_win_aspect_ratio = 0.75 + Grid_win_width(:) = 6 + Grid_win_aspect_ratio(:) = 1 ! :: - 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' + Grid_xleft(:) = 0.12 + Grid_xright(:) = 0.95 + Grid_ybot(:) = 0.08 + Grid_ytop(:) = 0.92 + Grid_title(:) = '' ! :: - 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. + 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_Track9_xmin = -101d0 - History_Track9_xmax = -101d0 - History_Track9_ymin = -101d0 - History_Track9_ymax = -101d0 + ! :: - ! :: + Grid_num_cols(:) = 1 + Grid_num_rows(:) = 1 + Grid_num_plots(:) = 0 - History_Track9_xmargin = 0.1 - History_Track9_ymargin = 0.1 - History_Track9_dxmin = -1 - History_Track9_dymin = -1 + ! **File output** ! :: - History_Track9_step_min = -1 - History_Track9_step_max = -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 - 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 + ! Grid(1) + ! ------- - ! :: - show_History_Track9_annotation1 = .false. - show_History_Track9_annotation2 = .false. - show_History_Track9_annotation3 = .false. + 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 = '' - History_Track9_fname = '' + Grid_num_cols(1) = 5 + Grid_num_rows(1) = 3 + Grid_num_plots(1) = 3 - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/binary/other/pgbinary_decorator.f90`` + 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) = '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_Track9_use_decorator = .false. + 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 - ! :: - - 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_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 = 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 - - ! Enables calling a subroutine to add extra information to a plot - ! see ``$MESA_DIR/binary/other/pgbinary_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_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 - - ! 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 5a7f78c69..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 @@ -118,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 @@ -264,6 +265,10 @@ subroutine plot_case(s, star_id) call do_TRho_Profile_plot(& 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 ('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), & @@ -579,6 +584,7 @@ subroutine plot_case(s, star_id) 'logg_logT', & 'dPg_dnu', & 'TRho_Profile', & + 'TmaxRho', & 'Summary_Burn', & 'Summary_Profile', & 'Summary_History', & 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 From ba986c69c157c7f5d91d4d9be3f13913dc71013c Mon Sep 17 00:00:00 2001 From: Matthias Fabry Date: Wed, 29 May 2024 11:30:49 +0200 Subject: [PATCH 17/27] [ci skip] adapt evolve both stars test case --- .../evolve_both_stars/inlist_pgbinary | 131 ++++++------- .../evolve_both_stars/inlist_pgstar | 178 +++++++++--------- 2 files changed, 147 insertions(+), 162 deletions(-) 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 / From 7dc39064a25744aa62ac64f9b12e23f5ef9d8c24 Mon Sep 17 00:00:00 2001 From: Matthias Fabry Date: Wed, 29 May 2024 11:31:06 +0200 Subject: [PATCH 18/27] [ci skip] small typos in pgstar.defaults --- star/defaults/pgstar.defaults | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/star/defaults/pgstar.defaults b/star/defaults/pgstar.defaults index d2e5062d3..f8277226d 100644 --- a/star/defaults/pgstar.defaults +++ b/star/defaults/pgstar.defaults @@ -3653,7 +3653,7 @@ Grid_plot_pad_bot(1, 4) = -0.05 Grid_txt_scale_factor(1, 4) = 0.2 - Grid_file_prefix(1) = 'grid1' + Grid_file_prefix(1) = 'grid1_' ! Grid(2) ! ------- @@ -3732,7 +3732,7 @@ Grid_plot_pad_bot(2, 5) = 0.0 Grid_txt_scale_factor(2, 5) = 0.65 - Grid_file_prefix(2) = 'Grid2' + Grid_file_prefix(2) = 'Grid2_' ! Grid(3) From be2777653abc9bfe581e288fb65eee9108719a6f Mon Sep 17 00:00:00 2001 From: Matthias Fabry Date: Wed, 29 May 2024 12:06:22 +0200 Subject: [PATCH 19/27] [ci skip] adapt other binary test cases --- binary/test_suite/double_bh/inlist | 2 +- binary/test_suite/double_bh/inlist1 | 2 - binary/test_suite/double_bh/inlist2 | 2 - binary/test_suite/double_bh/inlist_pgbinary | 86 +++++ binary/test_suite/double_bh/inlist_pgstar | 296 ++++++++---------- binary/test_suite/double_bh/inlist_project | 2 + .../star_plus_point_mass/inlist_pgbinary | 132 ++++---- 7 files changed, 281 insertions(+), 241 deletions(-) create mode 100644 binary/test_suite/double_bh/inlist_pgbinary 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..7a803668d 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 + 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 + 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_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_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 - 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. + 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_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_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/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 From 304c123ef3a0bb494ab7c641f8119b9ddd8a9195 Mon Sep 17 00:00:00 2001 From: Matthias Fabry Date: Wed, 29 May 2024 14:41:04 +0200 Subject: [PATCH 20/27] sed'ed the whole test suite for pgstar arrays, it's likely I missed some things --- star/test_suite/1.3M_ms_high_Z/README.rst | 102 +-- star/test_suite/1.3M_ms_high_Z/inlist_pgstar | 157 ++-- star/test_suite/1.4M_ms_op_mono/README.rst | 48 +- .../1.4M_ms_op_mono/inlist_1.4M_ms_op_mono | 79 +- .../test_suite/1.5M_with_diffusion/README.rst | 14 +- .../inlist_1.5M_with_diffusion | 2 +- .../1.5M_with_diffusion/inlist_to_ZAMS | 6 +- .../12M_pre_ms_to_core_collapse/inlist_common | 14 +- .../12M_pre_ms_to_core_collapse/inlist_pgstar | 562 +++++++------- .../12M_pre_ms_to_core_collapse/inlist_to_cc | 22 +- .../inlist_to_end_core_c_burn | 4 +- .../inlist_to_end_core_he_burn | 8 +- .../inlist_to_lgTmax | 6 +- .../inlist_to_zams | 18 +- star/test_suite/15M_dynamo/README.rst | 16 +- star/test_suite/15M_dynamo/inlist_common | 18 +- star/test_suite/1M_pre_ms_to_wd/README.rst | 14 +- star/test_suite/1M_pre_ms_to_wd/inlist_start | 66 +- .../1M_pre_ms_to_wd/inlist_to_end_agb | 62 +- .../1M_pre_ms_to_wd/inlist_to_end_core_h_burn | 64 +- .../inlist_to_end_core_he_burn | 64 +- .../inlist_to_start_he_core_flash | 64 +- star/test_suite/1M_pre_ms_to_wd/inlist_to_wd | 66 +- star/test_suite/1M_thermohaline/README.rst | 162 ++--- .../1M_thermohaline/inlist_1M_thermohaline | 292 ++++---- .../20M_pre_ms_to_core_collapse/inlist_common | 14 +- .../20M_pre_ms_to_core_collapse/inlist_pgstar | 562 +++++++------- .../inlist_remove_envelope | 6 +- .../20M_pre_ms_to_core_collapse/inlist_to_cc | 22 +- .../inlist_to_end_core_c_burn | 4 +- .../inlist_to_end_core_he_burn | 8 +- .../inlist_to_lgTmax | 6 +- .../inlist_to_zams | 18 +- .../20M_z2m2_high_rotation/README.rst | 306 ++++---- .../20M_z2m2_high_rotation/inlist_pgstar | 688 +++++++++--------- .../inlist_to_end_core_he_burn | 8 +- .../inlist_cepheid_blue_loop | 2 +- star/test_suite/R_CrB_star/inlist_pgstar | 316 ++++---- star/test_suite/adjust_net/inlist_adjust_net | 2 +- .../adjust_net/inlist_massive_defaults | 211 +++--- star/test_suite/c13_pocket/inlist_pgstar | 225 +++--- star/test_suite/carbon_kh/inlist_carbon_kh | 237 +++--- star/test_suite/cburn_inward/README.rst | 120 +-- .../cburn_inward/inlist_cburn_inward | 128 ++-- star/test_suite/cburn_inward/inlist_initial | 136 ++-- star/test_suite/ccsn_IIp/README.rst | 260 +++---- star/test_suite/ccsn_IIp/inlist_common | 206 +++--- star/test_suite/ccsn_IIp/inlist_edep | 2 +- star/test_suite/ccsn_IIp/inlist_end_infall | 2 +- star/test_suite/ccsn_IIp/inlist_infall | 2 +- star/test_suite/ccsn_IIp/inlist_pgstar | 200 ++--- star/test_suite/ccsn_IIp/inlist_shock_part1 | 2 +- star/test_suite/ccsn_IIp/inlist_shock_part2 | 2 +- star/test_suite/ccsn_IIp/inlist_shock_part3 | 2 +- star/test_suite/ccsn_IIp/inlist_shock_part4 | 18 +- star/test_suite/ccsn_IIp/inlist_shock_part5 | 40 +- .../test_suite/conductive_flame/inlist_pgstar | 304 ++++---- .../conserve_angular_momentum/README.rst | 230 +++--- .../conv_core_cpm/inlist_conv_core_cpm | 132 ++-- star/test_suite/conv_core_cpm/inlist_to_ZAMS | 6 +- .../diffusion_smoothness/README.rst | 38 +- .../inlist_extended_convective_penetration | 6 +- .../gyre_in_mesa_rsg/inlist_gyre_in_mesa_rsg | 228 +++--- star/test_suite/gyre_in_mesa_wd/inlist_common | 146 ++-- .../gyre_in_mesa_wd/inlist_pulse_wd | 6 +- star/test_suite/hb_2M/inlist_hb_2M | 94 +-- star/test_suite/hb_2M/inlist_to_TAMS | 6 +- .../inlist_high_rot_darkening | 262 +++---- star/test_suite/hse_riemann/README.rst | 60 +- star/test_suite/hse_riemann/inlist_finish | 226 +++--- .../magnetic_braking/inlist_braking | 282 +++---- .../magnetic_braking/inlist_braking_pgstar | 282 +++---- .../magnetic_braking/inlist_zams_pgstar | 206 +++--- star/test_suite/make_brown_dwarf/README.rst | 20 +- .../make_brown_dwarf/inlist_make_brown_dwarf | 2 +- star/test_suite/make_co_wd/inlist_co_core | 4 +- star/test_suite/make_co_wd/inlist_common | 144 ++-- star/test_suite/make_co_wd/inlist_remove_env | 8 +- star/test_suite/make_co_wd/inlist_settle | 8 +- .../make_co_wd/inlist_to_end_he_core_burn | 4 +- star/test_suite/make_co_wd/inlist_zams | 4 +- star/test_suite/make_env/README.rst | 76 +- .../make_he_wd/inlist_remove_envelope | 2 +- star/test_suite/make_o_ne_wd/README.rst | 2 +- star/test_suite/make_o_ne_wd/inlist_c_burn | 2 +- star/test_suite/make_o_ne_wd/inlist_o_ne_wd | 2 +- star/test_suite/make_o_ne_wd/inlist_pgstar | 490 ++++++------- .../make_o_ne_wd/inlist_settle_envelope | 8 +- star/test_suite/make_o_ne_wd/inlist_to_agb | 6 +- .../make_pre_ccsn_13bvn/inlist_after_remove | 2 +- .../make_pre_ccsn_13bvn/inlist_before_remove | 2 +- .../make_pre_ccsn_13bvn/inlist_pgstar | 642 ++++++++-------- .../make_pre_ccsn_13bvn/inlist_remove | 2 +- .../make_pre_ccsn_13bvn/inlist_to_cc | 2 +- .../inlist_to_post_si_burn | 2 +- .../make_pre_ccsn_13bvn/inlist_to_zams | 2 +- star/test_suite/make_sdb/README.rst | 16 +- star/test_suite/make_sdb/inlist_make_sdb | 14 +- star/test_suite/make_zams/README.rst | 162 ++--- star/test_suite/make_zams_low_mass/README.rst | 162 ++--- .../make_zams_ultra_high_mass/README.rst | 162 ++--- star/test_suite/ns_c/README.rst | 186 ++--- star/test_suite/ns_c/inlist_pgstar | 482 ++++++------ star/test_suite/ns_c/inlist_to_c_flash | 8 +- star/test_suite/ns_h/README.rst | 186 ++--- star/test_suite/ns_h/inlist_add_he_layer | 2 +- star/test_suite/ns_h/inlist_pgstar | 200 ++--- star/test_suite/ns_h/inlist_to_steady_h_burn | 2 +- star/test_suite/ns_he/README.rst | 186 ++--- star/test_suite/ns_he/inlist_to_flash | 190 ++--- star/test_suite/pisn/inlist_common | 8 +- star/test_suite/pisn/inlist_convert | 16 +- star/test_suite/pisn/inlist_finish | 96 +-- star/test_suite/pisn/inlist_pgstar | 544 +++++++------- star/test_suite/pisn/inlist_remove_envelope | 6 +- .../test_suite/pisn/inlist_to_end_core_c_burn | 18 +- .../pisn/inlist_to_end_core_he_burn | 10 +- star/test_suite/pisn/inlist_to_zams | 18 +- star/test_suite/ppisn/inlist_pgstar | 292 ++++---- star/test_suite/ppisn/src/run_star_extras.f90 | 8 +- .../radiative_levitation/README.rst | 38 +- .../inlist_radiative_levitation | 24 +- star/test_suite/rsp_BEP/README.rst | 26 +- star/test_suite/rsp_BEP/inlist_rsp_BEP | 24 +- .../rsp_BEP/inlist_rsp_BEP_make_cycle0 | 24 +- star/test_suite/rsp_BEP/inlist_rsp_BEP_std | 24 +- .../rsp_BEP/inlist_rsp_BEP_test_cycle0 | 24 +- .../rsp_BEP/inlist_rsp_pgstar_default | 350 ++++----- star/test_suite/rsp_BLAP/README.rst | 26 +- star/test_suite/rsp_BLAP/inlist_rsp_BLAP | 24 +- .../rsp_BLAP/inlist_rsp_BLAP_make_cycle0 | 24 +- star/test_suite/rsp_BLAP/inlist_rsp_BLAP_std | 24 +- .../rsp_BLAP/inlist_rsp_BLAP_test_cycle0 | 24 +- .../rsp_BLAP/inlist_rsp_pgstar_default | 350 ++++----- star/test_suite/rsp_Cepheid/README.rst | 26 +- .../test_suite/rsp_Cepheid/inlist_rsp_Cepheid | 24 +- .../inlist_rsp_Cepheid_make_cycle0 | 24 +- .../rsp_Cepheid/inlist_rsp_Cepheid_std | 24 +- .../inlist_rsp_Cepheid_test_cycle0 | 24 +- .../rsp_Cepheid/inlist_rsp_pgstar_default | 350 ++++----- .../rsp_Cepheid_6M/inlist_rsp_Cepheid | 24 +- .../inlist_rsp_Cepheid_make_cycle0 | 24 +- .../rsp_Cepheid_6M/inlist_rsp_Cepheid_std | 24 +- .../inlist_rsp_Cepheid_test_cycle0 | 24 +- .../rsp_Cepheid_6M/inlist_rsp_pgstar_default | 350 ++++----- star/test_suite/rsp_Delta_Scuti/README.rst | 26 +- .../rsp_Delta_Scuti/inlist_rsp_Delta_Scuti | 24 +- .../inlist_rsp_Delta_Scuti_make_cycle0 | 24 +- .../inlist_rsp_Delta_Scuti_std | 24 +- .../inlist_rsp_Delta_Scuti_test_cycle0 | 24 +- .../rsp_Delta_Scuti/inlist_rsp_pgstar_default | 350 ++++----- star/test_suite/rsp_RR_Lyrae/README.rst | 26 +- .../rsp_RR_Lyrae/inlist_rsp_RR_Lyrae | 24 +- .../inlist_rsp_RR_Lyrae_make_cycle0 | 24 +- .../rsp_RR_Lyrae/inlist_rsp_RR_Lyrae_std | 24 +- .../inlist_rsp_RR_Lyrae_test_cycle0 | 24 +- .../rsp_RR_Lyrae/inlist_rsp_pgstar_default | 350 ++++----- .../test_suite/rsp_Type_II_Cepheid/README.rst | 26 +- .../inlist_rsp_Type_II_Cepheid | 24 +- .../inlist_rsp_Type_II_Cepheid_make_cycle0 | 24 +- .../inlist_rsp_Type_II_Cepheid_std | 24 +- .../inlist_rsp_Type_II_Cepheid_test_cycle0 | 24 +- .../inlist_rsp_check_2nd_crossing | 306 ++++---- .../rsp_gyre/inlist_pulse_pgstar_default | 332 ++++----- star/test_suite/rsp_gyre/inlist_rsp_gyre | 44 +- .../rsp_save_and_load_file/README.rst | 26 +- .../rsp_save_and_load_file/inlist_rsp_common | 336 ++++----- .../inlist_rsp_load_file | 26 +- .../inlist_rsp_save_file | 26 +- .../semiconvection/inlist_semiconvection | 4 +- star/test_suite/semiconvection/inlist_to_ZAMS | 6 +- .../split_burn_big_net/inlist_big_net | 4 +- .../split_burn_big_net/inlist_common | 8 +- .../split_burn_big_net/inlist_pgstar | 462 ++++++------ star/test_suite/twin_studies/README.rst | 20 +- star/test_suite/twin_studies/inlist_pgstar | 470 ++++++------ star/test_suite/twin_studies/inlist_star1 | 10 +- star/test_suite/twin_studies/inlist_star2 | 10 +- .../twin_studies/inlist_to_end_core_he_burn | 8 +- star/test_suite/tzo/inlist_pgstar | 566 +++++++------- star/test_suite/wd_acc_small_dm/inlist_pgstar | 150 ++-- star/test_suite/wd_aic/inlist_pgstar | 74 +- .../inlist_wd_c_core_ignition | 18 +- star/test_suite/wd_cool_0.6M/README.rst | 22 +- .../wd_cool_0.6M/inlist_wd_cool_0.6M | 10 +- star/test_suite/wd_diffusion/README.rst | 34 +- star/test_suite/wd_diffusion/inlist_wd_diff | 20 +- .../wd_he_shell_ignition/README.rst | 38 +- .../inlist_he_shell_ignition | 22 +- star/test_suite/wd_nova_burst/README.rst | 22 +- star/test_suite/wd_nova_burst/inlist_setup | 4 +- .../wd_nova_burst/inlist_wd_nova_burst | 12 +- star/test_suite/wd_stable_h_burn/README.rst | 116 +-- star/test_suite/zams_to_cc_80/inlist_common | 8 +- star/test_suite/zams_to_cc_80/inlist_pgstar | 472 ++++++------ .../zams_to_cc_80/inlist_remove_envelope | 6 +- star/test_suite/zams_to_cc_80/inlist_to_cc | 18 +- .../zams_to_cc_80/inlist_to_end_core_c_burn | 4 +- .../zams_to_cc_80/inlist_to_end_core_he_burn | 8 +- .../test_suite/zams_to_cc_80/inlist_to_lgTmax | 6 +- star/test_suite/zams_to_cc_80/inlist_to_zams | 18 +- 201 files changed, 9549 insertions(+), 9796 deletions(-) diff --git a/star/test_suite/1.3M_ms_high_Z/README.rst b/star/test_suite/1.3M_ms_high_Z/README.rst index a482735f5..8ae092467 100644 --- a/star/test_suite/1.3M_ms_high_Z/README.rst +++ b/star/test_suite/1.3M_ms_high_Z/README.rst @@ -44,50 +44,50 @@ pgstar commands used for the plots above: !file_extension = 'ps' ! build grid - Grid1_title = '1.3M_ms_high_Z' - Grid1_win_flag = .true. - - 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) = .true. + + Grid_win_width(1) = 15 + 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_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 ! 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 = 15 ! 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,Grid1_file_interval)==0 + Grid_file_width(1) = 15 ! negative means use same value as for window + Grid_file_aspect_ratio(1) = -1 ! negative means use same value as for window pgstar_model_scale = 1.4 pgstar_model_disp = 1.5 @@ -114,19 +114,19 @@ pgstar commands used for the plots above: ! profile - Profile_Panels1_win_flag = .false. + Profile_Panels_win_flag(1) = .false. - Profile_Panels1_num_panels = 1 + Profile_Panels_num_panels(1) = 1 - Profile_Panels1_xaxis_name = 'mass' - Profile_Panels1_xmin = -101d0 ! only used if /= -101d0 - Profile_Panels1_xmax = -101d0 ! only used if /= -101d0 + Profile_Panels_xaxis_name(1) = 'mass' + Profile_Panels_xmin(1) = -101d0 ! only used if /= -101d0 + Profile_Panels_xmax(1) = -101d0 ! only used if /= -101d0 - 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_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(:) = '' + Profile_Panels_other_yaxis_name(1, :) = '' / ! end of pgstar namelist 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 3ae6e4f74..185212725 100644 --- a/star/test_suite/1.3M_ms_high_Z/inlist_pgstar +++ b/star/test_suite/1.3M_ms_high_Z/inlist_pgstar @@ -1,51 +1,51 @@ &pgstar - Grid1_title = '1.3M_ms_high_Z' - Grid1_win_flag = .false. - - Grid1_win_width = 12 - 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 = '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,Grid1_file_interval)==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. @@ -67,59 +67,34 @@ HR_win_aspect_ratio = 1.0 - Profile_Panels1_win_flag = .false. + Profile_Panels_win_flag(1) = .false. - Profile_Panels1_win_width = 6 - Profile_Panels1_win_aspect_ratio = 0.75 ! aspect_ratio = height/width + Profile_Panels_win_width(1) = 6 + 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 = '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_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 = .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 = '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 + 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_Panels1_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/1.4M_ms_op_mono/README.rst b/star/test_suite/1.4M_ms_op_mono/README.rst index 6abcffe3f..30979b0d4 100644 --- a/star/test_suite/1.4M_ms_op_mono/README.rst +++ b/star/test_suite/1.4M_ms_op_mono/README.rst @@ -54,37 +54,37 @@ pgstar commands used for the plots above: ! 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 = 'png' - 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/README.rst b/star/test_suite/1.5M_with_diffusion/README.rst index 471e06713..f29c26065 100644 --- a/star/test_suite/1.5M_with_diffusion/README.rst +++ b/star/test_suite/1.5M_with_diffusion/README.rst @@ -39,14 +39,14 @@ pgstar commands used for the plots above: file_extension = 'ps' - Grid2_win_width = 15 - Grid2_win_flag = .true. - Grid2_file_flag = .true. + Grid_win_width(2) = 15 + Grid_win_flag(2) = .true. + Grid_file_flag(2) = .true. file_digits = 7 - Grid2_file_dir = 'png2' - Grid2_file_prefix = 'grid' - Grid2_file_interval = 5 - Grid2_file_width = 15 + Grid_file_dir(2) = 'png2' + 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_1.5M_with_diffusion b/star/test_suite/1.5M_with_diffusion/inlist_1.5M_with_diffusion index 4d0698f2d..dc60da902 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 @@ -162,6 +162,6 @@ &pgstar -Grid2_win_flag = .true. + Grid_win_flag(2) = .true. / ! 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 86bc70cc1..3fc6da9be 100644 --- a/star/test_suite/1.5M_with_diffusion/inlist_to_ZAMS +++ b/star/test_suite/1.5M_with_diffusion/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/12M_pre_ms_to_core_collapse/inlist_common b/star/test_suite/12M_pre_ms_to_core_collapse/inlist_common index 8164ab092..3c22b5ed9 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..a576e9548 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,Grid1_file_interval)==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 f024af974..a63d08b29 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 6efd2bea4..5e645a7bc 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,Grid6_file_interval)==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..6cf38fe17 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,Grid6_file_interval)==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..167a3d1c1 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,Grid6_file_interval)==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..f3438bc99 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,Grid6_file_interval)==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..e5978b298 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,Grid6_file_interval)==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..4c9d1f568 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,Grid6_file_interval)==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..97b3f7865 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,Grid6_file_interval)==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 02caeaf06..f272c844a 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,Grid3_file_interval)==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_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_Panels1_ymin(:) = -0.00006 ! 0.633 Profile_Panels1_ymax(:) = 0.000001 ! 0.634 - Profile_Panels1_other_yaxis_name(1) = '' + Profile_Panels_other_yaxis_name(1, 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_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 8164ab092..3c22b5ed9 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..a576e9548 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,Grid1_file_interval)==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 502ec6e5e..103832e51 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,Grid1_file_interval)==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..c4810734c 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,Grid1_file_interval)==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..c1e7fa9b4 100644 --- a/star/test_suite/R_CrB_star/inlist_pgstar +++ b/star/test_suite/R_CrB_star/inlist_pgstar @@ -76,51 +76,51 @@ 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. @@ -137,146 +137,146 @@ History_Panels1_other_dymin(:) = -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_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_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_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_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_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_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_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_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_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_Panels1_other_dymin(3) = -1 - History_Panels1_use_decorator = .true. + 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,Grid1_file_interval)==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/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..6f795a059 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,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 = .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 698f471c8..92de51590 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,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 = .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..1e470938f 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,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 = .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..bb6697202 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,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 = .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 031433755..e3a238b1d 100644 --- a/star/test_suite/ccsn_IIp/README.rst +++ b/star/test_suite/ccsn_IIp/README.rst @@ -71,47 +71,47 @@ 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_Panels_title(1) = '' + Profile_Panels_xaxis_name(1) = 'mass' + Profile_Panels_xaxis_reversed(1) = .false. - Profile_Panels1_yaxis_name(1) = 'logRho' - Profile_Panels1_yaxis_name(2) = 'logT' + Profile_Panels_yaxis_name(1, 1) = 'logRho' + Profile_Panels_yaxis_name(1, 2) = 'logT' - Profile_Panels1_ymin(1) = -101 - ! Profile_Panels1_ymin(2) = -10 - ! Profile_Panels1_ymax(2) = 0.3 + Profile_Panels_ymin(1, 1) = -101 + ! Profile_Panels_ymin(1, 2) = -10 + ! Profile_Panels_ymax(1, 2) = 0.3 - Profile_Panels1_other_yaxis_name(1) = 'logP' - Profile_Panels1_other_yaxis_name(2) = 'energy' + Profile_Panels_other_yaxis_name(1, 1) = 'logP' + Profile_Panels_other_yaxis_name(1, 2) = 'energy' - Profile_Panels1_other_ymin(1) = -101 - ! Profile_Panels1_other_ymin(2) = -12 - ! Profile_Panels1_other_ymax(2) = 0 + Profile_Panels_other_ymin(1, 1) = -101 + ! Profile_Panels_other_ymin(1, 2) = -12 + ! Profile_Panels_other_ymax(1, 2) = 0 - Profile_Panels1_num_panels = 2 + Profile_Panels_num_panels(1) = 2 - Profile_Panels2_title = '' - Profile_Panels2_xaxis_name = 'mass' - Profile_Panels2_xaxis_reversed = .false. + Profile_Panels_title(2) = '' + Profile_Panels_xaxis_name(2) = 'mass' + Profile_Panels_xaxis_reversed(2) = .false. - Profile_Panels2_num_panels = 2 - Profile_Panels2_yaxis_name(1) = 'v_div_csound' - Profile_Panels2_yaxis_name(2) = 'entropy' + Profile_Panels_num_panels(2) = 2 + Profile_Panels_yaxis_name(2, 1) = 'v_div_csound' + Profile_Panels_yaxis_name(2, 2) = 'entropy' - Profile_Panels2_ymin(1) = -101 - Profile_Panels2_ymin(2) = -101 + Profile_Panels_ymin(2, 1) = -101 + Profile_Panels_ymin(2, 2) = -101 - Profile_Panels2_other_yaxis_name(1) = 'vel_km_per_s' - Profile_Panels2_other_yaxis_name(2) = 'total_energy' + Profile_Panels_other_yaxis_name(2, 1) = 'vel_km_per_s' + Profile_Panels_other_yaxis_name(2, 2) = 'total_energy' - Profile_Panels2_other_ymin(1) = -101 - Profile_Panels2_other_ymin(2) = -101 + Profile_Panels_other_ymin(2, 1) = -101 + Profile_Panels_other_ymin(2, 2) = -101 - Text_Summary1_txt_scale = 5.5 + Text_Summary_txt_scale(1) = 5.5 - Text_Summary1_num_rows = 5 - Text_Summary1_num_cols = 3 + Text_Summary_num_rows(1) = 5 + Text_Summary_num_cols(1) = 3 Text_Summary1_name(1, 1) = 'model_number' Text_Summary1_name(2, 1) = 'star_age_sec' Text_Summary1_name(3, 1) = 'time_step_sec' @@ -146,82 +146,82 @@ pgstar commands used for the first 7 plots: 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 + 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,30 +256,30 @@ pgstar commands used for the 8th plot: Mixing_xmin = -101 - Profile_Panels1_xmin = -101 + Profile_Panels_xmin(1) = -101 - Profile_Panels1_yaxis_name(1) = 'logT' - Profile_Panels1_yaxis_name(2) = 'v_div_csound' + Profile_Panels_yaxis_name(1, 1) = 'logT' + Profile_Panels_yaxis_name(1, 2) = 'v_div_csound' - Profile_Panels1_ymin(2) = 0 - Profile_Panels1_ymax(2) = -101 + Profile_Panels_ymin(1, 2) = 0 + Profile_Panels_ymax(1, 2) = -101 - Profile_Panels1_other_yaxis_name(1) = 'entropy' - Profile_Panels1_other_yaxis_name(2) = 'csound' + Profile_Panels_other_yaxis_name(1, 1) = 'entropy' + Profile_Panels_other_yaxis_name(1, 2) = 'csound' - Profile_Panels1_other_ymin(2) = -101 - Profile_Panels1_other_ymax(2) = -101 + Profile_Panels_other_ymin(1, 2) = -101 + Profile_Panels_other_ymax(1, 2) = -101 - Profile_Panels2_xmin = -101 + Profile_Panels_xmin(2) = -101 - Profile_Panels2_yaxis_name(1) = 'Abundance' - Profile_Panels2_yaxis_name(2) = 'luminosity' + Profile_Panels_yaxis_name(2, 1) = 'Abundance' + Profile_Panels_yaxis_name(2, 2) = 'luminosity' - Profile_Panels2_ymin(2) = -101 + Profile_Panels_ymin(2, 2) = -101 - Profile_Panels2_other_yaxis_name(2) = 'log_dr_div_cs' + Profile_Panels_other_yaxis_name(2, 2) = 'log_dr_div_cs' - Profile_Panels2_other_ymin(2) = -101 + Profile_Panels_other_ymin(2, 2) = -101 History_Track1_title = 'Breakout Light Curve' History_Track1_xname = 'star_age_hr' @@ -324,20 +324,20 @@ pgstar commands used for the 8th plot: 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' + 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' - Grid2_win_flag = .true. + Grid_win_flag(2) = .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 + 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..2f729ed80 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,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 = .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..3eac5acc2 100644 --- a/star/test_suite/ccsn_IIp/inlist_pgstar +++ b/star/test_suite/ccsn_IIp/inlist_pgstar @@ -7,47 +7,47 @@ Mixing_ymin = 8 Mixing_ymax = 22 - Profile_Panels1_title = '' - Profile_Panels1_xaxis_name = 'mass' - Profile_Panels1_xaxis_reversed = .false. + Profile_Panels_title(1) = '' + Profile_Panels_xaxis_name(1) = 'mass' + Profile_Panels_xaxis_reversed(1) = .false. - Profile_Panels1_yaxis_name(1) = 'logRho' - Profile_Panels1_yaxis_name(2) = 'logT' + Profile_Panels_yaxis_name(1, 1) = 'logRho' + Profile_Panels_yaxis_name(1, 2) = 'logT' - Profile_Panels1_ymin(1) = -101 - ! Profile_Panels1_ymin(2) = -10 - ! Profile_Panels1_ymax(2) = 0.3 + Profile_Panels_ymin(1, 1) = -101 + ! Profile_Panels_ymin(1, 2) = -10 + ! Profile_Panels_ymax(1, 2) = 0.3 - Profile_Panels1_other_yaxis_name(1) = 'logP' - Profile_Panels1_other_yaxis_name(2) = 'energy' + Profile_Panels_other_yaxis_name(1, 1) = 'logP' + Profile_Panels_other_yaxis_name(1, 2) = 'energy' - Profile_Panels1_other_ymin(1) = -101 - ! Profile_Panels1_other_ymin(2) = -12 - ! Profile_Panels1_other_ymax(2) = 0 + Profile_Panels_other_ymin(1, 1) = -101 + ! Profile_Panels_other_ymin(1, 2) = -12 + ! Profile_Panels_other_ymax(1, 2) = 0 - Profile_Panels1_num_panels = 2 + Profile_Panels_num_panels(1) = 2 - Profile_Panels2_title = '' - Profile_Panels2_xaxis_name = 'mass' - Profile_Panels2_xaxis_reversed = .false. + Profile_Panels_title(2) = '' + Profile_Panels_xaxis_name(2) = 'mass' + Profile_Panels_xaxis_reversed(2) = .false. - Profile_Panels2_num_panels = 2 - Profile_Panels2_yaxis_name(1) = 'v_div_csound' - Profile_Panels2_yaxis_name(2) = 'entropy' + Profile_Panels_num_panels(2) = 2 + Profile_Panels_yaxis_name(2, 1) = 'v_div_csound' + Profile_Panels_yaxis_name(2, 2) = 'entropy' - Profile_Panels2_ymin(1) = -101 - Profile_Panels2_ymin(2) = -101 + Profile_Panels_ymin(2, 1) = -101 + Profile_Panels_ymin(2, 2) = -101 - Profile_Panels2_other_yaxis_name(1) = 'vel_km_per_s' - Profile_Panels2_other_yaxis_name(2) = 'total_energy' + Profile_Panels_other_yaxis_name(2, 1) = 'vel_km_per_s' + Profile_Panels_other_yaxis_name(2, 2) = 'total_energy' - Profile_Panels2_other_ymin(1) = -101 - Profile_Panels2_other_ymin(2) = -101 + Profile_Panels_other_ymin(2, 1) = -101 + Profile_Panels_other_ymin(2, 2) = -101 - Text_Summary1_txt_scale = 5.5 + Text_Summary_txt_scale(1) = 5.5 - Text_Summary1_num_rows = 5 - Text_Summary1_num_cols = 3 + Text_Summary_num_rows(1) = 5 + Text_Summary_num_cols(1) = 3 Text_Summary1_name(1, 1) = 'model_number' Text_Summary1_name(2, 1) = 'star_age_sec' Text_Summary1_name(3, 1) = 'time_step_sec' @@ -82,85 +82,85 @@ 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 + 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..a55589d11 100644 --- a/star/test_suite/ccsn_IIp/inlist_shock_part5 +++ b/star/test_suite/ccsn_IIp/inlist_shock_part5 @@ -69,30 +69,30 @@ Mixing_xmin = -101 - Profile_Panels1_xmin = -101 + Profile_Panels_xmin(1) = -101 - Profile_Panels1_yaxis_name(1) = 'logT' - Profile_Panels1_yaxis_name(2) = 'v_div_csound' + Profile_Panels_yaxis_name(1, 1) = 'logT' + Profile_Panels_yaxis_name(1, 2) = 'v_div_csound' - Profile_Panels1_ymin(2) = 0 - Profile_Panels1_ymax(2) = -101 + Profile_Panels_ymin(1, 2) = 0 + Profile_Panels_ymax(1, 2) = -101 - Profile_Panels1_other_yaxis_name(1) = 'entropy' - Profile_Panels1_other_yaxis_name(2) = 'csound' + Profile_Panels_other_yaxis_name(1, 1) = 'entropy' + Profile_Panels_other_yaxis_name(1, 2) = 'csound' - Profile_Panels1_other_ymin(2) = -101 - Profile_Panels1_other_ymax(2) = -101 + Profile_Panels_other_ymin(1, 2) = -101 + Profile_Panels_other_ymax(1, 2) = -101 - Profile_Panels2_xmin = -101 + Profile_Panels_xmin(2) = -101 - Profile_Panels2_yaxis_name(1) = 'Abundance' - Profile_Panels2_yaxis_name(2) = 'luminosity' + Profile_Panels_yaxis_name(2, 1) = 'Abundance' + Profile_Panels_yaxis_name(2, 2) = 'luminosity' - Profile_Panels2_ymin(2) = -101 + Profile_Panels_ymin(2, 2) = -101 - Profile_Panels2_other_yaxis_name(2) = 'log_dr_div_cs' + Profile_Panels_other_yaxis_name(2, 2) = 'log_dr_div_cs' - Profile_Panels2_other_ymin(2) = -101 + Profile_Panels_other_ymin(2, 2) = -101 History_Track1_title = 'Breakout Light Curve' History_Track1_xname = 'star_age_hr' @@ -137,11 +137,11 @@ 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' + 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 adf6a72c3..4c6a3c69d 100644 --- a/star/test_suite/conductive_flame/inlist_pgstar +++ b/star/test_suite/conductive_flame/inlist_pgstar @@ -3,96 +3,96 @@ 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,Grid1_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. @@ -108,24 +108,24 @@ !### Profile_Panels1 - Profile_Panels1_win_flag = .false. + Profile_Panels_win_flag(1) = .false. - Profile_Panels1_win_width = 6 - Profile_Panels1_win_aspect_ratio = 0.75 ! aspect_ratio = height/width + Profile_Panels_win_width(1) = 6 + Profile_Panels_win_aspect_ratio = 0.75 ! aspect_ratio(1) = 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_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_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_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_Panels1_yaxis_name(:) = '' Profile_Panels1_yaxis_reversed(:) = .false. @@ -143,41 +143,41 @@ Profile_Panels1_other_ymargin(:) = 0.1 Profile_Panels1_other_dymin(:) = -1 - Profile_Panels1_show_grid = .true. + 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 + 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_Panels1_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 + + + 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_Panels1_yaxis_name(:) = '' History_Panels1_yaxis_reversed(:) = .false. @@ -196,30 +196,30 @@ History_Panels1_other_dymin(:) = -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_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_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_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_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_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_Panels1_other_dymin(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 8604e0d9c..fcfe79fd9 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,Grid1_file_interval)==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 ffd3345be..06b1d71ca 100644 --- a/star/test_suite/conv_core_cpm/inlist_conv_core_cpm +++ b/star/test_suite/conv_core_cpm/inlist_conv_core_cpm @@ -99,81 +99,81 @@ ! grid1 plot of all 5 panels, see below sections setting up each panel ! file output - Grid1_file_flag = .true. - Grid1_file_dir = 'png' - 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 + 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 Grid1_title='' ! 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 !--------------------------------------------------------------------------------------------- diff --git a/star/test_suite/conv_core_cpm/inlist_to_ZAMS b/star/test_suite/conv_core_cpm/inlist_to_ZAMS index 5b65fa96b..721e34c47 100644 --- a/star/test_suite/conv_core_cpm/inlist_to_ZAMS +++ b/star/test_suite/conv_core_cpm/inlist_to_ZAMS @@ -73,10 +73,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/diffusion_smoothness/README.rst b/star/test_suite/diffusion_smoothness/README.rst index d3b3cce66..41a3e087a 100644 --- a/star/test_suite/diffusion_smoothness/README.rst +++ b/star/test_suite/diffusion_smoothness/README.rst @@ -31,28 +31,28 @@ pgstar commands used for the plot: 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_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_Panels1_ymin(:) = -101d0 Profile_Panels1_ymax(:) = -101d0 - Profile_Panels1_other_yaxis_name(1) = '' + Profile_Panels_other_yaxis_name(1, 1) = '' - Profile_Panels1_file_flag = .true. - Profile_Panels1_file_dir = 'png' - Profile_Panels1_file_prefix = 'brunt_' - Profile_Panels1_file_interval = 10000 - Profile_Panels1_file_width = 14 + Profile_Panels_file_flag(1) = .true. + Profile_Panels_file_dir(1) = 'png' + 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..55647eb7d 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,Grid2_file_interval)==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 8f4aad55d..72054d233 100644 --- a/star/test_suite/hb_2M/inlist_hb_2M +++ b/star/test_suite/hb_2M/inlist_hb_2M @@ -102,52 +102,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..5648ed612 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,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 + 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 + 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_Panels1_xaxis_name='model_number' - History_Panels1_max_width = -1 ! only used if > 0. causes xmin to move with xmax. + 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_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_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 + 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_Panels_yaxis_name(1, 3) = 'luminosity' + Profile_Panels_other_yaxis_name(1, 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_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,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/star/test_suite/hse_riemann/README.rst b/star/test_suite/hse_riemann/README.rst index 4846ef950..3db725187 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/magnetic_braking/inlist_braking b/star/test_suite/magnetic_braking/inlist_braking index a4fa5f420..533b08ca8 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,31 +198,31 @@ 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_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_Summary1_name(3,1) = 'log_total_angular_momentum' + Text_Summary_name(1, 3, 1) = 'log_total_angular_momentum' @@ -231,103 +231,103 @@ - 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 + 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_Panels1_num_panels = 4 + History_Panels_num_panels(1) = 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_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_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_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_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_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_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_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_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, 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' + 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_Panels1_other_ymin(:) = -101 ! only used if /= -101d0 Profile_Panels1_other_ymax(:) = -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..839288b70 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,31 +76,31 @@ 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_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_Summary1_name(3,1) = 'log_total_angular_momentum' + Text_Summary_name(1, 3, 1) = 'log_total_angular_momentum' @@ -109,104 +109,104 @@ - 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 + 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_Panels1_num_panels = 4 + History_Panels_num_panels(1) = 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_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_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_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_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_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_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_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_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, 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' + 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_Panels1_other_ymin(:) = -101 ! only used if /= -101d0 Profile_Panels1_other_ymax(:) = -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..36c775f27 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,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 = .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 5ad1a556e..3cf61d6f7 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..6f3282ed8 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,Grid2_file_interval)==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 d67526e97..3c70f1970 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 ef187d182..c914b1a4a 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..c5bfe81ab 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,Grid1_file_interval)==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,87 +561,87 @@ 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_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_Panels1_other_dymin(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_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_Panels1_other_dymin(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_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_Panels1_other_dymin(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_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_Panels1_other_dymin(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..528a0afec 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_Panels1_other_yaxis_log(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_Panels1_yaxis_log(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,Grid1_file_interval)==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,Grid1_file_interval)==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,32 +834,32 @@ 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 ! :: @@ -870,55 +870,55 @@ Grid1_file_aspect_ratio = -1 ! negative means use same value as for window ! :: - 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_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_Panels1_other_dymin(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_Panels_other_yaxis_name(1, 2) = 'log_total_drag_energy' + History_Panels_other_yaxis_reversed(1, 2) = .false. History_Panels1_other_yaxis_log(2) = .false. - !History_Panels1_other_ymin(2) = -101d0 - !History_Panels1_other_ymax(2) = 40d0 + !History_Panels_other_ymin(1, 2) = -101d0 + !History_Panels_other_ymax(1, 2) = 40d0 History_Panels1_other_dymin(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_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_Panels1_other_dymin(3) = -1 ! Enables calling a subroutine to add extra information to a plot @@ -926,18 +926,18 @@ Grid1_file_aspect_ratio = -1 ! negative means use same value as for window ! :: - 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 d09f17f58..752596036 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/README.rst b/star/test_suite/make_zams/README.rst index b35badcae..bf118a313 100644 --- a/star/test_suite/make_zams/README.rst +++ b/star/test_suite/make_zams/README.rst @@ -67,43 +67,43 @@ pgstar commands used for the plot above: 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 = .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/make_zams_low_mass/README.rst b/star/test_suite/make_zams_low_mass/README.rst index 1f89748f5..223177551 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 13dca615d..ae2d02a33 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..1e6475a4c 100644 --- a/star/test_suite/ns_c/README.rst +++ b/star/test_suite/ns_c/README.rst @@ -40,44 +40,44 @@ pgstar commands used for the plot above: Power_xmin = -10.0 Power_xmax = -6.0 - Profile_Panels1_title = '' - Profile_Panels1_num_panels = 2 + Profile_Panels_title(1) = '' + Profile_Panels_num_panels(1) = 2 - Profile_Panels1_xaxis_name = 'logxm' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101d0 - Profile_Panels1_xmax = -101d0 + Profile_Panels_xaxis_name(1) = 'logxm' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101d0 + Profile_Panels_xmax(1) = -101d0 - Profile_Panels1_yaxis_name(1) = 'logRho' - Profile_Panels1_yaxis_name(2) = 'logT' - Profile_Panels1_ymin(1) = -101 + Profile_Panels_yaxis_name(1, 1) = 'logRho' + Profile_Panels_yaxis_name(1, 2) = 'logT' + Profile_Panels_ymin(1, 1) = -101 - Profile_Panels1_other_yaxis_name(1) = 'logP' - Profile_Panels1_other_yaxis_name(2) = 'entropy' - Profile_Panels1_other_ymin(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_Panels2_title = '' - Profile_Panels2_num_panels = 2 + Profile_Panels_title(2) = '' + Profile_Panels_num_panels(2) = 2 - Profile_Panels2_xaxis_name = 'logxm' - Profile_Panels2_xaxis_reversed = .true. - Profile_Panels2_xmin = -101d0 - Profile_Panels2_xmax = -101d0 + Profile_Panels_xaxis_name(2) = 'logxm' + Profile_Panels_xaxis_reversed(2) = .true. + Profile_Panels_xmin(2) = -101d0 + Profile_Panels_xmax(2) = -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_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_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 + 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_Summary1_txt_scale = 5.5 + Text_Summary_txt_scale(1) = 5.5 - Text_Summary1_num_rows = 5 - Text_Summary1_num_cols = 3 + Text_Summary_num_rows(1) = 5 + Text_Summary_num_cols(1) = 3 Text_Summary1_name(1, 1) = 'model_number' Text_Summary1_name(2, 1) = 'star_age_sec' Text_Summary1_name(3, 1) = 'time_step_sec' @@ -94,72 +94,72 @@ pgstar commands used for the plot above: 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 + 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..3355f8144 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,Grid1_file_interval)==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,87 +556,87 @@ 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_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_Panels1_other_dymin(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_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_Panels1_other_dymin(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_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_Panels1_other_dymin(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_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_Panels1_other_dymin(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..241b35322 100644 --- a/star/test_suite/ns_h/README.rst +++ b/star/test_suite/ns_h/README.rst @@ -46,44 +46,44 @@ pgstar commands used for the plot above: Power_xmin = -16.0 Power_xmax = -12.0 - Profile_Panels1_title = '' - Profile_Panels1_num_panels = 2 + Profile_Panels_title(1) = '' + Profile_Panels_num_panels(1) = 2 - Profile_Panels1_xaxis_name = 'logxm' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101d0 - Profile_Panels1_xmax = -101d0 + Profile_Panels_xaxis_name(1) = 'logxm' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101d0 + Profile_Panels_xmax(1) = -101d0 - Profile_Panels1_yaxis_name(1) = 'logRho' - Profile_Panels1_yaxis_name(2) = 'logT' - Profile_Panels1_ymin(1) = -101 + Profile_Panels_yaxis_name(1, 1) = 'logRho' + Profile_Panels_yaxis_name(1, 2) = 'logT' + Profile_Panels_ymin(1, 1) = -101 - Profile_Panels1_other_yaxis_name(1) = 'logP' - Profile_Panels1_other_yaxis_name(2) = 'entropy' - Profile_Panels1_other_ymin(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_Panels2_title = '' - Profile_Panels2_num_panels = 2 + Profile_Panels_title(2) = '' + Profile_Panels_num_panels(2) = 2 - Profile_Panels2_xaxis_name = 'logxm' - Profile_Panels2_xaxis_reversed = .true. - Profile_Panels2_xmin = -101d0 - Profile_Panels2_xmax = -101d0 + Profile_Panels_xaxis_name(2) = 'logxm' + Profile_Panels_xaxis_reversed(2) = .true. + Profile_Panels_xmin(2) = -101d0 + Profile_Panels_xmax(2) = -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_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_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 + 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_Summary1_txt_scale = 5.5 + Text_Summary_txt_scale(1) = 5.5 - Text_Summary1_num_rows = 5 - Text_Summary1_num_cols = 3 + Text_Summary_num_rows(1) = 5 + Text_Summary_num_cols(1) = 3 Text_Summary1_name(1, 1) = 'model_number' Text_Summary1_name(2, 1) = 'star_age_sec' Text_Summary1_name(3, 1) = 'time_step_sec' @@ -100,72 +100,72 @@ pgstar commands used for the plot above: 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 + 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..2580446d6 100644 --- a/star/test_suite/ns_h/inlist_pgstar +++ b/star/test_suite/ns_h/inlist_pgstar @@ -7,47 +7,47 @@ Mixing_ymin = 8 Mixing_ymax = 22 - Profile_Panels1_title = '' - Profile_Panels1_xaxis_name = 'mass' - Profile_Panels1_xaxis_reversed = .false. + Profile_Panels_title(1) = '' + Profile_Panels_xaxis_name(1) = 'mass' + Profile_Panels_xaxis_reversed(1) = .false. - Profile_Panels1_yaxis_name(1) = 'logRho' - Profile_Panels1_yaxis_name(2) = 'logT' + Profile_Panels_yaxis_name(1, 1) = 'logRho' + Profile_Panels_yaxis_name(1, 2) = 'logT' - Profile_Panels1_ymin(1) = -101 - ! Profile_Panels1_ymin(2) = -10 - ! Profile_Panels1_ymax(2) = 0.3 + Profile_Panels_ymin(1, 1) = -101 + ! Profile_Panels_ymin(1, 2) = -10 + ! Profile_Panels_ymax(1, 2) = 0.3 - Profile_Panels1_other_yaxis_name(1) = 'logP' - Profile_Panels1_other_yaxis_name(2) = 'energy' + Profile_Panels_other_yaxis_name(1, 1) = 'logP' + Profile_Panels_other_yaxis_name(1, 2) = 'energy' - Profile_Panels1_other_ymin(1) = -101 - ! Profile_Panels1_other_ymin(2) = -12 - ! Profile_Panels1_other_ymax(2) = 0 + Profile_Panels_other_ymin(1, 1) = -101 + ! Profile_Panels_other_ymin(1, 2) = -12 + ! Profile_Panels_other_ymax(1, 2) = 0 - Profile_Panels1_num_panels = 2 + Profile_Panels_num_panels(1) = 2 - Profile_Panels2_title = '' - Profile_Panels2_xaxis_name = 'mass' - Profile_Panels2_xaxis_reversed = .false. + Profile_Panels_title(2) = '' + Profile_Panels_xaxis_name(2) = 'mass' + Profile_Panels_xaxis_reversed(2) = .false. - Profile_Panels2_num_panels = 2 - Profile_Panels2_yaxis_name(1) = 'v_div_csound' - Profile_Panels2_yaxis_name(2) = 'entropy' + Profile_Panels_num_panels(2) = 2 + Profile_Panels_yaxis_name(2, 1) = 'v_div_csound' + Profile_Panels_yaxis_name(2, 2) = 'entropy' - Profile_Panels2_ymin(1) = -101 - Profile_Panels2_ymin(2) = -101 + Profile_Panels_ymin(2, 1) = -101 + Profile_Panels_ymin(2, 2) = -101 - Profile_Panels2_other_yaxis_name(1) = 'vel_km_per_s' - Profile_Panels2_other_yaxis_name(2) = 'total_energy' + Profile_Panels_other_yaxis_name(2, 1) = 'vel_km_per_s' + Profile_Panels_other_yaxis_name(2, 2) = 'total_energy' - Profile_Panels2_other_ymin(1) = -101 - Profile_Panels2_other_ymin(2) = -101 + Profile_Panels_other_ymin(2, 1) = -101 + Profile_Panels_other_ymin(2, 2) = -101 - Text_Summary1_txt_scale = 5.5 + Text_Summary_txt_scale(1) = 5.5 - Text_Summary1_num_rows = 5 - Text_Summary1_num_cols = 3 + Text_Summary_num_rows(1) = 5 + Text_Summary_num_cols(1) = 3 Text_Summary1_name(1, 1) = 'model_number' Text_Summary1_name(2, 1) = 'star_age_sec' Text_Summary1_name(3, 1) = 'time_step_sec' @@ -82,85 +82,85 @@ 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 + 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..505c401e2 100644 --- a/star/test_suite/ns_he/README.rst +++ b/star/test_suite/ns_he/README.rst @@ -41,44 +41,44 @@ pgstar commands used for the plot above: Power_xmin = -12.0 Power_xmax = -8.0 - Profile_Panels1_title = '' - Profile_Panels1_num_panels = 2 + Profile_Panels_title(1) = '' + Profile_Panels_num_panels(1) = 2 - Profile_Panels1_xaxis_name = 'logxm' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101d0 - Profile_Panels1_xmax = -101d0 + Profile_Panels_xaxis_name(1) = 'logxm' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101d0 + Profile_Panels_xmax(1) = -101d0 - Profile_Panels1_yaxis_name(1) = 'logRho' - Profile_Panels1_yaxis_name(2) = 'logT' - Profile_Panels1_ymin(1) = -101 + Profile_Panels_yaxis_name(1, 1) = 'logRho' + Profile_Panels_yaxis_name(1, 2) = 'logT' + Profile_Panels_ymin(1, 1) = -101 - Profile_Panels1_other_yaxis_name(1) = 'logP' - Profile_Panels1_other_yaxis_name(2) = 'entropy' - Profile_Panels1_other_ymin(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_Panels2_title = '' - Profile_Panels2_num_panels = 2 + Profile_Panels_title(2) = '' + Profile_Panels_num_panels(2) = 2 - Profile_Panels2_xaxis_name = 'logxm' - Profile_Panels2_xaxis_reversed = .true. - Profile_Panels2_xmin = -101d0 - Profile_Panels2_xmax = -101d0 + Profile_Panels_xaxis_name(2) = 'logxm' + Profile_Panels_xaxis_reversed(2) = .true. + Profile_Panels_xmin(2) = -101d0 + Profile_Panels_xmax(2) = -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_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_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 + 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_Summary1_txt_scale = 5.5 + Text_Summary_txt_scale(1) = 5.5 - Text_Summary1_num_rows = 5 - Text_Summary1_num_cols = 3 + Text_Summary_num_rows(1) = 5 + Text_Summary_num_cols(1) = 3 Text_Summary1_name(1, 1) = 'model_number' Text_Summary1_name(2, 1) = 'star_age_sec' Text_Summary1_name(3, 1) = 'time_step_sec' @@ -95,72 +95,72 @@ pgstar commands used for the plot above: 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 + 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..dae292a0f 100644 --- a/star/test_suite/ns_he/inlist_to_flash +++ b/star/test_suite/ns_he/inlist_to_flash @@ -210,44 +210,44 @@ Mixing_xaxis_reversed = .true. Power_xmin = -12.0 Power_xmax = -8.0 - Profile_Panels1_title = '' - Profile_Panels1_num_panels = 2 + Profile_Panels_title(1) = '' + Profile_Panels_num_panels(1) = 2 - Profile_Panels1_xaxis_name = 'logxm' - Profile_Panels1_xaxis_reversed = .true. - Profile_Panels1_xmin = -101d0 - Profile_Panels1_xmax = -101d0 + Profile_Panels_xaxis_name(1) = 'logxm' + Profile_Panels_xaxis_reversed(1) = .true. + Profile_Panels_xmin(1) = -101d0 + Profile_Panels_xmax(1) = -101d0 - Profile_Panels1_yaxis_name(1) = 'logRho' - Profile_Panels1_yaxis_name(2) = 'logT' - Profile_Panels1_ymin(1) = -101 + Profile_Panels_yaxis_name(1, 1) = 'logRho' + Profile_Panels_yaxis_name(1, 2) = 'logT' + Profile_Panels_ymin(1, 1) = -101 - Profile_Panels1_other_yaxis_name(1) = 'logP' - Profile_Panels1_other_yaxis_name(2) = 'entropy' - Profile_Panels1_other_ymin(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_Panels2_title = '' - Profile_Panels2_num_panels = 2 + Profile_Panels_title(2) = '' + Profile_Panels_num_panels(2) = 2 - Profile_Panels2_xaxis_name = 'logxm' - Profile_Panels2_xaxis_reversed = .true. - Profile_Panels2_xmin = -101d0 - Profile_Panels2_xmax = -101d0 + Profile_Panels_xaxis_name(2) = 'logxm' + Profile_Panels_xaxis_reversed(2) = .true. + Profile_Panels_xmin(2) = -101d0 + Profile_Panels_xmax(2) = -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_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_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 + 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_Summary1_txt_scale = 5.5 + Text_Summary_txt_scale(1) = 5.5 - Text_Summary1_num_rows = 5 - Text_Summary1_num_cols = 3 + Text_Summary_num_rows(1) = 5 + Text_Summary_num_cols(1) = 3 Text_Summary1_name(1, 1) = 'model_number' Text_Summary1_name(2, 1) = 'star_age_sec' Text_Summary1_name(3, 1) = 'time_step_sec' @@ -264,71 +264,71 @@ Mixing_xaxis_reversed = .true. 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 + 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..dbd060ca8 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,Grid1_file_interval)==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..42ff5785e 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,Grid1_file_interval)==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_Panels_yaxis_name(1, 3) = 'gradT' +Profile_Panels_other_yaxis_name(1, 3) = 'grada' Profile_Panels1_same_yaxis_range(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,112 +278,112 @@ 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_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_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_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_Panels2_other_dymin(3) = 0.8 @@ -600,72 +600,72 @@ 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_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_Panels1_other_dymin(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_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_Panels1_other_dymin(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_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_Panels1_other_dymin(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..5db532fc1 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_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_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_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_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_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 + 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_Panels_yaxis_name(1, 1) = 'vel_km_per_s' + Profile_Panels_other_yaxis_name(1, 1) = 'gamma1' Profile_Panels1_dymin(1) = 50 - Profile_Panels1_other_ymax(1) = 1.41 - Profile_Panels1_other_ymin(1) = 1.28 + 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_Panels_yaxis_name(1, 3) = 'logRho' + Profile_Panels_ymax(1, 3) = -101d0 + Profile_Panels_ymin(1, 3) = -2 Profile_Panels1_dymin(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,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/star/test_suite/ppisn/src/run_star_extras.f90 b/star/test_suite/ppisn/src/run_star_extras.f90 index 5b68e118a..5925be7b8 100644 --- a/star/test_suite/ppisn/src/run_star_extras.f90 +++ b/star/test_suite/ppisn/src/run_star_extras.f90 @@ -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_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,Grid2_file_interval)==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 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..d74665fae 100644 --- a/star/test_suite/rsp_BEP/inlist_rsp_BEP_make_cycle0 +++ b/star/test_suite/rsp_BEP/inlist_rsp_BEP_make_cycle0 @@ -102,26 +102,26 @@ 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_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,Grid2_file_interval)==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 diff --git a/star/test_suite/rsp_BEP/inlist_rsp_BEP_std b/star/test_suite/rsp_BEP/inlist_rsp_BEP_std index 3b7bc0b4d..296fdda57 100644 --- a/star/test_suite/rsp_BEP/inlist_rsp_BEP_std +++ b/star/test_suite/rsp_BEP/inlist_rsp_BEP_std @@ -103,26 +103,26 @@ 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_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,Grid2_file_interval)==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 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..1ccbe7382 100644 --- a/star/test_suite/rsp_BEP/inlist_rsp_BEP_test_cycle0 +++ b/star/test_suite/rsp_BEP/inlist_rsp_BEP_test_cycle0 @@ -101,26 +101,26 @@ 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_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,Grid2_file_interval)==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 diff --git a/star/test_suite/rsp_BEP/inlist_rsp_pgstar_default b/star/test_suite/rsp_BEP/inlist_rsp_pgstar_default index 5b4b8c027..5c23aecda 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,Grid2_file_interval)==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_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_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_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_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_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_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_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_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_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_Panels2_other_dymin(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_Panels_yaxis_name(2, 1) = 'v_div_cs' + Profile_Panels_ymax(2, 1) = -101D0 ! 1 + Profile_Panels_ymin(2, 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_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_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_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_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..c94c399f5 100644 --- a/star/test_suite/rsp_BLAP/inlist_rsp_BLAP +++ b/star/test_suite/rsp_BLAP/inlist_rsp_BLAP @@ -108,27 +108,27 @@ 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_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,Grid2_file_interval)==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 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..0d74130ce 100644 --- a/star/test_suite/rsp_BLAP/inlist_rsp_BLAP_make_cycle0 +++ b/star/test_suite/rsp_BLAP/inlist_rsp_BLAP_make_cycle0 @@ -105,27 +105,27 @@ 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_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,Grid2_file_interval)==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 diff --git a/star/test_suite/rsp_BLAP/inlist_rsp_BLAP_std b/star/test_suite/rsp_BLAP/inlist_rsp_BLAP_std index 4d8dc4ac6..b25f55b47 100644 --- a/star/test_suite/rsp_BLAP/inlist_rsp_BLAP_std +++ b/star/test_suite/rsp_BLAP/inlist_rsp_BLAP_std @@ -106,27 +106,27 @@ 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_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,Grid2_file_interval)==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 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..737c77503 100644 --- a/star/test_suite/rsp_BLAP/inlist_rsp_BLAP_test_cycle0 +++ b/star/test_suite/rsp_BLAP/inlist_rsp_BLAP_test_cycle0 @@ -104,27 +104,27 @@ 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_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,Grid2_file_interval)==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 diff --git a/star/test_suite/rsp_BLAP/inlist_rsp_pgstar_default b/star/test_suite/rsp_BLAP/inlist_rsp_pgstar_default index 5b4b8c027..5c23aecda 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,Grid2_file_interval)==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_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_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_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_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_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_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_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_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_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_Panels2_other_dymin(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_Panels_yaxis_name(2, 1) = 'v_div_cs' + Profile_Panels_ymax(2, 1) = -101D0 ! 1 + Profile_Panels_ymin(2, 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_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_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_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_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..8be7246cd 100644 --- a/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid +++ b/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid @@ -106,25 +106,25 @@ !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_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,Grid2_file_interval)==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 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..2497f44e5 100644 --- a/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid_make_cycle0 +++ b/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid_make_cycle0 @@ -103,25 +103,25 @@ !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_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,Grid2_file_interval)==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 diff --git a/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid_std b/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid_std index 9278350a5..8be7246cd 100644 --- a/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid_std +++ b/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid_std @@ -106,25 +106,25 @@ !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_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,Grid2_file_interval)==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 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..6e0205d45 100644 --- a/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid_test_cycle0 +++ b/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid_test_cycle0 @@ -103,25 +103,25 @@ 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_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,Grid2_file_interval)==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 diff --git a/star/test_suite/rsp_Cepheid/inlist_rsp_pgstar_default b/star/test_suite/rsp_Cepheid/inlist_rsp_pgstar_default index 5b4b8c027..5c23aecda 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,Grid2_file_interval)==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_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_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_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_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_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_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_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_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_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_Panels2_other_dymin(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_Panels_yaxis_name(2, 1) = 'v_div_cs' + Profile_Panels_ymax(2, 1) = -101D0 ! 1 + Profile_Panels_ymin(2, 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_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_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_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_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..db99390c6 100644 --- a/star/test_suite/rsp_Cepheid_6M/inlist_rsp_Cepheid +++ b/star/test_suite/rsp_Cepheid_6M/inlist_rsp_Cepheid @@ -96,25 +96,25 @@ !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_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,Grid2_file_interval)==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 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..ac47bcff7 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,25 +95,25 @@ !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_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,Grid2_file_interval)==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 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..db99390c6 100644 --- a/star/test_suite/rsp_Cepheid_6M/inlist_rsp_Cepheid_std +++ b/star/test_suite/rsp_Cepheid_6M/inlist_rsp_Cepheid_std @@ -96,25 +96,25 @@ !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_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,Grid2_file_interval)==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 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..e76df2948 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,25 +94,25 @@ 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_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,Grid2_file_interval)==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 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..5c23aecda 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,Grid2_file_interval)==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_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_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_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_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_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_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_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_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_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_Panels2_other_dymin(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_Panels_yaxis_name(2, 1) = 'v_div_cs' + Profile_Panels_ymax(2, 1) = -101D0 ! 1 + Profile_Panels_ymin(2, 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_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_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_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_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..d32fe6ddb 100644 --- a/star/test_suite/rsp_Delta_Scuti/inlist_rsp_Delta_Scuti +++ b/star/test_suite/rsp_Delta_Scuti/inlist_rsp_Delta_Scuti @@ -123,27 +123,27 @@ 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_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,Grid2_file_interval)==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 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..e9cc99974 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,27 +122,27 @@ 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_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,Grid2_file_interval)==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 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..d32fe6ddb 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,27 +123,27 @@ 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_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,Grid2_file_interval)==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 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..440525d87 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,27 +121,27 @@ 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_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,Grid2_file_interval)==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 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..5c23aecda 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,Grid2_file_interval)==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_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_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_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_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_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_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_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_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_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_Panels2_other_dymin(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_Panels_yaxis_name(2, 1) = 'v_div_cs' + Profile_Panels_ymax(2, 1) = -101D0 ! 1 + Profile_Panels_ymin(2, 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_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_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_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_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..ad678f5bd 100644 --- a/star/test_suite/rsp_RR_Lyrae/inlist_rsp_RR_Lyrae +++ b/star/test_suite/rsp_RR_Lyrae/inlist_rsp_RR_Lyrae @@ -94,27 +94,27 @@ 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_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,Grid2_file_interval)==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 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..58e835c5f 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,27 +93,27 @@ 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_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,Grid2_file_interval)==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 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..ad678f5bd 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,27 +94,27 @@ 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_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,Grid2_file_interval)==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 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..fcecfe50a 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,27 +92,27 @@ 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_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,Grid2_file_interval)==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 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..5c23aecda 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,Grid2_file_interval)==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_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_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_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_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_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_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_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_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_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_Panels2_other_dymin(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_Panels_yaxis_name(2, 1) = 'v_div_cs' + Profile_Panels_ymax(2, 1) = -101D0 ! 1 + Profile_Panels_ymin(2, 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_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_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_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_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..a9dd6e52a 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,27 +121,27 @@ 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_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,Grid2_file_interval)==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 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..8efc0c4c1 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,27 +120,27 @@ 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_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,Grid2_file_interval)==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 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..a9dd6e52a 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,27 +121,27 @@ 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_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,Grid2_file_interval)==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 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..bdb73c2d2 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,27 +106,27 @@ 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_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,Grid2_file_interval)==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 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..d1bdc9758 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,95 +136,95 @@ 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 + 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,Grid1_file_interval)==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_Panels1_win_flag = .false. + Profile_Panels_win_flag(1) = .false. - Profile_Panels1_win_width = 6 - Profile_Panels1_win_aspect_ratio = 1.5 ! aspect_ratio = height/width + Profile_Panels_win_width(1) = 6 + Profile_Panels_win_aspect_ratio = 1.5 ! aspect_ratio(1) = 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_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 = '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_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_Panels1_yaxis_name(:) = '' Profile_Panels1_yaxis_reversed(:) = .false. @@ -244,82 +244,82 @@ Profile_Panels1_other_ymargin(:) = 0.1 Profile_Panels1_other_dymin(:) = -1 - Profile_Panels1_show_grid = .false. + 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_Panels_ymin(1, 4) = -11 + Profile_Panels_ymax(1, 4) = -101d0 Profile_Panels1_yaxis_log(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 + 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_Panels1_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 - 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_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 = -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_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_Panels1_yaxis_name(:) = '' History_Panels1_yaxis_reversed(:) = .false. @@ -340,45 +340,45 @@ History_Panels1_points_name(:) = '' ! setup default - History_Panels1_num_panels = 2 + History_Panels_num_panels(1) = 2 - History_Panels1_yaxis_name(1) = 'Ew' + History_Panels_yaxis_name(1, 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_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) = '' - History_Panels1_other_yaxis_reversed(1) = .false. + History_Panels_other_yaxis_name(1, 1) = '' + History_Panels_other_yaxis_reversed(1, 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_Panels_other_ymin(1, 1) = -101d0 ! only used if /= -101d0 + History_Panels_other_ymax(1, 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_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_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_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_Panels1_other_dymin(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..a320e4a81 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,Grid2_file_interval)==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_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_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_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_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_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_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_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_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_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_Panels1_other_dymin(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_Panels_yaxis_name(1, 1) = 'v_div_cs' + Profile_Panels_ymax(1, 1) = -101D0 ! 1 + Profile_Panels_ymin(1, 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_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_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) = '' + 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..d3db8a60e 100644 --- a/star/test_suite/rsp_gyre/inlist_rsp_gyre +++ b/star/test_suite/rsp_gyre/inlist_rsp_gyre @@ -109,39 +109,39 @@ ! 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,Grid1_file_interval)==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_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,Grid2_file_interval)==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 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..3b9f8b48e 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 + Grid_file_dir(2) = 'png' + Grid_file_prefix(2) = 'grid1' + Grid_file_interval(2) = 10 ! output when mod(model_number,Grid2_file_interval)==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_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_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_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_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_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_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_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_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_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_Panels1_other_dymin(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_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_Panels1_file_interval)==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..6716ee43b 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_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,Grid2_file_interval)==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_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..cb302b0b0 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_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,Grid2_file_interval)==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_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..836782cfa 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,Grid1_file_interval)==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_Panels_yaxis_name(1, 3) = 'gradT' +Profile_Panels_other_yaxis_name(1, 3) = 'grada' Profile_Panels1_same_yaxis_range(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,87 +563,87 @@ 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_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_Panels1_other_dymin(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_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_Panels1_other_dymin(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_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_Panels1_other_dymin(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_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_Panels1_other_dymin(4) = -1 diff --git a/star/test_suite/twin_studies/README.rst b/star/test_suite/twin_studies/README.rst index 6166fb0b9..dd0fcc31a 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..ac24f4639 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,Grid1_file_interval)==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_Panels_yaxis_name(1, 1) = 'logRho' Profile_Panels1_dymin(1) = 0.1 -Profile_Panels1_other_yaxis_name(1) = 'logT' -Profile_Panels1_other_dymin(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_Panels_yaxis_name(1, 3) = 'gradT' +Profile_Panels_other_yaxis_name(1, 3) = 'grada' Profile_Panels1_same_yaxis_range(3) = .true. -Profile_Panels1_other_dymin(3) = 0.08 +Profile_Panels_other_dymin(1, 3) = 0.08 -Profile_Panels1_yaxis_name(4) = 'log_opacity' +Profile_Panels_yaxis_name(1, 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_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,87 +553,87 @@ 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_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_Panels1_other_dymin(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_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_Panels1_other_dymin(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_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_Panels1_other_dymin(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_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_Panels1_other_dymin(4) = 0.14 diff --git a/star/test_suite/twin_studies/inlist_star1 b/star/test_suite/twin_studies/inlist_star1 index 3bb38ecd7..11b6fb6d1 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,Grid1_file_interval)==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..80876b0fa 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,Grid1_file_interval)==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..7f04de9fe 100755 --- 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_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_Panels1_other_yaxis_log(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_Panels1_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 !------------------------------------------------------------------------------------ ! 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_Panels_yaxis_name(2, 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_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_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_Panels2_other_yaxis_log(1) =.false. ! contents of panel 2 -Profile_Panels2_yaxis_name(2) = 'cgrav_factor' +Profile_Panels_yaxis_name(2, 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_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_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_Panels2_other_yaxis_log(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_Panels1_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 !------------------------------------------------------------------------------------ -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_Panels_num_panels(1) = 3 -History_Panels1_xaxis_name = 'star_age' +History_Panels_xaxis_name(1) = '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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_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_Panels1_other_dymin(4) = -1 History_Panels1_yaxis_log(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,Grid1_file_interval)==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..2fe68dd29 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,Grid1_file_interval)==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..64bf13d87 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,Grid1_file_interval)==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/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..d6ac00995 100644 --- a/star/test_suite/wd_he_shell_ignition/README.rst +++ b/star/test_suite/wd_he_shell_ignition/README.rst @@ -44,32 +44,32 @@ 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_Panels_yaxis_name(2, 2) = 'Power' + Profile_Panels_ymin(2, 2) = 5.0 + Profile_Panels_ymax(2, 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 + 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_Track1_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/README.rst b/star/test_suite/wd_nova_burst/README.rst index b0caf99d2..7fc9be701 100644 --- a/star/test_suite/wd_nova_burst/README.rst +++ b/star/test_suite/wd_nova_burst/README.rst @@ -56,9 +56,9 @@ pgstar commands used for the plots above: 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. @@ -98,15 +98,15 @@ pgstar commands used for the plots above: 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 cb46aa22a..35157ad88 100644 --- a/star/test_suite/wd_nova_burst/inlist_setup +++ b/star/test_suite/wd_nova_burst/inlist_setup @@ -153,8 +153,8 @@ &pgstar - Grid8_win_flag = .true. - Grid8_win_width = 7 + 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 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 b9a6219db..892cc6042 100644 --- a/star/test_suite/wd_nova_burst/inlist_wd_nova_burst +++ b/star/test_suite/wd_nova_burst/inlist_wd_nova_burst @@ -148,8 +148,8 @@ &pgstar - Grid8_win_flag = .true. - Grid8_win_width = 7 + 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 @@ -159,10 +159,10 @@ 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' + 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..3965ea754 100644 --- a/star/test_suite/wd_stable_h_burn/README.rst +++ b/star/test_suite/wd_stable_h_burn/README.rst @@ -110,64 +110,64 @@ pgstar commands used for the plots above: 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 + 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 5cfecd75c..2eea35779 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..d5d0aedfe 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,Grid1_file_interval)==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_Panels_yaxis_name(1, 1) = 'logRho' Profile_Panels1_dymin(1) = 0.14 -Profile_Panels1_other_yaxis_name(1) = 'logT' -Profile_Panels1_other_dymin(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_Panels_yaxis_name(1, 3) = 'gradT' +Profile_Panels_other_yaxis_name(1, 3) = 'grada' Profile_Panels1_same_yaxis_range(3) = .true. -Profile_Panels1_other_dymin(3) = 0.08 +Profile_Panels_other_dymin(1, 3) = 0.08 -Profile_Panels1_yaxis_name(4) = 'log_opacity' +Profile_Panels_yaxis_name(1, 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_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,87 +553,87 @@ 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_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_Panels1_other_dymin(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_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_Panels1_other_dymin(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_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_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_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_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_Panels1_other_dymin(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..20720ecfc 100644 --- a/star/test_suite/zams_to_cc_80/inlist_to_cc +++ b/star/test_suite/zams_to_cc_80/inlist_to_cc @@ -107,19 +107,19 @@ 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_Panels_yaxis_name(3, 4) = 'gamma1' Profile_Panels3_dymin(4) = 0.14 -Profile_Panels3_other_yaxis_name(4) = 'vel_km_per_s' +Profile_Panels_other_yaxis_name(3, 4) = 'vel_km_per_s' Profile_Panels3_dymin(4) = 0.14 TRho_Profile_xmin = -12.0 @@ -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 From c05d715461ba93630deb75b921c2d064cdf9d29d Mon Sep 17 00:00:00 2001 From: Matthias Fabry Date: Thu, 30 May 2024 12:39:01 +0200 Subject: [PATCH 21/27] more sed'ing, hopefully this at least makes the test suite pass --- binary/test_suite/double_bh/inlist_pgstar | 4 +- .../test_suite/evolve_both_stars/README.rst | 398 +++++++++--------- binary/test_suite/jdot_gr_check/README.rst | 316 +++++++------- binary/test_suite/jdot_ls_check/README.rst | 318 +++++++------- binary/test_suite/jdot_ml_check/README.rst | 362 ++++++++-------- .../star_plus_point_mass/README.rst | 100 ++--- .../star_plus_point_mass/inlist_pgstar | 178 ++++---- .../README.rst | 100 ++--- star/test_suite/1.3M_ms_high_Z/README.rst | 2 +- star/test_suite/1.3M_ms_high_Z/inlist_pgstar | 4 +- .../12M_pre_ms_to_core_collapse/inlist_pgstar | 2 +- star/test_suite/1M_pre_ms_to_wd/README.rst | 2 +- star/test_suite/1M_pre_ms_to_wd/inlist_start | 2 +- .../1M_pre_ms_to_wd/inlist_to_end_agb | 2 +- .../1M_pre_ms_to_wd/inlist_to_end_core_h_burn | 2 +- .../inlist_to_end_core_he_burn | 2 +- .../inlist_to_start_he_core_flash | 2 +- star/test_suite/1M_pre_ms_to_wd/inlist_to_wd | 2 +- star/test_suite/1M_thermohaline/README.rst | 6 +- .../20M_pre_ms_to_core_collapse/inlist_pgstar | 2 +- .../20M_z2m2_high_rotation/README.rst | 2 +- .../20M_z2m2_high_rotation/inlist_pgstar | 2 +- star/test_suite/R_CrB_star/inlist_pgstar | 34 +- .../test_suite/accreted_material_j/README.rst | 40 +- star/test_suite/adjust_net/README.rst | 46 +- .../adjust_net/inlist_massive_defaults | 2 +- star/test_suite/cburn_inward/README.rst | 2 +- .../cburn_inward/inlist_cburn_inward | 2 +- star/test_suite/cburn_inward/inlist_initial | 2 +- star/test_suite/ccsn_IIp/README.rst | 148 +++---- star/test_suite/ccsn_IIp/inlist_common | 2 +- star/test_suite/ccsn_IIp/inlist_pgstar | 64 +-- star/test_suite/ccsn_IIp/inlist_shock_part5 | 84 ++-- .../test_suite/conductive_flame/inlist_pgstar | 68 +-- .../conserve_angular_momentum/README.rst | 2 +- .../conv_core_cpm/inlist_conv_core_cpm | 46 +- star/test_suite/custom_colors/README.rst | 134 +++--- star/test_suite/custom_colors/inlist_1.0 | 134 +++--- .../custom_colors/src/run_star_extras.f90 | 2 +- .../diffusion_smoothness/README.rst | 4 +- star/test_suite/gyre_in_mesa_wd/inlist_common | 2 +- .../inlist_high_rot_darkening | 12 +- star/test_suite/irradiated_planet/README.rst | 104 ++--- .../magnetic_braking/inlist_braking | 12 +- .../magnetic_braking/inlist_braking_pgstar | 12 +- .../magnetic_braking/inlist_zams_pgstar | 2 +- star/test_suite/make_co_wd/inlist_common | 2 +- star/test_suite/make_o_ne_wd/inlist_pgstar | 10 +- .../make_pre_ccsn_13bvn/inlist_pgstar | 18 +- star/test_suite/ns_c/README.rst | 30 +- star/test_suite/ns_c/inlist_pgstar | 10 +- star/test_suite/ns_h/README.rst | 30 +- star/test_suite/ns_h/inlist_pgstar | 64 +-- star/test_suite/ns_he/README.rst | 30 +- star/test_suite/ns_he/inlist_to_flash | 30 +- star/test_suite/pisn/inlist_finish | 2 +- star/test_suite/pisn/inlist_pgstar | 14 +- star/test_suite/ppisn/inlist_pgstar | 12 +- star/test_suite/ppisn/src/run_star_extras.f90 | 2 +- star/test_suite/rsp_BEP/inlist_rsp_BEP | 6 +- .../rsp_BEP/inlist_rsp_BEP_make_cycle0 | 6 +- star/test_suite/rsp_BEP/inlist_rsp_BEP_std | 6 +- .../rsp_BEP/inlist_rsp_BEP_test_cycle0 | 6 +- .../rsp_BEP/inlist_rsp_pgstar_default | 16 +- star/test_suite/rsp_BLAP/inlist_rsp_BLAP | 6 +- .../rsp_BLAP/inlist_rsp_BLAP_make_cycle0 | 6 +- star/test_suite/rsp_BLAP/inlist_rsp_BLAP_std | 6 +- .../rsp_BLAP/inlist_rsp_BLAP_test_cycle0 | 6 +- .../rsp_BLAP/inlist_rsp_pgstar_default | 16 +- .../test_suite/rsp_Cepheid/inlist_rsp_Cepheid | 6 +- .../inlist_rsp_Cepheid_make_cycle0 | 6 +- .../rsp_Cepheid/inlist_rsp_Cepheid_std | 6 +- .../inlist_rsp_Cepheid_test_cycle0 | 6 +- .../rsp_Cepheid/inlist_rsp_pgstar_default | 16 +- .../rsp_Cepheid_6M/inlist_rsp_Cepheid | 6 +- .../inlist_rsp_Cepheid_make_cycle0 | 6 +- .../rsp_Cepheid_6M/inlist_rsp_Cepheid_std | 6 +- .../inlist_rsp_Cepheid_test_cycle0 | 6 +- .../rsp_Cepheid_6M/inlist_rsp_pgstar_default | 16 +- .../rsp_Delta_Scuti/inlist_rsp_Delta_Scuti | 6 +- .../inlist_rsp_Delta_Scuti_make_cycle0 | 6 +- .../inlist_rsp_Delta_Scuti_std | 6 +- .../inlist_rsp_Delta_Scuti_test_cycle0 | 6 +- .../rsp_Delta_Scuti/inlist_rsp_pgstar_default | 16 +- .../rsp_RR_Lyrae/inlist_rsp_RR_Lyrae | 6 +- .../inlist_rsp_RR_Lyrae_make_cycle0 | 6 +- .../rsp_RR_Lyrae/inlist_rsp_RR_Lyrae_std | 6 +- .../inlist_rsp_RR_Lyrae_test_cycle0 | 6 +- .../rsp_RR_Lyrae/inlist_rsp_pgstar_default | 16 +- .../inlist_rsp_Type_II_Cepheid | 6 +- .../inlist_rsp_Type_II_Cepheid_make_cycle0 | 6 +- .../inlist_rsp_Type_II_Cepheid_std | 6 +- .../inlist_rsp_Type_II_Cepheid_test_cycle0 | 6 +- .../inlist_rsp_check_2nd_crossing | 78 ++-- .../rsp_gyre/inlist_pulse_pgstar_default | 16 +- star/test_suite/rsp_gyre/inlist_rsp_gyre | 8 +- .../rsp_save_and_load_file/inlist_rsp_common | 14 +- .../inlist_rsp_load_file | 6 +- .../inlist_rsp_save_file | 6 +- .../split_burn_big_net/inlist_pgstar | 12 +- star/test_suite/twin_studies/inlist_pgstar | 16 +- star/test_suite/twin_studies/inlist_star1 | 2 +- star/test_suite/twin_studies/inlist_star2 | 2 +- star/test_suite/tzo/inlist_pgstar | 28 +- star/test_suite/wd_acc_small_dm/inlist_pgstar | 2 +- star/test_suite/wd_aic/inlist_pgstar | 2 +- star/test_suite/wd_c_core_ignition/README.rst | 46 +- .../wd_he_shell_ignition/README.rst | 46 +- star/test_suite/wd_stable_h_burn/README.rst | 152 +++---- star/test_suite/zams_to_cc_80/inlist_pgstar | 16 +- star/test_suite/zams_to_cc_80/inlist_to_cc | 4 +- 111 files changed, 1872 insertions(+), 1872 deletions(-) diff --git a/binary/test_suite/double_bh/inlist_pgstar b/binary/test_suite/double_bh/inlist_pgstar index 7a803668d..f04bdfed7 100644 --- a/binary/test_suite/double_bh/inlist_pgstar +++ b/binary/test_suite/double_bh/inlist_pgstar @@ -66,8 +66,8 @@ Profile_Panels_xaxis_name(3) = 'logxq' Profile_Panels_xaxis_reversed(3) = .true. - !Profile_Panels3_xmin = 20.2d0 ! only used if /= -101d0 - !Profile_Panels3_xmax = 20.6d0 ! 10 ! only used if /= -101d0 + !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 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/jdot_gr_check/README.rst b/binary/test_suite/jdot_gr_check/README.rst index 1f9d63ca7..277cb9f67 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 fb103e9a3..ff22af262 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_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/star/test_suite/1.3M_ms_high_Z/README.rst b/star/test_suite/1.3M_ms_high_Z/README.rst index 8ae092467..ddfbc52a5 100644 --- a/star/test_suite/1.3M_ms_high_Z/README.rst +++ b/star/test_suite/1.3M_ms_high_Z/README.rst @@ -85,7 +85,7 @@ pgstar commands used for the plots above: 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,Grid1_file_interval)==0 + Grid_file_interval(1) = 1000000 ! output when mod(model_number,Grid_file_interval(1))==0 Grid_file_width(1) = 15 ! 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/1.3M_ms_high_Z/inlist_pgstar b/star/test_suite/1.3M_ms_high_Z/inlist_pgstar index 185212725..0a5912b49 100644 --- a/star/test_suite/1.3M_ms_high_Z/inlist_pgstar +++ b/star/test_suite/1.3M_ms_high_Z/inlist_pgstar @@ -43,7 +43,7 @@ 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,Grid1_file_interval)==0 + 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 @@ -93,7 +93,7 @@ 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_Panels1_file_interval)==0 + 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 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 a576e9548..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 @@ -22,7 +22,7 @@ Grid_win_aspect_ratio(1) = 0.666 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,Grid1_file_interval)==0 +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 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 5e645a7bc..f5722c234 100644 --- a/star/test_suite/1M_pre_ms_to_wd/README.rst +++ b/star/test_suite/1M_pre_ms_to_wd/README.rst @@ -58,7 +58,7 @@ pgstar commands used for the plots above: 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,Grid6_file_interval)==0 + 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 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 6cf38fe17..6f82523a1 100644 --- a/star/test_suite/1M_pre_ms_to_wd/inlist_start +++ b/star/test_suite/1M_pre_ms_to_wd/inlist_start @@ -126,7 +126,7 @@ !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,Grid6_file_interval)==0 + 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 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 167a3d1c1..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 @@ -123,7 +123,7 @@ !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,Grid6_file_interval)==0 + 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 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 f3438bc99..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 @@ -89,7 +89,7 @@ !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,Grid6_file_interval)==0 + 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 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 e5978b298..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 @@ -92,7 +92,7 @@ !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,Grid6_file_interval)==0 + 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 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 4c9d1f568..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 @@ -102,7 +102,7 @@ !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,Grid6_file_interval)==0 + 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 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 97b3f7865..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 @@ -167,7 +167,7 @@ !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,Grid6_file_interval)==0 + 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 diff --git a/star/test_suite/1M_thermohaline/README.rst b/star/test_suite/1M_thermohaline/README.rst index f272c844a..ad3b8471b 100644 --- a/star/test_suite/1M_thermohaline/README.rst +++ b/star/test_suite/1M_thermohaline/README.rst @@ -165,7 +165,7 @@ pgstar commands used for the plots above: 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,Grid3_file_interval)==0 + 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 @@ -182,8 +182,8 @@ pgstar commands used for the plots above: Profile_Panels_num_panels(1) = 1 Profile_Panels_yaxis_name(1, 1) = 'brunt_B' - Profile_Panels1_ymin(:) = -0.00006 ! 0.633 - Profile_Panels1_ymax(:) = 0.000001 ! 0.634 + 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. 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 a576e9548..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 @@ -22,7 +22,7 @@ Grid_win_aspect_ratio(1) = 0.666 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,Grid1_file_interval)==0 +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 diff --git a/star/test_suite/20M_z2m2_high_rotation/README.rst b/star/test_suite/20M_z2m2_high_rotation/README.rst index 103832e51..603526303 100644 --- a/star/test_suite/20M_z2m2_high_rotation/README.rst +++ b/star/test_suite/20M_z2m2_high_rotation/README.rst @@ -44,7 +44,7 @@ pgstar commands used for the plots above: 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,Grid1_file_interval)==0 + 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 diff --git a/star/test_suite/20M_z2m2_high_rotation/inlist_pgstar b/star/test_suite/20M_z2m2_high_rotation/inlist_pgstar index c4810734c..d78c10edb 100644 --- a/star/test_suite/20M_z2m2_high_rotation/inlist_pgstar +++ b/star/test_suite/20M_z2m2_high_rotation/inlist_pgstar @@ -22,7 +22,7 @@ Grid_win_aspect_ratio(1) = 0.666 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,Grid1_file_interval)==0 +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/R_CrB_star/inlist_pgstar b/star/test_suite/R_CrB_star/inlist_pgstar index c1e7fa9b4..33c09455e 100644 --- a/star/test_suite/R_CrB_star/inlist_pgstar +++ b/star/test_suite/R_CrB_star/inlist_pgstar @@ -122,19 +122,19 @@ 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_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_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_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_Panels_num_panels(1) = 3 @@ -149,7 +149,7 @@ 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_Panels1_other_dymin(1) = -1 + History_Panels_other_dymin(1, 1) = -1 History_Panels_yaxis_name(1, 2) = 'log_dt' History_Panels_yaxis_reversed(1, 2) = .false. @@ -162,7 +162,7 @@ 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_Panels1_other_dymin(2) = -1 + History_Panels_other_dymin(1, 2) = -1 History_Panels_yaxis_name(1, 3) = 'num_retries' History_Panels_yaxis_reversed(1, 3) = .false. @@ -174,7 +174,7 @@ 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_Panels1_other_dymin(3) = -1 + History_Panels_other_dymin(1, 3) = -1 History_Panels_use_decorator(1) = .true. @@ -275,7 +275,7 @@ 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,Grid1_file_interval)==0 + 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 diff --git a/star/test_suite/accreted_material_j/README.rst b/star/test_suite/accreted_material_j/README.rst index 7155dd449..84edc8b81 100644 --- a/star/test_suite/accreted_material_j/README.rst +++ b/star/test_suite/accreted_material_j/README.rst @@ -33,28 +33,28 @@ pgstar commands used for the plots above: pgstar_interval = 10 - History_Track1_win_flag = .true. - History_Track1_win_width = 12 - History_Track1_title = 'accreted_material_j' - History_Track1_xname = 'star_mass' - History_Track1_yname = 'log_total_angular_momentum' - History_Track1_yaxis_label = 'log J' - History_Track1_xaxis_label = 'M\d\(2281)' - History_Track1_reverse_xaxis = .false. - History_Track1_reverse_yaxis = .false. - - History_Track1_xmin = 20.0 - History_Track1_xmax = 25.0 - History_Track1_ymin = 51.9 - History_Track1_ymax = 52.7 + History_Track_win_flag(1) = .true. + History_Track_win_width(1) = 12 + History_Track_title(1) = 'accreted_material_j' + History_Track_xname(1) = 'star_mass' + History_Track_yname(1) = 'log_total_angular_momentum' + History_Track_yaxis_label(1) = 'log J' + History_Track_xaxis_label(1) = 'M\d\(2281)' + History_Track_reverse_xaxis(1) = .false. + History_Track_reverse_yaxis(1) = .false. + + History_Track_xmin(1) = 20.0 + History_Track_xmax(1) = 25.0 + History_Track_ymin(1) = 51.9 + History_Track_ymax(1) = 52.7 ! file output - 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_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/README.rst b/star/test_suite/adjust_net/README.rst index b600a07bc..bcbb51f9a 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_massive_defaults b/star/test_suite/adjust_net/inlist_massive_defaults index 6f795a059..b9a9f9760 100644 --- a/star/test_suite/adjust_net/inlist_massive_defaults +++ b/star/test_suite/adjust_net/inlist_massive_defaults @@ -240,7 +240,7 @@ Power_xmax = 2.4 ! -101 ! only used if /= -101d0 !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,Grid2_file_interval)==0 + 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 diff --git a/star/test_suite/cburn_inward/README.rst b/star/test_suite/cburn_inward/README.rst index 92de51590..4ee227218 100644 --- a/star/test_suite/cburn_inward/README.rst +++ b/star/test_suite/cburn_inward/README.rst @@ -88,7 +88,7 @@ pgstar commands used for the plots above: 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,Grid2_file_interval)==0 + 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 diff --git a/star/test_suite/cburn_inward/inlist_cburn_inward b/star/test_suite/cburn_inward/inlist_cburn_inward index 1e470938f..bf63129a1 100644 --- a/star/test_suite/cburn_inward/inlist_cburn_inward +++ b/star/test_suite/cburn_inward/inlist_cburn_inward @@ -158,7 +158,7 @@ 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,Grid2_file_interval)==0 + 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 diff --git a/star/test_suite/cburn_inward/inlist_initial b/star/test_suite/cburn_inward/inlist_initial index bb6697202..9e947adda 100644 --- a/star/test_suite/cburn_inward/inlist_initial +++ b/star/test_suite/cburn_inward/inlist_initial @@ -152,7 +152,7 @@ !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,Grid2_file_interval)==0 + 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 diff --git a/star/test_suite/ccsn_IIp/README.rst b/star/test_suite/ccsn_IIp/README.rst index e3a238b1d..3b9820833 100644 --- a/star/test_suite/ccsn_IIp/README.rst +++ b/star/test_suite/ccsn_IIp/README.rst @@ -112,38 +112,38 @@ pgstar commands used for the first 7 plots: Text_Summary_num_rows(1) = 5 Text_Summary_num_cols(1) = 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) = '' + 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' @@ -281,48 +281,48 @@ pgstar commands used for the 8th plot: Profile_Panels_other_ymin(2, 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) = '' + 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' diff --git a/star/test_suite/ccsn_IIp/inlist_common b/star/test_suite/ccsn_IIp/inlist_common index 2f729ed80..53cc20b60 100644 --- a/star/test_suite/ccsn_IIp/inlist_common +++ b/star/test_suite/ccsn_IIp/inlist_common @@ -216,7 +216,7 @@ Power_xmax = 2.4 ! -101 ! only used if /= -101d0 !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,Grid2_file_interval)==0 + 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 diff --git a/star/test_suite/ccsn_IIp/inlist_pgstar b/star/test_suite/ccsn_IIp/inlist_pgstar index 3eac5acc2..478ce8ba2 100644 --- a/star/test_suite/ccsn_IIp/inlist_pgstar +++ b/star/test_suite/ccsn_IIp/inlist_pgstar @@ -48,38 +48,38 @@ Text_Summary_num_rows(1) = 5 Text_Summary_num_cols(1) = 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) = '' + 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' diff --git a/star/test_suite/ccsn_IIp/inlist_shock_part5 b/star/test_suite/ccsn_IIp/inlist_shock_part5 index a55589d11..0c3f0d714 100644 --- a/star/test_suite/ccsn_IIp/inlist_shock_part5 +++ b/star/test_suite/ccsn_IIp/inlist_shock_part5 @@ -94,48 +94,48 @@ Profile_Panels_other_ymin(2, 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) = '' + 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' diff --git a/star/test_suite/conductive_flame/inlist_pgstar b/star/test_suite/conductive_flame/inlist_pgstar index 4c6a3c69d..936776aaf 100644 --- a/star/test_suite/conductive_flame/inlist_pgstar +++ b/star/test_suite/conductive_flame/inlist_pgstar @@ -90,7 +90,7 @@ 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,Grid1_file_interval)==0 + 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 @@ -127,21 +127,21 @@ Profile_Panels_xmargin(1) = 0d0 Profile_Panels_show_mix_regions_on_xaxis(1) = .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_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. @@ -154,7 +154,7 @@ 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_Panels1_file_interval)==0 + 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 @@ -179,21 +179,21 @@ History_Panels_xaxis_reversed(1) = .false. History_Panels_xaxis_log(1) = .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_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_Panels_num_panels(1) = 2 @@ -208,7 +208,7 @@ 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_Panels1_other_dymin(1) = -1 + History_Panels_other_dymin(1, 1) = -1 History_Panels_yaxis_name(1, 2) = 'l_flame' History_Panels_yaxis_reversed(1, 2) = .false. @@ -220,6 +220,6 @@ 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_Panels1_other_dymin(2) = -1 + 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 fcfe79fd9..b75e63d67 100644 --- a/star/test_suite/conserve_angular_momentum/README.rst +++ b/star/test_suite/conserve_angular_momentum/README.rst @@ -204,7 +204,7 @@ pgstar commands used for the first 7 plots: 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,Grid1_file_interval)==0 + 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 06b1d71ca..cee117a7b 100644 --- a/star/test_suite/conv_core_cpm/inlist_conv_core_cpm +++ b/star/test_suite/conv_core_cpm/inlist_conv_core_cpm @@ -117,7 +117,7 @@ Grid_num_plots(1) = 5 Grid_num_cols(1) = 3 Grid_num_rows(1) = 2 - Grid1_title='' + Grid_title(1) ='' ! panel 1: abundances Grid_plot_name(1, 1) = 'Abundance' Grid_plot_row(1, 1)=1 @@ -213,29 +213,29 @@ !--------------------------------------------------------------------------------------------- ! 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' - History_Track1_xname = 'center_h1' - History_Track1_yname = 'mass_conv_core' - History_Track1_xaxis_label = 'X\dc\u' - History_Track1_yaxis_label = '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_Track1_reverse_xaxis = .true. - History_Track1_reverse_yaxis = .false. - History_Track1_log_xaxis = .false. - History_Track1_log_yaxis = .false. - History_Track1_xmin = 0.0 !-101d0 - History_Track1_xmax = 0.75 !-101d0 - History_Track1_ymin = 0 !-101d0 - History_Track1_ymax = 0.15 !-101d0 - - show_History_Track1_target_box = .true. - History_Track1_n_sigma = 1 - History_Track1_xtarget = 0.5 - History_Track1_xsigma = 0.03 - History_Track1_ytarget = 0.13 ! The target value between x_ctrl(1) and x_ctrl(2) - History_Track1_ysigma = 0.005 - - History_Track1_fname = 'core_evolution.data' + 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' !--------------------------------------------------------------------------------------------- ! set up for evolution of convective boundaries diff --git a/star/test_suite/custom_colors/README.rst b/star/test_suite/custom_colors/README.rst index b44adce77..fb1fbd420 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/README.rst b/star/test_suite/diffusion_smoothness/README.rst index 41a3e087a..59752cfe6 100644 --- a/star/test_suite/diffusion_smoothness/README.rst +++ b/star/test_suite/diffusion_smoothness/README.rst @@ -44,8 +44,8 @@ pgstar commands used for the plot: Profile_Panels_num_panels(1) = 1 Profile_Panels_yaxis_name(1, 1) = 'brunt_B' - Profile_Panels1_ymin(:) = -101d0 - Profile_Panels1_ymax(:) = -101d0 + Profile_Panels_ymin(1, :) = -101d0 + Profile_Panels_ymax(1, :) = -101d0 Profile_Panels_other_yaxis_name(1, 1) = '' Profile_Panels_file_flag(1) = .true. diff --git a/star/test_suite/gyre_in_mesa_wd/inlist_common b/star/test_suite/gyre_in_mesa_wd/inlist_common index 55647eb7d..2bc3a5470 100644 --- a/star/test_suite/gyre_in_mesa_wd/inlist_common +++ b/star/test_suite/gyre_in_mesa_wd/inlist_common @@ -118,7 +118,7 @@ !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,Grid2_file_interval)==0 + 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 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 5648ed612..083111363 100644 --- a/star/test_suite/high_rot_darkening/inlist_high_rot_darkening +++ b/star/test_suite/high_rot_darkening/inlist_high_rot_darkening @@ -174,7 +174,7 @@ !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_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 @@ -231,7 +231,7 @@ History_Panels_title(1) = '' History_Panels_num_panels(1) = 2 - History_Panels1_xaxis_name='model_number' + 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' @@ -253,7 +253,7 @@ 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_Panels1_other_dymin(2) = 1 + 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 @@ -321,8 +321,8 @@ Profile_Panels_yaxis_name(1, 3) = 'luminosity' Profile_Panels_other_yaxis_name(1, 3) = 'logRho' ! 'mass' - !Profile_Panels1_yaxis_log(3) = .true. - !Profile_Panels1_other_yaxis_log(3) = .true. + !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. @@ -335,7 +335,7 @@ 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,Grid2_file_interval)==0 + 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 diff --git a/star/test_suite/irradiated_planet/README.rst b/star/test_suite/irradiated_planet/README.rst index bb956d76f..dbc13371e 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 533b08ca8..025c40ed0 100644 --- a/star/test_suite/magnetic_braking/inlist_braking +++ b/star/test_suite/magnetic_braking/inlist_braking @@ -255,7 +255,7 @@ History_Panels_other_yaxis_reversed(1, 1) = .false. History_Panels_other_ymin(1, 1) = -101d0 History_Panels_other_ymax(1, 1) = -101d0 - History_Panels1_other_dymin(1) = -1 + History_Panels_other_dymin(1, 1) = -1 @@ -268,7 +268,7 @@ History_Panels_other_yaxis_reversed(1, 2) = .false. History_Panels_other_ymin(1, 2) = -101d0 History_Panels_other_ymax(1, 2) = -101d0 - History_Panels1_other_dymin(2) = -1 + History_Panels_other_dymin(1, 2) = -1 History_Panels_yaxis_name(1, 3) = 'star_mdot' @@ -280,7 +280,7 @@ History_Panels_other_yaxis_reversed(1, 3) = .false. History_Panels_other_ymin(1, 3) = -101d0 History_Panels_other_ymax(1, 3) = -101d0 - History_Panels1_other_dymin(3) = -1 + History_Panels_other_dymin(1, 3) = -1 History_Panels_yaxis_name(1, 4) = 'log_L' History_Panels_yaxis_reversed(1, 4) = .false. @@ -291,7 +291,7 @@ History_Panels_other_yaxis_reversed(1, 4) = .false. History_Panels_other_ymin(1, 4) = -101d0 History_Panels_other_ymax(1, 4) = -101d0 - History_Panels1_other_dymin(4) = -1 + History_Panels_other_dymin(1, 4) = -1 @@ -320,8 +320,8 @@ Profile_Panels_xaxis_name(1) = 'mass' Profile_Panels_yaxis_name(1, 1) = 'omega' !Profile_Panels_other_yaxis_name(1, 1) = 'engulfment_heating' - Profile_Panels1_other_ymin(:) = -101 ! only used if /= -101d0 - Profile_Panels1_other_ymax(:) = -101 ! only used if /= -101d0 + Profile_Panels_other_ymin(1, :) = -101 ! only used if /= -101d0 + Profile_Panels_other_ymax(1, :) = -101 ! only used if /= -101d0 Grid_plot_pad_left(2, 7) = 0.04 diff --git a/star/test_suite/magnetic_braking/inlist_braking_pgstar b/star/test_suite/magnetic_braking/inlist_braking_pgstar index 839288b70..7914137f4 100644 --- a/star/test_suite/magnetic_braking/inlist_braking_pgstar +++ b/star/test_suite/magnetic_braking/inlist_braking_pgstar @@ -133,7 +133,7 @@ History_Panels_other_yaxis_reversed(1, 1) = .false. History_Panels_other_ymin(1, 1) = -101d0 History_Panels_other_ymax(1, 1) = -101d0 - History_Panels1_other_dymin(1) = -1 + History_Panels_other_dymin(1, 1) = -1 @@ -146,7 +146,7 @@ History_Panels_other_yaxis_reversed(1, 2) = .false. History_Panels_other_ymin(1, 2) = -101d0 History_Panels_other_ymax(1, 2) = -101d0 - History_Panels1_other_dymin(2) = -1 + History_Panels_other_dymin(1, 2) = -1 History_Panels_yaxis_name(1, 3) = 'star_mdot' @@ -158,7 +158,7 @@ History_Panels_other_yaxis_reversed(1, 3) = .false. History_Panels_other_ymin(1, 3) = -101d0 History_Panels_other_ymax(1, 3) = -101d0 - History_Panels1_other_dymin(3) = -1 + History_Panels_other_dymin(1, 3) = -1 History_Panels_yaxis_name(1, 4) = 'log_L' History_Panels_yaxis_reversed(1, 4) = .false. @@ -169,7 +169,7 @@ History_Panels_other_yaxis_reversed(1, 4) = .false. History_Panels_other_ymin(1, 4) = -101d0 History_Panels_other_ymax(1, 4) = -101d0 - History_Panels1_other_dymin(4) = -1 + History_Panels_other_dymin(1, 4) = -1 @@ -198,8 +198,8 @@ Profile_Panels_xaxis_name(1) = 'mass' Profile_Panels_yaxis_name(1, 1) = 'omega' !Profile_Panels_other_yaxis_name(1, 1) = 'engulfment_heating' - Profile_Panels1_other_ymin(:) = -101 ! only used if /= -101d0 - Profile_Panels1_other_ymax(:) = -101 ! only used if /= -101d0 + Profile_Panels_other_ymin(1, :) = -101 ! only used if /= -101d0 + Profile_Panels_other_ymax(1, :) = -101 ! only used if /= -101d0 Grid_plot_pad_left(2, 7) = 0.04 diff --git a/star/test_suite/magnetic_braking/inlist_zams_pgstar b/star/test_suite/magnetic_braking/inlist_zams_pgstar index 36c775f27..7468f669c 100644 --- a/star/test_suite/magnetic_braking/inlist_zams_pgstar +++ b/star/test_suite/magnetic_braking/inlist_zams_pgstar @@ -94,7 +94,7 @@ Power_xmax = 2.4 ! -101 ! only used if /= -101d0 !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,Grid2_file_interval)==0 + 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 diff --git a/star/test_suite/make_co_wd/inlist_common b/star/test_suite/make_co_wd/inlist_common index 6f3282ed8..a4bfeaa46 100644 --- a/star/test_suite/make_co_wd/inlist_common +++ b/star/test_suite/make_co_wd/inlist_common @@ -135,7 +135,7 @@ Grid_file_flag(2) = .true. Grid_file_dir(2) = 'png' - Grid_file_interval(2) = 10 ! output when mod(model_number,Grid2_file_interval)==0 + 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 diff --git a/star/test_suite/make_o_ne_wd/inlist_pgstar b/star/test_suite/make_o_ne_wd/inlist_pgstar index c5bfe81ab..0734876af 100644 --- a/star/test_suite/make_o_ne_wd/inlist_pgstar +++ b/star/test_suite/make_o_ne_wd/inlist_pgstar @@ -23,7 +23,7 @@ Grid_win_aspect_ratio(1) = 0.666 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,Grid1_file_interval)==0 +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 @@ -595,7 +595,7 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window History_Panels_other_yaxis_reversed(1, 1) = .false. History_Panels_other_ymin(1, 1) = -101d0 History_Panels_other_ymax(1, 1) = -101d0 - History_Panels1_other_dymin(1) = 0.1 + History_Panels_other_dymin(1, 1) = 0.1 ! :: @@ -611,7 +611,7 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window History_Panels_other_yaxis_reversed(1, 2) = .false. History_Panels_other_ymin(1, 2) = -101d0 History_Panels_other_ymax(1, 2) = -101d0 - History_Panels1_other_dymin(2) = 7d-5 + History_Panels_other_dymin(1, 2) = 7d-5 ! :: @@ -627,7 +627,7 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window History_Panels_other_yaxis_reversed(1, 3) = .false. History_Panels_other_ymin(1, 3) = -101d0 History_Panels_other_ymax(1, 3) = -101d0 - History_Panels1_other_dymin(3) = -1 + History_Panels_other_dymin(1, 3) = -1 ! :: History_Panels_yaxis_name(1, 4) = 'num_retries' @@ -642,7 +642,7 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window History_Panels_other_yaxis_reversed(1, 4) = .false. History_Panels_other_ymin(1, 4) = -101d0 History_Panels_other_ymax(1, 4) = -101d0 - History_Panels1_other_dymin(4) = -1 + History_Panels_other_dymin(1, 4) = -1 !----------------------------------------------------------------------- diff --git a/star/test_suite/make_pre_ccsn_13bvn/inlist_pgstar b/star/test_suite/make_pre_ccsn_13bvn/inlist_pgstar index 528a0afec..e7f37e7a0 100644 --- a/star/test_suite/make_pre_ccsn_13bvn/inlist_pgstar +++ b/star/test_suite/make_pre_ccsn_13bvn/inlist_pgstar @@ -425,14 +425,14 @@ Profile_Panels_ymin(1, 1) = 0 ! only used if /= -101d0 Profile_Panels_ymax(1, 1) = -101d0 ! only used if /= -101d0 Profile_Panels_other_yaxis_name(1, 1) = 'dvdt_drag' -Profile_Panels1_other_yaxis_log(1) = .true. +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_Panels_yaxis_name(1, 2) = 'FdotV_drag_energy' -Profile_Panels1_yaxis_log(2) = .true. +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 @@ -499,7 +499,7 @@ Profile_Panels_other_ymax(3, 1) = -101d0 ! file output Profile_Panels_file_flag(3) = .false. -Profile_Panels_file_interval(3) = 10 ! output when mod(model_number,Grid1_file_interval)==0 +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 @@ -795,7 +795,7 @@ Grid_txt_scale_factor(1, 8) = 1.0 ! multiply txt_scale for subplot by this 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,Grid1_file_interval)==0 +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 @@ -864,7 +864,7 @@ Grid_file_aspect_ratio(1) = -1 ! negative means use same value as for window ! :: - History_Panels1_points_name(:) = '' + History_Panels_points_name(1, :) = '' ! setup default @@ -886,7 +886,7 @@ Grid_file_aspect_ratio(1) = -1 ! negative means use same value as for window History_Panels_other_yaxis_reversed(1, 1) = .false. History_Panels_other_ymin(1, 1) = -101d0 History_Panels_other_ymax(1, 1) = -101d0 - History_Panels1_other_dymin(1) = -1 + History_Panels_other_dymin(1, 1) = -1 ! :: @@ -900,10 +900,10 @@ Grid_file_aspect_ratio(1) = -1 ! negative means use same value as for window History_Panels_other_yaxis_name(1, 2) = 'log_total_drag_energy' History_Panels_other_yaxis_reversed(1, 2) = .false. - History_Panels1_other_yaxis_log(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_Panels1_other_dymin(2) = -1 + History_Panels_other_dymin(1, 2) = -1 ! :: @@ -919,7 +919,7 @@ Grid_file_aspect_ratio(1) = -1 ! negative means use same value as for window History_Panels_other_yaxis_reversed(1, 3) = .false. History_Panels_other_ymin(1, 3) = -101d0 History_Panels_other_ymax(1, 3) = -101d0 - History_Panels1_other_dymin(3) = -1 + 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`` diff --git a/star/test_suite/ns_c/README.rst b/star/test_suite/ns_c/README.rst index 1e6475a4c..39f3363b0 100644 --- a/star/test_suite/ns_c/README.rst +++ b/star/test_suite/ns_c/README.rst @@ -78,21 +78,21 @@ pgstar commands used for the plot above: Text_Summary_num_rows(1) = 5 Text_Summary_num_cols(1) = 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) = ' ' + 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' diff --git a/star/test_suite/ns_c/inlist_pgstar b/star/test_suite/ns_c/inlist_pgstar index 3355f8144..75f0c7213 100644 --- a/star/test_suite/ns_c/inlist_pgstar +++ b/star/test_suite/ns_c/inlist_pgstar @@ -23,7 +23,7 @@ Grid_win_aspect_ratio(1) = 0.666 !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,Grid1_file_interval)==0 +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 @@ -590,7 +590,7 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window History_Panels_other_yaxis_reversed(1, 1) = .false. History_Panels_other_ymin(1, 1) = -101d0 History_Panels_other_ymax(1, 1) = -101d0 - History_Panels1_other_dymin(1) = 0.1 + History_Panels_other_dymin(1, 1) = 0.1 ! :: @@ -606,7 +606,7 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window History_Panels_other_yaxis_reversed(1, 2) = .false. History_Panels_other_ymin(1, 2) = -101d0 History_Panels_other_ymax(1, 2) = -101d0 - History_Panels1_other_dymin(2) = 7d-5 + History_Panels_other_dymin(1, 2) = 7d-5 ! :: @@ -622,7 +622,7 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window History_Panels_other_yaxis_reversed(1, 3) = .false. History_Panels_other_ymin(1, 3) = -101d0 History_Panels_other_ymax(1, 3) = -101d0 - History_Panels1_other_dymin(3) = -1 + History_Panels_other_dymin(1, 3) = -1 ! :: History_Panels_yaxis_name(1, 4) = 'retries' @@ -637,7 +637,7 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window History_Panels_other_yaxis_reversed(1, 4) = .false. History_Panels_other_ymin(1, 4) = -101d0 History_Panels_other_ymax(1, 4) = -101d0 - History_Panels1_other_dymin(4) = -1 + History_Panels_other_dymin(1, 4) = -1 !----------------------------------------------------------------------- diff --git a/star/test_suite/ns_h/README.rst b/star/test_suite/ns_h/README.rst index 241b35322..835aeea8c 100644 --- a/star/test_suite/ns_h/README.rst +++ b/star/test_suite/ns_h/README.rst @@ -84,21 +84,21 @@ pgstar commands used for the plot above: Text_Summary_num_rows(1) = 5 Text_Summary_num_cols(1) = 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) = ' ' + 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' diff --git a/star/test_suite/ns_h/inlist_pgstar b/star/test_suite/ns_h/inlist_pgstar index 2580446d6..ca44ca271 100644 --- a/star/test_suite/ns_h/inlist_pgstar +++ b/star/test_suite/ns_h/inlist_pgstar @@ -48,38 +48,38 @@ Text_Summary_num_rows(1) = 5 Text_Summary_num_cols(1) = 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) = '' + 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' diff --git a/star/test_suite/ns_he/README.rst b/star/test_suite/ns_he/README.rst index 505c401e2..6ca2a9339 100644 --- a/star/test_suite/ns_he/README.rst +++ b/star/test_suite/ns_he/README.rst @@ -79,21 +79,21 @@ pgstar commands used for the plot above: Text_Summary_num_rows(1) = 5 Text_Summary_num_cols(1) = 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) = ' ' + 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' diff --git a/star/test_suite/ns_he/inlist_to_flash b/star/test_suite/ns_he/inlist_to_flash index dae292a0f..aa7f8605c 100644 --- a/star/test_suite/ns_he/inlist_to_flash +++ b/star/test_suite/ns_he/inlist_to_flash @@ -248,21 +248,21 @@ Mixing_xaxis_reversed = .true. Text_Summary_num_rows(1) = 5 Text_Summary_num_cols(1) = 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) = ' ' + 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' diff --git a/star/test_suite/pisn/inlist_finish b/star/test_suite/pisn/inlist_finish index dbd060ca8..9e391f7d6 100644 --- a/star/test_suite/pisn/inlist_finish +++ b/star/test_suite/pisn/inlist_finish @@ -147,7 +147,7 @@ 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,Grid1_file_interval)==0 + 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. diff --git a/star/test_suite/pisn/inlist_pgstar b/star/test_suite/pisn/inlist_pgstar index 42ff5785e..31653115e 100644 --- a/star/test_suite/pisn/inlist_pgstar +++ b/star/test_suite/pisn/inlist_pgstar @@ -23,7 +23,7 @@ Grid_win_aspect_ratio(1) = 0.666 !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,Grid1_file_interval)==0 +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 @@ -168,7 +168,7 @@ 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_Panels1_same_yaxis_range(3) = .true. +Profile_Panels_same_yaxis_range(1, 3) = .true. Profile_Panels_yaxis_name(1, 4) = 'log_opacity' Profile_Panels_other_yaxis_name(1, 4) = 'gradr' @@ -361,7 +361,7 @@ Text_Summary_name(1, 6, 5) = 'retries' 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_Panels2_other_dymin(1) = 0.1 + History_Panels_other_dymin(2, 1) = 0.1 History_Panels_yaxis_name(2, 2) = 'gamma1_min' History_Panels_yaxis_reversed(2, 2) = .false. @@ -384,7 +384,7 @@ 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_Panels2_other_dymin(3) = 0.8 +History_Panels_other_dymin(2, 3) = 0.8 !------------------------------------------------------------------------------------ @@ -634,7 +634,7 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window History_Panels_other_yaxis_reversed(1, 1) = .false. History_Panels_other_ymin(1, 1) = -101d0 History_Panels_other_ymax(1, 1) = -101d0 - History_Panels1_other_dymin(1) = 0.1 + History_Panels_other_dymin(1, 1) = 0.1 ! :: @@ -650,7 +650,7 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window History_Panels_other_yaxis_reversed(1, 2) = .false. History_Panels_other_ymin(1, 2) = -101d0 History_Panels_other_ymax(1, 2) = -101d0 - History_Panels1_other_dymin(2) = 0.14 + History_Panels_other_dymin(1, 2) = 0.14 ! :: @@ -666,7 +666,7 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window History_Panels_other_yaxis_reversed(1, 3) = .false. History_Panels_other_ymin(1, 3) = -101d0 History_Panels_other_ymax(1, 3) = -101d0 - History_Panels1_other_dymin(3) = 0.01 + History_Panels_other_dymin(1, 3) = 0.01 !----------------------------------------------------------------------- diff --git a/star/test_suite/ppisn/inlist_pgstar b/star/test_suite/ppisn/inlist_pgstar index 5db532fc1..1666fb1c7 100644 --- a/star/test_suite/ppisn/inlist_pgstar +++ b/star/test_suite/ppisn/inlist_pgstar @@ -69,7 +69,7 @@ History_Panels_title(1) = '' History_Panels_num_panels(1) = 2 - History_Panels1_xaxis_name='model_number' + 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' @@ -82,7 +82,7 @@ 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_Panels1_other_dymin(1) = 0.05d0 + History_Panels_other_dymin(1, 1) = 0.05d0 History_Panels_yaxis_name(1, 2) = 'log_Lnuc' History_Panels_yaxis_reversed(1, 2) = .false. @@ -94,7 +94,7 @@ 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_Panels1_other_dymin(2) = 1 + 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 @@ -167,7 +167,7 @@ Profile_Panels_yaxis_name(1, 1) = 'vel_km_per_s' Profile_Panels_other_yaxis_name(1, 1) = 'gamma1' - Profile_Panels1_dymin(1) = 50 + Profile_Panels_dymin(1, 1) = 50 Profile_Panels_other_ymax(1, 1) = 1.41 Profile_Panels_other_ymin(1, 1) = 1.28 @@ -182,7 +182,7 @@ Profile_Panels_yaxis_name(1, 3) = 'logRho' Profile_Panels_ymax(1, 3) = -101d0 Profile_Panels_ymin(1, 3) = -2 - Profile_Panels1_dymin(3) = 0.1 + Profile_Panels_dymin(1, 3) = 0.1 Profile_Panels_other_yaxis_name(1, 3) = 'spin_parameter' ! 'mass' Profile_Panels_other_ymax(1, 3) = 2!5d0 @@ -199,7 +199,7 @@ 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,Grid2_file_interval)==0 + 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 diff --git a/star/test_suite/ppisn/src/run_star_extras.f90 b/star/test_suite/ppisn/src/run_star_extras.f90 index 5925be7b8..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 diff --git a/star/test_suite/rsp_BEP/inlist_rsp_BEP b/star/test_suite/rsp_BEP/inlist_rsp_BEP index 296fdda57..c8704b971 100644 --- a/star/test_suite/rsp_BEP/inlist_rsp_BEP +++ b/star/test_suite/rsp_BEP/inlist_rsp_BEP @@ -108,14 +108,14 @@ Grid_title(2) = '0.26 M\d\(2281)\u Z=0.01 BEP' - History_Panels1_xaxis_name='star_age_day' + History_Panels_xaxis_name(1) ='star_age_day' History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. ! Grid_file_flag(2) = .true. file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid' - Grid_file_interval(2) = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 !Profile_Panels_show_grid(1) = .true. @@ -124,6 +124,6 @@ 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 d74665fae..30312748f 100644 --- a/star/test_suite/rsp_BEP/inlist_rsp_BEP_make_cycle0 +++ b/star/test_suite/rsp_BEP/inlist_rsp_BEP_make_cycle0 @@ -107,14 +107,14 @@ Grid_title(2) = '0.26 M\d\(2281)\u Z=0.01 BEP' - History_Panels1_xaxis_name='star_age_day' + History_Panels_xaxis_name(1) ='star_age_day' History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. ! Grid_file_flag(2) = .true. file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid' - Grid_file_interval(2) = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 !Profile_Panels_show_grid(1) = .true. @@ -123,6 +123,6 @@ 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 296fdda57..c8704b971 100644 --- a/star/test_suite/rsp_BEP/inlist_rsp_BEP_std +++ b/star/test_suite/rsp_BEP/inlist_rsp_BEP_std @@ -108,14 +108,14 @@ Grid_title(2) = '0.26 M\d\(2281)\u Z=0.01 BEP' - History_Panels1_xaxis_name='star_age_day' + History_Panels_xaxis_name(1) ='star_age_day' History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. ! Grid_file_flag(2) = .true. file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid' - Grid_file_interval(2) = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 !Profile_Panels_show_grid(1) = .true. @@ -124,6 +124,6 @@ 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 1ccbe7382..8000ad92e 100644 --- a/star/test_suite/rsp_BEP/inlist_rsp_BEP_test_cycle0 +++ b/star/test_suite/rsp_BEP/inlist_rsp_BEP_test_cycle0 @@ -106,14 +106,14 @@ Grid_title(2) = '0.26 M\d\(2281)\u Z=0.01 BEP' - History_Panels1_xaxis_name='star_age_day' + History_Panels_xaxis_name(1) ='star_age_day' History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. ! Grid_file_flag(2) = .true. file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid' - Grid_file_interval(2) = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 !Profile_Panels_show_grid(1) = .true. @@ -122,6 +122,6 @@ 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 5c23aecda..480a7c942 100644 --- a/star/test_suite/rsp_BEP/inlist_rsp_pgstar_default +++ b/star/test_suite/rsp_BEP/inlist_rsp_pgstar_default @@ -89,14 +89,14 @@ file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid2' - Grid_file_interval(2) = 10 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 10 ! output when mod(model_number,Grid_file_interval(2))==0 History_Panels_title(2) = '' History_Panels_num_panels(2) = 2 - !History_Panels2_xaxis_name='model_number' - History_Panels2_xaxis_name='day' + !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' @@ -109,7 +109,7 @@ 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_Panels2_other_dymin(1) = -1 + History_Panels_other_dymin(2, 1) = -1 History_Panels_yaxis_name(2, 2) = 'radius' ! 'star_mass' History_Panels_yaxis_reversed(2, 2) = .false. @@ -121,7 +121,7 @@ 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_Panels2_other_dymin(2) = -1 + History_Panels_other_dymin(2, 2) = -1 History_Panels_yaxis_name(2, 3) = 'r_center' ! 'star_mass' History_Panels_yaxis_reversed(2, 3) = .false. @@ -133,7 +133,7 @@ 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_Panels2_other_dymin(3) = -1 + History_Panels_other_dymin(2, 3) = -1 Profile_Panels_win_flag(2) = .false. @@ -151,7 +151,7 @@ Profile_Panels_yaxis_name(2, 1) = 'v_div_cs' Profile_Panels_ymax(2, 1) = -101D0 ! 1 Profile_Panels_ymin(2, 1) = -101D0 ! -1 - Profile_Panels2_dymin(1) = 0.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 @@ -160,7 +160,7 @@ 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_Panels2_dymin(2) = 0.02 + 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 ! diff --git a/star/test_suite/rsp_BLAP/inlist_rsp_BLAP b/star/test_suite/rsp_BLAP/inlist_rsp_BLAP index c94c399f5..7751e073d 100644 --- a/star/test_suite/rsp_BLAP/inlist_rsp_BLAP +++ b/star/test_suite/rsp_BLAP/inlist_rsp_BLAP @@ -114,14 +114,14 @@ use_Skye = .false. 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_Panels_xaxis_name(1) ='star_age_day' History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. Grid_file_flag(2) = .true. file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid' - Grid_file_interval(2) = 20 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 20 ! output when mod(model_number,Grid_file_interval(2))==0 !Profile_Panels_show_grid(1) = .true. @@ -130,6 +130,6 @@ use_Skye = .false. 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 0d74130ce..a174657ae 100644 --- a/star/test_suite/rsp_BLAP/inlist_rsp_BLAP_make_cycle0 +++ b/star/test_suite/rsp_BLAP/inlist_rsp_BLAP_make_cycle0 @@ -111,14 +111,14 @@ 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_Panels_xaxis_name(1) ='star_age_day' History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. Grid_file_flag(2) = .true. file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid' - Grid_file_interval(2) = 20 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 20 ! output when mod(model_number,Grid_file_interval(2))==0 !Profile_Panels_show_grid(1) = .true. @@ -127,6 +127,6 @@ 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 b25f55b47..d6d4d22cb 100644 --- a/star/test_suite/rsp_BLAP/inlist_rsp_BLAP_std +++ b/star/test_suite/rsp_BLAP/inlist_rsp_BLAP_std @@ -112,14 +112,14 @@ 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_Panels_xaxis_name(1) ='star_age_day' History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. Grid_file_flag(2) = .true. file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid' - Grid_file_interval(2) = 20 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 20 ! output when mod(model_number,Grid_file_interval(2))==0 !Profile_Panels_show_grid(1) = .true. @@ -128,6 +128,6 @@ 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 737c77503..faed4fda6 100644 --- a/star/test_suite/rsp_BLAP/inlist_rsp_BLAP_test_cycle0 +++ b/star/test_suite/rsp_BLAP/inlist_rsp_BLAP_test_cycle0 @@ -110,14 +110,14 @@ 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_Panels_xaxis_name(1) ='star_age_day' History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. Grid_file_flag(2) = .true. file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid' - Grid_file_interval(2) = 20 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 20 ! output when mod(model_number,Grid_file_interval(2))==0 !Profile_Panels_show_grid(1) = .true. @@ -126,6 +126,6 @@ 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 5c23aecda..480a7c942 100644 --- a/star/test_suite/rsp_BLAP/inlist_rsp_pgstar_default +++ b/star/test_suite/rsp_BLAP/inlist_rsp_pgstar_default @@ -89,14 +89,14 @@ file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid2' - Grid_file_interval(2) = 10 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 10 ! output when mod(model_number,Grid_file_interval(2))==0 History_Panels_title(2) = '' History_Panels_num_panels(2) = 2 - !History_Panels2_xaxis_name='model_number' - History_Panels2_xaxis_name='day' + !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' @@ -109,7 +109,7 @@ 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_Panels2_other_dymin(1) = -1 + History_Panels_other_dymin(2, 1) = -1 History_Panels_yaxis_name(2, 2) = 'radius' ! 'star_mass' History_Panels_yaxis_reversed(2, 2) = .false. @@ -121,7 +121,7 @@ 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_Panels2_other_dymin(2) = -1 + History_Panels_other_dymin(2, 2) = -1 History_Panels_yaxis_name(2, 3) = 'r_center' ! 'star_mass' History_Panels_yaxis_reversed(2, 3) = .false. @@ -133,7 +133,7 @@ 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_Panels2_other_dymin(3) = -1 + History_Panels_other_dymin(2, 3) = -1 Profile_Panels_win_flag(2) = .false. @@ -151,7 +151,7 @@ Profile_Panels_yaxis_name(2, 1) = 'v_div_cs' Profile_Panels_ymax(2, 1) = -101D0 ! 1 Profile_Panels_ymin(2, 1) = -101D0 ! -1 - Profile_Panels2_dymin(1) = 0.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 @@ -160,7 +160,7 @@ 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_Panels2_dymin(2) = 0.02 + 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 ! diff --git a/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid b/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid index 8be7246cd..5e1ca625a 100644 --- a/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid +++ b/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid @@ -110,14 +110,14 @@ Grid_title(2) = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' - History_Panels1_xaxis_name='star_age_day' + History_Panels_xaxis_name(1) ='star_age_day' History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. ! Grid_file_flag(2) = .true. file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid' - Grid_file_interval(2) = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 !Profile_Panels_show_grid(1) = .true. @@ -126,6 +126,6 @@ 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 2497f44e5..316adc046 100644 --- a/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid_make_cycle0 +++ b/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid_make_cycle0 @@ -107,14 +107,14 @@ Grid_title(2) = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' - History_Panels1_xaxis_name='star_age_day' + History_Panels_xaxis_name(1) ='star_age_day' History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. ! Grid_file_flag(2) = .true. file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid' - Grid_file_interval(2) = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 !Profile_Panels_show_grid(1) = .true. @@ -123,6 +123,6 @@ 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 8be7246cd..5e1ca625a 100644 --- a/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid_std +++ b/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid_std @@ -110,14 +110,14 @@ Grid_title(2) = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' - History_Panels1_xaxis_name='star_age_day' + History_Panels_xaxis_name(1) ='star_age_day' History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. ! Grid_file_flag(2) = .true. file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid' - Grid_file_interval(2) = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 !Profile_Panels_show_grid(1) = .true. @@ -126,6 +126,6 @@ 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 6e0205d45..39244e286 100644 --- a/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid_test_cycle0 +++ b/star/test_suite/rsp_Cepheid/inlist_rsp_Cepheid_test_cycle0 @@ -107,14 +107,14 @@ Grid_title(2) = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' - History_Panels1_xaxis_name='star_age_day' + History_Panels_xaxis_name(1) ='star_age_day' History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. ! Grid_file_flag(2) = .true. file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid' - Grid_file_interval(2) = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 !Profile_Panels_show_grid(1) = .true. @@ -123,6 +123,6 @@ 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 5c23aecda..480a7c942 100644 --- a/star/test_suite/rsp_Cepheid/inlist_rsp_pgstar_default +++ b/star/test_suite/rsp_Cepheid/inlist_rsp_pgstar_default @@ -89,14 +89,14 @@ file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid2' - Grid_file_interval(2) = 10 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 10 ! output when mod(model_number,Grid_file_interval(2))==0 History_Panels_title(2) = '' History_Panels_num_panels(2) = 2 - !History_Panels2_xaxis_name='model_number' - History_Panels2_xaxis_name='day' + !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' @@ -109,7 +109,7 @@ 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_Panels2_other_dymin(1) = -1 + History_Panels_other_dymin(2, 1) = -1 History_Panels_yaxis_name(2, 2) = 'radius' ! 'star_mass' History_Panels_yaxis_reversed(2, 2) = .false. @@ -121,7 +121,7 @@ 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_Panels2_other_dymin(2) = -1 + History_Panels_other_dymin(2, 2) = -1 History_Panels_yaxis_name(2, 3) = 'r_center' ! 'star_mass' History_Panels_yaxis_reversed(2, 3) = .false. @@ -133,7 +133,7 @@ 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_Panels2_other_dymin(3) = -1 + History_Panels_other_dymin(2, 3) = -1 Profile_Panels_win_flag(2) = .false. @@ -151,7 +151,7 @@ Profile_Panels_yaxis_name(2, 1) = 'v_div_cs' Profile_Panels_ymax(2, 1) = -101D0 ! 1 Profile_Panels_ymin(2, 1) = -101D0 ! -1 - Profile_Panels2_dymin(1) = 0.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 @@ -160,7 +160,7 @@ 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_Panels2_dymin(2) = 0.02 + 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 ! diff --git a/star/test_suite/rsp_Cepheid_6M/inlist_rsp_Cepheid b/star/test_suite/rsp_Cepheid_6M/inlist_rsp_Cepheid index db99390c6..11d375804 100644 --- a/star/test_suite/rsp_Cepheid_6M/inlist_rsp_Cepheid +++ b/star/test_suite/rsp_Cepheid_6M/inlist_rsp_Cepheid @@ -100,14 +100,14 @@ Grid_title(2) = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' - History_Panels1_xaxis_name='star_age_day' + History_Panels_xaxis_name(1) ='star_age_day' History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. ! Grid_file_flag(2) = .true. file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid' - Grid_file_interval(2) = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 !Profile_Panels_show_grid(1) = .true. @@ -116,6 +116,6 @@ 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 ac47bcff7..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 @@ -99,14 +99,14 @@ Grid_title(2) = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' - History_Panels1_xaxis_name='star_age_day' + History_Panels_xaxis_name(1) ='star_age_day' History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. ! Grid_file_flag(2) = .true. file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid' - Grid_file_interval(2) = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 !Profile_Panels_show_grid(1) = .true. @@ -115,6 +115,6 @@ 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 db99390c6..11d375804 100644 --- a/star/test_suite/rsp_Cepheid_6M/inlist_rsp_Cepheid_std +++ b/star/test_suite/rsp_Cepheid_6M/inlist_rsp_Cepheid_std @@ -100,14 +100,14 @@ Grid_title(2) = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' - History_Panels1_xaxis_name='star_age_day' + History_Panels_xaxis_name(1) ='star_age_day' History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. ! Grid_file_flag(2) = .true. file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid' - Grid_file_interval(2) = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 !Profile_Panels_show_grid(1) = .true. @@ -116,6 +116,6 @@ 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 e76df2948..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 @@ -98,14 +98,14 @@ Grid_title(2) = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' - History_Panels1_xaxis_name='star_age_day' + History_Panels_xaxis_name(1) ='star_age_day' History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. ! Grid_file_flag(2) = .true. file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid' - Grid_file_interval(2) = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 !Profile_Panels_show_grid(1) = .true. @@ -114,6 +114,6 @@ 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 5c23aecda..480a7c942 100644 --- a/star/test_suite/rsp_Cepheid_6M/inlist_rsp_pgstar_default +++ b/star/test_suite/rsp_Cepheid_6M/inlist_rsp_pgstar_default @@ -89,14 +89,14 @@ file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid2' - Grid_file_interval(2) = 10 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 10 ! output when mod(model_number,Grid_file_interval(2))==0 History_Panels_title(2) = '' History_Panels_num_panels(2) = 2 - !History_Panels2_xaxis_name='model_number' - History_Panels2_xaxis_name='day' + !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' @@ -109,7 +109,7 @@ 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_Panels2_other_dymin(1) = -1 + History_Panels_other_dymin(2, 1) = -1 History_Panels_yaxis_name(2, 2) = 'radius' ! 'star_mass' History_Panels_yaxis_reversed(2, 2) = .false. @@ -121,7 +121,7 @@ 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_Panels2_other_dymin(2) = -1 + History_Panels_other_dymin(2, 2) = -1 History_Panels_yaxis_name(2, 3) = 'r_center' ! 'star_mass' History_Panels_yaxis_reversed(2, 3) = .false. @@ -133,7 +133,7 @@ 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_Panels2_other_dymin(3) = -1 + History_Panels_other_dymin(2, 3) = -1 Profile_Panels_win_flag(2) = .false. @@ -151,7 +151,7 @@ Profile_Panels_yaxis_name(2, 1) = 'v_div_cs' Profile_Panels_ymax(2, 1) = -101D0 ! 1 Profile_Panels_ymin(2, 1) = -101D0 ! -1 - Profile_Panels2_dymin(1) = 0.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 @@ -160,7 +160,7 @@ 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_Panels2_dymin(2) = 0.02 + 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 ! 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 d32fe6ddb..2133a4122 100644 --- a/star/test_suite/rsp_Delta_Scuti/inlist_rsp_Delta_Scuti +++ b/star/test_suite/rsp_Delta_Scuti/inlist_rsp_Delta_Scuti @@ -129,14 +129,14 @@ Grid_title(2) = '2.0 M\d\(2281)\u Z=0.02 delta Scuti' - History_Panels1_xaxis_name='star_age_day' + History_Panels_xaxis_name(1) ='star_age_day' History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. ! Grid_file_flag(2) = .true. file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid' - Grid_file_interval(2) = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 !Profile_Panels_show_grid(1) = .true. @@ -145,6 +145,6 @@ 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 e9cc99974..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 @@ -128,14 +128,14 @@ Grid_title(2) = '2.0 M\d\(2281)\u Z=0.02 delta Scuti' - History_Panels1_xaxis_name='star_age_day' + History_Panels_xaxis_name(1) ='star_age_day' History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. ! Grid_file_flag(2) = .true. file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid' - Grid_file_interval(2) = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 !Profile_Panels_show_grid(1) = .true. @@ -144,6 +144,6 @@ 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 d32fe6ddb..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 @@ -129,14 +129,14 @@ Grid_title(2) = '2.0 M\d\(2281)\u Z=0.02 delta Scuti' - History_Panels1_xaxis_name='star_age_day' + History_Panels_xaxis_name(1) ='star_age_day' History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. ! Grid_file_flag(2) = .true. file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid' - Grid_file_interval(2) = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 !Profile_Panels_show_grid(1) = .true. @@ -145,6 +145,6 @@ 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 440525d87..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 @@ -127,14 +127,14 @@ Grid_title(2) = '2.0 M\d\(2281)\u Z=0.02 delta Scuti' - History_Panels1_xaxis_name='star_age_day' + History_Panels_xaxis_name(1) ='star_age_day' History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. ! Grid_file_flag(2) = .true. file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid' - Grid_file_interval(2) = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 !Profile_Panels_show_grid(1) = .true. @@ -143,6 +143,6 @@ 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 5c23aecda..480a7c942 100644 --- a/star/test_suite/rsp_Delta_Scuti/inlist_rsp_pgstar_default +++ b/star/test_suite/rsp_Delta_Scuti/inlist_rsp_pgstar_default @@ -89,14 +89,14 @@ file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid2' - Grid_file_interval(2) = 10 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 10 ! output when mod(model_number,Grid_file_interval(2))==0 History_Panels_title(2) = '' History_Panels_num_panels(2) = 2 - !History_Panels2_xaxis_name='model_number' - History_Panels2_xaxis_name='day' + !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' @@ -109,7 +109,7 @@ 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_Panels2_other_dymin(1) = -1 + History_Panels_other_dymin(2, 1) = -1 History_Panels_yaxis_name(2, 2) = 'radius' ! 'star_mass' History_Panels_yaxis_reversed(2, 2) = .false. @@ -121,7 +121,7 @@ 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_Panels2_other_dymin(2) = -1 + History_Panels_other_dymin(2, 2) = -1 History_Panels_yaxis_name(2, 3) = 'r_center' ! 'star_mass' History_Panels_yaxis_reversed(2, 3) = .false. @@ -133,7 +133,7 @@ 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_Panels2_other_dymin(3) = -1 + History_Panels_other_dymin(2, 3) = -1 Profile_Panels_win_flag(2) = .false. @@ -151,7 +151,7 @@ Profile_Panels_yaxis_name(2, 1) = 'v_div_cs' Profile_Panels_ymax(2, 1) = -101D0 ! 1 Profile_Panels_ymin(2, 1) = -101D0 ! -1 - Profile_Panels2_dymin(1) = 0.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 @@ -160,7 +160,7 @@ 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_Panels2_dymin(2) = 0.02 + 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 ! 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 ad678f5bd..4083336ef 100644 --- a/star/test_suite/rsp_RR_Lyrae/inlist_rsp_RR_Lyrae +++ b/star/test_suite/rsp_RR_Lyrae/inlist_rsp_RR_Lyrae @@ -100,14 +100,14 @@ Grid_title(2) = '0.65 M\d\(2281)\u Z=0.0004 RR Lyrae' - History_Panels1_xaxis_name='star_age_day' + History_Panels_xaxis_name(1) ='star_age_day' History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. ! Grid_file_flag(2) = .true. file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid' - Grid_file_interval(2) = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 !Profile_Panels_show_grid(1) = .true. @@ -116,6 +116,6 @@ 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 58e835c5f..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 @@ -99,14 +99,14 @@ Grid_title(2) = '0.65 M\d\(2281)\u Z=0.0004 RR Lyrae' - History_Panels1_xaxis_name='star_age_day' + History_Panels_xaxis_name(1) ='star_age_day' History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. ! Grid_file_flag(2) = .true. file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid' - Grid_file_interval(2) = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 !Profile_Panels_show_grid(1) = .true. @@ -115,6 +115,6 @@ 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 ad678f5bd..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 @@ -100,14 +100,14 @@ Grid_title(2) = '0.65 M\d\(2281)\u Z=0.0004 RR Lyrae' - History_Panels1_xaxis_name='star_age_day' + History_Panels_xaxis_name(1) ='star_age_day' History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. ! Grid_file_flag(2) = .true. file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid' - Grid_file_interval(2) = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 !Profile_Panels_show_grid(1) = .true. @@ -116,6 +116,6 @@ 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 fcecfe50a..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 @@ -98,14 +98,14 @@ Grid_title(2) = '0.65 M\d\(2281)\u Z=0.0004 RR Lyrae' - History_Panels1_xaxis_name='star_age_day' + History_Panels_xaxis_name(1) ='star_age_day' History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. ! Grid_file_flag(2) = .true. file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid' - Grid_file_interval(2) = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 !Profile_Panels_show_grid(1) = .true. @@ -114,6 +114,6 @@ 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 5c23aecda..480a7c942 100644 --- a/star/test_suite/rsp_RR_Lyrae/inlist_rsp_pgstar_default +++ b/star/test_suite/rsp_RR_Lyrae/inlist_rsp_pgstar_default @@ -89,14 +89,14 @@ file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid2' - Grid_file_interval(2) = 10 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 10 ! output when mod(model_number,Grid_file_interval(2))==0 History_Panels_title(2) = '' History_Panels_num_panels(2) = 2 - !History_Panels2_xaxis_name='model_number' - History_Panels2_xaxis_name='day' + !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' @@ -109,7 +109,7 @@ 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_Panels2_other_dymin(1) = -1 + History_Panels_other_dymin(2, 1) = -1 History_Panels_yaxis_name(2, 2) = 'radius' ! 'star_mass' History_Panels_yaxis_reversed(2, 2) = .false. @@ -121,7 +121,7 @@ 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_Panels2_other_dymin(2) = -1 + History_Panels_other_dymin(2, 2) = -1 History_Panels_yaxis_name(2, 3) = 'r_center' ! 'star_mass' History_Panels_yaxis_reversed(2, 3) = .false. @@ -133,7 +133,7 @@ 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_Panels2_other_dymin(3) = -1 + History_Panels_other_dymin(2, 3) = -1 Profile_Panels_win_flag(2) = .false. @@ -151,7 +151,7 @@ Profile_Panels_yaxis_name(2, 1) = 'v_div_cs' Profile_Panels_ymax(2, 1) = -101D0 ! 1 Profile_Panels_ymin(2, 1) = -101D0 ! -1 - Profile_Panels2_dymin(1) = 0.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 @@ -160,7 +160,7 @@ 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_Panels2_dymin(2) = 0.02 + 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 ! 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 a9dd6e52a..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 @@ -127,14 +127,14 @@ Grid_title(2) = '0.55 M\d\(2281)\u Z=0.0001 Type II Cepheid' - History_Panels1_xaxis_name='star_age_day' + History_Panels_xaxis_name(1) ='star_age_day' History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. ! Grid_file_flag(2) = .true. file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid' - Grid_file_interval(2) = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 !Profile_Panels_show_grid(1) = .true. @@ -143,6 +143,6 @@ 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 8efc0c4c1..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 @@ -126,14 +126,14 @@ Grid_title(2) = '0.55 M\d\(2281)\u Z=0.0001 Type II Cepheid' - History_Panels1_xaxis_name='star_age_day' + History_Panels_xaxis_name(1) ='star_age_day' History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. ! Grid_file_flag(2) = .true. file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid' - Grid_file_interval(2) = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 !Profile_Panels_show_grid(1) = .true. @@ -142,6 +142,6 @@ 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 a9dd6e52a..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 @@ -127,14 +127,14 @@ Grid_title(2) = '0.55 M\d\(2281)\u Z=0.0001 Type II Cepheid' - History_Panels1_xaxis_name='star_age_day' + History_Panels_xaxis_name(1) ='star_age_day' History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. ! Grid_file_flag(2) = .true. file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid' - Grid_file_interval(2) = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 !Profile_Panels_show_grid(1) = .true. @@ -143,6 +143,6 @@ 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 bdb73c2d2..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 @@ -112,14 +112,14 @@ Grid_title(2) = '0.55 M\d\(2281)\u Z=0.0001 Type II Cepheid' - History_Panels1_xaxis_name='star_age_day' + History_Panels_xaxis_name(1) ='star_age_day' History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. ! Grid_file_flag(2) = .true. file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid' - Grid_file_interval(2) = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 !Profile_Panels_show_grid(1) = .true. @@ -128,6 +128,6 @@ 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 d1bdc9758..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 @@ -201,7 +201,7 @@ 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,Grid1_file_interval)==0 + 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 @@ -226,23 +226,23 @@ Profile_Panels_xmargin(1) = 0d0 Profile_Panels_show_mix_regions_on_xaxis(1) = .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_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. @@ -281,7 +281,7 @@ Profile_Panels_ymin(1, 4) = -11 Profile_Panels_ymax(1, 4) = -101d0 - Profile_Panels1_yaxis_log(4) = .true. ! show log10 of abs value + Profile_Panels_yaxis_log(1, 4) = .true. ! show log10 of abs value Profile_Panels_other_ymin(1, 4) = -101d0 Profile_Panels_other_ymax(1, 4) = -101d0 @@ -295,7 +295,7 @@ 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_Panels1_file_interval)==0` + 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 @@ -321,29 +321,29 @@ History_Panels_xaxis_reversed(1) = .false. History_Panels_xaxis_log(1) = .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_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_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_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_Panels1_points_name(:) = '' + History_Panels_points_name(1, :) = '' ! setup default History_Panels_num_panels(1) = 2 History_Panels_yaxis_name(1, 1) = 'Ew' - History_Panels1_yaxis_log(1) = .true. ! show log10 of abs value + 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 @@ -351,10 +351,10 @@ History_Panels_other_yaxis_name(1, 1) = '' History_Panels_other_yaxis_reversed(1, 1) = .false. - History_Panels1_other_yaxis_log(1) = .true. ! show log10 of abs value + 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_Panels1_other_dymin(1) = -1 + History_Panels_other_dymin(1, 1) = -1 History_Panels_yaxis_name(1, 2) = 'frac_total_entropy_change' History_Panels_yaxis_reversed(1, 2) = .false. @@ -366,7 +366,7 @@ 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_Panels1_other_dymin(2) = -1 + 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` diff --git a/star/test_suite/rsp_gyre/inlist_pulse_pgstar_default b/star/test_suite/rsp_gyre/inlist_pulse_pgstar_default index a320e4a81..75b636e4a 100644 --- a/star/test_suite/rsp_gyre/inlist_pulse_pgstar_default +++ b/star/test_suite/rsp_gyre/inlist_pulse_pgstar_default @@ -89,14 +89,14 @@ file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid1' - Grid_file_interval(2) = 10 ! output when mod(model_number,Grid2_file_interval)==0 + 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_Panels1_xaxis_name='model_number' - History_Panels1_xaxis_name='star_age_day' + !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' @@ -109,7 +109,7 @@ 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_Panels1_other_dymin(1) = -1 + History_Panels_other_dymin(1, 1) = -1 History_Panels_yaxis_name(1, 2) = 'radius' ! 'star_mass' History_Panels_yaxis_reversed(1, 2) = .false. @@ -121,7 +121,7 @@ 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_Panels1_other_dymin(2) = -1 + History_Panels_other_dymin(1, 2) = -1 History_Panels_yaxis_name(1, 3) = 'r_center' ! 'star_mass' History_Panels_yaxis_reversed(1, 3) = .false. @@ -133,7 +133,7 @@ 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_Panels1_other_dymin(3) = -1 + History_Panels_other_dymin(1, 3) = -1 Profile_Panels_win_flag(1) = .false. @@ -150,7 +150,7 @@ Profile_Panels_yaxis_name(1, 1) = 'v_div_cs' Profile_Panels_ymax(1, 1) = -101D0 ! 1 Profile_Panels_ymin(1, 1) = -101D0 ! -1 - Profile_Panels1_dymin(1) = 0.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 @@ -177,7 +177,7 @@ 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_Panels1_file_interval)==0 + 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 diff --git a/star/test_suite/rsp_gyre/inlist_rsp_gyre b/star/test_suite/rsp_gyre/inlist_rsp_gyre index d3db8a60e..236c203a0 100644 --- a/star/test_suite/rsp_gyre/inlist_rsp_gyre +++ b/star/test_suite/rsp_gyre/inlist_rsp_gyre @@ -115,7 +115,7 @@ !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,Grid1_file_interval)==0 + Grid_file_interval(1) = 10 ! output when mod(model_number,Grid_file_interval(1))==0 Profile_Panels_xaxis_name(1) = 'zone' Profile_Panels_xaxis_reversed(1) = .true. @@ -127,14 +127,14 @@ 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_Panels_xaxis_name(2) ='star_age_day' History_Panels_max_width(2) = 365 ! only used if > 0. causes xmin to move with xmax. ! Grid_file_flag(2) = .true. file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid2' - Grid_file_interval(2) = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 !Profile_Panels_show_grid(2) = .true. @@ -143,7 +143,7 @@ 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/inlist_rsp_common b/star/test_suite/rsp_save_and_load_file/inlist_rsp_common index 3b9f8b48e..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 @@ -429,14 +429,14 @@ file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid1' - Grid_file_interval(2) = 10 ! output when mod(model_number,Grid2_file_interval)==0 + 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_Panels1_xaxis_name='model_number' - History_Panels1_xaxis_name='star_age_day' + !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' @@ -449,7 +449,7 @@ 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_Panels1_other_dymin(1) = -1 + History_Panels_other_dymin(1, 1) = -1 History_Panels_yaxis_name(1, 2) = 'radius' ! 'star_mass' History_Panels_yaxis_reversed(1, 2) = .false. @@ -461,7 +461,7 @@ 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_Panels1_other_dymin(2) = -1 + History_Panels_other_dymin(1, 2) = -1 History_Panels_yaxis_name(1, 3) = 'r_center' ! 'star_mass' History_Panels_yaxis_reversed(1, 3) = .false. @@ -473,7 +473,7 @@ 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_Panels1_other_dymin(3) = -1 + History_Panels_other_dymin(1, 3) = -1 Profile_Panels_win_flag(1) = .false. @@ -515,7 +515,7 @@ 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_Panels1_file_interval)==0 + 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 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 6716ee43b..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 @@ -71,14 +71,14 @@ Grid_title(2) = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' - History_Panels1_xaxis_name='star_age_day' + History_Panels_xaxis_name(1) ='star_age_day' History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. Grid_file_flag(2) = .true. file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid' - Grid_file_interval(2) = 10 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 10 ! output when mod(model_number,Grid_file_interval(2))==0 !Profile_Panels_show_grid(1) = .true. @@ -87,7 +87,7 @@ Profile_Panels_xmin(1) = -101D0 Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 + 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 cb302b0b0..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 @@ -61,14 +61,14 @@ Grid_title(2) = '4.165 M\d\(2281)\u Z=0.007 Classical Cepheid' - History_Panels1_xaxis_name='star_age_day' + History_Panels_xaxis_name(1) ='star_age_day' History_Panels_max_width(1) = 365 ! only used if > 0. causes xmin to move with xmax. ! Grid_file_flag(2) = .true. file_digits = 7 Grid_file_dir(2) = 'png' Grid_file_prefix(2) = 'grid' - Grid_file_interval(2) = 5 ! output when mod(model_number,Grid2_file_interval)==0 + Grid_file_interval(2) = 5 ! output when mod(model_number,Grid_file_interval(2))==0 !Profile_Panels_show_grid(1) = .true. @@ -77,7 +77,7 @@ Profile_Panels_xmin(1) = -101D0 Profile_Panels_xmax(1) = -101D0 - Profile_Panels1_dymin(4) = 0.02 + 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/split_burn_big_net/inlist_pgstar b/star/test_suite/split_burn_big_net/inlist_pgstar index 836782cfa..acd83592b 100644 --- a/star/test_suite/split_burn_big_net/inlist_pgstar +++ b/star/test_suite/split_burn_big_net/inlist_pgstar @@ -23,7 +23,7 @@ Grid_win_aspect_ratio(1) = 0.666 !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,Grid1_file_interval)==0 +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 @@ -188,7 +188,7 @@ 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_Panels1_same_yaxis_range(3) = .true. +Profile_Panels_same_yaxis_range(1, 3) = .true. Profile_Panels_yaxis_name(1, 4) = 'log_opacity' Profile_Panels_other_yaxis_name(1, 4) = 'gradr' @@ -597,7 +597,7 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window History_Panels_other_yaxis_reversed(1, 1) = .false. History_Panels_other_ymin(1, 1) = -101d0 History_Panels_other_ymax(1, 1) = -101d0 - History_Panels1_other_dymin(1) = 0.1 + History_Panels_other_dymin(1, 1) = 0.1 ! :: @@ -613,7 +613,7 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window History_Panels_other_yaxis_reversed(1, 2) = .false. History_Panels_other_ymin(1, 2) = -101d0 History_Panels_other_ymax(1, 2) = -101d0 - History_Panels1_other_dymin(2) = 7d-5 + History_Panels_other_dymin(1, 2) = 7d-5 ! :: @@ -629,7 +629,7 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window History_Panels_other_yaxis_reversed(1, 3) = .false. History_Panels_other_ymin(1, 3) = -101d0 History_Panels_other_ymax(1, 3) = -101d0 - History_Panels1_other_dymin(3) = -1 + History_Panels_other_dymin(1, 3) = -1 ! :: History_Panels_yaxis_name(1, 4) = 'retries' @@ -644,7 +644,7 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window History_Panels_other_yaxis_reversed(1, 4) = .false. History_Panels_other_ymin(1, 4) = -101d0 History_Panels_other_ymax(1, 4) = -101d0 - History_Panels1_other_dymin(4) = -1 + History_Panels_other_dymin(1, 4) = -1 !----------------------------------------------------------------------- diff --git a/star/test_suite/twin_studies/inlist_pgstar b/star/test_suite/twin_studies/inlist_pgstar index ac24f4639..e0e7aba2c 100644 --- a/star/test_suite/twin_studies/inlist_pgstar +++ b/star/test_suite/twin_studies/inlist_pgstar @@ -23,7 +23,7 @@ Grid_win_aspect_ratio(1) = 0.8 ! 0.666 !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,Grid1_file_interval)==0 +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 @@ -182,7 +182,7 @@ Profile_Panels_txt_scale(1) = 0.7 Profile_Panels_num_panels(1) = 4 Profile_Panels_yaxis_name(1, 1) = 'logRho' -Profile_Panels1_dymin(1) = 0.1 +Profile_Panels_dymin(1, 1) = 0.1 Profile_Panels_other_yaxis_name(1, 1) = 'logT' Profile_Panels_other_dymin(1, 1) = 0.14 @@ -191,12 +191,12 @@ 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_Panels1_same_yaxis_range(3) = .true. +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_Panels1_dymin(1) = 0.1 +Profile_Panels_dymin(1, 1) = 0.1 Profile_Panels_other_yaxis_name(1, 4) = 'gradr' Profile_Panels_other_dymin(1, 1) = 0.14 @@ -587,7 +587,7 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window History_Panels_other_yaxis_reversed(1, 1) = .false. History_Panels_other_ymin(1, 1) = -101d0 History_Panels_other_ymax(1, 1) = -101d0 - History_Panels1_other_dymin(1) = 0.14 + History_Panels_other_dymin(1, 1) = 0.14 ! :: @@ -603,7 +603,7 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window History_Panels_other_yaxis_reversed(1, 2) = .false. History_Panels_other_ymin(1, 2) = -101d0 History_Panels_other_ymax(1, 2) = -101d0 - History_Panels1_other_dymin(2) = 0.14 + History_Panels_other_dymin(1, 2) = 0.14 ! :: @@ -619,7 +619,7 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window History_Panels_other_yaxis_reversed(1, 3) = .false. History_Panels_other_ymin(1, 3) = -101d0 History_Panels_other_ymax(1, 3) = -101d0 - History_Panels1_other_dymin(3) = 0.14 + History_Panels_other_dymin(1, 3) = 0.14 ! :: History_Panels_yaxis_name(1, 4) = 'retries' @@ -634,7 +634,7 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window History_Panels_other_yaxis_reversed(1, 4) = .false. History_Panels_other_ymin(1, 4) = -101d0 History_Panels_other_ymax(1, 4) = -101d0 - History_Panels1_other_dymin(4) = 0.14 + 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 11b6fb6d1..92b131175 100644 --- a/star/test_suite/twin_studies/inlist_star1 +++ b/star/test_suite/twin_studies/inlist_star1 @@ -35,6 +35,6 @@ !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,Grid1_file_interval)==0 + 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 80876b0fa..2aacc8a7e 100644 --- a/star/test_suite/twin_studies/inlist_star2 +++ b/star/test_suite/twin_studies/inlist_star2 @@ -41,6 +41,6 @@ !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,Grid1_file_interval)==0 + 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/tzo/inlist_pgstar b/star/test_suite/tzo/inlist_pgstar index 7f04de9fe..fa1547bb2 100755 --- a/star/test_suite/tzo/inlist_pgstar +++ b/star/test_suite/tzo/inlist_pgstar @@ -291,7 +291,7 @@ Profile_Panels_ymax(1, 1) = -101d0 ! only used if /= -101d0 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_Panels1_other_yaxis_log(1) = .true. +Profile_Panels_other_yaxis_log(1, 1) = .true. ! contents of panel 2 Profile_Panels_yaxis_name(1, 2) = 'logRho' @@ -308,7 +308,7 @@ Profile_Panels_other_ymax(1, 2) = 5.5 ! only used if /= -101d0 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_Panels1_file_interval)==0 +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 @@ -337,7 +337,7 @@ Profile_Panels_xaxis_reversed(2) = .false. ! contents of panel 1 Profile_Panels_yaxis_name(2, 1) = 'velocity' -Profile_Panels2_yaxis_log(1) = .false. +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 @@ -345,18 +345,18 @@ Profile_Panels_ymax(2, 1) = -101d0 ! only used if /= -101d0 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_Panels2_other_yaxis_log(1) =.false. +Profile_Panels_other_yaxis_log(2, 1) =.false. ! contents of panel 2 Profile_Panels_yaxis_name(2, 2) = 'cgrav_factor' -Profile_Panels2_yaxis_log(2) = .true. +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_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_Panels2_other_yaxis_log(2) = .true. +Profile_Panels_other_yaxis_log(2, 2) = .true. ! contents of panel 3 Profile_Panels_yaxis_name(2, 3) = 'net_nuclear_energy' @@ -372,7 +372,7 @@ Profile_Panels_other_ymax(2, 3) = -101d0 ! only used if /= -101d0 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_Panels1_file_interval)==0 +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 @@ -412,7 +412,7 @@ 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_Panels1_other_dymin(1) = -1 +History_Panels_other_dymin(1, 1) = -1 History_Panels_yaxis_name(1, 2) = 'log_Lnuc' History_Panels_yaxis_reversed(1, 2) = .false. @@ -424,7 +424,7 @@ 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_Panels1_other_dymin(2) = -1 +History_Panels_other_dymin(1, 2) = -1 History_Panels_yaxis_name(1, 3) = 'log_L' History_Panels_yaxis_reversed(1, 3) = .false. @@ -436,21 +436,21 @@ 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_Panels1_other_dymin(3) = -1 +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_Panels1_yaxis_log(4) = .true. +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_Panels1_other_dymin(4) = -1 -History_Panels1_yaxis_log(4) = .true. +History_Panels_other_dymin(1, 4) = -1 +History_Panels_yaxis_log(1, 4) = .true. ! file output History_Panels_file_flag(1) = .false. @@ -767,7 +767,7 @@ Grid_txt_scale_factor(1, 8) = 0.7 ! multiply txt_scale for subplot by this 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,Grid1_file_interval)==0 +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 2fe68dd29..fd1b283bc 100644 --- a/star/test_suite/wd_acc_small_dm/inlist_pgstar +++ b/star/test_suite/wd_acc_small_dm/inlist_pgstar @@ -98,7 +98,7 @@ 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,Grid1_file_interval)==0 + 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 64bf13d87..bac941f46 100644 --- a/star/test_suite/wd_aic/inlist_pgstar +++ b/star/test_suite/wd_aic/inlist_pgstar @@ -67,7 +67,7 @@ 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,Grid1_file_interval)==0 + 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_c_core_ignition/README.rst b/star/test_suite/wd_c_core_ignition/README.rst index 3a2faf623..cf0b74700 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_he_shell_ignition/README.rst b/star/test_suite/wd_he_shell_ignition/README.rst index d6ac00995..7e7f7a572 100644 --- a/star/test_suite/wd_he_shell_ignition/README.rst +++ b/star/test_suite/wd_he_shell_ignition/README.rst @@ -72,29 +72,29 @@ pgstar commands used for the plots above: Profile_Panels_file_aspect_ratio(2) = -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 + 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_stable_h_burn/README.rst b/star/test_suite/wd_stable_h_burn/README.rst index 3965ea754..79378317e 100644 --- a/star/test_suite/wd_stable_h_burn/README.rst +++ b/star/test_suite/wd_stable_h_burn/README.rst @@ -33,82 +33,82 @@ 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 + 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 diff --git a/star/test_suite/zams_to_cc_80/inlist_pgstar b/star/test_suite/zams_to_cc_80/inlist_pgstar index d5d0aedfe..b4592d0d6 100644 --- a/star/test_suite/zams_to_cc_80/inlist_pgstar +++ b/star/test_suite/zams_to_cc_80/inlist_pgstar @@ -23,7 +23,7 @@ Grid_win_aspect_ratio(1) = 0.666 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,Grid1_file_interval)==0 +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 @@ -181,7 +181,7 @@ Profile_Panels_txt_scale(1) = 0.7 Profile_Panels_num_panels(1) = 4 Profile_Panels_yaxis_name(1, 1) = 'logRho' -Profile_Panels1_dymin(1) = 0.14 +Profile_Panels_dymin(1, 1) = 0.14 Profile_Panels_other_yaxis_name(1, 1) = 'logT' Profile_Panels_other_dymin(1, 1) = 0.14 @@ -190,12 +190,12 @@ 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_Panels1_same_yaxis_range(3) = .true. +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_Panels1_dymin(1) = 0.14 +Profile_Panels_dymin(1, 1) = 0.14 Profile_Panels_other_yaxis_name(1, 4) = 'gradr' Profile_Panels_other_dymin(1, 1) = 0.14 @@ -587,7 +587,7 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window History_Panels_other_yaxis_reversed(1, 1) = .false. History_Panels_other_ymin(1, 1) = -101d0 History_Panels_other_ymax(1, 1) = -101d0 - History_Panels1_other_dymin(1) = 0.14 + History_Panels_other_dymin(1, 1) = 0.14 ! :: @@ -603,7 +603,7 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window History_Panels_other_yaxis_reversed(1, 2) = .false. History_Panels_other_ymin(1, 2) = -101d0 History_Panels_other_ymax(1, 2) = -101d0 - History_Panels1_other_dymin(2) = 0.14 + History_Panels_other_dymin(1, 2) = 0.14 ! :: @@ -619,7 +619,7 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window History_Panels_other_yaxis_reversed(1, 3) = .false. History_Panels_other_ymin(1, 3) = -101d0 History_Panels_other_ymax(1, 3) = -101d0 - History_Panels1_other_dymin(3) = 0.14 + History_Panels_other_dymin(1, 3) = 0.14 ! :: History_Panels_yaxis_name(1, 4) = '' @@ -634,7 +634,7 @@ Mixing_file_aspect_ratio = -1 ! negative means use same value as for window History_Panels_other_yaxis_reversed(1, 4) = .false. History_Panels_other_ymin(1, 4) = -101d0 History_Panels_other_ymax(1, 4) = -101d0 - History_Panels1_other_dymin(4) = 0.14 + History_Panels_other_dymin(1, 4) = 0.14 !----------------------------------------------------------------------- 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 20720ecfc..b9275630d 100644 --- a/star/test_suite/zams_to_cc_80/inlist_to_cc +++ b/star/test_suite/zams_to_cc_80/inlist_to_cc @@ -118,9 +118,9 @@ Profile_Panels_xaxis_reversed(3) = .false. Profile_Panels_yaxis_name(3, 4) = 'gamma1' -Profile_Panels3_dymin(4) = 0.14 +Profile_Panels_dymin(3, 4) = 0.14 Profile_Panels_other_yaxis_name(3, 4) = 'vel_km_per_s' -Profile_Panels3_dymin(4) = 0.14 +Profile_Panels_dymin(3, 4) = 0.14 TRho_Profile_xmin = -12.0 TRho_Profile_xmax = 10 From 31c94087668bdb41506f5203650408bedbf787d0 Mon Sep 17 00:00:00 2001 From: Matthias Fabry Date: Thu, 30 May 2024 12:55:32 +0200 Subject: [PATCH 22/27] [ci skip] changelog.rst entry; need help constructing sed examples --- docs/source/changelog.rst | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) diff --git a/docs/source/changelog.rst b/docs/source/changelog.rst index ff275daa7..a3cffa2f2 100644 --- a/docs/source/changelog.rst +++ b/docs/source/changelog.rst @@ -12,6 +12,27 @@ Changes in 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: From 5a3aee3f46d788a4947d6d364f214d764413d131 Mon Sep 17 00:00:00 2001 From: evbauer <18405113+evbauer@users.noreply.github.com> Date: Thu, 30 May 2024 10:28:28 -0400 Subject: [PATCH 23/27] [ci optional] full test From bb173717a516448b8711b4fa64af840c3d6767c9 Mon Sep 17 00:00:00 2001 From: pmocz Date: Thu, 30 May 2024 13:30:13 -0400 Subject: [PATCH 24/27] first commit. pr-related documentation --- star/defaults/pgstar.defaults | 32 ++++++++++++++++---------------- 1 file changed, 16 insertions(+), 16 deletions(-) diff --git a/star/defaults/pgstar.defaults b/star/defaults/pgstar.defaults index f8277226d..0ab7da566 100644 --- a/star/defaults/pgstar.defaults +++ b/star/defaults/pgstar.defaults @@ -3500,43 +3500,43 @@ Text_Summary_file_prefix(1) = 'Text_Summary1_' - ! Text_Summary2 - ! ------------- + ! Text_Summary(2) + ! --------------- Text_Summary_file_prefix(2) = 'Text_Summary2_' - ! Text_Summary3 - ! ------------- + ! Text_Summary(3) + ! --------------- Text_Summary_file_prefix(3) = 'Text_Summary3_' - ! Text_Summary4 - ! ------------- + ! Text_Summary(4) + ! --------------- Text_Summary_file_prefix(4) = 'Text_Summary4_' - ! Text_Summary5 - ! ------------- + ! Text_Summary(5) + ! --------------- Text_Summary_file_prefix(5) = 'Text_Summary5_' - ! Text_Summary6 - ! ------------- + ! Text_Summary(6) + ! --------------- Text_Summary_file_prefix(6) = 'Text_Summary6_' - ! Text_Summary7 - ! ------------- + ! Text_Summary(7) + ! --------------- Text_Summary_file_prefix(7) = 'Text_Summary7_' - ! Text_Summary8 - ! ------------- + ! Text_Summary(8) + ! --------------- Text_Summary_file_prefix(8) = 'Text_Summary8_' - ! Text_Summary9 - ! ------------- + ! Text_Summary(9) + ! --------------- Text_Summary_file_prefix(9) = 'Text_Summary9_' From 99e93534889e586ae6831e9e5dafbbb17536b142 Mon Sep 17 00:00:00 2001 From: pmocz Date: Thu, 30 May 2024 13:40:53 -0400 Subject: [PATCH 25/27] more documentation --- binary/defaults/pgbinary.defaults | 32 +++++++++++++++---------------- 1 file changed, 16 insertions(+), 16 deletions(-) diff --git a/binary/defaults/pgbinary.defaults b/binary/defaults/pgbinary.defaults index 726371425..78aebb094 100644 --- a/binary/defaults/pgbinary.defaults +++ b/binary/defaults/pgbinary.defaults @@ -715,43 +715,43 @@ Text_Summary_file_prefix(1) = 'Text_Summary1_' - ! Text_Summary2 - ! ------------- + ! Text_Summary(2) + ! --------------- Text_Summary_file_prefix(2) = 'Text_Summary2_' - ! Text_Summary3 - ! ------------- + ! Text_Summary(3) + ! --------------- Text_Summary_file_prefix(3) = 'Text_Summary3_' - ! Text_Summary4 - ! ------------- + ! Text_Summary(4) + ! --------------- Text_Summary_file_prefix(4) = 'Text_Summary4_' - ! Text_Summary5 - ! ------------- + ! Text_Summary(5) + ! --------------- Text_Summary_file_prefix(5) = 'Text_Summary5_' - ! Text_Summary6 - ! ------------- + ! Text_Summary(6) + ! --------------- Text_Summary_file_prefix(6) = 'Text_Summary6_' - ! Text_Summary7 - ! ------------- + ! Text_Summary(7) + ! --------------- Text_Summary_file_prefix(7) = 'Text_Summary7_' - ! Text_Summary8 - ! ------------- + ! Text_Summary(8) + ! --------------- Text_Summary_file_prefix(8) = 'Text_Summary8_' - ! Text_Summary9 - ! ------------- + ! Text_Summary(9) + ! --------------- Text_Summary_file_prefix(9) = 'Text_Summary9_' From 4e5d87d9c0c32dbd67fd06cb00861edd27299cc6 Mon Sep 17 00:00:00 2001 From: pmocz Date: Sun, 25 Aug 2024 10:57:06 -0400 Subject: [PATCH 26/27] sed linting --- docs/source/using_mesa/using_pgstar.rst | 144 ++++++++--------- star/test_suite/make_zams/inlist_zams | 162 ++++++++++---------- star/test_suite/wd_nova_burst/inlist_pgstar | 22 +-- 3 files changed, 164 insertions(+), 164 deletions(-) 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/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/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 From e8e72bfc2cbd87bcd7a83e098a3c1942f63b60b4 Mon Sep 17 00:00:00 2001 From: pmocz Date: Sun, 25 Aug 2024 11:01:15 -0400 Subject: [PATCH 27/27] more seds --- .../inlist_diffusion_smoothness | 44 +++++++++---------- 1 file changed, 22 insertions(+), 22 deletions(-) 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