Merge pull request #1111 from jsberg-bnl/restore-exact

Ensure that exact_model is set before zero_key is called
MethodicalAcceleratorDesign · Aug 15, 2022 · 9829fb8 · 9829fb8
2 parents 7f0cb52 + a547097
commit 9829fb8
Showing 1 changed file with 8 additions and 8 deletions.
diff --git a/src/madx_ptc_module.f90 b/src/madx_ptc_module.f90
@@ -564,6 +564,14 @@ subroutine ptc_input()
 
     ord_max = -1
 
+    exact1=node_value("exact ")
+
+    if(exact1.eq.0.or.exact1.eq.1) then
+       EXACT_MODEL = exact1 .ne. 0
+    else
+       EXACT_MODEL = exact0
+    endif
+
     call zero_key(key)
 
     !j=j+1
@@ -617,14 +625,6 @@ subroutine ptc_input()
        metd = method0
     endif
 
-    exact1=node_value("exact ")
-
-    if(exact1.eq.0.or.exact1.eq.1) then
-       EXACT_MODEL = exact1 .ne. 0
-    else
-       EXACT_MODEL = exact0
-    endif
-
     !special node keys
     key%list%permfringe=node_value("fringe ") ! transfer(node_value("fringe ") .ne. zero, key%list%permfringe)
     key%list%bend_fringe=node_value("bend_fringe ") .ne. zero