PVMPV Subroutine

  1. astro_module.f90
  2. astro_module
  3. PVMPV

public subroutine PVMPV(a, b, amb)

Subtract one pv-vector from another.

Status: vector/matrix support routine.

History

  • IAU SOFA revision: 2006 November 13

Arguments

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

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

second pv-vector
real(kind=wp), intent(out), dimension(3,2):: amb

A - B

Calls

proc~~pvmpv~~CallsGraph proc~pvmpv PVMPV proc~pmp PMP proc~pvmpv->proc~pmp

Called by

proc~~pvmpv~~CalledByGraph proc~pvmpv PVMPV proc~fk425 FK425 proc~fk425->proc~pvmpv

Contents

Source Code

PVMPV

Source Code

    subroutine PVMPV ( a, b, amb )

    implicit none

    real(wp),dimension(3,2),intent(in) :: a !! first pv-vector
    real(wp),dimension(3,2),intent(in) :: b !! second pv-vector
    real(wp),dimension(3,2),intent(out) :: amb !! A - B

    integer :: i

    do i=1,2
       call PMP ( a(1,i), b(1,i), amb(1,i) )
    end do

    end subroutine PVMPV