14 lines
517 B
Fortran
14 lines
517 B
Fortran
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
|