CR Subroutine

  1. astro_module.f90
  2. astro_module
  3. CR

public subroutine CR(r, c)

Copy an r-matrix.

Status: vector/matrix support routine.

History

  • IAU SOFA revision: 2000 November 25

Arguments

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

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

copy

Called by

proc~~cr~~CalledByGraph proc~cr CR proc~apco APCO proc~apco->proc~cr proc~apco13 APCO13 proc~apco13->proc~apco proc~atco13 ATCO13 proc~atco13->proc~apco13 proc~atoc13 ATOC13 proc~atoc13->proc~apco13

Contents

Source Code

CR

Source Code

    subroutine CR ( r, c )

    implicit none

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

    integer :: i

    do i=1,3
       call CP ( r(1,i), c(1,i) )
    end do

    end subroutine CR