dbcsr_init_p Subroutine

public subroutine dbcsr_init_p(matrix)

Arguments

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

Contents

Source Code

dbcsr_init_p

Source Code

   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