vp.f90 File Reference

Data Types
interface	grasp_rciqed_qed_vp::potential
	Evaluates the single particle matrix elements of an arbitrary (even) potential represented as an array on the GRASP grid in the basis of GRASP orbitals. More...
interface	grasp_rciqed_qed_vp::qedvp
	Populates a matrix with the matrix elements of a QED vacuum polarization potential. More...

Modules
module	grasp_rciqed_qed_vp

Functions/Subroutines
subroutine	grasp_rciqed_qed_vp::qedvp_init
	Initializes the global state for the vacuum polarization calculations. More...
subroutine	grasp_rciqed_qed_vp::qedvp (matrix)
	Populates matrix with the full QED vacuum polarization matrix elements in the orbital basis. More...
subroutine	grasp_rciqed_qed_vp::qedvp_type (vptype, matrix)
	Populates matrix with the matrix elements of the VP potential corresponding to a contribution defined by vptype. More...
subroutine	grasp_rciqed_qed_vp::potential_kl (v, k1, k2, result)
	Integrates the generic potential, stored in the array v, with orbitals k1 and k2 to obtain a single particle matrix element correponding to those orbitals. More...
subroutine	grasp_rciqed_qed_vp::potential (v, matrix)
	Populates matrix with the matrix elements of potential v. More...

Variables
integer, parameter	grasp_rciqed_qed_vp::nvptypes = 2
character(*), dimension(nvptypes), parameter	grasp_rciqed_qed_vp::vptypes_long = (/ "Uehling ", "Källén-Sabry " /)
character(*), dimension(nvptypes), parameter	grasp_rciqed_qed_vp::vptypes_short = (/ "uehling ", "kallensabry" /)
logical	grasp_rciqed_qed_vp::qedvp_initialized = .false.
real(real64), dimension(:,:), allocatable	grasp_rciqed_qed_vp::vp_potential
real(real64), dimension(:,:), allocatable	grasp_rciqed_qed_vp::qedvp_kl
real(real64), dimension(nnnp)	grasp_rciqed_qed_vp::zdist