From d52bc4490a4557fd908d11317b077403880ce12b Mon Sep 17 00:00:00 2001 From: Tom Goffrey Date: Mon, 2 Sep 2024 13:46:58 +0100 Subject: [PATCH] Fix parsing of r_xyz --- epoch3d/src/parser/evaluator_blocks.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/epoch3d/src/parser/evaluator_blocks.F90 b/epoch3d/src/parser/evaluator_blocks.F90 index b0331b46f..cc968c31d 100644 --- a/epoch3d/src/parser/evaluator_blocks.F90 +++ b/epoch3d/src/parser/evaluator_blocks.F90 @@ -301,7 +301,7 @@ SUBROUTINE do_constant(opcode, simplify, parameters, err) IF (parameters%use_grid_position) THEN CALL push_on_eval(& SQRT(x(parameters%pack_ix)**2 + y(parameters%pack_iy)**2 & - + z(parameters%pack_iy)**2)) + + z(parameters%pack_iz)**2)) ELSE CALL push_on_eval(& SQRT(parameters%pack_pos(1)**2 + parameters%pack_pos(2)**2 &