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.
7 lines
219 B
7 lines
219 B
function pvdot(p1,p2)
|
|
implicit none
|
|
include 'lib/TensorReduction/Include/types.f'
|
|
real(dp):: pvdot,p1(4),p2(4)
|
|
pvdot=p1(4)*p2(4)-p1(1)*p2(1)-p1(2)*p2(2)-p1(3)*p2(3)
|
|
return
|
|
end
|