PVM Subroutine

  1. astro_module.f90
  2. astro_module
  3. PVM

public subroutine PVM(pv, r, s)

Modulus of 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) :: r

modulus of position component
real(kind=wp), intent(out) :: s

modulus of velocity component

Contents

Source Code

PVM

Source Code

    subroutine PVM ( pv, r, s )

    implicit none

    real(wp),dimension(3,2),intent(in) :: pv !! pv-vector
    real(wp),intent(out) :: r !! modulus of position component
    real(wp),intent(out) :: s !! modulus of velocity component

    !  Distance.
    call PM ( pv(1,1), r )

    !  Speed.
    call PM ( pv(1,2), s )

    end subroutine PVM