blob: c2e32a58acc2e23289663482c54418b93723a224 (
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
|
REAL FUNCTION sla_RANORM (ANGLE)
*+
* - - - - - - -
* R A N O R M
* - - - - - - -
*
* Normalize angle into range 0-2 pi (single precision)
*
* Given:
* ANGLE dp the angle in radians
*
* The result is ANGLE expressed in the range 0-2 pi (single
* precision).
*
* P.T.Wallace Starlink 23 November 1995
*
* Copyright (C) 1995 Rutherford Appleton Laboratory
*-
IMPLICIT NONE
REAL ANGLE
REAL A2PI
PARAMETER (A2PI=6.283185307179586476925287)
sla_RANORM=MOD(ANGLE,A2PI)
IF (sla_RANORM.LT.0.0) sla_RANORM=sla_RANORM+A2PI
END
|
