Równoważność IF i WHERE

Question

Wszyscy wiemy, że pętla DO jest silniejsza niż oświadczenie FORALL w Fortran. Oznacza to, że zawsze można zastąpić FORALL przez DO, ale nie na odwrót.

Co z oświadczeniem i blokiem WHERE?

Czy mogę zawsze zastąpić IF przez WHERE? Czy zawsze można kodować warunkowe i bifurkacje za pomocą WHERE, unikając w ten sposób IF?

Answer 1

WHERE oświadczenia są zarezerwowane dla tablic zadań i nic innego, np:

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

Jeśli próbowano dodając coś powiedzieć WRITE oświadczenie, wewnątrz bloku WHERE, by zobaczyć coś takiego błędu po opracowującym (kompilator zależna)

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

---

EDIT

Zauważ, że zagnieżdżone WHERE bloki są legalne:

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