CPV Subroutine

  1. astro_module.f90
  2. astro_module
  3. CPV

public subroutine CPV(pv, c)

Copy a position/velocity vector.

Status: vector/matrix support routine.

History

  • IAU SOFA revision: 2000 November 25

Arguments

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

position/velocity vector to be copied
real(kind=wp), intent(out), dimension(3,2):: c

copy

Called by

proc~~cpv~~CalledByGraph proc~cpv CPV proc~pvxpv PVXPV proc~pvxpv->proc~cpv

Contents

Source Code

CPV

Source Code

    subroutine CPV ( pv, c )

    implicit none

    real(wp),dimension(3,2),intent(in) :: pv !! position/velocity vector to be copied
    real(wp),dimension(3,2),intent(out) :: c !! copy

    call CP ( pv(1,1), c(1,1) )
    call CP ( pv(1,2), c(1,2) )

    end subroutine CPV