PV2P Subroutine

  1. astro_module.f90
  2. astro_module
  3. PV2P

public subroutine PV2P(pv, p)

Discard velocity component of a pv-vector.

Status: vector/matrix support routine.

History

  • IAU SOFA revision: 2000 November 25

Arguments

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

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

p-vector

Contents

Source Code

PV2P

Source Code

    subroutine PV2P ( pv, p )

    implicit none

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

    call CP ( pv, p )

    end subroutine PV2P