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.
8 lines
250 B
8 lines
250 B
function del2(p1,p2,p3,p4)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: del2,ovdot,p1(4),p2(4),p3(4),p4(4)
|
|
del2=ovdot(p1,p3)*ovdot(p2,p4)-ovdot(p1,p4)*ovdot(p2,p3)
|
|
return
|
|
end
|
|
|