diff --git a/src/madx_ptc_module.f90 b/src/madx_ptc_module.f90 index 0e84f6ebc..f98e8eb39 100644 --- 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