2014-04-16 22:16:32 +02:00
|
|
|
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
|
2015-06-04 16:40:00 +02:00
|
|
|
include 'Utils/constants.include.F'
|
2014-04-16 22:16:32 +02:00
|
|
|
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
|
2015-06-04 16:40:00 +02:00
|
|
|
print *, 'Increase max_dim in Utils/constants.include.F to ', n_pt_max_i_x-1
|
2014-04-16 22:16:32 +02:00
|
|
|
stop 1
|
|
|
|
|
endif
|
|
|
|
|
END_PROVIDER
|
|
|
|
|
|
