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

Author: DavidSagan

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)
 
 !------------------------------------------------------------------------------------------------
 !------------------------------------------------------------------------------------------------