From ab99e922325bf973eaafd415085e4b62fbec0a97 Mon Sep 17 00:00:00 2001 From: edoapra Date: Fri, 3 Dec 2021 13:47:14 -0800 Subject: [PATCH] missing argument --- src/hessian/analytic/onedd_cont.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/hessian/analytic/onedd_cont.F b/src/hessian/analytic/onedd_cont.F index e474c2900b..ef469af4ac 100644 --- a/src/hessian/analytic/onedd_cont.F +++ b/src/hessian/analytic/onedd_cont.F @@ -147,7 +147,7 @@ c call oned_calc(n3xyz,g_rhs,dbl_mb(k_buf), * max1e,dbl_mb(k_scr),mscratch_1e,.false., ! * max1e,dbl_mb(k_scr),mscratch_1e,skelsym, - * doS,doT,doV,geom,basis,ncent) + * doS,doT,doV,geom,basis,ncent,1) if (ndens.gt.1) then ! UHF case alo(1) = 1 ahi(1) = n3xyz