Corrected Tao pipe wall3d_radius command. (bmad-sim#1309)

MichaelEhrlichman · Nov 19, 2024 · fbd3065 · fbd3065
1 parent b33b6bd
commit fbd3065
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tao/code/tao_pipe_cmd.f90 b/tao/code/tao_pipe_cmd.f90
@@ -7878,8 +7878,8 @@ subroutine tao_pipe_cmd (input_str)
   endif
 
   nl=incr(nl); write (li(nl), rmt)  'wall_radius;REAL;F;',            r_wall
-  nl=incr(nl); write (li(nl), ramt) 'origin;REAL;F',                  (';', origin(i), i = 1, 3)
-  nl=incr(nl); write (li(nl), ramt) 'perpendicular;REAL;F',           (';', perp(i), i = 1, 3)
+  nl=incr(nl); write (li(nl), ramt) 'origin;REAL_ARR;F',              (';', origin(i), i = 1, 3)
+  nl=incr(nl); write (li(nl), ramt) 'perpendicular;REAL_ARR;F',       (';', perp(i), i = 1, 3)
 
 !------------------------------------------------------------------------------------------------
 !------------------------------------------------------------------------------------------------