From 9298929aab495b8cd2cf25947e3e00e9bf8eef72 Mon Sep 17 00:00:00 2001 From: edoapra Date: Fri, 20 May 2022 11:21:26 -0700 Subject: [PATCH] keep compiler quiet --- src/task/task_gradient.F | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/task/task_gradient.F b/src/task/task_gradient.F index 296f5d3939..29001b65cf 100644 --- a/src/task/task_gradient.F +++ b/src/task/task_gradient.F @@ -136,7 +136,7 @@ c $ gradient)) $ call errquit('task_gradient: no gradient in rtdb?',0, & RTDB_ERR) - if (rtdb_get(rtdb, 'oniom:dipole', mt_dbl, 3, dipole)) then + if (rtdb_get(rtdb, 'oniom:dipole', mt_dbl,3,dipole(1))) then if (.not. rtdb_put(rtdb,'task:dipole',mt_dbl,3,dipole)) $ call errquit('task_energy: failed storing dipole',0, & RTDB_ERR) @@ -563,8 +563,8 @@ c c key = ' ' write(key,'(a,'':dipole'')') prefix(1:inp_strlen(prefix)) - if (rtdb_get(rtdb, key, mt_dbl, 3, dipole)) then - if (.not. rtdb_put(rtdb, 'task:dipole', mt_dbl, 3, dipole)) + if (rtdb_get(rtdb, key, mt_dbl, 3, dipole(1))) then + if (.not. rtdb_put(rtdb, 'task:dipole', mt_dbl,3,dipole(1))) $ call errquit('task_gradient: failed storing dipole',0, & RTDB_ERR) endif