Fills all data and precision types from the set one
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(dbcsr_scalar_type), | intent(inout) | :: | scalar |
data area |
ELEMENTAL SUBROUTINE dbcsr_scalar_fill_all(scalar)
!! Fills all data and precision types from the set one
TYPE(dbcsr_scalar_type), INTENT(INOUT) :: scalar
!! data area
SELECT CASE (scalar%data_type)
CASE (dbcsr_type_real_4)
!scalar%r_sp = 0
scalar%r_dp = REAL(scalar%r_sp, KIND=real_8)
scalar%c_sp = CMPLX(scalar%r_sp, 0, KIND=real_4)
scalar%c_dp = CMPLX(scalar%r_sp, 0, KIND=real_8)
CASE (dbcsr_type_real_8)
scalar%r_sp = REAL(scalar%r_dp, KIND=real_4)
!scalar%r_dp = REAL(scalar%r_dp, KIND=real_8)
scalar%c_sp = CMPLX(scalar%r_dp, 0, KIND=real_4)
scalar%c_dp = CMPLX(scalar%r_dp, 0, KIND=real_8)
CASE (dbcsr_type_complex_4)
scalar%r_sp = REAL(scalar%c_sp, KIND=real_4)
scalar%r_dp = REAL(scalar%c_sp, KIND=real_8)
!scalar%c_sp = CMPLX(scalar%c_sp, KIND=real_4)
scalar%c_dp = CMPLX(scalar%c_sp, KIND=real_8)
CASE (dbcsr_type_complex_8)
scalar%r_sp = REAL(scalar%c_dp, KIND=real_4)
scalar%r_dp = REAL(scalar%c_dp, KIND=real_8)
scalar%c_sp = CMPLX(scalar%c_dp, KIND=real_4)
!scalar%c_dp = CMPLX(scalar%r_dp, KIND=real_8)
END SELECT
END SUBROUTINE dbcsr_scalar_fill_all