Fortran：將雙精度複數轉換爲單精度

Question

我可以使用sngl將雙精度實變量轉換爲單精度。但是，我怎樣才能將一個雙精度復變量轉換爲單精度變量？

Answer 1

您可以複製的單精度複雜的變量，或 您還可以使用cmplx和dcmplx功能：

program test 
    complex*16:: a 
    complex :: b 
    a = (1.d0, 2.d0) 
    b = a 

    print *, a, b 
    print *, cmplx(a), dcmplx(b) 
end 

輸出：

(1.00000000000000,2.00000000000000) (1.000000,2.000000) 
(1.000000,2.000000) (1.00000000000000,2.00000000000000) 

Answer 2

使用通用REAL()所有實際數字轉換，儘管SNGL()也可用於一個特定情況：

integer, parameter :: sp = kind(1e0), dp = kind(1d0) 

    real(x) !converts to the default kind, which is the single precision 
      !sngl(x) does the same thing 
    real(x, sp) ! converts to the kind sp (single precision) 
    real(x, dp) ! converts to the kind dp (double precision) 

複雜的是一樣的，但使用CMPLX()：

cmplx(x) !converts to the default kind, which is the single precision 
    cmplx(x, sp) ! converts to the kind sp (single precision) 
    cmplx(x, dp) ! converts to the kind dp (double precision) 

在分配的轉換是隱式的，你不必（但可以）使用這些顯式轉換函數。

單精度和雙精度的整體概念已經過時並被Fortran 90 kinds所取代。