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