LCOV - code coverage report
Current view: top level - math - angle.f (source / functions) Hit Total Coverage
Test: combined.info Lines: 15 15 100.0 %
Date: 2019-09-08 04:53:50 Functions: 1 1 100.0 %

          Line data    Source code
       1             :       MODULE m_angle
       2             :       CONTAINS
       3        7972 :       REAL ELEMENTAL FUNCTION angle(x,y)
       4             :       
       5             : c----------------------------------------------
       6             : c     calculates an angle of a vector
       7             : c     given by rectangular coordinates (x,y)
       8             : c-----------------------------------------------
       9             : 
      10             :       USE m_constants
      11             :       IMPLICIT NONE
      12             : 
      13             :       REAL, INTENT (IN) :: x,y
      14             : 
      15        7972 :       IF (x.NE.0.0) THEN
      16        7676 :          IF (y.NE.0.0) THEN
      17        7392 :             IF (y.GT.0.0) THEN
      18        3696 :                IF (x.LT.0.0) angle = pi_const - ATAN(y/abs(x))
      19        3696 :                IF (x.GT.0.0) angle = ATAN(y/x)
      20             :             ELSE
      21        3696 :                IF (x.GT.0.0) angle = - ATAN(abs(y)/x)
      22        3696 :                IF (x.LT.0.0) angle = - pi_const 
      23        1848 :      +                                  + ATAN(abs(y)/abs(x))
      24             :             END IF
      25             :          ELSE
      26         284 :             IF (x.LT.0.0) angle = -pi_const
      27         284 :             IF (x.GT.0.0) angle = 0.0
      28             :          END IF
      29             :       ELSE
      30         296 :          IF (y.LT.0.0) angle = -pi_const/2.
      31         296 :          IF (y.EQ.0.0) angle = 0.0 
      32         296 :          IF (y.GT.0.0) angle = pi_const/2.
      33             :       END IF    
      34             :       
      35        7972 :       END FUNCTION angle
      36             :       END MODULE m_angle

Generated by: LCOV version 1.13