Sets a scalar in an encapsulated data structure
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_scalar_type), | intent(in) | :: | encapsulated_scalar |
encapsulated scalar |
||
real(kind=real_4), | intent(out) | :: | value |
value of the scalar |
ELEMENTAL SUBROUTINE dbcsr_scalar_get_value_s (encapsulated_scalar, value)
!! Sets a scalar in an encapsulated data structure
TYPE(dbcsr_scalar_type), INTENT(IN) :: encapsulated_scalar
!! encapsulated scalar
REAL(kind=real_4), INTENT(OUT) :: value
!! value of the scalar
value = encapsulated_scalar%r_sp
END SUBROUTINE dbcsr_scalar_get_value_s