Fix ICE for ifx 2024.1.0

Signed-off-by: Igor S. Gerasimov <i.s.ger@ya.ru>
grimme-lab · Sep 24, 2024 · dc72038 · dc72038
1 parent a492d7a
commit dc72038
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/constrain_pot.f90 b/src/constrain_pot.f90
@@ -187,6 +187,7 @@ subroutine constrain_dist(fix,n,at,xyz,g,e)
       mm = 2*m-1
       i = fix%atoms(mm)
       j = fix%atoms(mm+1)
+      if (i == j) cycle ! workaround for ifx 2024.1.0
       r0= fix%val(m)
       rij=xyz(:,j)-xyz(:,i)
       r = norm2(rij)