cross_product Interface

public interface cross_product

Module Procedures

private 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)

private function cross_3d_c(a, b) result(c)

Arguments

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

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