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 proc~setupcasebcs SetUpCaseBCS proc~setupcasebcs->proc~bc_set_add proc~setupcasebcs~11 SetUpCaseBCS proc~setupcasebcs~11->proc~bc_set_add proc~setupcasebcs~13 SetUpCaseBCS proc~setupcasebcs~13->proc~bc_set_add proc~setupcasebcs~14 SetUpCaseBCS proc~setupcasebcs~14->proc~bc_set_add proc~setupcasebcs~2 SetUpCaseBCS proc~setupcasebcs~2->proc~bc_set_add proc~setupcasebcs~3 SetUpCaseBCS proc~setupcasebcs~3->proc~bc_set_add proc~setupcasebcs~4 SetUpCaseBCS proc~setupcasebcs~4->proc~bc_set_add proc~setupcasebcs~5 SetUpCaseBCS proc~setupcasebcs~5->proc~bc_set_add proc~setupcasebcs~9 SetUpCaseBCS proc~setupcasebcs~9->proc~bc_set_add program~main main program~main->proc~setupcasebcs program~main~11 main program~main~11->proc~setupcasebcs~11 program~main~13 main program~main~13->proc~setupcasebcs~13 program~main~14 main program~main~14->proc~setupcasebcs~14 program~main~2 main program~main~2->proc~setupcasebcs~2 program~main~3 main program~main~3->proc~setupcasebcs~3 program~main~4 main program~main~4->proc~setupcasebcs~4 program~main~5 main program~main~5->proc~setupcasebcs~5 program~main~9 main program~main~9->proc~setupcasebcs~9

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