From 6fbf893ef87259f99449cc416aa4a56f8bd77675 Mon Sep 17 00:00:00 2001 From: edoapra Date: Sun, 30 Oct 2022 19:40:04 -0700 Subject: [PATCH] missing arg --- src/stepper/stpr_gh_at.F | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/stepper/stpr_gh_at.F b/src/stepper/stpr_gh_at.F index 58ac147ca9..d67f495161 100644 --- a/src/stepper/stpr_gh_at.F +++ b/src/stepper/stpr_gh_at.F @@ -369,7 +369,8 @@ c endif if(.not. rtdb_get(rtdb,'task:gradient',MT_DBL, & rank_hess,dbl_mb(k_gradm))) - & call errquit('stpr_gen_hess_at: rtdb_get failed',38) + & call errquit('stpr_gen_hess_at: rtdb_get failed',38, + R RTDB_ERR) if(.not. rtdb_get(rtdb,'task:dipole',mt_dbl, & 3,mdipole)) dipole_okay = .false. endif