scemama/qp_plugins_scemama
1
0
Fork 0
mirror of https://gitlab.com/scemama/qp_plugins_scemama.git synced 2024-11-07 14:43:41 +01:00
Code Issues Releases Wiki Activity

Update read integrals

Browse Source
This commit is contained in:
Anthony Scemama 2022-12-07 09:53:26 +01:00
parent d8b80f4b55
commit 2d20035e02
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
devel/trexio/import_trexio_integrals.irp.f
View File

@ -104,19 +104,19 @@ subroutine run
! --------------- ! ---------------
PROVIDE ao_integrals_map PROVIDE ao_integrals_map
allocate(buffer_i(ao_num**3), buffer_values(ao_num**3)) integer*4 :: BUFSIZE
allocate(Vi(4,ao_num**3), V(ao_num**3)) BUFSIZE=ao_num**2
allocate(buffer_i(BUFSIZE), buffer_values(BUFSIZE))
allocate(Vi(4,BUFSIZE), V(BUFSIZE))
integer*8 :: offset, icount integer*8 :: offset, icount
open(unit=104,file='tmp')
offset = 0_8 offset = 0_8
icount = size(V) icount = BUFSIZE
rc = TREXIO_SUCCESS rc = TREXIO_SUCCESS
do while (icount == size(V)) do while (icount == size(V))
rc = trexio_read_ao_2e_int_eri(f, offset, icount, Vi, V) rc = trexio_read_ao_2e_int_eri(f, offset, icount, Vi, V)
if (rc /= TREXIO_SUCCESS) then
exit
endif
do m=1,icount do m=1,icount
i = Vi(1,m) i = Vi(1,m)
j = Vi(2,m) j = Vi(2,m)
@ -125,11 +125,16 @@ subroutine run
integral = V(m) integral = V(m)
call two_e_integrals_index(i, j, k, l, buffer_i(m) ) call two_e_integrals_index(i, j, k, l, buffer_i(m) )
buffer_values(m) = integral buffer_values(m) = integral
write(104,'(4(I5,X),2D22.15)') i,j,k,l, integral
enddo enddo
call insert_into_ao_integrals_map(int(icount,4),buffer_i,buffer_values) call insert_into_ao_integrals_map(int(icount,4),buffer_i,buffer_values)
offset = offset + icount offset = offset + icount
if (rc /= TREXIO_SUCCESS) then
exit
endif
end do end do
n_integrals = offset n_integrals = offset
close(104)
call map_sort(ao_integrals_map) call map_sort(ao_integrals_map)
call map_unique(ao_integrals_map) call map_unique(ao_integrals_map)