cross_2d_c Function

function cross_2d_c(a, b) result(c)

Arguments

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

Return Value complex(kind=8)


Source Code

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