2019-02-07 22:49:12 +01:00
|
|
|
recursive function VRROv(AngMomA,ExpPi,CenterPA) &
|
|
|
|
result(Ga)
|
|
|
|
|
|
|
|
! Compute two-electron integrals over Gaussian geminals
|
|
|
|
|
|
|
|
implicit none
|
|
|
|
|
|
|
|
! Input variables
|
|
|
|
|
|
|
|
integer,intent(in) :: AngMomA
|
|
|
|
double precision,intent(in) :: ExpPi
|
|
|
|
double precision,intent(in) :: CenterPA
|
|
|
|
|
|
|
|
! Output variables
|
|
|
|
|
|
|
|
double precision :: Ga
|
|
|
|
|
|
|
|
if(AngMomA < 0) then
|
|
|
|
Ga = 0d0
|
|
|
|
else
|
|
|
|
if(AngMomA == 0) then
|
|
|
|
Ga = 1d0
|
|
|
|
else
|
|
|
|
Ga = CenterPA*VRROv(AngMomA-1,ExpPi,CenterPA) + 0.5d0*dble(AngMomA-1)*ExpPi*VRROv(AngMomA-2,ExpPi,CenterPA)
|
2019-03-20 13:38:42 +01:00
|
|
|
end if
|
|
|
|
end if
|
2019-02-07 22:49:12 +01:00
|
|
|
|
|
|
|
end function VRROv
|