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
387 B
11 lines
387 B
function ovw3(n1,n2,p1,p2,p3,del3in)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
include 'lib/TensorReduction/Include/ovupdown.f'
|
|
real(dp):: ovw3,p1(4),p2(4),p3(4),n1up(4),n2up(4),del3in,del4
|
|
integer n1,n2
|
|
n1up(1:4)=up(1:4,n1)
|
|
n2up(1:4)=up(1:4,n2)
|
|
ovw3=del4(n1up,p1,p2,p3,n2up,p1,p2,p3)/del3in
|
|
return
|
|
end
|