irpjast/jastrow_provider.irp.f

BEGIN_PROVIDER [ double precision, jastrow_full ]
 implicit none
 BEGIN_DOC
 ! Complete jastrow factor 
 END_DOC
 integer :: i, j

 print *, factor_ee
 print *, factor_en
 print *, factor_een

 jastrow_full = dexp(factor_ee + factor_en + factor_een)

END_PROVIDER
Tests (broken) 2020-11-26 16:12:33 +01:00			`BEGIN_PROVIDER [ double precision, jastrow_full ]`
			`implicit none`
			`BEGIN_DOC`
			`! Complete jastrow factor`
			`END_DOC`
Corrected distances 2020-12-08 13:08:23 +01:00			`integer :: i, j`
Reading input file. BROKENgit add .! 2020-12-04 01:05:07 +01:00
Tests (broken) 2020-11-26 16:12:33 +01:00			`print *, factor_ee`
			`print *, factor_en`
			`print *, factor_een`
Fix nuclei formula 2020-12-08 18:56:36 +01:00
Tests (broken) 2020-11-26 16:12:33 +01:00			`jastrow_full = dexp(factor_ee + factor_en + factor_een)`

			`END_PROVIDER`