dbcsr_release_p Subroutine

public subroutine dbcsr_release_p(matrix)

Arguments

Type IntentOptional Attributes Name
type(dbcsr_type), POINTER :: matrix

Source Code

   SUBROUTINE dbcsr_release_p(matrix)
      TYPE(dbcsr_type), POINTER                          :: matrix

      IF (ASSOCIATED(matrix)) THEN
         CALL dbcsr_release(matrix)
         DEALLOCATE (matrix)
      END IF
   END SUBROUTINE dbcsr_release_p