dbcsr_data_get_size_referenced Function

public pure function dbcsr_data_get_size_referenced(area) result(data_size_referenced)

Get actual data storage used for matrix

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_data_obj), intent(in) :: area

Count data of this matrix

Return Value integer

Data size used by matrix


Contents


Source Code

   PURE FUNCTION dbcsr_data_get_size_referenced(area) RESULT(data_size_referenced)
      !! Get actual data storage used for matrix

      TYPE(dbcsr_data_obj), INTENT(IN)                   :: area
         !! Count data of this matrix
      INTEGER                                            :: data_size_referenced
         !! Data size used by matrix

      IF (ASSOCIATED(area%d)) THEN
         data_size_referenced = area%d%ref_size
      ELSE
         data_size_referenced = 0
      END IF
   END FUNCTION dbcsr_data_get_size_referenced