PVUP Subroutine

  1. astro_module.f90
  2. astro_module
  3. PVUP

public subroutine PVUP(dt, pv, p)

Update a pv-vector, discarding the velocity component.

Status: vector/matrix support routine.

Notes

  1. "Update" means "refer the position component of the vector to a new date DT time units from the existing date".

  2. The time units of DT must match those of the velocity.

History

  • IAU SOFA revision: 2008 May 8

Arguments

TypeIntentOptionalAttributesName
real(kind=wp), intent(in) :: dt

time interval
real(kind=wp), intent(in), dimension(3,2):: pv

pv-vector
real(kind=wp), intent(out), dimension(3):: p

p-vector

Contents

Source Code

PVUP

Source Code

    subroutine PVUP ( dt, pv, p )

    implicit none

    real(wp),intent(in) :: dt !! time interval
    real(wp),dimension(3,2),intent(in) :: pv !! pv-vector
    real(wp),dimension(3),intent(out) :: p !! p-vector

    integer :: i

    do i=1,3
       p(i) = pv(i,1) + pv(i,2)*dt
    end do

    end subroutine PVUP