dbcsr_scalar_get_value_z Subroutine

private elemental subroutine dbcsr_scalar_get_value_z(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
complex(kind=real_8), intent(out) :: value

value of the scalar

Source Code

      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