mirror of
https://github.com/QuantumPackage/qp2.git
synced 2024-08-25 05:31:48 +02:00
19 lines
828 B
Fortran
19 lines
828 B
Fortran
![]() |
|
||
|
BEGIN_PROVIDER [double precision, potential_new_functional_x_alpha_ao,(ao_num,ao_num,N_states)]
|
||
|
&BEGIN_PROVIDER [double precision, potential_new_functional_x_beta_ao,(ao_num,ao_num,N_states)]
|
||
|
&BEGIN_PROVIDER [double precision, potential_new_functional_c_alpha_ao,(ao_num,ao_num,N_states)]
|
||
|
&BEGIN_PROVIDER [double precision, potential_new_functional_c_beta_ao,(ao_num,ao_num,N_states)]
|
||
|
implicit none
|
||
|
BEGIN_DOC
|
||
|
! define here your exchange/correlation potentials for alpha/beta electrons
|
||
|
END_DOC
|
||
|
potential_new_functional_x_alpha_ao = 0.d0 ! replace by your new provider
|
||
|
potential_new_functional_x_beta_ao = 0.d0 ! replace by your new provider
|
||
|
|
||
|
potential_new_functional_c_alpha_ao = 0.d0 ! replace by your new provider
|
||
|
potential_new_functional_c_beta_ao = 0.d0 ! replace by your new provider
|
||
|
|
||
|
|
||
|
END_PROVIDER
|
||
|
|