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