missing argument

This commit is contained in:
edoapra 2021-12-03 13:47:14 -08:00
parent 678d0aebb5
commit ab99e92232
No known key found for this signature in database
GPG key ID: 472C4EBB4F3AEDFA

View file

@ -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