PVPPV Subroutine

  1. astro_module.f90
  2. astro_module
  3. PVPPV

public subroutine PVPPV(a, b, apb)

Add one pv-vector to 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):: apb

A + B

Calls

proc~~pvppv~~CallsGraph proc~pvppv PVPPV proc~ppp PPP proc~pvppv->proc~ppp

Called by

proc~~pvppv~~CalledByGraph proc~pvppv PVPPV proc~fk425 FK425 proc~fk425->proc~pvppv

Contents

Source Code

PVPPV

Source Code

    subroutine PVPPV ( a, b, apb )

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

    integer :: i

    do i=1,2
       call PPP ( a(1,i), b(1,i), apb(1,i) )
    end do

    end subroutine PVPPV