dbcsr_scalar_get_value_d Subroutine

private elemental subroutine dbcsr_scalar_get_value_d(encapsulated_scalar, value)

Sets a scalar in an encapsulated data structure

Arguments

Type IntentOptional Attributes Name
type(dbcsr_scalar_type), intent(in) :: encapsulated_scalar

encapsulated scalar
real(kind=real_8), intent(out) :: value

value of the scalar

Source Code

      ELEMENTAL SUBROUTINE dbcsr_scalar_get_value_d (encapsulated_scalar, value)
     !! Sets a scalar in an encapsulated data structure

         TYPE(dbcsr_scalar_type), INTENT(IN) :: encapsulated_scalar
        !! encapsulated scalar
         REAL(kind=real_8), INTENT(OUT)                :: value
        !! value of the scalar

         value = encapsulated_scalar%r_dp
      END SUBROUTINE dbcsr_scalar_get_value_d