mirror of
https://github.com/TREX-CoE/irpjast.git
synced 2024-11-04 05:04:00 +01:00
14 lines
247 B
FortranFixed
14 lines
247 B
FortranFixed
|
BEGIN_PROVIDER [ double precision, jastrow_full ]
|
||
|
|
implicit none
|
||
|
|
BEGIN_DOC
|
||
|
|
! Complete jastrow factor
|
||
|
|
END_DOC
|
||
|
|
print *, factor_ee
|
||
|
|
print *, factor_en
|
||
|
|
print *, factor_een
|
||
|
|
|
||
|
|
jastrow_full = dexp(factor_ee + factor_en + factor_een)
|
||
|
|
|
||
|
|
END_PROVIDER
|
||
|
|
|