mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-08-15 00:38:34 +02:00
cleanup integral import
This commit is contained in:
parent
948b16d4c5
commit
aac2c60971
@ -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) )
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user