C-----------------------------------------------------------------------
C  Routine to make the difference between ANG and EXPCT small
C-----------------------------------------------------------------------
      SUBROUTINE ANG360 (ANG,EXPCT)
  100 D = EXPCT - ANG
      ISIGN = 1
      IF (D .LT. 0.) ISIGN = -1
      IF (ABS(D) .GE. 180.0) THEN
        ANG = ANG + ISIGN*360.0
        GO TO 100
      ENDIF
      RETURN
      END