TRXP Subroutine

  1. astro_module.f90
  2. astro_module
  3. TRXP

public subroutine TRXP(r, p, trp)

Multiply a p-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):: p

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

R * P

Calls

proc~~trxp~~CallsGraph proc~trxp TRXP proc~tr TR proc~trxp->proc~tr proc~rxp RXP proc~trxp->proc~rxp

Called by

proc~~trxp~~CalledByGraph proc~trxp TRXP proc~pvtob PVTOB proc~pvtob->proc~trxp proc~g2icrs G2ICRS proc~g2icrs->proc~trxp proc~aticqn ATICQN proc~aticqn->proc~trxp proc~eceq06 ECEQ06 proc~eceq06->proc~trxp proc~hfk5z HFK5Z proc~hfk5z->proc~trxp proc~fk5hz FK5HZ proc~fk5hz->proc~trxp proc~aticq ATICQ proc~aticq->proc~trxp proc~h2fk5 H2FK5 proc~h2fk5->proc~trxp proc~lteceq LTECEQ proc~lteceq->proc~trxp proc~apco APCO proc~apco->proc~pvtob proc~atic13 ATIC13 proc~atic13->proc~aticq proc~atoc13 ATOC13 proc~atoc13->proc~aticq proc~apco13 APCO13 proc~atoc13->proc~apco13 proc~apio APIO proc~apio->proc~pvtob proc~apco13->proc~apco proc~apio13 APIO13 proc~apio13->proc~apio proc~atco13 ATCO13 proc~atco13->proc~apco13 proc~atoi13 ATOI13 proc~atoi13->proc~apio13 proc~atio13 ATIO13 proc~atio13->proc~apio13

Contents

Source Code

TRXP

Source Code

    subroutine TRXP ( r, p, trp )

    implicit none

    real(wp),dimension(3,3),intent(in) :: r !! r-matrix
    real(wp),dimension(3),intent(in) :: p !! p-vector
    real(wp),dimension(3),intent(out) :: trp !! R * P

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

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

    !  Matrix RI * vector P -> vector TRP.
    call RXP ( ri, p, trp )

    end subroutine TRXP