PTEROSOR/QuantumPackage
10
0
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-23 21:03:49 +01:00
Code Releases Activity

cleanup integral import

Browse Source
This commit is contained in:
Kevin Gasperich 2020-01-30 14:57:49 -06:00
parent 948b16d4c5
commit aac2c60971
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/utils_periodic/import_integrals_ao_periodic.irp.f
View File

@ -1,7 +1,4 @@
program print_integrals program import_ao_integrals_periodic
print *, 'Number of AOs?'
read(*,*) ao_num
TOUCH ao_num
call run call run
end end
@ -25,7 +22,7 @@ subroutine run
double precision :: sign double precision :: sign
call ezfio_set_ao_basis_ao_num(ao_num) ! call ezfio_set_ao_basis_ao_num(ao_num)
allocate (A(ao_num,ao_num), B(ao_num,ao_num) ) allocate (A(ao_num,ao_num), B(ao_num,ao_num) )