Differences

This shows you the differences between two versions of the page.

--- get_values [2020/03/18 19:05] – created johnsoevans
+++ get_values [2024/02/22 16:32] (current) – created - external edit 127.0.0.1
@@ Line 1: / Line 1: @@
+====== Get(parameters) ======
+It's often useful to "Get" parameters to use in INP files or for writing out.  For example, if you wanted to equate cell parameters for a tetragonal structure you might use:
+<code topas>
+a @ 4.132
+b = Get(a);
+</code>
+There are hundreds of different parameters you can "Get".  Try searching the technical reference manual or topas.inc.
+You could also try looking through the text below.  This is a text version of the file rttem9.dxx in your TOPAS directory.  It contains some TOPAS definitions.  It's not meant to be user-friendly!
+For example, you should be able to search the file to figure out that the command to get the number of parameters in a refinement is: Get(number_independent_parameters).
+<code topas>
+start_out_side_recs
+{ top_out_side
+   { ^exts_load
+      { brml { r load_brml_single } }
+      { raw { r load_raw_single } }
+      { rd { r load_raw_single } }
+      { dat { r load_dat } }
+      { xdd { r load_xdd } }
+      { sst { r load_sst } }
+      { cpt { r load_xdd } }
+      { cal { r load_xdd } }
+      { bkg { r load_xdd } }
+      { ln  { r load_xdd } }
+      { dif { r load_xdd } }
+      { cpi { r load_cpi } }
+      { xy  { r load_xy } }
+      { scr { r load_scr } }
+      { xye { r load_xye } }
+      { vct { r load_vct } }
+      { gsas { r load_gsas } }
+      { fullprof { r load_fullprof } }
+      { hkl {
+         u scrysts [ r load_hkl ]
+      } }
+      { hkl-lam { r load_hkl_lam } }
+      { uxd { r load_uxd } }
+   }
+   { log_file { riet.log } }
+   { ^prms_from_to
+      { Rp  { r radius_p } }
+      { Rs  { r radius_s } }
+      { X   { r xdd_x } }
+      { Lam { r pk_to_Lam } }
+      { Th  { r pk_to_Th } }
+      { Xo  { r pk_to_Xo } }
+      { D_spacing  { r pk_to_D } }
+      { H   { r pk_to_H } }
+      { K   { r pk_to_K } }
+      { L   { r pk_to_L } }
+      { M   { r pk_to_M } }
+      { Mobs   { r pk_to_Mobs } }
+      { Laue_Lam  { r pk_to_Laue_Lam } }
+      { Mi  { r pk_to_Mi } }
+      { I_after_scale_pks { r I_after_scale_pks } }
+      { I_no_scale_pks { r I_no_scale_pks } }
+      { Ri  { r pk_to_Ri } }
+      { R   { r site_radius } }
+      { Lpa   { r a } }
+      { Lpb   { r b } }
+      { Lpc   { r c } }
+      { Yobs   { r pk_to_yobs } }
+      { Xi  { r pk_to_xi } }
+      { FT_K  { r pk_to_FT_K } }
+      { WPPM_L  { r pk_to_WPPM_L } }
+      { Ycalc   { r pk_to_ycalc } }
+      { Fobs   { r pk_to_Fobs } }
+      { Fcalc   { r pk_to_Fcalc } }
+      { SigmaYobs { r pk_to_sigmayobs } }
+      { A_star { r arec } }
+      { B_star { r brec } }
+      { C_star { r crec } }
+      { Peak_Calculation_Step { r x_calculation_step } }
+      { T { r temperature } }
+      { Iter { r to_iter } }
+      { Cycle { r to_cycle } }
+      { Cycle_Iter { r to_cycle_iter } }
+      { A01 { r f_A01 } }
+      { A11 { r f_A11 } }
+      { B01 { r f_B01 } }
+      { B11 { r f_B11 } }
+      { Iobs_no_scale_pks { r pk_to_Iobs } }
+      { Iobs_no_scale_pks_err { r pk_to_Iobs_err } }
+      { QR_Removed { r qr_removed } }
+      { QR_Num_Times_Consecutively_Small { r qr_n_small } }
+   }
+   { ^prm_defaults
+      { corrected {
+         FMT_EL
+         } }
+      { el_wtp {
+         FMT_EL
+         } }
+      { el_wtp_known {
+         FMT_EL
+         } }
+      { lo {
+         del = 0.05 (3.141/180) 2 Get(pk_to_D) Cos(Get(pk_to_Th)) Get(x_calculation_step);
+         min = Max(.01, Val-.01);
+         max = Min(100, Val+.01);
+         fmt_val %-1.7f
+         } }
+      { la {
+         del 0.01
+         min .00001
+         max = 2 Val + .1;
+         FMT_5
+         } }
+      { lh {
+          del = .01 Abs(Val) + 3 17.453293 (1/Tan(Get(pk_to_Th))) Get(x_calculation_step);
+         min 1e-6
+         max 5
+         FMT_5
+         } }
+      { lg {
+         min 1e-6
+         max 5
+          del = .001 Abs(Val) + 3 17.453293 (1/Tan(Get(pk_to_Th))) Get(x_calculation_step);
+         FMT_5
+         } }
+      { a  { LP_a_  } }
+      { b  { LP_a_  } }
+      { c  { LP_a_  } }
+      { al { LP_al_ } }
+      { be { LP_al_ } }
+      { ga { LP_al_ } }
+      { scale {
+         min 1e-15
+         del = Abs(Val) 0.003 + 1e-10;
+         fmt_val %-.9g fmt_err %-.4g
+         } }
+      { x {
+         del = Constant(.1 / Get(a));
+         min = Val-Constant(1/Get(a));
+         max = Val+Constant(1/Get(a));
+         FMT_5
+         } }
+      { y {
+         del = Constant(.1 / Get(b));
+         min = Val-Constant(1/Get(b));
+         max = Val+Constant(1/Get(b));
+         FMT_5
+         } }
+      { z {
+         del = Constant(.1 / Get(c));
+         min = Val-Constant(1/Get(c));
+         max = Val+Constant(1/Get(c));
+         FMT_5
+         }   }
+      { sx {
+         del = Constant(.1 / Get(a));
+         min = Val-Constant(1/Get(a));
+         max = Val+Constant(1/Get(a));
+         FMT_5
+         } }
+      { sy {
+         del = Constant(.1 / Get(b));
+         min = Val-Constant(1/Get(b));
+         max = Val+Constant(1/Get(b));
+         FMT_5
+         } }
+      { sz {
+         del = Constant(.1 / Get(c));
+         min = Val-Constant(1/Get(c));
+         max = Val+Constant(1/Get(c));
+         FMT_5
+         }   }
+      { sh_Cij_prm {
+         del = If(Val < 0, -0.01, .01) + .01 Val;
+         min = -Abs(Val) 2 - .1;
+         max =  Abs(Val) 2 + .1;
+         FMT_5
+         } }
+      { occ   {
+         del 1e-5
+         min 0
+         max = 2 Val + 1;
+         FMT_5
+         } }
+      { scale_occ   {
+         del 1e-5
+         min 0
+         max = 2 Val + 1;
+         FMT_5
+         } }
+      { pdf_zero   {
+         min -0.2
+         max  0.2
+         FMT_5
+         } }
+      { pdf_gauss_fwhm {
+         min 1e-6
+         FMT_5
+         } }
+      { beq   {
+         del = If(Val < 0, -0.01, .01) + .05 Val;
+         min = Max(-10, Val-10);
+         max = Min( 20, Val+10);
+         FMT_5
+         } }
+      { prm_10   {
+         del .00001
+         fmt_val %.9g fmt_err %.9g
+         } }
+      { loc_10   {
+         del .00001
+         fmt_val %.9g fmt_err %.9g
+         } }
+      { cell_volume      { fmt_val %-1.3f fmt_err %-1.3f  } }
+      { cell_mass      { fmt_val %-1.3f fmt_err %-1.3f  } }
+      { weight_percent { fmt_val %-1.3f fmt_err %-1.3f  } }
+      { lpsd_th2_angular_range_degrees {
+          min = .0001;
+         max = 1.5 Val + .1;
+         del = 0.01 Val + .01;
+         FMT_5
+         }}
+      { lpsd_equitorial_divergence_degrees {
+         del = 0.01 Val + 0.001;
+          min = .0001;
+         max = 1.5 Val + .1;
+         FMT_5
+         }}
+      { lpsd_equitorial_sample_length_mm {
+         del = 0.01 Val + .1;
+          min = .0001;
+         max = 1.5 Val + 1;
+         FMT_5
+         }}
+      { capillary_diameter_mm {
+         del = If ( (Val Constant(1/Get(radius_p))) < (Get(x_calculation_step) C_PI_on_180), 1, -1) (Val 0.01 + Get(x_calculation_step) C_PI_on_180);
+          min = .01;
+         max = Min(2 Val + 1, Constant(Get(radius_p) 0.05));
+         FMT_5
+         }}
+      { capillary_u_cm_inv {
+         del = Abs(Val) 0.01 + 0.01;
+          min = Max(Val 0.5, 3);
+         max = Min(2 Val + 1, 500);
+         FMT_5
+         }}
+      { capillary_focal_length_mm {
+         del = Abs(Val) 0.01 + 0.01;
+          min = Max(Val 0.5, 3);
+         max = Min(2 Val + 1);
+         FMT_5
+         }}
+      { source_len {
+         min .0001
+         max = 2 Val + 1;
+         del = Abs(Val) .01 + 0.05;
+         FMT_5
+         } }
+      { sam_len {
+         min .0001
+         max = 2 Val + 1;
+         del = Abs(Val) .01 + 0.05;
+         FMT_5
+         } }
+      { rs_len {
+         min .0001
+         max = 2 Val + 1;
+         del = Abs(Val) .01 + 0.05;
+         FMT_5
+         } }
+      { prim_soll {
+         min .0001
+         max = 2 Val + 1;
+         del = Abs(Val) .01 + 0.05;
+         FMT_5
+         } }
+      { second_soll {
+         min .0001
+         max = 2 Val + 1;
+         del = Abs(Val) .01 + 0.05;
+         FMT_5
+         } }
+      { m1  {
+         min .75
+         max 30
+         del = -Abs(Val - .75) .05 - .005;
+         } }
+      { m2  {
+         min .75
+         max 30
+         del = -Abs(Val - .75) .05 - .005;
+         } }
+      { pv_fwhm    { H_DEL__ } }
+      { pv_lor    { LOR_DEL__ } }
+      { h1        { H_DEL__ } }
+      { h2        { H_DEL__ } }
+      { spv_h1     { H_DEL__ } }
+      { spv_h2     { H_DEL__ } }
+      { spv_l1     { LOR_DEL__ } }
+      { spv_l2     { LOR_DEL__ } }
+      { whole_hat       { CONV_DEL_PVE__ MIN_FMT_PVE_ } }
+      { hat_prm          { CONV_DEL_PVE__ MIN_FMT_PVE_ } }
+      { lor_conv          { CONV_DEL_PVE__ MIN_FMT_PVE_ } }
+      { gauss_conv       { CONV_DEL_PVE__ MIN_FMT_PVE_ } }
+      { half_hat          { CONV_DEL__ FMT_5 } }
+      { one_on_x_prm    { CONV_DEL__ FMT_5 } }
+      { exp_limit       { CONV_DEL__ FMT_5 } }
+      { exp_prm          { CONV_DEL__ FMT_5 } }
+      { circles_prm       { CONV_DEL__ FMT_5 } }
+      { scale_top_peak { del 0.01 } }
+      { set_top_peak_area { del 0.01 } }
+      { mg { MIN_FMT_PVE_ } }
+      { mlx { FMT_5 } }
+      { mly { FMT_5 } }
+      { mlz { FMT_5 } }
+      { dprm { min 0.000001 }   }
+      { xo {
+         min = Max(X1, Val - 40 Get(x_calculation_step));
+         max = Min(X2, Val + 40 Get(x_calculation_step));
+         } }
+      { iprm {
+         min 1.0e-15
+         fmt_val %-.9g fmt_err %-.4g
+         dr def_iprm
+         } }
+      { rotate_prm {
+         min = Val-180;
+         max = Val+180;
+         del 1
+         FMT_5
+         } }
+      { rx {
+         min = If(Get(in_cart), Val-1, Val-Constant(1/Get(a)));
+         max = If(Get(in_cart), Val+1, Val+Constant(1/Get(a)));
+         del = If(Get(in_cart), .1, Constant(.1/Get(a)));
+         FMT_5
+         } }
+      { ry {
+         min = If(Get(in_cart), Val-1, Val-Constant(1/Get(b)));
+         max = If(Get(in_cart), Val+1, Val+Constant(1/Get(b)));
+         del = If(Get(in_cart), .1, Constant(.1/Get(b)));
+         FMT_5
+         } }
+      { rz {
+         min = If(Get(in_cart), Val-1, Val-Constant(1/Get(c)));
+         max = If(Get(in_cart), Val+1, Val+Constant(1/Get(c)));
+         del = If(Get(in_cart), .1, Constant(.1/Get(c)));
+         FMT_5
+         } }
+      { r {
+         min = Max(0.5, Val .5);
+         max = 2 Val; del .05
+         FMT_5
+         } }
+      { a1 {
+         min = Val - 90;
+         max = Val + 90;
+         del 1
+         FMT_5
+         } }
+      { a2 {
+         min = Val - 90;
+         max = Val + 90;
+         del 1
+         FMT_5
+         } }
+      { u11 {
+         min 0
+         max = Min(20, Val 2 + .05);
+         FMT_5
+         } }
+      { u22 {
+         min 0
+         max = Min(20, Val 2 + .05);
+         FMT_5
+         } }
+      { u33 {
+         min 0
+         max = Min(20, Val 2 + .05);
+         FMT_5
+         } }
+      { u12 {
+         min = Max(-10, Val If(Val < 0, 2, .5) - .025);
+         max = Min( 10, Val If(Val < 0, .5, 2) + .025);
+         FMT_5
+         } }
+      { u13 {
+         min = Max(-10, Val If(Val < 0, 2, .5) - .025);
+         max = Min( 10, Val If(Val < 0, .5, 2) + .025);
+         FMT_5
+         } }
+      { u23 {
+         min = Max(-10, Val If(Val < 0, 2, .5) - .025);
+         max = Min( 10, Val If(Val < 0, .5, 2) + .025);
+         FMT_5
+         } }
+      { protein_As {
+         min = -2 Abs(Val) - 1;
+         max =  2 Abs(Val) + 1;
+         FMT_5
+      } }
+      { protein_Bs {
+         min = -2 Abs(Val) - 1;
+         max =  2 Abs(Val) + 1;
+         FMT_5
+      } }
+   }
+   { ^input_codes
+      { default }
+      { ^generate_stack_sequences
+         { save_sequences { B save_sequences } }
+         { save_sequences_as_strs { B save_sequences d generate_stack_sequences as } }
+         { number_of_sequences { B number_of_sequences } }
+         { number_of_stacks_per_sequence { B number_of_stacks_per_sequence } }
+         { n_avg { B n_avg } }
+         { layers_tol { B layers_tol } }
+         { num_unique_vx_vy { r num_unique_vx_vy D } }
+         { match_transition_matrix_stats { B match_transition_matrix_stats } }
+         { user_defined_starting_transition { r user_defined_starting_transition D } }
+         { transition { q transition D } }
+            { use_layer { B use_layer } }
+            { height { r t_height d ^ a D } }
+            { to { q t_to D r to_transition_prob D } }
+               { n { r t_n D } }
+               { ta { r t_a D } }
+               { tb { r t_b D } }
+               { tz { r t_z D } }
+               { a_add { r t_a d ^ a D } }
+               { b_add { r t_b d ^ a D } }
+               { z_add { r t_z d ^ a D } }
+      }
+      { ^pdf_generate
+         { dr { r dr D } }
+         { r_max { r r_max D } }
+         { x_axis_is_Th2 { r x_axis_is_Th2 D } }
+         { gr_sst_file { r gr_sst_file D } }
+         { gr_to_fq { r gr_to_fq D } }
+         { hat { r hat D } }
+            { num_hats { r num_hats D } }
+      }
+      { ^riet_user_input_codes
+         { xo_Is   { q xi } }
+         { d_Is    { q di } }
+         { xo     { q xo D } }
+         { d      { q dprm D } }
+         { element_weight_percent { q element D B el_wtp } }
+         { element_weight_percent_known { q element_known D B el_wtp_known } }
+         { elemental_composition { B elemental_composition } }
+         { calculated_data_from { r calculated_data_from D } }
+         { weight_percent    { B weight_percent s lnched ! [ g elemental_composition ] } }
+         { str_mass           { B cell_mass } }
+         { cell_mass           { B cell_mass } }
+         { no_LIMIT_warnings { g no_LIMIT_warnings } }
+         { more_accurate_Voigt { U more_accurate_Voigt } }
+         { include { -include riet_user_input_codes } }
+         { remove_phase { B remove_phase } }
+         { out_dependences_for { h q out_dependences_for D k } }
+         { out_dependences { h q out_dependences D k } }
+         { out_Tji { B out_Tji } }
+         { xdd_scr {
+            u Ttree_app [
+               s lnched [
+                  r scrysts r xdd_recs q xdd B xdd_path_name
+               ] [
+                  R
+               ]
+            ] [
+               r scrysts r xdd_recs q xdd B xdd_path_name
+            ]
+         } }
+         { layer { q site_layer D n site ^ } }
+         { stack_sequence { r str_layers n stack_sequences ^ } }
+         { generate_stack_sequences { -keyword_group generate_stack_sequences r generate_stack_sequences } }
+         { stack { r str_layers q stack D n stack_sequences ^ } }
+            { sx { r sx D } }
+            { sy { r sy D } }
+            { sz { r sz D } }
+            { generate_these { r generate_these D } }
+            { generate_name_append { r generate_name_append D } }
+         { f0_f1_f11_atom { q f0_f1_f11_atom D } }
+         { f0 { B f0 } }
+         { f1 { B f1 } }
+         { f11 { B f11 } }
+         { report_on_str { d str report_on_str } }
+         { neutron_data   { g neutron } }
+         { pdf_generate { -keyword_group pdf_generate r pdf_generate } }
+         { pdf_data { g pdf_data } }
+         { pdf_zero { r pdf_zero D } }
+         { pdf_single_unit_cell { r pdf_single_unit_cell D } }
+         { pdf_ymin_on_ymax { r pdf_ymin_on_ymax D } }
+         { pdf_min_r_for_fwhm { r pdf_min_r_for_fwhm D } }
+         { pdf_gauss_approx_i { r pdf_gauss_approx_i D } }
+         { pdf_scale_simple { d pdf ss } }
+         { pdf_for_pairs { q pdf_for_pairs D B pdf_pairs_1 B pdf_pairs_2 } }
+            { pdf_only_eq_0 { d pdf_for_pairs 0 } }
+         { pdf_gauss_fwhm { r pdf_gauss_fwhm D } }
+         { pdf_info { r pdf_info D } }
+         { pdf_convolute { q pdf_convolute D } }
+            { min_X { r min_X D } }
+            { max_X { r max_X D } }
+            { convolute_X_recal { r convolute_X_recal D } }
+         { pdf_ft_conv { q pdf_convolute D d ^ f } }
+         { spiked_phase_measured_weight_percent { r spiked_mwp D } }
+         { corrected_weight_percent { r corrected_weight_percent D } }
+         { weight_percent_amorphous { r weight_percent_amorphous D } }
+         { crystalline_area { B crystalline_area } }
+         { amorphous_area { B amorphous_area } }
+         { degree_of_crystallinity { B degree_of_crystallinity } }
+         { numerical_area { B numerical_area } }
+         { amorphous_phase { g amorphous_phase } }
+         { str_closest { r str_closest D } }
+         { closest { B closest } }
+         { siv_s1_s2 { B siv_s1 B siv_s2 } }
+         { grs_interaction { A grs_inter } }
+         { box_interaction { A box_inter } }
+         { atomic_interaction { q atomic_interaction D } }
+         { ai_anti_bump { q ai_anti_bump D } }
+         { ai_radius { B ai_radius } }
+         { ai_sites_1 { B ai_sites_1 } }
+         { ai_sites_2 { B ai_sites_2 } }
+         { ai_closest_N { B ai_closest_N } }
+         { ai_no_self_interation { g ai_no_self_interation } }
+         { ai_only_eq_0 { g ai_only_eq_0 } }
+         { ai_exclude_eq_0 { g ai_exclude_eq_0 } }
+         { ai_flatten_with_tollerance_of { r ai_flatten_with_tollerance_of D } }
+         { sites_distance { q sites_distance D } }
+         { sites_angle { q sites_angle D } }
+         { sites_flatten { q sites_flatten D } }
+         { sites_flatten_tol { r sites_flatten_tol D } }
+         { site_to_restrain { q site_to_restrain D } }
+         { sites_geometry { q sites_geometry D } }
+         { xdds  { xdd_fit_ndx } }
+         { sites  { site_recs } }
+         { strs  { str_recs } }
+         { hklis { hklis } }
+         { xo_Iss { xis } }
+         { d_Iss { dis } }
+         { min_r   { U min_r D } }
+         { max_r   { U max_r D } }
+         { rand_xyz   { B rand_xyz } }
+         { str_hkl_angle { A hkl_angle } }
+         { hkl_I_d2Th_dL { r hkl_I_d2Th_dL D } }
+         { march_dollase { q march_dollase D } }
+         { fft_max_order { r fft_max_order D n riet_app_3 ^ } }
+         { str_max_mem_MBytes { -str_max_mem } }
+         { dont_merge_equivalent_reflections { d str dmer } }
+         { dont_merge_Friedel_pairs { d str dmerFp } }
+         { ignore_differences_in_Friedel_pairs { d str idFp } }
+         { num_highest_I_values_to_keep { B keep_N_I_values } }
+         { Flack { r Flack D } }
+         { gui_tof_t0 { B tof_t0 } }
+         { gui_tof_t1 { B tof_t1 } }
+         { i_on_error_ratio_tolerance { B ion_err_toll } }
+         { occ_merge    { q occ_merge D } }
+            { occ_merge_radius  { r occ_merge_radius D } }
+         { normalize_FCs { g normalize_FCs } }
+         { site    { q site D } }
+            { x    { r x D } }
+            { y    { r y D } }
+            { z    { r z D } }
+            { inter { r site_inter  D } }
+            { num_posns    { B num_posns } }
+            { occ          { q atom D r occ D } }
+            { scale_occ   { B scale_occ } }
+               { beq       { r beq D } }
+            { adps  { -pbins r adps n ios_to_save ^ D } }
+            { u11   { r u11 D } }
+            { u22   { r u22 D } }
+            { u33   { r u33 D } }
+            { u12   { r u12 D } }
+            { u13   { r u13 D } }
+            { u23   { r u23 D } }
+            { mlx { r mlx D } }
+            { mly { r mly D } }
+            { mlz { r mlz D } }
+            { mg { r mg D } }
+         { create_pks_name { r create_pks_name D } }
+         { create_pks_fn { r create_pks_fn D } }
+         { create_pks_equal_I { g create_pks_equal_I } }
+         { no_f11 { g no_f11 } }
+         { protein_As { B protein_As } }
+         { protein_Bs { B protein_Bs } }
+         { rigid { u str ! [ r rgds_ed ] q rigid } }
+         { str {
+            u xdd [
+               q str
+            ] [
+               r strs_ed
+               q str
+            ]
+         } }
+         { dummy_str { r dstrs q str d ^ dummy_str } }
+         { hkl_plane { q hkl_plane D } }
+         { point_for_site { q point_for_site B site_name } }
+         { z_matrix { q zmat_pfs B site_name D } }
+         { rotate { q rotate r rotate_prm D } }
+         { translate { q translate } }
+         { operate_on_points { B operate_on_points } }
+         { start_values_from_site { B start_values_from_site } }
+         { in_cartesian { j in_cart 1 } }
+         { in_FC { j in_cart 0 } }
+         { ux { r rx D } }
+         { uy { r ry D } }
+         { uz { r rz D } }
+         { qx { r rx D j in_cart 1 } }
+         { qy { r ry D j in_cart 1 } }
+         { qz { r rz D j in_cart 1 } }
+         { tx { r rx D j in_cart 1 } }
+         { ty { r ry D j in_cart 1 } }
+         { tz { r rz D j in_cart 1 } }
+         { ua { r rx D j in_cart 0 } }
+         { ub { r ry D j in_cart 0 } }
+         { uc { r rz D j in_cart 0 } }
+         { qa { r rx D } }
+         { qb { r ry D } }
+         { qc { r rz D } }
+         { ta { r rx D } }
+         { tb { r ry D } }
+         { tc { r rz D } }
+         { spherical_harmonics_hkl { q sh_hkl D } }
+         { normals_plot { r normals_plot D } }
+            { normals_plot_min_d { r normals_plot_min_d D } }
+         { phase_penalties { q phase_penalties D } }
+            { hkl_Re_Im { B hkl_Re_Ims } }
+            { phase_penalties_population { r phase_penalties_population D r phase_penalties n post_iter_2 ^ n on_converged ^ } }
+               { phase_penalties_allowed_visits { r phase_penalties_allowed_visits D } }
+            { accumulate_phases_and_save_to_file { r accumulate_phases_and_save_to_file D } }
+               { accumulate_phases_when { r accumulate_phases_when D } }
+               { accumulate_phases_sample_when { r accumulate_phases_sample_when D } }
+            { determine_phases { B determine_phases } }
+               { number_of_highest_intensities_to_work_with { B number_of_highest_intensities_to_work_with } }
+               { number_of_cycles_for_initial_intensity_determination { B number_of_cycles_for_initial_intensity_determination } }
+               { maximum_number_of_phase_configurations { B maximum_number_of_phase_configurations } }
+               { error_tollerance { B error_tollerance } }
+               { phase_tollerance { B phase_tollerance } }
+               { determine_phases_when { B determine_phases_when } }
+               { link_with_surpressor_phase_penalties { B link_with_surpressor_phase_penalties } }
+               { number_of_hkls_for_link { B number_of_hkls_for_link } }
+         { sh_alpha { r sh_alpha D  } }
+         { sh_order { B sh_order } }
+         { sh_Cij_prm { q sh_Cij_prm D  } }
+         { phase_MAC { B phase_MAC } }
+         { mixture_MAC { B mixture_MAC } }
+         { mixture_density_g_on_cm3  { B mixture_density_g_on_cm3 } }
+         { brindley_spherical_r_cm { B br_sp_r } }
+         { charge_flipping { r charge_flipping } }
+         { F2_pow { r F2_pow D } }
+         { cf_hkl_file { r cf_hkl_file D } }
+            { cf_merged { g cf_merged } }
+         { cf_in_A_matrix { r cf_in_A_matrix D } }
+         { scale_Aij { B scale_Aij } }
+         { min_d { r min_d D } }
+         { delete_observed_reflections { r delete_observed_reflections D } }
+         { fraction_density_to_flip { r fraction_density_to_flip D } }
+         { scale_flipped { r scale_flipped D } }
+         { flip_equation { q flip_equation D } }
+         { flip_regime_2 { q flip_regime_2 D } }
+         { flip_regime_3 { q flip_regime_3 D } }
+         { flip_regime_4 { q flip_regime_4 D } }
+         { flip_neutron { q flip_neutron D } }
+         { user_threshold { r user_threshold D } }
+         { fraction_reflections_weak { r fraction_reflections_weak D } }
+         { min_F_non_weak { r min_F_non_weak D } }
+         { cf_plot_histo { r cf_plot_histo D } }
+         { cf_set_phases { r cf_set_phases D } }
+         { set_initial_phases_to { B set_initial_phases_to } }
+            { use_Fc { g use_Fc } }
+         { randomize_initial_phases_by { r randomize_initial_phases_by D } }
+         { add_to_phases_of_non_weak_reflections { q add_to_phases_of_non_weak_reflections D } }
+         { obey_symm { r obey_symm D } }
+         { atp_merged { r atp_merged D } }
+         { atp_weak_rand_plus_minus { q atp_weak_rand_plus_minus D } }
+         { atp_non_weak_rand_plus_minus { q atp_non_weak_rand_plus_minus D } }
+         { add_to_phases_of_weak_reflections { q add_to_phases_of_weak_reflections D } }
+         { scale_weak_reflections { r scale_weak_reflections D } }
+         { scale_non_weak_reflections { r scale_non_weak_reflections D } }
+         { apply_exp_scale { r apply_exp_scale D } }
+         { exp_scale_b_start { r exp_scale_b_start D } }
+         { scale_F { r scale_F D } }
+         { scale_E { r scale_E D } }
+         { break_cycle_if_true { r break_cycle_if_true D } }
+         { symmetry_obey_0_to_1 { r symmetry_obey_0_to_1 D } }
+         { find_origin { r find_origin D } }
+            { find_origin_percent_ok       { r find_origin_percent_ok D } }
+         { histogram_match_scale_fwhm { r histogram_match_scale_fwhm D } }
+            { hm_size_limit_in_fwhm { r hm_size_limit_in_fwhm D } }
+            { hm_covalent_fwhm { r hm_covalent_fwhm D } }
+            { hm_weighting { r hm_weighting D } }
+            { hm_weighting_2 { r hm_weighting_2 D } }
+            { hm_max_gauss { r hm_max_gauss D } }
+            { hm_fraction_do { r hm_fraction_do D } }
+            { hm_do_rest { r hm_do_rest D } }
+            { hm_scale_rest { r hm_scale_rest D } }
+            { hm_scale { r hm_scale D } }
+            { hm_plot { r hm_plot D } }
+         { tangent_scale_difference_by { r tangent_scale_difference_by D } }
+         { tangent_num_h_read { r tangent_num_h_read D } }
+         { tangent_num_k_read { r tangent_num_k_read D } }
+         { tangent_num_h_keep { r tangent_num_h_keep D } }
+         { tangent_max_triplets_per_h { r tangent_max_triplets_per_h D } }
+         { tangent_min_triplets_per_h { r tangent_min_triplets_per_h D } }
+         { tangent_tiny { r tangent_tiny D } }
+         { tangent_max_al_sum_allowed { r tangent_max_al_sum_allowed D } }
+         { tangent_include { r tangent_include D } }
+         { correct_for_temperature_effects { r correct_for_temperature_effects D } }
+         { view_cloud { B view_cloud } }
+         { cf_cloud_add { B cf_cloud_add } }
+         { scale_F000 { r scale_F000 D } }
+         { pick_atoms_when { B pick_atoms_when } }
+         { cf_plot_fit { r cf_plot_fit D } }
+         { fc_with_d_E { r fc_with_d_E D } }
+         { cf_out_fc_file { r cf_out_fc_file D } }
+         { scale_density_below_threshold { r scale_density_below_threshold D } }
+         { pick_atoms { q pick_atoms D }}
+            { activate { r activate D }}
+            { choose_from { r choose_from D }}
+            { choose_to { r choose_to D }}
+            { choose_randomly { r choose_randomly D }}
+            { omit { r omit D }}
+            { insert { r insert D }}
+            { origin_omit { q origin_omit D }}
+            { or_occ { r or_occ D }}
+            { pick_fwhm { B pick_fwhm } }
+            { omit_fwhm { B omit_fwhm } }
+            { insert_fwhm { B insert_fwhm } }
+            { insert_ats { B insert_ats } }
+            { insert_at { q insert_at }}
+         { inp_text { -inp_text } }
+         { inp_text_insert { -inp_text_insert } }
+         { move_to { -move_to } }
+         { dummy { R } }
+         { dummy_prm { B dummy_prm } }
+         { d_spacing_to_energy_in_eV_for_f1_f11 { r d_spacing_to_energy_in_eV_for_f1_f11 D } }
+         { seed { x -seed } }
+         { xye_format { g xye_fmt } }
+         { gsas_format { g gsas_format } }
+         { fullprof_format { g fullprof_format } }
+         { file_name_for_best_solutions { B file_for_sols } }
+         { phase_out { A phase_out } }
+         { phase_out_X { A phase_out_X } }
+         { atom_out { A atom_out } }
+         { test_mag { B test_mag } }
+         { mag_atom_out { A mag_atom_out } }
+         { mag_only_for_mag_sites { h E str d ^ mag_only_for_mag_sites k } }
+         { mag_only { h E site d ^ mag_only k } }
+         { xdd_out { A xdd_out } }
+         { error_out { A error_out } }
+         { out { A g_out } }
+            { out_record { h r out_recs q out_rec n 01last_out out_rec_ndx ^ k } }
+               { out_fmt { B 01last_out_rec fmt } }
+               { out_eqn { B 01last_out_rec eqn Z 01last_out_rec eqn pre_process_Get } }
+               { out_fmt_err { B 01last_out_rec fmt_err } }
+         { penalties_weighting_K1 { B per_pen } }
+         { do_errors { g do_errors } }
+         { do_errors_include_restraints { g do_errors x riet_app_3 r } }
+         { do_errors_include_penalties { g do_errors x riet_app_3 p } }
+         { save_best_chi2    { x riet_app_3 bchi2 } }
+         { eqn_zero_toll { x riet_app_3 ez } }
+         { out_A_matrix    { h q out_A_matrix D k } }
+            { A_matrix_prm_filter    { h  C out_A_matrixs r A_matrix_prm_filter D k } }
+         { A_matrix    { B A_matrix } }
+         { A_matrix_normalized { B A_matrix_normalized } }
+         { C_matrix    { B C_matrix } }
+         { C_matrix_normalized { B C_matrix_normalized } }
+         { percent_zeros_before_sparse_A { B percent_zeros_before_sparse_A } }
+         { use_CG           { } }
+         { sparse_A           { } }
+         { auto_sparse_CG    { } }
+         { quick_refine   { B quick_refine } }
+            { quick_refine_remove { B quick_refine_remove } }
+            { quick_refine_No { B quick_refine_No } }
+            { quick_refine_cycle_iter_start { B quick_refine_cycle_iter_start } }
+         { iters            { B iters } }
+         { num_cycles      { B num_cycles } }
+         { num_runs   { B num_runs } }
+         { suspend_writing_to_log_file   { B suspend_writing_to_log_file } }
+         { out_file { r out_file D n riet_app_3 ^ } }
+         { verbose { B verbose } }
+         { process_times { g process_times } }
+         { continue_after_convergence  { g continue_ref } }
+         { system_before_save_OUT  { q system_before_save_OUT D } }
+         { system_after_save_OUT  { q system_after_save_OUT D } }
+         { no_normal_equations { g no_normal_eqs } }
+         { chi2 { B chi2 g approximate_A } }
+         { xdd_sum { q xdd_sum D } }
+         { xdd_array { q xdd_array D } }
+         { marquardt_mul { B marquardt_mul } }
+         { approximate_A { g approximate_A } }
+            { A_matrix_memory_allowed_in_Mbytes { B A_matrix_memory_allowed_in_Mbytes } }
+            { A_matrix_elements_tollerance { B A_matrix_elements_tollerance } }
+            { A_matrix_report_on { d non_fit A_matrix_report_on } }
+            { A0_matrix_is_constant { d non_fit A0_matrix_is_constant } }
+         { force_positive_fwhm { d non_fit fph } }
+         { conserve_memory { j conserve_memory 1 } }
+         { temperature { A temper } }
+         { on_best_goto { h C tempers B on_best_goto k  } }
+         { on_best_rewind { h C tempers B on_best_rewind k } }
+         { use_best_values { h C tempers g use_best_values k } }
+         { stop_rewind { h C tempers g stop_rewind k } }
+         { save_values_as_best_after_randomization { h C tempers g save_values k } }
+         { move_to_the_next_temperature_regardless_of_the_change_in_rwp { h C tempers g next_temp k } }
+         { not_start_of_anneal { h C tempers g not_start_of_anneal k } }
+         { out_prm_vals_per_iteration { q out_prm_vals_per_iteration D } }
+         { out_prm_vals_on_convergence { q out_prm_vals_on_convergence D } }
+         { out_prm_vals_filter { B out_prm_vals_filter } }
+         { out_prm_vals_dependents_filter { B out_prm_vals_dependents_filter } }
+         { bootstrap_errors { B bootstrap_errors } }
+         { fraction_of_yobs_to_resample { B fraction_of_yobs_to_resample } }
+         { determine_values_from_samples { g determine_values_from_samples } }
+         { resample_from_current_ycalc { g resample_from_current_ycalc } }
+         { use_LU { d non_fit lu } }
+         { use_LU_for_errors { d non_fit lue } }
+         { line_min { g line_min } }
+         { use_extrapolation { g extrap } }
+         { only_penalties { g only_pen } }
+         { out_refinement_stats { d non_fit os } }
+         { randomize_on_errors  { g rnd_errs } }
+            { randomize_on_errors_do  { B randomize_on_errors_do } }
+            { randomize_on_errors_buffer  { B randomize_on_errors_buffer } }
+            { allowed_visits  { B allowed_visits } }
+            { t_scaler_1 { B t_scaler_1 } }
+            { t_scaler_2 { B t_scaler_2 } }
+            { t_scaler_3 { B t_scaler_3 } }
+            { t_scaler_4 { B t_scaler_4 } }
+            { t_scaler_5 { B t_scaler_5 } }
+            { t_scaler_6 { B t_scaler_6 } }
+         { out_rwp { B out_rwp } }
+         { out_chi2 { B out_chi2 } }
+         { weighted_Durbin_Watson { B wdw } }
+         { r_exp_dash { B r_exp_dash } }
+         { r_wp_dash { B r_wp_dash } }
+         { r_exp { B r_exp } }
+         { r_wp { B r_wp } }
+         { r_p_dash { B r_p_dash } }
+         { r_p { B r_p } }
+         { gof   { B gof } }
+         { chi2_convergence_criteria { B rwp_tolerance } }
+         { tag { h q tag D k } }
+         { tag_2 { h q tag_2 D k } }
+         { weighting { r weighting D } }
+         { gui_text { h q kgui_text D k } }
+         { recal_weighting_on_iter { d xdd recal_on_iter } }
+         { xdd {
+            u Ttree_app [
+               s lnched [
+                  r xdds r xdd_recs q xdd B xdd_path_name
+               ] [
+                  R
+               ]
+            ] [
+               r xdds r xdd_recs q xdd B xdd_path_name
+            ]
+         } }
+         { gui_reload { d xdd_path_name gui_reload } }
+         { gui_ignore { d xdd_path_name gui_ignore } }
+         { user_y { q user_y D B user_y_file } }
+            { user_y_gauss_fwhm { q user_y_gauss_fwhm D } }
+            { user_y_lor_fwhm { q user_y_lor_fwhm D } }
+            { user_y_hat { q user_y_hat D } }
+            { user_y_num_hats { B user_y_num_hats } }
+            { user_y_exp_conv_const { q user_y_exp_conv_const D } }
+               { user_y_exp_limit { r user_y_exp_limit D } }
+            { user_y_rebin_with_dx_of { r rebin_with_dx_of D } }
+               { user_y_rebin_start_x_at { r rebin_start_x_at D } }
+            { user_y_rebin_tollerance_in_Y { r rebin_tollerance_in_Y D } }
+               { user_y_rebin_min_merge { r rebin_min_merge D } }
+         { yobs_eqn {
+            r xdds r xdd_recs q xdd
+            r yobs_eqn D
+            n xdd_path_name yobs_eqn
+            d xdd_path_name gui_reload_yobs_eqn
+         } }
+         { view_structure { g view_structure } }
+         { range
+            {
+               u Ttree_app [
+                  s lnched [
+                     B range
+                  ] [
+                     R
+                  ]
+               ] [
+                  B range
+               ]
+            }
+         }
+         { pr_str { -pr_str } }
+         { start_X { B start_X } }
+         { finish_X { B finish_X } }
+         { extra_X { B extra_X_right } }
+         { extra_X_left { B extra_X_left } }
+         { extra_X_right { B extra_X_right } }
+         { rebin_with_dx_of { r rebin_with_dx_of D } }
+            { rebin_start_x_at { r rebin_start_x_at D } }
+         { rebin_tollerance_in_Y { r rebin_tollerance_in_Y D } }
+            { rebin_min_merge { r rebin_min_merge D } }
+         { smooth { r smooth D } }
+         { yobs_to_xo_posn_yobs { r yobs_to_xo_posn_yobs D } }
+         { exclude { A excl_x12 A excl_x12 } }
+         { bkg { B bkg } }
+         { force_chubychev_positive { r force_chubychev_positive D } }
+         { convolution_step { B convolution_step } }
+         { x_calculation_step { B x_calculation_step } }
+         { x_axis_tol_for_equal_step_size { r x_axis_tol_for_equal_step_size D } }
+         { no_message { g no_message } }
+         { gui_add_bkg { B gui_add_bkg } }
+         { fit_obj { q gen_fit_obj B gen_dummy } }
+            { fit_obj_phase { r fit_obj_phase D } }
+         { fo_transform_X { r fo_transform_X D } }
+         { Rp { U radius_p D } }
+         { Rs { U radius_s D } }
+         { penalty { h q penalty D k } }
+         { restraint { h q penalty D d ^ res k } }
+         { pen_weight { A pen_weight } }
+         { existing_prm { -ex_prm } }
+         { local { h q loc_10 D k } }
+         { prm { h q prm_10 D k } }
+         { fn { h q fn_10 D k } }
+         { noinline { h -noinline k } }
+         { aberration_range_change_allowed { b arca B arca } }
+         { push_peak { q push_peak } }
+         { bring_2nd_peak_to_top { q bring_2nd_peak_to_top } }
+         { bring_nth_peak_to_top { q bring_nth_peak_to_top r n_from_top D } }
+         { add_pop_1st_2nd_peak { q add_pop_1st_2nd_peak } }
+         { scale_top_peak { q scale_top_peak_op B scale_top_peak } }
+         { set_top_peak_area { q set_top_peak_area_op B set_top_peak_area } }
+         { hat { q hat_conv r hat_prm D } }
+            { num_hats { B num_hats } }
+         { house { q house_conv } }
+            { house_x1 { r house_x1 D } }
+            { house_x2 { r house_x2 D } }
+            { house_a1 { r house_a1 D } }
+            { house_a2 { r house_a2 D } }
+            { num_houses { B num_houses } }
+         { one_on_x_conv { q one_on_x_conv r one_on_x_prm D } }
+         { exp_conv_const { q exp_conv r exp_prm D } }
+            { exp_limit { r exp_limit D } }
+         { circles_conv { q circles_conv r circles_prm D } }
+         { user_defined_convolution { q user_defined_conv r user_defined_prm D } }
+         { gauss_fwhm_stack { q gauss_fwhm_stack r gfs_prm D } }
+         { lor_fwhm_stack { q lor_fwhm_stack r lfs_prm D } }
+         { ft_conv { r ft_conv_re_ims q ft_conv_re_im r ft_conv_re D } }
+         { ft_conv_re_im { r ft_conv_re_ims q ft_conv_re_im } }
+            { ft_conv_re { r ft_conv_re D } }
+            { ft_conv_im { r ft_conv_im D } }
+            { ft_x_axis_range { r ft_x_axis_range D } }
+            { ft_min { r ft_min D } }
+         { WPPM_ft_conv { r WPPM_ft_conv_re_ims q WPPM_ft_conv_re_im r WPPM_ft_conv_re D } }
+         { WPPM_ft_conv_re_im { r WPPM_ft_conv_re_ims q WPPM_ft_conv_re_im D } }
+            { WPPM_ft_conv_re { r WPPM_ft_conv_re D } }
+            { WPPM_ft_conv_im { r WPPM_ft_conv_im D } }
+            { WPPM_th2_range { r WPPM_th2_range D } }
+            { WPPM_break_on_small { r WPPM_break_on_small D } }
+            { WPPM_L_max { r WPPM_L_max D } }
+         { WPPM_correct_Is { d WPPM_fte_convs ci } }
+         { WPPM_fix_intensity { d WPPM_fte_convs fi } }
+         { capillary_diameter_mm {
+            q capillary_conv
+            r capillary_diameter_mm D
+            } }
+            { capillary_xy_n { r capillary_xy_n D } }
+            { capillary_u_cm_inv { r capillary_u_cm_inv D } }
+            { capillary_parallel_beam { g capillary_parallel_beam } }
+            { capillary_convergent_beam { g capillary_convergent_beam } }
+            { capillary_divergent_beam { g capillary_divergent_beam } }
+            { capillary_focal_length_mm  { r capillary_focal_length_mm D } }
+         { lpsd_th2_angular_range_degrees {
+            q lpsd_conv
+            r lpsd_th2_angular_range_degrees D } }
+            { lpsd_equitorial_divergence_degrees { r lpsd_equitorial_divergence_degrees D } }
+            { lpsd_equitorial_sample_length_mm { r lpsd_equitorial_sample_length_mm D } }
+            { lpsd_beam_spill_correct_intensity { r lpsd_beam_spill_correct_intensity D } }
+         { axial_conv { q axial_conv } }
+            { filament_length { r source_len D } }
+            { sample_length { r sam_len D } }
+            { receiving_slit_length { r rs_len D } }
+            { primary_soller_angle  { r prim_soll D } }
+            { secondary_soller_angle { r second_soll D } }
+            { flat_crystal_pre_monochromator_axial_const { r inel_const D } }
+            { axial_n_beta { B axial_n_beta } }
+            { axial_del { B dummy_prm } }
+         { stacked_hats_conv { q sh_conv } }
+            { whole_hat { q whole_hat D } }
+            { half_hat { q half_hat D } }
+            { hat_height { r sh_hhh D } }
+         { modify_peak { r modify_peak } }
+            { modify_peak_apply_before_convolutions { g modify_peak_apply_before_convolutions } }
+            { modify_peak_eqn { r modify_peak_eqn D } }
+               { current_peak_min_x { r current_peak_min_x D } }
+               { current_peak_max_x { r current_peak_max_x D } }
+         { del_approx { q del_approx D } }
+         { lor_fwhm { q lor_fwhm D } }
+         { gauss_fwhm { q gauss_fwhm D } }
+         { scale_pks { q scale_pks_prm D } }
+         { scale_phase_X { q scale_phase_X D } }
+         { th2_offset { q th2_offset_prm D } }
+         { pk_xo { r pk_xo_prm D } }
+         { peak_buffer_based_on { r peaks_buffer_based_on q peak_buffer_based_on D } }
+         { peak_buffer_based_on_tol { r peak_buffer_based_on_tol D } }
+         { auto_scale             { r auto_scale D } }
+         { scale                   { r scale D } }
+         { space_group             { B sp_grp_char } }
+         { mag_space_group          { g mag_sg B sp_grp_char } }
+         { omit_hkls { r omit_hkls_bin q omit_hkls D } }
+         { volume                  { B cell_volume } }
+         { cell_volume            { B cell_volume } }
+         { peak_buffer_step       { b pk_buffer_step r pk_buffer_step D } }
+         { report_on             { E phase d ^ report_on } }
+         { peak_type              { B pk_type } }
+         { append_cartesian      { r do_cart D } }
+         { append_fractional      { r do_fract D } }
+         { p1_fractional_to_file  { r p1_fractional_to_file D } }
+         { in_str_format         { g in_str_format } }
+         { append_bond_lengths   { B do_bond_lengths } }
+            { consider_lattice_parameters { g clp } }
+         { r_bragg  { r r_bragg D } }
+         { a     { r a  D } }
+         { b     { r b  D } }
+         { c     { r c  D } }
+         { al     { r al D } }
+         { be     { r be D } }
+         { ga     { r ga D } }
+         { only_lps { d index only_lps } }
+         { lp_search { r lp_search D } }
+         { lp_search_fom { r lp_search_fom D } }
+         { index_x0 { r index_x0 D } }
+         { index_d { q index_d D Y good [ d index_d g ] } }
+         { index_I { r index_I D Y good [ d index_d g ] } }
+         { index_th2 { q index_d D d ^ t Y good [ d index_d g ] } }
+         { index_zero_error { g index_zero_error } }
+         { index_min_lp { r index_min_lp D } }
+         { index_max_lp { r index_max_lp D } }
+         { index_lam { r index_lam D } }
+         { index_max_Nc_on_No { r index_max_Nc_on_No D } }
+         { index_max_th2_error { r index_max_th2_error D } }
+         { index_max_zero_error { r index_max_zero_error D } }
+         { index_max_number_of_solutions { B index_max_number_of_solutions } }
+         { index_th2_resolution { B index_th2_resolution } }
+         { try_space_groups { q try_space_groups D } }
+         { no_extinction_subgroup_search { d index nosgs } }
+         { n1 { B n1 } }
+         { n2 { B n2 } }
+         { n3 { B n3 } }
+         { v1 { B v1 } }
+         { x_scaler { B x_scaler } }
+         { x_angle_scaler { B x_angle_scaler } }
+         { test_a  { B test_a  } }
+         { test_b  { B test_b  } }
+         { test_c  { B test_c  } }
+         { test_al { B test_al } }
+         { test_be { B test_be } }
+         { test_ga { B test_ga } }
+         { ndx_sg   { q ndx_det B ndx_sg } }
+         { ndx_status  { B ndx_status } }
+         { ndx_uni  { B ndx_uni } }
+         { ndx_vol  { R } }
+         { ndx_gof  { R } }
+         { ndx_ze   { B ndx_ze   } }
+         { ndx_alp  { B ndx_alp  } }
+         { ndx_blp  { B ndx_blp  } }
+         { ndx_clp  { B ndx_clp  } }
+         { ndx_allp { B ndx_allp } }
+         { ndx_belp { B ndx_belp } }
+         { ndx_galp { B ndx_galp } }
+         { hkl_similar_tag { r hkl_dets r hkl_similar_tag D } }
+         { peak_buffer_similar_tag { r peak_buffer_similar_tag D } }
+         { hkl_m_d_th2 { B hkl_dets } }
+         { hkl_Is  { q hkli } }
+         { I_parameter_names_have_hkl  { B I_parameter_names_have_hkl } }
+         { lebail  { B lebail } }
+         { phase_name { B phase_name } }
+         { default_I_attributes  { r def_iprm D } }
+         { I      { q iprm D } }
+         { m1     { r m1 D } }
+         { m2     { r m2 D } }
+         { h1     { r h1 D } }
+         { h2     { r h2 D } }
+         { pv_lor  { r pv_lor D } }
+         { pv_fwhm { r pv_fwhm D } }
+         { spv_h1  { r spv_h1 D } }
+         { spv_h2  { r spv_h2 D } }
+         { spv_l1  { r spv_l1 D } }
+         { spv_l2  { r spv_l2 D } }
+         { numerical_lor_gauss_conv { g numerical_lor_gauss_conv } }
+         { numerical_lor_ymin_on_ymax { r numerical_lor_ymin_on_ymax D } }
+         { lam     { U lam } }
+         { ymin_on_ymax { r ymin_on_ymax D } }
+         { no_th_dependence { j no_th_dep 1 } }
+         { Lam { r lam_for_Bragg_ang D } }
+         { lo_ref { r lo_ref } }
+         { calculate_Lam { d lam_for_Bragg_ang calc_lfd } }
+         { la        { q lam_rec r la D } }
+         { lh        { r lh D } }
+         { lg        { r lg D } }
+         { lo        { r lo D } }
+         { min { -min_load } }
+         { max { -max_load } }
+         { del { -del_load } }
+         { update { -update_load } }
+         { val_on_continue { -vonc_load } }
+         { stop_when { -stop_when_load } }
+         { prm_with_error { h q prm_10 -prm_with_error k } }
+         { use_tube_dispersion_coefficients { B use_old_disp } }
+            { extend_calculated_sphere_to { r extend_calculated_sphere_to D } }
+            { correct_for_atomic_scattering_factors { r correct_for_atomic_scattering_factors D } }
+            { use_E_values { r use_E_values D } }
+            { out_merged_only { r out_merged_only D } }
+            { fourier_map_formula { r fourier_map_formula D } }
+            { min_grid_spacing { r min_grid_spacing D } }
+            { out_str_dets { B out_str_dets } }
+            { out_Fc { B out_Fc } }
+            { f_atom_type { q f_atom_type D } }
+               { f_atom_quantity { B f_atom_quantity } }
+      }
+   }
+}
+start_templates
+{ Trigid_xyz;
+   Crigid_xyz;
+      Crx _cr rigid_prm pt rigid IS_RIGID_prm_6;
+      Cry _cr rigid_prm pt rigid IS_RIGID_prm_6;
+      Crz _cr rigid_prm pt rigid IS_RIGID_prm_6;
+      Ain_cart _cr fui;
+}
+{ Tpfs_rigid_xyz;
+   Asite_name _cr fus;
+   Crigid_xyz;
+      Crx _cr pfs_rigid_prm pt rigid IS_RIGID_prm_6;
+      Cry _cr pfs_rigid_prm pt rigid IS_RIGID_prm_6;
+      Crz _cr pfs_rigid_prm pt rigid IS_RIGID_prm_6;
+      Ain_cart _cr fui;
+   Ccrigid_xyz _cr prm_6;
+      Ccrx _cr crxyz nc nsv ES_FOR_OUTPUT IS_RIGID_prm_6;
+      Ccry _cr crxyz nc nsv ES_FOR_OUTPUT IS_RIGID_prm_6;
+      Ccrz _cr crxyz nc nsv ES_FOR_OUTPUT IS_RIGID_prm_6;
+}
+{ Toperate_on_points;
+   Aoperate_on_points _cr fus;
+}
+{ Ttranslate;
+   Astart_values_from_site _cr fus;
+   Crand_xyz _cr prm_6 _on_cr { r translate n vonc_2 ^ };
+}
+{ Trotate_prm;
+   Crotate_prm _cr rigid_prm pt rigid IS_RIGID_prm_6;
+}
+{ Tzmat;
+   Cr  _cr rigid_prm pt rigid IS_RIGID_prm_6;
+   Ca1 _cr rigid_prm pt rigid IS_RIGID_prm_6;
+   Ca2 _cr rigid_prm pt rigid IS_RIGID_prm_6;
+}
+{ Trigid;
+   rigid_ops _cr nou _array;
+   point_for_sites _array _cr aA;
+      Cpoint_for_site _tem { Tpfs_rigid_xyz } _on_cr { j in_cart 1 n rigid_ops ^ } _alias { pfs op } IS_RIGID_prm_6;
+      Czmat_pfs _tem { Tpfs_rigid_xyz Tzmat } _on_cr { j in_cart 1 n rigid_ops ^ } _alias { pfs op } IS_RIGID_prm_6;
+   rotations _array _cr aA;
+      Crotate _tem { Trigid_xyz Trotate_prm Toperate_on_points } _on_cr { n rigid_ops ^ } _alias op IS_RIGID_prm_6;
+   translations _array _cr aA;
+      Ctranslate _tem { Trigid_xyz Ttranslate Toperate_on_points } _on_cr { n rigid_ops ^ } _alias op IS_RIGID_prm_6;
+}
+{ Trigids;
+   rigids _array _on_cr { 4 str };
+      Crigid _on_cr { n pu1 ^ } _alias prm_bin _tem Trigid;
+}
+{ Tsh_hhh;
+   Csh_hhh _cr conv_prm fn Th_;
+}
+{ Tarca;
+   Carca _cr prm_6 nc;
+}
+{ Tcapillary;
+   Ccapillary_u_cm_inv _cr conv_prm pt ~pk fn Th_;
+   capillary_parallel_beam _cr aA;
+   capillary_divergent_beam _cr aA;
+   capillary_convergent_beam _cr aA;
+   Ccapillary_focal_length_mm _cr conv_prm pt ~pk fn Th_;
+   Ccapillary_xy_n _def 80 _cr prm_6;
+}
+{ Tlpsd_beam_spill_correct_intensity;
+   Alpsd_beam_spill_correct_intensity _cr fui _def 1 _on_cr { n lpsd_conv ^ };
+}
+{ Tlpsd;
+   Clpsd_equitorial_divergence_degrees _cr conv_prm pt ~pk fn Th_;
+   Clpsd_equitorial_sample_length_mm _cr conv_prm _tem { Tlpsd_beam_spill_correct_intensity } pt ~pk fn Th_ _on_cr { n lpsd_conv ^ };
+}
+{ Tfte_convs;
+   fte_conv _cr aA;
+      Cfte_re _cr fte_re_im fn { Th_ Tx TFT_K } pt ft;
+      Cfte_im _cr fte_re_im fn { Th_ Tx TFT_K } pt ft;
+}
+{ TWPPM_fte_convs;
+   fte_conv _cr aA;
+      Cfte_re _cr fte_re_im fn { Th_ Tx TWPPM_L } pt ft;
+      Cfte_im _cr fte_re_im fn { Th_ Tx TWPPM_L } pt ft;
+}
+{ Tft_conv_re_ims;
+   ft_conv_re_im;
+      Cft_conv_re _cr prm_10 nr nyd pt pk fn { Th_ Tx TFT_K };
+      Cft_conv_im _cr prm_10 nr nyd pt pk fn { Th_ Tx TFT_K };
+      Cft_x_axis_range nyd nr _cr prm_10;
+      Cft_min nyd nr _cr prm_10;
+}
+{ TWPPM_ft_conv_re_ims;
+   WPPM_ft_conv_re_im;
+      CWPPM_ft_conv_re _cr prm_10 nr nyd pt pk fn { Th_ Tx TWPPM_L };
+      CWPPM_ft_conv_im _cr prm_10 nr nyd pt pk fn { Th_ Tx TWPPM_L };
+      CWPPM_th2_range nyd nr _cr prm_10;
+      CWPPM_break_on_small nyd nr _cr prm_10 _def 1e-7;
+      CWPPM_L_max nyd nr _cr prm_10;
+}
+{ Texp_conv;
+   Cexp_prm _cr conv_prm _tem Tarca pt ~pk fn Th_;
+   Cexp_limit _cr conv_prm _tem Tarca pt ~pk fn Th_ _on_cr { n exp_conv ^ };
+}
+{ That_conv;
+   Chat_prm _cr conv_prm _tem Tarca pt ~pk fn Th_;
+   Anum_hats _def 1 _cr fui _on_cr { M hat_conv };
+}
+{ Thouse;
+   Chouse_x1 _cr conv_prm _tem Tarca pt ~pk fn Th_;
+   Chouse_x2 _cr conv_prm _tem Tarca pt ~pk fn Th_;
+   Chouse_a1 _cr conv_prm _tem Tarca pt ~pk fn Th_;
+   Chouse_a2 _cr conv_prm _tem Tarca pt ~pk fn Th_;
+   Anum_houses _def 1 _cr fui;
+}
+{ Tone_on_x_conv;
+   Cone_on_x_prm _cr conv_prm _tem Tarca pt ~pk fn Th_;
+}
+{ Tcircles_conv;
+   Ccircles_prm _cr conv_prm _tem Tarca pt ~pk fn Th_;
+}
+{ Tgauss_fwhm_stack;
+   Cgfs_prm _cr num_deriv pt pk fn { Th_ Tx };
+}
+{ Tlor_fwhm_stack;
+   Clfs_prm _cr num_deriv pt pk fn { Th_ Tx };
+}
+{ Tuser_defined_conv;
+   Cuser_defined_prm _cr num_deriv pt pk fn { Th_ Tx };
+}
+{ Tsh_conv;
+   Cwhole_hat _cr sh_prm _tem { Tarca Tsh_hhh } pt ~pk fn Th_;
+   Chalf_hat _cr sh_prm _tem { Tarca Tsh_hhh } pt ~pk fn Th_;
+}
+{ Taxial_conv;
+   axial_prms _cr aA _on_cr { g source_len g sam_len g rs_len };
+      Csource_len _cr conv_prm pt ~pk;
+      Csam_len _cr conv_prm pt ~pk;
+      Crs_len _cr conv_prm pt ~pk;
+      Cprim_soll _cr conv_prm pt ~pk;
+      Csecond_soll _cr conv_prm pt ~pk;
+      Cinel_const _cr conv_prm pt ~pk;
+   Caxial_n_beta _def 30 _cr prm_6 fn Th_;
+}
+{ Tbring_nth_peak_to_top;
+   Cn_from_top _cr prm_10 nr nyd fn Th_;
+}
+{ Tcomm_1;
+   hr_pk_prms _cr aA _array;
+      hr_convs _cr nou _array;
+      always_arca _cr nou _array;
+      pk_type_prms _cr aA _array;
+         Cm1 _cr conv_prm _tem Tarca _on_cr { j arca =.05 } pt ~pk fn Th_ Flags Ffsti;
+         Cm2 _cr conv_prm _tem Tarca _on_cr { j arca =.05 } pt ~pk fn Th_ Flags Ffsti;
+         Ch1 _cr conv_prm _tem Tarca pt ~pk fn Th_ Flags Ffsti;
+         Ch2 _cr conv_prm _tem Tarca pt ~pk fn Th_ Flags Ffsti;
+         Cpv_fwhm _cr conv_prm _tem Tarca pt ~pk fn Th_ Flags Ffsti;
+         Cpv_lor _cr conv_prm _tem Tarca _on_cr { j arca =.01 } pt ~pk fn Th_ Flags Ffsti;
+         Cspv_h1 _cr conv_prm _tem Tarca pt ~pk fn Th_ Flags Ffsti;
+         Cspv_h2 _cr conv_prm _tem Tarca pt ~pk fn Th_ Flags Ffsti;
+         Cspv_l1 _cr conv_prm _tem Tarca _on_cr { j arca =.01 } pt ~pk fn Th_ Flags Ffsti;
+         Cspv_l2 _cr conv_prm _tem Tarca _on_cr { j arca =.01 } pt ~pk fn Th_ Flags Ffsti;
+      push_pk_etc _cr aA _array;
+         push_peak _on_cr { n hr_convs ^ };
+         bring_2nd_peak_to_top _on_cr { n hr_convs ^ };
+         bring_nth_peak_to_top _on_cr { n hr_convs ^ } _tem Tbring_nth_peak_to_top;
+         add_pop_1st_2nd_peak _on_cr { n hr_convs ^ };
+         scale_top_peak_op _on_cr { n hr_convs ^ };
+            Cscale_top_peak _cr conv_prm pt ~pk fn Th_;
+         set_top_peak_area_op _on_cr { n hr_convs ^ };
+            Cset_top_peak_area _cr conv_prm pt ~pk fn Th_;
+      hat_conv _on_cr { n hr_convs ^ } _tem That_conv;
+      house_conv _on_cr { n hr_convs ^ } _tem Thouse;
+      one_on_x_conv _on_cr { n hr_convs ^ } _tem Tone_on_x_conv;
+      exp_conv _on_cr { n hr_convs ^ } _tem Texp_conv;
+      circles_conv _on_cr { n hr_convs ^ } _tem Tcircles_conv;
+      gauss_fwhm_stack _on_cr { n hr_convs ^ n always_arca ^ } _tem Tgauss_fwhm_stack;
+      lor_fwhm_stack _on_cr { n hr_convs ^ n always_arca ^ } _tem Tlor_fwhm_stack;
+      user_defined_conv _on_cr { n hr_convs ^ n always_arca ^ } _tem Tuser_defined_conv;
+      sh_conv _array _on_cr { n hr_convs ^ } _tem Tsh_conv _alias prm_bin;
+      capillary_conv _tem { Tarca Tcapillary } _on_cr { n hr_convs ^ n always_arca ^ } Flags Fcr;
+         Ccapillary_diameter_mm _cr conv_prm pt ~pk fn Th_;
+      lpsd_conv _tem { Tarca Tlpsd } _on_cr { n hr_convs ^ n always_arca ^ } Flags Fcr;
+         Clpsd_th2_angular_range_degrees _cr conv_prm pt ~pk fn Th_;
+      axial_conv _tem { Tarca Taxial_conv } _on_cr { g axial_prms n hr_convs ^ n always_arca ^ } Flags Fcr;
+      modify_peak _tem { Tarca } _on_cr { n hr_convs ^ n always_arca ^ };
+         Cmodify_peak_eqn _cr num_deriv pt ~pk fn Th_ Flags Ffsti;
+         Ccurrent_peak _cr prm_6 nc nsv pt ~pk fn Th_ Flags Ffsti;
+         Ccurrent_peak_x _cr prm_6 nc nsv;
+         Ccurrent_peak_min_x _cr prm_6 nc nsv;
+         Ccurrent_peak_max_x _cr prm_6 nc nsv;
+         modify_peak_apply_before_convolutions _cr aA;
+      lor_numer _on_cr { n hr_convs ^ };
+      gauss_numer _on_cr { n hr_convs ^ };
+      Anumerical_lor_ymin_on_ymax _cr fud _def 1.0e-4;
+      numerical_lor_gauss_conv _cr aA;
+      lor_gauss_fwhms _cr aA;
+         lor_fwhms _cr aA _array;
+            Clor_fwhm _cr prm_10 nyd pt ~pk fn Th_;
+         gauss_fwhms _cr aA _array;
+            Cgauss_fwhm _cr prm_10 nyd pt ~pk fn Th_;
+      ft_conv_re_ims _array _cr aA _tem Tft_conv_re_ims;
+      WPPM_ft_conv_re_ims _array _cr aA _tem TWPPM_ft_conv_re_ims;
+   comm_1_1 _cr aA;
+      Cpk_xo_prm _cr prm_10 nyd fn Th_;
+      th2_offsets _cr aA _array;
+         Cth2_offset_prm _cr prm_10 nyd fn Th_;
+      more_accurate_Voigt search_up _cr aA;
+      pdf_convolutes _cr aA _array;
+         Cpdf_convolute _tem Tpdf_convolute _cr pdf_conv_str;
+}
+{ Tmin_max_r;
+   min_max_r _cr aA;
+      Amin_r _cr fud _def 0.0 search_up;
+      Amax_r _cr fud _def 3.2 search_up;
+}
+{ Tref_and_non_ref_prms;
+   ref_and_non_ref_prms _cr aA;
+      refs _cr crefs;
+      nonrefs _cr crefs;
+}
+{ Tno_message;
+   no_message _cr aA;
+}
+{ Tfit_stats;
+   Aconvolution_step _def 1 _cr fui;
+   Cx_calculation_step nr _def -999 type Th_ fn Th_;
+   Cx_axis_tol_for_equal_step_size _cr prm_10 nr _def 1e-4 _tem Tno_message;
+   fit_stats _cr aA;
+      Cwdw nc nr _fmt %-1.3f _cr prm_7 _on_cr { n ios_to_save _ };
+      Cr_exp_dash nc nr _fmt %-1.3f _cr prm_7 _on_cr { n ios_to_save _ };
+      Cr_wp_dash nc nr _fmt %-1.3f _cr prm_7 _on_cr { n ios_to_save _ };
+      Cr_p_dash nc nr _fmt %-1.3f _cr prm_7 _on_cr { n ios_to_save _ };
+      Cr_p nc nr _fmt %-1.3f _cr prm_7 _on_cr { n ios_to_save _ };
+      Cgof nc nr _fmt %-1.3f _cr prm_7 _on_cr { n ios_to_save _ };
+      Cr_exp nc nr _fmt %-1.3f _on_cr { n ios_to_save _ } _def 1;
+      Cr_wp nc nr _fmt %-1.3f _on_cr { n ios_to_save _ };
+}
+{ Tstr_sg;
+   Asp_grp_char _cr fus;
+      str_sg _on_cr { d ^ do };
+      sg_set _on_cr { d ^ do };
+      sp_xyzs_txt;
+      sp_xyzs_txt_with_id _cr sp_xyzs_txt;
+      mag_sp_xyzs_txt;
+      mag_sp_xyzs_txt_with_id _cr mag_sp_xyzs_txt;
+}
+{ Tndx_fom;
+   ndx_fom;
+}
+{ Ttry_space_groups;
+   An1 _cr fui;
+   An2 _cr fui;
+   An3 _cr fui;
+   Av1 _cr fud;
+   Ax_scaler _cr fud;
+   Ax_angle_scaler _cr fud;
+   test_lps _cr aA;
+      Ctest_a _cr prm_6;
+      Ctest_b _cr prm_6;
+      Ctest_c _cr prm_6;
+      Ctest_al _cr prm_6;
+      Ctest_be _cr prm_6;
+      Ctest_ga _cr prm_6;
+}
+{ Taccumulate_phases_when;
+   Caccumulate_phases_when _cr prm_6 _def 1 _on_cr { n phase_penalties ^ };
+   Caccumulate_phases_sample_when _cr prm_6 _def 1 _on_cr { n phase_penalties ^ };
+}
+{ Tphase_penalties;
+   Aaccumulate_phases_and_save_to_file _tem { Taccumulate_phases_when } _cr fus _on_cr { n phase_penalties ^ r phase_penalties n on_cont11 ^ n fin4 ^ };
+   hkl_Re_Ims;
+   Cphase_penalties_allowed_visits _cr prm_6 _def 100;
+   Cphase_penalties_population _cr prm_6 _def 1000;
+   Cerror_tollerance _cr prm_6 _def 2;
+   Cphase_tollerance _cr prm_6 _def 90;
+    Cdetermine_phases _cr prm_6 _def 15 _on_cr { n phase_penalties ^ };
+      Cnumber_of_highest_intensities_to_work_with _cr prm_6 _def 200;
+      Cnumber_of_cycles_for_initial_intensity_determination _cr prm_6 _def 100;
+      Cmaximum_number_of_phase_configurations _cr prm_6 _def 500;
+      Cdetermine_phases_when _cr prm_6 _def 1;
+      Alink_with_surpressor_phase_penalties _cr fus;
+         Cnumber_of_hkls_for_link _cr prm_6 _def 500;
+}
+{ Tomit_hkls_bin;
+   Apk_to_H _cr fud nsv type Tomh;
+   Apk_to_K _cr fud nsv type Tomh;
+   Apk_to_L _cr fud nsv type Tomh;
+   Apk_to_D _cr fud nsv type Tomh;
+   omit_hklss _cr aA _array;
+      Comit_hkls _cr prm_6 nc fn { Tomh };
+}
+{ Tnormals_plot;
+   Cnormals_plot_min_d _cr prm_6;
+}
+{ Thkl_F2;
+   Coffset nsv nr nyd;
+}
+{ Tsh_hkl;
+   Csh_alpha _cr prm_10 fn Th_;
+   Ash_order _def 4;
+   sh_Yij_prms _array _cr aA;
+      Csh_Yij_prm nyd nc nsv type Th_ fn Th_ Flags Individual_Peak_Shapes;
+   sh_Cij_prms _array _cr aA;
+      Csh_Cij_prm fn Th_ Flags Individual_Peak_Shapes;
+}
+{ Thkl_similar_tag;
+   Chkl_similar_tag _cr prm_10 nr nyd _on_cr { 6 hkl_dets };
+}
+{ Thkl_lat;
+   hkl _cr aA;
+      march_dollases _array _cr aA;
+         Cmarch_dollase nr nmbu nc nsv nyd type Th_ fn Th_ local_ _on_cr { c march_dollase_prm n locals ^ };
+            Cmarch_dollase_prm nyd _cr prm_10;
+      hkl_angles _array _cr aA;
+         Chkl_angle nr nmbu nc nsv nyd type Th_ fn Th_ Flags Individual_Peak_Shapes;
+      Chkl_I_d2Th_dL nr nmbu nc nsv nyd type Th_ fn Th_ local_ _on_cr { n locals ^ 6 phase }  _tem Thkl_F2;
+      hkl_dets _tem Thkl_similar_tag;
+      hkls_all_save _on_cr { n hkl_dets ^ };
+      omit_hkls_bin _cr aA _tem Tomit_hkls_bin;
+      phase_penaltiess _array _cr aA;
+         Cphase_penalties nc nmbu nyd _tem Tphase_penalties;
+      normals_plots _array _cr aA;
+         Cnormals_plot _tem Tnormals_plot _on_cr { n fin6 ^ } nyd nsv nv nc type Th_ fn Th_;
+      sh_hkls _array _cr aA;
+         Csh_hkl nyd nsv nv nc type Th_ fn Th_ local_ _on_cr { n locals ^ } _tem Tsh_hkl;
+      Apk_to_Mi nsv _def -1 type Th_;
+   Clat_prms;
+      Carec _cr prm_7 fn_of "lat_prms";
+      Cbrec _cr prm_7 fn_of "lat_prms";
+      Ccrec _cr prm_7 fn_of "lat_prms";
+      lat_prms_prms _cr aA;
+         Ca _cr lp_abc pt th2 _alias lp fn Th_;
+         Cb _cr lp_abc pt th2 _alias lp fn Th_;
+         Cc _cr lp_abc pt th2 _alias lp fn Th_;
+         Cal _cr lp_albega pt th2 _alias lp _def 90 fn Th_;
+         Cbe _cr lp_albega pt th2 _alias lp _def 90 fn Th_;
+         Cga _cr lp_albega pt th2 _alias lp _def 90 fn Th_;
+      Clp_search _tem { Tndx_fom } nyd _on_cr { g cell_volume g hkls_all_save n on_cont0 ^ n on_cont2 ^ n on_first_ycalc ^ };
+      Clp_search_fom nr nmbu nyd;
+}
+{ Tatomic_interaction;
+   Cai_radius _cr prm_6;
+   Cai_flatten_with_tollerance_of _cr prm_6;
+   Aai_closest_N _cr fui;
+   Aai_sites_1 _cr fus;
+   Aai_sites_2 _cr fus;
+   ai_no_self_interation _cr aA;
+   ai_only_eq_0 _cr aA;
+   ai_exclude_eq_0 _cr aA;
+}
+{ Tocc_merge;
+   Cocc_merge_radius _cr prm_6 _def 0.6;
+}
+{ Tsites_to_restrain;
+   sites_to_restrain   _cr aA _array;
+      Asite_to_restrain;
+}
+{ Tsites_geometry;
+   Csites_geometry_distance nv NC__ nyd nr;
+   Csites_geometry_angle nv NC__ nyd nr;
+   Csites_geometry_dihedral_angle nv NC__ nyd nr;
+}
+{ Tf0_f1_f11_atom;
+   Cf0 _cr prm_10 nyd _on_cr { n f0_f1_f11_atom ^ };
+   Cf1 _cr prm_10 nyd _on_cr { n f0_f1_f11_atom ^ };
+   Cf11 _cr prm_10 nyd _on_cr { n f0_f1_f11_atom ^ };
+}
+{ Tf0_f1_f11_atoms;
+   f0_f1_f11_atoms _cr aA _array;
+      Af0_f1_f11_atom _tem Tf0_f1_f11_atom;
+}
+{ Tsite;
+   site_misc _cr aA;
+      Asite_layer _cr fus;
+      Ais_cation _cr fui;
+      Anum_posns _cr ioi _on_cr { n ios_to_save ^ };
+      Aclosest _cr iod _on_cr { n ios_to_save ^ } _fmt %-12.6f;
+      Csite_inter nyd nc nr _on_cr { n val_errs ^ };
+      Crand_xyz _cr prm_6 _on_cr { n vonc_2 site n site ^ };
+}
+{ Tstack;
+   Csx _cr stack_xyz;
+   Csy _cr stack_xyz;
+   Csz _cr stack_xyz;
+   Agenerate_these _cr fus;
+      Agenerate_name_append _cr fus;
+}
+{ Ttransition;
+   Ause_layer _cr fus;
+   Ct_height _on_cr { n transition ^ } pt lay;
+   to_transitions _cr aA _array;
+      At_to;
+         Ct_n nr nc nyd _cr prm_10 _on_cr { n val_errs ^ };
+         Cto_transition_prob nr _cr prm_10;
+         Ct_a _cr lxyz pt lay;
+         Ct_b _cr lxyz pt lay;
+         Ct_z _cr lxyz pt lay;
+}
+{ Tgenerate_stack_sequences;
+   Cnumber_of_sequences nr _def 1 _cr prm_10;
+   Cnumber_of_stacks_per_sequence nr _def 0 _cr prm_10;
+   Cn_avg nr _def 100 _cr prm_10;
+   Clayers_tol nr _def 0.5 _cr prm_10;
+   Cnum_unique_vx_vy nr nc nyd _cr prm_10 _on_cr { n val_errs ^ };
+   match_transition_matrix_stats;
+   Cuser_defined_starting_transition nr nc nyd _cr prm_10;
+   transitions _cr aA _array;
+      Atransition _tem Ttransition;
+}
+{ Tstr_layers;
+   str_layer_recs _cr aA _array;
+      Astr_layer;
+   stack_sequences;
+   stacks _array;
+      Astack _tem Tstack;
+}
+{ Tin_str_format;
+   in_str_format _cr aA;
+}
+{ Tpdf_convolute;
+   Cconvolute_X_recal nyd nr _cr prm_10 _def 1;
+   Cmin_X nyd _cr prm_10;
+   Cmax_X nyd _cr prm_10;
+}
+{ Tpdf_for_pairs;
+   Apdf_pairs_1 _cr fus;
+   Apdf_pairs_2 _cr fus;
+   Cpdf_gauss_fwhm _on_cr { M pdf_for_pairs };
+   pdf_convolutes _cr aA _array _on_cr { M pdf_for_pairs } ;
+      Cpdf_convolute _tem Tpdf_convolute _cr pdf_conv_pairs;
+}
+{ Tstr;
+   atomic_inters _cr aA;
+      str_xyzs;
+      pdf _on_cr { Cant_Thread_Over_Xdds };
+         Cpdf_ymin_on_ymax _cr prm_6 _def 0.001;
+         Cpdf_zero;
+         Cpdf_min_r_for_fwhm _cr prm_6 _def 1.5;
+         Cpdf_single_unit_cell _cr prm_6 _def 0;
+         Apdf_gauss_approx_i _cr fui _def 600;
+         Apdf_info _cr fio _on_cr { n ios_to_save ^ };
+         pdf_for_pairss _cr aA _array;
+            pdf_for_pairs _tem Tpdf_for_pairs;
+      grs_grid;
+      Asiv_s1 _cr fud _def 1.5;
+      Asiv_s2 _cr fud _def 2;
+      grs_inters _cr aA _array;
+         Cgrs_inter nyd NC__ nr fn { TR TRi };
+      box_inters _cr aA _array;
+         Cbox_inter nyd NC__ nr fn { TR TRi };
+      atomic_interactions _cr aA _array;
+         Catomic_interaction nr nmbu nyd _tem Tatomic_interaction fn { TR TRi };
+      ai_anti_bumps _cr aA _array;
+         Cai_anti_bump nv nr NC__ nmbu nyd _tem Tatomic_interaction;
+      occ_merges _cr aA _array _on_cr { M str };
+         occ_merge _on_cr { n pu1 ^ } _tem Tocc_merge;
+      sites_distances _cr aA _array;
+         Csites_distance _tem Tsites_to_restrain nv NC__ nyd nr nmbu local_ _on_cr { n locals ^ };
+      sites_angles _cr aA _array;
+         Csites_angle _tem Tsites_to_restrain nv NC__ nyd nr nmbu local_ _on_cr { n locals ^ };
+      sites_geometrys _cr aA _array;
+         Csites_geometry _tem { Tsites_to_restrain Tsites_geometry } nv NC__ nsv nyd nr nmbu
+            _on_cr { n all_sites_geometrys ^ n locals ^ } local_ ;
+      sites_flattens _cr aA _array;
+         Csites_flatten _tem Tsites_to_restrain nv NC__ nyd nr nmbu local_ _on_cr { n locals ^ };
+            Csites_flatten_tol _cr prm_6;
+      str_layers _tem Tstr_layers _on_cr { M str Cant_Thread_Over_Xdds } _alias prm_bin;
+         generate_stack_sequences _tem Tgenerate_stack_sequences _on_cr { n str_layers ^ };
+            Asave_sequences _cr fus _on_cr { n fin5 generate_stack_sequences  n generate_stack_sequences ^ };
+      Cgenerated_c nr nc _cr prm_6;
+   str_1 _cr aA;
+      misc_str _cr aA;
+         view_structure _cr aA;
+         normalize_FCs _cr aA _on_cr { M str };
+         no_f11 _cr aA;
+         Ado_cart _tem Tin_str_format _on_cr { n ios_to_save ^ };
+         Ado_fract _tem Tin_str_format _on_cr { n ios_to_save ^ };
+         Ap1_fractional_to_file _tem Tin_str_format _on_cr { n fin6 ^ };
+         Ado_bond_lengths _on_cr { n ios_to_save ^ };
+            clp _cr aA;
+         Ccalculated_data_from nr nyd _on_cr { M str };
+         Cstr_closest nyd nr _on_cr { n fin5 ^ };
+      Cfourier_map _tem Tfourier_map nyd nr _on_cr { n fin6 ^ };
+         Cfourier_map_formula _cr prm_6 nc nsv fn { Td Tfmap };
+      hkl_planes _array _cr aA;
+         Ahkl_plane;
+      str_grid;
+      atm_dets _array;
+         atm_det;
+            Cstr_atm_det_wt nr;
+               str_element_atoms _cr nou _array;
+            Cstr_atm_det_wt_fr nr;
+      mag_sg _cr aA;
+         str_mag _on_cr { M str };
+            mag_sites_ndx _array _cr nou;
+            Atest_mag _cr fud _on_cr { n str_mag ^ };
+         str_mag_fms _array;
+            str_mag_fm;
+      f_AB _cr aA;
+         f_A01 _cr f_AB_AB11 nsv;
+         f_A11 _cr f_AB_AB11 nsv;
+         f_B01 _cr f_AB_AB11 nsv;
+         f_B11 _cr f_AB_AB11 nsv;
+      protein _on_cr { g protein_As g protein_Bs M str };
+         Cprotein_As;
+         Cprotein_Bs;
+      cif_bonds_angles;
+   site_sgs _cr aA _array;
+      site_sg;
+   cds _cr aA _array;
+      cd _array;
+   Acurrent_atom _cr fua;
+   site_recs _array _cr aA;
+      Csite _tem { Tmin_max_r Tsite } _alias prm_bin;
+         Cx _cr xyz_coord;
+         Cy _cr xyz_coord;
+         Cz _cr xyz_coord;
+         atom_recs _array _cr aA;
+            Aatom;
+               Cocc;
+               Cbeq;
+               Cscale_occ _on_cr { M atom };
+               f0_f1_f11 _cr aA;
+                  Cf0_occ _on_cr { M atom } _fmt %-1.6f;
+                  Cf1_occ _on_cr { M atom } _fmt %-1.6f;
+                  Cf11_occ _on_cr { M atom } _fmt %-1.6f;
+         site_mag _on_cr { M site n mag_sites_ndx site };
+            Cmlx _cr mlxyz;
+            Cmly _cr mlxyz;
+            Cmlz _cr mlxyz;
+            Cmg _def -1.0e13;
+         Aadps _on_cr { d ^ chk d site adps };
+            Cu11 _cr unn;
+            Cu22 _cr unn;
+            Cu33 _cr unn;
+            Cu12 _cr unn;
+            Cu13 _cr unn;
+            Cu23 _cr unn;
+}
+{ Tstrs_ed;
+   str_recs _array _cr aA;
+      Cstr _cr scryst
+         _on_cr { d ^ rbe }
+         _tem { Tstr Tcomm_2 Tcomm_3 Thkl_lat TPhase_Powder_Single_crystal Tmin_max_r Trigids Tstr_sg Tscry1 }
+         _alias { prm_bin phase hkl_p };
+}
+{ Tout_recs;
+   out_rec _cr aA _on_cr { n last_out_rec ^ };
+      Ceqn _cr prm_10 nc Nr nmbu nyd;
+      Afmt _cr fus;
+      Afmt_err _cr fus;
+}
+{ Tout_rec_ndx;
+   out_rec_ndx _array _cr nou;
+}
+{ TPhase_Powder_Single_crystal;
+   phase1 _cr aA;
+      pk_sum_limits;
+      Call_scale_pks fn Th_;
+      xy_phase _cr xy_data;
+      Cr_bragg _on_cr { n ios_to_save ^ } nc nr;
+      pk_to_Iobs nsv;
+      pk_to_Iobs_err nsv;
+      I_after_scale_pks nsv;
+      I_no_scale_pks nsv;
+      Cdel_approx _cr prm_10 nr _def 0.25;
+      phase_outs _array _cr aA;
+         Aphase_out _tem Tout_rec_ndx _on_cr { n all_outs ^ n last_out ^ };
+      phase_outs_Xs _array _cr aA;
+         Aphase_out_X _tem Tout_rec_ndx _on_cr { n all_outs ^ n last_out ^ };
+      atom_outs _array _cr aA;
+         Aatom_out _tem Tout_rec_ndx _on_cr { n all_outs ^ n last_out ^ };
+      mag_atom_outs _array _cr aA;
+         Amag_atom_out _tem Tout_rec_ndx _on_cr { n all_outs ^ n last_out ^ };
+      Aphase_name _cr fus;
+      Cremove_phase _cr prm_6 _on_cr { n remove_phases ^ } nc nr;
+      Cscale _def 1;
+      phase_quant _cr aA _on_cr { M phase };
+         Cbr_sp_r _cr prm_7 _on_cr
+            {
+               n smv ^
+               g mixture_MAC
+               g mixture_density_g_on_cm3
+               n val_errs ^
+            };
+         Cphase_MAC _on_cr { n val_errs ^ } Nr nyd;
+         Ccell_volume _on_cr { g weight_percent n val_errs ^ } Nr nyd;
+         Ccell_mass _on_cr { g weight_percent n val_errs ^ } Nr nyd;
+         Csmv _on_cr { g cell_mass g cell_volume  M phase } Nr nyd;
+            Cweight_percent _on_cr { n val_errs ^ } Nr nyd;
+               Ccorrected_weight_percent _on_cr { n val_errs ^ } Nr nyd;
+               Cspiked_mwp _on_cr { n spiked_mwps ^ } nr Nr nyd;
+            Csum_smvs_minus_this _on_cr { n val_errs ^ } Nr nyd;
+      Cauto_scale _on_cr { n val_errs ^ E phase n ^ _ } nr nc;
+}
+{ Tx_p;
+   scale_phase_Xs _array _cr xdd_scale_phase_Xs;
+      Cscale_phase_X _cr xdd_scale_phase_X nyd fn Tx;
+}
+{ Tpeaks_buffer_based_on;
+   Cpeak_buffer_based_on nr fn Th_ _cr prm_10;
+      Cpeak_buffer_based_on_tol nr fn Th_ _cr prm_10;
+}
+{ TPhase_Powder;
+   phase_p_1 _cr aA;
+      arca_prms _cr nou _array;
+      Clor_conv _on_cr { n arca_prms ^ } fn Th_;
+      Cgauss_conv _on_cr { n arca_prms ^ } fn Th_;
+      peaks_buffer_based_on _array _on_cr { n pks_buf ^ } _tem Tpeaks_buffer_based_on;
+      Cth2_offset_eqn fn Th_ type Th_;
+      Cpk_xo_eqn fn Th_ type Th_;
+      Cnumerical_area _on_cr { n val_errs ^ } nr nc;
+      amorphous_phase _cr aA;
+      scale_phase_Xs _array _on_cr { 6 phase };
+         Cscale_phase_X fn Tx;
+      fte_convs _array _tem Tfte_convs _on_cr { n arca_prms ^ n hr_convs ^ } Flags Fcr _alias bfte_convs;
+      WPPM_fte_convs _array _tem TWPPM_fte_convs _on_cr { n arca_prms ^ n hr_convs ^ Cant_Thread_Over_Xdds } Flags Fcr _alias { bfte_convs prm_bin };
+   phase_p_2 _cr aA;
+      Cpk_buffer_step _cr prm_6 nsv type Th_ fn Th_ nc _on_cr { j ^ =50*Peak_Calculation_Step };
+      Cpeak_buffer_similar_tag _cr prm_10 nr nyd _on_cr { 6 phase };
+      pks_buf _array;
+         fp;
+         pv;
+         spvii;
+         spv;
+      Apk_type _def fp _cr fus;
+}
+{ Tiprms;
+   Cdef_iprm nyd nr nc _cr prm_10 _def 1;
+   iprms _cr aA _array;
+      Ciprm _def 1000;
+}
+{ Tcreate_pks_name;
+   create_pks_equal_I _cr aA;
+}
+{ Txprms;
+   Clp_search_fom nr nmbu nyd;
+   Ccreate_pks_name _tem Tcreate_pks_name;
+   Acreate_pks_fn _cr fus;
+   xprms _cr aA _array;
+      Cxo;
+}
+{ Tdprms;
+   dprms _cr aA _array;
+      Cdprm;
+}
+{ Tlebail;
+   Alebail _cr fud _on_cr { r lebail_action n on_cont1 ^ n pre_iter ^ } _def 1;
+   lebail_action;
+}
+{ Tgen_fit_obj;
+   xy_phase _cr xy_data;
+   Cfit_obj_phase nr nyd _cr prm_6 _on_cr { n gen_fit_obj ^ };
+   Cgen_dummy fn { Tx } fn_of ~fo_transform_X Flags oksd;
+      Cmin_X _cr min_max_X fn { Tx };
+      Cmax_X _cr min_max_X fn { Tx };
+      Cfo_transform_X _cr prm_10 nyd fn Tx _on_cr { n gen_fit_obj ^ };
+}
+{ Tepw_corr;
+   Ccorrected nyd Nr _cr prm_10;
+}
+{ Tx_ps;
+   xdd_com1 _cr aA  _on_cr { g garca };
+      Cd_spacing_to_energy_in_eV_for_f1_f11 _cr prm_10 nr fn Th_;
+      phase_ndx _cr nou _array;
+      Aneutron _cr aA;
+      fit_objs _cr nou _array;
+      Cgarca _cr prm_6 type Th_ fn Th_ nc _on_cr { j ^ =Peak_Calculation_Step };
+      xdd_outs _array _cr aA;
+         Axdd_out _tem Tout_rec_ndx _on_cr { n all_outs ^ n last_out ^ };
+      pre_rwp _cr nou _array _on_cr { M xdd };
+      Cdegree_of_crystallinity _on_cr { n val_errs ^ } nr nc;
+      Aout_Tji _on_cr { n fin6 ^ };
+   xdd_scr_quant_comm _cr aA _on_cr { M xdd_recs };
+      Csum_smvs Nr nyd;
+         smvs_ndx _cr nou _array;
+      Ccrystalline_area _on_cr { n val_errs ^ } Nr nyd;
+      Camorphous_area _on_cr { n val_errs ^ } Nr nyd;
+         Cmixture_MAC _on_cr { n val_errs ^ } Nr nyd;
+         Cmixture_density_g_on_cm3 _on_cr { n val_errs ^ } Nr nyd;
+         Cweight_percent_amorphous _on_cr { g wt_amor_orig n val_errs ^ } Nr nyd;
+            spiked_mwps _cr nou _array;
+            Cwt_amor_orig nyd Nr;
+         el_stuff _cr aA;
+            Aelemental_composition _on_cr { n ios_to_save ^ };
+               elements _cr aA _array;
+                  Aelement;
+                     element_atm_dets _cr nou _array;
+                     Cel_qpa nyd Nr _cr prm_10;
+                     Cel_known_diff nyd Nr;
+                     Cel_wtp nmbu Nr _on_cr { n val_errs ^ } nyd _tem Tepw_corr;
+               elements_known _cr aA _array;
+                  Aelement_known _cr element _on_cr { g sum_el_known_diff };
+                     Cel_wtp_known nyd Nr;
+               Csum_el_known_diff nyd Nr;
+   xdd_com2 _cr aA;
+      Cyobs_eqn nr fn { Tx };
+      xy_ycalc _cr xy_data;
+      Alaue_lam _cr fucd _on_cr { M xdd };
+      xy_yobs;
+         xobs _on_cr { n xy_yobs ^ };
+         Asigmayobs _cr fucd _on_cr { d xy_yobs e M xdd };
+         Ctof_t0 _cr prm_10 nr  _on_cr { n xy_yobs ^ };
+            Ctof_t1 _cr prm_10 nr _def 1;
+      Axdd_path_name;
+         xye_fmt _cr aA;
+         gsas_format _cr aA;
+         fullprof_format _cr aA;
+      Cchi2 nyd nr nc nsv fn { Ty Tx }
+         _on_cr {
+            M xdd
+            n penalties ^
+            n val_errs ^
+         };
+      xdd_sums _array _cr aA _on_cr { M xdd };
+         Cxdd_sum nc nsv nyd nr ES_FOR_OUTPUT fn { Ty Tx } ;
+         Cxdd_array nc nsv nyd nr ES_FOR_OUTPUT fn { Ty Tx } ;
+   xdd_com3 _cr aA;
+      Cweighting nyd nsv nc nr fn { Ty Tx } _def -9999;
+      Cyobs_to_xo_posn_yobs _on_cr { d xdd_path_name gui_reload n on_first_ycalc ^ } fn { Tx Th_ };
+      Crebin_with_dx_of _cr prm_6 _on_cr { d xdd_path_name gui_reload } fn { Tx } _tem Trebin_start_x_at;
+      Crebin_tollerance_in_Y _cr prm_6 _on_cr { d xdd_path_name gui_reload };
+         Crebin_min_merge _cr prm_6 _def 10;
+      Cmax_yobs nr nyd;
+      Cmin_yobs nr nyd;
+      sf_X;
+         Cstart_X nr nyd _cr prm_6;
+         Cfinish_X nr nyd _cr prm_6;
+      Cextra_X_left _cr prm_6 _def 0.5;
+      Cextra_X_right _cr prm_6 _def 0.5;
+      Asmooth _on_cr { d xdd_path_name gui_reload };
+      excls _array;
+         Aexcl_x12 _cr fud;
+   Cbkg nc nyd nsv _on_cr { n fit_objs ^ M xdd };
+      Cforce_chubychev_positive _cr prm_6 nmbu _def 0;
+      xy_bkg _cr xy_data _on_cr { M xdd };
+      bkg_recs _array _cr aA;
+         Cbkg_rec;
+}
+{ Ttags;
+   tags _cr aA _array;
+      Atag _cr fua _on_cr { n tags_all ^ };
+   tags_2 _cr aA _array;
+      Atag_2 _cr fua _on_cr { n tags_all_2 ^ };
+}
+{ Tcomm_2;
+   comm_2 _cr aA;
+      lam search_up _on_cr { U pk_to_Lam };
+         Aymin_on_ymax _cr fud _def 0.001;
+         Ano_th_dep _cr fui;
+         lam_recs _array _cr aA;
+            lam_rec;
+               lam_rec_prms _cr aA;
+                  Clo _cr lam_prm pt ~pk fn Th_ Flags Ffsti;
+                  Cla _cr conv_prm pt ~pk fn Th_ Flags Ffsti;
+                  Clh _cr lam_prm _on_cr { 6 lam_rec } pt ~pk fn Th_ Flags Ffsti;
+                  Clg _cr lam_prm _on_cr { 6 lam_rec } pt ~pk fn Th_ Flags Ffsti;
+               lo_ref _cr aA _on_cr { n lam ^ };
+         Cpk_to_Lam nr search_up;
+         Clam_for_Bragg_ang _on_cr { n val_errs ^ d lam lfd  } nr nc;
+      scale_pks _cr aA _array;
+         Cscale_pks_prm _cr prm_10 nyd nsv fn Th_;
+}
+{ Tcomm_3;
+   comm_3 _cr aA _on_cr { take_locals_up_ };
+      prms_10 _array;
+         Cprm_10 nyd pre_on_l;
+      pen_comm _cr aA _array;
+         Cpenalty nyd nr _on_cr { n val_errs ^ n penalties ^ };
+      g_outs _array _cr aA;
+         Ag_out _tem Tout_rec_ndx _on_cr { n all_outs ^ n last_out ^ };
+      out_recs _array _tem Tout_recs _cr aA;
+      fns_10 _array _cr aA;
+         Cfn_10 nyd _array;
+            fn_10_args _cr aA _array;
+               Cfn_10_arg nyd;
+      locals _array _cr nou _on_cr { n all_locals ^ };
+      locals_owns _array _cr aA;
+         Cloc_10 nyd pre_on_l _cr prm_10 local_ _on_cr { n locals ^ };
+      user_ys _array _cr aA;
+         Cuser_y nc nv nmbu nyd nsv fn Tx _tem Tuser_y Flags ansv;
+}
+{ Tscrysts;
+   xdd_recs _array _on_cr { n xdds_pre_calc ^ };
+      Cxdd _cr xdd_scryst _tem { Tx_ps Tcomm_2 Tcomm_3 Tfit_stats Tmin_max_r Tref_and_non_ref_prms Ttags Tf0_f1_f11_atoms } _alias { prm_bin single_crystal }
+         _on_cr {
+            j x_calculation_step 1 n xdd_fit_ndx _ d xdd_path_name gui_reload
+         };
+         quant_strs_ndx _array _cr nou _on_cr { g elemental_composition };
+         str_recs _array _cr aA;
+            Cstr _cr scryst
+               _on_cr {
+                  n fit_objs ^
+                  n phase_ndx ^
+                  n fin4 ^
+               }
+               _tem { Tstr Tcomm_2 Tcomm_3 Thkl_lat TPhase_Powder_Single_crystal Tmin_max_r Trigids Tstr_sg Tscry1 Ttags Tf0_f1_f11_atoms }
+               _alias { prm_bin phase hkl_p fo };
+}
+{ Tscry1;
+   scry1 _cr aA;
+      Aion_err_toll _def 0 _cr fud;
+      Akeep_N_I_values _cr fui;
+      pk_to_xi nsv _cr scpk_to_xi type { Ty };
+      pk_to_yobs nsv _cr scpk_to_yobs type { Ty };
+      pk_to_ycalc nsv _cr scpk_to_ycalc type { Ty };
+      pk_to_sigmayobs nsv _cr scpk_to_sigmayobs type { Ty };
+      pk_to_Mobs nsv;
+      pk_to_Laue_Lam nsv;
+      CFlack _on_cr { M str };
+}
+{ Thkli;
+   AI_parameter_names_have_hkl _cr fus;
+   Asp_grp_char _cr hkli_sp_grp_char;
+      str_sg _on_cr { d ^ do };
+      sg_set _on_cr { d ^ do };
+   ds_for_out _cr aA _array;
+      Ad_for_out _cr iod _on_cr { n val_errs ^ } _fmt %-12.6f;
+   th2s_for_out _cr aA _array;
+      Ath2_for_out _cr iod _on_cr { n val_errs ^ } _fmt %-12.5f;
+}
+{ Tuser_y_num_hats;
+   Cuser_y_num_hats _cr prm_10 nr nyd _def 1;
+}
+{ Trebin_start_x_at;
+   Crebin_start_x_at _cr prm_6;
+}
+{ Tuser_y_exp_conv;
+   Cuser_y_exp_limit _cr prm_10 _on_cr { P n ^ _  };
+}
+{ Tuser_y;
+   Auser_y_file;
+      xye_fmt _cr aA;
+      xy_yobs;
+         xobs _on_cr { n xy_yobs ^ };
+         Asigmayobs _cr fucd _on_cr { d xy_yobs e };
+         Crebin_with_dx_of _cr prm_6 fn { Tx } _tem Trebin_start_x_at;
+         Crebin_tollerance_in_Y _cr prm_6;
+            Crebin_min_merge _cr prm_6 _def 10;
+   user_y_convs _array _cr aA _on_cr { M user_y };
+      Cuser_y_hat _tem Tuser_y_num_hats nyd;
+      Cuser_y_exp_conv_const _tem Tuser_y_exp_conv nyd;
+      Cuser_y_gauss_fwhm nyd;
+      Cuser_y_lor_fwhm nyd;
+}
+{ Tdstrs;
+   str_recs _array _cr aA;
+      Cstr _on_cr
+         {
+            n fit_objs ^
+            n phase_ndx ^
+         }
+         _tem { Tstr Thkl_lat TPhase_Powder_Single_crystal TPhase_Powder Tcomm_1 Tcomm_2 Tcomm_3 Tmin_max_r Tstr_sg Ttags Trigids Tf0_f1_f11_atoms } _alias { prm_bin phase hkl_p fo };
+}
+{ Tpdf_num_hats;
+   Cnum_hats _cr prm_10 nr nyd _def 1;
+}
+{ Tpdf_generate;
+   Cdr _cr prm_10 nr nyd _def 0.01;
+   Cr_max _cr prm_10 nr nyd _def 50;
+   Cgr_sst_file _cr sprm nr nyd nc mhe;
+   Cgr_to_fq _cr prm_10 nr nyd;
+   Cx_axis_is_Th2 _cr prm_10 nr nyd _def 0;
+   Chat _cr prm_10 nr nyd _tem Tpdf_num_hats;
+}
+{ Txdds;
+   xdd_recs _array _on_cr { n xdds_pre_calc ^ };
+      Cxdd nr nyd nc _tem { Tx_ps Tx_p Tcomm_1 Tcomm_2 Tcomm_3 Tfit_stats Tmin_max_r Tref_and_non_ref_prms Ttags Tf0_f1_f11_atoms } _alias prm_bin
+         _on_cr {
+            n xdd_fit_ndx ^
+         };
+         xdd_1 _cr aA;
+            Arange _cr fui _def 1;
+            Cradius_p _cr prm_6 search_up _on_cr { j ^ 217.5 };
+            Cradius_s _cr prm_6 search_up _on_cr { j ^ 217.5 };
+            remove_phases _array _on_cr { n on_cont2 ^ g do_errors };
+            Cgui_add_bkg _cr prm_6 nr nyd _on_cr { M xdd } _def 1;
+            Apdf_data _cr aA _on_cr { M xdd };
+            pdf_generate _tem Tpdf_generate _on_cr { n fin6 ^ };
+         gen_fit_objs _array _cr aA _on_cr { M xdd };
+            Cgen_fit_obj _on_cr { n fit_objs ^ } _tem { Tgen_fit_obj Tcomm_3 } _alias fo;
+         xis _array _cr aA;
+            Cxi _on_cr { n fit_objs ^ n phase_ndx ^ g pk_buffer_step }
+               _tem { TPhase_Powder TPhase_Powder_Single_crystal Tcomm_1 Tcomm_2 Tcomm_3 Txprms Tiprms Tlebail Ttags } _alias { prm_bin phase fo };
+         dis _array _cr aA;
+            Cdi _on_cr { n fit_objs ^ n phase_ndx ^ g pk_buffer_step }
+               _tem { TPhase_Powder TPhase_Powder_Single_crystal Tcomm_1 Tcomm_2 Tcomm_3 Tdprms Tiprms Tlebail Ttags } _alias { prm_bin phase fo };
+         hklis _array _cr aA;
+            Chkli _on_cr { n fit_objs ^ n phase_ndx ^ g pk_buffer_step }
+               _tem { Thkli TPhase_Powder TPhase_Powder_Single_crystal Tcomm_1 Tcomm_2 Tcomm_3 Thkl_lat Tiprms Tlebail Ttags } _alias { prm_bin phase hkl_p fo };
+         str_recs _array _cr aA;
+            Cstr _on_cr
+               {
+                  n fit_objs ^
+                  n phase_ndx ^
+                  n fin4 ^
+                  g pk_buffer_step
+               }
+               _tem { Tstr Thkl_lat TPhase_Powder_Single_crystal TPhase_Powder Tcomm_1 Tcomm_2 Tcomm_3 Tmin_max_r Tstr_sg Ttags Trigids Tf0_f1_f11_atoms } _alias { prm_bin phase hkl_p fo };
+         dstrs _cr aA _tem Tdstrs;
+         quant_strs_ndx _array _cr nou;
+}
+{ Tout_prm_vals;
+   Aout_prm_vals_filter _cr fus;
+   Aout_prm_vals_dependents_filter _cr fus;
+}
+{ Tf_atom_type;
+   Cf_atom_quantity _cr prm_6;
+   Af0 _cr fud;
+}
+{ Tscale_Aij;
+   Cscale_Aij _cr prm_6;
+   AAij _cr fud nsv;
+}
+{ Tfourier_map;
+   Cextend_calculated_sphere_to _cr prm_6;
+   Cmin_grid_spacing _cr prm_6 _def 0.3;
+   Aout_str_dets _cr fus;
+   Aout_Fc _cr fus;
+   Ccorrect_for_atomic_scattering_factors _cr prm_6 _def 1;
+   Cuse_E_values _cr prm_6 _def 1;
+   Cout_merged_only _cr prm_6 _def 0;
+   f_atom_types _array;
+      Af_atom_type _tem Tf_atom_type;
+   Apk_to_Fobs nsv _cr fud type { Tfmap };
+   Apk_to_Fcalc nsv _cr fud type { Tfmap };
+}
+{ Tcf_hkl_file;
+   cf_merged _cr aA;
+}
+{ Tatp;
+   Cobey_symm _cr prm_10 _def 0;
+}
+{ Tactivate;
+   Cactivate _cr prm_6 _def 1;
+}
+{ Txyzo;
+   Cx _cr prm_10;
+   Cy _cr prm_10;
+   Cz _cr prm_10;
+   Cor_occ _cr prm_10;
+}
+{ Tpick_atoms;
+   Comit_fwhm _cr prm_10 _def 1.7;
+   Cinsert_fwhm _cr prm_10 _def 1.7;
+   Cpick_fwhm _cr prm_10 _def 1.7;
+   Cchoose_from _cr prm_6 _on_cr { M pick_atoms };
+   Cchoose_to _cr prm_6 _on_cr { M pick_atoms };
+   Cchoose_randomly _cr prm_6 _on_cr { M pick_atoms };
+   Comit _cr prm_10 _on_cr { M pick_atoms } _def 1;
+   origin_omits _cr aA _array _on_cr { M pick_atoms };
+      origin_omit _cr aA _tem Txyzo _on_cr { g x g y g z g or_occ };
+   Cinsert _cr prm_10 _on_cr { M pick_atoms g omit };
+   Cinsert_ats _cr prm_10 _def 1 _array _on_cr { M pick_atoms g omit g x g y g z g or_occ };
+      insert_at _cr aA _tem Txyzo;
+}
+{ Tatp_ymm_err;
+   Catp_ok_at _cr prm_6 _def 0;
+   Catp_non_weak_symm_err_to _cr prm_6 _def 1;
+}
+{ Tcharge_flipping;
+   Acf_hkl_file _cr fus _tem Tcf_hkl_file _on_cr { M charge_flipping };
+   CF2_pow _cr prm_10;
+   Acf_in_A_matrix _cr fus _tem Tscale_Aij _on_cr { M charge_flipping };
+   lat_prms_prms _cr aA _on_cr { g a g b g c g al g be g ga };
+      Ca _cr prm_6;
+      Cb _cr prm_6;
+      Cc _cr prm_6;
+      Cal _cr prm_6 _def 90;
+      Cbe _cr prm_6 _def 90;
+      Cga _cr prm_6 _def 90;
+   more_phase_corrections_ndx _cr nou _array _on_cr { M charge_flipping };
+   on_new_d_ndx _cr nou _array _on_cr { M charge_flipping };
+   new_E_values_powder_ndx _cr nou _array _on_cr { M charge_flipping };
+   control_prms _cr aA;
+      Cmin_F_non_weak _cr prm_6 _def 0;
+      Cmin_d _cr prm_6;
+      Cdelete_observed_reflections _cr prm_6 fn { Td Tdinv };
+      Cfraction_density_to_flip _cr prm_6 _def 0.75;
+      Cbreak_cycle_if_true _cr prm_6;
+      Cfraction_reflections_weak _cr prm_6 _def 0;
+      Cfind_origin _def 1 _on_cr { M charge_flipping g shift };
+         Ashift _cr fuci _on_cr { M charge_flipping } nsv;
+         Cfind_origin_percent_ok _cr prm_6 _def 0.1;
+      Ccorrect_for_temperature_effects _cr prm_6 _def 1;
+      Cscale_F000 _cr prm_6;
+   misc_cr _cr aA;
+      Ccf_out_fc_file _cr sprm nr nyd nc mhe;
+      Cfc_with_d_E _cr prm_10 _def 0;
+      Ccf_plot_fit _cr prm_10 _def 0;
+      atm_dis_dets;
+      Cuser_threshold _cr prm_6;
+      Cpick_atoms_when _cr prm_6 _on_cr { M charge_flipping };
+      Cview_cloud _cr prm_6 _def 1;
+      Ccf_cloud_add _cr prm_10 _def 0;
+      hkl_planes _array _cr aA;
+         Ahkl_plane;
+      neutron _cr aA _on_cr { M charge_flipping };
+      Cd_spacing_to_energy_in_eV_for_f1_f11 _cr prm_10 nr fn Th_;
+      atm_dets _array;
+         atm_det;
+      Ccf_plot_histo _cr prm_6;
+      Ccf_set_phases _on_cr { M charge_flipping };
+   phase_perturbations _cr aA;
+      Aset_initial_phases_to _cr fus;
+         use_Fc _cr aA;
+      Crandomize_initial_phases_by _cr prm_6 _on_cr { M charge_flipping };
+      atp_weak _array  _cr aA;
+         Cadd_to_phases_of_weak_reflections _on_cr { n more_phase_corrections_ndx ^ }  _tem { Tatp Tactivate };
+      atp_non_weak _array _cr aA;
+         Cadd_to_phases_of_non_weak_reflections _on_cr { n more_phase_corrections_ndx ^ } _tem { Tatp Tactivate };
+      atp_weak_rand_plus_minuss _array _cr aA;
+         Catp_weak_rand_plus_minus _on_cr { n more_phase_corrections_ndx ^ } _tem { Tatp Tactivate };
+      atp_non_weak_rand_plus_minuss _array _cr aA;
+         Catp_non_weak_rand_plus_minus _on_cr { n more_phase_corrections_ndx ^ } _tem { Tatp Tactivate };
+   intensity_perturbations _cr aA;
+      Capply_exp_scale _cr prm_6 _def 1;
+      Cexp_scale_b_start _cr prm_6 _def 0.3;
+      Cscale_F _cr prm_6 _def 1 fn { Td Tdinv };
+      Cscale_E _cr prm_6 _def 1 fn { Td Tdinv };
+      Cscale_weak_reflections _def 1 _on_cr { M charge_flipping } fn { Td Tdinv } _tem { Tactivate Tatp };
+      Cscale_non_weak_reflections _def 1 _on_cr { M charge_flipping } fn { Td Tdinv } _tem { Tactivate Tatp };
+   ed_perturbations _cr aA;
+      Cscale_flipped _cr prm_6 _def 0;
+      Csymmetry_obey_0_to_1 _def 0 _on_cr { M charge_flipping g sym_err g find_origin };
+      Cscale_density_below_threshold;
+      Chistogram_match_scale_fwhm _on_cr { n on_new_d_ndx ^ };
+         Chm_size_limit_in_fwhm _cr prm_6 _def 1;
+         Chm_covalent_fwhm _cr prm_6 _def 1;
+         Chm_weighting _cr prm_6 _def 1;
+         Chm_weighting_2 _cr prm_6 _def 1;
+         Chm_max_gauss _cr prm_6 _def 1;
+         Chm_fraction_do _cr prm_6 _def 1;
+         Chm_do_rest _cr prm_6 _def -1;
+         Chm_scale_rest _cr prm_6 _def 1;
+         Chm_plot _cr prm_6 _def 0;
+      pick_atomss _array _on_cr { M charge_flipping };
+         Apick_atoms _tem { Tpick_atoms Tactivate };
+   flips _cr aA;
+      Cflip_equation _tem { Tactivate };
+      Cflip_regime_2 _tem { Tactivate };
+      Cflip_regime_3 _tem { Tactivate };
+      Cflip_regime_4 _tem { Tactivate };
+      Cflip_neutron _def 0.4 _tem { Tactivate };
+   tangent_formula _on_cr { n on_new_d_ndx ^ M charge_flipping n new_E_values_powder_ndx ^ };
+      Ctangent_scale_difference_by _cr prm_6 _def 1;
+      Ctangent_num_h_process _cr prm_6 _def -1;
+      Ctangent_num_h_read _cr prm_6;
+      Ctangent_num_k_read _cr prm_6;
+      Ctangent_num_h_keep _cr prm_6;
+      Ctangent_max_triplets_per_h _cr prm_6 _def 30;
+      Ctangent_min_triplets_per_h _cr prm_6 _def 1;
+      Ctangent_tiny _cr prm_6 _def 0.01;
+      Ctangent_max_al_sum_allowed _cr prm_6 _def 2;
+      Ctangent_include _cr prm_6 _def 0;
+   updated_prms _cr aA;
+      Abeen_there_i _cr fud nsv _def 0;
+      Abeen_there_0 _cr fud nsv _def 0;
+      Citers_since_last_best _cr prm_6 nc nsv;
+      Ccycles_since_last_best _cr prm_6 nc nsv;
+      Cnum_observed_reflections_above_d_min _cr prm_6 nc nsv;
+      Cphase_difference _cr prm_6 nc nsv;
+      Cinitial_phase _cr prm_6 nc nsv;
+      Ae _cr fud nsv;
+      Aei _cr fud nsv;
+      AF2 _cr fud nsv;
+      Cmin_density _cr prm_6 nc nsv;
+      Cmax_density _cr prm_6 nc nsv;
+      Cthreshold nsv _cr prm_6 nc;
+      Adensity _cr fud nsv type { Tden };
+      Ad_squared_inverse _cr fud nsv type { Tdinv };
+      Calpha_sum _cr prm_6 nc nsv _on_cr { M charge_flipping };
+      CF000 _cr prm_6 nc nsv;
+      Csym_err _cr prm_6 nc nsv _on_cr { M charge_flipping };
+}
+{ Tglobal_sg;
+   hkls_save;
+   site_sg_save;
+   site_non_refine_save;
+   str_m4_d2_inv_fast_exp_hkl;
+}
+{ Tkernel _tem Tkernel;
+   stuff_to_keep _cr aA;
+      load_xdd_type_data _cr aA;
+         Aload_dat;
+         Aload_xdd;
+         Aload_sst;
+         Aload_cpi;
+         Aload_xy;
+         Aload_scr;
+         Aload_hkl;
+         Aload_hkl_lam;
+         Aload_uxd;
+         Aload_xye;
+         Aload_vct;
+         Aload_gsas;
+         Aload_fullprof;
+      macros _on_cr { j ^ topas.inc };
+      Acalc_for_index _cr fui _def 17;
+      Acalc_for_cf _cr fui _def 11;
+      Acalc_for_non _cr fui _def 3;
+      Anum_runs _cr fui _def 1;
+      Aprocess_marker _cr fui;
+      Acloud_run_number _cr fui _def -1;
+      Asuspend_writing_to_log_file _cr fui _def 1;
+      nsv_stuff _cr aA;
+         Axdd_x _cr fud_nsv nsv type { Tx };
+         Apk_to_xi _cr fud_nsv nsv type { Ty };
+         Apk_to_yobs _cr fud_nsv nsv type { Ty };
+         Apk_to_sigmayobs _cr fud_nsv nsv type { Ty };
+         Apk_to_ycalc _cr fud_nsv nsv type { Ty };
+      hkl_pk_to _cr aA;
+         Apk_to_Th _cr fud nsv type Th_;
+         Apk_to_Xo _cr fud nsv type Th_;
+         Apk_to_D _cr fud nsv type { Th_ Td };
+         Apk_to_H _cr fud nsv type Th_ Flags Individual_Peak_Shapes;
+         Apk_to_K _cr fud nsv type Th_ Flags Individual_Peak_Shapes;
+         Apk_to_L _cr fud nsv type Th_ Flags Individual_Peak_Shapes;
+         Apk_to_M _cr fud nsv type Th_ Flags Individual_Peak_Shapes;
+   delete_froms _array;
+      riet_app_3 _on_cr { n in_deriv ^ };
+         timings;
+            Apks_deriv _cr timing      _def "Peak buffer derivatives";
+            Anormal_sol _cr timing     _def "Solution to the normal equations";
+            Atime_use_ex _cr timing    _def "use_extrapolation";
+            Atime_line_min _cr timing  _def "line_min";
+            Atime_AYd _cr timing       _def "A and Y matrix dot products and derivatives";
+            Atime_pend _cr timing      _def "Penalty derivatives";
+            Atime_ycd _cr timing       _def "Ycalc derivatives";
+            Atime_yc _cr timing        _def "Ycalc calculation and Penalties";
+            Atime_pens _cr timing      _def "Penalties";
+            Atime_aydot _cr timing     _def "A and Y matrix dot products";
+         fit_0 _cr aA;
+            post_iter _cr nou _array _on_cr { M riet_app_3 };
+            on_first_ycalc _cr nou _array _on_cr { M riet_app_3 };
+            Afft_max_order _cr fui;
+            gui_ref_reset _cr nou _array _on_cr { M riet_app_3 };
+            gui_ref_update _cr nou _array _on_cr { M riet_app_3 };
+            kgui_texts _cr aA _array;
+               kgui_text;
+         fit_1 _cr aA;
+            fin4 _cr nou _array;
+            fin5 _cr nou _array _on_cr { M riet_app_3 };
+            fin6 _cr nou _array _on_ex { W ^ fin6 W all_outs fin6 };
+            Afin5_flags _cr fui;
+            on_cont0 _cr nou _array _on_cr { M riet_app_3 };
+            on_cont1 _cr nou _array _on_cr { M riet_app_3 };
+            on_cont11 _cr nou _array _on_cr { M riet_app_3 };
+            on_cont2 _cr nou _array _on_cr { M riet_app_3 };
+         fit_6 _cr aA;
+            all_sites_geometrys _cr nou _array;
+            Aload_raw_single;
+            Aload_brml_single;
+            Achk_name_same _cr fui;
+         fit_2 _cr aA;
+            use_old_disp _cr aA;
+            tags_all _cr nou _array;
+            tags_all_2 _cr nou _array;
+            do_errors _cr aA;
+            out_A_matrixs _cr aA _array;
+               Aout_A_matrix _on_cr { n fin5 ^ };
+                  AA_matrix_prm_filter _cr fus;
+            AA_matrix _cr ac_matrix _on_cr { n ios_to_save ^ };
+            AA_matrix_normalized _cr ac_matrix_norm _on_cr { n ios_to_save ^ };
+            AC_matrix _cr ac_matrix  _on_cr { n ios_to_save ^ };
+            AC_matrix_normalized _cr ac_matrix_norm _on_cr { n ios_to_save ^ };
+            Apercent_zeros_before_sparse_A _cr fud _def 60;
+            Averbose _cr fui _def 1;
+            process_times _cr aA;
+            continue_ref _cr aA;
+            no_normal_eqs _cr aA;
+            Aconserve_memory _cr fui;
+            Aend_ref _cr fui;
+               Aend_ref_mess _cr fus;
+            Abreak_process _cr fui;
+            lnched _cr aA;
+            mag_j0_j2s _array;
+               mag_j0_j2;
+         Cnon_fit _tem { Tcomm_1 Tcomm_2 Tcomm_3 Tfit_stats Tref_and_non_ref_prms Ttags Tf0_f1_f11_atoms } _alias prm_bin;
+            Ccharge_flipping
+               _tem { Tcharge_flipping Tcomm_3 Tfourier_map Tstr_sg Tcomm_2 }
+               _on_cr { j sp_grp_char 1 };
+            index _tem Ttags;
+               Cindex_x0 _cr prm_6;
+               Cindex_max_th2_error _cr prm_6 _def 0.05;
+               Cindex_max_zero_error _cr prm_6 _def 0.1;
+               Cindex_th2_resolution _cr prm_6 _def 0;
+               Cindex_max_Nc_on_No _cr prm_6 _def 5;
+               Cindex_min_lp _cr prm_6 _def 2;
+               Cindex_lam _cr prm_6 _def 1.540596;
+               Cindex_max_lp _cr prm_6 _def 15;
+               Aindex_max_number_of_solutions _cr fui _def 3000;
+               index_zero_error _cr aA;
+               index_ds _cr aA _array;
+                  Cindex_d nr;
+                     Cindex_I _cr prm_6 _def 1;
+               try_sgss _cr aA _array;
+                  Atry_space_groups _tem Ttry_space_groups;
+               ndx_dets _array _cr aA;
+                  ndx_det _cr aA;
+                     Andx_sg _cr fus;
+                     Cndx_status _cr prm_6;
+                     Cndx_uni  _cr prm_6;
+                     Cndx_ze   _cr prm_6;
+                     Cndx_alp  _cr prm_6;
+                     Cndx_blp  _cr prm_6;
+                     Cndx_clp  _cr prm_6;
+                     Cndx_allp _cr prm_6;
+                     Cndx_belp _cr prm_6;
+                     Cndx_galp _cr prm_6;
+            fit_3 _cr aA;
+               Aquick_refine _cr fud;
+                  Cquick_refine_remove _cr prm_6;
+                  Cquick_refine_No _cr prm_6;
+                  Cquick_refine_cycle_iter_start _cr prm_6 _def 2;
+               filestuff _cr aA;
+                  Cout_file _cr sprm nr nyd nc mhe;
+                  Ainp_in_tag _cr fui;
+                  Ainp_path _cr fus;
+                  Ainp_path_name _cr fus;
+                  Afile_for_sols _cr fus _on_cr { M riet_app_3 };
+                  Aerror_out _tem Tout_rec_ndx _on_cr { n last_out ^ };
+               use_LU _cr aA;
+               line_min _cr aA;
+               extrap _cr aA;
+               system_before_save_OUTs _cr aA _array _on_cr { n riet_app_3 ^ };
+                  Asystem_before_save_OUT _cr fus;
+               system_after_save_OUTs _cr aA _array _on_cr { n riet_app_3 ^ };
+                  Asystem_after_save_OUT _cr fus;
+               Citers _cr prm_10 nyd nr nc _def 500000;
+               Cnum_cycles _cr prm_10 nyd nr nc _def -1;
+               Cmarquardt_mul nr nyd _cr prm_10 _on_cr { M non_fit };
+               Cdummy_prm _cr prm_10 nyd nc nr;
+               approximate_A _cr aA;
+                  CA_matrix_memory_allowed_in_Mbytes _cr prm_6;
+                  CA_matrix_elements_tollerance _cr prm_6;
+               rnd_errs _cr aA;
+                  Crandomize_on_errors_buffer _cr prm_6 _def 200;
+                  Callowed_visits _cr prm_6 _def 5;
+                  Crandomize_on_errors_do _cr prm_6 _def 1;
+                  Ct_scaler_1 _cr prm_6 _def 1;
+                  Ct_scaler_2 _cr prm_6 _def 2.0;
+                  Ct_scaler_3 _cr prm_6 _def 1.02;
+                  Ct_scaler_4 _cr prm_6 nc _def .9;
+                  Ct_scaler_5 _cr prm_6 _def .98;
+                  Ct_scaler_6 _cr prm_6 nc _def 1;
+               only_pen _cr aA _on_cr { M non_fit };
+               vonc_2 _cr nou _array _on_ex { W ^ vonc_2 } _on_cr { M non_fit };
+               rand_on_avg _cr nou _array _on_ex { W ^ rand_on_avg };
+               out_refinement_stats _cr aA _on_cr { M non_fit };
+               Arefine_ls_shift_on_su_max _cr fud _def -1 nc _on_cr { M non_fit };
+               fit_3_1 _cr aA;
+                  pre_calc_derivs _cr nou _array _on_cr { M non_fit };
+                  on_converged _cr nou _array _on_cr { M non_fit };
+                  pre_iter _cr nou _array _on_cr { M non_fit };
+                  post_iter_2 _cr nou _array _on_cr { M non_fit };
+                  pu1 _cr nou _array _on_cr { M non_fit };
+            fit_4 _cr aA;
+               Aout_rwp _cr fus;
+               Aout_chi2 _cr fus;
+               Achi2_ctr _cr fucd;
+               Arwp_ctr _cr fucd;
+               Crwp_tolerance _cr prm_6 _def 0.001;
+               anneal;
+                  Ctemperature _cr prm_6 nc _def 1;
+                  CTi nr nc;
+                  tempers _cr aA _array;
+                     Ctemper nyd nr _cr prm_10;
+                        use_best_values _cr aA;
+                        stop_rewind _cr aA;
+                        save_values _cr aA;
+                        next_temp _cr aA;
+                        not_start_of_anneal _cr aA;
+                        Aon_best_goto _cr fus;
+                        on_best_rewind _cr aA;
+               global_best_rwp _cr brefinement;
+               Cper_pen _cr prm_6 _def 1.0;
+                  Apen_Ai _cr fud nsv;
+                  Apen_Aii _cr fud nsv;
+                  Apen_Pi _cr fud nsv;
+                  Apen_Pii  _cr fud nsv;
+                  Cpen_weight _cr prm_10 nr nc nsv nyd _on_cr { M non_fit };
+               all_outs _cr nou _array;
+               all_locals _cr nou _array;
+               Alast_out _cr fub;
+               Alast_out_rec _cr fub;
+            fit_5 _cr aA;
+               strs_ed _tem { Tstrs_ed } _cr aA;
+               phase_pks_buff_reuse;
+               global_sgs _cr aA _array;
+                  global_sg _tem Tglobal_sg;
+               rgds_ed _tem { Trigids } _cr aA;
+            prm_stuff _cr aA;
+               prm_6s _array _cr aA;
+                  Cprm_6 _cr prm_6 nyd;
+               Aredo_prms _def 1;
+               Aredo_ycalc _cr fui _def 1;
+               ios_to_save _cr nou _array;
+               val_errs _cr nou _array;
+               no_LIMIT_warnings _cr aA;
+               out_prm_vals_per_iteration_ _cr aA _array;
+                  Aout_prm_vals_per_iteration _cr out_prm_vals _tem Tout_prm_vals _on_cr { n pre_iter ^ n on_converged ^ };
+               out_prm_vals_on_convergence_ _cr aA _array;
+                  Aout_prm_vals_on_convergence _cr out_prm_vals _tem Tout_prm_vals _on_cr { n on_converged ^ };
+               Cbootstrap_errors nr _def 200 _on_cr { n on_converged ^ n fin5 ^ g continue_ref };
+                  Cfraction_of_yobs_to_resample _def 0.37 _cr prm_6;
+                  determine_values_from_samples _cr aA;
+                  resample_from_current_ycalc _cr aA;
+               out_dependences_fors _cr aA _array;
+                  out_dependences_for _on_cr { n fin5 ^ };
+               out_dependencess _cr aA _array;
+                  out_dependences _on_cr { n fin5 ^ };
+            penalties _cr nou _array;
+            min_max_r _cr aA;
+               Amin_r _cr fud _def 0.0;
+               Amax_r _cr fud  _def 3.2;
+               Andxs_marq_move _on_cr { d ^ movin n fin7 ^ };
+            xdd_fit_ndx _cr nou _array;
+            xdds_pre_calc _cr nou _array _on_cr { 4 non_fit };
+            xdds_post_calc _cr nou _array _on_cr { 4 non_fit };
+            xdds_misc _cr aA;
+               Cradius_p _cr prm_6 _on_cr { j ^ 173 };
+               Cradius_s _cr prm_6 _on_cr { j ^ 173 };
+               ft_stuff _cr aA;
+                  Apk_to_FT_K _cr fud nsv type { TFT_K };
+                  Apk_to_WPPM_L _cr fud nsv type { TWPPM_L };
+                  AWPPM_dL _cr fud nsv;
+                  AWPPM_Ln_k _cr fud nsv Flags ansv;
+                  Aft_0 _cr fud nsv Flags ansv;
+               Aphase_ycalc _cr fud nsv;
+               Cto_cycle _cr prm_6 nc nsv;
+               Cto_iter _cr prm_6 nc nsv;
+               Cto_cycle_iter _cr prm_6 nc nsv;
+               Asite_radius _cr fud nsv type { TR };
+               Apk_to_Ri _cr fud nsv type { TRi };
+               Aqr_n_small _cr fud nsv;
+               Aqr_removed _cr fud nsv;
+               Anumber_independent_parameters _cr fud nc;
+            scrysts _tem Tscrysts _alias prm_bin _cr aA;
+            xdds _tem Txdds _alias prm_bin _cr aA;
+}
+end_templates
+</code>