9 lines
336 B
Fortran
9 lines
336 B
Fortran
C-----------------------------------------------------------------------
|
|
C Subroutine to put angle in 0 to 359.999 range
|
|
C-----------------------------------------------------------------------
|
|
SUBROUTINE MOD360 (ANG)
|
|
IF (ANG .GE. 360.0) ANG = ANG - 360.0
|
|
IF (ANG .LT. 0.0) ANG = ANG + 360.0
|
|
RETURN
|
|
END
|