irpjast/jastrow_provider.irp.f

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
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`
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`

			`jastrow_full = dexp(factor_ee + factor_en + factor_een)`

			`END_PROVIDER`