ZP Subroutine

  1. astro_module.f90
  2. astro_module
  3. ZP

public subroutine ZP(p)

Zero a p-vector.

Status: vector/matrix support routine.

History

  • IAU SOFA revision: 2000 November 25

Arguments

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

p-vector

Called by

proc~~zp~~CalledByGraph proc~zp ZP proc~zpv ZPV proc~zpv->proc~zp proc~gd2gc GD2GC proc~gd2gc->proc~zp proc~starpv STARPV proc~starpv->proc~zp proc~aticqn ATICQN proc~aticqn->proc~zp proc~pn PN proc~pn->proc~zp proc~p2pv P2PV proc~p2pv->proc~zp proc~aticq ATICQ proc~aticq->proc~zp proc~pvtob PVTOB proc~pvtob->proc~gd2gc proc~fk52h FK52H proc~fk52h->proc~starpv proc~starpm STARPM proc~starpm->proc~starpv proc~atic13 ATIC13 proc~atic13->proc~aticq proc~apci13 APCI13 proc~atic13->proc~apci13 proc~apcg APCG proc~apcg->proc~zpv proc~apcs APCS proc~apcg->proc~apcs proc~h2fk5 H2FK5 proc~h2fk5->proc~starpv proc~apcs->proc~pn proc~atoc13 ATOC13 proc~atoc13->proc~aticq proc~apco13 APCO13 proc~atoc13->proc~apco13 proc~pmsafe PMSAFE proc~pmsafe->proc~starpm proc~apio APIO proc~apio->proc~pvtob proc~apco APCO proc~apco->proc~pvtob proc~apco->proc~apcs proc~apci APCI proc~apci->proc~apcg proc~apcg13 APCG13 proc~apcg13->proc~apcg proc~apcs13 APCS13 proc~apcs13->proc~apcs proc~apio13 APIO13 proc~apio13->proc~apio proc~apci13->proc~apci proc~apco13->proc~apco proc~atio13 ATIO13 proc~atio13->proc~apio13 proc~atoi13 ATOI13 proc~atoi13->proc~apio13 proc~atci13 ATCI13 proc~atci13->proc~apci13 proc~atco13 ATCO13 proc~atco13->proc~apco13

Contents

Source Code

ZP

Source Code

    subroutine ZP ( p )

    implicit none

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

    integer :: i

    do i=1,3
       p(i) = 0.0_wp
    end do

    end subroutine ZP