PMP Subroutine

  1. astro_module.f90
  2. astro_module
  3. PMP

public subroutine PMP(a, b, amb)

P-vector subtraction.

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

A - B

Called by

proc~~pmp~~CalledByGraph proc~pmp PMP proc~ldn LDN proc~ldn->proc~pmp proc~starpv STARPV proc~starpv->proc~pmp proc~fk524 FK524 proc~fk524->proc~pmp proc~fk45z FK45Z proc~fk45z->proc~pmp proc~pap PAP proc~pap->proc~pmp proc~pvmpv PVMPV proc~pvmpv->proc~pmp proc~pvstar PVSTAR proc~pvstar->proc~pmp proc~h2fk5 H2FK5 proc~h2fk5->proc~pmp proc~h2fk5->proc~starpv proc~h2fk5->proc~pvstar proc~starpm STARPM proc~starpm->proc~starpv proc~starpm->proc~pvstar proc~aticqn ATICQN proc~aticqn->proc~ldn proc~fk54z FK54Z proc~fk54z->proc~fk524 proc~fk52h FK52H proc~fk52h->proc~starpv proc~fk52h->proc~pvstar proc~fk425 FK425 proc~fk425->proc~pvmpv proc~atciqn ATCIQN proc~atciqn->proc~ldn proc~pmsafe PMSAFE proc~pmsafe->proc~starpm

Contents

Source Code

PMP

Source Code

    subroutine PMP ( a, b, amb )

    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) :: amb !! A - B

    integer :: i

    do i=1,3
       amb(i) = a(i) - b(i)
    end do

    end subroutine PMP