Commit b682088c authored by Matthias Redies's avatar Matthias Redies

Merge branch 'develop' into MetaGGA

parents 9d8e13ee 9685cb46
......@@ -13,11 +13,11 @@ global/triang.f
global/vacudz.f
global/vacuz.f
global/abcrot.f
global/savewigner.f
global/differ.f
)
set(fleur_F90 ${fleur_F90}
global/constants.f90
global/savewigner.f90
#global/differ.f90
global/matrix_copy.F90
global/checkdop.F90
......
......@@ -14,7 +14,6 @@ math/inwint.f
math/matmul.f
math/outint.f
math/points.f
math/qranf.f
math/qsf.f
math/rfft.F
math/sphbes.f
......@@ -23,6 +22,7 @@ math/util.F
math/difcub.f
)
set(fleur_F90 ${fleur_F90}
math/qranf.f90
math/differentiate.f90
math/fft2d.F90
math/fft3d.f90
......
MODULE m_qranf
CONTAINS
REAL FUNCTION qranf(x,j)
c **********************************************************
c quasi random generator in the interval (0.,1.)
c **********************************************************
MODULE m_qranf
CONTAINS
REAL FUNCTION qranf(x,j)
! **********************************************************
! quasi random generator in the interval (0.,1.)
! **********************************************************
IMPLICIT NONE
C .. Scalar Arguments ..
! .. Scalar Arguments ..
REAL x
INTEGER j
C ..
C .. Intrinsic Functions ..
! ..
! .. Intrinsic Functions ..
INTRINSIC aint
C ..
! ..
j = j + 1
qranf = j*x
qranf = qranf - aint(qranf)
RETURN
END FUNCTION
END
END FUNCTION
END
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment