dbcsr_scalar_get_value_c Subroutine

private elemental subroutine dbcsr_scalar_get_value_c(encapsulated_scalar, value)

Sets a scalar in an encapsulated data structure

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_scalar_type), intent(in) :: encapsulated_scalar

encapsulated scalar

complex(kind=real_4), intent(out) :: value

value of the scalar


Contents


Source Code

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

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

         value = encapsulated_scalar%c_sp
      END SUBROUTINE dbcsr_scalar_get_value_c