norm_angle_deg(3f) - [M_units:TRIGONOMETRY] Return input angle given in degrees as angle between 0 and 360 (LICENSE:PD)
Synopsis
Description
Options
Results
Example
License
elemental function norm_angle_deg(ang) result(rev)
doubleprecision, intent(in) :: ang doubleprecision :: rev or real, intent(in) :: ang real :: rev or integer, intent(in) :: ang integer :: rev
Given an input angle in degrees, normalize the value to fall in the range 0 to 360 degrees.
ang Input angle (degrees)
rev Return input angle (degrees) normalized to range 0 to 360 degrees
Sample program:
program demo_norm_angle_deg use M_units, only : norm_angle_deg implicit none real,parameter :: PI=360 real :: val integer :: i do i=-2,2 val=i*2*pi; write(*,*)val,norm_angle_deg(val) val=i*pi; write(*,*)val,norm_angle_deg(val) val=i*pi/2; write(*,*)val,norm_angle_deg(val) write(*,*) enddo end program demo_norm_angle_degResults:
-1440.00000 0.00000000 -720.000000 0.00000000 -360.000000 0.00000000-720.000000 0.00000000 -360.000000 0.00000000 -180.000000 180.000000
0.00000000 0.00000000 0.00000000 0.00000000 0.00000000 0.00000000
720.000000 0.00000000 360.000000 0.00000000 180.000000 180.000000
1440.00000 0.00000000 720.000000 0.00000000 360.000000 0.00000000
MIT License
Nemo Release 3.1 | norm_angle_deg (3) | February 23, 2025 |