Differences

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

--- get_values [2022/11/03 15:08] – external edit 127.0.0.1
+++ get_values [2024/02/22 15:58] – removed 169.254.156.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>