SXPV Subroutine

  1. astro_module.f90
  2. astro_module
  3. SXPV

public subroutine SXPV(s, pv, spv)

Multiply a pv-vector by a scalar.

Status: vector/matrix support routine.

History

  • IAU SOFA revision: 2006 November 13

Arguments

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

scalar
real(kind=wp), intent(in), dimension(3,2):: pv

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

S * PV

Calls

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

Contents

Source Code

SXPV

Source Code

    subroutine SXPV ( s, pv, spv )

    implicit none

    real(wp),intent(in) :: s !! scalar
    real(wp),dimension(3,2),intent(in) :: pv !! pv-vector
    real(wp),dimension(3,2),intent(out) :: spv !! S * PV

    call S2XPV ( s, s, pv, spv )

    end subroutine SXPV