TREX/qmckl
1
0
Fork 0
mirror of https://github.com/TREX-CoE/qmckl.git synced 2025-01-05 11:00:36 +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) :: ao_num, mo_num
integer*8 , intent(in) :: point_num integer*8 , intent(in) :: point_num
double precision , intent(in) :: ao_vgl(ao_num,5,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) 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 double precision :: c1, c2, c3, c4, c5
do j=1,point_num do j=1,point_num