PXP Subroutine

  1. astro_module.f90
  2. astro_module
  3. PXP

public subroutine PXP(a, b, axb)

p-vector outer (=vector=cross) product.

Status: vector/matrix support routine.

History

  • IAU SOFA revision: 2000 November 25

Arguments

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

first p-vector
real(kind=wp), intent(in), dimension(3):: b

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

A x B

Called by

proc~~pxp~~CalledByGraph proc~pxp PXP proc~hfk5z HFK5Z proc~hfk5z->proc~pxp proc~pvxpv PVXPV proc~pvxpv->proc~pxp proc~ltp LTP proc~ltp->proc~pxp proc~fk52h FK52H proc~fk52h->proc~pxp proc~pap PAP proc~pap->proc~pxp proc~ld LD proc~ld->proc~pxp proc~ltecm LTECM proc~ltecm->proc~pxp proc~h2fk5 H2FK5 proc~h2fk5->proc~pxp proc~sepp SEPP proc~sepp->proc~pxp proc~lteqec LTEQEC proc~lteqec->proc~ltecm proc~ldn LDN proc~ldn->proc~ld proc~ltpb LTPB proc~ltpb->proc~ltp proc~ldsun LDSUN proc~ldsun->proc~ld proc~lteceq LTECEQ proc~lteceq->proc~ltecm proc~seps SEPS proc~seps->proc~sepp proc~aticqn ATICQN proc~aticqn->proc~ldn proc~atciq ATCIQ proc~atciq->proc~ldsun proc~pmsafe PMSAFE proc~pmsafe->proc~seps proc~atciqn ATCIQN proc~atciqn->proc~ldn proc~aticq ATICQ proc~aticq->proc~ldsun proc~atciqz ATCIQZ proc~atciqz->proc~ldsun proc~atci13 ATCI13 proc~atci13->proc~atciq proc~atco13 ATCO13 proc~atco13->proc~atciq proc~atic13 ATIC13 proc~atic13->proc~aticq proc~atoc13 ATOC13 proc~atoc13->proc~aticq

Contents

Source Code

PXP

Source Code

    subroutine PXP ( a, b, axb )

    implicit none

    real(wp),dimension(3),intent(in) :: a !! first p-vector
    real(wp),dimension(3),intent(in) :: b !! second p-vector
    real(wp),dimension(3),intent(out) :: axb !! A x B

    real(wp) :: xa, ya, za, xb, yb, zb

    xa = a(1)
    ya = a(2)
    za = a(3)
    xb = b(1)
    yb = b(2)
    zb = b(3)
    axb(1) = ya*zb - za*yb
    axb(2) = za*xb - xa*zb
    axb(3) = xa*yb - ya*xb

    end subroutine PXP