cross Function

  1. korc_binning_diagnostic.f90
  2. korc_binning_diagnostic
  3. cross

private function cross(a, b)

Arguments

Type IntentOptional AttributesName
real(kind=rp), intent(in), DIMENSION(3):: a
real(kind=rp), intent(in), DIMENSION(3):: b

Return Value real(kind=rp), DIMENSION(3)


Contents

Source Code

cross

Source Code

  FUNCTION cross(a,b)
    REAL(rp), DIMENSION(3), INTENT(IN) :: a
    REAL(rp), DIMENSION(3), INTENT(IN) :: b
    REAL(rp), DIMENSION(3) :: cross

    cross(1) = a(2)*b(3) - a(3)*b(2)
    cross(2) = a(3)*b(1) - a(1)*b(3)
    cross(3) = a(1)*b(2) - a(2)*b(1)
  END FUNCTION cross