From fbd3065f0983c88ed8d957289ebce3fa7e0eb21c Mon Sep 17 00:00:00 2001 From: David Sagan Date: Tue, 19 Nov 2024 12:55:05 -0500 Subject: [PATCH] Corrected Tao `pipe wall3d_radius` command. (#1309) --- tao/code/tao_pipe_cmd.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) !------------------------------------------------------------------------------------------------ !------------------------------------------------------------------------------------------------