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

do góry

On Sat, 14 Nov 2015 16:28:26 +0100, AK wrote:

> Użytkownik "Roman W" <b...@g...pl> napisał:
>
>> PiS prekariatowi nie pomoze. W latach 2005-2007 PiS realizowal
>> neoliberalna politykę gospodarczą, i skład nowego rządu Szydło sugeruje
>> że znowu tak będzie. PiS jest prospoleczny tylko w kampanii wyborczej,
>> po wyborach woli się skupić na awanturach dyplomatycznych i tropieniu
>> agentów. A to dlatego, że Kaczyńskiego gospodarka po prostu nie
>> interesuje.
>
> Hm...
> No to jakim cudem na koniec 2007 roku "dziura budzetowa"
> wynosila ~15mld PLN, w stosunku do dzisiejszej 56 + 150mld "zajumanych"
> z OFE = 200mld PLN.

OFE to odrebny problem, uwazam ze odejscie od nich to jedna z najlepszych
decyzji PO. OFE to mechanizm przelewania pieniedzy od zwyklych ludzi w
kieszenie zarzadzajacych funduszami. Pobieraja prowizje 1% rocznie za
sledzenie indeksu WIG20...

Natomiast mi chodzilo o to, ze w latach 2005-07 PiS zmniejszyl progresje
PIT, co jest antyspoleczne.

RW

do góry

On Mon, 16 Nov 2015 21:37:05 +0100, "AK" <n...@n...com> wrote:
> LOGICAL EDU
> ...
> IF (IAGE.LT.ITRSHLD.AND.EDU) GO TO 100
> CALL AMNESIA
> 100

COMMON/DATA/IAGE,ITRSHLD,IFLAG
IF(IAGE-ITRSHLD) 30,10,10
C IFLAG=1 EDUCATED
C IFLAG=0 UNEDUCATED
C IFLAG=2 OTHER
10 GO TO (20) IFLAG+1
GO TO 30
20 CALL AMNESIA
30 FORMAT(1H0,1X,I2)



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

do góry

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

> COMMON/DATA/IAGE,ITRSHLD,IFLAG
> IF(IAGE-ITRSHLD) 30,10,10
> C IFLAG=1 EDUCATED
> C IFLAG=0 UNEDUCATED
> C IFLAG=2 OTHER
> 10 GO TO (20) IFLAG+1
> GO TO 30
> 20 CALL AMNESIA
> 30 FORMAT(1H0,1X,I2)

No braaawo :() Goto wyliczane !. (i znow łza.. eh...)
Nastepny "cycuś" po implicit declaration :)
PS: Ze o FORMATcie nie wspomne (fakt ze F77 nieco tu poprawil)
PS1: No i jeszcze te kolumienki 72-76.. (dobrze pamietam?)

AK


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

do góry

On Wed, 18 Nov 2015 19:03:02 +0100, "AK" <n...@n...com> wrote:
> PS1: No i jeszcze te kolumienki 72-76.. (dobrze pamietam?)

73-80 dla indeksu, 1 dla komentarza, 7 dla znaku kontynuacji.
Hardcore to EQUIVALENCE i NAMELIST - równie rzadkie jak long jump w C
- i operator ->* w C++.

do góry

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

> Hardcore to EQUIVALENCE i NAMELIST - równie rzadkie jak long jump w C - i operator
->* w C++.

Uuuu :( Namelist calkiem zapomniailem :(.
Co to jest ?

AK


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

do góry

On Fri, 20 Nov 2015 20:09:47 +0100, "AK" <n...@n...com> wrote:
> Uuuu :( Namelist calkiem zapomniailem :(.
> Co to jest ?

Coś jak XML z lat 60tych.

NAMELIST/DATA1/A,B,C,I,J,K
DIMENSION A(100)
LOGICAL B
C**** CZYTANIE WSZYSTKIEGO NA RAZ
READ(1,NML=DATA1)
C**** ZAPIS
WRITE(2,NML=DATA1)

Dane były zapisywane/czytane z plików tekstowych. W pliku były nazwy
bloków namelist i pary klucz=wartość, dla tablic można było pisać np.
100*3.142.

do góry

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

> Coś jak XML z lat 60tych.
>
> NAMELIST/DATA1/A,B,C,I,J,K

A dzieki. Juz mi "starcza amnezja" minela :)

PS: No dobra. Koniec szpanowania. Przyznam sie :).
Ostatni w miare powazny program napisalem w w Fortranie 1992 roku.

AK


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

do góry

On Saturday, November 21, 2015 at 10:34:00 AM UTC+1, AK wrote:
> Użytkownik "slawek" <> napisał:
>
> > Coś jak XML z lat 60tych.
> >
> > NAMELIST/DATA1/A,B,C,I,J,K
>
> A dzieki. Juz mi "starcza amnezja" minela :)
>
> PS: No dobra. Koniec szpanowania. Przyznam sie :).
> Ostatni w miare powazny program napisalem w w Fortranie 1992 roku.

Ale pewnie robił coś interesującego!

Pozdrawiam

do góry

Użytkownik "M.M." <m...@g...com> napisał:

> PS: No dobra. Koniec szpanowania. Przyznam sie :).
> Ostatni w miare powazny program napisalem w w Fortranie 1992 roku.

> Ale pewnie robił coś interesującego!

Niestety nie :(.
Czysta niskopoziomowa grafika (port Borlandowskeigo BGI do MS Fortranu).
(Tzn pod wzgledem "miedzymordzia jezykowego" bardzo ciekawe, ale nic poza tym)

PS: Wczesniej tak. Bylo troche ciekawych rzeczy (nawet w tym chorym jako jezyk
Fortranie:)

AK



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

do góry