S2XPV Subroutine

  1. astro_module.f90
  2. astro_module
  3. S2XPV

public subroutine S2XPV(s1, s2, pv, spv)

Multiply a pv-vector by two scalars.

Status: vector/matrix support routine.

History

  • IAU SOFA revision: 2006 November 13

Arguments

TypeIntentOptionalAttributesName
real(kind=wp), intent(in) :: s1

scalar to multiply position component by
real(kind=wp), intent(in) :: s2

scalar to multiply velocity component by
real(kind=wp), intent(in), dimension(3,2):: pv

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

pv-vector: p scaled by S1, v scaled by S2

Calls

proc~~s2xpv~~CallsGraph proc~s2xpv S2XPV proc~sxp SXP proc~s2xpv->proc~sxp

Called by

proc~~s2xpv~~CalledByGraph proc~s2xpv S2XPV proc~sxpv SXPV proc~sxpv->proc~s2xpv

Contents

Source Code

S2XPV

Source Code

    subroutine S2XPV ( s1, s2, pv, spv )

    implicit none

    real(wp),intent(in) :: s1 !! scalar to multiply position component by
    real(wp),intent(in) :: s2 !! scalar to multiply velocity component by
    real(wp),dimension(3,2),intent(in) :: pv !! pv-vector
    real(wp),dimension(3,2),intent(out) :: spv !! pv-vector: p scaled by S1, v scaled by S2

    call SXP ( s1, pv(1,1), spv(1,1) )
    call SXP ( s2, pv(1,2), spv(1,2) )

    end subroutine S2XPV