From 2ac8df2b89a5eef04dd7a4ae7bd0c805832e8c8b Mon Sep 17 00:00:00 2001 From: Daniel Mejia-Rodriguez Date: Tue, 16 Jan 2024 20:34:58 -0800 Subject: [PATCH] NEB hasmiddle bug fix --- src/optim/neb/neb_utils.F | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/src/optim/neb/neb_utils.F b/src/optim/neb/neb_utils.F index 02db19cba4..8024aa622a 100644 --- a/src/optim/neb/neb_utils.F +++ b/src/optim/neb/neb_utils.F @@ -868,10 +868,11 @@ c if (.not.geom_rtdb_load(rtdb,geom,'midgeom')) then hasmiddle = .false. end if - else - if (.not.geom_cart_coords_get(geom,dbl_mb(rmid(1)))) - > call errquit('neb_initial_path failed',2,0) - end if + endif + endif + if (hasmiddle) then + if (.not.geom_cart_coords_get(geom,dbl_mb(rmid(1)))) + > call errquit('neb_initial_path failed',2,0) end if if (oprint) then