dbcsr_set_z Subroutine

private subroutine dbcsr_set_z(matrix, alpha)

Arguments

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

Contents

Source Code


Source Code

      SUBROUTINE dbcsr_set_z (matrix, alpha)
         TYPE(dbcsr_type), INTENT(INOUT)       :: matrix
         COMPLEX(kind=real_8), INTENT(IN)                      :: alpha

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