dbcsr_set_c Subroutine

private subroutine dbcsr_set_c(matrix, alpha)

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_type), intent(inout) :: matrix
complex(kind=real_4), intent(in) :: alpha

Contents

Source Code


Source Code

      SUBROUTINE dbcsr_set_c (matrix, alpha)
         TYPE(dbcsr_type), INTENT(INOUT)       :: matrix
         COMPLEX(kind=real_4), INTENT(IN)                      :: alpha

         CALL dbcsr_set_prv(matrix%prv, alpha)
      END SUBROUTINE dbcsr_set_c