cross Function

  1. korc_collisions.f90
  2. korc_collisions
  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)


Called by

proc~~cross~3~~CalledByGraph proc~cross~3 cross proc~unitvectorsc unitVectorsC proc~unitvectorsc->proc~cross~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