norm_angle_rad(3f) - [M_units:TRIGONOMETRY] Return input angle given in radians as angle between 0 and 2pi (LICENSE:PD)
Synopsis
Description
Options
Results
Example
Author
License
elemental function norm_angle_rad(ang) result(rev)
class(*), intent(in) :: ang doubleprecision :: rev
Given an input angle specified in radians, normalize the value to fall in the range 0 to 2*pi radians.
ang Input angle (radians). May be INTEGER, REAL, or DOUBLEPRECISION
rev Return input angle (radians) normalized to range 0>= REV <=2*pi radians
Sample program:
program demo_norm_angle_rad use M_units, only : norm_angle_rad implicit none real,parameter :: PI=4*atan(1.0) real :: val integer :: i do i=-2,2 val=i*2*pi; write(*,*)val,norm_angle_rad(val) val=i*pi; write(*,*)val,norm_angle_rad(val) write(*,*) enddo write(*,*)norm_angle_rad([-PI/8.0,-PI/4.0,-PI/2.0,-PI,-0.0,PI/8.0,PI/4.0,PI/2.0,PI,0.0]) end program demo_norm_angle_radResults:
John S. Urban
Public Domain
Nemo Release 3.1 | norm_angle_rad (3) | February 23, 2025 |