C-----------------------------------------------------------------------
C  Subroutine to put Omega, Chi & Phi into the correct range
C-----------------------------------------------------------------------
      SUBROUTINE RANGE (ICHI,IPHI,A)
      DIMENSION A(4)
      A(2) = A(2) + 180.0
      A(3) = A(3) + 180.0*ICHI
      A(4) = A(4) + 180.0*IPHI
      IF (A(2) .GE. 360.0) A(2) = A(2) - 360.0
      IF (A(3) .GE. 360.0) A(3) = A(3) - 360.0
      IF (A(4) .GE. 360.0) A(4) = A(4) - 360.0
      RETURN
      END