anmp Function

public pure elemental function anmp(a) result(w)

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

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: a

Return Value real(kind=wp)


Called by

proc~~anmp~~CalledByGraph proc~anmp novas_module::anmp proc~eect2000 novas_module::eect2000 proc~eect2000->proc~anmp proc~etilt novas_module::etilt proc~etilt->proc~eect2000 proc~eceq novas_module::eceq proc~eceq->proc~etilt proc~eqec novas_module::eqec proc~eqec->proc~etilt proc~eqxra novas_module::eqxra proc~eqxra->proc~etilt proc~geopos novas_module::geopos proc~geopos->proc~etilt proc~nutate novas_module::nutate proc~geopos->proc~nutate proc~sidtim novas_module::sidtim proc~geopos->proc~sidtim proc~nutate->proc~etilt proc~sidtim->proc~etilt proc~sidtim->proc~eqxra proc~sidtim->proc~nutate proc~ciobas novas_module::ciobas proc~sidtim->proc~ciobas proc~cioloc novas_module::cioloc proc~sidtim->proc~cioloc proc~celter novas_module::celter proc~celter->proc~nutate proc~celter->proc~sidtim proc~celter->proc~ciobas proc~celter->proc~cioloc proc~ciobas->proc~nutate proc~cioloc->proc~eqxra proc~ciora novas_module::ciora proc~ciora->proc~nutate proc~ciora->proc~ciobas proc~ciora->proc~cioloc proc~eqecl novas_module::eqecl proc~eqecl->proc~eqec proc~gcrseq novas_module::gcrseq proc~gcrseq->proc~nutate proc~gcrseq->proc~ciobas proc~gcrseq->proc~cioloc proc~place novas_module::place proc~place->proc~geopos proc~place->proc~nutate proc~place->proc~ciobas proc~place->proc~cioloc proc~tercel novas_module::tercel proc~tercel->proc~nutate proc~tercel->proc~sidtim proc~tercel->proc~ciobas proc~tercel->proc~cioloc proc~mpstar novas_module::mpstar proc~mpstar->proc~place proc~places novas_module::places proc~places->proc~place proc~zdaz novas_module::zdaz proc~zdaz->proc~tercel

Source Code

    pure elemental function anmp ( a ) result(w)

    implicit none

    real(wp),intent(in) :: a
    real(wp) :: w

    w = mod(a,twopi)
    if ( abs(w) >= pi ) w = w - sign(twopi,a)

    end function anmp