Chuyển đổi loại hợp lý thành gấp đôi trong Fortran

Question

Tôi đang tìm cách chống đạn để chuyển đổi các biến loại logic thành kiểu thực sẽ hoạt động trong cả ifort và gfortran. Các công trình sau đây trong ifort, nhưng không trong gfortran:

logical :: a 
real :: b 
a = .true. 
b = dble(a) 

Lỗi ném vào gfortran là

b = dble(a) 
     1 
Error: 'a' argument of 'dble' intrinsic at (1) must be a numeric type 

Rõ ràng, .true. nên ánh xạ tới 1.d0 và .false. đến 0.d0. Cách tốt nhất để làm điều này là gì?

Answer 1

Tôi không chắc liệu có một công cụ nội tại thực hiện việc này hay không. Tôi không biết tại sao ifort chấp nhận điều này, và tôi đoán rằng đó là một chức năng cụ thể của trình biên dịch.

tùy chọn này, đặc biệt vì bạn muốn điều này là bằng chứng đạn, là tạo chức năng của riêng bạn.

tôi đã không kiểm tra này, nhưng sau đây có thể làm việc:

double precision function logic2dbl(a) 
    logical, intent(in) :: a 

    if (a) then 
    logic2dbl = 1.d0 
    else 
    logic2dbl = 0.d0 
    end if 
end function logic2dbl 

Answer 2

Ngoài viết một chức năng để xử lý việc này, bạn cũng có thể trực tiếp sử dụng chức năng hợp nhất nội tại: b = merge(1.d0, 0.d0, a). Hoặc bạn có thể viết một chương trình con được gán đã định nghĩa để thực hiện điều này, để bạn có thể chỉ cần gõ b = a.

Answer 3

Trong gfortran, tôi đang sử dụng TRANSFER nội tại cho loại công việc đó. Giả sử biến số nguyên my_int sau đó:

my_int = transfer(.false.,my_int) 

kết quả của my_int bằng 0 như mong đợi.