cross_3d_d Function

function cross_3d_d(a, b) result(c)

Arguments

Type IntentOptional Attributes Name
real(kind=8), dimension(3) :: a
real(kind=8), dimension(3) :: b

Return Value real(kind=8), dimension(3)


Source Code

function cross_3d_d(a,b) result(c)
  real(8),dimension(3) :: a,b
  real(8),dimension(3) :: c
  c(1) = a(2)*b(3) - a(3)*b(2)
  c(2) = a(3)*b(1) - a(1)*b(3)
  c(3) = a(1)*b(2) - a(2)*b(1)
end function cross_3d_d