cross_2d_d Function

function cross_2d_d(a, b) result(c)

Arguments

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

Return Value real(kind=8)


Source Code

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