Tương đương với IF và WHERE

Question

Chúng ta đều biết rằng vòng lặp DO mạnh hơn câu lệnh FORALL ở Fortran. Tức là, bạn luôn có thể thay thế một số FORALL bằng một số DO, nhưng không phải ngược lại.

Còn câu lệnh và khối WHERE thì sao?

Tôi luôn có thể thay thế IF bởi một WHERE? Có luôn luôn có thể mã các điều kiện và phân nhánh với một WHERE, do đó tránh IF?

Answer 1

WHERE báo cáo được dành riêng cho các mảng bài tập và không có gì khác, ví dụ:

INTEGER, DIMENSION(100,100) :: a, b 
... define a ... 
WHERE(a < 0) 
    b = 1 
ELSEWHERE 
    b = 0 
ENDWHERE 

Nếu bạn đã cố gắng thêm trong một cái gì đó, nói một tuyên bố WRITE, bên trong khối WHERE, bạn sẽ thấy một cái gì đó giống như lỗi biên dịch sau (phụ thuộc biên dịch):

Error: Unexpected WRITE statement in WHERE block at (1) 

---

EDIT

Lưu ý rằng lồng WHERE khối là hợp pháp:

WHERE(a < 0) 
    WHERE(ABS(a) > 2) 
     b = 2 
    ELSEWHERE 
     b = 1 
    ENDWHERE 
ELSEWHERE 
    b = 0 
ENDWHERE