PVU Subroutine

  1. astro_module.f90
  2. astro_module
  3. PVU

public subroutine PVU(dt, pv, upv)

Update a pv-vector.

Status: vector/matrix support routine.

Notes

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

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

History

  • IAU SOFA revision: 2003 January 14

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,2):: upv

p updated, v unchanged

Calls

proc~~pvu~~CallsGraph proc~pvu PVU proc~ppsp PPSP proc~pvu->proc~ppsp

Called by

proc~~pvu~~CalledByGraph proc~pvu PVU proc~fk45z FK45Z proc~fk45z->proc~pvu proc~starpm STARPM proc~starpm->proc~pvu proc~pmsafe PMSAFE proc~pmsafe->proc~starpm

Contents

Source Code

PVU

Source Code

    subroutine PVU ( dt, pv, upv )

    implicit none

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

    call PPSP ( pv(1,1), dt, pv(1,2), upv(1,1) )
    call CP ( pv(1,2), upv(1,2) )

    end subroutine PVU