You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
11 lines
372 B
11 lines
372 B
function ovw2(n1,n2,p1,p2,del2in)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
include 'lib/TensorReduction/Include/ovupdown.f'
|
|
real(dp):: ovw2,p1(4),p2(4),n1up(4),n2up(4),del2in,del3
|
|
integer n1,n2
|
|
n1up(1:4)=up(1:4,n1)
|
|
n2up(1:4)=up(1:4,n2)
|
|
ovw2=del3(n1up,p1,p2,n2up,p1,p2)/del2in
|
|
return
|
|
end
|