PPSP Subroutine

  1. astro_module.f90
  2. astro_module
  3. PPSP

public subroutine PPSP(a, s, b, apsb)

P-vector plus scaled p-vector.

Status: vector/matrix support routine.

History

  • IAU SOFA revision: 2007 August 18

Arguments

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

first p-vector
real(kind=wp), intent(in) :: s

scalar (multiplier for B)
real(kind=wp), intent(in), dimension(3):: b

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

A + S*B

Called by

proc~~ppsp~~CalledByGraph proc~ppsp PPSP proc~ldn LDN proc~ldn->proc~ppsp proc~pvu PVU proc~pvu->proc~ppsp proc~fk45z FK45Z proc~fk45z->proc~ppsp proc~fk45z->proc~pvu proc~atciqn ATCIQN proc~atciqn->proc~ldn proc~starpm STARPM proc~starpm->proc~pvu proc~aticqn ATICQN proc~aticqn->proc~ldn proc~pmsafe PMSAFE proc~pmsafe->proc~starpm

Contents

Source Code

PPSP

Source Code

    subroutine PPSP ( a, s, b, apsb )

    implicit none

    real(wp),dimension(3),intent(in) :: a !! first p-vector
    real(wp),intent(in) :: s !! scalar (multiplier for B)
    real(wp),dimension(3),intent(in) :: b !! second p-vector
    real(wp),dimension(3),intent(out) :: apsb !! A + S*B

    integer :: i

    do i=1,3
       apsb(i) = a(i) + s*b(i)
    end do

    end subroutine PPSP