CP Subroutine

  1. astro_module.f90
  2. astro_module
  3. CP

public subroutine CP(p, c)

Copy a p-vector.

Status: vector/matrix support routine.

History

  • IAU SOFA revision: 2000 November 25

Arguments

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

p-vector to be copied
real(kind=wp), intent(out), dimension(3):: c

copy

Contents

Source Code

CP

Source Code

    subroutine CP ( p, c )

    implicit none

    real(wp),dimension(3),intent(in) :: p !! p-vector to be copied
    real(wp),dimension(3),intent(out) :: c !! copy

    integer :: i

    do i=1,3
       c(i) = p(i)
    end do

    end subroutine CP