feat: implement 3d euler beam fortran kernel

2026-06-11 14:29:20 +09:00
parent a3b5d7d383
commit 1fc3128ed5
14 changed files with 614 additions and 26 deletions
@@ -0,0 +1,19 @@
+program test_uel_3d_euler_beam_kernel
+  use uel_3d_euler_beam_test_support
+  use uel_3d_euler_beam_kernel, only: &
+      UEL3DEB_OK, uel3deb_validate_kernel_inputs
+  implicit none
+
+  real(dp) :: coords(3, 2)
+  real(dp) :: props(9)
+  integer :: status
+
+  coords(:, 1) = [0.0_dp, 0.0_dp, 0.0_dp]
+  coords(:, 2) = [2.0_dp, 0.0_dp, 0.0_dp]
+  props = [210.0e9_dp, 80.0e9_dp, 3.0e-3_dp, 4.0e-6_dp, 7.0e-6_dp, &
+           2.5e-6_dp, 0.0_dp, 1.0_dp, 0.0_dp]
+
+  call uel3deb_validate_kernel_inputs(coords, props, status)
+  call assert_equal_int(status, UEL3DEB_OK, 'kernel source smoke status')
+  write(*, '(A)') 'PASS uel_3d_euler_beam_kernel_source_smoke'
+end program test_uel_3d_euler_beam_kernel