IsEmpty

This function returns True if the bounding box is empty.

Interface

Interface

INTERFACE
  MODULE PURE FUNCTION isEmpty(obj) RESULT(ans)
    CLASS(BoundingBox_), INTENT(IN) :: obj
    LOGICAL(LGT) :: ans
  END FUNCTION isEmpty
END INTERFACE

example

PROGRAM main
USE easifemBase
IMPLICIT NONE

TYPE(BoundingBox_) :: obj

CALL initiate(obj, nsd=2, &
              lim=[0.0_DFP, 1.0_DFP, 0.0_DFP, 1.0_DFP, 0.0_DFP, 0.0_DFP])

CALL OK(IsEmpty(obj) .EQV. .FALSE., "IsEmpty: ")

CALL initiate(obj, nsd=2, &
              lim=[0.0_DFP, 0.0_DFP, 0.0_DFP, 0.0_DFP, 0.0_DFP, 0.0_DFP])
CALL OK(IsEmpty(obj), msg="IsEmpty:  ")

END PROGRAM main

↢ close