cross Function

public pure function cross(a, b) result(c)

3次元ベクトルの外積を返す基本演算。

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: a(3)
real(kind=dp), intent(in) :: b(3)

Return Value real(kind=dp), (3)


Called by

proc~~cross~3~~CalledByGraph proc~cross~3 cross proc~boris_push boris_push proc~boris_push->proc~cross~3

Source Code

  pure function cross(a, b) result(c)
    real(dp), intent(in) :: a(3), b(3)
    real(dp) :: c(3)
    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