TREX/qmckl
1
0
Fork 0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2024-11-03 20:54:09 +01:00
Code Issues Projects Releases Wiki Activity

Fixed bugs. Travis OK.

Browse Source
This commit is contained in:
Anthony Scemama 2022-03-28 18:29:29 +02:00
parent b9cd2ed1ab
commit 91811079d3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
org/qmckl_mo.org
View File

@ -632,9 +632,9 @@ integer function qmckl_compute_mo_basis_mo_vgl_doc_f(context, &
integer*8 , intent(in) :: ao_num, mo_num
integer*8 , intent(in) :: point_num
double precision , intent(in) :: ao_vgl(ao_num,5,point_num)
double precision , intent(in) :: coef_normalized_t(ao_num,mo_num)
double precision , intent(in) :: coef_normalized_t(mo_num,ao_num)
double precision , intent(out) :: mo_vgl(mo_num,5,point_num)
integer :: i,j,k
integer*8 :: i,j,k
double precision :: c1, c2, c3, c4, c5
do j=1,point_num