is_equal Function

public function is_equal(a, b)

Uses

  • proc~~is_equal~~UsesGraph proc~is_equal is_equal module~modglobal modglobal proc~is_equal->module~modglobal

Arguments

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

Return Value logical


Called by

proc~~is_equal~~CalledByGraph proc~is_equal is_equal proc~alignment alignment proc~alignment->proc~is_equal proc~local_coords local_coords proc~local_coords->proc~is_equal proc~wallfunheat wallfunheat proc~wallfunheat->proc~is_equal proc~wallfunheat->proc~local_coords proc~wallfunmom wallfunmom proc~wallfunmom->proc~is_equal proc~wallfunmom->proc~alignment proc~wallfunmom->proc~local_coords proc~ibmwallfun ibmwallfun proc~ibmwallfun->proc~wallfunheat proc~ibmwallfun->proc~wallfunmom proc~initibmwallfun initibmwallfun proc~initibmwallfun->proc~alignment proc~initibm initibm proc~initibm->proc~initibmwallfun program~dalesurban DALESURBAN program~dalesurban->proc~ibmwallfun program~dalesurban->proc~initibm

Source Code

   logical function is_equal(a,b)
     ! determines whether two vectors are equal to each other within a tolerance of eps1
     use modglobal, only : eps1
     implicit none
     real, dimension(3), intent(in) :: a, b

     if (all(abs(a - b) < eps1)) then
       is_equal = .true.
     else
       is_equal = .false.
     end if

   end function is_equal