ANP Function

  1. astro_module.f90
  2. astro_module
  3. ANP

public function ANP(a) result(w)

Normalize angle into the range 0 <= A < 2pi.

Status: vector/matrix support routine.

History

  • IAU SOFA revision: 2000 December 15

Arguments

TypeIntentOptionalAttributesName
real(kind=wp), intent(in) :: a

angle (radians)

Return Value real(kind=wp)

angle in range 0-2pi


Called by

proc~~anp~~CalledByGraph proc~anp ANP proc~atciq ATCIQ proc~atciq->proc~anp proc~hfk5z HFK5Z proc~hfk5z->proc~anp proc~era00 ERA00 proc~era00->proc~anp proc~gmst06 GMST06 proc~gmst06->proc~anp proc~gmst06->proc~era00 proc~gmst82 GMST82 proc~gmst82->proc~anp proc~atioq ATIOQ proc~atioq->proc~anp proc~fk425 FK425 proc~fk425->proc~anp proc~fk45z FK45Z proc~fk45z->proc~anp proc~lteqec LTEQEC proc~lteqec->proc~anp proc~gst00b GST00B proc~gst00b->proc~anp proc~gmst00 GMST00 proc~gst00b->proc~gmst00 proc~atciqz ATCIQZ proc~atciqz->proc~anp proc~atoiq ATOIQ proc~atoiq->proc~anp proc~icrs2g ICRS2G proc~icrs2g->proc~anp proc~aticqn ATICQN proc~aticqn->proc~anp proc~lteceq LTECEQ proc~lteceq->proc~anp proc~fk5hz FK5HZ proc~fk5hz->proc~anp proc~tpors TPORS proc~tpors->proc~anp proc~gmst00->proc~anp proc~gmst00->proc~era00 proc~atciqn ATCIQN proc~atciqn->proc~anp proc~tpsts TPSTS proc~tpsts->proc~anp proc~gst94 GST94 proc~gst94->proc~anp proc~gst94->proc~gmst82 proc~eceq06 ECEQ06 proc~eceq06->proc~anp proc~fk524 FK524 proc~fk524->proc~anp proc~fk54z FK54Z proc~fk54z->proc~anp proc~fk54z->proc~fk524 proc~g2icrs G2ICRS proc~g2icrs->proc~anp proc~eqec06 EQEC06 proc~eqec06->proc~anp proc~aticq ATICQ proc~aticq->proc~anp proc~gst06 GST06 proc~gst06->proc~anp proc~gst06->proc~era00 proc~gst00a GST00A proc~gst00a->proc~anp proc~gst00a->proc~gmst00 proc~pvstar PVSTAR proc~pvstar->proc~anp proc~atco13 ATCO13 proc~atco13->proc~atciq proc~atco13->proc~atioq proc~apco13 APCO13 proc~atco13->proc~apco13 proc~atoi13 ATOI13 proc~atoi13->proc~atoiq proc~apio13 APIO13 proc~atoi13->proc~apio13 proc~aper13 APER13 proc~aper13->proc~era00 proc~atci13 ATCI13 proc~atci13->proc~atciq proc~atio13 ATIO13 proc~atio13->proc~atioq proc~atio13->proc~apio13 proc~fk52h FK52H proc~fk52h->proc~pvstar proc~starpm STARPM proc~starpm->proc~pvstar proc~c2tpe C2TPE proc~c2tpe->proc~gmst00 proc~apco13->proc~era00 proc~c2t00b C2T00B proc~c2t00b->proc~era00 proc~atoc13 ATOC13 proc~atoc13->proc~atoiq proc~atoc13->proc~aticq proc~atoc13->proc~apco13 proc~c2t00a C2T00A proc~c2t00a->proc~era00 proc~c2txy C2TXY proc~c2txy->proc~era00 proc~atic13 ATIC13 proc~atic13->proc~aticq proc~gst06a GST06A proc~gst06a->proc~gst06 proc~apio13->proc~era00 proc~c2t06a C2T06A proc~c2t06a->proc~era00 proc~ee06a EE06A proc~ee06a->proc~gmst06 proc~ee06a->proc~gst06a proc~h2fk5 H2FK5 proc~h2fk5->proc~pvstar proc~pmsafe PMSAFE proc~pmsafe->proc~starpm

Contents

Source Code

ANP

Source Code

    function ANP ( a ) result(w)

    implicit none

    real(wp),intent(in) :: a !! angle (radians)
    real(wp) :: w !! angle in range 0-2pi

    w = mod(a,d2pi)
    if ( w < 0.0_wp ) w = w + d2pi

    end function ANP