9 lines
332 B
Fortran
9 lines
332 B
Fortran
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
|