Sets a scalar in an encapsulated data structure
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=real_8), | intent(in) | :: | scalar |
scalar to encapsulate |
encapsulated scalar
ELEMENTAL FUNCTION dbcsr_scalar_d (scalar) RESULT(encapsulated_scalar)
!! Sets a scalar in an encapsulated data structure
REAL(kind=real_8), INTENT(IN) :: scalar
!! scalar to encapsulate
TYPE(dbcsr_scalar_type) :: encapsulated_scalar
!! encapsulated scalar
encapsulated_scalar = dbcsr_scalar_zero(dbcsr_type_real_8)
encapsulated_scalar%r_dp = scalar
END FUNCTION dbcsr_scalar_d