Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_type), | POINTER | :: | matrix |
SUBROUTINE dbcsr_init_p(matrix)
TYPE(dbcsr_type), POINTER :: matrix
IF (ASSOCIATED(matrix)) THEN
CALL dbcsr_release(matrix)
DEALLOCATE (matrix)
END IF
ALLOCATE (matrix)
END SUBROUTINE dbcsr_init_p