Return number of blocks
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_mm_multrec_type), | intent(in) | :: | this |
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