ZPV Subroutine

  1. astro_module.f90
  2. astro_module
  3. ZPV

public subroutine ZPV(pv)

Zero a pv-vector.

Status: vector/matrix support routine.

History

  • IAU SOFA revision: 2006 November 13

Arguments

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

pv-vector

Calls

proc~~zpv~~CallsGraph proc~zpv ZPV proc~zp ZP proc~zpv->proc~zp

Called by

proc~~zpv~~CalledByGraph proc~zpv ZPV proc~apcg APCG proc~apcg->proc~zpv proc~apcg13 APCG13 proc~apcg13->proc~apcg proc~apci APCI proc~apci->proc~apcg proc~apci13 APCI13 proc~apci13->proc~apci proc~atci13 ATCI13 proc~atci13->proc~apci13 proc~atic13 ATIC13 proc~atic13->proc~apci13

Contents

Source Code

ZPV

Source Code

    subroutine ZPV ( pv )

    implicit none

    real(wp),dimension(3,2),intent(out) :: pv !! pv-vector

    integer :: i

    do i=1,2
       call ZP ( pv(1,i) )
    end do

    end subroutine ZPV