mirror of
https://github.com/LCPQ/quantum_package
synced 2024-08-31 08:33:40 +02:00
17 lines
468 B
FortranFixed
17 lines
468 B
FortranFixed
|
BEGIN_PROVIDER [ integer, n_pt_max_integrals ]
|
||
|
&BEGIN_PROVIDER [ integer, n_pt_max_i_x]
|
||
|
implicit none
|
||
|
integer :: n_pt_sup
|
||
|
integer :: prim_power_l_max
|
||
|
include 'constants.F'
|
||
|
prim_power_l_max = maxval(ao_power)
|
||
|
n_pt_max_integrals = 24 * prim_power_l_max + 4
|
||
|
n_pt_max_i_x = 8 * prim_power_l_max
|
||
|
ASSERT (n_pt_max_i_x-1 <= max_dim)
|
||
|
if (n_pt_max_i_x-1 > max_dim) then
|
||
|
print *, 'Increase max_dim in constants.F to ', n_pt_max_i_x-1
|
||
|
stop 1
|
||
|
endif
|
||
|
END_PROVIDER
|
||
|
|