diff --git a/tao/code/tao_pipe_cmd.f90 b/tao/code/tao_pipe_cmd.f90
index d81f4a49f..3b37b7d4a 100644
--- 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)
 
 !------------------------------------------------------------------------------------------------
 !------------------------------------------------------------------------------------------------