Commit 46cf79c2 authored by Matthias Redies's avatar Matthias Redies

one more

parent e4c171d9
...@@ -107,7 +107,7 @@ CONTAINS ...@@ -107,7 +107,7 @@ CONTAINS
rtaual = MATMUL(rot(:, :, isym), atoms%taual(:, iatom)) + trans(:, isym) rtaual = MATMUL(rot(:, :, isym), atoms%taual(:, iatom)) + trans(:, isym)
iatom1 = 0 iatom1 = 0
DO ieq1 = 1, atoms%neq(itype) DO ieq1 = 1, atoms%neq(itype)
IF (ALL(ABS(MODULO(rtaual - atoms%taual(:, iiatom + ieq1) + 10.0**-12, 1.0)) < 10.0**-10)) THEN !The 10.0**-12 is a dirty fix. IF (ALL(ABS(MODULO(rtaual - atoms%taual(:, iiatom + ieq1) + 1e-12, 1.0)) < 1e-10)) THEN !The 1e-12 is a dirty fix.
iatom1 = iiatom + ieq1 iatom1 = iiatom + ieq1
END IF END IF
END DO END DO
......
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