The first and last times, ordered (t0 <= tf); false if there are no times.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(Trajectory), | intent(in) | :: | self | |||
| real(kind=wp), | intent(out) | :: | t0 |
first and last times (t0 <= tf; 0 if no times) |
||
| real(kind=wp), | intent(out) | :: | tf |
first and last times (t0 <= tf; 0 if no times) |
logical function time_range(self, t0, tf) class(Trajectory), intent(in) :: self real(wp), intent(out) :: t0, tf !! first and last times (t0 <= tf; 0 if no times) time_range = self%n_times > 0 if (.not. time_range) then t0 = 0.0_wp tf = 0.0_wp return end if t0 = min(self%t(1), self%t(self%n_times)) tf = max(self%t(1), self%t(self%n_times)) end function time_range