dbcsr_scalar_s Function

private elemental function dbcsr_scalar_s(scalar) result(encapsulated_scalar)

Sets a scalar in an encapsulated data structure

Arguments

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

scalar to encapsulate

Return Value type(dbcsr_scalar_type)

encapsulated scalar


Source Code

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

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

         encapsulated_scalar = dbcsr_scalar_zero(dbcsr_type_real_4)
         encapsulated_scalar%r_sp = scalar
      END FUNCTION dbcsr_scalar_s