バッチ内で最初に失敗した粒子追跡(最小の粒子番号、同じ粒子なら最小の step)。status が ok なら失敗なし。
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer(kind=i32), | public | :: | status | = | collision_query_ok | ||
| integer(kind=i32), | public | :: | particle | = | huge(0_i32) | ||
| integer(kind=i32), | public | :: | step | = | 0_i32 | ||
| real(kind=dp), | public | :: | x(3) | = | 0.0_dp |
失敗した step の開始位置 [m] と速度 [m/s]。 |
|
| real(kind=dp), | public | :: | v(3) | = | 0.0_dp |
type, public :: particle_track_failure_type integer(i32) :: status = collision_query_ok integer(i32) :: particle = huge(0_i32) integer(i32) :: step = 0_i32 !> 失敗した step の開始位置 [m] と速度 [m/s]。 real(dp) :: x(3) = 0.0_dp real(dp) :: v(3) = 0.0_dp end type particle_track_failure_type