blob: a3684cb7c7614e3b7e50e8c2f25dd4a24dd7623e (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
REAL FUNCTION sla_RANGE (ANGLE)
*+
* - - - - - -
* R A N G E
* - - - - - -
*
* Normalize angle into range +/- pi (single precision)
*
* Given:
* ANGLE dp the angle in radians
*
* The result is ANGLE expressed in the +/- pi (single
* precision).
*
* P.T.Wallace Starlink 23 November 1995
*
* Copyright (C) 1995 Rutherford Appleton Laboratory
*-
IMPLICIT NONE
REAL ANGLE
REAL API,A2PI
PARAMETER (API=3.141592653589793238462643)
PARAMETER (A2PI=6.283185307179586476925287)
sla_RANGE=MOD(ANGLE,A2PI)
IF (ABS(sla_RANGE).GE.API)
: sla_RANGE=sla_RANGE-SIGN(A2PI,ANGLE)
END
|
