dbcsr_scalar_d Function

private elemental function dbcsr_scalar_d(scalar) result(encapsulated_scalar)

Sets a scalar in an encapsulated data structure

Arguments

Type IntentOptional Attributes Name
real(kind=real_8), intent(in) :: scalar

scalar to encapsulate

Return Value type(dbcsr_scalar_type)

encapsulated scalar


Source Code

      ELEMENTAL FUNCTION dbcsr_scalar_d (scalar) RESULT(encapsulated_scalar)
     !! Sets a scalar in an encapsulated data structure

         REAL(kind=real_8), INTENT(IN)       :: scalar
        !! scalar to encapsulate
         TYPE(dbcsr_scalar_type)   :: encapsulated_scalar
        !! encapsulated scalar

         encapsulated_scalar = dbcsr_scalar_zero(dbcsr_type_real_8)
         encapsulated_scalar%r_dp = scalar
      END FUNCTION dbcsr_scalar_d