bc_set_CheckBounds Function

private pure function bc_set_CheckBounds(xlo, xhi) result(val)

Makes sure bounds represent a plane.

Type Bound

bc_set

Arguments

Type IntentOptional Attributes Name
real(kind=wp), intent(in) :: xlo(3)

Lower left corner
real(kind=wp), intent(in) :: xhi(3)

Upper right corner

Return Value logical

True, if bounds represent a plane


Called by

proc~~bc_set_checkbounds~~CalledByGraph proc~bc_set_checkbounds bc_set%bc_set_CheckBounds proc~bc_set_add bc_set%bc_set_Add proc~bc_set_add->proc~bc_set_checkbounds proc~bc_set_read bc_set%bc_set_Read proc~bc_set_read->proc~bc_set_add

Source Code

    pure function bc_set_CheckBounds(xlo,xhi) result(val)
      !> Makes sure bounds represent a plane.
      real(wp), intent(in) :: xlo(3)                                           !! Lower left corner
      real(wp), intent(in) :: xhi(3)                                           !! Upper right corner
      logical :: val                                                           !! True, if bounds represent a plane
      ! Work variables
      real(wp):: vol

      ! Compute volume of this region
      vol = (xhi(1)-xlo(1))*(xhi(2)-xlo(2))*(xhi(3)-xlo(3))

      if (vol.eq.0)  then
        val = .true.
      else
        val = .false.
      end if
    end function bc_set_CheckBounds