diff --git a/src/utils_periodic/import_integrals_ao_periodic.irp.f b/src/utils_periodic/import_integrals_ao_periodic.irp.f index 039af101..e352cabd 100644 --- a/src/utils_periodic/import_integrals_ao_periodic.irp.f +++ b/src/utils_periodic/import_integrals_ao_periodic.irp.f @@ -1,7 +1,4 @@ -program print_integrals - print *, 'Number of AOs?' - read(*,*) ao_num - TOUCH ao_num +program import_ao_integrals_periodic call run end @@ -25,7 +22,7 @@ subroutine run 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) )