diff --git a/bmad/code/attribute_bookkeeper.f90 b/bmad/code/attribute_bookkeeper.f90 index 649cb9955..77b838baf 100644 --- a/bmad/code/attribute_bookkeeper.f90 +++ b/bmad/code/attribute_bookkeeper.f90 @@ -45,9 +45,10 @@ subroutine attribute_bookkeeper (ele, force_bookkeeping) type (converter_prob_pc_r_struct), pointer :: ppcr type (molecular_component_struct), allocatable :: component(:) type (material_struct), pointer :: material +type (material_struct) :: materi real(rp) factor, e_factor, gc, f2, phase, E_tot, polarity, dval(num_ele_attrib$), time, beta -real(rp) w_inv(3,3), len_old, f, dl, b_max, zmin, ky, kz +real(rp) w_inv(3,3), len_old, f, dl, b_max, zmin, ky, kz, tot_mass real(rp), pointer :: val(:), tt real(rp) knl(0:n_pole_maxx), tilt(0:n_pole_maxx), eps6 real(rp) kick_magnitude, bend_factor, quad_factor, radius0, step_info(7), dz_dl_max_err @@ -472,33 +473,64 @@ subroutine attribute_bookkeeper (ele, force_bookkeeping) call molecular_components(ele%component_name, component) n = size(component) if (.not. allocated(ele%foil%material)) allocate(ele%foil%material(n)) + materi = ele%foil%material(1) + + if (n > 1 .and. size(ele%foil%material) == 1) then + deallocate (ele%foil%material) + allocate(ele%foil%material(n)) + ele%foil%material(1) = materi + endif + if (n /= size(ele%foil%material)) then call out_io(s_error$, r_name, 'NUMBER OF COMPONENTS IN: ' // quote(ele%component_name) // ' (' // int_str(n) // & - ') IS NOT THE SAME AS OTHER PARAMETERS.') + ') IS NOT THE SAME AS OTHER PARAMETERS IN ' // ele%name) if (global_com%exit_on_error) call err_exit return endif + tot_mass = 0 do ix = 1, n material => ele%foil%material(ix) material%species = species_id(component(ix)%atom) + material%number = component(ix)%number + tot_mass = tot_mass + mass_of(material%species) * material%number + enddo + + if (n > 1) then + if (materi%density /= real_garbage$ .and. ele%foil%material(2)%density == real_garbage$) then + do ix = 1, n + material => ele%foil%material(ix) + material%density = materi%density * mass_of(material%species) * material%number / tot_mass + enddo + endif + + if (materi%area_density /= real_garbage$ .and. ele%foil%material(2)%area_density == real_garbage$) then + do ix = 1, n + material => ele%foil%material(ix) + material%area_density = materi%area_density * mass_of(material%species) * material%number / tot_mass + enddo + endif + endif + + do ix = 1, n + material => ele%foil%material(ix) z_material = atomic_number(material%species) - if (material%radiation_length == 0) then + if (material%radiation_length == real_garbage$) then material%radiation_length_used = x0_radiation_length(material%species) else material%radiation_length_used = material%radiation_length endif - if (material%density /= 0 .and. material%area_density /= 0) then + if (material%density /= real_garbage$ .and. material%area_density /= real_garbage$) then call out_io(s_error$, r_name, 'SETTING BOTH DENSITY AND AREA_DENSITY IS NOT PERMITTED FOR: ' // ele%name) return endif - if (material%density == 0) then - if (material%area_density /= 0) then + if (material%density == real_garbage$) then + if (material%area_density /= real_garbage$) then if (ele%value(thickness$) == 0) then - material%density_used = 0 + material%density_used = real_garbage$ else material%density_used = material%area_density / ele%value(thickness$) endif @@ -509,13 +541,13 @@ subroutine attribute_bookkeeper (ele, force_bookkeeping) material%density_used = material%density endif - if (material%area_density == 0) then + if (material%area_density == real_garbage$) then material%area_density_used = material%density_used * ele%value(thickness$) else material%area_density_used = material%area_density endif - if (material%density == 0 .and. material%area_density == 0 .and. n > 1) then + if (material%density == real_garbage$ .and. material%area_density == real_garbage$ .and. n > 1) then call out_io(s_warn$, r_name, 'Neither foil DENSITY(s) nor AREA_DENSITY(s) set for compound material for: ' // ele%name, & 'This will produce HIGHLY inaccurate results!') endif diff --git a/bmad/doc/elements.tex b/bmad/doc/elements.tex index b848263e4..4b4507664 100644 --- a/bmad/doc/elements.tex +++ b/bmad/doc/elements.tex @@ -2290,10 +2290,16 @@ \section{Foil} \begin{example} f1: foil, thickness = 1e-2, material_type = "B4C", density = (2e3, 1e3), radiation_length = (5.49, 4.26) + f1: foil, thickness = 1e-2, material_type = "B4C", + density = 9e3, radiation_length = (5.49, 4.26) ! Same as above \end{example} Here, since \vn{material_type} is set to \vn{B4C}, there are two components: Boron and Carbon. If -\vn{density}, \vn{area_density}, or \vn{radiation_length} are present, they must have the same -number of values as material components. Values are set in order so, in the above example, the +\vn{radiation_length} is used, it must have the same number of values as the number of material +components. If \vn{density}, or \vn{area_density} is used they either must have the same number of +values as the number of material components or they can have a single value. If there is a single +value, this value represents the sum of the individual component values. + +Values are set in order so, in the above example, the Carbon component has a density of 1e3 and a radiation length of 4.26.\footnote { From a computational standpoint it does not matter which parameter is associated with which component. diff --git a/bmad/modules/bmad_struct.f90 b/bmad/modules/bmad_struct.f90 index 6bf789d37..f09966c39 100644 --- a/bmad/modules/bmad_struct.f90 +++ b/bmad/modules/bmad_struct.f90 @@ -1280,9 +1280,10 @@ module bmad_struct type material_struct integer :: species = not_set$ - real(rp) :: density = 0, density_used = 0 - real(rp) :: area_density = 0, area_density_used = 0 - real(rp) :: radiation_length = 0, radiation_length_used = 0 + integer :: number = int_garbage$ ! Relative number + real(rp) :: density = real_garbage$, density_used = real_garbage$ + real(rp) :: area_density = real_garbage$, area_density_used = real_garbage$ + real(rp) :: radiation_length = real_garbage$, radiation_length_used = real_garbage$ end type type foil_struct diff --git a/bmad/output/type_ele.f90 b/bmad/output/type_ele.f90 index ef3a12893..bc07b8f1c 100644 --- a/bmad/output/type_ele.f90 +++ b/bmad/output/type_ele.f90 @@ -430,10 +430,11 @@ subroutine type_ele (ele, type_zero_attrib, type_mat6, type_taylor, twiss_out, t attribute_units('DENSITY'), attribute_units('AREA_DENSITY'), attribute_units('RADIATION_LENGTH') endif - nl=nl+1; write(li(nl), '(3(a, es14.6))') ' Density =', matter%density, & - ' Area_Density =', matter%area_density, ' Radiation_Length =', matter%radiation_length - nl=nl+1; write(li(nl), '(3(a, es14.6))') ' Density_Used =', matter%density_used, & - ' Area_Density_Used =', matter%area_density_used, ' Radiation_Length_Used =', matter%radiation_length_used + nl=nl+1; write(li(nl), '(3(a, a14))') ' Density =', this_real(matter%density, 'es14.6', ' Not_Set'), & + ' Area_Density =', this_real(matter%area_density, 'es14.6', ' Not_Set'), & + ' Radiation_Length =', this_real(matter%radiation_length, 'es14.6', ' Not_Set') + nl=nl+1; write(li(nl), '((a, a14), 2(a, es14.6))') ' Density_Used =', this_real(matter%density_used, 'es14.6', ' Not_Used'), & + ' Area_Density_Used =', matter%area_density_used, ' Radiation_Length_Used =', matter%radiation_length_used enddo endif @@ -1811,4 +1812,24 @@ subroutine print_this_stack(nl, li, stack, print_it, str_index) end subroutine print_this_stack +!-------------------------------------------------------------------------- +! contains + +function this_real(value, fmt, garbage_str) result (out_str) + +real(rp) value +character(*) fmt, garbage_str +character(30) out_str + +! + +if (value == real_garbage$) then + out_str = garbage_str + return +endif + +write (out_str, '(' // fmt // ')') value + +end function this_real + end subroutine type_ele diff --git a/bmad/output/write_bmad_lattice_file.f90 b/bmad/output/write_bmad_lattice_file.f90 index b43aadc00..54bdccfbd 100644 --- a/bmad/output/write_bmad_lattice_file.f90 +++ b/bmad/output/write_bmad_lattice_file.f90 @@ -526,7 +526,7 @@ subroutine write_bmad_lattice_file (bmad_file, lat, err, output_form, orbit0) if (associated(ele%foil)) then if (size(ele%foil%material) > 1) then - if (any(ele%foil%material%density /= 0)) then + if (any(ele%foil%material%density /= real_garbage$)) then line = trim(line) // ', density = (' do n = 1, size(ele%foil%material) if (n == 1) then; line = trim(line) // re_str(ele%foil%material(n)%density) @@ -536,7 +536,7 @@ subroutine write_bmad_lattice_file (bmad_file, lat, err, output_form, orbit0) line = trim(line) // ')' endif - if (any(ele%foil%material%area_density /= 0)) then + if (any(ele%foil%material%area_density /= real_garbage$)) then line = trim(line) // ', area_density = (' do n = 1, size(ele%foil%material) if (n == 1) then; line = trim(line) // re_str(ele%foil%material(n)%area_density) @@ -546,7 +546,7 @@ subroutine write_bmad_lattice_file (bmad_file, lat, err, output_form, orbit0) line = trim(line) // ')' endif - if (any(ele%foil%material%radiation_length /= 0)) then + if (any(ele%foil%material%radiation_length /= real_garbage$)) then line = trim(line) // ', radiation_length = (' do n = 1, size(ele%foil%material) if (n == 1) then; line = trim(line) // re_str(ele%foil%material(n)%radiation_length) @@ -558,9 +558,9 @@ subroutine write_bmad_lattice_file (bmad_file, lat, err, output_form, orbit0) else material => ele%foil%material(1) - if (material%density /= 0) line = trim(line) // ', density = ' // re_str(material%density) - if (material%area_density /= 0) line = trim(line) // ', area_density = ' // re_str(material%area_density) - if (material%radiation_length /= 0) line = trim(line) // ', radiation_length = ' // re_str(material%radiation_length) + if (material%density /= real_garbage$) line = trim(line) // ', density = ' // re_str(material%density) + if (material%area_density /= real_garbage$) line = trim(line) // ', area_density = ' // re_str(material%area_density) + if (material%radiation_length /= real_garbage$) line = trim(line) // ', radiation_length = ' // re_str(material%radiation_length) endif endif diff --git a/bmad/parsing/parser_set_attribute.f90 b/bmad/parsing/parser_set_attribute.f90 index fcbd1ce4c..5eaa86e62 100644 --- a/bmad/parsing/parser_set_attribute.f90 +++ b/bmad/parsing/parser_set_attribute.f90 @@ -58,6 +58,7 @@ subroutine parser_set_attribute (how, ele, delim, delim_found, err_flag, pele, c type (photon_element_struct), pointer :: ph type (photon_reflect_table_struct), allocatable :: rt_save(:) type (photon_reflect_table_struct), pointer :: rt +type (material_struct) :: material real(rp) kx, ky, kz, tol, value, coef, r_vec(10), r0(2), vec(1000) real(rp), allocatable :: table(:,:), arr(:) @@ -1783,18 +1784,26 @@ subroutine parser_set_attribute (how, ele, delim, delim_found, err_flag, pele, c if (.not. ok) return if (allocated(ele%foil%material)) then - if (size(ele%foil%material) /= n) then + if (size(ele%foil%material) == 1 .and. n > 1) then + material = ele%foil%material(1) + deallocate (ele%foil%material) + allocate(ele%foil%material(n)) + ele%foil%material(1) = material + endif + + if (size(ele%foil%material) /= n .and. (attrib_word == 'RADIATION_LENGTH' .or. (n > 1 .and. size(ele%foil%material) > 1))) then call parser_error('MATERIAL_TYPE, DENSITY, AREA_DENSITY, AND RADIATION_LENGTH MUST ALL BE THE SAME SIZE VECTORS FOR ELE: ' // ele%name) return endif + else allocate(ele%foil%material(n)) endif select case (attrib_word) - case ('DENSITY'); ele%foil%material(:)%density = arr - case ('AREA_DENSITY'); ele%foil%material(:)%area_density = arr - case ('RADIATION_LENGTH'); ele%foil%material(:)%radiation_length = arr + case ('DENSITY'); ele%foil%material(1:n)%density = arr(1:n) + case ('AREA_DENSITY'); ele%foil%material(1:n)%area_density = arr(1:n) + case ('RADIATION_LENGTH'); ele%foil%material(1:n)%radiation_length = arr(1:n) end select if (delim == ')') then diff --git a/bmad/searchf.namelist b/bmad/searchf.namelist index a82ff90d7..517a8e450 100644 --- a/bmad/searchf.namelist +++ b/bmad/searchf.namelist @@ -373,18 +373,11 @@ zero_ele_offsets File: code/valid_mat6_calc_method.f90 valid_mat6_calc_method -File: code/valid_tracking_method.f90 -valid_tracking_method - -File: code/twiss_propagate_all.f90 -twiss_propagate_all - -File: code/twiss_propagate1.f90 -twiss_propagate1 -twiss1_propagate +File: code/init_custom.f90 +init_custom -File: code/twiss_and_track_intra_ele.f90 -twiss_and_track_intra_ele +File: code/init_taylor_series.f90 +init_taylor_series File: code/set_tune.f90 set_tune @@ -401,14 +394,14 @@ knots_to_string File: code/set_on_off.f90 set_on_off -File: code/twiss_at_start.f90 -twiss_at_start +File: code/set_twiss.f90 +set_twiss File: code/twiss_from_mat6.f90 twiss_from_mat6 -File: code/init_custom.f90 -init_custom +File: code/twiss_propagate_all.f90 +twiss_propagate_all File: code/kill_taylor.f90 kill_taylor @@ -416,23 +409,30 @@ kill_taylor File: code/twiss_at_element.f90 twiss_at_element -File: code/transfer_map_calc.f90 -transfer_map_calc +File: code/valid_tracking_method.f90 +valid_tracking_method File: code/transfer_mat_from_twiss.f90 transfer_mat_from_twiss -File: code/set_twiss.f90 -set_twiss - File: code/set_z_tune.f90 set_z_tune File: code/split_lat.f90 split_lat -File: code/init_taylor_series.f90 -init_taylor_series +File: code/transfer_map_calc.f90 +transfer_map_calc + +File: code/twiss_at_start.f90 +twiss_at_start + +File: code/twiss_propagate1.f90 +twiss_propagate1 +twiss1_propagate + +File: code/twiss_and_track_intra_ele.f90 +twiss_and_track_intra_ele File: custom/apply_element_edge_kick_hook.f90 apply_element_edge_kick_hook @@ -820,8 +820,9 @@ autoscale_phase_and_amp File: low_level/average_twiss.f90 average_twiss -File: low_level/track_a_match.f90 -track_a_match +File: low_level/track_a_bend.f90 +track_a_bend +sbend_body_with_k1_map File: low_level/c_multi.f90 c_multi @@ -901,20 +902,20 @@ make_mat6_bmad File: low_level/make_mat6_symp_lie_ptc.f90 make_mat6_symp_lie_ptc -File: low_level/make_mat6_taylor.f90 -make_mat6_taylor - File: low_level/make_mat6_tracking.f90 make_mat6_tracking +File: low_level/make_mat6_taylor.f90 +make_mat6_taylor + File: low_level/master_parameter_value.f90 master_parameter_value File: low_level/mat4_multipole.f90 mat4_multipole -File: low_level/track_a_foil.f90 -track_a_foil +File: low_level/track1_bmad.f90 +track1_bmad File: low_level/mat6_add_pitch.f90 mat6_add_pitch @@ -989,8 +990,8 @@ symp_lie_bmad File: low_level/tilt_mat6.f90 tilt_mat6 -File: low_level/track_a_sad_mult.f90 -track_a_sad_mult +File: low_level/track_a_match.f90 +track_a_match File: low_level/track1_linear.f90 track1_linear @@ -998,26 +999,26 @@ track1_linear File: low_level/track1_runge_kutta.f90 track1_runge_kutta -File: low_level/track_a_sol_quad.f90 -track_a_sol_quad - File: low_level/calc_super_slave_key.f90 calc_super_slave_key -File: low_level/transfer_twiss.f90 -transfer_twiss +File: low_level/track_a_sol_quad.f90 +track_a_sol_quad File: low_level/track1_symp_lie_ptc.f90 track1_symp_lie_ptc -File: low_level/track1_bmad.f90 -track1_bmad +File: low_level/track1_taylor.f90 +track1_taylor File: low_level/track1_time_runge_kutta.f90 track1_time_runge_kutta -File: low_level/track1_taylor.f90 -track1_taylor +File: low_level/track_a_beambeam.f90 +track_a_beambeam + +File: low_level/track_a_foil.f90 +track_a_foil File: low_level/track_a_converter.f90 track_a_converter @@ -1028,9 +1029,8 @@ track_a_crab_cavity File: low_level/track_a_drift.f90 track_a_drift -File: low_level/track_a_bend.f90 -track_a_bend -sbend_body_with_k1_map +File: low_level/track_a_sad_mult.f90 +track_a_sad_mult File: low_level/track_a_gkicker.f90 track_a_gkicker @@ -1095,8 +1095,8 @@ transfer_lat_parameters File: low_level/transfer_mat2_from_twiss.f90 transfer_mat2_from_twiss -File: low_level/track_a_beambeam.f90 -track_a_beambeam +File: low_level/transfer_twiss.f90 +transfer_twiss File: low_level/transfer_wall3d.f90 transfer_wall3d @@ -1137,42 +1137,162 @@ track_a_pickup File: low_level/bend_length_has_been_set.f90 bend_length_has_been_set -File: low_level/tracking_rad_map_setup.f90 -tracking_rad_map_setup +File: low_level/control_bookkeeper.f90 +control_bookkeeper File: low_level/normal_mode_dispersion.f90 normal_mode_dispersion -File: low_level/control_bookkeeper.f90 -control_bookkeeper +File: low_level/tracking_rad_map_setup.f90 +tracking_rad_map_setup File: modules/bmad.f90 bmad -File: modules/bookkeeper_mod.f90 -bookkeeper_mod -makeup_group_lord -makeup_multipass_slave -makeup_super_slave -makeup_super_slave1 -compute_slave_coupler -makeup_control_slave -aperture_bookkeeper -attributes_need_bookkeeping +File: modules/complex_taylor_mod.f90 +complex_taylor_mod +complex_taylor_coef +procedure +procedure +complex_taylor_clean +complex_taylor_coef1 +complex_taylor_coef2 +type_complex_taylors +complex_taylor_make_unit +add_complex_taylor_term1 +add_complex_taylor_term2 +kill_complex_taylor +sort_complex_taylor_terms +complex_taylor_exponent_index +complex_taylor_to_mat6 +mat6_to_complex_taylor +track_complex_taylor +truncate_complex_taylor_to_order -File: modules/changed_attribute_bookkeeper.f90 -changed_attribute_bookkeeper -set_flags_for_changed_attribute +File: modules/element_modeling_mod.f90 +element_modeling_mod +wiggler_modeling_common_struct +create_sol_quad_model +create_planar_wiggler_model +wig_func +yfit_calc +mat_flatten + +File: modules/equality_mod.f90 +equality_mod +operator procedure procedure procedure procedure procedure -set_flags_for_changed_all_attribute -set_flags_for_changed_integer_attribute -set_flags_for_changed_logical_attribute -set_flags_for_changed_lat_attribute -set_flags_for_changed_real_attribute +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +eq_spline +eq_spin_polar +eq_ac_kicker_time +eq_ac_kicker_freq +eq_ac_kicker +eq_interval1_coef +eq_photon_reflect_table +eq_photon_reflect_surface +eq_coord +eq_coord_array +eq_bpm_phase_coupling +eq_expression_atom +eq_wake_sr_z_long +eq_wake_sr_mode +eq_wake_sr +eq_wake_lr_mode +eq_wake_lr +eq_lat_ele_loc +eq_wake +eq_taylor_term +eq_taylor +eq_em_taylor_term +eq_em_taylor +eq_cartesian_map_term1 +eq_cartesian_map_term +eq_cartesian_map +eq_cylindrical_map_term1 +eq_cylindrical_map_term +eq_cylindrical_map +eq_grid_field_pt1 +eq_grid_field_pt +eq_grid_field +eq_floor_position +eq_high_energy_space_charge +eq_xy_disp +eq_twiss +eq_mode3 +eq_bookkeeping_state +eq_rad_map +eq_rad_map_ele +eq_gen_grad1 +eq_gen_grad_map +eq_surface_segmented_pt +eq_surface_segmented +eq_surface_h_misalign_pt +eq_surface_h_misalign +eq_surface_displacement_pt +eq_surface_displacement +eq_target_point +eq_surface_curvature +eq_photon_target +eq_photon_material +eq_pixel_pt +eq_pixel_detec +eq_photon_element +eq_wall3d_vertex +eq_wall3d_section +eq_wall3d +eq_ramper_lord +eq_control +eq_control_var1 +eq_control_ramp1 +eq_controller +eq_ellipse_beam_init +eq_kv_beam_init +eq_grid_beam_init +eq_beam_init +eq_lat_param +eq_mode_info +eq_pre_tracker +eq_anormal_mode +eq_linac_normal_mode +eq_normal_modes +eq_em_field +eq_strong_beam +eq_track_point +eq_track +eq_space_charge_common +eq_bmad_common +eq_rad_int1 +eq_rad_int_branch +eq_rad_int_all_ele +eq_ele +eq_complex_taylor_term +eq_complex_taylor +eq_branch +eq_lat +eq_bunch +eq_bunch_params +eq_beam +eq_aperture_point +eq_aperture_param +eq_aperture_scan File: modules/element_at_s_mod.f90 element_at_s_mod @@ -1227,16 +1347,45 @@ to_orbit_reading to_eta_reading to_phase_and_coupling_reading -File: modules/integration_timer_mod.f90 -integration_timer_mod -integration_timer +File: modules/equal_mod.f90 +equal_mod +assignment procedure procedure -integration_timer_ele -integration_timer_fibre -get_taylor -diff -term_diff +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +operator +procedure +operator +procedure +map1_times_map1 +em_field_plus_em_field +ele_equal_ele +ele_equals_ele +ele_vec_equal_ele_vec +lat_equal_lat +lat_vec_equal_lat_vec +branch_equal_branch +coord_equal_coord +taylor_equal_taylor +taylors_equal_taylors +em_taylor_equal_em_taylor +em_taylors_equal_em_taylors +init_em_taylor_series +complex_taylor_equal_complex_taylor +complex_taylors_equal_complex_taylors +init_complex_taylor_series +bunch_equal_bunch +beam_equal_beam File: modules/srdt_mod.f90 srdt_mod @@ -1250,6 +1399,112 @@ make_srdt_cache make_slices srdt_lsq_solution +File: modules/bmad_routine_interface.f90 +bmad_routine_interface +pointer_to_branch +pointer_to_branch_given_name +pointer_to_branch_given_ele +pointer_to_ele +procedure +procedure +procedure +procedure +apply_element_edge_kick_hook_def +check_aperture_limit_custom_def +distance_to_aperture_custom_def +ele_geometry_hook_def +em_field_custom_def +ele_to_fibre_hook_def +lat_make_mat6_hook_def +radiation_integrals_custom_def +init_custom_def +make_mat6_custom_def +time_runge_kutta_periodic_kick_hook_def +track1_bunch_hook_def +track1_custom_def +track_many_hook_def +track1_postprocess_def +track1_preprocess_def +track1_spin_custom_def +track1_wake_hook_def +wall_hit_handler_custom_def +pointer_to_ele1 +pointer_to_ele2 +pointer_to_ele3 +pointer_to_ele4 + +File: modules/twiss_and_track_mod.f90 +twiss_and_track_mod +twiss_and_track +procedure +procedure +twiss_and_track_branch +twiss_and_track_all +twiss_and_track1 +twiss_and_track_at_s + +File: modules/radiation_mod.f90 +radiation_mod +release_rad_int_cache +track1_radiation +radiation_map_setup +track1_radiation_center + +File: modules/coord_mod.f90 +coord_mod +reallocate_coord +procedure +procedure +init_coord +procedure +procedure +procedure +reallocate_coord_n +reallocate_coord_lat +reallocate_coord_array +init_coord1 +init_coord2 +init_coord3 + +File: modules/bmad_interface.f90 +bmad_interface + +File: modules/fringe_mod.f90 +fringe_mod +bend_edge_kick +linear_bend_edge_kick +hwang_bend_edge_kick +sad_mult_hard_bend_edge_kick +soft_quadrupole_edge_kick +hard_multipole_edge_kick +sad_soft_bend_edge_kick +ptc_wedger +ptc_fringe_dipoler +ptc_rot_xz +exact_bend_edge_kick + +File: modules/time_tracker_mod.f90 +time_tracker_mod +odeint_bmad_time +rk_adaptive_time_step +rk_time_step1 +em_field_kick_vector_time +particle_in_global_frame +drift_orbit_time +write_time_particle_distribution +track_until_dead + +File: modules/integration_timer_mod.f90 +integration_timer_mod +integration_timer +procedure +procedure +integration_timer_ele +integration_timer_fibre +get_taylor +diff +term_diff + File: modules/mode3_mod.f90 mode3_mod m @@ -1276,52 +1531,215 @@ twiss3_propagate1 twiss3_from_twiss2 twiss3_at_start -File: modules/twiss_and_track_mod.f90 -twiss_and_track_mod -twiss_and_track +File: modules/multipole_mod.f90 +multipole_mod +multipole_ab_to_kt +multipole1_ab_to_kt +multipole_ele_to_kt +multipole_kt_to_ab +multipole1_kt_to_ab +multipole_kicks +ab_multipole_kicks +multipole_kick +ab_multipole_kick +elec_multipole_field + +File: modules/runge_kutta_mod.f90 +runge_kutta_mod +runge_kutta_common_struct +odeint_bmad +rk_adaptive_step +rk_step1 +kick_vector_calc + +File: modules/taylor_mod.f90 +taylor_mod +taylor_clean +taylor_coef +taylor_expn +type_taylors +taylor_make_quaternion_unit +taylor_make_unit +taylor_term_index +add_taylor_term +remove_taylor_term +taylor_extract_zeroth_order_part +sort_taylor_terms +taylor_exponent_index +taylor_to_mat6 +mat6_to_taylor +track_taylor +truncate_taylor_to_order +evaluate_em_taylor +add_em_taylor_term + +File: modules/wall3d_mod.f90 +wall3d_mod +re_allocate procedure procedure -twiss_and_track_branch -twiss_and_track_all -twiss_and_track1 -twiss_and_track_at_s +re_allocate_wall3d_vertex_array +re_allocate_wall3d_section_array +wall3d_initializer +wall3d_section_initializer +calc_wall_radius +wall3d_d_radius +pointer_to_wall3d +wall3d_to_position +create_concatenated_wall3d +mark_patch_regions -File: modules/radiation_mod.f90 -radiation_mod -release_rad_int_cache -track1_radiation -radiation_map_setup -track1_radiation_center +File: modules/bookkeeper_mod.f90 +bookkeeper_mod +makeup_group_lord +makeup_multipass_slave +makeup_super_slave +makeup_super_slave1 +compute_slave_coupler +makeup_control_slave +aperture_bookkeeper +attributes_need_bookkeeping -File: modules/bmad_struct.f90 -bmad_struct -bmad_inc_version$ -none$ -fringe_field_info_struct -n_pole_maxx -old_control_var_offset$ -var_offset$ -n_var_max$ -taylor_offset$ -expression_atom_struct -bmad_standard$ -symp_lie_ptc$ -runge_kutta$ -linear$ -tracking$ -time_runge_kutta$ -fixed_step_runge_kutta$ -symp_lie_bmad$ -auto$ -sprint$ -fixed_step_time_runge_kutta$ -mad$ -n_methods$ -tracking_method_name -spin_tracking_method_name -mat6_calc_method_name -drift_kick$ -matrix_kick$ +File: modules/changed_attribute_bookkeeper.f90 +changed_attribute_bookkeeper +set_flags_for_changed_attribute +procedure +procedure +procedure +procedure +procedure +set_flags_for_changed_all_attribute +set_flags_for_changed_integer_attribute +set_flags_for_changed_logical_attribute +set_flags_for_changed_lat_attribute +set_flags_for_changed_real_attribute + +File: modules/expression_mod.f90 +expression_mod +expression_string_to_stack +pushit +expression_value +expression_stack_value +expression_stack_to_string +split_expression_string +linear_coef + +File: modules/superimpose_mod.f90 +superimpose_mod +add_superimpose +split_this_lat +delete_underscore +adjust_super_slave_names +adjust_drift_names + +File: modules/transfer_map_mod.f90 +transfer_map_mod +transfer_map_from_s_to_s +transfer_this_map +mat6_from_s_to_s +transfer_this_mat +concat_transfer_mat + +File: modules/rad_6d_mod.f90 +rad_6d_mod +private_stash_struct +emit_6d +rad_damp_and_stoc_mats +rad1_damp_and_stoc_mats +rad_g_integrals + +File: modules/rad_int_common.f90 +rad_int_common +no_cache$ +cache_no_misalign$ +rad_int_track_point_struct +rad_int_cache1_struct +rad_int_cache_struct +rad_int_info_struct +qromb_rad_int +propagate_part_way +calc_wiggler_g_params + +File: modules/dynamic_aperture_mod.f90 +dynamic_aperture_mod +dynamic_aperture_scan +set_branch_and_ele_for_omp +dynamic_aperture_point + +File: modules/attribute_mod.f90 +attribute_mod +does_not_exist$ +is_free$ +quasi_free$ +dependent$ +private$ +overlay_slave$ +field_master_dependent$ +super_lord_align$ +ele_attribute_struct +attribute_free +procedure +procedure +procedure +attribute_index +procedure +procedure +attribute_name +procedure +procedure +attribute_index1 +attribute_index2 +attribute_name1 +attribute_name2 +attribute_info +init_attribute_name_array +init_short_attrib_array +init_attribute_name1 +has_orientation_attributes +attribute_type +attribute_units +string_attrib +switch_attrib_value_name +n_attrib_string_max_len +has_attribute +custom_attribute_ubound_index +set_custom_attribute_name +custom_ele_attrib_name_list +attribute_free1 +attribute_free2 +attribute_free3 +check_this_attribute_free +field_attribute_free + +File: modules/bmad_struct.f90 +bmad_struct +bmad_inc_version$ +none$ +fringe_field_info_struct +n_pole_maxx +old_control_var_offset$ +var_offset$ +n_var_max$ +taylor_offset$ +expression_atom_struct +bmad_standard$ +symp_lie_ptc$ +runge_kutta$ +linear$ +tracking$ +time_runge_kutta$ +fixed_step_runge_kutta$ +symp_lie_bmad$ +auto$ +sprint$ +fixed_step_time_runge_kutta$ +mad$ +n_methods$ +tracking_method_name +spin_tracking_method_name +mat6_calc_method_name +drift_kick$ +matrix_kick$ ripken_kick$ ptc_integration_type_name sub_key_name @@ -2171,645 +2589,228 @@ var$ z_ref$ p89$ radiation_length_used$ -pz_ref$ -space_charge_method$ -p90$ -mat6_calc_method$ -tracking_method$ -s_long$ -ref_time$ -ptc_integration_type$ -spin_tracking_method$ -eta_a$ -aperture$ -etap_a$ -x_limit$ -absolute_time_tracking$ -eta_b$ -y_limit$ -etap_b$ -offset_moves_aperture$ -aperture_limit_on$ -alpha_a$ -reflectivity_table$ -energy_probability_curve$ -exact_misalign$ -physical_source$ -sr_wake_file$ -alpha_b$ -term$ -frequencies$ -old_integrator$ -curvature$ -x_position$ -exact_model$ -symplectify$ -y_position$ -n_slice_spline$ -z_position$ -amp_vs_time$ -is_on$ -theta_position$ -vertical_kick$ -field_calc$ -phi_position$ -psi_position$ -wall$ -aperture_at$ -beta_a$ -ran_seed$ -origin_ele$ -beta_b$ -to_line$ -field_overlaps$ -field_master$ -to_element$ -descrip$ -scale_multipoles$ -sr_wake$ -ref_orbit$ -lr_wake$ -phi_b$ -crystal_type$ -material_type$ -type$ -ref_origin$ -ele_origin$ -superimpose$ -super_offset$ -reference$ -cartesian_map$ -cylindrical_map$ -grid_field$ -gen_grad_map$ -create_jumbo_slave$ -accordion_edge$ -start_edge$ -end_edge$ -s_position$ -ref_species$ -particle$ -wrap_superimpose$ -a0$ -a21$ -b0$ -b21$ -k0l$ -k21l$ -t0$ -t21$ -k0sl$ -k21sl$ -a0_elec$ -a21_elec$ -b0_elec$ -b21_elec$ -custom_attribute0$ -custom_attribute_num$ -num_ele_attrib_extended$ -g_err$ -b_field_err$ -blank_name$ -open$ -closed$ -lattice_type_name -geometry_name -anormal_mode_struct -linac_normal_mode_struct -normal_modes_struct -bends$ -wigglers$ -all$ -upstream$ -downstream$ -radians$ -degrees$ -cycles$ -radians_over_2pi$ -angle_units_name -short_angle_units_name -em_field_struct -rotationally_symmetric_rz$ -xyz$ -grid_field_geometry_name -grid_field_dimension -strong_beam_struct -track_point_struct -track_struct -multipass_lord_info_struct -multipass_ele_info_struct -multipass_branch_info_struct -multipass_all_info_struct -aperture_point_struct -aperture_param_struct -aperture_scan_struct -space_charge_common_struct -time_runge_kutta_common_struct -invalid_name$ -is_logical$ -is_integer$ -is_real$ -is_switch$ -is_string$ -is_struct$ -unknown$ -patch_problem$ -outside$ -cannot_find$ -extra_parsing_info_struct -bmad_common_struct -bmad_private_struct -ptc_common_struct -ptc_private_struct -small_rel_change$ -rad_int1_struct -rad_int_branch_struct -rad_int_all_ele_struct -pmd_header_struct -end_stack$ -plus$ -minus$ -times$ -divide$ -l_parens$ -r_parens$ -power$ -unary_minus$ -unary_plus$ -no_delim$ -sin$ -cos$ -tan$ -asin$ -acos$ -atan$ -abs$ -sqrt$ -log$ -exp$ -ran$ -ran_gauss$ -atan2$ -factorial$ -int$ -nint$ -floor$ -ceiling$ -numeric$ -variable$ -mass_of$ -charge_of$ -anomalous_moment_of$ -species$ -species_const$ -sinc$ -constant$ -comma$ -rms$ -average$ -sum$ -l_func_parens$ -arg_count$ -antiparticle$ -cot$ -sec$ -csc$ -sign$ -sinh$ -cosh$ -tanh$ -coth$ -asinh$ -acosh$ -atanh$ -acoth$ -min$ -max$ -modulo$ -expression_op_name -expression_eval_level -next_in_branch -coord_state_name -is_attribute -pointer_to_slave -ele_finalizer - -File: modules/bmad_interface.f90 -bmad_interface - -File: modules/fringe_mod.f90 -fringe_mod -bend_edge_kick -linear_bend_edge_kick -hwang_bend_edge_kick -sad_mult_hard_bend_edge_kick -soft_quadrupole_edge_kick -hard_multipole_edge_kick -sad_soft_bend_edge_kick -ptc_wedger -ptc_fringe_dipoler -ptc_rot_xz -exact_bend_edge_kick - -File: modules/time_tracker_mod.f90 -time_tracker_mod -odeint_bmad_time -rk_adaptive_time_step -rk_time_step1 -em_field_kick_vector_time -particle_in_global_frame -drift_orbit_time -write_time_particle_distribution -track_until_dead - -File: modules/complex_taylor_mod.f90 -complex_taylor_mod -complex_taylor_coef -procedure -procedure -complex_taylor_clean -complex_taylor_coef1 -complex_taylor_coef2 -type_complex_taylors -complex_taylor_make_unit -add_complex_taylor_term1 -add_complex_taylor_term2 -kill_complex_taylor -sort_complex_taylor_terms -complex_taylor_exponent_index -complex_taylor_to_mat6 -mat6_to_complex_taylor -track_complex_taylor -truncate_complex_taylor_to_order - -File: modules/equal_mod.f90 -equal_mod -assignment -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -operator -procedure -operator -procedure -map1_times_map1 -em_field_plus_em_field -ele_equal_ele -ele_equals_ele -ele_vec_equal_ele_vec -lat_equal_lat -lat_vec_equal_lat_vec -branch_equal_branch -coord_equal_coord -taylor_equal_taylor -taylors_equal_taylors -em_taylor_equal_em_taylor -em_taylors_equal_em_taylors -init_em_taylor_series -complex_taylor_equal_complex_taylor -complex_taylors_equal_complex_taylors -init_complex_taylor_series -bunch_equal_bunch -beam_equal_beam - -File: modules/transfer_map_mod.f90 -transfer_map_mod -transfer_map_from_s_to_s -transfer_this_map -mat6_from_s_to_s -transfer_this_mat -concat_transfer_mat - -File: modules/multipole_mod.f90 -multipole_mod -multipole_ab_to_kt -multipole1_ab_to_kt -multipole_ele_to_kt -multipole_kt_to_ab -multipole1_kt_to_ab -multipole_kicks -ab_multipole_kicks -multipole_kick -ab_multipole_kick -elec_multipole_field - -File: modules/runge_kutta_mod.f90 -runge_kutta_mod -runge_kutta_common_struct -odeint_bmad -rk_adaptive_step -rk_step1 -kick_vector_calc - -File: modules/taylor_mod.f90 -taylor_mod -taylor_clean -taylor_coef -taylor_expn -type_taylors -taylor_make_quaternion_unit -taylor_make_unit -taylor_term_index -add_taylor_term -remove_taylor_term -taylor_extract_zeroth_order_part -sort_taylor_terms -taylor_exponent_index -taylor_to_mat6 -mat6_to_taylor -track_taylor -truncate_taylor_to_order -evaluate_em_taylor -add_em_taylor_term - -File: modules/wall3d_mod.f90 -wall3d_mod -re_allocate -procedure -procedure -re_allocate_wall3d_vertex_array -re_allocate_wall3d_section_array -wall3d_initializer -wall3d_section_initializer -calc_wall_radius -wall3d_d_radius -pointer_to_wall3d -wall3d_to_position -create_concatenated_wall3d -mark_patch_regions - -File: modules/element_modeling_mod.f90 -element_modeling_mod -wiggler_modeling_common_struct -create_sol_quad_model -create_planar_wiggler_model -wig_func -yfit_calc -mat_flatten - -File: modules/coord_mod.f90 -coord_mod -reallocate_coord -procedure -procedure -init_coord -procedure -procedure -procedure -reallocate_coord_n -reallocate_coord_lat -reallocate_coord_array -init_coord1 -init_coord2 -init_coord3 - -File: modules/expression_mod.f90 -expression_mod -expression_string_to_stack -pushit -expression_value -expression_stack_value -expression_stack_to_string -split_expression_string -linear_coef - -File: modules/rad_6d_mod.f90 -rad_6d_mod -emit_6d -rad_damp_and_stoc_mats -rad1_damp_and_stoc_mats -rad_g_integrals - -File: modules/superimpose_mod.f90 -superimpose_mod -add_superimpose -split_this_lat -delete_underscore -adjust_super_slave_names -adjust_drift_names - -File: modules/rad_int_common.f90 -rad_int_common -no_cache$ -cache_no_misalign$ -rad_int_track_point_struct -rad_int_cache1_struct -rad_int_cache_struct -rad_int_info_struct -qromb_rad_int -propagate_part_way -calc_wiggler_g_params - -File: modules/dynamic_aperture_mod.f90 -dynamic_aperture_mod -dynamic_aperture_scan -set_branch_and_ele_for_omp -dynamic_aperture_point - -File: modules/attribute_mod.f90 -attribute_mod -does_not_exist$ -is_free$ -quasi_free$ -dependent$ -private$ -overlay_slave$ -field_master_dependent$ -super_lord_align$ -ele_attribute_struct -attribute_free -procedure -procedure -procedure -attribute_index -procedure -procedure -attribute_name -procedure -procedure -attribute_index1 -attribute_index2 -attribute_name1 -attribute_name2 -attribute_info -init_attribute_name_array -init_short_attrib_array -init_attribute_name1 -has_orientation_attributes -attribute_type -attribute_units -string_attrib -switch_attrib_value_name -n_attrib_string_max_len -has_attribute -custom_attribute_ubound_index -set_custom_attribute_name -custom_ele_attrib_name_list -attribute_free1 -attribute_free2 -attribute_free3 -check_this_attribute_free -field_attribute_free - -File: modules/equality_mod.f90 -equality_mod -operator -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -eq_spline -eq_spin_polar -eq_ac_kicker_time -eq_ac_kicker_freq -eq_ac_kicker -eq_interval1_coef -eq_photon_reflect_table -eq_photon_reflect_surface -eq_coord -eq_coord_array -eq_bpm_phase_coupling -eq_expression_atom -eq_wake_sr_z_long -eq_wake_sr_mode -eq_wake_sr -eq_wake_lr_mode -eq_wake_lr -eq_lat_ele_loc -eq_wake -eq_taylor_term -eq_taylor -eq_em_taylor_term -eq_em_taylor -eq_cartesian_map_term1 -eq_cartesian_map_term -eq_cartesian_map -eq_cylindrical_map_term1 -eq_cylindrical_map_term -eq_cylindrical_map -eq_grid_field_pt1 -eq_grid_field_pt -eq_grid_field -eq_floor_position -eq_high_energy_space_charge -eq_xy_disp -eq_twiss -eq_mode3 -eq_bookkeeping_state -eq_rad_map -eq_rad_map_ele -eq_gen_grad1 -eq_gen_grad_map -eq_surface_segmented_pt -eq_surface_segmented -eq_surface_h_misalign_pt -eq_surface_h_misalign -eq_surface_displacement_pt -eq_surface_displacement -eq_target_point -eq_surface_curvature -eq_photon_target -eq_photon_material -eq_pixel_pt -eq_pixel_detec -eq_photon_element -eq_wall3d_vertex -eq_wall3d_section -eq_wall3d -eq_ramper_lord -eq_control -eq_control_var1 -eq_control_ramp1 -eq_controller -eq_ellipse_beam_init -eq_kv_beam_init -eq_grid_beam_init -eq_beam_init -eq_lat_param -eq_mode_info -eq_pre_tracker -eq_anormal_mode -eq_linac_normal_mode -eq_normal_modes -eq_em_field -eq_strong_beam -eq_track_point -eq_track -eq_space_charge_common -eq_bmad_common -eq_rad_int1 -eq_rad_int_branch -eq_rad_int_all_ele -eq_ele -eq_complex_taylor_term -eq_complex_taylor -eq_branch -eq_lat -eq_bunch -eq_bunch_params -eq_beam -eq_aperture_point -eq_aperture_param -eq_aperture_scan - -File: modules/bmad_routine_interface.f90 -bmad_routine_interface -pointer_to_branch -pointer_to_branch_given_name -pointer_to_branch_given_ele -pointer_to_ele -procedure -procedure -procedure -procedure -apply_element_edge_kick_hook_def -check_aperture_limit_custom_def -distance_to_aperture_custom_def -ele_geometry_hook_def -em_field_custom_def -ele_to_fibre_hook_def -lat_make_mat6_hook_def -radiation_integrals_custom_def -init_custom_def -make_mat6_custom_def -time_runge_kutta_periodic_kick_hook_def -track1_bunch_hook_def -track1_custom_def -track_many_hook_def -track1_postprocess_def -track1_preprocess_def -track1_spin_custom_def -track1_wake_hook_def -wall_hit_handler_custom_def -pointer_to_ele1 -pointer_to_ele2 -pointer_to_ele3 -pointer_to_ele4 +pz_ref$ +space_charge_method$ +p90$ +mat6_calc_method$ +tracking_method$ +s_long$ +ref_time$ +ptc_integration_type$ +spin_tracking_method$ +eta_a$ +aperture$ +etap_a$ +x_limit$ +absolute_time_tracking$ +eta_b$ +y_limit$ +etap_b$ +offset_moves_aperture$ +aperture_limit_on$ +alpha_a$ +reflectivity_table$ +energy_probability_curve$ +exact_misalign$ +physical_source$ +sr_wake_file$ +alpha_b$ +term$ +frequencies$ +old_integrator$ +curvature$ +x_position$ +exact_model$ +symplectify$ +y_position$ +n_slice_spline$ +z_position$ +amp_vs_time$ +is_on$ +theta_position$ +vertical_kick$ +field_calc$ +phi_position$ +psi_position$ +wall$ +aperture_at$ +beta_a$ +ran_seed$ +origin_ele$ +beta_b$ +to_line$ +field_overlaps$ +field_master$ +to_element$ +descrip$ +scale_multipoles$ +sr_wake$ +ref_orbit$ +lr_wake$ +phi_b$ +crystal_type$ +material_type$ +type$ +ref_origin$ +ele_origin$ +superimpose$ +super_offset$ +reference$ +cartesian_map$ +cylindrical_map$ +grid_field$ +gen_grad_map$ +create_jumbo_slave$ +accordion_edge$ +start_edge$ +end_edge$ +s_position$ +ref_species$ +particle$ +wrap_superimpose$ +a0$ +a21$ +b0$ +b21$ +k0l$ +k21l$ +t0$ +t21$ +k0sl$ +k21sl$ +a0_elec$ +a21_elec$ +b0_elec$ +b21_elec$ +custom_attribute0$ +custom_attribute_num$ +num_ele_attrib_extended$ +g_err$ +b_field_err$ +blank_name$ +open$ +closed$ +lattice_type_name +geometry_name +anormal_mode_struct +linac_normal_mode_struct +normal_modes_struct +bends$ +wigglers$ +all$ +upstream$ +downstream$ +radians$ +degrees$ +cycles$ +radians_over_2pi$ +angle_units_name +short_angle_units_name +em_field_struct +rotationally_symmetric_rz$ +xyz$ +grid_field_geometry_name +grid_field_dimension +strong_beam_struct +track_point_struct +track_struct +multipass_lord_info_struct +multipass_ele_info_struct +multipass_branch_info_struct +multipass_all_info_struct +aperture_point_struct +aperture_param_struct +aperture_scan_struct +space_charge_common_struct +time_runge_kutta_common_struct +invalid_name$ +is_logical$ +is_integer$ +is_real$ +is_switch$ +is_string$ +is_struct$ +unknown$ +patch_problem$ +outside$ +cannot_find$ +extra_parsing_info_struct +bmad_common_struct +bmad_private_struct +ptc_common_struct +ptc_private_struct +small_rel_change$ +rad_int1_struct +rad_int_branch_struct +rad_int_all_ele_struct +pmd_header_struct +end_stack$ +plus$ +minus$ +times$ +divide$ +l_parens$ +r_parens$ +power$ +unary_minus$ +unary_plus$ +no_delim$ +sin$ +cos$ +tan$ +asin$ +acos$ +atan$ +abs$ +sqrt$ +log$ +exp$ +ran$ +ran_gauss$ +atan2$ +factorial$ +int$ +nint$ +floor$ +ceiling$ +numeric$ +variable$ +mass_of$ +charge_of$ +anomalous_moment_of$ +species$ +species_const$ +sinc$ +constant$ +comma$ +rms$ +average$ +sum$ +l_func_parens$ +arg_count$ +antiparticle$ +cot$ +sec$ +csc$ +sign$ +sinh$ +cosh$ +tanh$ +coth$ +asinh$ +acosh$ +atanh$ +acoth$ +min$ +max$ +modulo$ +expression_op_name +expression_eval_level +next_in_branch +coord_state_name +is_attribute +pointer_to_slave +ele_finalizer File: multiparticle/ibs_mod.f90 ibs_mod @@ -2879,47 +2880,10 @@ integrand_zap touschek_rate1 integrand_base integrand_base_cov -exp_bessi0 - -File: multiparticle/write_beam_floor_positions.f90 -write_beam_floor_positions - -File: multiparticle/reallocate_bunch.f90 -reallocate_bunch - -File: multiparticle/track_bunch_time.f90 -track_bunch_time - -File: multiparticle/bbi_kick.f90 -bbi_kick - -File: multiparticle/reallocate_beam.f90 -reallocate_beam - -File: multiparticle/set_emit_from_beam_init.f90 -set_emit_from_beam_init - -File: multiparticle/transfer_wake.f90 -transfer_wake - -File: multiparticle/beam_mod.f90 -beam_mod -track_beam -track_bunch -track1_bunch - -File: multiparticle/remove_dead_from_bunch.f90 -remove_dead_from_bunch - -File: multiparticle/gradient_shift_sr_wake.f90 -gradient_shift_sr_wake +exp_bessi0 -File: multiparticle/beam_file_io.f90 -beam_file_io -write_beam_file -write_ascii_beam_file -read_beam_file -read_beam_ascii +File: multiparticle/write_beam_floor_positions.f90 +write_beam_floor_positions File: multiparticle/envelope_mod.f90 envelope_mod @@ -2947,9 +2911,40 @@ etyt ety2 etdiv +File: multiparticle/reallocate_bunch.f90 +reallocate_bunch + +File: multiparticle/track_bunch_time.f90 +track_bunch_time + +File: multiparticle/bbi_kick.f90 +bbi_kick + +File: multiparticle/reallocate_beam.f90 +reallocate_beam + +File: multiparticle/set_emit_from_beam_init.f90 +set_emit_from_beam_init + File: multiparticle/init_wake.f90 init_wake +File: multiparticle/remove_dead_from_bunch.f90 +remove_dead_from_bunch + +File: multiparticle/gradient_shift_sr_wake.f90 +gradient_shift_sr_wake + +File: multiparticle/transfer_wake.f90 +transfer_wake + +File: multiparticle/beam_mod.f90 +beam_mod +track_beam +track_bunch +track1_beam +track1_bunch + File: multiparticle/wake_mod.f90 wake_mod randomize_lr_wake_frequencies @@ -2980,6 +2975,13 @@ calc_spin_params calc_bunch_sigma_matrix_etc bunch_init_end_calc +File: multiparticle/beam_file_io.f90 +beam_file_io +write_beam_file +write_ascii_beam_file +read_beam_file +read_beam_ascii + File: parsing/binary_parser_mod.f90 binary_parser_mod write_binary_cartesian_map @@ -3005,6 +3007,58 @@ create_group File: parsing/init_bmad_parser_common.f90 init_bmad_parser_common +File: parsing/set_ele_defaults.f90 +set_ele_defaults + +File: parsing/write_digested_bmad_file.f90 +write_digested_bmad_file + +File: parsing/check_controller_controls.f90 +check_controller_controls + +File: parsing/create_overlay.f90 +create_overlay + +File: parsing/read_digested_bmad_file.f90 +read_digested_bmad_file + +File: parsing/bmad_parser2.f90 +bmad_parser2 + +File: parsing/bmad_parser_struct.f90 +bmad_parser_struct +n_parse_line +n_parse_line_extended +seq_ele_struct +base_line_ele_struct +seq_struct +f_maxx +stack_file_struct +parser_controller_struct +parser_ele_struct +parser_lat_struct +line$ +list$ +element$ +replacement_line$ +def$ +redef$ +bp_const_struct +bp_common_struct +bp_common2_struct + +File: parsing/create_feedback.f90 +create_feedback + +File: parsing/create_ramper.f90 +create_ramper + +File: parsing/bmad_parser.f90 +bmad_parser + +File: parsing/parser_set_attribute.f90 +parser_set_attribute + File: parsing/bmad_parser_mod.f90 bmad_parser_mod get_called_file @@ -3071,58 +3125,6 @@ parser_fast_integer_read parser_fast_complex_read parser_fast_real_read -File: parsing/check_controller_controls.f90 -check_controller_controls - -File: parsing/create_overlay.f90 -create_overlay - -File: parsing/set_ele_defaults.f90 -set_ele_defaults - -File: parsing/write_digested_bmad_file.f90 -write_digested_bmad_file - -File: parsing/bmad_parser2.f90 -bmad_parser2 - -File: parsing/bmad_parser_struct.f90 -bmad_parser_struct -n_parse_line -n_parse_line_extended -seq_ele_struct -base_line_ele_struct -seq_struct -f_maxx -stack_file_struct -parser_controller_struct -parser_ele_struct -parser_lat_struct -line$ -list$ -element$ -replacement_line$ -def$ -redef$ -bp_const_struct -bp_common_struct -bp_common2_struct - -File: parsing/create_feedback.f90 -create_feedback - -File: parsing/create_ramper.f90 -create_ramper - -File: parsing/bmad_parser.f90 -bmad_parser - -File: parsing/parser_set_attribute.f90 -parser_set_attribute - -File: parsing/read_digested_bmad_file.f90 -read_digested_bmad_file - File: photon/capillary_mod.f90 capillary_mod photon_coord_struct @@ -3136,9 +3138,6 @@ capillary_reflect_photon File: photon/crystal_attribute_bookkeeper.f90 crystal_attribute_bookkeeper -File: photon/init_a_photon_from_a_photon_init_ele.f90 -init_a_photon_from_a_photon_init_ele - File: photon/make_mat6_bmad_photon.f90 make_mat6_bmad_photon @@ -3206,16 +3205,11 @@ track_a_drift_photon File: photon/track_to_surface.f90 track_to_surface -File: photon/photon_target_mod.f90 -photon_target_mod -photon_target_setup -photon_target_corner_calc -photon_add_to_detector_statistics -detector_pixel_pt -to_photon_angle_coords +File: photon/offset_photon.f90 +offset_photon -File: photon/to_surface_coords.f90 -to_surface_coords +File: photon/rotate_for_curved_surface.f90 +rotate_for_curved_surface File: photon/track1_photon_mod.f90 track1_photon_mod @@ -3233,8 +3227,13 @@ target_rot_mats target_min_max_calc track_a_bend_photon -File: photon/offset_photon.f90 -offset_photon +File: photon/photon_target_mod.f90 +photon_target_mod +photon_target_setup +photon_target_corner_calc +photon_add_to_detector_statistics +detector_pixel_pt +to_photon_angle_coords File: photon/photon_utils_mod.f90 photon_utils_mod @@ -3246,12 +3245,15 @@ crystal_diffraction_field_calc pointer_to_surface_segmented_pt pointer_to_surface_displacement_pt -File: photon/rotate_for_curved_surface.f90 -rotate_for_curved_surface +File: photon/to_surface_coords.f90 +to_surface_coords File: photon/track1_bmad_photon.f90 track1_bmad_photon +File: photon/init_photon_from_a_photon_init_ele.f90 +init_photon_from_a_photon_init_ele + File: ptc/fibre_to_ele.f90 fibre_to_ele @@ -3300,9 +3302,6 @@ set_ptc File: ptc/set_ptc_base_state.f90 set_ptc_base_state -File: ptc/update_fibre_from_ele.f90 -update_fibre_from_ele - File: ptc/ele_to_fibre.f90 ele_to_fibre @@ -3390,6 +3389,9 @@ ptc_calculate_tracking_step_size ptc_layouts_resplit ptc_check_for_lost_particle +File: ptc/update_fibre_from_ele.f90 +update_fibre_from_ele + File: space_charge/csr3d_mod.f90 csr3d_mod csr3d_steady_state_solver @@ -3455,16 +3457,6 @@ osc_get_cgrn_freespace File: space_charge/track1_bunch_space_charge.f90 track1_bunch_space_charge -File: space_charge/space_charge_mod.f90 -space_charge_mod -sc_field_calc -sc_step -sc_adaptive_step -track_bunch_to_s -track_bunch_to_t -drift_particle_to_s -drift_particle_to_t - File: space_charge/high_energy_space_charge_mod.f90 high_energy_space_charge_mod setup_high_energy_space_charge_calc @@ -3490,6 +3482,16 @@ dspline_len s_ref_to_s_chord track1_bunch_csr3d +File: space_charge/space_charge_mod.f90 +space_charge_mod +sc_field_calc +sc_step +sc_adaptive_step +track_bunch_to_s +track_bunch_to_t +drift_particle_to_s +drift_particle_to_t + File: spin/angle_between_polars.f90 angle_between_polars @@ -3523,9 +3525,6 @@ spin_depolarization_rate File: spin/spin_dn_dpz_from_mat8.f90 spin_dn_dpz_from_mat8 -File: spin/spin_dn_dpz_from_qmap.f90 -spin_dn_dpz_from_qmap - File: spin/spin_map1_normalize.f90 spin_map1_normalize @@ -3559,26 +3558,29 @@ spin_omega File: spin/spin_taylor_to_linear.f90 spin_taylor_to_linear -File: spin/spin_quat_resonance_strengths.f90 -spin_quat_resonance_strengths - -File: spin/track1_spin_bmad.f90 -track1_spin_bmad - File: spin/ele_to_spin_taylor.f90 ele_to_spin_taylor +File: spin/linear_to_spin_taylor.f90 +linear_to_spin_taylor + File: spin/spin_concat_linear_maps.f90 spin_concat_linear_maps +File: spin/spin_quat_resonance_strengths.f90 +spin_quat_resonance_strengths + File: spin/track1_spin.f90 track1_spin +File: spin/track1_spin_bmad.f90 +track1_spin_bmad + File: spin/track1_spin_taylor.f90 track1_spin_taylor -File: spin/linear_to_spin_taylor.f90 -linear_to_spin_taylor +File: spin/spin_dn_dpz_from_qmap.f90 +spin_dn_dpz_from_qmap File: output/type_coord.f90 type_coord @@ -3586,17 +3588,8 @@ type_coord File: output/type_twiss.f90 type_twiss -File: output/write_lattice_in_foreign_format.f90 -write_lattice_in_foreign_format - -File: output/write_lattice_in_sad_format.f90 -write_lattice_in_sad_format - -File: output/write_lattice_in_mad_format.f90 -write_lattice_in_mad_format - -File: output/write_bmad_lattice_file.f90 -write_bmad_lattice_file +File: output/type_ele.f90 +type_ele File: output/write_lattice_file_mod.f90 write_lattice_file_mod @@ -3613,11 +3606,20 @@ write_lat_line value_to_line add_this_name_to_list +File: output/write_lattice_in_elegant_format.f90 +write_lattice_in_elegant_format + +File: output/write_lattice_in_foreign_format.f90 +write_lattice_in_foreign_format + File: output/write_lattice_in_julia.f90 write_lattice_in_julia -File: output/write_lattice_in_elegant_format.f90 -write_lattice_in_elegant_format +File: output/write_lattice_in_mad_format.f90 +write_lattice_in_mad_format -File: output/type_ele.f90 -type_ele +File: output/write_lattice_in_sad_format.f90 +write_lattice_in_sad_format + +File: output/write_bmad_lattice_file.f90 +write_bmad_lattice_file diff --git a/bsim/searchf.namelist b/bsim/searchf.namelist index 7fa233d24..cd8130735 100644 --- a/bsim/searchf.namelist +++ b/bsim/searchf.namelist @@ -105,9 +105,6 @@ bsim_interface File: code/insert_phase_trombone.f90 insert_phase_trombone -File: code/set_tune_3d.f90 -set_tune_3d - File: code/bbu_track_mod.f90 bbu_track_mod bbu_stage_struct @@ -125,6 +122,9 @@ write_bunch_by_bunch_info hom_voltage logical_to_python +File: code/set_tune_3d.f90 +set_tune_3d + File: code_synrad/break_wall_into_segments.f90 break_wall_into_segments @@ -422,6 +422,10 @@ ts_track_particle ts_write_results ts_print_mpi_info +File: modules/four_mod.f90 +four_mod +xy_to_action + File: modules/lt_tracking_mod.f90 lt_tracking_mod master_rank$ @@ -481,10 +485,6 @@ ltt_track1_bunch_hook ltt_track1_preprocess ltt_init_coord -File: modules/four_mod.f90 -four_mod -xy_to_action - File: moga/moga.f90 moga diff --git a/forest/searchf.namelist b/forest/searchf.namelist index 0a6f5f1b7..06383b4d5 100644 --- a/forest/searchf.namelist +++ b/forest/searchf.namelist @@ -2595,229 +2595,6 @@ pos_mon pos_no find_exp -File: code/Si_def_element.f90 -s_def_element -equal -procedure -procedure -procedure -copy -procedure -procedure -procedure -procedure -add -procedure -procedure -zero_anbn -procedure -procedure -operator -procedure -operator -procedure -print -procedure -setfamily -procedure -procedure -null_element -procedure -procedure -put_aperture -procedure -procedure -assignment -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -track -procedure -procedure -trackr -trackp -work_0 -work_r -print_work -unaryw_w -elp_work -el_work -work_el -work_elp -mod_n -bl_0 -blpol_0 -bl_el -bl_elp -el_bl -elp_bl -elp_pol -elp_pol_force -elp_pol_print -copy_bl -unaryp_bl -setfamilyr -setfamilyp -zero_anbn_r -zero_anbn_p -transfer_anbn -restore_anbn -restore_anbn_single -force_restore_anbn_single -force_restore_anbn -change_settings_fibre -change_settings_magnetr -change_settings_magnetp -add_anbnr -add_anbnp -null_el -null_elp -zero_el -zero_elp -cop_el_elp -cop_elp_el -cop_el_el -copy_el_elp -copy_elp_el -copy_el_el -reset31 -find_energy -put_aperture_el -put_aperture_elp -remove_aperture_el -remove_aperture_elp -decode_element - -File: code/Su_duan_zhe_map.f90 -duan_zhe_map -i_ -kind -bunch -internal_state -tree_element -spinor -quaternion -probe -operator -procedure -assignment -procedure -procedure -procedure -procedure -procedure -procedure -procedure -operator -procedure -procedure -procedure -operator -procedure -procedure -operator -procedure -operator -procedure -print -procedure -procedure -operator -procedure -abs -procedure -abs_square -procedure -print -procedure -track_tree_probe_complex_ptc -procedure -alloc_tree -kill_tree -print_probe_zhe -equal_probe_real6_zhe -equal_probe_real6_bunch -alloc_bunch -kill_bunch -minu_zhe -print_s -conv -equalt_zhe -equali_zhe -add_zhe -sub_zhe -para_rema_zhe -track_tree_g_complex -print_tree_element -print_tree_elements_zhe -read_tree_element -read_tree_elements -track_tree_probe_complexr -orthonormaliser -track_tree_g_complexr -orthonormalise -track_tree_probe_complex_zhe -track_tree_probe_simple_zhe -track_miyajima_zhe -track_tree_probe_complex_zhe_no_orbital -track_tree_probe_complex_zhe_no_orbital_quaternion -change_ntot -gaussian_seed_zhe -nrmax_zhe -nrmax_used_zhe -get_seed -set_seed -matinv -ludcmp_nr -lubksb_nr -kanalnummer -reportopenfiles -zhe_ini -read_tree_zhe -kill_tree_zhe -unaryaddq -unarysubq -invq -absq -absq2 -equalq -equalqr -equalqi -powq -addq -subq -mulq -divq -printq - -File: code/b_da_arrays_all.f90 -da_arrays -alloc_all -alloc_ -dealloc_all -danum -danum0 - -File: code/cb_da_arrays_all.f90 -c_da_arrays -alloc_all_c -alloc_c -dealloc_all_c -danum_c -danum0_c - File: code/Se_status.f90 s_status kind0 @@ -2969,260 +2746,89 @@ furman_rrt track_tree_g_complexr track_tree_g_complexp -File: code/Sr_spin.f90 -ptc_spin -assignment +File: code/Sh_def_kind.f90 +s_def_kind +n_enge +radiate_2_force procedure -alloc procedure +rad_spin_qua_probe procedure -track_probe2 procedure +rad_spin_force_probe procedure -track_probe procedure +track_slice_sol5 procedure procedure +track_slice_dkd2 procedure -track_node_probe_old procedure +track_slice_dkd2_old procedure -track_node_probe procedure +track_slice_tktf procedure -track_node_x procedure +track_slice_sagan procedure -track_node_v procedure -track_probe_x +track_slice_cav4 procedure procedure +track_slice_pancake procedure procedure -propagate +feval_cav_bmad_probe procedure procedure +feval_sagan_probe procedure procedure +rk2_sagan_probe procedure procedure +rk4_sagan_probe procedure procedure -patch_spin +rk6_sagan_probe procedure procedure -mis_spin +rk2bmad_cav_probe procedure procedure -dtilt_spin +rk4bmad_cav_probe procedure procedure -track_spin_front +rk6bmad_cav_probe procedure procedure -track_spin_back +track_slice_cav4_old procedure procedure -track_rotate_spin +track_slice_teapot procedure procedure -track_wedge_spin +track_slice_teapot_old procedure procedure -track_fringe_spin_multipole +track_slice_strex procedure procedure -track_fringe_spin +track_slice_strex_old procedure procedure -superdrift_spin +track_slice procedure procedure -push_spin procedure procedure -push_spin_fake_fringe procedure procedure -fluc_spin -push_spin_fake_fringer -push_spin_fake_fringep -push_spinr -push_spinp -quaternion_to_damps -track_node_layout_flag_pr_t12_r -track_node_layout_flag_pr_t12_p -track_node_layout_flag_pr_s12_r -track_node_layout_flag_pr_s12_p -track_layout_flag_probe_spin12r -track_layout_flag_probe_spin12p -track_layout_flag_spin12r_x -track_layout_flag_spin12p_x -track_layout_flag_spint12r_x -track_layout_flag_spint12p_x -track_fill_ref -track_node_layout_flag_spin_v -track_node_layout_flag_spinr_x -track_node_layout_flag_spinp_x -track_node_flag_probe_quar -track_node_flag_probe_quap -track_node_flag_probe_wrap_r -track_node_flag_probe_wrap_p -track_node_flag_probe_r -track_node_flag_probe_p -track_fringe_spinr -track_fringe_spinp -track_wedge_spinr -track_wedge_spinp -track_rotate_spin_r -track_rotate_spin_p -track_fringe_spin_multipole_r -track_fringe_spin_multipole_p -track_spin_frontr -track_spin_frontp -track_spin_backr -track_spin_backp -superdrift_spinr -superdrift_spinp -patch_spinr -patch_spinp -mis_spinr -mis_spinp -dtilt_spinr -dtilt_spinp -stroboscopic_average -track_time -ptc_global_x_p -locate_temporal_probe -fit_temporal_probe -fit_temporal_probe_nocav -fit_temporal_probe_cav -ptc_print -find_frac_r -find_as -find_n0 -equal_temporal -alloc_temporal_beam -alloc_temporal_probe -track_temporal_beam -fill_tree_element -fill_tree_element_line -fill_tree_element_line_zhe0 -fill_tree_element_line_zhe0_node -fill_tree_element_line_zhe -set_tree_g_complex_zhe0 -symplectify_for_zhe0 -extract_moments -checksympglobal - -File: code/cc_dabnew.f90 -c_dabnew -c_daall1 -c_daall -c_daall0 -c_dadal -c_dadal1 -c_davar -c_dacma -c_daini -dalc_lsta -daalc_lno1 -daall -daall1 -c_print_c_nda_dab_c_lda -c_etall1 -c_daall0 -dadal -c_dadal1 -c_count_da -c_davar -c_dacon -c_danot -c_daeps -c_print_eps -c_dapek -c_dapok -daclr -c_dacop -c_real_imag -c_daadd -c_datrunc -c_dasub -c_damul -damult -c_dadiv -dasqr -dasqrt -c_dacad -c_dacsu -c_dasuc -c_dacmu -dacmut -c_dacdi -c_dadic -dacma -dalin -dalint -c_daabs -dacctt1 -dacctt2tpsa -dacctt2da -c_dacctt2datest -c_dacct -dacctt -c_mtree -ppushprint -ppushstore -ppushgetn -ppush -ppush1 -dainvt1 -dainvt2 -c_dainv -dainvt -dapin -c_dapint -c_dader -dadert -c_dacfu -dacfut -c_dapri -c_clean_complex -c_dapri77 -c_dashift -c_darea -c_darea77 -dadeb -dainf -dapac -dachk -damch -dadcd -dancd -c_datra -hash -dehash -c_dacycle -c_dafun -dafunt -c_take -c_daran -c_dapek0 -c_dapok0 -c_etcom - -File: code/Ci_tpsa.f90 -c_tpsa -ndim2t -compute_lattice_functions procedure procedure -abs_square procedure -abs procedure -assignment procedure procedure procedure @@ -3231,26 +2837,37 @@ procedure procedure procedure procedure +fake_shift procedure procedure +fringe_hel procedure procedure +patch_drift procedure procedure +get_z_ab procedure procedure +adjust_abell procedure procedure +adjust_pancake procedure procedure +track_fringe procedure procedure +fringe_teapot procedure procedure +fringe_strex procedure procedure +get_z_cav procedure procedure +track procedure procedure procedure @@ -3289,192 +2906,177 @@ procedure procedure procedure procedure +drift procedure procedure +sympintex procedure procedure +monti procedure procedure +rcollimatori procedure -assignment procedure +ecollimatori procedure procedure +kickcav procedure procedure -operator +abmad_trans procedure procedure +a_trans procedure procedure procedure +feval_cav procedure procedure +feval_cav_imp procedure +rk1bmad_cav_imp procedure +feval_cav_bmad procedure procedure +feval_teapot procedure procedure +feval_abell procedure procedure +rk2_abell procedure -operator procedure +rk4_abell procedure procedure +rk6_abell procedure procedure +rk2_cav_trav procedure procedure +rk2bmad_cav procedure procedure +rk4_cav_trav procedure procedure +rk4bmad_cav procedure procedure +rk6_cav_trav procedure procedure +rk6bmad_cav procedure procedure +rk2_teapot procedure procedure -operator +feval_teapot_qua procedure procedure +rk2_teapot_probe procedure procedure +rk4_teapot_probe procedure procedure +rk6_teapot_probe procedure procedure +rk4_teapot procedure procedure +rk6_teapot procedure procedure +fringecav procedure procedure -operator +adjust_time_cav4 procedure procedure +adjust_time_cav_trav_out procedure procedure +fringecav_trav procedure procedure +fringe_cav_trav procedure procedure +cavity procedure procedure +multipole_fringe procedure procedure +fringe_dipole procedure procedure +face procedure procedure procedure procedure +edge procedure procedure +kick procedure -operator procedure +kickex procedure procedure +elliptical_b procedure procedure +inte procedure procedure +inte_strex procedure procedure +kick_sol procedure procedure -procedure -operator -procedure -operator -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -operator -procedure -procedure -operator -procedure -procedure -procedure -operator -procedure -procedure -procedure -procedure -procedure -procedure -operator -procedure -procedure -operator +fringe2quad procedure procedure -operator -procedure -operator -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -operator -procedure -operator -procedure -procedure -procedure -procedure -operator -procedure -operator -procedure +getmulb_sol procedure procedure -operator +getnewb procedure procedure +kickmul procedure procedure +intesol procedure procedure -operator +septtrack procedure -operator procedure -operator +copy procedure -operator procedure -operator procedure procedure -checksymp procedure -q_part procedure -c_phasor +pointers_abell procedure -ci_phasor procedure -clean +pointers_pancake procedure procedure +assignment procedure procedure procedure @@ -3485,25 +3087,16 @@ procedure procedure procedure procedure -c_simil procedure procedure -texp_inv procedure -exp_inv procedure -real procedure -aimag procedure -cget_field_c_universal_taylor procedure -get_field_c_universal_taylor procedure -exp_mat procedure procedure -exp procedure procedure procedure @@ -3511,2072 +3104,185 @@ procedure procedure procedure procedure -makequaternion procedure -makeso3 procedure procedure -average procedure -iexp procedure -texp procedure procedure procedure +alloc procedure procedure procedure +kill procedure -abs procedure -dabs procedure -exp +expcosy6 procedure -dexp procedure -cexp +getmat procedure -cdexp procedure -log +intktk procedure procedure +pushktk procedure procedure -ln +kickktk procedure -cos procedure -cdcos +expcosy procedure -dcos procedure -ccos +expcosy7 procedure -sin procedure -cdsin +getmat7 procedure -ccsin procedure -dsin +pushtkt7 procedure -sqrt procedure -tan +kicktkt7 procedure -dtan procedure -c_pek +kickpath procedure -c_pok procedure -shiftda procedure -cfu procedure -full_abs procedure -daread procedure +inttkt7 procedure procedure +getanbn procedure procedure +getaebe procedure -read procedure +getelectric procedure procedure procedure procedure +getmagnetic procedure -daprint procedure +sprot procedure procedure +ssec procedure procedure +ssech1 procedure procedure +spar procedure procedure +skick procedure procedure -print +sinte procedure procedure +wedge procedure procedure +wedge_int procedure procedure +fx procedure procedure +fx_newc procedure procedure +fxc procedure procedure +step_symp_p_pancake procedure procedure -daprint +feval_pancake procedure procedure +feval_pancake_probe procedure -print procedure +rk4_pancake_probe procedure procedure +rk6_pancake_probe procedure procedure -alloc +rk4_pancake procedure procedure +rk6_pancake procedure procedure +rks_pancake procedure procedure +compute_f4 procedure procedure +compute_f4e procedure procedure +compute_f4s procedure procedure +drift procedure procedure +kick_he procedure -alloc_nn procedure -kill_nn +get_field procedure -matmul_nn procedure -matmulr_nn +get_bfield_fringe procedure procedure -kill +get_bz_fringe procedure procedure +get_bfield procedure procedure +b_pancake procedure procedure +get_be_cav procedure procedure +b_para_perp procedure procedure +direction_v procedure procedure +push_quaternion procedure procedure +get_omega_spin procedure -alloctpsa procedure -killtpsa +radiate_2 procedure -ass procedure -alloc +radiate_2_probe procedure procedure -kill -procedure -procedure -get_rf -c_get_indices -locally_set_da_pointers -c_count_taylor -unaryadd -unarysub -unarysub_vec -unarysub_q -unarysub_spinor -normalise_spinor -orthogonalise_spin_matrix -dotc_spinor -c_maketree -c_allocda -alloc_c_quaternion -kill_c_quaternion -c_a_opt -k_opt -a_opt_c_damap -k_opt_c_damap -a_opt_c_vector -k_opt_c_vector -c_allocdas -c_killda -c_killdas -alloc_c_damap -alloc_c_damaps -alloc_c_yu_w -kill_c_yu_w -alloc_c_vector_field -alloc_c_factored_lie -alloc_c_normal_form -kill_c_normal_form -kill_c_factored_lie -kill_c_damap -kill_c_damaps -kill_c_vector_field -alloc_c_spinmatrix -alloc_c_spinor -kill_c_spinor -kill_c_spinmatrix -c_real -c_aimag -equalc_t -equalt_c -equalc_ray_ray -equalc_ray_r6 -equalc_ray_r6r -equalc_r6_ray -equalc_r6r_ray -equalc_t_ct -equalc_ct_c -equalc_cmap_map -equalc_map_cmap -equal_c_spinmatrix_probe -equal_probe_c_spinmatrix -equal_c_spinmatrix_3_by_3 -equal_3_by_3_c_spinmatrix -equal_3_by_3_probe -equal_probe_3_by_3 -equalc_cvec_vec -equalc_cspinor_cspinor -equalc_spinor_c_quaternion -equalc_quaternion_c_spinor -equalc_spinor_cspinor -equalc_cspinor_spinor -c_dpekmap -c_dpokmap -equal -equal_map_real8 -equal_map_complex8 -equal_real8_map -equal_complex8_map -equal_c_tayls -equalspinmatrix -cdequal -dequal -requal -daabsequal -cdequaldacon -dequaldacon -dequaldacons -equaldacon -iequaldacon -dexpt -c_logt -flatten_c_factored_lie_r -flatten_c_factored_lie -c_logf_spin -c_logf -c_logc -get_log -full_abst -dtant -dcost -dsint -sqrtt -mul -pbbra -cpbbra -liebraquaternion -liebra -getorder -getordermap -getorderquaternion -getorderspinmatrix -getordervec -from_phasor -to_phasor -cutorder -cutordermap -cutordervec -cutorderspin -cutorderquaternion -cutorderspinor -dputchar -dputcharr -dputint -dputintr -c_dputint0 -c_dputint0r -getcharnd2s -getintnd2s -getintk -getchar -getint -getintmat -getdiff -getdiff_universal -getintegrate -getpb -cgetpb -getpb_from_transverse -derive -getvectorfield -getvectorfield_universal -cgetvectorfield_universal -cgetvectorfield -getdatra -pow -cdmulsc -dmulsc -mulsc -imulsc -cdscmul -dscmul -scmul -iscmul -div -cdscdiv -dscdiv -scdiv -iscdiv -cddivsc -ddivsc -divsc -idivsc -add -addq -absq2 -absq -mulq -mulcq -subq -c_invq -powq -powql -equalq -equalq_c_r -equalq_r_c -equalql_i -equalql_r -qua_ql -equal_c_l_f -compute_lattice_functions_2 -compute_lattice_functions_1 -equalql_c_spin -equalql_q -equalql_cmap -equalcmap_ql -equalq_ql -equal_c_quaternion_complex_quaternion -equal_complex_quaternion_c_quaternion -equalql_ql -print_ql -inv_symplectic66 -inv_c_linear_map -inv_c_linear_map_symplectic -mulqdiv -mul_ql_m -mul_ql_cm -addql -mulql -subql -equalq_c_8 -equalq_8_c -equalq_r -equalq_i -matrix_to_quaternion_in_c_damap -quaternion_to_matrix_in_c_damap -c_linear_map_to_matrix -cdaddsc -daddsca -addsc -iaddsc -cdscadd -dscadd -scadd -iscadd -subs -cdsubsc -dsubsc -subsc -isubsc -cdscsub -dscsub -scsub -iscsub -varf -varf001 -shift000 -c_pek000 -c_pok000 -c_taylor_ran -c_cfu000 -c_taylor_eps -getcharnd2 -getintnd2_universal -lfilter -getintnd2 -getintnd2t -c_taylor_cycle -c_cycle -c_check_snake -check_j -check_harmonic_order -filter -c_filter_part -c_pri_c_ray -pri_matrix -c_pri_matrix -c_pri_map -print_e_ij -c_pri_quaternion -c_read_quaternion -c_read_map -c_pri_vec -c_pri_factored_lie -c_pri_spinmatrix -c_read_spinmatrix -c_full_norm_spin -c_norm_spin -c_pri_spinor -c_read_spinor -c_pri -printcomplex -printpoly -print6 -daprinttaylors -c_rea -dareadtaylors -c_crap1 -c_real_stop -c_ndum_warning_user -set_up -de_set_up -null_it -line_l -ring_l -append_da -insert_da -c_alloc_da -kill_dalevel -dealloc_dascratch -set_up_level -c_report_level -c_assign -c_deassign -c_asstaylor -c_ass0 -c_assmap -c_ass_quaternion -c_ass_spinmatrix -c_ass_spinor -c_ass_vector_field -c_norm -c_clean_yu_w -clean_matrix_complex -clean_vector_complex -clean_matrix -clean_vector -clean_c_universal_taylor -c_clean_taylor -c_clean_linear_map -c_clean_spinmatrix -c_clean_quaternion -c_clean_spinor -c_clean_damap -c_clean_cm -c_clean_c_factored_lie -c_clean_vector_field -c_bmad_reinit -c_init -init_map_all -c_init_all -c_etcct -c_etinv -c_etpin -transform_vector_field_by_map -c_concat -c_concat_tpsa -c_adjoint -c_adjoint_vec -c_spinmatrix_spinmatrix -c_spinmatrix_mul_cray -c_quaternion_mul_cray -c_spinmatrix_spinor -c_transpose -c_spinor_cmap -c_spinor_cmap_tpsa -c_complex_spinmatrix -c_spinmatrix_add_spinmatrix -c_spinmatrix_sub_spinmatrix -c_spinor_add_spinor -c_spinor_sub_spinor -c_taylor_spinor -c_complex_spinor -c_real_spinor -c_spinor_spinor -c_trxspinmatrix -c_trxquaternion -c_trxquaternion_tpsa -c_trxspinmatrixda -c_trxtaylor -c_trxtaylor_da -c_concat_spinor_ray -c_concat_spinmatrix_ray -c_concat_quaternion_ray -c_concat_c_ray -c_concat_map_ray -c_concat_vector_field_ray -c_bra_v_ct -c_bra_v_q -c_bra_v_dm -powmap -powmap_inv -pow_tpsamap -pow_tpsamapnew -powmaps -c_equalmap -c_map_vec -c_equalvec -c_equalcray -c_identityequalmap -c_zero_constant_in_map -c_identityequalspin -c_identityequalspinor -c_identityequalvec -c_identityequalfactored -matrixmapr -r_matrixmapr -matrixvecfr -r_matrixvecfr -mapmatrixr -r_mapmatrixr -c_linear_a -c_linear_a_stoch -c_locate_planes -c_locate_modulated_magnet_planes -c_linear_ac_longitudinal -c_gofix -c_factor_map -c_canonise -c_full_factor_map_old -c_full_canonise -c_identify_resonance -c_full_factorise -c_normal_spin_linear_quaternion -c_normal_spin_linear -c_convert_spin -coast -c_normal_radiation -c_stochastic_kick -check_kernel -check_resonance -check_resonance_spin -c_kernel -c_average -c_expflo_fac -c_expflo_fac_inv -c_add_map -c_sub_map -c_1_vf_q -c_1_map -c_add_vf -c_sub_vf -real_mul_map -complex_mul_map -real_mul_vec -complex_mul_vec -c_taylor_mul_vec -map_mul_vec_q -map_mul_vec -exp_ad -iexp_ad -c_expflo_map -c_expflo -c_flofacg -c_find_n0 -c_n0_to_nr -c_nr_to_n0 -c_q0_to_qr -c_qr_to_q0 -c_find_om_da -c_find_as -c_inv_as -c_find_spin_angle -c_log_spinmatrix -c_vector_field_quaternion -c_exp_spinmatrix -c_exp_quaternion -c_exp_vectorfield_on_quaternion -c_full_norm_damap -c_full_norm_spin_map -c_full_norm_spinmatrix -c_full_norm_quaternion -c_norm_spinmatrix -c_full_norm_vector_field -c_full_norm_spinor -c_full_norm_fourier -c_check_rad -c_check_rad_spin -c_exp_mat_ -c_norm_matrix -exp_mat_ -norm_matrix -c_eig6 -ety -etyt -ety2 -etdiv -teng_edwards_a1 -c_int_partial -copy_damap_matrix -invert_22 -dagger_22 -matmulr_33 -matmult_33 -matmul_33 -dalloc_33t -prin_33t -dkill_33t -copy_matrix_matrix -extract_linear_from_normalised -extract_a0 -extract_only_a0 -extract_a1 -extract_only_a1 -extract_a2 -factor_ely_rest -c_remove_y_rot -produce_orthogonal -orthogonalise_ray -c_identityequalvecfourier -equal_c_vector_field_fourier -alloc_c_vector_field_fourier -kill_c_vector_field_fourier -transform_vector_field_fourier_by_map -transform_vector_field_fourier_to_qr -transform_vector_field_fourier_to_q0 -exp_vector_field_fourier -ddt_vector_field_fourier -print_vector_field_fourier -print_poisson_bracket_fourier -bra_vector_field_fourier -add_vector_field_fourier -mulc_vector_field_fourier -c_clean_vector_field_fourier -c_clean_taylors -c_evaluate_vector_field_fourier -create_rotation_linear_field -symplectify_for_sethna -nth_root -alloc_node_array_tpsa -kill_node_array_tpsa -kill_node_array -alloc_node_array -get_c_yu_w -transform_c_yu_w -c_fast_canonise -canonize_damping -extract_a0_mat -set_tree_g_complex_zhe -set_tree_g_complex_zhe_as_is -fill_tree_element_line_zhe_outside_map -compute_lie_map_matrix_complex -compute_lie_map_matrix -create_taylor_vector -init_moment_map -create_moment_map_one -create_vector_field -create_moment_map_one_complex -create_moment_map -create_yu_map -norm_moment_matrix -matinvn -ludcmp_nr0n -lubksb_nr0n -copy_tree_into_tree_zhe -print_tree_element -print_tree_elements -read_tree_element -read_tree_elements -symplectify_for_zhe -furman_symp -furman_step -checksympn -cholesky_dt -c_kill_uni -c_kill_unis -c_null_uni -c_alloc_u -c_alloc_us -c_get_coeff -c_fill_uni_r -c_fill_uni -c_fill_uni_complextaylor -c_concat_c_uni_ray -c_concat_c_uni_rays -c_equal_uni -c_refill_uni -c_printunitaylors -c_printunitaylor_old -r_field_for_demin -d_field_for_demin -c_uni_reorder -d_mod_demin -check_re -symplectify_general -normalise_vector_field_fourier -check_kernel_ham -check_kernel_spin1 -gramschmidt -c_normal -c_normal_new -c_normal_new_no_fac - -File: code/n_complex_polymorph.f90 -polymorphic_complextaylor -init -procedure -procedure -assignment -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -operator -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -operator -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -operator -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -operator -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -operator -procedure -procedure -procedure -operator -procedure -procedure -procedure -operator -procedure -operator -procedure -procedure -aimag -procedure -dimag -procedure -real -procedure -dreal -procedure -dble -procedure -cmplx -procedure -dcmplx -procedure -exp -procedure -dexp -procedure -cexp -procedure -cdexp -procedure -cos -procedure -cdcos -procedure -dcos -procedure -ccos -procedure -sin -procedure -cdsin -procedure -ccsin -procedure -dsin -procedure -log -procedure -dlog -procedure -cdlog -procedure -clog -procedure -sqrt -procedure -dsqrt -procedure -cdsqrt -procedure -abs -procedure -dabs -procedure -morph -procedure -conjg -procedure -alloc -procedure -procedure -kill -procedure -procedure -procedure -procedure -reset -procedure -procedure -make_it_knob -procedure -kill_knob -procedure -ass -procedure -set_6 -polymorpht -set_da_pointers -init_map_cp -init_tpsa_cp -set_in_poly -resetpoly -resetpolyn -resetpoly0 -getcharnd2 -getintnd2 -getchar -getint -getorder -cutorder -a_opt -k_opt -resetpolyn0 -resetpoly_r -resetpoly_rn -allocpoly -allocpolyn -equal -equalrp -rpequal -drealt -dimagt -dcmplxt -complexequal -equalcomplext -complextequal -dequaldacon -equaldacon -iequaldacon -cequaldacon -add -unaryadd -daddsc -caddsc -dscadd -cscadd -addsc -scadd -iaddsc -iscadd -subs -unarysub -dsubsc -dscsub -csubsc -cscsub -subsc -scsub -isubsc -iscsub -mul -pmul -mulp -padd -addp -psub -subp -pdiv -divp -cmulsc -cscmul -cpmulsc -cpscmul -cpaddsc -cpscadd -cpsubsc -cpscsub -cpdivsc -cpscdiv -dmulsc -dscmul -mulsc -scmul -imulsc -iscmul -div -ddivsc -dscdiv -cdivsc -cscdiv -divsc -scdiv -idivsc -iscdiv -pow -powr -powr8 -dexpt -conjgt -dcost -dsint -dlogt -dsqrtt -abst -asscp -make_it_knobc -kill_knobc -varck1 -varck2 -clean_complex_8 - -File: code/Sd_frame.f90 -s_frame -assignment -procedure -procedure -equal -procedure -procedure -copy -procedure -procedure -geo_rot -procedure -procedure -procedure -procedure -compute_angle -procedure -find_patch -procedure -find_patch_bmad -procedure -assignment -procedure -null_f -alloc_f -null_af -null_gs -alloc_af -kill_af -kill_f -equal_f -copy_patch -copy_chart -copy_chart1 -copy_patch1 -zero_patch -zero_chart -copy_vector -change_basis -geo_tra -print_triad -geo_rota_no_vec -geo_rota -geo_rotab_no_vec -rotate_frame -translate_frame -translate_point -make_rot_x -make_rot_y -make_rot_z -geo_rotb -check_frame -make_normal -compute_distance -compute_entrance_angle -compute_entrance_angle_mengyu -find_patch_mengyu -find_patch_from_mengyu_to_ptc -compute_entrance_angle_bmad -convert_patch_mengyu_to_etienne -print33 -convert_patch_etienne_to_mengyu -compute_scalar -find_patch_bmad0 -find_patch_b -find_patch_bmad_marker -inverse_find_patch -inverse_find_patch_bmad - -File: code/a_scratch_size.f90 -precision_constants -no_e -read -procedure -procedure -procedure -procedure -control -read_int -read_int_a -read_d -read_d_a -mat_norm -make_yoshida -input_sector -get_ncar -dofma -c_matinv -ludcmp_nr -lubksb_nr -matinv -ludcmp_nr0 -lubksb_nr0 -scratch_size -file_handler -file_ -file_k -assignment -procedure -procedure -intfile -intfile_k -zerofile -kanalnummer -reportopenfiles -context -create_name -my_own_1d_tpsa -n_my_1d_taylor -my_1d_taylor -assignment -procedure -procedure -operator -procedure -procedure -procedure -operator -procedure -procedure -procedure -procedure -operator -procedure -procedure -procedure -procedure -operator -procedure -procedure -procedure -procedure -operator -procedure -exp -procedure -log -procedure -sqrt -procedure -cos -procedure -sin -procedure -set_my_taylor_no -add -daddsc -dscadd -unaryadd -subs -unarysub -dsubsc -dscsub -mul -dmulsc -dscmul -ddivsc -idivsc -pow -inv -div -dscdiv -input_real_in_my_1d_taylor -input_my_1d_taylor_in_real -dexpt -dlogt -dsqrtt -dcost -dsint -gauss_dis -gaussian_seed -grnf -my_own_linear_tpsa -i_ -my_linear_taylor -assignment -procedure -procedure -procedure -procedure -procedure -procedure -operator -procedure -procedure -procedure -procedure -procedure -operator -procedure -procedure -procedure -procedure -procedure -operator -procedure -procedure -procedure -procedure -procedure -procedure -operator -procedure -procedure -procedure -procedure -procedure -procedure -operator -procedure -procedure -exp -procedure -tpsa_exp -procedure -log -procedure -sqrt -procedure -cos -procedure -sin -procedure -tan -procedure -atan -procedure -atan2 -procedure -operator -procedure -alloc -procedure -kill -procedure -morph -procedure -clean -procedure -init_linear_taylor -clean_taylor -clean_taylor_print -alloc_my_linear_taylor -morpht -monot -add -daddsc -dscadd -daddscc -dscaddc -unaryadd -subs -unarysub -dsubsc -dscsub -dsubscc -dscsubc -mul -dmulsc -dscmul -dmulscc -dscmulc -ddivsc -ddivscc -idivsc -pow -powr -inv -div -dscdiv -input_real_in_my_linear_taylor -input_real_in_my_linear_taylors -input_comp_in_my_linear_taylor -input_my_linear_taylor_in_comp -input_my_linear_taylor_in_my_linear_taylor -input_my_linear_taylor_in_real -dexpt -dlogt -dsqrtt -dcost -atant -dtant -atan2t -dsint -tpsa_expt -mypause -mypauses - -File: code/c_dabnew.f90 -dabnew -change_package -daini -dallsta -daallno1 -daall -daall1 -daall0 -dadal -dadal1 -count_da -davar -dacon -danot -daeps -dapek -dapok -daclr -dacop -daadd -datrunc -dasub -damul -damult -dadiv -dasqr -dasqrt -dacad -dacsu -dasuc -dacmu -dacmut -dacdi -dadic -dacma -dalin -dalint -dafun -dafunt -daabs -dacctt1 -dacctt2da -dacctt2tpsa -dacct -dacctt -mtree -ppushprint -ppushstore -ppushgetn -ppush -ppush1 -dainvt1 -dainv -dainvt2 -dainvt -dapin -dapint -dader -dadert -dacfu -dacfut -dapri -dapri77 -dashift -darea -darea77 -dadeb -dainf -dapac -dachk -damch -dadcd -dancd -datra -hash -dehash -daran -dacycle - -File: code/d_lielib.f90 -lielib_yang_berz -lieinit -flowpara -pertpeek -inputres -respoke -liepeek -etallnom -etall -etall1 -etcct -getcct -trx -gtrx -trxflo -simil -etini -etinv -etpin -getinv -dapokzer -davar0 -comcfu -take -taked -daclrd -dacopd -datruncd -dacmud -dalind -daread -daprid -daflo -daflod -intd -difd -expflo -expflod -facflo -facflod -fexpo -etcom -etpoi -exp1d -expnd2 -flofacg -flofac -liefact -mapnorm -gettura -setidpr -mapnormf -get_flip_info -flip -flip_real_array -flip_resonance -flipflo -flip_i -gofix -orderflo -nuanaflo -dhdjflo -h2pluflo -rotflo -rotiflo -hyper -ctor -rtoc -ctorflo -rtocflo -ctord -rtocd -resvec -reelflo -midbflo -mapflol -mulnd2 -movearou -movemul -initpert -cpart -ctoi -itoc -etrtc -etctr -etcjg -eig6 -ety -etyt -ety2 -etdiv -sympl3 -diagonalise_envelope_a -mapflol6s -eig6s -movearous -movemuls - -File: code/h_definition.f90 -definition -i_ -kind -i_ -kind -case1 -case2 -case0 -casep1 -casep2 -caset -casetf1 -casetf2 -wiggler_suntao -ndim2t -sub_taylor -taylor -universal_taylor -c_universal_taylor -complextaylor -real_8 -quaternion -complex_quaternion -quaternion_8 -complex_8 -spinor -spinor_8 -dascratch -dalevel -damap -gmap -vecfield -pbfield -tree -dragtfinn -reversedragtfinn -onelieexponent -normalform -genfield -pbresonance -vecresonance -taylorresonance -tree_element -rf_phasor -rf_phasor_8 -probe -probe_8 -temporal_probe -temporal_beam -c_taylor -c_dascratch -c_dalevel -c_spinmatrix -c_spinor -c_yu_w -c_quaternion -c_damap -c_vector_field -c_vector_field_fourier -c_factored_lie -c_normal_form -c_ray -fibre_array -node_array -in_bmad_units -in_ptc_units -alloc_fibre_array -kill_fibre_array -reset_aperture_flag -produce_aperture_flag - -File: code/Sh_def_kind.f90 -s_def_kind -n_enge -radiate_2_force -procedure -procedure -rad_spin_qua_probe -procedure -procedure -rad_spin_force_probe -procedure -procedure -track_slice_sol5 -procedure -procedure -track_slice_dkd2 -procedure -procedure -track_slice_dkd2_old -procedure -procedure -track_slice_tktf -procedure -procedure -track_slice_sagan -procedure -procedure -track_slice_cav4 -procedure -procedure -track_slice_pancake -procedure -procedure -feval_cav_bmad_probe -procedure -procedure -feval_sagan_probe -procedure -procedure -rk2_sagan_probe -procedure -procedure -rk4_sagan_probe -procedure -procedure -rk6_sagan_probe -procedure -procedure -rk2bmad_cav_probe -procedure -procedure -rk4bmad_cav_probe -procedure -procedure -rk6bmad_cav_probe -procedure -procedure -track_slice_cav4_old -procedure -procedure -track_slice_teapot -procedure -procedure -track_slice_teapot_old -procedure -procedure -track_slice_strex -procedure -procedure -track_slice_strex_old -procedure -procedure -track_slice -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -fake_shift -procedure -procedure -fringe_hel -procedure -procedure -patch_drift -procedure -procedure -get_z_ab -procedure -procedure -adjust_abell -procedure -procedure -adjust_pancake -procedure -procedure -track_fringe -procedure -procedure -fringe_teapot -procedure -procedure -fringe_strex -procedure -procedure -get_z_cav -procedure -procedure -track -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -drift -procedure -procedure -sympintex -procedure -procedure -monti -procedure -procedure -rcollimatori -procedure -procedure -ecollimatori -procedure -procedure -kickcav -procedure -procedure -abmad_trans -procedure -procedure -a_trans -procedure -procedure -procedure -feval_cav -procedure -procedure -feval_cav_imp -procedure -rk1bmad_cav_imp -procedure -feval_cav_bmad -procedure -procedure -feval_teapot -procedure -procedure -feval_abell -procedure -procedure -rk2_abell -procedure -procedure -rk4_abell -procedure -procedure -rk6_abell -procedure -procedure -rk2_cav_trav -procedure -procedure -rk2bmad_cav -procedure -procedure -rk4_cav_trav -procedure -procedure -rk4bmad_cav -procedure -procedure -rk6_cav_trav -procedure -procedure -rk6bmad_cav -procedure -procedure -rk2_teapot -procedure -procedure -feval_teapot_qua -procedure -procedure -rk2_teapot_probe -procedure -procedure -rk4_teapot_probe -procedure -procedure -rk6_teapot_probe -procedure -procedure -rk4_teapot -procedure -procedure -rk6_teapot -procedure -procedure -fringecav -procedure -procedure -adjust_time_cav4 -procedure -procedure -adjust_time_cav_trav_out -procedure -procedure -fringecav_trav -procedure -procedure -fringe_cav_trav -procedure -procedure -cavity -procedure -procedure -multipole_fringe -procedure -procedure -fringe_dipole -procedure -procedure -face -procedure -procedure -procedure -procedure -edge -procedure -procedure -kick -procedure -procedure -kickex -procedure -procedure -elliptical_b -procedure -procedure -inte -procedure -procedure -inte_strex -procedure -procedure -kick_sol -procedure -procedure -fringe2quad -procedure -procedure -getmulb_sol -procedure -procedure -getnewb -procedure -procedure -kickmul -procedure -procedure -intesol -procedure -procedure -septtrack -procedure -procedure -copy -procedure -procedure -procedure -procedure -procedure -procedure -pointers_abell -procedure -procedure -pointers_pancake -procedure -procedure -assignment -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -procedure -alloc -procedure -procedure -procedure -kill -procedure -procedure -procedure -expcosy6 -procedure -procedure -getmat -procedure -procedure -intktk -procedure -procedure -pushktk -procedure -procedure -kickktk -procedure -procedure -expcosy -procedure -procedure -expcosy7 -procedure -procedure -getmat7 -procedure -procedure -pushtkt7 -procedure -procedure -kicktkt7 -procedure -procedure -kickpath -procedure -procedure -procedure -procedure -procedure -procedure -inttkt7 -procedure -procedure -getanbn -procedure -procedure -getaebe -procedure -procedure -getelectric -procedure -procedure -procedure -procedure -getmagnetic -procedure -procedure -sprot -procedure -procedure -ssec -procedure -procedure -ssech1 -procedure -procedure -spar -procedure -procedure -skick -procedure -procedure -sinte -procedure -procedure -wedge -procedure -procedure -wedge_int -procedure -procedure -fx -procedure -procedure -fx_newc -procedure -procedure -fxc -procedure -procedure -step_symp_p_pancake -procedure -procedure -feval_pancake -procedure -procedure -feval_pancake_probe -procedure -procedure -rk4_pancake_probe -procedure -procedure -rk6_pancake_probe -procedure -procedure -rk4_pancake -procedure -procedure -rk6_pancake -procedure -procedure -rks_pancake -procedure -procedure -compute_f4 -procedure -procedure -compute_f4e -procedure -procedure -compute_f4s -procedure -procedure -drift -procedure -procedure -kick_he -procedure -procedure -get_field -procedure -procedure -get_bfield_fringe -procedure -procedure -get_bz_fringe -procedure -procedure -get_bfield -procedure -procedure -b_pancake -procedure -procedure -get_be_cav -procedure -procedure -b_para_perp -procedure -procedure -direction_v -procedure -procedure -push_quaternion -procedure -procedure -get_omega_spin -procedure -procedure -radiate_2 -procedure -procedure -radiate_2_probe -procedure -procedure -makeso3 +makeso3 procedure procedure patch_driftr @@ -6007,6 +3713,2204 @@ push_quaternionp int_sagan_prober int_sagan_probep +File: code/Si_def_element.f90 +s_def_element +equal +procedure +procedure +procedure +copy +procedure +procedure +procedure +procedure +add +procedure +procedure +zero_anbn +procedure +procedure +operator +procedure +operator +procedure +print +procedure +setfamily +procedure +procedure +null_element +procedure +procedure +put_aperture +procedure +procedure +assignment +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +track +procedure +procedure +trackr +trackp +work_0 +work_r +print_work +unaryw_w +elp_work +el_work +work_el +work_elp +mod_n +bl_0 +blpol_0 +bl_el +bl_elp +el_bl +elp_bl +elp_pol +elp_pol_force +elp_pol_print +copy_bl +unaryp_bl +setfamilyr +setfamilyp +zero_anbn_r +zero_anbn_p +transfer_anbn +restore_anbn +restore_anbn_single +force_restore_anbn_single +force_restore_anbn +change_settings_fibre +change_settings_magnetr +change_settings_magnetp +add_anbnr +add_anbnp +null_el +null_elp +zero_el +zero_elp +cop_el_elp +cop_elp_el +cop_el_el +copy_el_elp +copy_elp_el +copy_el_el +reset31 +find_energy +put_aperture_el +put_aperture_elp +remove_aperture_el +remove_aperture_elp +decode_element + +File: code/Su_duan_zhe_map.f90 +duan_zhe_map +i_ +kind +bunch +internal_state +tree_element +spinor +quaternion +probe +operator +procedure +assignment +procedure +procedure +procedure +procedure +procedure +procedure +procedure +operator +procedure +procedure +procedure +operator +procedure +procedure +operator +procedure +operator +procedure +print +procedure +procedure +operator +procedure +abs +procedure +abs_square +procedure +print +procedure +track_tree_probe_complex_ptc +procedure +alloc_tree +kill_tree +print_probe_zhe +equal_probe_real6_zhe +equal_probe_real6_bunch +alloc_bunch +kill_bunch +minu_zhe +print_s +conv +equalt_zhe +equali_zhe +add_zhe +sub_zhe +para_rema_zhe +track_tree_g_complex +print_tree_element +print_tree_elements_zhe +read_tree_element +read_tree_elements +track_tree_probe_complexr +orthonormaliser +track_tree_g_complexr +orthonormalise +track_tree_probe_complex_zhe +track_tree_probe_simple_zhe +track_miyajima_zhe +track_tree_probe_complex_zhe_no_orbital +track_tree_probe_complex_zhe_no_orbital_quaternion +change_ntot +gaussian_seed_zhe +nrmax_zhe +nrmax_used_zhe +get_seed +set_seed +matinv +ludcmp_nr +lubksb_nr +kanalnummer +reportopenfiles +zhe_ini +read_tree_zhe +kill_tree_zhe +unaryaddq +unarysubq +invq +absq +absq2 +equalq +equalqr +equalqi +powq +addq +subq +mulq +divq +printq + +File: code/b_da_arrays_all.f90 +da_arrays +alloc_all +alloc_ +dealloc_all +danum +danum0 + +File: code/cb_da_arrays_all.f90 +c_da_arrays +alloc_all_c +alloc_c +dealloc_all_c +danum_c +danum0_c + +File: code/n_complex_polymorph.f90 +polymorphic_complextaylor +init +procedure +procedure +assignment +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +operator +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +operator +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +operator +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +operator +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +operator +procedure +procedure +procedure +operator +procedure +procedure +procedure +operator +procedure +operator +procedure +procedure +aimag +procedure +dimag +procedure +real +procedure +dreal +procedure +dble +procedure +cmplx +procedure +dcmplx +procedure +exp +procedure +dexp +procedure +cexp +procedure +cdexp +procedure +cos +procedure +cdcos +procedure +dcos +procedure +ccos +procedure +sin +procedure +cdsin +procedure +ccsin +procedure +dsin +procedure +log +procedure +dlog +procedure +cdlog +procedure +clog +procedure +sqrt +procedure +dsqrt +procedure +cdsqrt +procedure +abs +procedure +dabs +procedure +morph +procedure +conjg +procedure +alloc +procedure +procedure +kill +procedure +procedure +procedure +procedure +reset +procedure +procedure +make_it_knob +procedure +kill_knob +procedure +ass +procedure +set_6 +polymorpht +set_da_pointers +init_map_cp +init_tpsa_cp +set_in_poly +resetpoly +resetpolyn +resetpoly0 +getcharnd2 +getintnd2 +getchar +getint +getorder +cutorder +a_opt +k_opt +resetpolyn0 +resetpoly_r +resetpoly_rn +allocpoly +allocpolyn +equal +equalrp +rpequal +drealt +dimagt +dcmplxt +complexequal +equalcomplext +complextequal +dequaldacon +equaldacon +iequaldacon +cequaldacon +add +unaryadd +daddsc +caddsc +dscadd +cscadd +addsc +scadd +iaddsc +iscadd +subs +unarysub +dsubsc +dscsub +csubsc +cscsub +subsc +scsub +isubsc +iscsub +mul +pmul +mulp +padd +addp +psub +subp +pdiv +divp +cmulsc +cscmul +cpmulsc +cpscmul +cpaddsc +cpscadd +cpsubsc +cpscsub +cpdivsc +cpscdiv +dmulsc +dscmul +mulsc +scmul +imulsc +iscmul +div +ddivsc +dscdiv +cdivsc +cscdiv +divsc +scdiv +idivsc +iscdiv +pow +powr +powr8 +dexpt +conjgt +dcost +dsint +dlogt +dsqrtt +abst +asscp +make_it_knobc +kill_knobc +varck1 +varck2 +clean_complex_8 + +File: code/Sr_spin.f90 +ptc_spin +assignment +procedure +alloc +procedure +procedure +track_probe2 +procedure +procedure +track_probe +procedure +procedure +procedure +procedure +track_node_probe_old +procedure +procedure +track_node_probe +procedure +procedure +track_node_x +procedure +procedure +track_node_v +procedure +track_probe_x +procedure +procedure +procedure +procedure +propagate +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +patch_spin +procedure +procedure +mis_spin +procedure +procedure +dtilt_spin +procedure +procedure +track_spin_front +procedure +procedure +track_spin_back +procedure +procedure +track_rotate_spin +procedure +procedure +track_wedge_spin +procedure +procedure +track_fringe_spin_multipole +procedure +procedure +track_fringe_spin +procedure +procedure +superdrift_spin +procedure +procedure +push_spin +procedure +procedure +push_spin_fake_fringe +procedure +procedure +fluc_spin +push_spin_fake_fringer +push_spin_fake_fringep +push_spinr +push_spinp +quaternion_to_damps +track_node_layout_flag_pr_t12_r +track_node_layout_flag_pr_t12_p +track_node_layout_flag_pr_s12_r +track_node_layout_flag_pr_s12_p +track_layout_flag_probe_spin12r +track_layout_flag_probe_spin12p +track_layout_flag_spin12r_x +track_layout_flag_spin12p_x +track_layout_flag_spint12r_x +track_layout_flag_spint12p_x +track_fill_ref +track_node_layout_flag_spin_v +track_node_layout_flag_spinr_x +track_node_layout_flag_spinp_x +track_node_flag_probe_quar +track_node_flag_probe_quap +track_node_flag_probe_wrap_r +track_node_flag_probe_wrap_p +track_node_flag_probe_r +track_node_flag_probe_p +track_fringe_spinr +track_fringe_spinp +track_wedge_spinr +track_wedge_spinp +track_rotate_spin_r +track_rotate_spin_p +track_fringe_spin_multipole_r +track_fringe_spin_multipole_p +track_spin_frontr +track_spin_frontp +track_spin_backr +track_spin_backp +superdrift_spinr +superdrift_spinp +patch_spinr +patch_spinp +mis_spinr +mis_spinp +dtilt_spinr +dtilt_spinp +stroboscopic_average +track_time +ptc_global_x_p +locate_temporal_probe +fit_temporal_probe +fit_temporal_probe_nocav +fit_temporal_probe_cav +ptc_print +find_frac_r +find_as +find_n0 +equal_temporal +alloc_temporal_beam +alloc_temporal_probe +track_temporal_beam +fill_tree_element +fill_tree_element_line +fill_tree_element_line_zhe0 +fill_tree_element_line_zhe0_node +fill_tree_element_line_zhe +set_tree_g_complex_zhe0 +symplectify_for_zhe0 +extract_moments +checksympglobal + +File: code/Sd_frame.f90 +s_frame +assignment +procedure +procedure +equal +procedure +procedure +copy +procedure +procedure +geo_rot +procedure +procedure +procedure +procedure +compute_angle +procedure +find_patch +procedure +find_patch_bmad +procedure +assignment +procedure +null_f +alloc_f +null_af +null_gs +alloc_af +kill_af +kill_f +equal_f +copy_patch +copy_chart +copy_chart1 +copy_patch1 +zero_patch +zero_chart +copy_vector +change_basis +geo_tra +print_triad +geo_rota_no_vec +geo_rota +geo_rotab_no_vec +rotate_frame +translate_frame +translate_point +make_rot_x +make_rot_y +make_rot_z +geo_rotb +check_frame +make_normal +compute_distance +compute_entrance_angle +compute_entrance_angle_mengyu +find_patch_mengyu +find_patch_from_mengyu_to_ptc +compute_entrance_angle_bmad +convert_patch_mengyu_to_etienne +print33 +convert_patch_etienne_to_mengyu +compute_scalar +find_patch_bmad0 +find_patch_b +find_patch_bmad_marker +inverse_find_patch +inverse_find_patch_bmad + +File: code/a_scratch_size.f90 +precision_constants +no_e +read +procedure +procedure +procedure +procedure +control +read_int +read_int_a +read_d +read_d_a +mat_norm +make_yoshida +input_sector +get_ncar +dofma +c_matinv +ludcmp_nr +lubksb_nr +matinv +ludcmp_nr0 +lubksb_nr0 +scratch_size +file_handler +file_ +file_k +assignment +procedure +procedure +intfile +intfile_k +zerofile +kanalnummer +reportopenfiles +context +create_name +my_own_1d_tpsa +n_my_1d_taylor +my_1d_taylor +assignment +procedure +procedure +operator +procedure +procedure +procedure +operator +procedure +procedure +procedure +procedure +operator +procedure +procedure +procedure +procedure +operator +procedure +procedure +procedure +procedure +operator +procedure +exp +procedure +log +procedure +sqrt +procedure +cos +procedure +sin +procedure +set_my_taylor_no +add +daddsc +dscadd +unaryadd +subs +unarysub +dsubsc +dscsub +mul +dmulsc +dscmul +ddivsc +idivsc +pow +inv +div +dscdiv +input_real_in_my_1d_taylor +input_my_1d_taylor_in_real +dexpt +dlogt +dsqrtt +dcost +dsint +gauss_dis +gaussian_seed +grnf +my_own_linear_tpsa +i_ +my_linear_taylor +assignment +procedure +procedure +procedure +procedure +procedure +procedure +operator +procedure +procedure +procedure +procedure +procedure +operator +procedure +procedure +procedure +procedure +procedure +operator +procedure +procedure +procedure +procedure +procedure +procedure +operator +procedure +procedure +procedure +procedure +procedure +procedure +operator +procedure +procedure +exp +procedure +tpsa_exp +procedure +log +procedure +sqrt +procedure +cos +procedure +sin +procedure +tan +procedure +atan +procedure +atan2 +procedure +operator +procedure +alloc +procedure +kill +procedure +morph +procedure +clean +procedure +init_linear_taylor +clean_taylor +clean_taylor_print +alloc_my_linear_taylor +morpht +monot +add +daddsc +dscadd +daddscc +dscaddc +unaryadd +subs +unarysub +dsubsc +dscsub +dsubscc +dscsubc +mul +dmulsc +dscmul +dmulscc +dscmulc +ddivsc +ddivscc +idivsc +pow +powr +inv +div +dscdiv +input_real_in_my_linear_taylor +input_real_in_my_linear_taylors +input_comp_in_my_linear_taylor +input_my_linear_taylor_in_comp +input_my_linear_taylor_in_my_linear_taylor +input_my_linear_taylor_in_real +dexpt +dlogt +dsqrtt +dcost +atant +dtant +atan2t +dsint +tpsa_expt +mypause +mypauses + +File: code/c_dabnew.f90 +dabnew +change_package +daini +dallsta +daallno1 +daall +daall1 +daall0 +dadal +dadal1 +count_da +davar +dacon +danot +daeps +dapek +dapok +daclr +dacop +daadd +datrunc +dasub +damul +damult +dadiv +dasqr +dasqrt +dacad +dacsu +dasuc +dacmu +dacmut +dacdi +dadic +dacma +dalin +dalint +dafun +dafunt +daabs +dacctt1 +dacctt2da +dacctt2tpsa +dacct +dacctt +mtree +ppushprint +ppushstore +ppushgetn +ppush +ppush1 +dainvt1 +dainv +dainvt2 +dainvt +dapin +dapint +dader +dadert +dacfu +dacfut +dapri +dapri77 +dashift +darea +darea77 +dadeb +dainf +dapac +dachk +damch +dadcd +dancd +datra +hash +dehash +daran +dacycle + +File: code/d_lielib.f90 +lielib_yang_berz +lieinit +flowpara +pertpeek +inputres +respoke +liepeek +etallnom +etall +etall1 +etcct +getcct +trx +gtrx +trxflo +simil +etini +etinv +etpin +getinv +dapokzer +davar0 +comcfu +take +taked +daclrd +dacopd +datruncd +dacmud +dalind +daread +daprid +daflo +daflod +intd +difd +expflo +expflod +facflo +facflod +fexpo +etcom +etpoi +exp1d +expnd2 +flofacg +flofac +liefact +mapnorm +gettura +setidpr +mapnormf +get_flip_info +flip +flip_real_array +flip_resonance +flipflo +flip_i +gofix +orderflo +nuanaflo +dhdjflo +h2pluflo +rotflo +rotiflo +hyper +ctor +rtoc +ctorflo +rtocflo +ctord +rtocd +resvec +reelflo +midbflo +mapflol +mulnd2 +movearou +movemul +initpert +cpart +ctoi +itoc +etrtc +etctr +etcjg +eig6 +ety +etyt +ety2 +etdiv +sympl3 +diagonalise_envelope_a +mapflol6s +eig6s +movearous +movemuls + +File: code/h_definition.f90 +definition +i_ +kind +i_ +kind +case1 +case2 +case0 +casep1 +casep2 +caset +casetf1 +casetf2 +wiggler_suntao +ndim2t +sub_taylor +taylor +universal_taylor +c_universal_taylor +complextaylor +real_8 +quaternion +complex_quaternion +quaternion_8 +complex_8 +spinor +spinor_8 +dascratch +dalevel +damap +gmap +vecfield +pbfield +tree +dragtfinn +reversedragtfinn +onelieexponent +normalform +genfield +pbresonance +vecresonance +taylorresonance +tree_element +rf_phasor +rf_phasor_8 +probe +probe_8 +temporal_probe +temporal_beam +c_taylor +c_dascratch +c_dalevel +c_spinmatrix +c_spinor +c_yu_w +c_quaternion +c_damap +c_vector_field +c_vector_field_fourier +c_factored_lie +c_normal_form +c_ray +fibre_array +node_array +in_bmad_units +in_ptc_units +alloc_fibre_array +kill_fibre_array +reset_aperture_flag +produce_aperture_flag + +File: code/Ci_tpsa.f90 +c_tpsa +ndim2t +compute_lattice_functions +procedure +procedure +abs_square +procedure +abs +procedure +assignment +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +assignment +procedure +procedure +procedure +procedure +procedure +operator +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +operator +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +operator +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +operator +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +operator +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +operator +procedure +operator +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +operator +procedure +procedure +operator +procedure +procedure +procedure +operator +procedure +procedure +procedure +procedure +procedure +procedure +operator +procedure +procedure +operator +procedure +procedure +operator +procedure +operator +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +operator +procedure +operator +procedure +procedure +procedure +procedure +operator +procedure +operator +procedure +procedure +procedure +operator +procedure +procedure +procedure +procedure +procedure +procedure +operator +procedure +operator +procedure +operator +procedure +operator +procedure +operator +procedure +procedure +checksymp +procedure +q_part +procedure +c_phasor +procedure +ci_phasor +procedure +clean +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +c_simil +procedure +procedure +texp_inv +procedure +exp_inv +procedure +real +procedure +aimag +procedure +cget_field_c_universal_taylor +procedure +get_field_c_universal_taylor +procedure +exp_mat +procedure +procedure +exp +procedure +procedure +procedure +procedure +procedure +procedure +procedure +makequaternion +procedure +makeso3 +procedure +procedure +average +procedure +iexp +procedure +texp +procedure +procedure +procedure +procedure +procedure +procedure +procedure +abs +procedure +dabs +procedure +exp +procedure +dexp +procedure +cexp +procedure +cdexp +procedure +log +procedure +procedure +procedure +procedure +ln +procedure +cos +procedure +cdcos +procedure +dcos +procedure +ccos +procedure +sin +procedure +cdsin +procedure +ccsin +procedure +dsin +procedure +sqrt +procedure +tan +procedure +dtan +procedure +c_pek +procedure +c_pok +procedure +shiftda +procedure +cfu +procedure +full_abs +procedure +daread +procedure +procedure +procedure +procedure +procedure +procedure +read +procedure +procedure +procedure +procedure +procedure +procedure +daprint +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +print +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +daprint +procedure +procedure +procedure +print +procedure +procedure +procedure +procedure +procedure +alloc +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +alloc_nn +procedure +kill_nn +procedure +matmul_nn +procedure +matmulr_nn +procedure +procedure +kill +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +procedure +alloctpsa +procedure +killtpsa +procedure +ass +procedure +alloc +procedure +procedure +kill +procedure +procedure +get_rf +c_get_indices +locally_set_da_pointers +c_count_taylor +unaryadd +unarysub +unarysub_vec +unarysub_q +unarysub_spinor +normalise_spinor +orthogonalise_spin_matrix +dotc_spinor +c_maketree +c_allocda +alloc_c_quaternion +kill_c_quaternion +c_a_opt +k_opt +a_opt_c_damap +k_opt_c_damap +a_opt_c_vector +k_opt_c_vector +c_allocdas +c_killda +c_killdas +alloc_c_damap +alloc_c_damaps +alloc_c_yu_w +kill_c_yu_w +alloc_c_vector_field +alloc_c_factored_lie +alloc_c_normal_form +kill_c_normal_form +kill_c_factored_lie +kill_c_damap +kill_c_damaps +kill_c_vector_field +alloc_c_spinmatrix +alloc_c_spinor +kill_c_spinor +kill_c_spinmatrix +c_real +c_aimag +equalc_t +equalt_c +equalc_ray_ray +equalc_ray_r6 +equalc_ray_r6r +equalc_r6_ray +equalc_r6r_ray +equalc_t_ct +equalc_ct_c +equalc_cmap_map +equalc_map_cmap +equal_c_spinmatrix_probe +equal_probe_c_spinmatrix +equal_c_spinmatrix_3_by_3 +equal_3_by_3_c_spinmatrix +equal_3_by_3_probe +equal_probe_3_by_3 +equalc_cvec_vec +equalc_cspinor_cspinor +equalc_spinor_c_quaternion +equalc_quaternion_c_spinor +equalc_spinor_cspinor +equalc_cspinor_spinor +c_dpekmap +c_dpokmap +equal +equal_map_real8 +equal_map_complex8 +equal_real8_map +equal_complex8_map +equal_c_tayls +equalspinmatrix +cdequal +dequal +requal +daabsequal +cdequaldacon +dequaldacon +dequaldacons +equaldacon +iequaldacon +dexpt +c_logt +flatten_c_factored_lie_r +flatten_c_factored_lie +c_logf_spin +c_logf +c_logc +get_log +full_abst +dtant +dcost +dsint +sqrtt +mul +pbbra +cpbbra +liebraquaternion +liebra +getorder +getordermap +getorderquaternion +getorderspinmatrix +getordervec +from_phasor +to_phasor +cutorder +cutordermap +cutordervec +cutorderspin +cutorderquaternion +cutorderspinor +dputchar +dputcharr +dputint +dputintr +c_dputint0 +c_dputint0r +getcharnd2s +getintnd2s +getintk +getchar +getint +getintmat +getdiff +getdiff_universal +getintegrate +getpb +cgetpb +getpb_from_transverse +derive +getvectorfield +getvectorfield_universal +cgetvectorfield_universal +cgetvectorfield +getdatra +pow +cdmulsc +dmulsc +mulsc +imulsc +cdscmul +dscmul +scmul +iscmul +div +cdscdiv +dscdiv +scdiv +iscdiv +cddivsc +ddivsc +divsc +idivsc +add +addq +absq2 +absq +mulq +mulcq +subq +c_invq +powq +powql +equalq +equalq_c_r +equalq_r_c +equalql_i +equalql_r +qua_ql +equal_c_l_f +compute_lattice_functions_2 +compute_lattice_functions_1 +equalql_c_spin +equalql_q +equalql_cmap +equalcmap_ql +equalq_ql +equal_c_quaternion_complex_quaternion +equal_complex_quaternion_c_quaternion +equalql_ql +print_ql +inv_symplectic66 +inv_c_linear_map +inv_c_linear_map_symplectic +mulqdiv +mul_ql_m +mul_ql_cm +addql +mulql +subql +equalq_c_8 +equalq_8_c +equalq_r +equalq_i +matrix_to_quaternion_in_c_damap +quaternion_to_matrix_in_c_damap +c_linear_map_to_matrix +cdaddsc +daddsca +addsc +iaddsc +cdscadd +dscadd +scadd +iscadd +subs +cdsubsc +dsubsc +subsc +isubsc +cdscsub +dscsub +scsub +iscsub +varf +varf001 +shift000 +c_pek000 +c_pok000 +c_taylor_ran +c_cfu000 +c_taylor_eps +getcharnd2 +getintnd2_universal +lfilter +getintnd2 +getintnd2t +c_taylor_cycle +c_cycle +c_check_snake +check_j +check_harmonic_order +filter +c_filter_part +c_pri_c_ray +pri_matrix +c_pri_matrix +c_pri_map +print_e_ij +c_pri_quaternion +c_read_quaternion +c_read_map +c_pri_vec +c_pri_factored_lie +c_pri_spinmatrix +c_read_spinmatrix +c_full_norm_spin +c_norm_spin +c_pri_spinor +c_read_spinor +c_pri +printcomplex +printpoly +print6 +daprinttaylors +c_rea +dareadtaylors +c_crap1 +c_real_stop +c_ndum_warning_user +set_up +de_set_up +null_it +line_l +ring_l +append_da +insert_da +c_alloc_da +kill_dalevel +dealloc_dascratch +set_up_level +c_report_level +c_assign +c_deassign +c_asstaylor +c_ass0 +c_assmap +c_ass_quaternion +c_ass_spinmatrix +c_ass_spinor +c_ass_vector_field +c_norm +c_clean_yu_w +clean_matrix_complex +clean_vector_complex +clean_matrix +clean_vector +clean_c_universal_taylor +c_clean_taylor +c_clean_linear_map +c_clean_spinmatrix +c_clean_quaternion +c_clean_spinor +c_clean_damap +c_clean_cm +c_clean_c_factored_lie +c_clean_vector_field +c_bmad_reinit +c_init +init_map_all +c_init_all +c_etcct +c_etinv +c_etpin +transform_vector_field_by_map +c_concat +c_concat_tpsa +c_adjoint +c_adjoint_vec +c_spinmatrix_spinmatrix +c_spinmatrix_mul_cray +c_quaternion_mul_cray +c_spinmatrix_spinor +c_transpose +c_spinor_cmap +c_spinor_cmap_tpsa +c_complex_spinmatrix +c_spinmatrix_add_spinmatrix +c_spinmatrix_sub_spinmatrix +c_spinor_add_spinor +c_spinor_sub_spinor +c_taylor_spinor +c_complex_spinor +c_real_spinor +c_spinor_spinor +c_trxspinmatrix +c_trxquaternion +c_trxquaternion_tpsa +c_trxspinmatrixda +c_trxtaylor +c_trxtaylor_da +c_concat_spinor_ray +c_concat_spinmatrix_ray +c_concat_quaternion_ray +c_concat_c_ray +c_concat_map_ray +c_concat_vector_field_ray +c_bra_v_ct +c_bra_v_q +c_bra_v_dm +powmap +powmap_inv +pow_tpsamap +pow_tpsamapnew +powmaps +c_equalmap +c_map_vec +c_equalvec +c_equalcray +c_identityequalmap +c_zero_constant_in_map +c_identityequalspin +c_identityequalspinor +c_identityequalvec +c_identityequalfactored +matrixmapr +r_matrixmapr +matrixvecfr +r_matrixvecfr +mapmatrixr +r_mapmatrixr +c_linear_a +c_linear_a_stoch +c_locate_planes +c_locate_modulated_magnet_planes +c_linear_ac_longitudinal +c_gofix +c_factor_map +c_canonise +c_full_factor_map_old +c_full_canonise +c_identify_resonance +c_full_factorise +c_normal_spin_linear_quaternion +c_normal_spin_linear +c_convert_spin +coast +c_normal_radiation +c_stochastic_kick +check_kernel +check_resonance +check_resonance_spin +c_kernel +c_average +c_expflo_fac +c_expflo_fac_inv +c_add_map +c_sub_map +c_1_vf_q +c_1_map +c_add_vf +c_sub_vf +real_mul_map +complex_mul_map +real_mul_vec +complex_mul_vec +c_taylor_mul_vec +map_mul_vec_q +map_mul_vec +exp_ad +iexp_ad +c_expflo_map +c_expflo +c_flofacg +c_find_n0 +c_n0_to_nr +c_nr_to_n0 +c_q0_to_qr +c_qr_to_q0 +c_find_om_da +c_find_as +c_inv_as +c_find_spin_angle +c_log_spinmatrix +c_vector_field_quaternion +c_exp_spinmatrix +c_exp_quaternion +c_exp_vectorfield_on_quaternion +c_full_norm_damap +c_full_norm_spin_map +c_full_norm_spinmatrix +c_full_norm_quaternion +c_norm_spinmatrix +c_full_norm_vector_field +c_full_norm_spinor +c_full_norm_fourier +c_check_rad +c_check_rad_spin +c_exp_mat_ +c_norm_matrix +exp_mat_ +norm_matrix +c_eig6 +ety +etyt +ety2 +etdiv +teng_edwards_a1 +c_int_partial +copy_damap_matrix +invert_22 +dagger_22 +matmulr_33 +matmult_33 +matmul_33 +dalloc_33t +prin_33t +dkill_33t +copy_matrix_matrix +extract_linear_from_normalised +extract_a0 +extract_only_a0 +extract_a1 +extract_only_a1 +extract_a2 +factor_ely_rest +c_remove_y_rot +produce_orthogonal +orthogonalise_ray +c_identityequalvecfourier +equal_c_vector_field_fourier +alloc_c_vector_field_fourier +kill_c_vector_field_fourier +transform_vector_field_fourier_by_map +transform_vector_field_fourier_to_qr +transform_vector_field_fourier_to_q0 +exp_vector_field_fourier +ddt_vector_field_fourier +print_vector_field_fourier +print_poisson_bracket_fourier +bra_vector_field_fourier +add_vector_field_fourier +mulc_vector_field_fourier +c_clean_vector_field_fourier +c_clean_taylors +c_evaluate_vector_field_fourier +create_rotation_linear_field +symplectify_for_sethna +nth_root +alloc_node_array_tpsa +kill_node_array_tpsa +kill_node_array +alloc_node_array +get_c_yu_w +transform_c_yu_w +c_fast_canonise +canonize_damping +extract_a0_mat +set_tree_g_complex_zhe +set_tree_g_complex_zhe_as_is +fill_tree_element_line_zhe_outside_map +compute_lie_map_matrix_complex +compute_lie_map_matrix +create_taylor_vector +init_moment_map +create_moment_map_one +create_vector_field +create_moment_map_one_complex +create_moment_map +create_yu_map +norm_moment_matrix +matinvn +ludcmp_nr0n +lubksb_nr0n +copy_tree_into_tree_zhe +print_tree_element +print_tree_elements +read_tree_element +read_tree_elements +symplectify_for_zhe +furman_symp +furman_step +checksympn +cholesky_dt +c_kill_uni +c_kill_unis +c_null_uni +c_alloc_u +c_alloc_us +c_get_coeff +c_fill_uni_r +c_fill_uni +c_fill_uni_complextaylor +c_concat_c_uni_ray +c_concat_c_uni_rays +c_equal_uni +c_refill_uni +c_printunitaylors +c_printunitaylor_old +r_field_for_demin +d_field_for_demin +c_uni_reorder +d_mod_demin +check_re +symplectify_general +normalise_vector_field_fourier +check_kernel_ham +check_kernel_spin1 +gramschmidt +c_normal +c_normal_new +c_normal_new_no_fac + File: code/St_pointers.f90 pointer_lattice script @@ -6051,6 +5955,102 @@ gino_ptc_command77 read_mad_command77 my_user_routine1 +File: code/cc_dabnew.f90 +c_dabnew +c_daall1 +c_daall +c_daall0 +c_dadal +c_dadal1 +c_davar +c_dacma +c_daini +dalc_lsta +daalc_lno1 +daall +daall1 +c_print_c_nda_dab_c_lda +c_etall1 +c_daall0 +dadal +c_dadal1 +c_count_da +c_davar +c_dacon +c_danot +c_daeps +c_print_eps +c_dapek +c_dapok +daclr +c_dacop +c_real_imag +c_daadd +c_datrunc +c_dasub +c_damul +damult +c_dadiv +dasqr +dasqrt +c_dacad +c_dacsu +c_dasuc +c_dacmu +dacmut +c_dacdi +c_dadic +dacma +dalin +dalint +c_daabs +dacctt1 +dacctt2tpsa +dacctt2da +c_dacctt2datest +c_dacct +dacctt +c_mtree +ppushprint +ppushstore +ppushgetn +ppush +ppush1 +dainvt1 +dainvt2 +c_dainv +dainvt +dapin +c_dapint +c_dader +dadert +c_dacfu +dacfut +c_dapri +c_clean_complex +c_dapri77 +c_dashift +c_darea +c_darea77 +dadeb +dainf +dapac +dachk +damch +dadcd +dancd +c_datra +hash +dehash +c_dacycle +c_dafun +dafunt +c_take +c_daran +c_dapek0 +c_dapok0 +c_etcom + File: code/m_real_polymorph.f90 polymorphic_taylor i4b diff --git a/regression_tests/bookkeeper_test/bookkeeper_test.f90 b/regression_tests/bookkeeper_test/bookkeeper_test.f90 index 2c5ea6207..b56b2555f 100644 --- a/regression_tests/bookkeeper_test/bookkeeper_test.f90 +++ b/regression_tests/bookkeeper_test/bookkeeper_test.f90 @@ -7,7 +7,7 @@ program bookkeeper_test implicit none type (lat_struct), target :: lat, lat2, lat3 -type (ele_struct), pointer :: ele, nele, slave +type (ele_struct), pointer :: ele, ele2, nele, slave type (ele_struct) a_ele type (ele_pointer_struct), allocatable :: eles(:) type (coord_struct) orb @@ -16,6 +16,7 @@ program bookkeeper_test type (nametable_struct) ntab type (expression_atom_struct), allocatable :: stack(:) type (ele_pointer_struct), allocatable :: ramper(:) +type (material_struct), pointer :: mater(:), mater2(:) character(40) :: lat_file = 'bookkeeper_test.bmad' character(40) :: loc_str(19) = [character(40):: 'qu1-1', 'qu1-5', 'qu2+1', 'qu2+10', & @@ -153,7 +154,7 @@ program bookkeeper_test call taylor_to_mat6(lat3%ele(1)%taylor, r0, vec2, m2) write (1, '(a, es12.3)') '"Hybrid" ABS 1e-12 ', maxval(abs(m2-m1))+sum(abs(vec2-vec1)) -!------------- +!-------------------------------------------- call bmad_parser (lat_file, lat, make_mats6 = .false., err_flag = err); if (err) stop @@ -264,7 +265,7 @@ program bookkeeper_test call lat_ele_locator ('quad::*', lat, eles, n_loc, err) write (1, '(a, i4)') '"N_Quad_Loc" ABS 0', n_loc -! +!---------------------------------------------------------------------- call bmad_parser('pipe_superimpose.bmad', lat) ele => lat%ele(6) @@ -276,6 +277,27 @@ program bookkeeper_test write (1, '(a, l1, a)') '"Pipe-superimpose-state" STR "', slave%bookkeeping_state%has_misalign, '"' write (1, '(a, 2es24.16)') '"Pipe-superimpose-val" REL 1E-14 ', slave%value(x_offset$), slave%value(x_offset_tot$) +!---------------------------------------------------------------------- + +call bmad_parser('bookkeeper_test3.bmad', lat) +call write_bmad_lattice_file('lat2.bmad', lat) +call bmad_parser('lat2.bmad', lat2) + +do i = 1, 3 + ele => lat%ele(i); mater => ele%foil%material + ele2 => lat2%ele(i); mater2 => ele2%foil%material + write(1, '(a, i0, a, 4es20.12)') '"density-', i, '" REL 1E-12', mater%density, mater2%density + write(1, '(a, i0, a, 4es20.12)') '"density_used-', i, '" REL 1E-12', mater%density_used, mater2%density_used + write(1, '(a, i0, a, 4es20.12)') '"area_density-', i, '" REL 1E-12', mater%area_density, mater2%area_density + write(1, '(a, i0, a, 4es20.12)') '"area_density_used-', i, '" REL 1E-12', mater%area_density_used, mater2%area_density_used + write(1, '(a, i0, a, 4es20.12)') '"radiation_length-', i, '" REL 1E-12', mater%radiation_length, mater2%radiation_length + write(1, '(a, i0, a, 4es20.12)') '"radiation_length_used-', i, '" REL 1E-12', mater%radiation_length_used, mater2%radiation_length_used + write(1, '(a, i0, a, 4i16)') '"species-', i, '" REL 1E-12', mater%species, mater2%species + write(1, '(a, i0, a, 4i4)') '"number-', i, '" REL 1E-12', mater%number, mater2%number +enddo + +! + close(1) end program diff --git a/regression_tests/bookkeeper_test/bookkeeper_test3.bmad b/regression_tests/bookkeeper_test/bookkeeper_test3.bmad new file mode 100644 index 000000000..be8e3d244 --- /dev/null +++ b/regression_tests/bookkeeper_test/bookkeeper_test3.bmad @@ -0,0 +1,33 @@ +no_digested +parameter[ran_seed] = 1234 +parameter[n_part] = 1e10 +parameter[ptc_exact_model] = true +parameter[geometry] = open +beginning[beta_a] = 10 +beginning[beta_b] = 10 + +particle_start[x] = 0.001 +particle_start[px] = 0.002 +particle_start[y] = 0.003 +particle_start[py] = 0.004 +particle_start[z] = 0.005 +particle_start[pz] = 0.006 +particle_start[spin_x] = 0.3 +particle_start[spin_y] = 0.4 +particle_start[spin_z] = 0.5 + + +foil1: foil, material_type = "B4C", thickness = 1e-4, density = 15e3, radiation_length = (5.26868, 4.26983), dthickness_dx = 0.01 +foil2: foil, material_type = "B4C", thickness = 1e-4, density = (12e3, 3e3), radiation_length = (5.26868, 4.26983), dthickness_dx = 0.01 +foil3: foil, material_type = "B4C", thickness = 0, area_density = 2.37e-1, scatter_method = lynch_dahl + +!--------------- + +l4: line = (foil1, foil2, foil3) +l4[geometry] = open +l4[e_tot] = 210e10 +l4[particle] = #209Bi+43 +l4[beta_a] = 10 +l4[beta_b] = 10 + +use, l4 diff --git a/regression_tests/bookkeeper_test/output.correct b/regression_tests/bookkeeper_test/output.correct index 46fc00b8d..24f8aaf9a 100644 --- a/regression_tests/bookkeeper_test/output.correct +++ b/regression_tests/bookkeeper_test/output.correct @@ -162,7 +162,7 @@ "ele32" ABS 0 33 1 0 0 0 0 "ele33" ABS 0 34 3 0 37 1 0 "ele34" ABS 0 37 1 0 0 0 0 -"Hybrid" ABS 1e-12 3.887E-15 +"Hybrid" ABS 1e-12 2.058E-15 "ON_OFF_SAVE" ABS 0 0.100 0.300 0.400 0.200 "Q1#1[L]" ABS 0 1.5000 "Q1\Q4[L]" ABS 0 0.5000 @@ -219,3 +219,27 @@ "N_Quad_Loc" ABS 0 9 "Pipe-superimpose-state" STR "T" "Pipe-superimpose-val" REL 1E-14 1.2345679104328156E-02 1.2345679104328156E-02 +"density-1" ABS 1E-12 1.174006506878E+04 3.259934931222E+03 1.174006506878E+04 3.259934931222E+03 +"density_used-1" ABS 1E-12 1.174006506878E+04 3.259934931222E+03 1.174006506878E+04 3.259934931222E+03 +"area_density-1" ABS 1E-12 -9.876543125000E+05 -9.876543125000E+05 -9.876543125000E+05 -9.876543125000E+05 +"area_density_used-1" ABS 1E-12 1.174006506878E+00 3.259934931222E-01 1.174006506878E+00 3.259934931222E-01 +"radiation_length-1" ABS 1E-12 5.268680000000E+00 4.269830000000E+00 5.268680000000E+00 4.269830000000E+00 +"radiation_length_used-1" ABS 1E-12 5.268680000000E+00 4.269830000000E+00 5.268680000000E+00 4.269830000000E+00 +"species-1" ABS 1E-12 327680 393216 327680 393216 +"number-1" ABS 1E-12 4 1 4 1 +"density-2" ABS 1E-12 1.200000000000E+04 3.000000000000E+03 1.200000000000E+04 3.000000000000E+03 +"density_used-2" ABS 1E-12 1.200000000000E+04 3.000000000000E+03 1.200000000000E+04 3.000000000000E+03 +"area_density-2" ABS 1E-12 -9.876543125000E+05 -9.876543125000E+05 -9.876543125000E+05 -9.876543125000E+05 +"area_density_used-2" ABS 1E-12 1.200000000000E+00 3.000000000000E-01 1.200000000000E+00 3.000000000000E-01 +"radiation_length-2" ABS 1E-12 5.268680000000E+00 4.269830000000E+00 5.268680000000E+00 4.269830000000E+00 +"radiation_length_used-2" ABS 1E-12 5.268680000000E+00 4.269830000000E+00 5.268680000000E+00 4.269830000000E+00 +"species-2" ABS 1E-12 327680 393216 327680 393216 +"number-2" ABS 1E-12 4 1 4 1 +"density-3" ABS 1E-12 -9.876543125000E+05 -9.876543125000E+05 -9.876543125000E+05 -9.876543125000E+05 +"density_used-3" ABS 1E-12 -9.876543125000E+05 -9.876543125000E+05 -9.876543125000E+05 -9.876543125000E+05 +"area_density-3" ABS 1E-12 1.854930280867E-01 5.150697191330E-02 1.854930280867E-01 5.150697191330E-02 +"area_density_used-3" ABS 1E-12 1.854930280867E-01 5.150697191330E-02 1.854930280867E-01 5.150697191330E-02 +"radiation_length-3" ABS 1E-12 -9.876543125000E+05 -9.876543125000E+05 -9.876543125000E+05 -9.876543125000E+05 +"radiation_length_used-3" ABS 1E-12 5.268679809570E+02 4.269829940796E+02 5.268679809570E+02 4.269829940796E+02 +"species-3" ABS 1E-12 327680 393216 327680 393216 +"number-3" ABS 1E-12 4 1 4 1 diff --git a/sim_utils/searchf.namelist b/sim_utils/searchf.namelist index 9fc37338c..1ddf75798 100644 --- a/sim_utils/searchf.namelist +++ b/sim_utils/searchf.namelist @@ -24,14 +24,6 @@ file_get_open File: file/file_suffixer.f90 file_suffixer -File: file/filename_mod.f90 -filename_mod -fullfilename -splitfilename -file_name_is_relative -simplify_path -append_subdirectory - File: file/get_file_number.f90 get_file_number @@ -68,6 +60,14 @@ skip_header File: file/type_this_file.f90 type_this_file +File: file/filename_mod.f90 +filename_mod +fullfilename +splitfilename +file_name_is_relative +simplify_path +append_subdirectory + File: geodesic_lm/accept.f90 acceptance @@ -206,61 +206,6 @@ i4_b global_common_struct named_number_struct -File: interfaces/sim_utils_struct.f90 -sim_utils_struct -var_length_string_struct -str_index_struct -nametable_struct -all_pointer_struct -i_imaginary -i_imag -int_garbage$ -real_garbage$ -null_name$ -str_garbage$ -lf$ -invalid$ -not_set$ -invalid_name -molecular_component_struct -x_axis$ -y_axis$ -z_axis$ -xy_axis$ -true$ -false$ -true_int$ -false_int$ -yes$ -no$ -maybe$ -provisional$ -rl_prompt_start_ignore -rl_prompt_end_ignore -black_color -red_color -green_color -yellow_color -blue_color -magenta_color -cyan_color -gray_color -dark_gray_color -peach_color -light_green_color -light_yellow_color -light_blue_color -pink_color -aqua_color -white_color -blink_color -bold_color -reset_color -int_logic -is_true -is_false -value_of_all_ptr - File: interfaces/sim_utils_interface.f90 sim_utils_interface set_parameter @@ -362,6 +307,61 @@ find_location_int find_location_logic find_location_str +File: interfaces/sim_utils_struct.f90 +sim_utils_struct +var_length_string_struct +str_index_struct +nametable_struct +all_pointer_struct +i_imaginary +i_imag +int_garbage$ +real_garbage$ +null_name$ +str_garbage$ +lf$ +invalid$ +not_set$ +invalid_name +molecular_component_struct +x_axis$ +y_axis$ +z_axis$ +xy_axis$ +true$ +false$ +true_int$ +false_int$ +yes$ +no$ +maybe$ +provisional$ +rl_prompt_start_ignore +rl_prompt_end_ignore +black_color +red_color +green_color +yellow_color +blue_color +magenta_color +cyan_color +gray_color +dark_gray_color +peach_color +light_green_color +light_yellow_color +light_blue_color +pink_color +aqua_color +white_color +blink_color +bold_color +reset_color +int_logic +is_true +is_false +value_of_all_ptr + File: io/command_line_mod.f90 command_line_mod cesr_iargc @@ -587,6 +587,9 @@ da2_evaluate File: math/fft_1d.f90 fft_1d +File: math/quadratic_roots.f90 +quadratic_roots + File: math/random_mod.f90 random_mod kr4b @@ -619,6 +622,36 @@ super_sobseq pointer_to_ran_state allocate_thread_states +File: math/rotation_3d_mod.f90 +rotation_3d_mod +quat_conj +procedure +procedure +quat_mul +procedure +procedure +quat_rotate +procedure +procedure +w_mat_to_axis_angle +w_mat_to_quat +quat_to_w_mat +axis_angle_to_w_mat +quat_to_omega +omega_to_quat +quat_to_axis_angle +axis_angle_to_quat +quat_conj_real +quat_conj_complex +quat_inverse +quat_mul_real +quat_mul_complex +quat_rotate_real +quat_rotate_complex +rotate_vec_given_axis_angle +rotate_vec +rotate_mat + File: math/spline_mod.f90 spline_mod spline_struct @@ -659,39 +692,6 @@ trapzd_2d super_poly covar_expand -File: math/rotation_3d_mod.f90 -rotation_3d_mod -quat_conj -procedure -procedure -quat_mul -procedure -procedure -quat_rotate -procedure -procedure -w_mat_to_axis_angle -w_mat_to_quat -quat_to_w_mat -axis_angle_to_w_mat -quat_to_omega -omega_to_quat -quat_to_axis_angle -axis_angle_to_quat -quat_conj_real -quat_conj_complex -quat_inverse -quat_mul_real -quat_mul_complex -quat_rotate_real -quat_rotate_complex -rotate_vec_given_axis_angle -rotate_vec -rotate_mat - -File: math/quadratic_roots.f90 -quadratic_roots - File: matrix/cplx_mat_inverse.f90 cplx_mat_inverse @@ -737,15 +737,15 @@ svd_fit File: matrix/mat_eigen.f90 mat_eigen +File: matrix/mat_inverse.f90 +mat_inverse + File: matrix/mat_symp_conj.f90 mat_symp_conj File: matrix/mat_symp_conj_i.f90 mat_symp_conj_i -File: matrix/mat_inverse.f90 -mat_inverse - File: misc/assert_equal.f90 assert_equal @@ -963,17 +963,17 @@ File: optimizers/opti.cpp RandInt UniRand +File: optimizers/opti_de_openmp_mod.f90 +opti_de_openmp_mod +opti_de_openmp +solution_struct + File: optimizers/opti_de_mod.f90 opti_de_mod opti_de_param_struct opti_de solution_struct -File: optimizers/opti_de_openmp_mod.f90 -opti_de_openmp_mod -opti_de_openmp -solution_struct - File: plot/display_size_and_resolution.c display_size_and_res display_size_and_res @@ -1066,6 +1066,76 @@ qp_select_page_basic qp_close_page_basic qp_end_basic +File: plot/quick_plot_struct.f90 +quick_plot_struct +white$ +black$ +red$ +green$ +blue$ +cyan$ +magenta$ +yellow$ +orange$ +yellow_green$ +light_green$ +navy_blue$ +purple$ +reddish_purple$ +dark_grey$ +light_grey$ +transparent$ +qp_color_name +solid$ +dashed$ +dash_dot$ +dotted$ +dash_dot3$ +qp_line_pattern_name +solid_fill$ +no_fill$ +hatched$ +cross_hatched$ +qp_symbol_fill_pattern_name +square_sym$ +dot_sym$ +plus_sym$ +times_sym$ +circle_sym$ +x_symbol_sym$ +triangle_sym$ +circle_plus_sym$ +circle_dot_sym$ +square_concave_sym$ +diamond_sym$ +star5_sym$ +triangle_filled_sym$ +red_cross_sym$ +star_of_david_sym$ +square_filled_sym$ +circle_filled_sym$ +star5_filled_sym$ +qp_symbol_type_name +dflt_draw$ +dflt_set$ +print_page_long_len +print_page_short_len +filled_arrow_head$ +outline_arrow_head$ +qp_arrow_head_type_name +qp_axis_struct +qp_plot_struct +qp_point_struct +qp_rect_struct +qp_text_struct +qp_line_struct +qp_symbol_struct +qp_arrow_struct +qp_legend_struct +qp_state_struct +qp_string_to_enum +qp_enum_to_string + File: plot/quick_plot.f90 quick_plot qp_base_library @@ -1159,76 +1229,6 @@ qp_continuous_color qp_continuous_color_inverse qp_end -File: plot/quick_plot_struct.f90 -quick_plot_struct -white$ -black$ -red$ -green$ -blue$ -cyan$ -magenta$ -yellow$ -orange$ -yellow_green$ -light_green$ -navy_blue$ -purple$ -reddish_purple$ -dark_grey$ -light_grey$ -transparent$ -qp_color_name -solid$ -dashed$ -dash_dot$ -dotted$ -dash_dot3$ -qp_line_pattern_name -solid_fill$ -no_fill$ -hatched$ -cross_hatched$ -qp_symbol_fill_pattern_name -square_sym$ -dot_sym$ -plus_sym$ -times_sym$ -circle_sym$ -x_symbol_sym$ -triangle_sym$ -circle_plus_sym$ -circle_dot_sym$ -square_concave_sym$ -diamond_sym$ -star5_sym$ -triangle_filled_sym$ -red_cross_sym$ -star_of_david_sym$ -square_filled_sym$ -circle_filled_sym$ -star5_filled_sym$ -qp_symbol_type_name -dflt_draw$ -dflt_set$ -print_page_long_len -print_page_short_len -filled_arrow_head$ -outline_arrow_head$ -qp_arrow_head_type_name -qp_axis_struct -qp_plot_struct -qp_point_struct -qp_rect_struct -qp_text_struct -qp_line_struct -qp_symbol_struct -qp_arrow_struct -qp_legend_struct -qp_state_struct -qp_string_to_enum -qp_enum_to_string - File: special_functions/asinc.f90 asinc diff --git a/tao/searchf.namelist b/tao/searchf.namelist new file mode 100644 index 000000000..b3e285f58 --- /dev/null +++ b/tao/searchf.namelist @@ -0,0 +1,872 @@ + +File: code/tao_beam_track_endpoint.f90 +tao_beam_track_endpoint + +File: code/tao_alias_cmd.f90 +tao_alias_cmd + +File: code/tao_beam_emit_calc.f90 +tao_beam_emit_calc + +File: code/tao_c_interface_mod.f90 +tao_c_interface_mod +tao_c_interface_common_struct +re_allocate_c_double +tao_c_init_tao +tao_c_command +tao_c_out_io_buffer_num_lines +tao_c_real_array_size +tao_c_integer_array_size +tao_c_out_io_buffer_get_line +tao_c_get_real_array +tao_c_get_integer_array +tao_c_out_io_buffer_reset + +File: code/tao_branch_index.f90 +tao_branch_index + +File: code/tao_change_mod.f90 +tao_change_mod +tao_change_tune +tao_change_z_tune +tao_change_var +tao_change_ele +tao_to_change_number + +File: code/tao_call_cmd.f90 +tao_call_cmd + +File: code/tao_cmd_end_calc.f90 +tao_cmd_end_calc + +File: code/tao_chrom_calc_needed.f90 +tao_chrom_calc_needed + +File: code/tao_clear_cmd.f90 +tao_clear_cmd + +File: code/tao_clip_cmd.f90 +tao_clip_cmd + +File: code/tao_close_command_file.f90 +tao_close_command_file + +File: code/tao_command.f90 +tao_command + +File: code/tao_help.f90 +tao_help + +File: code/tao_command_mod.f90 +tao_command_mod +tao_cmd_history_record +tao_re_execute +tao_cmd_split +tao_next_word +tao_next_switch + +File: code/tao_constraint_type_name.f90 +tao_constraint_type_name + +File: code/tao_control_tree_list.f90 +tao_control_tree_list + +File: code/tao_count_strings.f90 +tao_count_strings + +File: code/tao_curve_ix_uni.f90 +tao_curve_ix_uni + +File: code/tao_curve_name.f90 +tao_curve_name + +File: code/tao_curve_rms_calc.f90 +tao_curve_rms_calc + +File: code/tao_d2_d1_name.f90 +tao_d2_d1_name + +File: code/tao_data_and_eval_mod.f90 +tao_data_and_eval_mod +tao_evaluate_lat_or_beam_data +tao_to_phase_and_coupling_reading +tao_get_data +tao_data_coupling_init +tao_load_this_datum +tao_datum_s_position +tao_datum_integrate +tao_tracking_ele_index +integrate_min +integrate_max +tao_scratch_values_calc +tao_do_wire_scan +tao_pointer_to_datum_ele +tao_to_real +tao_param_value_routine +tao_evaluate_datum_at_s +tao_evaluate_stack +tao_to_int +tao_ele_geometry_with_misalignments +tao_eval_floor_orbit + +File: code/tao_data_check.f90 +tao_data_check + +File: code/tao_data_sanity_check.f90 +tao_data_sanity_check + +File: code/tao_data_show_use.f90 +tao_data_show_use + +File: code/tao_datum_has_associated_ele.f90 +tao_datum_has_associated_ele + +File: code/tao_datum_name.f90 +tao_datum_name + +File: code/tao_de_optimizer.f90 +tao_de_optimizer +merit_wrapper + +File: code/tao_init_lattice.f90 +tao_init_lattice + +File: code/tao_ele_shape_info.f90 +tao_ele_shape_info + +File: code/tao_abort_command_file.f90 +tao_abort_command_file + +File: code/tao_evaluate_element_parameters.f90 +tao_evaluate_element_parameters + +File: code/tao_evaluate_tune.f90 +tao_evaluate_tune + +File: code/tao_find_data.f90 +tao_find_data + +File: code/tao_find_plot_region.f90 +tao_find_plot_region + +File: code/tao_find_plots.f90 +tao_find_plots + +File: code/tao_find_var.f90 +tao_find_var + +File: code/tao_floor_to_screen.f90 +tao_floor_to_screen + +File: code/tao_floor_to_screen_coords.f90 +tao_floor_to_screen_coords + +File: code/tao_geodesic_lm_optimizer_mod.f90 +tao_geodesic_lm_optimizer_mod +tao_geodesic_lm_optimizer +tao_geo_lm_func +callback +jacobian +avv +user_signal + +File: code/tao_get_opt_vars.f90 +tao_get_opt_vars + +File: code/tao_get_user_input_mod.f90 +tao_get_user_input_mod +tao_get_user_input +tao_alias_translate + +File: code/tao_graph_name.f90 +tao_graph_name + +File: code/tao_graph_setup_mod.f90 +tao_graph_setup_mod +tao_graph_setup +tao_graph_controller_setup +tao_graph_data_slice_setup +tao_data_type_substitute +tao_graph_phase_space_setup +tao_graph_dynamic_aperture_setup +tao_curve_beam_ellipse_setup +tao_graph_histogram_setup +tao_phase_space_axis_index +tao_particle_data_value +tao_graph_data_setup +tao_curve_data_setup +tao_calc_data_at_s_pts +tao_data_useit_plot_calc +tao_curve_datum_calc +tao_set_curve_invalid +tao_curve_check_universe +tao_graph_s_min_max_calc + +File: code/tao_init.f90 +tao_init + +File: code/tao_init_building_wall.f90 +tao_init_building_wall + +File: code/tao_init_data_mod.f90 +tao_init_data_mod +tao_init_data +tao_init_data_end_stuff +tao_allocate_data_array +tao_d2_data_stuffit +tao_init_data_in_universe +tao_point_d1_to_data + +File: code/tao_init_find_elements.f90 +tao_init_find_elements + +File: code/tao_init_mod.f90 +tao_init_mod +tao_init_global +tao_init_beams +tao_init_beam_in_universe +tao_init_dynamic_aperture + +File: code/tao_init_plotting.f90 +tao_init_plotting +tao_read_in_patterns + +File: code/tao_input_struct.f90 +tao_input_struct +tao_d2_data_input +tao_d1_data_input +tao_datum_input +tao_v1_var_input +tao_var_input +tao_region_input +tao_place_input +tao_curve_input +tao_graph_input +tao_plot_input +tao_design_lat_input +tao_key_input +tao_plot_page_input +tao_ele_shape_input +tao_set_plotting +tao_ele_shape_struct_to_input +tao_ele_shape_input_to_struct + +File: code/tao_init_variables_mod.f90 +tao_init_variables_mod +tao_init_variables +tao_var_stuffit1 +tao_allocate_v1_var +tao_var_stuffit2 +tao_pointer_to_var_in_lattice +tao_pointer_to_var_in_lattice2 +tao_allocate_var_array +tao_point_v1_to_var + +File: code/tao_interface.f90 +tao_interface +tao_pointer_to_universe +procedure +procedure +tao_hook_branch_calc_def +tao_hook_command_def +tao_hook_curve_s_pt_def +tao_hook_draw_floor_plan_def +tao_hook_draw_graph_def +tao_hook_evaluate_a_datum_def +tao_hook_graph_postsetup_def +tao_hook_graph_setup_def +tao_hook_init_beam_def +tao_hook_init_data_def +tao_hook_init_global_def +tao_hook_init_lattice_post_parse_def +tao_hook_init_plotting_def +tao_hook_init_read_lattice_info_def +tao_hook_init1_def +tao_hook_init2_def +tao_hook_init_var_def +tao_hook_lattice_calc_def +tao_hook_merit_data_def +tao_hook_merit_var_def +tao_hook_optimizer_def +tao_hook_parse_command_args_def +tao_hook_plot_setup_def +tao_hook_post_process_data_def +tao_hook_show_cmd_def +tao_pointer_to_universe_int +tao_pointer_to_universe_str +tao_uni_ampersand_index + +File: code/tao_lattice_calc.f90 +tao_lattice_calc + +File: code/tao_is_valid_name.f90 +tao_is_valid_name + +File: code/tao_json_cmd.f90 +tao_json_cmd + +File: code/tao_key_info_to_str.f90 +tao_key_info_to_str + +File: code/tao_lat_bookkeeper.f90 +tao_lat_bookkeeper + +File: code/tao_lat_emit_calc.f90 +tao_lat_emit_calc + +File: code/tao_lat_sigma_calc_needed.f90 +tao_lat_sigma_calc_needed + +File: code/tao_lattice_calc_mod.f90 +tao_lattice_calc_mod +tao_single_track +tao_lat_sigma_track +tao_beam_track +tao_too_many_particles_lost +tao_inject_particle +tao_inject_beam + +File: code/tao_place_cmd.f90 +tao_place_cmd + +File: code/tao_limit_calc.f90 +tao_limit_calc + +File: code/tao_lm_optimizer_mod.f90 +tao_lm_optimizer_mod +tao_lm_optimizer +tao_mrq_func + +File: code/tao_lmdif_optimizer.f90 +tao_lmdif_optimizer + +File: code/tao_locate_all_elements.f90 +tao_locate_all_elements + +File: code/tao_locate_elements.f90 +tao_locate_elements + +File: code/tao_mark_lattice_ele.f90 +tao_mark_lattice_ele + +File: code/tao_merit.f90 +tao_merit + +File: code/tao_one_turn_map_calc_needed.f90 +tao_one_turn_map_calc_needed + +File: code/tao_open_file.f90 +tao_open_file + +File: code/tao_open_scratch_file.f90 +tao_open_scratch_file + +File: code/tao_optimization_status.f90 +tao_optimization_status + +File: code/tao_orient_building_wall_pt.f90 +tao_oreint_building_wall_pt + +File: code/tao_param_value_at_s.f90 +tao_param_value_at_s + +File: code/tao_parse_command_args.f90 +tao_parse_command_args + +File: code/tao_parse_element_param_str.f90 +tao_parse_element_param_str + +File: code/tao_pause_cmd.f90 +tao_pause_cmd + +File: code/tao_pick_universe.f90 +tao_pick_universe + +File: code/tao_plot_mod.f90 +tao_plot_mod +tao_draw_plots +tao_plot_histogram +tao_plot_wave +tao_plot_key_table +tao_draw_floor_plan +tao_set_floor_plan_axis_label +tao_draw_ele_for_floor_plan +tao_draw_lat_layout +tao_draw_beam_chamber_wall +tao_plot_data +tao_draw_curve_data +tao_draw_histogram_data +tao_draw_graph_axes + +File: code/tao_plot_cmd.f90 +tao_plot_cmd + +File: code/tao_python_cmd.f90 +tao_python_cmd + +File: code/tao_plot_setup.f90 +tao_plot_setup + +File: code/tao_plot_struct_transfer.f90 +tao_plot_struct_transfer + +File: code/tao_plot_window_mod.f90 +tao_plot_window_mod +tao_create_plot_window +tao_destroy_plot_window + +File: code/tao_pointer_to_branches.f90 +tao_pointer_to_branches + +File: code/tao_pointer_to_building_wall_shape.f90 +tao_pointer_to_building_wall_shape + +File: code/tao_pointer_to_datum.f90 +tao_pointer_to_datum + +File: code/tao_pointer_to_ele_shape.f90 +tao_pointer_to_ele_shape + +File: code/tao_pointer_to_tao_lat.f90 +tao_pointer_to_tao_lat + +File: code/tao_pointer_to_universes.f90 +tao_pointer_to_universes + +File: code/tao_print_command_line_info.f90 +tao_print_command_line_info + +File: code/tao_ptc_cmd.f90 +tao_ptc_cmd + +File: code/tao_ptc_normal_form.f90 +tao_ptc_normal_form + +File: code/tao_dmerit_mod.f90 +tao_dmerit_mod +tao_dmodel_dvar_calc +tao_veto_vars_with_zero_dmodel +tao_dmerit_calc + +File: code/tao_quiet_set.f90 +tao_quiet_set + +File: code/tao_rad_int_calc_needed.f90 +tao_rad_int_calc_needed + +File: code/tao_re_allocate_expression_info.f90 +tao_re_allocate_expression_info + +File: code/tao_read_cmd.f90 +tao_read_cmd + +File: code/tao_read_phase_space_index.f90 +tao_read_phase_space_index + +File: code/tao_remove_blank_characters.f90 +tao_remove_blank_characters + +File: code/tao_run_cmd.f90 +tao_run_cmd + +File: code/tao_scale_mod.f90 +tao_scale_mod +tao_scale_cmd +tao_scale_plot +tao_scale_graph + +File: code/tao_scale_ping_data.f90 +tao_scale_ping_data + +File: code/tao_set_data_useit_opt.f90 +tao_set_data_useit_opt + +File: code/tao_set_opt_vars.f90 +tao_set_opt_vars + +File: code/tao_set_var_model_value.f90 +tao_set_var_model_value + +File: code/tao_set_var_useit_opt.f90 +tao_set_var_useit_opt + +File: code/tao_setup_key_table.f90 +tao_setup_key_table + +File: code/tao_shape_init.f90 +tao_shape_init + +File: code/tao_show_cmd.f90 +tao_show_cmd + +File: code/tao_spin_tracking_turn_on.f90 +tao_spin_tracking_turn_on + +File: code/tao_split_component.f90 +tao_split_component + +File: code/tao_srdt_calc_needed.f90 +tao_srdt_calc_needed + +File: code/tao_subin_uni_number.f90 +tao_subin_uni_number + +File: code/tao_svd_optimizer_mod.f90 +tao_svd_optimizer_mod +tao_svd_optimizer +tao_svd_func + +File: code/tao_symbol_import_from_lat.f90 +tao_symbol_import_from_lat + +File: code/tao_taper_cmd.f90 +tao_taper_cmd + +File: code/tao_top10_mod.f90 +tao_top10_mod +tao_top10_struct +tao_top10_merit_categories_print +tao_top10_derivative_print +tao_to_top10 +tao_show_constraints +tao_var_write +tao_print_vars +tao_write_lines + +File: code/tao_turn_on_special_calcs_if_needed_for_plotting.f90 +tao_turn_on_special_calcs_if_needed_for_plotting + +File: code/tao_universe_index.f90 +tao_universe_index + +File: code/tao_use_data.f90 +tao_use_data + +File: code/tao_use_var.f90 +tao_use_var + +File: code/tao_user_is_terminating_optimization.f90 +tao_user_is_terminating_optimization + +File: code/tao_var1_name.f90 +tao_var1_name + +File: code/tao_var_attrib_name.f90 +tao_var_attrib_name + +File: code/tao_var_check.f90 +tao_var_check + +File: code/tao_var_repoint.f90 +tao_var_repoint + +File: code/tao_var_show_use.f90 +tao_var_show_use + +File: code/tao_var_target_calc.f90 +tao_var_target_calc + +File: code/tao_var_useit_plot_calc.f90 +tao_var_useit_plot_calc + +File: code/tao_wave_mod.f90 +tao_wave_mod +tao_wave_cmd +tao_wave_analysis +tao_orbit_beta_wave_anal +tao_phase_wave_anal +tao_cbar_wave_anal +tao_wave_fit +ele_at_curve_point + +File: code/tao_x_axis_cmd.f90 +tao_x_axis_cmd + +File: code/tao_x_scale_mod.f90 +tao_x_scale_mod +tao_x_scale_cmd +tao_x_scale_plot +tao_x_scale_graph + +File: code/tao_evaluate_expression.f90 +tao_evaluate_expression + +File: code/tao_set_flags_for_changed_attribute.f90 +tao_set_flags_for_changed_attribute + +File: code/tao_spin_matrix_calc.f90 +tao_spin_matrix_calc + +File: code/tao_timer.f90 +tao_timer + +File: code/tao_write_cmd.f90 +tao_write_cmd + +File: code/tao_single_mode.f90 +tao_single_mode + +File: code/tao_spin_matrices_calc_needed.f90 +tao_spin_matrices_calc_needed + +File: code/tao_regression_test.f90 +tao_regression_test + +File: code/tao_spin_polarization_calc.f90 +tao_spin_polarization_calc + +File: code/tao_evaluate_a_datum.f90 +tao_evaluate_a_datum + +File: code/tao_top_level.f90 +tao_top_level + +File: code/tao_pipe_cmd.f90 +tao_pipe_cmd + +File: code/tao_curve_ele_ref.f90 +tao_curve_ele_ref + +File: code/tao_set_invalid.f90 +tao_set_invalid + +File: code/tao_set_mod.f90 +tao_set_mod +tao_set_tune_cmd +tao_set_z_tune_cmd +tao_set_openmp_n_threads +tao_set_calculate_cmd +tao_set_key_cmd +tao_set_ran_state_cmd +tao_set_lattice_cmd +tao_set_global_cmd +tao_set_space_charge_com_cmd +tao_set_bmad_com_cmd +tao_set_ptc_com_cmd +tao_set_geodesic_lm_cmd +tao_set_opti_de_param_cmd +tao_set_wave_cmd +tao_set_beam_cmd +tao_set_beam_init_cmd +tao_set_particle_start_cmd +tao_set_plot_page_cmd +tao_set_curve_cmd +tao_set_plot_cmd +tao_set_region_cmd +tao_set_graph_cmd +tao_set_var_cmd +tao_set_branch_cmd +tao_set_data_cmd +tao_set_default_cmd +tao_set_dynamic_aperture_cmd +tao_set_universe_cmd +tao_set_elements_cmd +tao_set_logical_value +tao_set_integer_value +tao_set_switch_value +tao_set_real_value +tao_set_drawing_cmd +tao_set_symbolic_number_cmd +tao_set_qp_rect_struct +tao_set_qp_axis_struct +tao_set_qp_point_struct + +File: code/tao_show_this.f90 +tao_show_this + +File: code/tao_struct.f90 +tao_struct +model$ +base$ +design$ +apparent_emit$ +projected_emit$ +tao_floor_plan_view_name +tao_lat_type_name +tao_data_source_name +tao_graph_type_name +tao_x_axis_type_name +tao_data_type_z_name +tao_var_merit_type_name +tao_data_merit_type_name +tao_optimizer_name +tao_shape_shape_name +present_str +negated_str +tao_shape_label_name +tao_wave_data_name +n_char_show +assignment +procedure +procedure +tao_cmd_history_struct +tao_real_pointer_struct +tao_logical_array_struct +tao_integer_array_struct +tao_string_array_struct +tao_expression_info_struct +tao_eval_stack1_struct +tao_ele_pointer_struct +tao_ele_shape_struct +tao_drawing_struct +tao_shape_pattern_point_struct +tao_shape_pattern_struct +var_num$ +lat_num$ +data_num$ +ele_num$ +tao_title_struct +tao_data_var_component_struct +tao_histogram_struct +tao_curve_orbit_struct +tao_curve_color_struct +tao_curve_struct +tao_floor_plan_struct +tao_graph_struct +tao_plot_struct +tao_plot_region_struct +n_curve_pts_init$ +tao_plot_page_struct +tao_region_array_struct +tao_plot_array_struct +tao_graph_array_struct +tao_curve_array_struct +tao_spin_map_struct +tao_data_struct +tao_d1_data_struct +tao_d2_data_struct +tao_data_array_struct +tao_d1_data_array_struct +tao_d2_data_array_struct +tao_var_slave_struct +tao_var_struct +tao_v1_var_struct +tao_var_array_struct +tao_v1_var_array_struct +tao_building_wall_orientation_struct +tao_building_wall_point_struct +tao_building_wall_section_struct +tao_building_wall_struct +tao_global_struct +tao_alias_struct +tao_command_file_struct +do_loop_struct +n_uni_init$ +tao_common_struct +tao_init_struct +tao_beam_shake_struct +tao_scratch_space_struct +tao_lat_mode_struct +tao_lat_sigma_struct +tao_spin_dn_dpz_struct +tao_spin_ele_struct +tao_spin_polarization_struct +tao_plot_cache_struct +tao_lattice_branch_struct +tao_lattice_struct +tao_model_element_struct +tao_beam_branch_struct +tao_model_branch_struct +tao_beam_uni_struct +tao_universe_calc_struct +tao_mpi_struct +tao_dynamic_aperture_struct +tao_wave_kick_pt_struct +tao_wave_struct +tao_ping_scale_struct +tao_universe_pointer_struct +tao_universe_struct +tao_super_universe_struct +tao_deallocate_plot_cache +tao_lattice_branches_equal_tao_lattice_branches +tao_lattice_equal_tao_lattice + +File: hook/tao_hook_branch_calc.f90 +tao_hook_branch_calc + +File: hook/tao_hook_command.f90 +tao_hook_command + +File: hook/tao_hook_curve_s_pt.f90 +tao_hook_curve_s_pt + +File: hook/tao_hook_draw_floor_plan.f90 +tao_hook_draw_floor_plan + +File: hook/tao_hook_draw_graph.f90 +tao_hook_draw_graph + +File: hook/tao_hook_evaluate_a_datum.f90 +tao_hook_evaluate_a_datum + +File: hook/tao_hook_graph_postsetup.f90 +tao_hook_graph_postsetup + +File: hook/tao_hook_graph_setup.f90 +tao_hook_graph_setup + +File: hook/tao_hook_init1.f90 +tao_hook_init1 + +File: hook/tao_hook_init2.f90 +tao_hook_init2 + +File: hook/tao_hook_init_beam.f90 +tao_hook_init_beam + +File: hook/tao_hook_init_data.f90 +tao_hook_init_data + +File: hook/tao_hook_init_global.f90 +tao_hook_init_global + +File: hook/tao_hook_init_lattice_post_parse.f90 +tao_hook_init_lattice_post_parse + +File: hook/tao_hook_init_plotting.f90 +tao_hook_init_plotting + +File: hook/tao_hook_init_read_lattice_info.f90 +tao_hook_init_read_lattice_info + +File: hook/tao_hook_init_var.f90 +tao_hook_init_var + +File: hook/tao_hook_lattice_calc.f90 +tao_hook_lattice_calc + +File: hook/tao_hook_merit_data.f90 +tao_hook_merit_data + +File: hook/tao_hook_merit_var.f90 +tao_hook_merit_var + +File: hook/tao_hook_optimizer.f90 +tao_hook_optimizer + +File: hook/tao_hook_parse_command_args.f90 +tao_hook_parse_command_args + +File: hook/tao_hook_plot_setup.f90 +tao_hook_plot_setup + +File: hook/tao_hook_post_process_data.f90 +tao_hook_post_process_data + +File: hook/tao_hook_show_cmd.f90 +tao_hook_show_cmd + +File: mpi/tao_mpi_mod.f90 +tao_mpi_mod +tao_mpi_initialize +tao_mpi_test_send_receive +tao_broadcast_opt_vars_mpi +tao_broadcast_chars_mpi +tao_mpi_finalize + +File: program/tao_program.f90 +tao_program + +File: version/tao_version_mod.f90 +tao_version_mod +tao_version_date diff --git a/tao/version/tao_version_mod.f90 b/tao/version/tao_version_mod.f90 index 30692674c..87966cf16 100644 --- a/tao/version/tao_version_mod.f90 +++ b/tao/version/tao_version_mod.f90 @@ -6,5 +6,5 @@ !- module tao_version_mod -character(*), parameter :: tao_version_date = "2025/01/09 14:03:31" +character(*), parameter :: tao_version_date = "2025/01/11 23:42:03" end module