LCPQ/quantum_package
10
0
Fork 0
mirror of https://github.com/LCPQ/quantum_package synced 2024-06-17 10:45:28 +02:00
Code Issues Releases Wiki Activity

Fix Read Integral (#197)

Browse Source 
* Fix read_integrals

* Fix mo_mono_ints
This commit is contained in:
Thomas Applencourt 2017-06-08 14:30:39 -05:00 committed by Anthony Scemama
parent 84299807f1
commit d533eb50c1
2 changed files with 20 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
plugins/read_integral/read_integrals_mo.irp.f
View File

@ -1,4 +1,4 @@
program print_integrals
program read_integrals
call run
end
@ -56,7 +56,7 @@ subroutine run
13 continue
close(iunit)
call insert_into_mo_integrals_map(n_integrals,buffer_i,buffer_values)
call insert_into_mo_integrals_map(n_integrals,buffer_i,buffer_values, 0.d0)
call map_sort(mo_integrals_map)

25
src/Integrals_Monoelec/mo_mono_ints.irp.f
View File

@ -3,13 +3,24 @@ BEGIN_PROVIDER [ double precision, mo_mono_elec_integral,(mo_tot_num_align,mo_to
integer :: i,j,n,l
BEGIN_DOC
! array of the mono electronic hamiltonian on the MOs basis :
! sum of the kinetic and nuclear electronic potential
! sum of the kinetic and nuclear electronic potential (and pseudo potential if needed)
END_DOC
print*,'Providing the mono electronic integrals'
do j = 1, mo_tot_num
do i = 1, mo_tot_num
mo_mono_elec_integral(i,j) = mo_nucl_elec_integral(i,j) + &
mo_kinetic_integral(i,j) + mo_pseudo_integral(i,j)
enddo
enddo
IF (do_pseudo) THEN
do j = 1, mo_tot_num
do i = 1, mo_tot_num
mo_mono_elec_integral(i,j) = mo_nucl_elec_integral(i,j) + mo_kinetic_integral(i,j) &
+ mo_pseudo_integral(i,j)
enddo
enddo
ELSE
do j = 1, mo_tot_num
do i = 1, mo_tot_num
mo_mono_elec_integral(i,j) = mo_nucl_elec_integral(i,j) + mo_kinetic_integral(i,j)
enddo
enddo
END IF
END_PROVIDER