ANPM Function

  1. astro_module.f90
  2. astro_module
  3. ANPM

public function ANPM(a) result(w)

Normalize angle into the range -pi <= A < +pi.

Status: vector/matrix support routine.

History

  • IAU SOFA revision: 2000 November 25

Arguments

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

angle (radians)

Return Value real(kind=wp)

angle in range +/-pi


Called by

proc~~anpm~~CalledByGraph proc~anpm ANPM proc~eqeq94 EQEQ94 proc~eqeq94->proc~anpm proc~nut80 NUT80 proc~eqeq94->proc~nut80 proc~plan94 PLAN94 proc~plan94->proc~anpm proc~g2icrs G2ICRS proc~g2icrs->proc~anpm proc~eceq06 ECEQ06 proc~eceq06->proc~anpm proc~lteqec LTEQEC proc~lteqec->proc~anpm proc~ee06a EE06A proc~ee06a->proc~anpm proc~eqec06 EQEC06 proc~eqec06->proc~anpm proc~nut80->proc~anpm proc~icrs2g ICRS2G proc~icrs2g->proc~anpm proc~lteceq LTECEQ proc~lteceq->proc~anpm proc~gst94 GST94 proc~gst94->proc~eqeq94 proc~nutm80 NUTM80 proc~nutm80->proc~nut80 proc~pnm80 PNM80 proc~pnm80->proc~nutm80

Contents

Source Code

ANPM

Source Code

    function ANPM ( a ) result(w)

    implicit none

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

    w = mod(a,d2pi)
    if ( abs(w) >= dpi ) w = w - sign(d2pi,a)

    end function ANPM