Removed lat_sanity_check error for h_misalign with Laue.

bmad-sim · Jul 5, 2024 · 2457277 · 2457277
1 parent f87cd9f
commit 2457277
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 9 deletions.
diff --git a/bmad/code/lat_sanity_check.f90 b/bmad/code/lat_sanity_check.f90
@@ -887,13 +887,6 @@ subroutine lat_sanity_check (lat, err_flag)
  err_flag = .true.
  endif
 
- if (ph%grid%type == h_misalign$ .and. ele%value(b_param$) > 0) then
- call out_io (s_fatal$, r_name, &
- 'ELEMENT: ' // ele_full_name(ele, '@N (&#)'), &
- 'HAS GRID TYPE H_MISALIGN BUT THIS IS NOT IMPLEMENTED FOR LAUE DIFFRACTION!')
- err_flag = .true.
- endif
-
  g = ph%curvature%spherical + ph%curvature%elliptical
  if ((g(1) /= 0 .or. g(2) /= 0) .and. g(3) == 0) then
  call out_io (s_warn$, r_name, &

diff --git a/tao/code/tao_interface.f90 b/tao/code/tao_interface.f90
@@ -65,7 +65,7 @@ function tao_beam_track_endpoint (ele_id, lat, branch_str, where, u) result (ele
  type (ele_struct), pointer :: ele
  type (lat_struct), target :: lat
  character(*) ele_id, where, branch_str
- type (tao_universe_struct) u
+ type (tao_universe_struct), target :: u
 end function
 
 function tao_branch_index (ix_branch) result (ix_this)

diff --git 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 = "2024/06/28 17:45:55"
+character(*), parameter :: tao_version_date = "2024/07/01 08:58:45"
 end module