dbcsr_scalar_get_value_s Subroutine

private elemental subroutine dbcsr_scalar_get_value_s(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_4), intent(out) :: value

value of the scalar

Source Code

      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