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