TR Subroutine

  1. astro_module.f90
  2. astro_module
  3. TR

public subroutine TR(r, rt)

Transpose an r-matrix.

Status: vector/matrix support routine.

History

  • IAU SOFA revision: 2000 November 25

Arguments

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

r-matrix
real(kind=wp), intent(out), dimension(3,3):: rt

transpose

Called by

proc~~tr~~CalledByGraph proc~tr TR proc~trxp TRXP proc~trxp->proc~tr proc~trxpv TRXPV proc~trxpv->proc~tr proc~bp06 BP06 proc~bp06->proc~tr proc~pn06 PN06 proc~pn06->proc~tr 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~pn06a PN06A proc~pn06a->proc~pn06 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~trxpv proc~apco->proc~pvtob proc~apio APIO proc~apio->proc~pvtob proc~atic13 ATIC13 proc~atic13->proc~aticq proc~apco13 APCO13 proc~apco13->proc~apco proc~atoc13 ATOC13 proc~atoc13->proc~aticq proc~atoc13->proc~apco13 proc~apio13 APIO13 proc~apio13->proc~apio proc~atco13 ATCO13 proc~atco13->proc~apco13 proc~atio13 ATIO13 proc~atio13->proc~apio13 proc~atoi13 ATOI13 proc~atoi13->proc~apio13

Contents

Source Code

TR

Source Code

    subroutine TR ( r, rt )

    implicit none

    real(wp),dimension(3,3),intent(in) :: r !! r-matrix
    real(wp),dimension(3,3),intent(out) :: rt !! transpose

    real(wp) :: wm(3,3)
    integer :: i, j

    do i=1,3
       do j=1,3
          wm(i,j) = r(j,i)
       end do
    end do
    call CR ( wm, rt )

    end subroutine TR