From 882b0a6498a8f560726132a3c568bf7b31a5454d Mon Sep 17 00:00:00 2001 From: Alain Hebert Date: Sat, 22 Nov 2025 16:40:39 +0100 Subject: #8: Correct a regression --- Dragon/src/SAL_GEOMETRY_MOD.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Dragon/src/SAL_GEOMETRY_MOD.f90 b/Dragon/src/SAL_GEOMETRY_MOD.f90 index a56376f..29226cd 100644 --- a/Dragon/src/SAL_GEOMETRY_MOD.f90 +++ b/Dragon/src/SAL_GEOMETRY_MOD.f90 @@ -465,8 +465,8 @@ CONTAINS CALL XABORT(HSMG) ENDIF ELSE IF(TYPGEO.EQ.9) THEN - IF((ANGLE/=0.0).AND.(ANGLE/=PI/6._PDB).AND.(ANGLE/=2._PDB*PI/3._PDB).AND. & - & (ANGLE/=PI).AND.(ANGLE/=7._PDB*PI/6._PDB).AND.(ANGLE/=5._PDB*PI/3._PDB)) THEN + IF((ANGLE/=0.0).AND.(ANGLE/=PI/3._PDB).AND.(ANGLE/=2._PDB*PI/3._PDB).AND. & + & (ANGLE/=PI).AND.(ANGLE/=4._PDB*PI/3._PDB).AND.(ANGLE/=5._PDB*PI/3._PDB)) THEN WRITE(HSMG,100) ANGLE,I,TYPGEO CALL XABORT(HSMG) ENDIF -- cgit v1.2.3