Sets metadata form an array.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_type), | intent(inout) | :: | matrix |
Matrix |
||
integer, | intent(in), | DIMENSION(dbcsr_meta_size) | :: | meta |
Metadata elements |
SUBROUTINE dbcsr_unpack_meta(matrix, meta)
!! Sets metadata form an array.
TYPE(dbcsr_type), INTENT(INOUT) :: matrix
!! Matrix
INTEGER, DIMENSION(dbcsr_meta_size), INTENT(IN) :: meta
!! Metadata elements
! ---------------------------------------------------------------------------
matrix%nblks = meta(dbcsr_slot_nblks)
matrix%nze = meta(dbcsr_slot_nze)
matrix%nblkrows_total = meta(dbcsr_slot_nblkrows_total)
matrix%nblkcols_total = meta(dbcsr_slot_nblkcols_total)
matrix%nfullrows_total = meta(dbcsr_slot_nfullrows_total)
matrix%nfullcols_total = meta(dbcsr_slot_nfullcols_total)
matrix%nblkrows_local = meta(dbcsr_slot_nblkrows_local)
matrix%nblkcols_local = meta(dbcsr_slot_nblkcols_local)
matrix%nfullrows_local = meta(dbcsr_slot_nfullrows_local)
matrix%nfullcols_local = meta(dbcsr_slot_nfullcols_local)
matrix%index(dbcsr_slot_dense) = 0
!matrix%transpose = BTEST (meta(dbcsr_slot_type), 0)
matrix%symmetry = BTEST(meta(dbcsr_slot_type), 1)
matrix%negate_real = BTEST(meta(dbcsr_slot_type), 2)
matrix%negate_imaginary = BTEST(meta(dbcsr_slot_type), 3)
END SUBROUTINE dbcsr_unpack_meta