TRXPV Subroutine

  1. astro_module.f90
  2. astro_module
  3. TRXPV

public subroutine TRXPV(r, pv, trpv)

Multiply a pv-vector by the transpose of an r-matrix.

Status: vector/matrix support routine.

History

  • IAU SOFA revision: 2009 July 11

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):: trpv

R * PV

Calls

proc~~trxpv~~CallsGraph proc~trxpv TRXPV proc~tr TR proc~trxpv->proc~tr proc~rxpv RXPV proc~trxpv->proc~rxpv proc~rxp RXP proc~rxpv->proc~rxp

Called by

proc~~trxpv~~CalledByGraph proc~trxpv TRXPV 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

TRXPV

Source Code

    subroutine TRXPV ( r, pv, trpv )

    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) :: trpv !! R * PV

    real(wp) :: ri(3,3)

    !  Transpose of matrix R.
    call TR ( r, ri )

    !  Matrix RI * vector PV -> vector TRPV.
    call RXPV ( ri, pv, trpv )

    end subroutine TRXPV