cross_product Function

public function cross_product(a, b)

Arguments

Type IntentOptional Attributes Name
real, intent(in), dimension(3) :: a
real, intent(in), dimension(3) :: b

Return Value real, dimension(3)


Called by

proc~~cross_product~~CalledByGraph proc~cross_product cross_product proc~local_coords local_coords proc~local_coords->proc~cross_product proc~wallfunheat wallfunheat proc~wallfunheat->proc~local_coords proc~wallfunmom wallfunmom proc~wallfunmom->proc~local_coords proc~ibmwallfun ibmwallfun proc~ibmwallfun->proc~wallfunheat proc~ibmwallfun->proc~wallfunmom program~dalesurban DALESURBAN program~dalesurban->proc~ibmwallfun

Source Code

   function cross_product(a,b)
     ! Calculate the cross product (a x b)
     implicit none
     real, dimension(3) :: cross_product
     real, dimension(3), intent(in) :: a, b

     cross_product(1) = a(2)*b(3) - a(3)*b(2)
     cross_product(2) = a(3)*b(1) - a(1)*b(3)
     cross_product(3) = a(1)*b(2) - a(2)*b(1)

   end function cross_product