Checks whether a data area is valid
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_data_obj), | intent(in) | :: | area |
data area |
whether the data area is valid
ELEMENTAL FUNCTION dbcsr_data_valid(area) RESULT(valid)
!! Checks whether a data area is valid
TYPE(dbcsr_data_obj), INTENT(IN) :: area
!! data area
LOGICAL :: valid
!! whether the data area is valid
valid = ASSOCIATED(area%d)
END FUNCTION dbcsr_data_valid