SXP Subroutine

  1. astro_module.f90
  2. astro_module
  3. SXP

public subroutine SXP(s, p, sp)

Multiply a p-vector by a scalar.

Status: vector/matrix support routine.

History

  • IAU SOFA revision: 2000 November 25

Arguments

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

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

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

S * P

Called by

proc~~sxp~~CalledByGraph proc~sxp SXP proc~pn PN proc~pn->proc~sxp proc~starpv STARPV proc~starpv->proc~sxp proc~fk425 FK425 proc~fk425->proc~sxp proc~fk524 FK524 proc~fk524->proc~sxp proc~hfk5z HFK5Z proc~hfk5z->proc~sxp proc~s2p S2P proc~s2p->proc~sxp proc~pvstar PVSTAR proc~pvstar->proc~sxp proc~fk5hz FK5HZ proc~fk5hz->proc~sxp proc~s2xpv S2XPV proc~s2xpv->proc~sxp proc~starpm STARPM proc~starpm->proc~starpv proc~starpm->proc~pvstar proc~fk54z FK54Z proc~fk54z->proc~fk524 proc~fk52h FK52H proc~fk52h->proc~starpv proc~fk52h->proc~pvstar proc~apcs APCS proc~apcs->proc~pn proc~h2fk5 H2FK5 proc~h2fk5->proc~starpv proc~h2fk5->proc~pvstar proc~sxpv SXPV proc~sxpv->proc~s2xpv proc~pmsafe PMSAFE proc~pmsafe->proc~starpm proc~apco APCO proc~apco->proc~apcs proc~apcs13 APCS13 proc~apcs13->proc~apcs proc~apcg APCG proc~apcg->proc~apcs proc~apco13 APCO13 proc~apco13->proc~apco proc~apci APCI proc~apci->proc~apcg proc~apcg13 APCG13 proc~apcg13->proc~apcg proc~atco13 ATCO13 proc~atco13->proc~apco13 proc~apci13 APCI13 proc~apci13->proc~apci proc~atoc13 ATOC13 proc~atoc13->proc~apco13 proc~atci13 ATCI13 proc~atci13->proc~apci13 proc~atic13 ATIC13 proc~atic13->proc~apci13

Contents

Source Code

SXP

Source Code

    subroutine SXP ( s, p, sp )

    implicit none

    real(wp),intent(in) :: s !! scalar
    real(wp),dimension(3),intent(in) :: p !! p-vector
    real(wp),dimension(3),intent(out) :: sp !! S * P

    integer :: i

    do i=1,3
       sp(i) = s * p(i)
    end do

    end subroutine SXP