C-----------------------------------------------------------------------
C  Make the negative of an angle in mathematical form
C-----------------------------------------------------------------------
      SUBROUTINE ANG180 (ANG)
      IF (ANG .LE. 180.0) ANG = -ANG
      IF (ANG .GT. 180.0) ANG = 360.0-ANG
      RETURN
      END