PDP Subroutine

  1. astro_module.f90
  2. astro_module
  3. PDP

public subroutine PDP(a, b, adb)

p-vector inner (=scalar=dot) 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) :: adb

A . B

Called by

proc~~pdp~~CalledByGraph proc~pdp PDP proc~ab AB proc~ab->proc~pdp proc~fk45z FK45Z proc~fk45z->proc~pdp proc~fk425 FK425 proc~fk425->proc~pdp proc~pmpx PMPX proc~pmpx->proc~pdp proc~ldn LDN proc~ldn->proc~pdp proc~ld LD proc~ldn->proc~ld proc~fk524 FK524 proc~fk524->proc~pdp proc~starpv STARPV proc~starpv->proc~pdp proc~pap PAP proc~pap->proc~pdp proc~starpm STARPM proc~starpm->proc~pdp proc~starpm->proc~starpv proc~pvstar PVSTAR proc~starpm->proc~pvstar proc~pvdpv PVDPV proc~pvdpv->proc~pdp proc~ld->proc~pdp proc~pvstar->proc~pdp proc~sepp SEPP proc~sepp->proc~pdp proc~atciq ATCIQ proc~atciq->proc~ab proc~atciq->proc~pmpx proc~ldsun LDSUN proc~atciq->proc~ldsun proc~aticqn ATICQN proc~aticqn->proc~ab proc~aticqn->proc~ldn proc~fk54z FK54Z proc~fk54z->proc~fk524 proc~fk52h FK52H proc~fk52h->proc~starpv proc~fk52h->proc~pvstar proc~pmsafe PMSAFE proc~pmsafe->proc~starpm proc~seps SEPS proc~pmsafe->proc~seps proc~atciqn ATCIQN proc~atciqn->proc~ab proc~atciqn->proc~pmpx proc~atciqn->proc~ldn proc~aticq ATICQ proc~aticq->proc~ab proc~aticq->proc~ldsun proc~atciqz ATCIQZ proc~atciqz->proc~ab proc~atciqz->proc~ldsun proc~h2fk5 H2FK5 proc~h2fk5->proc~starpv proc~h2fk5->proc~pvstar proc~ldsun->proc~ld proc~seps->proc~sepp 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

PDP

Source Code

    subroutine PDP ( a, b, adb )

    implicit none

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

    real(wp) :: w
    integer :: i

    w = 0.0_wp
    do i=1,3
       w = w + a(i)*b(i)
    end do
    adb = w

    end subroutine PDP