P2PV Subroutine

  1. astro_module.f90
  2. astro_module
  3. P2PV

public subroutine P2PV(p, pv)

Extend a p-vector to a pv-vector by appending a zero velocity.

Status: vector/matrix support routine.

History

  • IAU SOFA revision: 2000 November 25

Arguments

TypeIntentOptionalAttributesName
real(kind=wp), intent(in), dimension(3):: p

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

pv-vector

Calls

proc~~p2pv~~CallsGraph proc~p2pv P2PV proc~zp ZP proc~p2pv->proc~zp

Contents

Source Code

P2PV

Source Code

    subroutine P2PV ( p, pv )

    implicit none

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

    call CP ( p, pv(1,1) )
    call ZP ( pv(1,2) )

    end subroutine P2PV