RXPV Subroutine

  1. astro_module.f90
  2. astro_module
  3. RXPV

public subroutine RXPV(r, pv, rpv)

Multiply a pv-vector by an r-matrix.

Status: vector/matrix support routine.

History

  • IAU SOFA revision: 2006 November 13

Arguments

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

r-matrix
real(kind=wp), intent(in), dimension(3,2):: pv

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

R * PV

Calls

proc~~rxpv~~CallsGraph proc~rxpv RXPV proc~rxp RXP proc~rxpv->proc~rxp

Called by

proc~~rxpv~~CalledByGraph proc~rxpv RXPV proc~trxpv TRXPV proc~trxpv->proc~rxpv proc~apco APCO proc~apco->proc~trxpv proc~apco13 APCO13 proc~apco13->proc~apco proc~atco13 ATCO13 proc~atco13->proc~apco13 proc~atoc13 ATOC13 proc~atoc13->proc~apco13

Contents

Source Code

RXPV

Source Code

    subroutine RXPV ( r, pv, rpv )

    implicit none

    real(wp),dimension(3,3),intent(in) :: r !! r-matrix
    real(wp),dimension(3,2),intent(in) :: pv !! pv-vector
    real(wp),dimension(3,2),intent(out) :: rpv !! R * PV

    call RXP ( r, pv(1,1), rpv(1,1) )
    call RXP ( r, pv(1,2), rpv(1,2) )

    end subroutine RXPV