irpjast/jastrow.irp.f

program jastrow_irp
  implicit none
  TOUCH elec_coord
  print *, "J_{IRP} = ", jastrow_full
  print *, "\nabla J_{IRP} = ", jastrow_derivs(1:3, :)
  print *, "\nabla^2 J_{IRP} = ", jastrow_derivs(4, :)
end program
Included subroutine to interface with CHAMP 2021-01-17 15:34:06 +01:00			`program jastrow_irp`
Initial commit 2020-11-17 21:35:52 +01:00			`implicit none`
Included subroutine to interface with CHAMP 2021-01-17 15:34:06 +01:00			`TOUCH elec_coord`
			`print *, "J_{IRP} = ", jastrow_full`
			`print *, "\nabla J_{IRP} = ", jastrow_derivs(1:3, :)`
			`print *, "\nabla^2 J_{IRP} = ", jastrow_derivs(4, :)`
Initial commit 2020-11-17 21:35:52 +01:00			`end program`