2020-11-26 16:12:33 +01:00
|
|
|
BEGIN_PROVIDER [ double precision, jastrow_full ]
|
|
|
|
|
implicit none
|
|
|
|
|
BEGIN_DOC
|
|
|
|
|
! Complete jastrow factor
|
|
|
|
|
END_DOC
|
2020-12-08 13:08:23 +01:00
|
|
|
integer :: i, j
|
2020-12-04 01:05:07 +01:00
|
|
|
|
2020-12-09 22:23:19 +01:00
|
|
|
print *, "J_ee = ", factor_ee
|
|
|
|
|
print *, "J_en = ", factor_en
|
2020-12-10 13:55:53 +01:00
|
|
|
print *, "J_een = ", factor_een
|
2020-12-09 22:23:19 +01:00
|
|
|
print *, "J = J_ee + J_en + J_een = ", factor_ee + factor_en + factor_een
|
2020-12-08 18:56:36 +01:00
|
|
|
|
2020-11-26 16:12:33 +01:00
|
|
|
jastrow_full = dexp(factor_ee + factor_en + factor_een)
|
|
|
|
|
|
|
|
|
|
END_PROVIDER
|
