times Subroutine

private subroutine times(self, t)

Pointer to the times (num_times), without copying.

Type Bound

Trajectory

Arguments

Type IntentOptional Attributes Name
class(Trajectory), intent(in), target :: self
real(kind=wp), intent(out), dimension(:), pointer :: t

(num_times): times (null if none)

Source Code

    subroutine times(self, t)
        class(Trajectory), intent(in), target :: self
        real(wp), dimension(:), pointer, intent(out) :: t   !! (num_times): times (null if none)
        if (self%n_times == 0) then
            t => null()
        else
            t => self%t(1:self%n_times)
        end if
    end subroutine times