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

          Line data    Source code
       1             : MODULE m_qranf
       2             : CONTAINS
       3       18200 :    REAL FUNCTION qranf(x,j)
       4             : !     **********************************************************
       5             : !     quasi random generator in the interval (0.,1.)
       6             : !     **********************************************************
       7             : 
       8             :       IMPLICIT NONE
       9             : !     .. Scalar Arguments ..
      10             :       REAL x
      11             :       INTEGER j
      12             : !     ..
      13             : !     .. Intrinsic Functions ..
      14             :       INTRINSIC aint
      15             : !     ..
      16       18200 :       j = j + 1
      17       18200 :       qranf = j*x
      18       18200 :       qranf = qranf - aint(qranf)
      19             :       RETURN
      20             :    END FUNCTION
      21             : END

Generated by: LCOV version 1.13