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~udales uDALES program~udales->proc~ibmwallfun program~udales->proc~initibm proc~execute_runmode_actions execute_runmode_actions program~udales->proc~execute_runmode_actions proc~tests_mpi_operators tests_mpi_operators proc~tests_mpi_operators->proc~initibm proc~tests_read_sparse_ijk tests_read_sparse_ijk proc~tests_read_sparse_ijk->proc~initibm proc~execute_runmode_actions->proc~tests_mpi_operators proc~execute_runmode_actions->proc~tests_read_sparse_ijk

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