mirror of
https://github.com/LCPQ/quantum_package
synced 2024-06-23 21:52:18 +02:00
17 lines
468 B
Forth
17 lines
468 B
Forth
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
|
|
|