Sets a scalar in an encapsulated data structure
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_scalar_type), | intent(in) | :: | encapsulated_scalar |
encapsulated scalar |
||
complex(kind=real_8), | intent(out) | :: | value |
value of the scalar |
ELEMENTAL SUBROUTINE dbcsr_scalar_get_value_z (encapsulated_scalar, value)
!! Sets a scalar in an encapsulated data structure
TYPE(dbcsr_scalar_type), INTENT(IN) :: encapsulated_scalar
!! encapsulated scalar
COMPLEX(kind=real_8), INTENT(OUT) :: value
!! value of the scalar
value = encapsulated_scalar%c_dp
END SUBROUTINE dbcsr_scalar_get_value_z