Commit cad84982 authored by Matthias Redies's avatar Matthias Redies

fix commit

parent 1f6fcdd9
......@@ -25,6 +25,7 @@ CONTAINS
USE m_types_stars
USE m_types_noco
USE m_types_hybrid
USE m_juDFT
TYPE(t_atoms),INTENT(IN) ::atoms
......
......@@ -42,6 +42,7 @@ check_arguments.F90
check_para.F90
xmlOutput.F90
npy.f90
round.f90
)
if (JUDFT_USE_MPI)
target_compile_definitions(juDFT PUBLIC CPP_MPI)
......
......@@ -13,5 +13,6 @@ MODULE m_juDFT
USE m_judft_info
USE m_judft_usage
use m_judft_para
use m_juDFT_round
use m_npy
END MODULE m_juDFT
module m_juDFT_round
contains
function round_to_deci(x, n) result(rounded_x)
!rounds to the n-th decimal point
implicit none
real, intent(in) :: x
integer, intent(in) :: n
real :: deci_shift, rounded_x
deci_shift = 10**n
rounded_x = real(NINT(x * deci_shift ) / deci_shift)
end function round_to_deci
end module m_juDFT_round
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