Bug fix in int_qdr_ga

This commit is contained in:
Daniel Mejia-Rodriguez 2025-10-20 22:47:13 -07:00
parent 3a79daa201
commit 01f8b47d2b

View file

@ -239,7 +239,7 @@ cdbg I ga_nodeid(),'QDISTRIB',g_xx,i0,i1,j0,j1
!
! get the integrals we want
!
call int_mpole(jbas, ishell, ibas, jshell,
call int_mpole(jbas, jshell, ibas, ishell,
$ 2,
$ center,
$ mscratch, dbl_mb(k_scr), max1e, dbl_mb(k_buf))