Użytkownik "slawek" <f...@f...com> napisał:

> IF ((IAGE.GE.ITRSHLD).OR..NOT.EDU) THEN
> CALL AMNESIA
> ENDIF

O ja pierdziele ! Brawo ! :) Az lza sie w oku zakrecila :).
Ach te integer implicit :) Malina !
PS: Juz mailem nadzieje ze stary dobry czysty/nieskazony F4 :)!
ale to jednak nowoczesny/"strukturalny" (choc fakt ze czysty) F77

Hm.. Wroce "do zrodel (czyli F4):

LOGICAL EDU
...
IF (IAGE.GE.ITRSHLD.OR..NOT.EDU) CALL AMNESIA

albo jeszcze bardziej cudownie:

LOGICAL EDU
...
IF (IAGE.LT.ITRSHLD.AND.EDU) GO TO 100
CALL AMNESIA
100

AK


---
Ta wiadomość została sprawdzona na obecność wirusów przez oprogramowanie antywirusowe
Avast.
https://www.avast.com/antivirus