Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(NullGeomSpec), | intent(in) | :: | a | |||
class(GeomSpec), | intent(in) | :: | b |
logical function equal_to(a, b) class(NullGeomSpec), intent(in) :: a class(GeomSpec), intent(in) :: b equal_to = .false. end function equal_to