Line data    Source code

       1             : MODULE m_qranf
       2             : CONTAINS
       3       16800 :    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       16800 :       j = j + 1
      17       16800 :       qranf = j*x
      18       16800 :       qranf = qranf - aint(qranf)
      19             :       RETURN
      20             :    END FUNCTION
      21             : END MODULE m_qranf