김경종
20 lines
692 B
Fortran
20 lines
692 B
Fortran
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
|