Sets the referenced size of the data area
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_data_obj), | intent(inout) | :: | data_area |
area for which to set referenced data size |
||
integer, | intent(in) | :: | referenced_size |
set referenced data size to this value |
PURE SUBROUTINE dbcsr_data_set_size_referenced(data_area, referenced_size)
!! Sets the referenced size of the data area
TYPE(dbcsr_data_obj), INTENT(INOUT) :: data_area
!! area for which to set referenced data size
INTEGER, INTENT(IN) :: referenced_size
!! set referenced data size to this value
data_area%d%ref_size = referenced_size
END SUBROUTINE dbcsr_data_set_size_referenced