Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
complex(kind=8), | dimension(2) | :: | a | |||
complex(kind=8), | dimension(2) | :: | b |
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