dbcsr_mm_multrec_get_nblks Function

public function dbcsr_mm_multrec_get_nblks(this) result(nblks)

Return number of blocks

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_mm_multrec_type), intent(in) :: this

Return Value integer


Contents


Source Code

   FUNCTION dbcsr_mm_multrec_get_nblks(this) RESULT(nblks)
      !! Return number of blocks
      TYPE(dbcsr_mm_multrec_type), INTENT(IN)            :: this
      INTEGER                                            :: nblks

      nblks = this%product_wm%lastblk

   END FUNCTION dbcsr_mm_multrec_get_nblks