Add this suggestion to a batch that can be applied as a single commit.
This suggestion is invalid because no changes were made to the code.
Suggestions cannot be applied while the pull request is closed.
Suggestions cannot be applied while viewing a subset of changes.
Only one suggestion per line can be applied in a batch.
Add this suggestion to a batch that can be applied as a single commit.
Applying suggestions on deleted lines is not supported.
You must change the existing code in this line in order to create a valid suggestion.
Outdated suggestions cannot be applied.
This suggestion has been applied or marked resolved.
Suggestions cannot be applied from pending reviews.
Suggestions cannot be applied on multi-line comments.
Suggestions cannot be applied while the pull request is queued to merge.
Suggestion cannot be applied right now. Please check back later.
There is a funny/strange bug.
In the code, the value of Pi is assigned by
REAL, parameter :: pi = 3.141592653589793238462643383279502884197
, whileREAL
will be replaced byreal(dp)
in the macros (dp
is double-precision specification). For some reason, the actual Pi value used during the runtime is3.1415927410125732
. The numbers after the 7-th digit are incorrect and cause some finite error.Previously,
REAL
was interpreted asreal
and the default option of using 8 bytes for floating numbers was turned on. The Pi value was read correctly.The fix in this PR is to use
REAL, parameter :: pi = acos(-1.0_dp)
and Pi value is now correct.A fix to the HDF5 module for the IPP cluster is also included (#70 ).
FAMUS (the
dipole
branch) will also be updated. If you are using other branches, please remember thedevelop
branch.