Bug fix: constraint_id. Not used so no consequence

project-taurus · Dec 21, 2023 · 0e63217 · 0e63217
1 parent 8e337c7
commit 0e63217
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/module_constraints.f90 b/src/module_constraints.f90
@@ -183,7 +183,7 @@ subroutine set_constraints
     k = (j - 1) * HOsp_dim2 
     if ( (i >= 21) .and. (i < 27) ) constraint_pair = constraint_pair + 1
 
-    constraint_id(j) = i 
+    constraint_id(j) = i + m - 1
 
     select case (i)
       case (1)