GCC Code Coverage Report
Directory: ./ Exec Total Coverage
File: misc/cbrt.F Lines: 0 2 0.0 %
Date: 2023-06-30 12:56:34 Branches: 0 0 - %

Line Branch Exec Source 
1
 

    
      FUNCTION cbrt(x)

    


    

    
2

    
    

    
      ! Return the cubic root for positive or negative x

    


    

    
3

    
    

    
      IMPLICIT NONE

    


    

    
4

    
    

    

    


    

    
5

    
    

    
      REAL x,cbrt

    


    

    
6

    
    

    

    


    

    
7

    
    

    
      cbrt=sign(1.,x)*(abs(x)**(1./3.))

    


    

    
8

    
    

    

    


    

    
9

    
    

    
      RETURN

    


    

    
10

    
    

    
      END

    


    

    
11

    
    

    

    


  

  


  

    

    
Generated by: GCOVR (Version 4.2)