dbcsr_init_p Subroutine

public subroutine dbcsr_init_p(matrix)

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_type), POINTER:: matrix

Contents

Source Code


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